Yoko
http://forum.yoko.com.ua/

помогите подправить
http://forum.yoko.com.ua/viewtopic.php?f=20&t=5845
Page 1 of 1

Author:  Nort777 [ 2006-02-19 20:02:08 ]
Post subject:  помогите подправить

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

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

Author:  agem [ 2006-02-19 23:31:19 ]
Post subject: 

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()

Author:  agem [ 2006-02-19 23:31:47 ]
Post subject: 

Ну и поубирать все добавления друзей, если они все равно не нужны.

Author:  BEPMYT [ 2006-02-20 08:56:32 ]
Post subject:  Re: помогите подправить

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



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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/