macro de tailor

clearjournal
if not @findobject 'Kit'
headmsg 'Selecione Kit'
promptalias 'Kit'
pause 1000
endif
if not @findobject 'Pano'
headmsg 'Selecione Pano.'
promptalias 'Pano'
pause 1000
endif
autotargetobject 'Pano'
useobject 'Kit'
automenu 'Body' 'Cloth Box'
@settimer 'timerwait' 1000
while @timer 'timerwait' < 9000
if @injournal 'You put' 'system'
break
elseif @injournal 'falhou' 'system'
break
endif
endwhile