Как это работает?

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Hanguk
Posts: 5
Joined: 2006-02-03 12:56:56

Как это работает?

Post by Hanguk »

Нашел скрипт на ветеренарию, незнаю что поставить в переменых подскажите плиз

Code: Select all

sub Veterinary() 
var i
var ttt
var PickAxe='0x401E70C1'
var HumanType='0x0190'
var DaemonType='0x0009'
while not uo.Dead()
while  uo.GetGraphic('self')==HumanType
uo.DisArm()
wait(500)
uo.Print('>Trying to polymorph...')
uo.Exec("waitmenu 'What do you' 'Daemon'")
uo.Cast('Polymorph')
wait(7500)
uo.UseSkill('Meditation')
wait(500)
wend
#Spirit()
while (uo.Life>uo.STR)
wait(100)
wend 
uo.Bandageself()
wait(500)
uo.UseObject(PickAxe)
uo.DeleteJournal()
i=0
repeat   
wait(500)
i=i+1
until uo.InJournal('You apply the bandages, but') or uo.InJournal('You put the bloody') or (i>10)
while uo.Count('0x0E21')<10
uo.Print('>Not enough clear bandages.')
uo.Exec("waittargettype 0x1008")
uo.Exec("usetype 0x0E20")
wait(1000)
wend
wend
end sub

sub SpiritSpeak()
var T1
var T2
T1=uo.Timer()
T2=uo.GetGlobal('spirittimer')
if abs(T1-val(T2))>600 then
uo.SetGlobal('spirittimer',str(T1))
uo.Print('>Spirit Speak.')
uo.UseSkill('Spirit Speak')
wait(3000)
end if
end sub

sub abs(x)
if x>0 then
return x
else
return -x
end if
end sub
Solaire
Posts: 163
Joined: 2005-05-21 07:12:12
Location: DRW

Re: Как это работает?

Post by Solaire »

Hanguk wrote:Нашел скрипт на ветеренарию, незнаю что поставить в переменых подскажите плиз

Code: Select all

sub Veterinary() 
var i
var ttt
var PickAxe='0x401E70C1'
var HumanType='0x0190'
var DaemonType='0x0009'
while not uo.Dead()
while  uo.GetGraphic('self')==HumanType
uo.DisArm()
wait(500)
uo.Print('>Trying to polymorph...')
uo.Exec("waitmenu 'What do you' 'Daemon'")
uo.Cast('Polymorph')
wait(7500)
uo.UseSkill('Meditation')
wait(500)
wend
#Spirit()
while (uo.Life>uo.STR)
wait(100)
wend 
uo.Bandageself()
wait(500)
uo.UseObject(PickAxe)
uo.DeleteJournal()
i=0
repeat   
wait(500)
i=i+1
until uo.InJournal('You apply the bandages, but') or uo.InJournal('You put the bloody') or (i>10)
while uo.Count('0x0E21')<10
uo.Print('>Not enough clear bandages.')
uo.Exec("waittargettype 0x1008")
uo.Exec("usetype 0x0E20")
wait(1000)
wend
wend
end sub

sub SpiritSpeak()
var T1
var T2
T1=uo.Timer()
T2=uo.GetGlobal('spirittimer')
if abs(T1-val(T2))>600 then
uo.SetGlobal('spirittimer',str(T1))
uo.Print('>Spirit Speak.')
uo.UseSkill('Spirit Speak')
wait(3000)
end if
end sub

sub abs(x)
if x>0 then
return x
else
return -x
end if
end sub

PickAxe - серийник курсанутой вещи, которую будешь брать в руки.
Post Reply