SCAR Code:
program BarbarianOutpostAgilityOwnage;
{.include SRL/SRL.scar}
var
x ,y : integer;
ObjectRecord: TAutoColorInfo;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure swingrope;
begin
with ObjectRecord do
begin
UpText := 'Swing';
MaxDist := 15;
Color := 406073;
HueMod := 0.15;
SatMod := 1.85;
LumTol := 1;
MinR := 53; MaxR := 61;
MinG := 46; MaxG := 54;
MinB := 5; MaxB := 8;
MinX := 2.55; MaxX := 3.20;
MinY := 2.81; MaxY := 3.54;
MinZ := 0.56; MaxZ := 0.73;
end;
FindObjRecordEx(x, y, ObjectRecord, MSX1, MSY1, MSX2, MSY2, True, True);
mouse(x,y,0,0,true);
end;
procedure walkacrosslog;
begin
SetupSRL;
with ObjectRecord do
begin
UpText := 'Walk';
MaxDist := 15;
Color := 800859;
HueMod := 0.16;
SatMod := 1.08;
LumTol := 1;
MinR := 86; MaxR := 97;
MinG := 52; MaxG := 59;
MinB := 10; MaxB := 13;
MinX := 5.24; MaxX := 6.42;
MinY := 4.58; MaxY := 5.56;
MinZ := 0.91; MaxZ := 1.10;
end;
FindObjRecordEx(x, y, ObjectRecord, MSX1, MSY1, MSX2, MSY2, False, True);
mouse(x,y,0,0,true);
end;
procedure mainloop;
begin
activateclient;
setupsrl;
declareplayers;
loginplayer;
swingrope;
wait (600+random(427));
walkacrosslog;
end;
begin
mainloop;
end.
SRL Compiled in 32 msec
Creating the NickTPA.
File access error
File access error
File access error
File access error
File access error
SRL Compiled in 4235 msec
Successfully executed
them are my errors :S