Modifica a Random Citizen di Alato. Possibile?

[Louie]

Salusti, salusti!
Sto facendo degli esperimenti per il futuro (sempre per la mia cara saga di Clairvoyant e, mappando una città molto affollata, sono ben felice di usare lo script Random Citizen di Alato, originariamente postato qui e che posseggo in archivio da molti anni.
E' molto semplice: si piazzano degli eventi vuoti con il commento "begin passante" e lo script fa spawnare tanti npc (basta che contengano il nome "Civilian" nel database) quanti gli eventi, in punti lontano da te, fuori dalla telecamera.

L'effetto è meraviglioso, un vero toccasana per popolare una città e ottima per le mappe grandi.
Ci sarebbe un problema: spawnano semplicemente nelle zone di tileset marcate O, cioè camminabili.

Ovviamente non sarebbe un grosso problema se non fosse che capitano eventualità in cui sarebbe preferibile che non spawnassero in certi luoghi, come per esempio qui:



La mia intenzione sarebbe di poter far camminare qui il protagonista per creare un po' di level design, ma ovviamente non voglio che la gente spawni lì a caso.

Qualcuno esperto in RGSS1 sarebbe così gentile da dare un'occhiata e modificare lo script in modo che essi possano sì spawnare nelle zone camminabili MA NON, per esempio, in tiles marchiati col terrain tag di un certo numero? O qualcosa del genere...

Qui c'è lo script, grazie mille in anticipo alla buon'anima.

  Reveal hidden contents

#==============================================================================

# - Citizens Script ~ v1.0 # ( 13/12/06 )

#--------------------------#---------------------------------------------------

# by Alato ~ www.rpg2s.net #

#--------------------------#

# Contiene l'XPML Script di Rataime e una versione

# modificata da me dell'Anti Event Lag Script di

# Near Fantastica.

#------------------------------------------------------------------------------

# Incollato questo script in una pagina sopra il Main

# avrete a disposizione un nuovo comando per gli eventi.

# Scrivendo "begin passante" in un commento dell'evento

# questo verrà considerato come un passante, cioè sarà

# sempre presente vicino allo schermo.

# Grafica, velocità e frequenza sono gestiti dallo

# script in maniera casuale (per la grafica utilizza

# i character di default "Civilian").

#

# In caso di domande o problemi chiedete nel forum

# di www.rpg2s.net

#==============================================================================

############################################

######## Aggiunte a Game_Character #########

############################################

class Game_Character

#--------------------------------------------------------------------------

# - Aggiornamento

#--------------------------------------------------------------------------

def update

if passante?

@move_type = 77 # Movimento Passanti

@move_frequency = 6

end

if jumping?

update_jump

elsif moving?

update_move

else

update_stop

end

if @anime_count > 18 - @move_speed * 2

if not @step_anime and @stop_count > 0

@pattern = @original_pattern

else

@pattern = (@pattern + 1) % 4

end

@anime_count = 0

end

if @wait_count > 0

@wait_count -= 1

return

end

if @move_route_forcing

move_type_custom

return

end

if @starting or lock?

return

end

if @stop_count > (40 - @move_frequency * 2) * (6 - @move_frequency)

case @move_type

when 1

move_type_random

when 2

move_type_toward_player

when 3

move_type_custom

when 77

move_type_passante

end

end

end

#--------------------------------------------------------------------------

# - Riposiziona

#--------------------------------------------------------------------------

def riposiziona

case rand(3)

when 0

r_x = $game_map.display_x + rand(21)*128 - 128*3

r_y = $game_map.display_y - 128*3

when 1

r_x = $game_map.display_x + rand(21)*128 - 128*3

r_y = $game_map.display_y + 2176 + 128*3

when 2

r_x = $game_map.display_x - 128*3

r_y = $game_map.display_y + rand(16)*128 - 128*3

when 3

r_x = $game_map.display_x + 2816 + 128*3

r_y = $game_map.display_y + rand(16)*128 - 128*3

end

x = r_x / 128

y = r_y / 128

if $game_map.passable?(x, y, 0)

@real_x = r_x

@real_y = r_y

@x = x

@y = y

else

riposiziona

end

r = rand(23) + 1

if r < 10

name = "10" + r.to_s + "-Civilian0" + r.to_s

else

name = "1" + r.to_s + "-Civilian" + r.to_s

end

@character_name = name

@move_speed = rand(2)+ 1

end

#--------------------------------------------------------------------------

# - Movimento Passante

#--------------------------------------------------------------------------

def move_type_passante

case rand(19)

when 0..16

move_forward

when 17

move_random

when 18

@stop_count = 0

end

end

end

############################################

######### Aggiunte a GAme_Event ############

############################################

class Game_Event < Game_Character

#--------------------------------------------------------------------------

# - Controlla se è un passante

#--------------------------------------------------------------------------

def passante?

params = XPML_read("passante",@id,2)

return (params != nil)

end

end

############################################

######### Aggiunte a Game_Player ###########

############################################

class Game_Player < Game_Character

#--------------------------------------------------------------------------

# - Il Player non è mai un passante

#--------------------------------------------------------------------------

def passante?

return false

end

end

###################

############ XPML Definition ###############

# by Rataime #

###################

def XPML_read(markup,event_id,max_param_number=0)

parameter_list = nil

event=$game_map.events[event_id]

return if event.list==nil

for i in 0...event.list.size

if event.list.code == 108 and event.list.parameters[0].downcase == "begin "+markup.downcase

parameter_list = [] if parameter_list == nil

for j in i+1...event.list.size

if event.list[j].code == 108

parts = event.list[j].parameters[0].split

if parts.size!=1 and parts[0].downcase!="begin"

if parts[1].to_i!=0 or parts[1]=="0"

parameter_list.push(parts[1].to_i)

else

parameter_list.push(parts[1])

end

else

return parameter_list

end

else

return parameter_list

end

return parameter_list if max_param_number!=0 and j==i+max_param_number

end

end

end

return parameter_list

end

############################

####### Anti Event Lag Script v3 ###############

# by Near Fantastica #

############################

# ~ mod by Alato #

############################

#====

# ¦ Game_Map

#====

class Game_Map

#------

def in_range?(object)

screne_x = $game_map.display_x

screne_x -= 256

screne_y = $game_map.display_y

screne_y -= 256

screne_width = $game_map.display_x

screne_width += 2816

screne_height = $game_map.display_y

screne_height += 2176

return false if object.real_x <= screne_x

return false if object.real_x >= screne_width

return false if object.real_y <= screne_y

return false if object.real_y >= screne_height

return true

end

#------

def in_big_range?(object)

screne_x = $game_map.display_x

screne_x -= 256*6

screne_y = $game_map.display_y

screne_y -= 256*6

screne_width = $game_map.display_x

screne_width += 2816 + 256*5

screne_height = $game_map.display_y

screne_height += 2176 + 256*5

return false if object.real_x <= screne_x

return false if object.real_x >= screne_width

return false if object.real_y <= screne_y

return false if object.real_y >= screne_height

return true

end

#------

def update

if $game_map.need_refresh

refresh

end

if @scroll_rest > 0

distance = 2 ** @scroll_speed

case @scroll_direction

when 2

scroll_down(distance)

when 4

scroll_left(distance)

when 6

scroll_right(distance)

when 8

scroll_up(distance)

end

@scroll_rest -= distance

end

for event in @events.values

if in_range?(event) or event.trigger == 3 or event.trigger == 4

event.update

elsif event.passante? # se è un passante riposizionalo

event.update

until in_big_range?(event)

event.riposiziona

end

end

end

for common_event in @common_events.values

common_event.update

end

@fog_ox -= @fog_sx / 8.0

@fog_oy -= @fog_sy / 8.0

if @fog_tone_duration >= 1

d = @fog_tone_duration

target = @fog_tone_target

@fog_tone.red = (@fog_tone.red * (d - 1) + target.red) / d

@fog_tone.green = (@fog_tone.green * (d - 1) + target.green) / d

@fog_tone.blue = (@fog_tone.blue * (d - 1) + target.blue) / d

@fog_tone.gray = (@fog_tone.gray * (d - 1) + target.gray) / d

@fog_tone_duration -= 1

end

if @fog_opacity_duration >= 1

d = @fog_opacity_duration

@fog_opacity = (@fog_opacity * (d - 1) + @fog_opacity_target) / d

@fog_opacity_duration -= 1

end

end

end

#====

# ¦ Spriteset_Map

#====

class Spriteset_Map

#------

def in_range?(object)

screne_x = $game_map.display_x

screne_x -= 256

screne_y = $game_map.display_y

screne_y -= 256

screne_width = $game_map.display_x

screne_width += 2816

screne_height = $game_map.display_y

screne_height += 2176

return false if object.real_x <= screne_x

return false if object.real_x >= screne_width

return false if object.real_y <= screne_y

return false if object.real_y >= screne_height

return true

end

#------

def in_big_range?(object)

screne_x = $game_map.display_x

screne_x -= 256*6

screne_y = $game_map.display_y

screne_y -= 256*6

screne_width = $game_map.display_x

screne_width += 2816 + 256*5

screne_height = $game_map.display_y

screne_height += 2176 + 256*5

return false if object.real_x <= screne_x

return false if object.real_x >= screne_width

return false if object.real_y <= screne_y

return false if object.real_y >= screne_height

return true

end

#------

def update

if @panorama_name != $game_map.panorama_name or

@panorama_hue != $game_map.panorama_hue

@panorama_name = $game_map.panorama_name

@panorama_hue = $game_map.panorama_hue

if @panorama.bitmap != nil

@panorama.bitmap.dispose

@panorama.bitmap = nil

end

if @panorama_name != ""

@panorama.bitmap = RPG::Cache.panorama(@panorama_name, @panorama_hue)

end

Graphics.frame_reset

end

if @fog_name != $game_map.fog_name or @fog_hue != $game_map.fog_hue

@fog_name = $game_map.fog_name

@fog_hue = $game_map.fog_hue

if @fog.bitmap != nil

@fog.bitmap.dispose

@fog.bitmap = nil

end

if @fog_name != ""

@fog.bitmap = RPG::Cache.fog(@fog_name, @fog_hue)

end

Graphics.frame_reset

end

@tilemap.ox = $game_map.display_x / 4

@tilemap.oy = $game_map.display_y / 4

@tilemap.update

@panorama.ox = $game_map.display_x / 8

@panorama.oy = $game_map.display_y / 8

@fog.zoom_x = $game_map.fog_zoom / 100.0

@fog.zoom_y = $game_map.fog_zoom / 100.0

@fog.opacity = $game_map.fog_opacity

@fog.blend_type = $game_map.fog_blend_type

@fog.ox = $game_map.display_x / 4 + $game_map.fog_ox

@fog.oy = $game_map.display_y / 4 + $game_map.fog_oy

@fog.tone = $game_map.fog_tone

i=0

for sprite in @character_sprites

if sprite.character.is_a?(Game_Event)

if in_range?(sprite.character) or sprite.character.trigger == 3 or sprite.character.trigger == 4 or (sprite.character.passante? and in_big_range?(sprite.character))

sprite.update

i+=1

end

else

sprite.update

i+=1

end

end

@weather.type = $game_screen.weather_type

@weather.max = $game_screen.weather_max

@weather.ox = $game_map.display_x / 4

@weather.oy = $game_map.display_y / 4

@weather.update

for sprite in @picture_sprites

sprite.update

end

@timer_sprite.update

@viewport1.tone = $game_screen.tone

@viewport1.ox = $game_screen.shake

@viewport3.color = $game_screen.flash_color

@viewport1.update

@viewport3.update

end

end

 

[Testament]

io credo sia qui

 

#--------------------------------------------------------------------------

# - Riposiziona

#--------------------------------------------------------------------------

def riposiziona

case rand(3)

when 0

r_x = $game_map.display_x + rand(21)*128 - 128*3

r_y = $game_map.display_y - 128*3

when 1

r_x = $game_map.display_x + rand(21)*128 - 128*3

r_y = $game_map.display_y + 2176 + 128*3

when 2

r_x = $game_map.display_x - 128*3

r_y = $game_map.display_y + rand(16)*128 - 128*3

when 3

r_x = $game_map.display_x + 2816 + 128*3

r_y = $game_map.display_y + rand(16)*128 - 128*3

end

x = r_x / 128

y = r_y / 128

if $game_map.passable?(x, y, 0)

@real_x = r_x

@real_y = r_y

@x = x

@y = y

else

riposiziona

end

 

 

 

più precisamente in questo IF che controlla se la mappa in X Y è passabile e posiziona lì il chara o in caso contrario richiama "riposiziona" finché non trova una posizione valida.

 

if $game_map.passable?(x, y, 0)

 

 

 

 

ci andrebbe aggiunto un AND $game_map.tag"robe" non conosco la sintassi del ruby di rpgmaker, ma ci deve essere una funzione che controlla che oltre ad essere passabile, la casella X,Y, NON sia marchiata col terrain tag che vuoi tu.

[Louie]

Esattamente! Credo sia proprio un'aggiunta semplice semplice, dovrei avere un corso di RGSS1 in archivio, provo a documentarmi sulla sintassi e magari fare qualche prova, nel frattempo. Grazie.
Ovviamente la domanda resta aperta, editerò, nel caso non abbia successo.

[Testament]

allora forse ho trovato io:

 

$game_map.terrain_tag(x,y)

 

 

Quindi l'IF là sopra diventa:

 

if $game_map.passable?(x, y, 0) and $game_map.terrain_tag(x,y) != NUMEROTERRAINTAGCHEVUOI

 

 

(ammesso che diverso si faccia != e non in ruby)

[Louie]

Ok, sono stati fatti tentativi diversi (come Testament ha visto in diretta) e niente, gli npc ignorano totalmente la cosa. Si vede che va a toccare altre cose in Game_Map script, da cui è dipendente.

[Holy87]

  On 12/21/2022 at 11:08 AM, Testament said:

allora forse ho trovato io:

 

$game_map.terrain_tag(x,y)

 

 

Quindi l'IF là sopra diventa:

 

if $game_map.passable?(x, y, 0) and $game_map.terrain_tag(x,y) != NUMEROTERRAINTAGCHEVUOI

 

 

(ammesso che diverso si faccia != e non in ruby)

Ad occhio e croce, il problema mi sa che è perché hai messo un and quando invece dovrebbe esserci un or. E credo anche di dover mettere un == invece che !=.

[Testament]

Beh, no, perché se io voglio fare una passerella col terrain tag = 5 e voglio che gli NPC non ci vengano piazzati sopra,

 

allora lo spawn deve controllare che il punto della mappa X, Y sia passabile E che abbia un tag terreno diverso da 5, ovvero tutti gli altri punti della mappa con passabilità cerchio e diversi dalla passerella.

 

Il problema, successivo, è che poi ok non ci spawnano sopra, ma camminando ci vanno a finire sopra lo stesso a random.

[Holy87]

  On 12/23/2022 at 1:39 AM, Testament said:

Beh, no, perché se io voglio fare una passerella col terrain tag = 5 e voglio che gli NPC non ci vengano piazzati sopra,

 

allora lo spawn deve controllare che il punto della mappa X, Y sia passabile E che abbia un tag terreno diverso da 5, ovvero tutti gli altri punti della mappa con passabilità cerchio e diversi dalla passerella.

 

Il problema, successivo, è che poi ok non ci spawnano sopra, ma camminando ci vanno a finire sopra lo stesso a random.

Ah ok, avevo capito male la domanda.

A quel punto basterebbe un evento trasparente non passabile per evitare che ci finiscano sopra, no?

[Testament]

è un po' quello il problema che alla fine non ha trovato risposta.

 

NON devono spammare sulla passerella,

MA devono passarci SOTTO (se non loro almeno il pg)

Però quando il personaggio c'è sopra ci deve passare solo lui.

 

 

Perciò stavo suggerente un cambio di tileset (o meglio stesso tileset, ma con passabilità cambiate da stella a cerchio attraversabile solo da sinistra a destra).

 

Il problema è che sono sorti mille altri problemi (in privato) che non rammento, che se Louie avrà voglia spiegherà, e che ogni volta hanno mandato in pappa tutto... sigh.

[Louie]

HMhm c'erano complicazioni che ora non ricordo. Abbiamo provato sia un metodo (|=) che un altro (==).
Aldilà del passaggio sotto, che avrei risolto con un mapping diverso, e pazienza per l'arco sospeso camminabile, alla fine ho risolto dedicando un tile trasparente che utilizzo come ultima spiaggia per tappezzare di NO le zone altrimenti camminabili. Certo, questo è un problema se deve passarci anche il nostro pg.

Allora, ora che ricordo... Avevo creato mappa divisa da fences, metà erba verde e metà rossa. Eravamo riusciti (in privato) a far spawnare npc SOLO sulla zona rossa.

Diciamo però che il problema non è dove spawnano, ma dove camminano! Sarebbe utile e molto comodo poter dire: ok, gli npc possono spawnare E camminare esclusivamente in zona TerrainTarget5.
A me basterebbe piazzare un bel 5 sui pavimenti e fine dei problemi.

 

EDIT: Ricordo che se mettevamo Terrain tag 1 crashava all'avvio.
Con il 5 invece sembrava tutto bene ma poi praticamente Crashava quando un npc entrava in zona verde.
ECCO QUAL'ERA IL PROBLEMA.

Alché ho detto: ok evidentemente bisogna toccare ben più di una sola riga... E quindi avevo pensato di lasciar perdere.

Edited December 25, 2022 by Louie

[ickh]

Questo script è un po'... meh...

L'effetto è carino e fa risparmiare (neanche tantissimo) tempo, ma personalmente non lo userei.
Non è scritto benissimo e in particolare la funzione "riposiziona" può dare problemi. E infatti è quella che fa crashare tutto quando aggiungi la modifica del terrain tag.
In pratica lo script così com'è funziona il 99,9% delle volte, ma in mappe particolari (che nella pratica probabilmente non verrebbero mai create, ma sai, la legge di Murphy...) può crashare. Aggiungendo il controllo sul terrain tag la percentuale si abbassa drasticamente e vedi crash continui. La cosa è indipendente dal numero di tag scelto.

Aggiungo una spiegazione pallosa e dettagliata perché non ho di meglio da fare nella vita...

Nella funzione "riposiziona" c'è sta roba:

case rand(3)
when 0
  r_x = $game_map.display_x + rand(21)*128 - 128*3
  r_y = $game_map.display_y - 128*3
when 1
  r_x = $game_map.display_x + rand(21)*128 - 128*3
  r_y = $game_map.display_y + 2176 + 128*3
when 2
  r_x = $game_map.display_x - 128*3
  r_y = $game_map.display_y + rand(16)*128 - 128*3
when 3
  r_x = $game_map.display_x + 2816 + 128*3
  r_y = $game_map.display_y + rand(16)*128 - 128*3
end
x = r_x / 128
y = r_y / 128
if $game_map.passable?(x, y, 0)
  @real_x = r_x
  @real_y = r_y
  @x = x
  @y = y
else
  riposiziona
end

dove in pratica la funzione richiama se stessa finché non trova un tile passabile in cui far comparire il passante. Se la ricerca di questo tile passabile va troppo per le lunghe, l'applicazione si stufa, s'incazza e ti sbatte fuori. Finché controlli solo la passabilità del tile, prima o poi ne troverai uno, ma se in più gli dici che deve avere anche un particolare tag, la cosa si complica.
Il problema probabilmente è dovuto a quei calcoli di r_x e r_y, con quei valori un po' forzati, e di cui non ho avuto (e non ho) voglia di entrare nel merito.

Oltre a questo, che è il problema principale, va anche a sovrascrivere il metodo "update" di Game_Character. Sarebbe stato meglio un alias, per compatibilità con eventuali altri script.

[Louie]

Capisco, quindi sostanzialmente andrebbe rivisitato. Immaginavo che si appoggiasse ad altri metodi e che questo avrebbe cambiato le cose.
Alla fine ho cambiato rotta sul progetto, lo farò in MV anche per questioni grafiche (anziché impazzire sul tileset editing disegnerò tutto a mano e XP non mostra i parallax in editor. Mettiamoci una pietra sopra, XP è sempre stato il mio preferito ma dopo 20 anni comincio a vederne i limiti). E' stato interessante provarci però.
Questo script l'ho usato per anni ed è sempre stato molto comodo, ma ecco che quando si prova a andare oltre non lo permette, e di conseguenza è brutto dover essere assoggettati a uno script. Van bene i compromessi, ma non quando sono così estremi.
Grazie del tuo tempo, ickh!

[Testament]

Tutto vero, è una funzione ricorsiva che si richiama per un tot prima di mandarsi a fanculo, ma l'aggiunta di 1 terrain tag è per far sì che NON capiti su quel singolo terrain tag, che identifica una passerella di quanti? 10 tiles su una mappa di almeno 4 schermate...

 

Dubito che ricorsivamente, in una situazione del genere, vada a insistere sempre e solo su quei 10 tiles su 1200. Cioè, proprio sfiga eh.