
gosub somamb
retscp= posic8
setpos= posic8
reg= 1,8
reg+ 2,1
reg= 25,3
posmap= 326,178,545,443
gosub ajustatempo
cleardir
norte= posic7
sul= posic5
leste= posic1
oeste= posic6

if= 60,br,regtxt=,7,'Você está andando numa
mata muito perigosa.'
if= 60,pt,regtxt=,7,'...'
if= 60,en,regtxt=,7,'...'
if= 60,es,regtxt=,7,'...'
if= 60,fr,regtxt=,7,'...'

:Cont
ifmod0 goto,Mod0
ifmod1 goto,Mod1
ifmod2 goto,Mod2
fim

:Mod0
gosub comode0
goto Saida

:Mod1
reg= 59,amz76
reg$ 59,#58
reg$ 59,.jpg
telpos= #59
lnktel= ,posic7,188,0,175,209,9
lnktel= ,posic6,100,221,492,60,2
lnktel= ,posic1,545,0,124,256,3
lnktel= ,posic6,0,0,154,251,6
picmap= 841,615
gosub comode1
goto Saida

:Mod2
reg= 59,posic8.png
telpos= posic8.png
gosub comode2

:Saida
gosub onca
ifreg= 3,.,Said0
reg= 7,#3
reg= 3,.
:Said0
msg= #7
reg= 7,
fim
