спаринг типов

Irina E · Post by **Irina E** » 2010-02-02 12:02:52

sub maina() 
  VAR E, t, MinHP=70, G=true, L, Weap='0x0EC2' ; type of weapon
  var bandages = '0x0E21'
  var oms = '0x0005743C'

  uo.Print('Выбери врага: ')
  uo.Exec('addobject Foe')
  while uo.Targeting()
  wait(100)
  wend
  uo.Print('Выбери миску: ')
  uo.Exec('addobject Miska')
  while uo.Targeting()
  wait(100)
  wend

  UO.Attack('Foe') 
  UO.DeleteJournal() 
  while G==true 
  wait(500) 
  if not UO.ObjAtLayer("Rhand") then 
  UO.FindType(Weap,-1,'backpack') 
  if UO.FindCount() then 
  UO.Equip('Rhand','finditem') 
  endif 
  endif 
  if UO.InJournal("stay") or UO.Life<MinHP then 
  UO.Say("stay") 
  t=UO.Timer() 
  repeat 
  E=true 
  UO.Exec('warmode 0') 
  wait(500) 
  if UO.WarMode()==1 then 
  E=false 
  UO.Say("stay") 
  t=UO.Timer() 
  endif 
  until E==true and UO.Timer()>=t+30 
  CheckLag() 
  UO.SetArm('myarm') 
  while UO.Life<UO.Str 
  L=UO.Life 
  UO.Exec('warmode 0') 
  DelJ("the") 
  t=UO.Timer() 
uo.bandageself()
  repeat 
  Wait(500) 
  until UO.InJournal("You put") or UO.InJournal("barely help") or UO.InJournal("need healing") or UO.Life<L or UO.Timer()>t+100 
  CheckLag() 
  if UO.Life<L then 
  UO.Say("stay") 
  endif 
  wend 
  CheckBandage() 
  UO.Arm('myarm') 
  if not UO.InJournal("iiaoaee!") then 
  UO.Say("go") 
  repeat 
  wait(100) 
  until UO.InJournal("go") or UO.Life<UO.Str 
  DelJ(UO.GetName()+": go") 
  repeat 
  wait(100) 
  until UO.InJournal("go") or UO.Life<UO.Str 
  else 
  UO.Say("go") 
  endif 
  UO.DeleteJournal() 
  UO.Attack('Foe') 
  endif 
  if UO.Dead() then 
  UO.Exec('warmode 1') 
  endif 
  wend 
end sub 

sub DelJ(s) 
  VAR MN=UO.InJournal(s) 
  while MN > 0  
  UO.SetJournalLine(MN-1, '')  
  MN=UO.InJournal(s) 
  wend 
end sub 

sub Shield() 
  var shield='0x1B76' 
  uo.FindType(shield,'-1','backpack') 
  if uo.FindCount() then 
  uo.UseObject('finditem') 
  end if 
end sub

sub Walk(x,y) 
go: 
while not uo.getX() == x || not uo.getY() == y 
if not uo.getX() == x then 
if uo.getX() > x then 
uo.press(36) 
else 
uo.press(34) 
endif 
endif 
if not uo.getY() == y && uo.getX() == x then 
if uo.getY() > y then 
uo.press(33) 
else 
uo.press(35) 
endif 
endif 
checklag() 
wend 
checklag() 
if not uo.getX() == x || not uo.getY() == y then 
goto go 
endif 
endsub

sub CheckLag() 
  DelJ("backpack") 
  UO.Click('backpack') 
  repeat 
  wait(500) 
  until UO.InJournal('backpack') 
end sub 

sub CheckBandage()  
  UO.waittargetobject('Miska') 
  UO.usetype(0x0e20) 
  Wait(1000) 
end sub