Доработка скрипта на тайминг

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
KyMaPPP
Posts: 3
Joined: 2010-02-15 21:38:43
Location: Тюмень
Contact:

Доработка скрипта на тайминг

Post by KyMaPPP »

С помощью этого скрипта чар сначало таймит живку а потом убивает её.
Прошу дописать, чтобы после убийства он ещё + качал на трупе Forensic Evaluation :)

Code: Select all

sub AnimalTaming()
    VAR animal = '0x00DC' # тип животного
    var COLanimal = '0x0000' # цвет животного
    uo.Set('finddistance', 8)
    Repeat
        uo.FindType(animal, COLanimal, 'ground')
        if uo.FindCount()>0 then
            uo.warmode(0)
            wait(500)
            UO.DeleteJournal()
            while not UO.InJournal('It seems|see the creature|already|rememb')
                UO.DeleteJournal()
                UO.WaitTargetObject('finditem') 
                UO.Useskill('Animal Taming')
                repeat
                    wait(100)
                until UO.InJournal('fail|It seems|already|rememb') or uo.GetX('finditem')==0
                wait(500)
            wend
            If Uo.InJournal('It seems|already') Then
                uo.say('all come')
                uo.attack('finditem')
                repeat
                    wait(100)
                until uo.dead() or uo.GetX('finditem')==0
                uo.warmode(0)
                wait(500)
            endif
        endif
        wait(500)
    Until uo.Dead()
end sub


Зарание большое спасибо!
Sphere 55R 4.0.2, Client 2.0.3
The Best Ultima Online Shard
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Доработка скрипта на тайминг

Post by Mirage »

Чтото вы многоуважаемый Мухамор не брезгуете моими скриптами с Антареса пользоваться :lol: И где же та "рассовая" ненависть? :mrgreen:
KyMaPPP
Posts: 3
Joined: 2010-02-15 21:38:43
Location: Тюмень
Contact:

Re: Доработка скрипта на тайминг

Post by KyMaPPP »

Хм...а почему я должен брезговать Вашими скриптами пользоваться?)) на Антаресе не когда не играл, но скрипты всегда брал лобо с Еко либо с форума Антареса.....
Sphere 55R 4.0.2, Client 2.0.3
The Best Ultima Online Shard
KyMaPPP
Posts: 3
Joined: 2010-02-15 21:38:43
Location: Тюмень
Contact:

Re: Доработка скрипта на тайминг

Post by KyMaPPP »

помогите плиз...там ведь не так сложно форенсик засунуть в скрипт....
Sphere 55R 4.0.2, Client 2.0.3
The Best Ultima Online Shard
Irina E
Posts: 240
Joined: 2009-06-12 20:10:00
Location: Vasa Smerti(RASToMAN) DRW

Re: Доработка скрипта на тайминг

Post by Irina E »

Code: Select all

sub AnimalTaming()
    VAR animal = '0x00DC' # тип животного
    var COLanimal = '0x0000' # цвет животного
    var body = ' ' # тут тип трупа
    uo.Set('finddistance', 8)
    Repeat
        uo.FindType(animal, COLanimal, 'ground')
        if uo.FindCount()>0 then
            uo.warmode(0)
            wait(500)
            UO.DeleteJournal()
            while not UO.InJournal('It seems|see the creature|already|rememb')
                UO.DeleteJournal()
                UO.WaitTargetObject('finditem')
                UO.Useskill('Animal Taming')
                repeat
                    wait(100)
                until UO.InJournal('fail|It seems|already|rememb') or uo.GetX('finditem')==0
                wait(500)
            wend
            If Uo.InJournal('It seems|already') Then
                uo.say('all come')
                uo.attack('finditem')
                repeat
                    wait(100)
                until uo.dead() or uo.GetX('finditem')==0
                uo.warmode(0)
                forensic()
                wait(500)
            endif
        endif
        wait(500)
    Until uo.Dead()
end sub

sub forensic()
var n, p
 uo.warmode(0)
  uo.disarm('arm')
   p=0
 for n=0 to 5
  uo.deletejournal()
    uo.waittargetground(body)
     uo.useskill('Forensic Evaluation')
  while not uo.injournal('stop|This is the|You can tell')
   wait(200)
   if p<15 then
    p=p+1
   else
    uo.sayu('stop')
    uo.waittargetground(body)
     uo.useskill('Forensic Evaluation')
     p=0
   endif
  wend
   p=0
    wait(1500)
 next
  ir()
end sub

sub ir()
 uo.ignorereset()
end sub


пробуЙ
Post Reply