разные скрипты, есть то есть Опции

[KaPeIkA]

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

ну там лажа всякая !