Нарезка опилков

Предыдущая тема Следующая тема Перейти вниз

Нарезка опилков

Сообщение  Mazunchik в Сб Май 15, 2010 1:43 am

Все шо нада зделать ето положыть в пак катану или взять в руки и положыть хавки в пак, затем заменить кординаты дерева в макросе припомощи инжект команды ,info тыцнув на дерево вы узнаете его кординаты затем внесете в макрос в етой строчке:
if targetpresent then TargetToTile(3395,5604,3557,0);
Код:
Program gathering;
var
katana:cardinal;
i:integer;

{$Include 'all.inc'}

function timer(var acttimer:integer;actafter:integer):boolean;
begin
result:=false;
acttimer:=acttimer+1;
if acttimer>=actafter then
begin
acttimer:=0;
result:=true;
end;
end;

procedure fulldisconnect;
begin
SetARStatus(false);
Disconnect;
end;

procedure CheckDead;
begin
WaitConnection(3000);
CheckSave;
if Dead then
begin
SetWarMode(true);
WaitGump('1');
wait(5000);
while (Dead) do Wait (1000);
wait (2000);
Hungry(1, ground);
end;
end;

BEGIN
katana:=$13FF;
SetARStatus(true);
i:=0;

while true do begin
CheckDead;
WaitConnection(2000);
checksave;
if timer(i,100) then begin
Hungry(1,ground);
Stack($0DE1,$0000);
end;
if targetpresent then canceltarget;
UseObject(katana);
WaitForTarget(2000);
if targetpresent then TargetToTile(3395,5604,3557,0);
wait(2000);
CheckTargetError(2,2);
end;
END.
avatar
Mazunchik
Admin

К-ть повідомлень : 91
Очки : 233
Дата регистрации : 2010-05-14
Возраст : 30
Звідки : СССР

Посмотреть профиль http://cccp-rip.ukrainianforum.net

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения