event sysmessage Sacando Tickets
ignoreitem reset
buscocubo:
FINDITEM BKF
     ;Se esta haciendo un savegame
     if WRDSV_A_EN in #SYSMSG
        wait 20s

 if #findkind = -1
    exit
 If #FINDIST > 3
    exit
 IF #FindCol = 1062
    {
      ignoreitem #findid
      goto buscocubo
    }
 Set #LOBJECTID #FINDID
 Set #LOBJECTTYPE #FINDTYPE

set %timeout #SCNT + 8
 AbroPiedra:
                   call keepalive
 Event macro 17 0
 for %i 1 60
  {
   ;Se esta haciendo un savegame
     if WRDSV_A_EN in #SYSMSG
        wait 20s

   if #SCNT >= %timeout
    {
     event sysmessage       -No consegui abrir la piedra
     exit
    }

   wait 2
   IF #CONTKIND in MQQD
      goto Abierta
  }
 goto AbroPiedra
Abierta:
wait 10
Click 85 171
wait 3s
   ;Se esta haciendo un savegame
     if WRDSV_A_EN in #SYSMSG
        wait 20s

Click 309 333
target 5s
   ;Se esta haciendo un savegame
     if WRDSV_A_EN in #SYSMSG
        wait 20s
Set #LTARGETID %bolsa2
Set #LTARGETKIND 1
event macro 22 0
wait 5s
exit


