Code:
sub refresh()
var stam=10
while not uo.dead()
If uo.stamina < stam Then
If uo.Count('0x0F0B') > 0 Then
uo.Msg ("[drink refresh")
Wait(500)
EndIf
EndIf
Wait(500)
wend
end sub
sub Heal()
var hp=150
while not uo.dead()
If UO.Life < hp Then
If uo.Count('0x0F0C') > 0 Then
uo.Msg ("[drink heal")
Wait(500)
EndIf
EndIf
Wait(500)
wend
end sub
sub go()
uo.dress('1')
uo.arm('5')
Wait(1000)
uo.arm('5')
end sub
sub Redy()
uo.setdressspeed('800')
uo.setdress('1')
uo.setarm('5')
end sub
sub Hl()
if not UO.waiting() then
UO.Exec("cast Heal self")
end if
if uo.injournal("cliloc# 0xA3A1") then
UO.Exec("cast Heal self")
wait(100)
uo.deletejournal()
end if
end sub
sub Cure()
if not UO.waiting() then
UO.Exec("cast Cure self")
end if
if uo.injournal("cliloc# 0xA3A1") then
UO.Exec("cast Cure self")
wait(100)
uo.deletejournal()
end if
end sub
sub Bless()
if not UO.waiting() then
UO.Exec("cast Bless self")
end if
if uo.injournal("cliloc# 0xA3A1") then
UO.Exec("cast Bless self")
wait(100)
uo.deletejournal()
end if
end sub
sub Invisibility()
if not UO.waiting() then
UO.Exec("cast Invisibility self")
end if
if uo.injournal("cliloc# 0xA3A1") then
UO.Exec("cast Invisibility self")
wait(100)
uo.deletejournal()
end if
end sub
Sub Arrow()
uo.cast('Magic Arrow','last')
if uo.injournal('cliloc# 0xA3A1') then
uo.cast('Magic Arrow','lastattack')
uo.deletejournal()
endif
endsub
Sub Energy()
uo.cast('Energy Bolt','last')
if uo.injournal('cliloc# 0xA3A1') then
uo.cast('Energy Bolt','lastattack')
uo.deletejournal()
endif
endsub
Sub Curse()
uo.cast('Curse','last')
if uo.injournal('cliloc# 0xA3A1') then
uo.cast('Curse','lastattack')
uo.deletejournal()
endif
endsub
Sub Weaken()
uo.cast('Weaken','last')
if uo.injournal('cliloc# 0xA3A1') then
uo.cast('Weaken','lastattack')
uo.deletejournal()
endif
endsub
Sub lightning()
uo.cast('Lightning','last')
if uo.injournal('cliloc# 0xA3A1') then
uo.cast('Lightning','lastattack')
uo.deletejournal()
endif
endsub
Sub Harm()
uo.cast('Harm','last')
if uo.injournal('cliloc# 0xA3A1') then
uo.cast('Harm','lastattack')
uo.deletejournal()
endif
endsub
Sub Explosion()
uo.cast('Explosion','last')
if uo.injournal('cliloc# 0xA3A1') then
uo.cast('Explosion','lastattack')
uo.deletejournal()
endif
endsub
Sub Flame()
uo.cast('Flame Strike','last')
if uo.injournal('cliloc# 0xA3A1') then
uo.cast('Flame Strike','lastattack')
uo.deletejournal()
endif
endsub
sub fireball()
if not uo.waiting() then
UO.exec("cast 'Fireball' lasttarget")
end if
if (UO.InJournal('cliloc# 0xA3A1') or UO.InJournal('cliloc# 0xAB74')) then
UO.exec("cast 'Fireball' ")
UO.DeleteJournal()
end if
end sub
sub pripiva()
repeat
uo.removeneckless()
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Neck'))==0
repeat
uo.unequip('Brace')
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Brace'))==0
repeat
uo.removering()
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Ring'))==0
repeat
uo.removeearrings()
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Ear'))==0
repeat
uo.equip('Neck','0x4003A883') # ID ???????? ? ???????!
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Neck'))>0
repeat
uo.equip('Brace','0x40063EB9') # ID ??????? ? ???????!
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Brace'))>0
repeat
uo.equip('Ear','0x400F9C5F') # ID ??????? ? ???????!
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Ear'))>0
repeat
uo.equip('Ring','0x40067D8C') # ID ?????? ? ???????!
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Ring'))>0
uo.msg('[drink strength')
uo.msg('[drink agility')
wait(100)
repeat
uo.removeneckless()
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Neck'))==0
repeat
uo.unequip('Brace')
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Brace'))==0
repeat
uo.removering()
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Ring'))==0
repeat
uo.removeearrings()
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Ear'))==0
repeat
uo.equip('Neck','0x400425F3') # ID ???????? ??????!
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Neck'))>0
repeat
uo.equip('Brace','0x40068A12') # ID ???? ? ?????!
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Brace'))>0
repeat
uo.equip('Ear','0x40089BAE') # ID ??????? ? ?????!
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Ear'))>0
repeat
uo.equip('Ring','0x40064A24') # ID ??????-?? ?????? ? ?????!
wait(100)
until uo.Hex2Int(uo.ObjAtLayer('Ring'))>0
end sub
sub Bones()
var k
uo.set('finddistance','2')
uo.set('distance','2')
DIM Bones[8]
Bones[0] = 0x0ECA
Bones[1] = 0x0ECB
Bones[2] = 0x0ECC
Bones[3] = 0x0ECD
Bones[4] = 0x0ECE
Bones[5] = 0x0ECF
Bones[6] = 0x0ED0
Bones[7] = 0x0ED1
Bones[8] = 0x0ED2
while true
for k=0 to 8
while uo.countonground(Bones[k],'0x0000') > 0
uo.findtype(Bones[k],'0x0000','ground')
repeat
# uo.waittargetground('Bones[k]')
uo.waittargetobject("finditem")
uo.usetype("0x0F52")#здесь вставляем тип оружия которым будем резать
wait(1000)
until uo.countonground('Bones[k]') == 0
wend
wait(100)
next
wend
end sub