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
