(i am very very new to this so i dont know the termanology or anything and im starting with a simple chicken fighter(chicken raper v4) this is the script
HowManyPlayers := 1; //how many players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //current player
Players[0].Name := ''; //username!
Players[0].Pass := ''; //password
Players[0].Nick := 'uga'; //Nick (3-4 letters of ur name
Players[0].Active := True; //is the player active?
{Players[1].Name := 'Username'; //username!
Players[1].Pass := 'password'; //password
Players[1].Nick := ''; //Nick (3-4 letters of ur name
Players[1].Active := True; //is the player active?
Players[2].Name := 'Username'; //username!
Players[2].Pass := 'password'; //password
Players[2].Nick := ''; //Nick (3-4 letters of ur name
Players[2].Active := True; //is the player active? }
end;
procedure PreparePlayer;
begin
if not LoggedIn then LoginPlayer;
SetRun(True);
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~//
//Anti-ban and randoms thanks//
//to Ocean's 1 willow choppa //
//~~~~~~~~~~~~~~~~~~~~~~~~~~~//
procedure AntiRandoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case (Random(30)) of
1: RandomRClick;
5: HoverSkill('Woodcutting', False);
11: RandomMovement;
15: BoredHuman;
21: DoEmote(400 +Random(90));
24: PickUpMouse;
27: begin
Gametab(1 + Random(12));
Wait(3000 + Random(2000));
Gametab(4);
end;
30: SleepAndMoveMouse(3600);
end;
end;
procedure KillChicken;
var
X, Y, Mark: Integer;
begin
FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628, 6916764, 9155272, 3627895, 5928325], 3);
Mouse(x, y, 2, 2, False);
Wait(25 + Random(100));
if not ChooseOption('ttack') then Exit;
Flag;
MarkTime(Mark);
Wait(2 * 5000 + Random(1000));
AntiBan;
AntiRandoms;
if HPPercent < 25 then RunTo('N', true);
Wait(300);
if HPPercent <100 then FindNormalRandoms;
end;
function PickupFeathers: boolean;
var
x, y, FeatherDTM: integer;
begin
FeatherDTM:= DTMFromString('78DA63DCC7C8C0A001C44860EBAA550C5C4 01' +
'A24FA1F08180F01599AA86A18D418E06A408011648E16AA9A 433B' +
'77A0A80100CAC20B42');
if FindDTM(FeatherDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(x, y, 0, 0, False);
Wait(250 + Random(150));
if ChooseOption('eather') then
begin
Flag;
Result := True;
end;
end;
end;
procedure MainLoop;
var
Mark : Integer;
begin
repeat
MarkTime(Mark);
repeat
if not LoggedIn then Exit;
KillChicken;
PickupFeathers;
until((TimeFromMark(Mark) / 10000 * 60) >= 50); //60 minutes
until(False);
end;
begin
SetupSRL;
DeclarePlayers;
PreparePlayer;
MainLoop;
end.
Added a feather picker upper, fixed standards, removed unnecessary things, added things that needed implemented, added SetupSRL;.
i get a error that says unknow identifier 'howmanyplayers' idk what to type in there this is how im typeing the first part in
begin
HowManyPlayers := 1; //1
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //0
Players[0].Name := 'mith acorn'
Players[0].Pass := '*******'
Players[0].Nick := 'mith'
Players[0].Active := True; //im only going to have 1 person going at a time so do i just leave the other char slots emtpy or do i need to type something in there?
idk if i typeing something in wrong idk plz help


Reply With Quote





i tryed the tutorial but i dont know what they are talking. i downladed the scar program like they said but where do i dowload this srl thing??



