Yoko

Code: Select all

var Cikl = 1     # 1 - скрипт циклирует; 0 - нет
var Recall = 1    # 1 - реколимся; 0 - нет
var UseHide = 1  # 1 - будем хайдиться; 0 - нет
var SeeDanger = 1

var MyRuneBook = '0x000000'
var Kirka = '0x0E86'
var Sunduk = '0x000'
var inviz = '0x000'
var Elem = '0x000'
var x, y, r, n, t
var LagThreshold = 100
var GuardTimer


sub Mining()

var MsM1 = "There is no ore here to mine"
var MsM2 = "You can't use"
var MsM3 = "You put the"
var MsM4 = "You fail to find any useable ore"
var MsM5 = "You are too far away"
var MsM6 = "Try mining in rock"
var MsM7 = "You can't see that"
var MsM8 = "Хм... Не вижу.. Где копать то?"
var MsM9 = "Далеко. Не дотянуться"
Repeat
 
 for x = -2 to 2
 for y = -2 to 2
 
 Repeat
  If SeeDanger == 1 And Not UO.Dead() then
    Opasnost()
  Endif
   
  If UseHide == 1 And Not UO.Hidden() And Not UO.Dead() then
    Hiding()
  Endif
  GuardTimer = UO.Timer() + LagThreshold 
  UO.DeleteJournal() 
  UO.WaitTargetTile('1339', STR( UO.GetX() + x), STR( UO.GetY() + y), 0)
  UO.UseType( Kirka )
  wait(100)
  Repeat
    If SeeDanger == 1 And Not UO.Dead() then
      Opasnost()
    Else
      wait(100)
    EndIf
  
  Until UO.InJournal(MsM1) or UO.InJournal(MsM2) or UO.InJournal(MsM3) / 
  or UO.InJournal(MsM4) or UO.InJournal(MsM5) or UO.InJournal(MsM6) / 
  or UO.InJournal(MsM7) or UO.InJournal(MsM8) or UO.InJournal(MsM9) /
  or GuardTimer < UO.Timer()  or UO.Dead()
  
  UO.FindGround(Elem)
  If UO.FindCount() > 0 Then
    KillElem()
    wait(100)
  Else
    wait(100)
  Endif
 
  Until UO.InJournal(MsM1) or UO.InJournal(MsM2) or UO.InJournal(MsM5) / 
  or UO.InJournal(MsM6) or UO.InJournal(MsM7) or UO.InJournal(MsM8) / 
  or UO.InJournal(MsM9) or UO.Dead()
  
  If UO.Weight >= UO.Str*4 And Not UO.Dead() then
    If Recall == 1 Then
      RecallHome()
      DropOre()
      RecallShahta()
    Else
      GoTo End
    EndIf
  EndIf
  If SeeDanger == 1 And Not UO.Dead() then
    Opasnost()
  EndIf   
  next 
  next
  
  If Recall == 1 And Not UO.Dead() Then
    RecallHome()
    DropOre()
    RecallShahta()
  Else
    wait(50)
  EndIf
 Until Cikl == 0 Or UO.Dead()
 End:
 UO.Print('Script Ended')
EndSub

Sub KillElem() 
  While Not UO.Dead() And Not UO.Count( Elem , "-1" , "ground" ) < 1
    # Вобщем тут мне надо чтобы чар убил елема 
    wait(100)
  wend
  LutElem()    
End sub

Code: Select all

sub KillElem() 
UO.UseType("0x0F0E","0x0631") 
wait(100) 
repeat 
UO.DeleteJournal() 
if UO.Mana<50 then 
wait(14000) 
UO.UseType("0x0F0E","0x09DF") 
endif 
UO.WaitMenu("What","Daemon") 
UO.Cast("Polymorph") 
wait(1000) 
until NOT UO.InJournal("spell fizzles") 
UO.FindType("0x0010","0xffff","ground") 
UO.GetStatus("finditem") 
wait(100) 
lifeup("healing") 
UO.UseType("0x1B76") ;щит
UO.UseType("0x1413") ;горжет
UO.WarMode(1) 
wait(100) 
UO.DeleteJournal() 
UO.Attack("laststatus") 
gotoxy(UO.GetX("laststatus"),UO.GetY("laststatus"),1) 
wait(100) 
UO.WaitTargetGround("0x19B8") 
wait(500) 
UO.Grab("all") 
UO.WaitTargetGround("0x19B9") 
wait(500) 
UO.Grab("all") 
UO.WaitTargetGround("0x0EED") 
wait(1500) 
UO.Grab("all") 
wait(100) 
UO.Exec("warmode 0") 
......что будем делать дальше...
end sub