Тут сразу дана команда,какую над овписывать и комбинацию клавиш.
Код
;exec wash, CTRL + ALT + 1
sub wash()
CheckLag()
UO.FindType(0x0E20,"-1","my")
if UO.FindCount() then
uo.waittargettype(0x1008) # wash basin
uo.UseType(0x0E20) #bloody bandages
wait(1000)
CheckLag()
else
uo.print("You haven't bandages")
return
endif
end sub
;exec AnimalKill, F9
sub AnimalKill()
UO.WaitTargetObject('laststatus')
UO.msg("all attack")
Wait(1000)
UO.WaitTargetObject('laststatus')
UO.msg("all attack")
Wait(1000)
UO.CancelTarget()
end sub
sub MagicFS()
magicarrow()
wait(1500)
fs()
end sub
;exec sumhorse, CTRL + H
sub SumHorse()
UO.Cancelmenu()
UO.AutoMenu('What','Horse')
UO.WaitTargetSelf()
UO.Cast('Summ. Crea')
wait(4000)
UO.Exec ("cancelmenu")
UO.UseObject("~0x00CC")
UO.UseObject("~0x00E4")
UO.UseObject("~0x00E2")
UO.UseObject("~0x00C8")
end sub
;exec sumpolar, CTRL + B
sub sumpolar()
UO.Exec ("cancelmenu")
UO.AutoMenu('What','Polar')
UO.WaitTargetSelf()
UO.Cast('Summ. Crea')
wait(5000)
UO.Exec ("cancelmenu")
end sub
;exec Track, CTRL + T
sub Track()
UO.Exec ("cancelmenu")
UO.WarMode('flip')
wait(100)
UO.Warmode(0)
UO.UseSkill('Tracking')
end sub
;exec TrackPlayer, CTRL + ALT+ T
sub TrackPlayer()
UO.Exec ("cancelmenu")
wait(100)
UO.Warmode(0)
UO.UseSkill('Tracking')
wait(500)
UO.LDblClick(172,70)
end sub
;exec OutOfParalyze,CTRL + ALT + Z
sub OutOfParalyze()
uo.findtype("0x0F0D", "0x0B99", "backpack")
if uo.findcount()>0 then
uo.waittargetobject("finditem")
uo.cast("Magic Arrow")
end if
end sub
sub cureself()
UO.Waittargetself()
If UO.InJournal('You have been poisoned') or ('You feel sickly') then
if uo.Count('0x0F0E','0x09A6') then
uo.UseType('0x0F0E','0x09A6')
uo.exec("warmode 1")
Wait(100)
uo.attack ("lastattack")
else
uo.cast("Cure")
wait(1500)
endif
UO.DeleteJournal()
endif
If UO.InJournal('You can') then
uo.cast("Cure")
UO.DeleteJournal()
endif
end sub
;exec search, F6
sub search()
UO.WarMode('flip')
wait(100)
UO.Warmode(0)
UO.UseSkill('Detect Hidden')
end sub
;exec MagicArrow, ALT + Z
sub magicarrow()
UO.waittargetobject("lastattack")
uo.cast("Magic Arrow")
end sub
;exec fs, ALT + X
sub fs()
UO.waittargetobject("lastattack")
if uo.Count(0x1F5F) then
uo.UseObject("_0x1F5F")
else
uo.cast("Flame Strike")
endif
end sub
;exec gh, ALT + F
sub gh()
UO.waittargetself()
if uo.Count(0x1F49) then
uo.UseObject("_0x1F49")
else
uo.cast("Greater Heal")
endif
end sub
sub curse()
UO.waittargetobject("lastattack")
uo.cast("Curse")
end sub
;exec Weaken, ALT + C
sub weaken()
UO.waittargetobject("lastattack")
uo.cast("Weaken")
end sub
;exec PoisonCast, CTRL + ALT + C
sub poisoncast()
UO.waittargetobject("lastattack")
uo.cast("Poison")
end sub
;exec paralyzecast, ALT + A
sub paralyzecast()
UO.waittargetobject("lastattack")
if uo.Count(0x1F52) then
uo.UseObject("_0x1F52")
else
uo.cast("Paralyze")
endif
end sub
;exec Dispel, ALT + D
sub dispel()
UO.waittargetobject("lastattack")
if uo.Count(0x1F55) then
uo.UseObject("_0x1F49")
else
uo.cast("Dispel")
endif
end sub
sub dispelself()
UO.Waittargetself()
uo.cast("Dispel")
end sub
sub Meditation()
UO.WarMode('flip')
var Fail
FixJournalLine("concentration")
uo.useskill ("Meditation")
repeat
Wait(2500)
Fail=0
if FixJournalLine("concentration") then
uo.useskill ("Meditation")
Fail=1
endif
until not Fail
end sub
;exec Meditation2, F7
sub Meditation2()
var Fail
FixJournalLine("concentration")
UO.Warmode(0)
uo.useskill ("Meditation")
repeat
Wait(2500)
Fail=0
if FixJournalLine("concentration") then
uo.useskill ("Meditation")
Fail=1
endif
until not Fail
end sub
sub stealth()
UO.WarMode('flip')
wait(100)
UO.Warmode(0)
UO.UseSkill('Stealth')
end sub
;exec TotalMana, ALT + Q
sub TotalMana()
UO.UseType('0x0F0E','0x09DF')
uo.exec("warmode 1")
Wait(100)
uo.attack ("lastattack")
end Sub
;exec TotalRefresh, ALT + E
sub TotalRefresh()
UO.UseType('0x0F0E','0x0997')
uo.exec("warmode 1")
Wait(100)
uo.attack ("lastattack")
end Sub
;exec GreaterHeal, ALT + W
sub GreaterHeal()
UO.UseType('0x0F0E','0x09BB')
uo.exec("warmode 1")
Wait(100)
uo.attack ("lastattack")
end Sub
sub DeadlyPoison()
UO.UseType('0x0F0E','0x0998')
uo.exec("warmode 1")
Wait(100)
uo.attack ("lastattack")
end Sub
sub GreaterExplosion()
UO.UseType('0x0F0E','0x0B99')
end Sub
;exec Invisibility, ALT + R
sub Invisibility()
UO.UseType('0x0F0E','0x0631')
uo.exec("warmode 1")
Wait(100)
uo.attack ("lastattack")
end Sub
sub GreaterCure()
UO.UseType('0x0F0E','0x09A6')
uo.exec("warmode 1")
Wait(100)
uo.attack ("lastattack")
end Sub
;exec paralyzefield, CTRL + ALT+ A
;Paralyze pod nogi
sub ParalyzeField()
uo.waittargettile("400",str(uo.getx("lastattack")),str(uo.gety("lastattack")),str(uo.getz("lastattack")))
uo.cast("Paralyze Field")
end sub
;Blade spirits pod nogi
sub bladespirits()
uo.waittargettile("400",str(uo.getx("lastattack")),str(uo.gety("lastattack")),str(uo.getz("lastattack")))
uo.cast("Blade Spirits")
end sub
;exec wall, ALT + S
sub Wall()
uo.cast("Wall of Stone")
end sub
;exec WallOfStonage, CTRL + ALT + S
sub WallOfStonage()
uo.waittargettile("400",str(uo.getx("lastattack")),str(uo.gety("lastattack")),str(uo.getz("lastattack")))
uo.cast("Wall of Stone")
end sub
;exec FireField, CTRL + ALT+ F
sub FireField()
uo.waittargettile("400",str(uo.getx("lastattack")),str(uo.gety("lastattack")),str(uo.getz("lastattack")))
uo.cast("Fire Field")
end sub
;exec Healing, ALT + 1
sub Healing()
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
uo.exec("warmode 1")
Wait(100)
uo.attack ("lastattack")
end sub
;exec Equip_Bardiche, ALT + 3
sub Equip_Bardiche()
if uo.Count(0x143e) then
uo.equipt('Lhand', 0x143e)
else
uo.equipt('Lhand', 0x0F4D) # Bardiche
endif
end sub
;exec Equip_Bow, ALT + 4
sub Equip_Bow()
if uo.Count(0x13B1) then
uo.equipt('Rhand', 0x13B1)
else
uo.equipt('Rhand', 0x13FC)
endif
end sub
;exec Equip_Sword, ALT + 2
sub Equip_Sword()
uo.exec("setdressspeed 500")
uo.disarm()
wait(500)
uo.equipt('Rhand', 0x13B9)
wait(450)
Equip_Shield()
end sub
;exec To_Hid, F5
sub To_Hid()
var LastTimer, count=0
while not UO.Hidden()
if count then
Wait(3000)
count=0
endif
FixJournalLine('You have hidden')
FixJournalLine('seem to hide')
FixJournalLine('preoccupied')
# UO.FindType(0x0F0E,0x0631,-1)
# if UO.Life<UO.STR AND UO.FindCount() then
# UO.UseType(0x0F0E,0x0631) # Inviz potion
# wait(500)
# else
UO.Exec('warmode 0')
UO.UseSkill('Hiding')
LastTimer=UO.Timer()
repeat
wait(200)
until uo.InJournal('You have hidden') or uo.InJournal('seem to hide') or uo.InJournal('preoccupied') or LastTimer+35<UO.Timer()
count=count+1
Wait(2000)
# endif
wend
;exec Auto_bandages, CTRL + Backspase
sub Auto_bandages()
var sucmessage, nsucmessage, LastTimer, j, tmp_weap="set_tmp"
#uo.SetGlobal("bandages", "yes")
dim R[5]
R[0]="put the bloody bandage"
R[1]="apply the bandages"
R[2]="need healing or cure"
R[3]="interrupt"
R[4]="Unexpected"
uo.setarm(tmp_weap)
repeat
UO.FindType(0x0E21,"-1","my")
if UO.FindCount() then
for j=0 to 4
FixJournalLine(R[j])
next
UO.Exec("bandageself")
LastTimer=UO.Timer()
repeat
wait(200)
until FixJournalLine(R[0]) or FixJournalLine(R[1]) or FixJournalLine(R[2]) or uo.InJournal(R[3]) or uo.InJournal(R[4]) or LastTimer+80<UO.Timer()
if uo.InJournal(R[3]) then
uo.arm(tmp_weap)
return
endif
else
wait(1000)
CheckLag()
UO.FindType(0x0E20,"-1","my")
if UO.FindCount() then
uo.waittargettype(0x1008) # wash basin
uo.UseType(0x0E20) #bloody bandages
wait(1000)
CheckLag()
else
uo.print("You haven't bandages")
return
endif
endif
wait(250)
until uo.life==uo.STR or uo.dead()
uo.arm(tmp_weap)
#uo.UseObject("_0x1B76")
#uo.SetGlobal("bandages", "no")
uo.sound(85)
end sub
sub FixJournalLine(text)
var Position=UO.InJournal(text)-1
if Position == -1 then
Return False
endif
repeat
UO.SetJournalLine(Position, "Fixed")
Position=UO.InJournal(text)-1
until Position == -1
Return True
end sub
sub CheckLag()
var LastTimer
FixJournalLine('backpack')
LastTimer=uo.timer()
UO.Click('backpack')
repeat
wait(250)
until UO.InJournal('backpack')
if LastTimer+100<uo.timer() then
# Play_Sound(1)
Uo.Print("-- That was LAG at "+str(uo.timer()))
endif
end sub
*****************************************************************
cast 'Cure' self; CTRL + C
cast 'Dispel' self; CTRL + D
cast 'Dispel Field'; CTRL + S
cast 'Mass Dispel'; CTRL + ALT+ D
cast Recall 'Rune_To_Home'; CTRL + ALT + R
cast 'Paralyze Field'; Shift + A
cast 'Reactive Armor' self; Shift + ALT + A
cast 'Protection' self; Shift + ALT + D
cast 'Magic Reflection' self; Shift + Alt + S
На счет медетации...там надо сделать не первую медетацию,а вторую.
Вверх
