þçàéòå
#==============================================================
# CheckLag
#--------------------------------------------------------------
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
#==============================================================
# Healing() - memoryzed current weapon, bandageself, armed
#--------------------------------------------------------------
sub Healing()
UO.SetArm('CWeapon')
wait(500)
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
end sub
sub Bandage()
UO.BandageSelf()
wait(500)
end sub
sub Autoheal()
UO.SetArm('CWeapon')
UO.DeleteJournal()
while not UO.InJournal('need healing')
UO.DeleteJournal()
UO.BandageSelf()
while not UO.InJournal('You apply') and not UO.InJournal('You put the') and not UO.InJournal("You don't need healing")
wait(100)
wend
wend
Wait(500)
UO.Arm('CWeapon')
end sub
#==============================================================
# Arrow() - cast magic arrow on laststatus
#--------------------------------------------------------------
sub Arrow()
VAR ManaNeed=4
UO.Set('lasttarget','laststatus')
if UO.Mana>=ManaNeed then
UO.Cast('Magic Arrow','laststatus')
else
UO.Print("Low mana!")
endif
end sub
#=============================================================
# Poison() - cast poison on laststatus if target-char not
# poisoned and your char have enought mana
#--------------------------------------------------------------
sub Poison()
VAR ManaNeed=9
VAR ScrollManaNeed=4
UO.Set('lasttarget','laststatus')
If NOT UO.Poisoned('lasttarget') Then
UO.FindType('0x1F40',-1,'my')
If UO.GetQuantity('finditem')>0 Then
If UO.Mana>=ScrollManaNeed Then
UO.WaitTargetObject('lasttarget')
UO.UseObject('finditem')
UO.Print("Scroll")
Else
UO.Print("Low mana! Scroll!")
Endif
Else
If UO.Mana>=ManaNeed Then
UO.Cast('Poison','laststatus')
Else
UO.Print("Low mana!")
Endif
Endif
Else
UO.Print("Character already poisoned!")
Endif
end sub
#==============================================================
# Weaken() - cast weaken on laststatus
#--------------------------------------------------------------
sub Weaken()
VAR ManaNeed=1
UO.Set('lasttarget','laststatus')
If UO.Mana>=ManaNeed Then
UO.Cast('Weaken','laststatus')
Else
UO.Print("Low mana!")
Endif
Endif
end sub
#==============================================================
# Clumsy
#--------------------------------------------------------------
sub Clumsy()
VAR ManaNeed=1
UO.Set('lasttarget','laststatus')
If UO.Mana>=ManaNeed Then
UO.Cast('Clumsy','laststatus')
Else
UO.Print("Low mana!")
Endif
Endif
end sub
#==============================================================
# Cure() - cast cure to self from scroll, if she found
# or from spellbook
#--------------------------------------------------------------
sub Cure()
VAR ManaNeed=6
VAR ManaNeedScroll=3
If UO.Poisoned() Then
UO.FindType('0x1F37',-1,'my')
If UO.FindCount()>0 Then
If UO.Mana>=ManaNeedScroll Then
UO.WaitTargetSelf()
UO.UseObject('finditem')
UO.Print("Scroll!")
Else
UO.Print("Low mana scroll!")
Endif
Else
If UO.Mana>=ManaNeed Then
UO.Cast('Cure','self')
UO.Print("Spell!")
Else
UO.Print("Low mana spell!")
Endif
Endif
Else
UO.Print("You allready not sick!")
Endif
end sub
#==============================================================
# Dispel() - cast dispel to self
#--------------------------------------------------------------
sub Dispel()
VAR ManaNeed=1
If UO.Mana>=ManaNeed Then
UO.Cast('Dispel','self')
Else
UO.Print("Low mana spell!")
Endif
Endif
end sub
sub AnOrt()
UO.Set('lasttarget','laststatus')
UO.Cast('Dispel','laststatus')
end sub
#==============================================================
# Mass Dispel() - cast mass dispel
#--------------------------------------------------------------
sub MassDispel()
VAR ManaNeed=1
If UO.Mana>=ManaNeed Then
UO.Cast('Mass Dispel','self')
Else
UO.Print("Low mana spell!")
Endif
Endif
end sub
#==============================================================
# Magic Reflection() - cast magic reflection to self
#--------------------------------------------------------------
sub Reflect()
VAR ManaNeed=1
If UO.Mana>=ManaNeed Then
UO.Cast('Magic Reflection','self')
Else
UO.Print("Low mana spell!")
Endif
Endif
end sub
#==============================================================
# Protection() - cast protection to self
#--------------------------------------------------------------
sub Protection()
VAR ManaNeed=1
If UO.Mana>=ManaNeed Then
UO.Cast('Protection','self')
Else
UO.Print("Low mana spell!")
Endif
Endif
end sub
#==============================================================
# Reactiv()
#--------------------------------------------------------------
sub Reactiv()
VAR ManaNeed=1
If UO.Mana>=ManaNeed Then
UO.Cast('Reactive Armor','self')
Else
UO.Print("Low mana spell!")
Endif
Endif
end sub
#==============================================================
# Invis
#--------------------------------------------------------------
sub Invis()
VAR ManaNeed=1
If UO.Mana>=ManaNeed Then
UO.Cast('Invisibility','self')
Else
UO.Print("Low mana spell!")
Endif
Endif
end sub
#==============================================================
# GHeal() - cast greater heal to self from scroll, if she
# found or from spellbook
#--------------------------------------------------------------
sub GHeal()
VAR ManaNeed=11
VAR ManaNeedScroll=5
If UO.Life<UO.Str Then
UO.FindType('0x1F49',-1,'my')
If UO.FindCount()>0 Then
If UO.Mana>=ManaNeedScroll Then
UO.WaitTargetSelf()
UO.UseObject('finditem')
UO.Print("Scroll!")
Else
UO.UseType('0x0F0E','0x09DF'); total mana potion
Endif
Else
If UO.Mana>=ManaNeed Then
UO.Cast('Greater Heal','self')
UO.Print("Spell!")
Else
UO.Print("Low mana spell!")
Endif
Endif
Else
UO.Print("Your HP at maximum!")
Endif
end sub
#==============================================================
# Paralyze() - cast Paralyze to last status from scroll, if she
# found or from spellbook
#--------------------------------------------------------------
sub Paralyze()
UO.Set('lasttarget','laststatus')
UO.FindType('0x1F52',-1,'my')
If UO.GetQuantity('finditem')>0 then
if UO.Mana>=14 then
UO.WaitTargetObject('lasttarget')
UO.UseObject('finditem')
else
endif
else
if UO.Mana>=28 then
UO.Cast('Paralyze','laststatus')
else
endif
endif
end sub
#==============================================================
# Flame() - cast Flame Strike to last status from scroll,
# if she found or from spellbook
#--------------------------------------------------------------
sub Flame()
UO.Set('lasttarget','laststatus')
UO.FindType('0x1F5F',-1,'my')
If UO.GetQuantity('finditem')>0 then
if UO.Mana>=22 then
UO.WaitTargetObject('lasttarget')
UO.UseObject('finditem')
UO.Say("An Ex Por")
else
endif
else
if UO.Mana>=45 then
UO.Cast('Flame Strike','laststatus')
else
endif
endif
end sub
#==============================================================
# SFS() - crafting FlameStrike scroll
#
# Journal has been deleted!!!
#--------------------------------------------------------------
sub sFs()
UO.CancelMenu()
UO.AutoMenu('Spell Circle 7','Flamestrike')
UO.AutoMenu('Spell Circles','Seventh Circle')
Inscript()
UO.CancelMenu()
gong(2)
end sub
#==============================================================
# SRecall() - crafting Recall scroll
#
# Journal has been deleted!!!
#--------------------------------------------------------------
sub sRecall()
UO.CancelMenu()
UO.AutoMenu('Spell Circle 4','Recall')
UO.AutoMenu('Spell Circles','Fourth Circle')
Inscript()
UO.CancelMenu()
gong(2)
end sub
#==============================================================
# Total Mana
#--------------------------------------------------------------
sub dMana()
var f=0
if UO.Count("0x0f0e 0x09df") > 0 then
UO.Exec("usetype 0x0f0e 0x09df")
VAR manacnt=UO.Count("0x0f0e 0x09df") - 1
end if
end sub
#==============================================================
# Great Heal
#--------------------------------------------------------------
sub dGheal()
var f=0
if UO.Count("0x0f0e 0x09bb") > 0 then
UO.Exec("usetype 0x0f0e 0x09bb")
VAR healcnt=UO.Count("0x0f0e 0x09bb") - 1
end if
end sub
#==============================================================
# Invisibility
#--------------------------------------------------------------
sub dInvis()
if UO.Count("0x0f0e 0x0631") > 0 then
UO.Exec("usetype 0x0f0e 0x0631")
VAR cnt=UO.Count("0x0f0e 0x0631") - 1
end if
end sub
#==============================================================
# Total Refresh
#--------------------------------------------------------------
sub dRefresh()
if UO.Count("0x0f0e 0x0997") > 0 then
UO.Exec("usetype 0x0f0e 0x0997")
VAR cnt=UO.Count("0x0f0e 0x0997") - 1
end if
end sub
#==============================================================
# AntiParalyze
#--------------------------------------------------------------
sub AntiParalyze()
uo.findtype("0x0F0D", "0x0B99", "backpack")
if uo.findcount()>0 then
uo.waittargetobject("finditem")
uo.cast("Clumsy")
endif
end sub
#==============================================================
# Loot
#--------------------------------------------------------------
sub Loot()
VAR WaitTime=500
VAR Exit=0, i
DIM Loot[62]
Loot[0]=0x13B9; àë######ðäà
Loot[1]=0x143E; Ìå÷ âèêèíã
Loot[2]=0x1086; Áðàñëåòû
Loot[3]=0x1B76; Áðîíÿ Ùèò
Loot[4]=0x1416; Áðîíÿ Íàãðóäíèê
Loot[5]=0x1415; Áðîíÿ Íàãðóäíèê
Loot[6]=0x1411; Áðîíÿ Ïîíîæûÿ
Loot[7]=0x1410; Áðîíÿ Íàïëå÷íèêè
Loot[8]=0x1414; Áðîíÿ Íàðó÷è
Loot[9]=0x1412; Áðîíÿ Øëåì
Loot[10]=0x1413; Áðîíÿ Îøåéíèê
Loot[11]=0x13FE; Êàòàíà
Loot[12]=0x13FC; Àðáàëåòû
Loot[13]=0x0EED; Äåíüãè
Loot[14]=0x0F0E; Ìàíà
Loot[15]=0x0E24; áèíòû
Loot[16]=0x1F5F; ÔÑ
Loot[17]=0x0F0D;
Loot[18]=0x1F52; Ïàðàëèçû
Loot[19]=0x0F3F; Ñòðåëû
Loot[20]=0x0F3F;
Loot[21]=0x13FC;
Loot[22]=0x13FC;
Loot[23]=0x13FC;
Loot[24]=0x13FC;
Loot[25]=0x13FC;
Loot[26]=0x13FC;
Loot[27]=0x13FC;
Loot[28]=0x13FC;
Loot[29]=0x13FC;
Loot[30]=0x13FC;
Loot[31]=0x13B9; àë######ðäà
Loot[32]=0x143E; Ìå÷ âèêèíã
Loot[33]=0x1086; Áðàñëåòû
Loot[34]=0x1B76; Áðîíÿ Ùèò
Loot[35]=0x1416; Áðîíÿ Íàãðóäíèê
Loot[36]=0x1415; Áðîíÿ Íàãðóäíèê
Loot[37]=0x1411; Áðîíÿ Ïîíîæûÿ
Loot[38]=0x1410; Áðîíÿ Íàïëå÷íèêè
Loot[39]=0x1414; Áðîíÿ Íàðó÷è
Loot[40]=0x1412; Áðîíÿ Øëåì
Loot[41]=0x1413; Áðîíÿ Îøåéíèê
Loot[42]=0x13FE; Êàòàíà
Loot[43]=0x13FC; Àðáàëåòû
Loot[44]=0x0EED; Äåíüãè
Loot[45]=0x0F0E; Ìàíà
Loot[46]=0x0E21; áèíòû
Loot[47]=0x1F5F; ÔÑ
Loot[48]=0x0F0D;
Loot[49]=0x1F52; Ïàðàëèçû
Loot[50]=0x0F3F; Ñòðåëû
Loot[51]=0x0F3F;
Loot[52]=0x13FC;
Loot[53]=0x13FC;
Loot[54]=0x13FC;
Loot[55]=0x13FC;
Loot[56]=0x13FC;
Loot[57]=0x13FC;
Loot[58]=0x13FC;
Loot[59]=0x13FC;
Loot[60]=0x13FC;
Loot[61]=0x204E;
UO.SetReceivingContainer('0x400806B9'); ID ñóìêè â êîòîðóþ áóäåò
#ñêëàäûâàòüñÿ ëóò, ìîæíî óêàçàòü ñâîé áåêïàê
For i=0 to 61
Exit=0
repeat
UO.FindType(Loot[i],-1,'lastcontainer')
if UO.GetQuantity('finditem') then
UO.Grab('lastcontainer','finditem')
wait(500)
Else
Exit=1
endif
until Exit==1 OR uo.injournal("not loot")
Next
UO.UnSetReceivingContainer()
end sub
#==============================================================
# Horse
#--------------------------------------------------------------
sub Horse()
If UO.ObjAtLayer('Horse') Then
UO.useobject('self')
wait(100)
UO.WaitTargetObject('lasttarget')
UO.MSG('all kill')
Else
UO.MSG('all come')
UO.WarMode(0)
wait(100)
UO.Useobject('Horse')
UO.WarMode(1)
End If
end sub
#==============================================================
# Ñòåíêè
#--------------------------------------------------------------
sub EF()
UO.Set('lasttarget','laststatus')
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Energy Field")
end sub
sub PF()
UO.Set('lasttarget','laststatus')
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Paralyze Field")
end sub
sub WoS()
UO.Set('lasttarget','laststatus')
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
UO.Cast('Wall of Stone')
end sub
sub WoS2()
UO.Cast('Wall of Stone')
end sub
sub FF()
UO.Set('lasttarget','laststatus')
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Fire Field")
end sub
sub FFs()
UO.Cast('Fire Field','backpack')
end sub
#==============================================================
# Cêèëëû
#--------------------------------------------------------------
sub Hiding()
UO.WarMode(0)
Uo.useskill('Hiding')
end sub
sub Med()
UO.WarMode(0)
Uo.useskill('Meditation')
end sub
#==============================================================
# Recall
#--------------------------------------------------------------
sub Recall()
UO.FindType('0x1F15',-1,'my')
wait(200)
UO.Cast('Recall','finditem')
UO.FindType('0x1F14',-1,'my')
wait(200)
UO.Cast('Recall','finditem')
end sub
sub ExpDrop()
VAR i, pack='backpack',FirstBomb, FirstFlag=1, CountEX
VAR ExHP=20; 1 bomb hits
CountEX=6
UO.Print("Ùàñ ######íåååååò...")
UO.Set('lasttarget','laststatus')
For i=1 to CountEX
UO.FindType('0x0F0D','0x0B99','backpack')
If UO.GetQuantity('finditem') Then
If FirstFlag Then
FirstFlag=0
FirstBomb='finditem'
Endif
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
wait(550)
Else
UO.Print("Explosives not found!")
EndIf
Next
UO.Cast('Magic Arrow',FirstBomb)
end sub
sub ExpCast()
UO.FindType('0x0F0D','0x0B99','ground')
UO.WaitTargetObject("finditem")
UO.Cast("Magic Arrow")
end sub
Âîò ïâï ñêðèïò ,þçàéòå.