Yoko

Мне надо чтобы он пил тотал рефрешь когда 10 стамины !
И выпивал инвиз и делал рекол по указанной руне , Когда видел пк
Люди добрые впишите дороботайте ПОЖАЛУЙСТО !!!

sub mining()
VAR x,y,z='0',TileNum='1339'
VAR Last=0,LastTimer
For x=-4 to 4
For y=-4 to 4
Repeat
CheckLag()
ToHide()
UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z)
UO.UseType('0x0E85')
LastTimer=UO.Timer()
repeat
wait(2000)
until UO.InJournal("Try mining") OR UO.InJournal("You put") OR UO.InJournal("You loosen") OR UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("OOPS") OR UO.InJournal("attacking you") OR LastTimer+150<UO.Timer()
if UO.InJournal('You loosen') then
repeat
wait (500)
until UO.InJournal("You put") OR LastTimer+105<UO.Timer()
endif
until UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("Try mining")

Next
Next
mining()
end sub


sub tohide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.FindType('0x0F0E','0x0631','my')
if UO.Life<UO.STR/2 AND UO.GetQuantity('finditem')>0 then
UO.UseType('0x0F0E','0x0631')
UO.Exec('warmode 0')
wait(2000)
else
UO.Exec('warmode 0')
UO.UseSkill('Stealth')
repeat
wait(50)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
endif
wend
end sub

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

mining()
end sub


Именно в етот скрипт прошу

sub mining() 
VAR x,y,z='0',TileNum='1339' 
VAR Last=0,LastTimer 
VAR st= '' #Type potion
VAR cst= '' # Colour potion
For x=-4 to 4 
For y=-4 to 4 
Repeat 
CheckLag() 
ToHide() 
UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z) 
UO.UseType('0x0E85') 
LastTimer=UO.Timer() 
repeat 
wait(2000) 
until UO.InJournal("Try mining") OR UO.InJournal("You put") OR UO.InJournal("You loosen") OR UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("OOPS") OR UO.InJournal("attacking you") OR LastTimer+150<UO.Timer() 
   if uo.stamine < 10 then
      uo.findtype(st,cst,'backpack')
      uo.UseType('finditem')
   end if
if UO.InJournal('You loosen') then 
repeat 
wait (500) 
until UO.InJournal("You put") OR LastTimer+105<UO.Timer()
   if uo.stamine < 10 then
      uo.findtype(st,cst,'backpack')
      uo.UseType('finditem')
   end if 
endif 
until UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("Try mining") 

Next 
Next 
mining() 
end sub 


sub tohide() 
while NOT UO.Hidden() 
UO.DeleteJournal() 
UO.FindType('0x0F0E','0x0631','my') 
if UO.Life<UO.STR/2 AND UO.GetQuantity('finditem')>0 then 
UO.UseType('0x0F0E','0x0631') 
UO.Exec('warmode 0') 
wait(2000) 
else 
UO.Exec('warmode 0') 
UO.UseSkill('Stealth') 
repeat 
wait(50) 
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied') 
endif 
wend 
end sub 

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

mining() 
end sub 

улёт ищи поиском сам. найдешь вставлю.

Народ намутите улет из пещеры ( Вставте плиз )

Народ ну чё ктонить помогёт ?