Visto che avevo un po' di tempo, ecco uno script per allenare stealing con un pack animal! Potete usare tutti gli oggetti che volete! Ditemi come vi sembra!
Azioni:
Lo script rimetterà tutti gli oggetti rubati nel pack solo quando saranno finiti, quindi non mettetene troppi o rischiate che per il peso lo script si blocchi. (Calcolate che il massimo che si può ragigungere da fermi sono 200 punti in più rispetto al massimo, quindi se si ha una massima portata di 300 il massimo sarà 500)
Requisiti:
Pack Animal
Change Log:
Modifica dell'attesa per il target by Noricum
Azioni:
Lo script rimetterà tutti gli oggetti rubati nel pack solo quando saranno finiti, quindi non mettetene troppi o rischiate che per il peso lo script si blocchi. (Calcolate che il massimo che si può ragigungere da fermi sono 200 punti in più rispetto al massimo, quindi se si ha una massima portata di 300 il massimo sarà 500)
Requisiti:
Pack Animal
Change Log:
Modifica dell'attesa per il target by Noricum
codice:
;------------------------------ ;-- Drael's Stealing Trainer -- ;------------------------------ ;-- Autore: Drael ------------- ;-- Versione: 1.0 ------------- ;------------------------------ Event SysMEssage Seleziona il tuo pack animal! Set #TargCurs 1 While #TargCurs = 1 Wait 10 msg All Stay$ Set %PetID #lTargetID FindITem %PetID G_25 If #FindDist > 1 Move #FindX #FindY 1 Event SysMessage Seleziona il tipo di oggetto da rubare! Set %numero 1 Set #lObjectID %PetId Event Macro 17 Wait 1s While #ContSize <> 230_204 Wait 10 Set %ContID #ContID While %Add <> Stop { Display OkCancel Seleziona l'oggetto n° %numero If #DispRes = Cancel Set %Add Stop Else { Set #TargCurs 1 While #TargCurs = 1 Wait 10 Set %ID #lTargetID FindItem %ID C If %Type = N/A Set %Type #FindType Else Set %Type %Type , _ , #FindType Set %numero %numero + 1 } } Event SysMEssage %Type While %loop <> Stop { Set #lObjectID %PetID Event MAcro 17 FindITem %Type C_ . %ContID If #FindKind <> -1 { Event Macro 13 33 Target 3s Set #lTargetID #FindID Event MAcro 22 } Else { FindITem %Type C_ . #BackPackID Set %for #FindCNT For %i 1 %for { findItem %Type C_ . #BackPackID ExEvent Drag #FindID Wait 10 ExEvent DropC %ContID } } Wait 10s }
Commenta