\MOV PROFETA

-* *             ; MOVER PROFETA
chance 20        ; 1 de cada 5 veces + o - (20%)
push 1 100       ; preservo contenido de flag 100
popc 1 100       ; saco siguiente direcci¢n de cola
pushc 1 100      ; la vuelvo a "encolar" para que la cola no quede modificada
let 17 @1        ; guardo la localidad actual en flag 17 para usar ahora el salto con comparaci¢n
jneq NoSeVa 252  ; si no estaba en la misma localidad no tiene que poner "El profeta va al ..."
mes 86           ; Explicitamente : "El profeta va "
plus 100 54      ; le sumo para que se corresponda con el mensajes de "al norte, al este..." correspondiente.
mes @100
message 23       ; El punto de fin de frase
minus 100 54     ; le vuelvo a dejar como estaba
label NoSeVa
move 252 100     ; muevo personaje
pop 1 100        ; recupero flag 100
same 1 252       ; si ahora esta en nuestra localidad (una vez movido)
message 88       ; "El profeta llega"
notdone

-* *            ; Charlas o acciones del profeta
same 252 1
chance 30
message 89
done
-* *
same 252 1
chance 40
message 90
done
-* *
same 252 1
chance 70
message 91
done