Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Боукрафт + Смелт
Senses
сообщение 28.8.2011, 13:46
Сообщение #1


**

Neophyte
Сообщений: 17
Регистрация: 3.5.2005
Группа: Пользователи
Наличность: 0
Пользователь №: 3.634



Есть скрипт, берет 150 логов из мешка, делает лук, сразу плавит его и потом сново делает и плавит и так продолжается пока логи не кончатся. И потом все по новой. Кто может помочь сделать так: сначала из всех 150-ти логов делает луки, потом все луки плавит, сново делает на все логи, а когда логи закончатся, сново берет и все по новой. буду очень признателен. спасибо.

Код
;esli netu prof acc to rekomenduju pered zapuskom scp v backpack
;polozhitj 100 milka i 200 becona... na no4 etogo dolzhno hvatatj.
set %forge JBG   ; id forge
set %bag VSWFLMD   ;Sumka gde lezhat logi
set %logs ZLK
set %bow TOH
set %amountLogs 150;Skolko berjom logov iz sumki
set %tool TSF      ;bowcraft dager
set %eat 0

scanjournal
_start:
finditem %tool C_ , #charid
set #lobjectid #findid
_make:
event macro 17 0
wait 10
gosub gumpWait
_click:
click 491 452
gosub scan
goto _start


sub scan
deletejournal
set %lag #scnt + 15
_scan:
for %i 5 1
{
scanjournal %i
if hungry in #journal && #scnt > %eat
{
gosub eat
return
}
if you_put in #journal
{
wait 1s
gosub smelt
return
}
if you_fail in #journal && ! hungry in #journal
return
if you_have_failed in #journal && ! hungry in #journal
return
if #scnt > %lag
goto _start
if you_can't_make_it in #journal || have_no_resources in #journal || you_need in #journal
{
if #contkind = UCHB
repeat
{
click 450 300 r
wait 15
}
until #contkind <> UHCB
gosub takelogs
goto _start
}
}
goto _scan
return

sub gumpWait
set %failT #scnt + 15
_wait:
if #contname = generic_gump && #contkind = UCHB
return
if #scnt > %failT
return
wait 10
goto _wait
return

sub smelt
finditem %forge G_
set #lobjectID #findid
event macro 17 0
finditem %bow c_ , #BackpackId
set #ltargetid #findid
set #ltargetkind 1
event macro 22
wait 2s
goto scan

sub takelogs
finditem %bag G_
if #findcnt = 0 2
display ok Bag not found!
pause
set #lobjectid %bag
event macro 17 0
while #contid <> %bag
wait 1
wait 10
finditem %logs C_ , %bag
exevent drag #findid %amountlogs
exevent dropc #backpackid
wait 10
return

sub eat
set %lobjct #lobjectid
finditem ZBM C_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 10
event macro 17 0
wait 2s
set #lobjectid %lobjct
set %eat #scnt + 360
return
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
3 чел. читают эту тему (гостей: 3, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 28.3.2024, 11:56
Designed by Nickostyle