помогите подправить

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Nort777
Posts: 80
Joined: 2005-06-21 20:31:26

помогите подправить

Post by Nort777 »

вот скрипт, как его переделать чтоб он сбивал касты всех, даже своих друзей и гильдии??

Code: Select all

var SerialSelf   = '0x00065540' ## ID вашего чара 
var FirstFriend  = '0x0010F829' ## ID 1 друга 
var SecondFriend = '0x0010F829' ## ID 2 друга 
var ThirdFriend  = '0x0010F829' ## ID 3 друга 
var FourthFriend = '0x0010F829' ## ID 4 друга 
var FifthFriend  = '0x0010F829' ## ID 5 друга 
var Cast         = 'Feeblemind'     ## Каким заклинанием будем сбивать 

Var Enemy, FirstTempFriend, SecondTempFriend, ThirdTempFriend, FirstTemp, SecondTemp, ThirdTemp 

sub AntiParaliz() 
uo.Print('Выбери 1 временного друга: ') 
uo.Exec('addobject FirstTemp') 
   while uo.Targeting() 
      wait(100) 
   wend 
FirstTempFriend=UO.GetSerial("FirstTemp") 

uo.Print('Выбери 2 временного друга: ') 
uo.Exec('addobject SecondTemp') 
   while uo.Targeting() 
      wait(100) 
   wend 
SecondTempFriend=UO.GetSerial("SecondTemp") 

uo.Print('Выбери 3 временного друга: ') 
uo.Exec('addobject ThirdTemp') 
   while uo.Targeting() 
      wait(100) 
   wend 
ThirdTempFriend=UO.GetSerial("ThirdTemp") 

   while not UO.Dead() 
      if UO.InJournal("An Ex Por") then 
         Enemy=UO.GetSerial(UO.JournalSerial(0)) 
            if Enemy==SerialSelf OR Enemy==FirstFriend OR Enemy==SecondFriend OR Enemy==ThirdFriend OR Enemy==FourthFriend OR Enemy==FifthFriend OR Enemy==FirstTempFriend OR Enemy==SecondTempFriend OR Enemy==ThirdTempFriend then 
                wait(100) 
                UO.DeleteJournal() 
            else 
                UO.Cast(Cast,Enemy) 
                UO.DeleteJournal() 
            end if 
                wait(500) 
      else 
         wait(1000) 
      end if 
   wend 
end sub
agem
Posts: 65
Joined: 2005-06-26 12:29:37

Post by agem »

Code: Select all

if Enemy==SerialSelf OR Enemy==FirstFriend OR Enemy==SecondFriend OR Enemy==ThirdFriend OR Enemy==FourthFriend OR Enemy==FifthFriend OR Enemy==FirstTempFriend OR Enemy==SecondTempFriend OR Enemy==ThirdTempFriend then 
                wait(100) 
                UO.DeleteJournal() 
            else 
                UO.Cast(Cast,Enemy) 
                UO.DeleteJournal() 
            end if 
заменить на

Code: Select all

                UO.Cast(Cast,Enemy) 
                UO.DeleteJournal() 
agem
Posts: 65
Joined: 2005-06-26 12:29:37

Post by agem »

Ну и поубирать все добавления друзей, если они все равно не нужны.
BEPMYT
Posts: 8
Joined: 2005-02-08 12:11:08

Re: помогите подправить

Post by BEPMYT »

Nort777 wrote:вот скрипт, как его переделать чтоб он сбивал касты всех, даже своих друзей и гильдии??

Code: Select all

var SerialSelf   = '0x00065540' ## ID вашего чара 
var FirstFriend  = '0x0010F829' ## ID 1 друга 
var SecondFriend = '0x0010F829' ## ID 2 друга 
var ThirdFriend  = '0x0010F829' ## ID 3 друга 
var FourthFriend = '0x0010F829' ## ID 4 друга 
var FifthFriend  = '0x0010F829' ## ID 5 друга 
var Cast         = 'Feeblemind'     ## Каким заклинанием будем сбивать 

Var Enemy, FirstTempFriend, SecondTempFriend, ThirdTempFriend, FirstTemp, SecondTemp, ThirdTemp 

sub AntiParaliz() 
uo.Print('Выбери 1 временного друга: ') 
uo.Exec('addobject FirstTemp') 
   while uo.Targeting() 
      wait(100) 
   wend 
FirstTempFriend=UO.GetSerial("FirstTemp") 

uo.Print('Выбери 2 временного друга: ') 
uo.Exec('addobject SecondTemp') 
   while uo.Targeting() 
      wait(100) 
   wend 
SecondTempFriend=UO.GetSerial("SecondTemp") 

uo.Print('Выбери 3 временного друга: ') 
uo.Exec('addobject ThirdTemp') 
   while uo.Targeting() 
      wait(100) 
   wend 
ThirdTempFriend=UO.GetSerial("ThirdTemp") 

   while not UO.Dead() 
      if UO.InJournal("An Ex Por") then 
         Enemy=UO.GetSerial(UO.JournalSerial(0)) 
            if Enemy==SerialSelf OR Enemy==FirstFriend OR Enemy==SecondFriend OR Enemy==ThirdFriend OR Enemy==FourthFriend OR Enemy==FifthFriend OR Enemy==FirstTempFriend OR Enemy==SecondTempFriend OR Enemy==ThirdTempFriend then 
                wait(100) 
                UO.DeleteJournal() 
            else 
                UO.Cast(Cast,Enemy) 
                UO.DeleteJournal() 
            end if 
                wait(500) 
      else 
         wait(1000) 
      end if 
   wend 
end sub

А где вводить заклинание которыебудет коставать??! Етот скрипт для дрв подойдет?!
Post Reply