Цитата
sub autostart()
end sub
Sub autotraped()
xenofex:
If UO.InJournal('frozen') Then
wait(50)
uo.msg('.usetraped')
wait(50)
UO.DeleteJournal()
Endif
wait (50)
goto xenofex
endsub
sub ham()
Var ham1='0x400B2B0D'
Var ham2='0x400E263D'
UO.UseObject(ham1)
wait (100)
UO.UseObject(ham2)
end sub
sub blsesed()
Var ham1='0x4012A7AB'
Var ham2='0x4004AA38'
UO.UseObject(ham1)
wait (100)
UO.UseObject(ham2)
end sub
sub fallen()
uo.useobject (0x4007E2B2)
wait (50)
uo.useobject (0x4000C713)
wait (50)
uo.usetype (0x1837)
uo.waittargetobject (0x400CC36B)
uo.msg('.resends')
end sub
sub dager()
uo.useobject (0x4001FCB9)
wait (50)
uo.useobject (0x4001FCB9)
wait (50)
uo.usetype (0x1837)
uo.waittargetobject (0x4001FCB9)
uo.msg('.resends')
end sub
sub zivs()
uo.usetype ('0x09CC', '0x0026')
end sub
sub Sort_Regs()
var Sunduk=0x4011ABF7
var Sunduk2=0x40106EA7
var bag=0x0E76
var i, bagg
DIM reg[7]
reg[0]=0x0F88
reg[1]=0x0F85
reg[2]=0x0F7A
reg[3]=0x0F86
reg[4]=0x0F86
reg[5]=0x0F7B
uo.FindType(bag,'-1',Sunduk)
while uo.FindCount()
if uo.FindCount() then
uo.moveitem('finditem')
wait(500)
uo.UseObject('finditem')
wait(500)
bagg=uo.GetSerial('finditem')
for i=0 to 7
uo.FindType(reg[i],'-1',bagg)
if uo.FindCount(0x0F88) then
uo.moveitem('finditem','all',Sunduk2)
wait(1000)
end if
wait(500)
next
end if
uo.FindType(bag,'-1',Sunduk)
wend
end sub
sub mass()
uo.usetype ('0x1832', '0x0487')
end sub
sub necropotion()
uo.usetype ('0x183C', '0x0427')
end sub
sub archdetectpotion()
uo.usetype ('0x183C', '0x0447')
end sub
sub autoheal()
repeat
If UO.STR>UO.Life Then
UO.BandageSelf()
wait(3000)
endif
until uo.dead()
end sub
sub pacelt()
uo.set('finddistance','3')
UO.FindType( -1 , -1 ,'ground')
If UO.FindCount() then
uo.moveitem('finditem')
uo.ignore('finditem')
Wait(200)
Endif
Wait(250)
end sub
sub fallenn()
uo.useobject (0x40007422)
wait (50)
uo.useobject (0x400DF527)
wait (50)
uo.usetype (0x1837)
uo.waittargetobject (0x40007422)
uo.msg('.resends')
end sub
Sub Looting()
var i,n
Dim Loot[84]
Loot[0]=0x0EFA; book1 fire
Loot[1]=0x1B7A; book2 Laith
Loot[2]=0x0EFA; book3 Destryction
Loot[3]=0x170D; Angel Sandals
Loot[4]=0x13D6; Ashuter George
Loot[5]=0x13D4; Ashuter Lokti
Loot[6]=0x13CB; Ashuter Nogi
Loot[7]=0x13DB; Ashuter Grudak
Loot[8]=0x1DB9; Ashuter Cap
Loot[9]=0x13DB; Ashuter Tunic
Loot[10]=0x13C6; Ashuter Gloves
Loot[11]=0x13EE; KH Ple4i
Loot[12]=0x13EB; KH Ruki
Loot[13]=0x13EC; KH Tunic
Loot[14]=0x140E; KH Helm
Loot[15]=0x13F0; KH Nogi
Loot[16]=0x1542; HP Sash
Loot[17]=0x1515; Ashuter Cloak
Loot[18]=0x2647; HL Legs
Loot[19]=0x2646; HL Helm
Loot[20]=0x2643; HL Gloves
Loot[21]=0x2641; HL Tunic
Loot[22]=0x2658; HL Ple4i
Loot[23]=0x2B01; Paralyze Shield
Loot[24]=0x2B01; Zombie Shield
Loot[25]=0x2B01; Diablo Shield
Loot[26]=0x2646; Quake Helm
Loot[27]=0x2643; Quake Gloves
Loot[28]=0x2641; Quake Tunic
Loot[29]=0x2647; Quake Legs
Loot[30]=0x1BC5; Do Shield
Loot[31]=0x1530; Zombie Cloak
Loot[32]=0x2B01; Quake Shield
Loot[33]=0x170D; Angel Sandals
Loot[34]=0x1B76; KH SIELD
Loot[35]=0x1415; FULL KH
Loot[36]=0x1411; FULL KH
Loot[37]=0x1414; FULL KH PLATE
Loot[38]=0x1412; FULL KH
Loot[39]=0x1C08; FULL KH
Loot[40]=0x1413; FULL KH PLATE
Loot[41]=0x1BC3; dm shield
Loot[42]=0x13BC; dm
Loot[43]=0x1713; dm
Loot[44]=0x35A9; dm
Loot[45]=0x13EB; dm
Loot[46]=0x1451; ornante crow
Loot[47]=0x13D5; gloves of nobility
Loot[48]=0x13D6; gorget fallen
Loot[49]=0x1549; dvine
Loot[50]=0x1F03; robe
Loot[51]=0x0F4B; pu6ka
Loot[52]=0x0F4D; pu6ka
Loot[53]=0x35B5; knuckle
Loot[54]=0x13FE; katana
Loot[55]=0x0F51; dagger
Loot[56]=0x13BE; black rock chanmail
Loot[57]=0x13BF; black rock chanmail
Loot[58]=0x13BB; black rock chanmail
Loot[59]=0x1B78; arcane shield
Loot[60]=0x1541; sash
Loot[61]=0x0DF0; holy staff
Loot[62]=0x1412; helm nishight
Loot[63]=0x13F0; black rock ringmail nogi
Loot[64]=0x13EC; black rock ringmail grudj
Loot[65]=0x13EE; black rock ringmail plechi
Loot[66]=0x13EB; black rock ringmail perchatki
Loot[67]=0x140E; black rock nose helm ringmail
Loot[68]=0x1B76; black rock platemail shield
Loot[69]=0x1411; black rock platemail nogi
Loot[70]=0x1415; black rock platemail grudj
Loot[71]=0x1414; black rock ruki platemail
Loot[72]=0x1413; black rock platemail goeget
Loot[73]=0x1412; black rock platemail helm
Loot[74]=0x1087; serezhki hp
Loot[75]=0x0F36; amul hp
Loot[76]=0x1086; braslet hp
Loot[77]=0x3608; bladed bow
Loot[78]=0x13DA; terethan nogi
Loot[79]=0x13DB; terethan grud
Loot[80]=0x1DB9; terethan shlem
Loot[81]=0x13D5; terethan perchatki
Loot[82]=0x1714; earth shlapa
Loot[83]=0x143A; berserker moul
Loot[84]=0x0EFA; book
i = 1000
FOR n=1 TO 84
uo.findtype(Loot[n],"-1","lastcontainer")
if uo.findcount() > 0 then
UO.grab(0, "finditem")
uo.print("Found "+str(uo.findcount()))
Wait(i)
END if
next
end sub
sub fallennn()
uo.useobject (0x40097E08)
wait (50)
uo.useobject (0x40097B6C)
wait (50)
uo.usetype (0x1837)
uo.waittargetobject (0x40097E08)
uo.msg('.resends')
end sub
sub airbook()
uo.usetype ('0x0EFA', '0x0432')
end sub
sub firebook()
uo.usetype ('0x0DF2', '0x0170')
end sub
sub reccal()
uo.useobject(0x40047EEE)
wait(100)
uo.lclick(260,305)
endsub
sub cape()
uo.useobject('0x40002DFF')
uo.useobject('0x400110A3')
end sub
sub sets()
uo.useobject ('0x40002419')
end sub
sub loks()
uo.usetype ('0x0F51')
end sub
sub paralize()
uo.usetype ('0x183A')
uo.waitfortarget()
uo.lasttarget()
end sub
sub Stamina()
Uo.DeleteJournal()
REPEAT
If Uo.InJournal('You are too fatigued to move') Then
uo.msg('.drink refresh')
Uo.DeleteJournal()
Else
Wait(100)
EndIf
Until Uo.Dead()
END SUB
sub zirgs()
uo.usetype ('0x2121')
end sub
sub resti ()
uo.usetype ('0x1832')
end sub
sub poison()
uo.usetype ('0x0F0A')
wait (50)
uo.usetype ('0x13AF')
end sub
sub main()
uo.set('finddistance','3')
UO.FindType( -1 , -1 ,'ground')
If UO.FindCount() then
uo.moveitem('finditem')
uo.ignore('finditem')
Wait(200)
Endif
Wait(250)
end sub
sub Zer()
UO.Exec("cast 'Magic Reflection'self")
end sub
sub GH()
UO.Msg (".drink Heal")
end if
end sub
sub reflect()
UO.Msg (".drink reflection")
end if
end sub
sub invis()
UO.Msg (".drink invis")
end if
end sub
sub rest()
UO.Msg (".drink rest")
end if
end sub
sub bless()
UO.Exec("cast 'Bless'self")
end sub
sub protect()
UO.Exec("cast 'Protection'self")
end sub
sub heal()
UO.Exec("cast 'Heal'self")
end sub
sub cure()
UO.Exec("cast 'Cure'self")
end sub
sub Great()
UO.Exec("cast 'Greater Heal'self")
end sub
sub det()
uo.warmode(0)
uo.useskill('Detect Hidden')
end sub
sub paralizefie()
uo.exec("cast 'Paralyze Field'")
end sub
sub stenka()
uo.exec("cast 'Wall of Stone'")
end sub
sub iinvis()
UO.Exec("cast 'Invisibility'self")
end sub
sub FS()
uo.cast("Flame Strike" , 'last')
end sub
sub laita()
uo.cast("Lightning" , 'last')
end sub
sub poison()
uo.cast("Poison" , 'last')
end sub
sub paralize()
uo.cast("Paralyze" , 'last')
end sub
sub des()
uo.cast("Weaken" , 'last')
end sub
sub fire()
uo.cast("Fireball" , 'last')
end sub
sub bb()
UO.Msg (".drink str")
end if
sub angrav()
uo.cast("Dispel Field")
end sub
sub massdispel()
uo.cast("Mass Dispel")
end sub
sub invaspor()
uo.cast("Earthquake")
end sub
sub bolt()
uo.cast("Energy Bolt" , 'last')
end sub
sub arrow()
uo.cast("Magic Arrow" , 'last')
end sub
sub boom()
uo.cast("Explosion" , 'last')
end sub
sub meteor()
uo.cast("Meteor Swarm")
end sub
sub tele()
uo.cast("Teleport" , 'last')
end sub
Sub horsa()
if not UO.ObjAtLayer('Horse') then
UO.UseObject(UO.GetSerial('lasthorse'))
else
UO.UseObject('self')
UO.WaitTargetObject('lastattack')
UO.Say('ALL STOP')
UO.Say('ALL KILL')
end if
end sub
sub loot()
var n
Dim item[10]
item[1]=0x1413 ; Gorget
item[2]=0x1415 ; Telo
item[3]=0x1411 ; Nogi
item[4]=0x1410 ; Plechi
item[5]=0x1414 ; Perchatki
item[6]=0x143E ; Alebardiii
item[7]=0x1F52 ; Paralize
item[8]=0x13B1 ; Bow
item[9]=0x13B5 ; Scmitar
item[10]=0x13FE ; K
uo.waittargetobject("lastcorpse")
uo.usetype("dagger")
wait(1000);unknown optimal time for user
uo.set("finddistance","3");number between 1-8
for n=1 to 10
uo.findtype(item[n],-1,"ground")
while uo.findcount()
uo.moveitem("finditem")
wait(200)
uo.findtype(item[n],-1,"ground")
wend
next
end sub
sub say_life()
var p
var q
var k
var s
p=uo.life
k=uo.armor
s=uo.str
repeat
if uo.life <> p then
q=p
p=uo.life
if p<q then
uo.fontcolor('0x0003')
UO.msg("Life is "+str(p) +" Damage= - " +str(q-p))
else
uo.fontcolor('0x000d')
UO.msg("Life is "+str(p) +" (+"+str(p-q)+"(")
end if
end if
IF UO.armor <> k then
k=uo.armor
uo.fontcolor('0x0017')
UO.msg("Armor = "+str(k))
end if
IF UO.str <> s then
s=uo.str
uo.fontcolor('0x002b')
UO.msg("Strange = "+str(s))
end if
wait(30)
until false
# until uo.dead()
\\ Vl@dI. Upgrade L@W.
end sub
sub dager()
uo.usetype ('0x108A', '0x078C')
end if
uo.usetype ('0x1B78', '0x086A')
end sub
sub book1()
uo.usetype ('0x0EFA', '0x087D')
end sub
sub shield()
uo.usetype ('0x108A', '0x05B8')
end sub
sub book2()
uo.usetype ('0x0EFA', '0x0A22')
end sub
sub book3()
uo.usetype ('0x0EFA', '0x0446')
end sub
sub dogon()
var script='dogon' ; lowercase
if uo.getglobal(script)=='On' then
uo.setglobal(script,0)
uo.print(' !!! -= '+script+' Terminated =- !!! ')
uo.exec('terminate '+script)
else
uo.setglobal(script,'On')
uo.print(' !!! -= '+script+' =- !!! ')
var target
target=uo.getserial('lastattack')
uo.say('')
while uo.life>0 and target<>""
wait(100)
if uo.getdistance(target)>1 then
run(target)
endif
wend
uo.setglobal(script,0)
uo.print(' !!! -= '+script+' Terminated =- !!! ')
endif
endsub
sub run(targ)
var dx, dy
while 1
if targ<>"" and uo.life>0 then
if uo.getdistance(targ)<2 then
return
endif
dx=UO.GetX(targ)-UO.GetX()
dy=UO.GetY(targ)-UO.GetY()
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
endsub
sub chase()
VAR target
If UO.Targeting() Then
UO.CancelTarget()
Endif
UO.Print( 'Please, choice of enemy:' )
UO.AddObject( 'enemy' )
While UO.Targeting()
wait(100)
Wend
target = uo.getserial('enemy')
while not uo.dead() and target<>""
if UO.GetDistance(target)>1 then
Chaser(target)
endif
wait(100)
wend
end sub
sub Chaser(targ)
var dx, dy
while 1
if targ<>"" and uo.life>0 then
if uo.getdistance(targ)<2 then
return
endif
dx=UO.GetX(targ)-UO.GetX()
dy=UO.GetY(targ)-UO.GetY()
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 color2()
UO.Print( "??????? ?????:-)" )
DIM color[22]
var a
color[1] = 0x0003
color[2] = 0x0008
color[3] = 0x000d
color[4] = 0x0012
color[5] = 0x0017
color[6] = 0x001c
color[7] = 0x0021
color[8] = 0x0026
color[9] = 0x002b
color[10] = 0x0030
color[11] = 0x0035
color[12] = 0x003a
color[13] = 0x003f
color[14] = 0x0044
color[15] = 0x0049
color[16] = 0x004e
color[17] = 0x0053
color[18] = 0x0058
color[19] = 0x005d
color[20] = 0x0062
color[21] = 0x0386
color[22] = 0x03e4
while UO.Life>-10
for a=1 to 22
start:
wait(10)
if UO.InJournal(UO.GetName()+":") then
UO.Exec("fontcolor "+str(color[a]))
UO.DeleteJournal()
wait(10)
else
end if
next
wait(5)
wend
end sub
sub parl()
uo.usetype('0x2D2F')
end sub
sub katn()
uo.usetype('0x27A8')
end sub
ну там лажа всякая !