Code: Select all
# You control Ultima Online client through the global class UO
# It has methods:
# UO.Print("string") - print message to the client window.
# UO.Exec("command") - execute a command. For the list of
# commands consult documentation.
# UO.Count("type",["color"]) - returns count of items of type
# UO.Say("something") - make you character say something.
# UO.Press(KeyCode[,Count[,Delay]]) - Simulate keypress.
# KeyCode - Virtual key code.
# Count - Optional. Number of keypresses.
# Delay - Time in msec to wait between keypresses.
# UO.LClick(X,Y) - Simulate left button click.
# UO.RClick(X,Y) - Simulate right button click.
# UO.LDblClick(X,Y) - Simulate left button double click.
# UO.RDblClick(X,Y) - Simulate right button double click.
# UO.Drag(X1,Y1, X2,Y2 [,amount]) - drag something.
# If you don't specify amount the whole stock is dragged.
# You can use "Insert key code" button to get virtual key code.
# And use "Pick coord" to find mouse coordinates on screen.
# Don't forget to call function Wait(time in msec) after
# using skill/spell to wait until it finishes!
# List of read-only properties:
# UO.Life, UO.Mana, UO.Stamina, UO.STR, UO.INT, UO.DEX,
# UO.Weight, UO.Armor, UO.Gold, UO.BM, UO.BP, UO.GA, UO.GS,
# UO.MR, UO.NS, UO.SA, UO.SS, UO.VA, UO.EN, UO.WH, UO.FD,
# UO.BR, UO.H, UO.C, UO.M, UO.L, UO.B, UO.AR, UO.BT
# Save script as autoload.scp to load automatically every start.
sub autostart()
UO.say(" ")
UO.say(",exec atrap")
UO.say(',exec restore')
UO.say(',exec binti')
UO.say(',exec waitfordead')
end sub
sub binti()
var t=0
while not uo.dead()
if uo.life<uo.str then
add:
if not uo.GetName('laststatus')==uo.getname('last') then
uo.click('laststatus')
uo.addobject('last','laststatus')
else
heals:
uo.bandageself()
uo.deletejournal()
uo.click('laststatus')
if uo.GetName('laststatus')==uo.getname('self') then
uo.waittargetobject('last')
end if
repeat
wait(100)
t=t+1
until uo.injournal('You put') or uo.injournal('You fail') or uo.injournal('failed...') or t>25
t=0
end if
end if
wend
end sub
sub atrap()
Uo.DeleteJournal()
REPEAT
If Uo.InJournal('You are frozen and can not move') Then
uo.msg('.Usetraped')
Uo.DeleteJournal()
Else
Wait(100)
EndIf
Until Uo.Dead()
end sub
sub restore()
var a=0
var b=0
var c=0
var d=0
var hpamount=250
a=0
b=0
c=0
d=0
repeat
if uo.gethp('self') < hpamount and a==0 then
uo.findtype('0x09F1')
uo.useobject('finditem')
a=32
uo.deletejournal()
if uo.injournal('You alredy have full hitpoints!') or uo.injournal('current state') then
a=0
end if
end if
wait(250)
if uo.gethp('self') < hpamount and b==0 then
uo.findtype('0x09CC')
uo.useobject('finditem')
b=32
uo.deletejournal()
if uo.injournal('You alredy have full hitpoints!') or uo.injournal('current state') then
b=0
end if
end if
wait(250)
if uo.gethp('self') < hpamount and c==0 then
uo.msg('.userestoration')
c=23
uo.deletejournal()
if uo.injournal('You alredy have full hitpoints!') or uo.injournal('current state') then
c=0
end if
end if
wait(250)
if uo.gethp('self') < 100 and d==0 then
uo.msg('.vitality')
d=32
uo.deletejournal()
if uo.injournal('You alredy have full hitpoints!') or uo.injournal('current state') then
d=0
end if
end if
wait(250)
if a>0 then
a=a-1
end if
if b>0 then
b=b-1
end if
if c>0 then
c=c-1
end if
if d>0 then
d=d-1
end if
until uo.dead()
end sub
sub ham()
uo.useobject('0x400A3AFB')
wait(100)
uo.useobject('0x4006B3B7')
wait(100)
end sub
sub poison()
var la=uo.ObjAtLayer('Rhand')
uo.findtype('0x1831')
if not uo.poisoned(la) then
uo.waittargetobject(la)
uo.useobject('finditem')
wait(1000)
else
wait(100)
end if
end sub
sub Recall()
Dim gumpreturn[16]
gumpreturn[1]="0x0014"
gumpreturn[2]="0x0016"
gumpreturn[3]="0x0018"
gumpreturn[4]="0x001A"
gumpreturn[5]="0x001C"
gumpreturn[6]="0x001E"
gumpreturn[7]="0x0020"
gumpreturn[8]="0x0022"
gumpreturn[9]="0x0024"
gumpreturn[10]="0x0026"
gumpreturn[11]="0x0028"
gumpreturn[12]="0x002A"
gumpreturn[13]="0x002C"
gumpreturn[14]="0x002E"
gumpreturn[15]="0x0030"
gumpreturn[16]="0x0032"
UO.Recall('0x4012A558',gumpreturn[1])
wait(1000)
endsub
sub detecth()
uo.usetype('0x183C','0x0447')
end sub
sub dispel()
uo.usetype('0x183C','0x0427')
end sub
sub port()
var p
uo.set('finddistance','3')
Dim port[1]
port[0]=0x0F6C;mazais
port[1]=0x0DDA;lielais
FOR p=0 TO 1
uo.findtype(port[p],"-2","ground")
if uo.findcount() > 0 then
UO.useobject("finditem")
Wait(100)
END if
next
end sub
sub magic()
uo.findtype('0x1086','0x0445')
uo.useobject('finditem')
end sub
sub archpoison()
uo.usetype('0x1832','0x0487')
end sub
sub waitfordead()
repeat
uo.findtype('0x2006','-1','ground')
if uo.findcount() and uo.getdistance('finditem') < 2 then
uo.useobject('finditem')
loot1()
uo.findtype('0x2006','-1','ground')
uo.ignore('finditem')
wait(100)
else
wait(200)
end if
until uo.dead()
end sub
sub Loot1()
VAR i,Exit
DIM LootingItem[98]
LootingItem[1] = 0x13B3 ## - cub
LootingItem[2] = 0x0f47 ## - battle axe
LootingItem[3] = 0x13AF ## - war akse
LootingItem[4] = 0x1B7A ## - 6it s dereva
LootingItem[5] = 0x0F60 ## - sword
LootingItem[6] = 0x13AF ## - war akse
LootingItem[7] = 0x13FE ## - katana
LootingItem[8] = 0x0DF0 ## - staf
LootingItem[9] = 0x0F4B ## - duble axe
LootingItem[10] = 0x35B7 ## - savage
LootingItem[11] = 0x0F45 ## - zironik
LootingItem[12] = 0x13BF ## - chanmail grud'
LootingItem[13] = 0x13BB ## - chanmail 6lem chain
LootingItem[14] = 0x13BE ## - chanmail nogi
LootingItem[15] = 0x1B7B ## - kruglij 6it
LootingItem[16] = 0x0F5D ## - barbar rage
LootingItem[17] = 0x35B2 ## - heroes blade
LootingItem[18] = 0x144F ## - bone
LootingItem[19] = 0x1451 ## - bone
LootingItem[20] = 0x1452 ## - bone
LootingItem[21] = 0x1450 ## - bone
LootingItem[22] = 0x144E ## - bone
LootingItem[23] = 0x1BC4 ## - bone
LootingItem[24] = 0x1515 ## - earth cloak
LootingItem[25] = 0x1415 ## - plate grut' ARMOR plate
LootingItem[26] = 0x1B76 ## - 6it heater
LootingItem[27] = 0x1412 ## - 6lem
LootingItem[28] = 0x1414 ## - ruki
LootingItem[29] = 0x1410 ## - ple4i
LootingItem[30] = 0x1413 ## - 6eja
LootingItem[31] = 0x13B1 ## - bow
LootingItem[32] = 0x1411 ## - platenogi
LootingItem[33] = 0x1541 ## - sash
LootingItem[34] = 0x0E24 ## - kristali
LootingItem[35] = 0x140E ## - 6lem ringmail
LootingItem[36] = 0x13F0 ## - nogi
LootingItem[37] = 0x13EE ## - ple4i
LootingItem[38] = 0x13EB ## - gloves
LootingItem[39] = 0x13EC ## - grut'
LootingItem[40] = 0x1B74 ## - kite 6eld
LootingItem[41] = 0x1C06 ## - earth chest
LootingItem[42] = 0x13DB ## - student grut' kozha studded
LootingItem[43] = 0x13D6 ## - student 6eja
LootingItem[44] = 0x13D4 ## - student ple4i
LootingItem[45] = 0x13D5 ## - student gloves
LootingItem[46] = 0x1DB9 ## - student 6lem
LootingItem[47] = 0x13DA ## - student nogi
LootingItem[48] = 0x183A ## - paraliz potion
LootingItem[49] = 0x1714 ## - earth
LootingItem[50] = 0x35AA ## - earth
LootingItem[51] = 0x170D ## - earth sand
LootingItem[52] = 0x1406 ## - bone crusher
LootingItem[53] = 0x13E5 ## - earth bikses
LootingItem[54] = 0x13BD ## - full fire
LootingItem[55] = 0x1C08 ##
LootingItem[56] = 0x1B78 ##
LootingItem[57] = 0x171A ##
LootingItem[58] = 0x0DF2 ##
LootingItem[59] = 0x35B8 ##
LootingItem[60] = 0x1515 ## - full air
LootingItem[61] = 0x144F ##
LootingItem[62] = 0x1414 ##
LootingItem[63] = 0x1539 ##
LootingItem[64] = 0x170B ##
LootingItem[65] = 0x140E ##
LootingItem[66] = 0x35AB ##
LootingItem[67] = 0x1541 ## - sash
LootingItem[68] = 0x1400 ## - cryss
LootingItem[69] = 0x13BC ## - poison nogi OTHER ITEMS
LootingItem[70] = 0x1451 ## - bone helm
LootingItem[71] = 0x170D ## - sandali
LootingItem[72] = 0x152E ## - pants
LootingItem[73] = 0x1515 ## - clock
LootingItem[74] = 0x1F03 ## - clock
LootingItem[75] = 0x1451 ## - darkmagic, fire t. bone hel,m
LootingItem[76] = 0x1452 ## -
LootingItem[77] = 0x1450 ## -
LootingItem[78] = 0x144E ## -
LootingItem[79] = 0x1515 ## -
LootingItem[80] = 0x13BC ## -
LootingItem[81] = 0x1EFD ## -
LootingItem[82] = 0x1713 ## -
LootingItem[83] = 0x13EB ## -
LootingItem[84] = 0x1BC3 ## -
LootingItem[85] = 0x170F ## -
LootingItem[86] = 0x35A9 ## -
LootingItem[87] = 0x13BD ## -
LootingItem[88] = 0x183D ## -
LootingItem[89] = 0x1832 ## -
LootingItem[90] = 0x1F4C ## -
LootingItem[91] = 0x183E ## -
LootingItem[92] = 0x183D ## -
LootingItem[93] = 0x13B1 ## -
LootingItem[94] = 0x1B78 ## -
LootingItem[95] = 0x1F03 ## -
LootingItem[96] = 0x1832 ## -
LootingItem[97] = 0x1C04 ## - siski
LootingItem[98] = 0x0EFA ## book
UO.SetReceivingContainer('0x40126158') ;ID backpacka
For i=1 to 98
Exit=0
repeat
UO.FindType(LootingItem[i],-1,'lastcontainer')
if UO.GetQuantity('finditem') then
UO.Grab('0','finditem')
wait(1690)
Else
Exit=1
endif
until Exit==1 OR uo.injournal("loot")
Next
UO.UnSetReceivingContainer()
end sub