Переплавка руды по одной штучке

[Sydiva]

ребзя, напишите плиз переплавку бо то что я написал даже запускать страшно, мну нуна кучу гемов наплавить + мининг добить, зарание сенки

[Miralex]

Скрипт на "bowcraft по одной штуке" несложно переделать на мининг по 1 штуке.

[Sydiva]

вот имено его я и переделал, тока что то руки неотудова растут:),

[Miralex]

Так а там вообщем только типы айтимов поменять надо.
В любом случае без твоего скрипта и точного описания "что не работает" мало чем можно помочь.

[Sydiva]

всё работает тока плохо, и ненаю как избавися от задержки вовремя перетаскивания в пак, бо частенько пишет типа обжект нот финд


а скрипт вот, мой первенец

Code: Select all

Program pereplavka;
var stime : TDateTime; 
{$Include 'all.inc'}

BEGIN
While not Dead do  
begin 
stime := Now; 
FindDistance := 2; 
Findtype ($19B9,backpack); 
If (FindCount=0) then begin 
Findtype($19B9,ground); 
If (FindCount>0) then begin Grab(finditem,1);
wait(1000);
CheckSave;  
end;
end; 

if Weight >= 200 then begin
Stack($0F13,$0000); 
Stack($0F15,$0000); 
Stack($0F25,$0000); 
Stack($0F10,$0000); 
Stack($0F11,$0000); 
Stack($0F0F,$0000);
Stack($0F16,$0000);
Stack($0F30,$0000);
hungry(1, ground);
CheckSave;
end;
useobject(findtype($19B9,backpack)); 
waittargetobject(findtype($0FB1,ground)); 
repeat 
InJournalBetweenTimes('create|make|destroy', stime, Now); 
wait(500); 
until (LineCount >= 1) or (Now > stime + (0.4/1440));  
end; 
END.

ехх посадят меня за него

[Marfusha2]

Норм типока вконтакте и вправду уже все не надо ляля=)

[Miralex]

А чем пилот плох для этого дела например?
там все вообще в 4 строчки описывается
drag x y 1
wait 200
double_left z //координаты новой кучи из 1 руды
wait 200

вот и все

А ты запусти и сравни.

[Acronym]

А чем пилот плох для этого дела например?

А ты запусти и сравни.

Согласен, на инжекте даже хуже выходило.