# 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