i dont know where else to put this. i am currently going through some bigginners tutorials and i sorta put togather and antiban, i was wondering if theres any way i can improve this.
SCAR Code:program Apx900Antibanner;
{.include SRL/SRL.scar}
{.includes\SRL\SRL\core}
////////////////////////////////////////////////////////////////////////////////
// gimme some +rep and credits if you decideto use this ///////////////////
// I bear no responsibility for any misfortunate things ///////////////////
// That may happen to anyone who uses this pice of work ///////////////////
////////////////////////////////////////////////////////////////////////////////
var
i,q: integer;
Const
wannagetbanned = false; // set to false if you wish to use this antiban
///////////////////////////////////////
procedure determin;
begin
i:=0+random(12);
Writeln('I =' + IntToStr(i));
q:=0+random(3);
end;
procedure antiban1;
begin
if i=1 then
begin
writeln('Performing Anti-Ban Type 1');
RandomRClick;
end;
end;
procedure antiban2;
begin
if i=2 then
begin
writeln('Performing Anti-Ban Type 2');
PickUpMouse;
end;
end;
procedure antiban3;
begin
if i=3 then
begin
writeln('Performing Anti-Ban Type 3');
RandomMovement;
end;
end;
procedure myantiban;
begin
determin;
antiban1;
antiban2;
antiban3;
end;
procedure perform;
begin
if q=1 then
begin
myantiban;
end;
end;
Procedure ProAntiban; // procedure stolen from i pro leechin's tutorial
begin
if not LoggedIn then Exit;
case 6+random(10) of //Will alow antiban to sometimes never occur
0 : HoverSkill('Random', false);
1: PickUpMouse;
2: SayCurrentLevels('random');
3: BoredHuman;
4,5: begin
MakeCompass('N');
wait(10+random(5));
MakeCompass('E');
wait(10+random(5));
MakeCompass('N');
end;
end;
end;
begin
if wannagetbanned=false then
begin
ActivateClient;
myantiban;
ProAntiban;
end;
end.



Reply With Quote








