Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Переплавка руды по одной штучке
Переплавка руды по одной штучке
ребзя, напишите плиз переплавку бо то что я написал даже запускать страшно, мну нуна кучу гемов наплавить + мининг добить, зарание сенки
Скрипт на "bowcraft по одной штуке" несложно переделать на мининг по 1 штуке.
всё работает тока плохо, и ненаю как избавися от задержки вовремя перетаскивания в пак, бо частенько пишет типа обжект нот финд
а скрипт вот, мой первенец
ехх посадят меня за него![Laughing :lol:](./images/smilies/icon_lol.gif)
а скрипт вот, мой первенец
![Rolling Eyes :roll:](./images/smilies/icon_rolleyes.gif)
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.
ехх посадят меня за него
![Laughing :lol:](./images/smilies/icon_lol.gif)
будни на разных платформах
Норм типока вконтакте и вправду уже все не надо ляля=)
Last edited by Marfusha2 on 26.12.2009 14:27, edited 3 times in total.