

move 2226 1173 35s
move 2226 1173 a 5s
move 2226 1167 35s
move 2226 1167 a 5s
move 2224 1167 35s
move 2224 1167 a 5s
;Estamos delante de la puerta
 gosub OpenDoors

move 2221 1167 35s
move 2221 1167 a 5s
move 2214 1167 35s
move 2214 1167 a 5s

set %TotalOro #GOLD
gosub Vendo
move 2214 1164 a 5s
gosub Vendo
move 2214 1170 a 7s
gosub Vendo
move 2217 1168 a 7s
gosub Vendo
move 2220 1168 a 7s
gosub Vendo


YaVendi:
move 2214 1168 a 7s
move 2222 1167 a 5s
gosub opendoors
move 2222 1167 a 5s
gosub opendoors
move 2225 1167 a 25s
move 2226 1174 a 20s

exit


sub OpenDoors
set %bi 0
buscomas:
 set %bi %bi + 1
 FINDITEM JQC_HQC %bi
 if #FINDKIND = -1
   return
 if #FINDDIST > 3
   goto buscomas   
 set #LOBJECTID #FINDID 
 event macro %LastObject 0
 goto buscomas
return

sub Vendo
 msg $,sell dagas %NombreVendor $
wait 1s
 IF %TotalOro <> #GOLD
    goto Yavendi
return


