Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

DRW Resurection Воскрешение

Only working scripts
Post Reply
shinma
Expert
Expert
Posts: 505
Joined: 28.04.2011 12:05

DRW Resurection Воскрешение

Post by shinma »

program beg;

const
resurect=$88888888; //ИД креста воскрешения

var
dot:array [0..3] of TFoundTile; // массив из точек маршрута до креста воскрешения
i:word;

procedure smena;
begin

dot[0].X:=111; //Resurect МЕЖДУ ТОЧКАМИ ДОЛЖНО БЫТЬ НЕ БОЛЬШЕЕ 200 КЛЕТОК!!!
dot[0].Y:=111;
dot[1].X:=222; //Resurect
dot[1].Y:=222;
dot[2].X:=333; //Resurect
dot[2].Y:=333;
dot[3].X:=444; //Resurect
dot[3].Y:=444;

end;


//-----------------------------------------

begin
smena;
if Dead then
begin
if WarMode = true then SetWarMode(false);
For i:=0 to 3 do
NewMoveXY(dot[2].X,dot[2].Y,false,1,true); // x , y , Аккуратность до 200 квадратов , точность подходк к квадрату, Бег - True
UseObject(resurect);
wait(5000);
end;
end.
Post Reply