annuncio

Comprimi
Ancora nessun annuncio.

[EasyUO] Svuota i keg in boccette vuote

Comprimi
X
 
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • [EasyUO] Svuota i keg in boccette vuote

    ..

    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
Sto operando...
X