
gosub somamb
retscp= posic2
setpos= posic2
reg= 1,2
reg+ 2,1
reg= 25,3
posmap= 345,175,699,497
gosub ajustatempo
cleardir
oeste= posic4

if= 60,br,regtxt=,7,'Você está andando numa
mata fechada e 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,amz70
reg$ 59,#58
reg$ 59,.jpg
telpos= #59
lnktel= ,posic11,0,56,184,168,6
picmap= 1004,666
gosub comode1
goto Saida

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

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