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

Доработка скрипта на тайминг
http://forum.yoko.com.ua/viewtopic.php?f=20&t=15582
Page 1 of 1

Author:  KyMaPPP [ 2010-02-15 22:06:16 ]
Post subject:  Доработка скрипта на тайминг

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


Зарание большое спасибо!

Author:  Mirage [ 2010-02-16 10:37:13 ]
Post subject:  Re: Доработка скрипта на тайминг

Чтото вы многоуважаемый Мухамор не брезгуете моими скриптами с Антареса пользоваться :lol: И где же та "рассовая" ненависть? :mrgreen:

Author:  KyMaPPP [ 2010-02-16 11:23:44 ]
Post subject:  Re: Доработка скрипта на тайминг

Хм...а почему я должен брезговать Вашими скриптами пользоваться?)) на Антаресе не когда не играл, но скрипты всегда брал лобо с Еко либо с форума Антареса.....

Author:  KyMaPPP [ 2010-02-19 08:34:22 ]
Post subject:  Re: Доработка скрипта на тайминг

помогите плиз...там ведь не так сложно форенсик засунуть в скрипт....

Author:  Irina E [ 2010-03-24 00:00:37 ]
Post subject:  Re: Доработка скрипта на тайминг

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


пробуЙ

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