Yoko

All sides of Injection
It is currently 2025-10-28 17:44:40

All times are UTC+02:00




Post new topic  Reply to topic  [ 4 posts ] 
Author Message
PostPosted: 2006-02-19 20:02:08 
Offline

Joined: 2005-06-21 20:31:26
Posts: 80
вот скрипт, как его переделать чтоб он сбивал касты всех, даже своих друзей и гильдии??

Code:
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


Top
   
 Post subject:
PostPosted: 2006-02-19 23:31:19 
Offline

Joined: 2005-06-26 12:29:37
Posts: 65
Code:
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:
                UO.Cast(Cast,Enemy) 
                UO.DeleteJournal()


Top
   
 Post subject:
PostPosted: 2006-02-19 23:31:47 
Offline

Joined: 2005-06-26 12:29:37
Posts: 65
Ну и поубирать все добавления друзей, если они все равно не нужны.


Top
   
PostPosted: 2006-02-20 08:56:32 
Offline

Joined: 2005-02-08 12:11:08
Posts: 8
Nort777 wrote:
вот скрипт, как его переделать чтоб он сбивал касты всех, даже своих друзей и гильдии??

Code:
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



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


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 4 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 13 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited