
reg+ 2,1
reg= 25,2
gosub ajustatempo

ifobj= radio,jog,TemRadio

if= 60,br,regtxt=,7,'Tem que pegar o rádio
para ligá-lo.'
if= 60,pt,regtxt=,7,'...'
if= 60,en,regtxt=,7,'...'
if= 60,es,regtxt=,7,'...'
if= 60,fr,regtxt=,7,'...'

goto Saida
:TemRadio

ifobj= pilhas,radio,TemPil

if= 60,br,regtxt=,7,'O rádio não tem pilhas.'
if= 60,pt,regtxt=,7,'...'
if= 60,en,regtxt=,7,'...'
if= 60,es,regtxt=,7,'...'
if= 60,fr,regtxt=,7,'...'

goto Saida
:TemPil

ifreg> 21,0,TemCarg

if= 60,br,regtxt=,7,'As pilhas estão sem carga ou
muito fracas.'
if= 60,pt,regtxt=,7,'...'
if= 60,en,regtxt=,7,'...'
if= 60,es,regtxt=,7,'...'
if= 60,fr,regtxt=,7,'...'

goto Saida
:TemCarg

if= 19,-,playsnd,amzx2.wav

if= 60,br,regtxt=,7,'Só chiado. Vou desligar
para não ficar gastando as pilhas.'
if= 60,pt,regtxt=,7,'...'
if= 60,en,regtxt=,7,'...'
if= 60,es,regtxt=,7,'...'
if= 60,fr,regtxt=,7,'...'

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

:Mod0
lnkfnc= rosa.gif,pos,50,60,80,80,1
display enter.gif,fnc,60,200,52,38
msg= #7
reg= 7,
fim

:Mod1
reg= 3,#7
reg= 7,
script radio
fim

:Mod2
reg= 3,#7
reg= 7,
script radio
fim
