..

Se avete miLLlLLllle keg da svuotare in boccette, questo è il vostro script

Dovete solo seguire le istruzioni.

Scriptato io

Codice:
Set %CassaKeg XXXXXX ;Cassa dove son presenti keg
Set %CassaFine XXXXXX ;Cassa dove mettere pozze e prender vuote
Set %CassaKegVuoti XXXXXX ; Cassa dove mettere keg vuoti
Set %PozzeVuote WUF
Set %Pozze YUF_AVF_NUF_TUF_UUF_XUF_ZUF_OUF_WUF_
Set %IDKeg QMJ ; <--- Keg

Loop:
;Prendo Keg Nuovo
Finditem %IDKeg C_ , %CassaKeg
wait 5
if #FINDCNT = 0
   {
   display Kegs Svuotati
   halt
   }
if #FINDCNT > 0
   {
      event Property #findID
   }
if Lined in #property
   {
   Exevent Drag #findid ; #FINDSTACK
   wait 10
   Exevent Dropc %CassaKegVuoti
   wait 20
   goto Loop
   }
Set %Keg #findid
;Cerco pozze vuote
Finditem %PozzeVuote C_ , %CassaFine
wait 10
;Ne sposto 100 nel backpack
Exevent Drag #findid 100
wait 10
Exevent Dropc #backpackid
wait 10
Set #LOBJECTID %Keg
while Lined notin #property
      {
      Event macro 17
      wait 8
      event Property #LOBJECTID
      wait 2
     }
wait 10

;Sposta Keg Vuoto
Exevent Drag #LOBJECTID #FINDSTACK
wait 10
Exevent Dropc %CassaKegVuoti
wait 10

;Sposta le pozze vuote
For %i 1 4
   {
   finditem %Pozze C_ , #BACKPACKID
   wait 2
   if #FINDCNT > 0
      {
               Exevent Drag #findid #FINDSTACK
               wait 10
               Exevent Dropc %CassaFine
               wait 10
      }
   }


Goto Loop