Ultima Online AOS-OD

Скрипт на авто хил

7sky — Fri, 08 Nov 2013 21:56:54 GMT

Код

sub healing()
  var i
  Var Сli1="cliloc# 0xA4E9"  while not uo.dead()

  if uo.gethp()  uo.deletejournal()
  uo.msg("[bandself")
  for i=1 to 50
  wait(200)
  if uo.injournal(Сli1) or uo.injournal("cliloc# 0xA4E7") or
uo.injournal("cliloc# 0x2D47") or uo.injournal("cliloc# 0x2D70") then
  i=50
  end if
  next
  end if
  wait(200)
  wend
  end sub

Бижа на припив

7sky — Fri, 08 Nov 2013 21:51:55 GMT

Для опытных играков - Бижа на припив
Снимает вашу боевую бижу, одевает бижу на припив (Бижа на припив - ето
бижа каторая увеличюет ефект от Strength и Agility и на каторай вписаный
такой стат - Enhance Potions и начинает припиватса банками Strength и Agility.

Код

sub sad()  repeat
  uo.removeneckless()
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Neck'))==0  repeat
  uo.unequip('Brace','0x4017CE41')
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Brace'))==0
  repeat
  uo.removeearrings()
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Ear'))==0  repeat
  uo.removering()
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Ring'))==0  repeat
  uo.equip('Neck','0x401EC00E')
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Neck'))>0  repeat
  uo.equip('Brace','0x4017CE41')
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Brace'))>0
  repeat
  uo.equip('Ear','0x400706A9')
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Ear'))>0  repeat
  uo.equip('Ring','0x40192959')
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Ring'))>0  uo.msg('[drink strength')
  wait(100)
  uo.msg('[drink agility')
  wait(100)  repeat
  uo.removeneckless()
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Neck'))==0  repeat
  uo.unequip('Brace','0x400758FF')
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Brace'))==0  repeat
  uo.removeearrings()
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Earr'))==0  repeat
  uo.removering()
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Ring'))==0  repeat
  uo.equip('Neck','0x400906C9')
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Neck'))>0  repeat
  uo.equip('Brace','0x400758FF')
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Brace'))>0  repeat
  uo.equip('Ear','0x401D497B')
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Ear'))>0  repeat
  uo.equip('Ring','0x400F3A38')
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Ring'))>0  repeat
  uo.equip('Pants','0x4012B5A3')
  wait(600)
  until uo.Hex2Int(uo.ObjAtLayer('Pants'))>0  end sub

Авто лут:

7sky — Fri, 08 Nov 2013 21:49:48 GMT

Код

sub looting()
  var corpse,i,j
  uo.set('finddistance','2')
  uo.set('distance','2')
  DIM Loot[4]
  Loot[0] = 0x0EED; # Gold
  Loot[1] = 0x0F3F; # Arrow
  Loot[2] = 0x0F0B; # Refresh
  Loot[3] = 0x0F26; # Diamond
  Loot[4] = 0x0F21; # Star Sapphire  DIM Text[4]
  Text[0] = 'Gold Coins'
  Text[1] = 'Arrows'
  Text[2] = 'Refresh'
  Text[3] = 'Diamons'
  Text[4] = 'Star Sapphires'  DIM Vars[4]
  Vars[0] = uo.gold
  Vars[1] = uo.ar
  Vars[2] = uo.count('0x0F0B')
  Vars[3] = uo.count('0x0F26')
  Vars[4] = uo.count('0x0F21')  while true
  while uo.countonground('0x2006') > 0
  if UO.Weight > 40000 then
  uo.print("Too much weight! There're "+STR(UO.Gold)+" gold coins in backpack!")
  uo.waittargettype('0x0EED')
  wait(1000)
  uo.useobject('0x40157FBF')
  wait(1000)
  goto end
  end if
  uo.findtype('0x2006','-1','ground')
  if uo.findcount() > 0 then
  corpse=uo.getserial('finditem')
  uo.print("Found "+str(uo.findcount())+" corpse(s)!")
  for i=0 to 4
  j=0
  repeat
  UO.FindType(Loot[i],-1,corpse)
  if UO.GetQuantity('finditem') then
  UO.MoveItem('finditem','0','backpack')
  uo.print("Looted: "+STR(UO.GetQuantity('finditem'))+" "+Text[i]+"! In All: "+STR(vars[i]+UO.GetQuantity('finditem')))
  wait(600)
  end if
  j = j + 1
  if j > 15 then
  goto stuck
  end if
  until uo.findcount()==0
  next
  stuck:
  uo.ignore(corpse)
  Else
  uo.print("No Corpses Beside!!!")
  end if
  end:
  wend
  wait(600)
  wend
  end sub