Page 1 of 1
Мининг
Posted: 2005-04-24 21:40:54
by Neznaika
Извените меня пожалуйста , может такая тема уже и была.
Дайте пожалуйста небольшой скриптик на мининг.
Чар встаёт в пещере , запускается скрипт , чар встаёт в хайд , чар копает всё , скрипт оиключается (в ручную). Никакой проверки на ПК , элементали и реколы не надо.
Помогите пожалуйста кому не сложно.
Posted: 2005-04-24 22:07:47
by I'm
Помоги себе сам зайдя в поиск.
Posted: 2005-04-24 22:26:08
by Neznaika
Сори , я нюб в инжекте , не знаю что можно удалять , что нельзя.
Posted: 2005-04-24 22:29:34
by I'm
Ищи лучше.
Posted: 2005-04-24 22:46:39
by Neznaika
Не нашёл. Если не сложно выложите сюда.
Posted: 2005-04-25 16:04:38
by Qmer
kak mozno nenajti
znacht neiskal ili nepravilno !
Posted: 2005-04-25 16:47:13
by Gromiz
Code: Select all
sub mining()
VAR MaxVes = 600 ; Максимальный вес, подымаемый чаром минус 10-15 стоунов
VAR TileNum = '1339' ; Тайл пола пещеры (наиболее распространенный тип)
VAR x, y, t, k
VAR MaxTime = 100 ; измеряется в 1/10 сек.
VAR ms1 = "There is nothing"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You fail to find any useable ore"
VAR ms5 = "You are too far away"
VAR ms6 = "Try mining elsewhere"
VAR ms7 = "You can't see that"
uo.print('!!Lopata!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend
while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(4000)
wend
for y=-2 to 2
for x=-2 to 2
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.Useobject("Shovel")
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
end sub