clearjournal
if not @findobject 'caneta'
headmsg 'Selecione a caneta.'
promptalias 'caneta'
pause 500
endif
useobject 'caneta'
automenu 'What' 'Local'
@settimer 't_timeout' 0
while @timer 't_timeout' < 5000
if not @injournal 'put' 'system' and not @injournal 'falhou' 'system' and not @injournal 'blank' 'system'
pause 100
else
break
endif
endwhile
if @injournal 'blank' 'system'
playmacro '0JogaItem'
stop
endif
if not @findobject 'caneta'
headmsg 'Selecione a caneta.'
promptalias 'caneta'
pause 500
endif
useobject 'caneta'
automenu 'What' 'Local'
@settimer 't_timeout' 0
while @timer 't_timeout' < 5000
if not @injournal 'put' 'system' and not @injournal 'falhou' 'system' and not @injournal 'blank' 'system'
pause 100
else
break
endif
endwhile
if @injournal 'blank' 'system'
playmacro '0JogaItem'
stop
endif