Помагите со скриптом! вот скрипт на мининг но чар неходит! непойму чево может я чтото пропустил! если можете перепишите чтоб он ходил и киньте сюда! желательно чтоб ходил по тайлам
sub minround()
VAR Kirka = '0x143C' ; Тип Кирки
VAR MaxVes = 550 ; Максимальный вес, подымаемый чаром минус 10-15 стоунов
#VAR TileNum = '1342' ; Тайл пола пещеры (наиболее распространенный тип)
VAR x, y, t, k
VAR MaxTime = 1000 ; измеряется в 1/10 сек.
VAR ms1 = "Рудная жила в этом месте истощилась"
VAR ms2 = "Вы невидите цели"
VAR ms3 = "You put the"
VAR ms4 = "You loosen some rocks"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining in rock"
VAR ms7 = "You can't see that"
for y=-2 to 2
for x=-2 to 2
#while not UO.Hidden()
UO.Warmode("0")
#uo.print("Прячемся...")
#UO.UseSkill("Hiding")
#wait(4000)
#wend
k = 0
repeat
UO.DeleteJournal()
UO.CancelTarget()
wait(300)
UO.WaitTargetSelf()
#UO.WaitTargetTile( '1342', STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next
endsub
|
, у меня он пока выключен.