Yoko

;----------------------------------------------------------------- 
;--------------------------NMY------------------------------------ 
sub chase() 
   If uo.getglobal('chase')=='On' then 
   uo.setglobal ('chase',0) 
   uo.print(' !!! -= Chase Terminated =- !!! ') 
   uo.exec('Terminate chase') 
   else 
   uo.setglobal('chase','On') 
   uo.print(' !!! -= Chasing =- !!! ') 
   endif 

  VAR target 
  target = uo.getserial('lasttarget') 

   while not uo.dead() and target<>"" and uo.getdistance(target) 
    if UO.GetDistance(target)>-1 then 
    uo.say('') 
    Chaser(target) 
    endif 
   wend 

  uo.setglobal('chase',0) 
  uo.print(' !!! -= Chasing ended =- !!! ') 
end sub 
;----------------------------------------------------------------- 
sub Chaser(Target) 
   VAR dx, dy 
While 1 
   If Target<>"" and not uo.dead() Then 
   dx=UO.GetX(Target)-UO.GetX() 
   dy=UO.GetY(Target)-UO.GetY() 
    If UO.GetDistance(Target)<0 Then 
     return 
    Endif 
    else 
     Return 
   Endif 

   If dx<>0 AND dy<>0 Then 
    If dx>0 AND dy>0 Then 
    UO.Press(40) ; DownArrow 
    Endif 

    If dx>0 AND dy<0 Then 
    UO.Press(39) ; RightArrow 
    Endif 

    If dx<0 AND dy>0 Then 
    UO.Press(37) ; LeftArrow 
    Endif 

    If dx<0 AND dy<0 Then 
    UO.Press(38) ; UpArrow 
    Endif 
   Endif 
    
   If dx<>0 AND dy==0 Then 
     If dx>0 Then 
    UO.Press(34) ; PgDown 
    Endif 

    If dx<0 Then 
    UO.Press(36) ; Home key 
    Endif 
   Endif 

   If dx==0 AND dy<>0 Then 
    If dy>0 Then 
    UO.Press(35) ; End 
    Endif 

    If dy<0 Then 
    UO.Press(33) ; PgUp 
    Endif 
   Endif 
Wend 
end sub

sub randspell()
var x
dim flood[20]
flood[0] = 'In Por Ylem'
flood[1] = 'An Ex Por'
flood[2] = 'Des Mani'
flood[3] = 'Rel Wis'
flood[4] = 'Por Ort Grav'
flood[5] = 'An Mani'
flood[6] = 'Kal Vas Flam'
flood[7] = 'In Vas Mani'
flood[8] = 'In Mani'
flood[9] = 'An Ort'
flood[10] = 'In Nox'
flood[11] = 'In Lor'
flood[12] = 'Rel Por'
flood[13] = 'In Sanct Ylem'
flood[14] = 'Por Ort Grav'
flood[15] = 'Ort Rel'
flood[16] = 'An Lor Xen'
flood[17] = 'In Jux Sanct'
flood[18] = 'An Corp'
flood[19] = 'Vas An Ort'
x = uo.random (19)
return flood[x]
end sub




sub randspell1()
var x
dim flood[20]
flood[0] = 'In Por Ylem'
flood[1] = 'An Ex Por'
flood[2] = 'Des Mani'
flood[3] = 'Rel Wis'
flood[4] = 'Por Ort Grav'
flood[5] = 'An Mani'
flood[6] = 'Kal Vas Flam'
flood[7] = 'In Vas Mani'
flood[8] = 'In Mani'
flood[9] = 'An Ort'
flood[10] = 'In Nox'
flood[11] = 'In Lor'
flood[12] = 'Rel Por'
flood[13] = 'In Sanct Ylem'
flood[14] = 'Por Ort Grav'
flood[15] = 'Ort Rel'
flood[16] = 'An Lor Xen'
flood[17] = 'In Jux Sanct'
flood[18] = 'An Corp'
flood[19] = 'Vas An Ort'
wait(15)
x = uo.random (19)
return flood[x]
end sub

sub fs1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.msg (randspell())
uo.cast ('Flame Strike','last')
repeat
   wait(50)
until uo.injournal(name+':')
uo.msg (randspell1())
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

sub paralyze1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.cast ('Paralyze','last')
repeat
   wait(50)
until uo.injournal(name+':')
uo.deletejournal()
uo.msg (randspell())
repeat
   wait(50)
until uo.injournal(name+':')
uo.msg (randspell1())
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

sub innox1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.msg (randspell())
uo.msg (randspell1())
repeat
   wait(50)
until uo.injournal(name+':')
uo.cast ('Poison','last')
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

sub strlast1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.msg (randspell())
uo.cast ('Magic Arrow','last')
repeat
   wait(50)
until uo.injournal(name+':')
uo.msg (randspell1())
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

sub strself1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.cast ('Magic Arrow','self')
repeat
   wait(50)
until uo.injournal(name+':')
uo.deletejournal()
uo.msg (randspell())
repeat
   wait(50)
until uo.injournal(name+':')
uo.msg (randspell1())
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

sub heal1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.msg (randspell())
uo.msg (randspell1())
repeat
   wait(50)
until uo.injournal(name+':')
uo.cast ('Greater Heal','self')
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

sub light1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.msg (randspell())
uo.cast ('Lightning','last')
repeat
   wait(50)
until uo.injournal(name+':')
uo.msg (randspell1())
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

sub clusm1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.cast ('Clusmy','last')
repeat
   wait(50)
until uo.injournal(name+':')
uo.deletejournal()
uo.msg (randspell())
repeat
   wait(50)
until uo.injournal(name+':')
uo.msg (randspell1())
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

sub anort1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.msg (randspell())
uo.msg (randspell1())
repeat
   wait(50)
until uo.injournal(name+':')
uo.cast ('Dispel','last')
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

sub weak1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.msg (randspell())
uo.msg (randspell1())
repeat
   wait(50)
until uo.injournal(name+':')
uo.cast ('Weaken','last')
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

sub manadr1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.cast ('Mana Drain','self')
repeat
   wait(50)
until uo.injournal(name+':')
uo.deletejournal()
uo.msg (randspell())
repeat
   wait(50)
until uo.injournal(name+':')
uo.msg (randspell1())
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

sub feebl1()
var name = uo.getname('self')
uo.fontcolor('0x03a1')
uo.cast ('Feeblemind','self')
repeat
   wait(50)
until uo.injournal(name+':')
uo.deletejournal()
uo.msg (randspell())
repeat
   wait(50)
until uo.injournal(name+':')
uo.msg (randspell1())
uo.fontcolor('0x0021')
uo.deletejournal()
end sub

cast 'Magic Arrow' self;exec hc

sub hc() ;Hide Casting Nmy
uo.deletejournal()
repeat
wait(1)
until uo.injournal(" ")
uo.msg(" :: ------- :: ")
uo.msg(" :: ------- :: ")
uo.msg(" :: ------- :: ")
end sub

uo.msg(" ")
uo.msg(" ") 
uo.msg(" ")

 
uo.msg('Kal Vas Flam')
wait(10)
UO.Cast('Lightning','laststatus')
wait(10)
uo.msg('An Ex Por')
wait(10)
uo.msg('In Nox')

#Открывает гейт и скрывает надпись
sub pechka()
Var runa = "0x403734FF"
CheckLag()
uo.waittargetobject(runa)
uo.exec("cast Gate")
repeat
until UO.InJournal('Vas Rel Por')
uo.msg (' ')
uo.msg (' ')
uo.msg (' ')
end sub