Перейти к содержанию
Форум шарда Middle-Earth
Авторизация  
Гость MEdition

Вскапываем огород [Injection]

Рекомендуемые сообщения

Гость MEdition

Копает вокруг себя и ходит. Так же можно копать песочек.

+1 Imaborg

 

##################### MIDDLE-EARTH.RU ##########################
Sub MiningTile(t, x, y, z)
var timer
repeat
uo.canceltarget()
uo.WaitTargetTile(Str(t), Str(x), Str(y), Str(z))
uo.UseType(0x0F39)
uo.DeleteJournal()
timer = 0
    repeat
wait(500)
    timer = timer + 1
    until UO.injournal("There is no") or uo.injournal("You fail to prospect") or uo.injournal("Âû âñêîïàëè çåìëþ") or UO.injournal("There is no brimstone") or UO.injournal("There is nothing") or timer > 5
uo.canceltarget()
#UO.Usetype("0x0F39")
until uo.injournal("You fail to prospect") or uo.InJournal("line") or uo.InJournal("far away") or UO.injournal("There is no brimstone") or UO.injournal("There is nothing") or uo.injournal("Âû âñêîïàëè çåìëþ")
end sub
sub Mining()
var i, j, tile, f, b, p
f = 0
b = 0
while not uo.dead()
for i = -2 to 2
for j = -2 to 2
tile = 168
while (not uo.PrivateGetTile(uo.GetX() + i, uo.GetY() + j, 251, tile, tile)) and (tile < 1343)
if tile == 1617 then
tile = 310
else
if tile == 311 then
tile = 1
else
tile = tile + 1
endif
endif
wend
if tile < 1617 then
tile = 0
endif
if tile < 1617 then
uo.concolor(0x53)
uo.Print("Êîïàåì òàéë " + Str((i + 2) * 5 + j + 3) + " èç 25...")
uo.concolor(0)
MiningTile(tile, uo.GetX() + i, uo.GetY() + j, 251)
endif
next
next
uo.Print("Çàâåðøèë êðóã. Ïðîäîëæàþ.")
f = f + 1
if b == 2 then
for p=1 to 11
wait(1000)
uo.press(36)
next
uo.press(34)
f = 0
b = 0
else
if f == 3 then
for p=1 to 5
wait(1000)
uo.press(34)
next
f = 0
b = b + 1
endif
endif
wend
end sub
##################### MIDDLE-EARTH.RU ##########################

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

Загрузка...
Авторизация  

×
×
  • Создать...