o right new functions is for SRL members only... here ill put it out now:
SCAR Code:
{*******************************************************************************
procedure DirectionWalk(dir : string; radius, FFlagbreak : integer);
By: Infantry001
Description: Walks in a direction specified by user. Arguments for dir are - 'n',
'ne','e','se', etc. Radius is how far out to walk, and FFlagbreak is how far you
are from flag before exiting the procedure.
*******************************************************************************}
function RandomBetween(Number1,Number2 : integer) : integer;
var
i : integer;
begin
i := Round(Abs(Number1 - Number2)) + 1;
if Number1 < Number2 then
result := Number1 + Random(i)
else
result := Number1 - Random(i);
end;
procedure DirectionWalk(dir : string; radius, FFlagbreak : integer);
var
iX,iY : integer;
Tradius,rad1,rad2,FRad : integer;
begin
TRadius := radius + random(6) - random(6);
Case Lowercase(dir) of
'n' : begin
Rad1 := 340;
Rad2 := 380;
end;
'ne' : begin
Rad1 := 25;
Rad2 := 65;
end;
'e' : begin
Rad1 := 70;
Rad2 := 110;
end;
'se' : begin
Rad1 := 115;
Rad2 := 155;
end;
's' : begin
Rad1 := 160;
Rad2 := 200;
end;
'sw' : begin
Rad1 := 205;
Rad2 := 245;
end;
'w' : begin
Rad1 := 250;
Rad2 := 290;
end;
'nw' : begin
Rad1 := 295;
Rad2 := 335;
end;
end;
FRad := RandomBetween(Rad1,Rad2);
iX := Round(TRadius * Sine(FRad)) + 646;
iY := Round(-TRadius * Cose(FRad)) + 84;
Mouse(iX,iY,5,5,true);
FFlag(FFlagBreak);
end;