Hardware Zone - Software - EasyUO - Project - Addestrare Animali [da sistemare]

[KorneliusX]

Ho trovato questo script Easy-Uo per addestrare gli animali, ma è piuttosto malfunzionante (o quantomeno a me da abbastanza problemi).
Sarebbe possibile revisionarlo in tempi non troppo lunghi (ho un ranch in prestito e non vorrei abusare tenendolo per troppo tempo)?


Ciao e grazie

[Kogan]

certo ^^ questo è il mio, è old ma dovrebbe funzionare =) lo ritoccai l'ultima volta quando misero i sysmessage in italiano(prima erano in inglese)

;===================================================
;   Script Rivisto Da Ifrit Prog
;     Script Sistemato da Dada
;   Lo script è rivisto per la 56b di sphere
; Lo script riconosce le traduzioni in italiano
; di DNA, non funziona con il patch lang ING
;
;   NOTA: Impostare il numero di animali da tamare
;         nella variabile %max
;===================================================
set %max 40
;===================================================
set #sysmsgcol 1100
msg $.underwear$
IGNOREITEM #charid
for %n 1 %max
    {
     Event Sysmessage Seleziona il %n , ' Animale!
     msg $.identifica$
     set #ltargetid niente
     repeat
     until niente notin #ltargetid
     event sysmessage Animale Selezionato!
     set %array . %n #ltargetid
     hideitem #ltargetid
    }
set %n 1
msg $.underwear$
while #true
  {
   msg $all release$
   set #ltargetid %array . %n
   set %memory %n
   set %n 0
   set %TimerTame ( #scnt + 3 )
   event macro 13 35
   repeat
   if %TimerTame < #scnt
   {
   event macro 13 35
   set %TimerTame ( #scnt + 3 )
   }
   until #targcurs = 1
   event macro 22 0
   repeat
   until #targcurs = 0
   set %time ( #time + 20 )
   repeat
      {
       deletejournal
       scanjournal
       if skill in #journal || accetta in #journal || chance in #journal || lontano in #journal || arrivi in #journal || gia' in #journal
       {
         wait 50
         set %n %memory + 1
         event sysmessage Successivo
       }
       if ricorda in #journal
       {
         wait 5s
         set %n %memory + 1
         event sysmessage Successivo
       }
       if ascoltarti in #journal
       {
         wait 50
         set %n %memory
         event sysmessage Retame
       }
       if #time > %time
       {
         wait 50
         set %n %memory
       }
      }
   until %n <> 0
   event sysmessage N: %n
  if %n > %max
     {
      event sysmessage Animati Finiti, reinizio.
      set %n 1
      if %max > 6 && %max < 10
       {
       set %TempoPerAnimale 35
       }

      if %max > 10 && %max < 14
       {
       set %TempoPerAnimale 25
       }

      if %max > 14 && %max < 16
       {
       set %TempoPerAnimale 12
       }

      if %max > 16 && %max < 22
       {
       set %TempoPerAnimale 5
       }

      if %max > 22 && %max < 24
       {
       set %TempoPerAnimale 2
       }

      if %max > 23
       {
       set %TempoPerAnimale 0
       }

      set %delayer ( %TempoPerAnimale * %max )
      set %delaymax %delayer , s
      wait %delaymax
     }
  }