If you are not using scar for runescape what is the use of having srl in the script?
*Yes, I can bold my letters too.*
Edit after your edit :
Your trying to get smart with us when you have a mistake in your script. Very nice.
SCAR Code:
Program Noob;
{.include srl/srl.scar}
Procedure Antiban;
Var
i : integer;
Begin
For I := 0 to 1000 Do
WriteLn('Noob -.- ['+IntToStr(I)+']');
End;
begin
setupsrl;
antiban;
end.
Wonder where the fuck I found these?
SCAR Code:
//-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-- » AntiBan Routines --//
//-----------------------------------------------------------------//
// This list was last updated on March 25, 2007.
// * procedure RandomRClick; // * by phantombmx
// * procedure HoverSkill(Skill: String; Click: Boolean); // * by Dankness extended by Cheesehunk and fixed by Ron
// * procedure PickUpMouse; // * by dark_sniper
// * procedure SayCurrentLevels(which: String); // * by RealRune
// * procedure AlmostLogout; // * by Yakman
//****************************************************************************//
{*******************************************************************************
procedure RandomRClick;
By: phantombmx
Description: Performs random right click to stay active.
*******************************************************************************}
procedure RandomRClick;
var
m: Integer;
begin
if (not (LoggedIn)) then Exit;
m := MouseSpeed;
MouseSpeed := 7;
ActivateClient;
case Random(7) of
0: MouseBox(533, 7, 757, 200, 2);
1: MouseBox(521, 3, 553, 496, 2);
2: MouseBox(743, 3, 764, 497, 2);
3: MouseBox(4, 467, 763, 498, 2);
4: MouseBox(499, 343, 552, 496, 2);
5: MouseBox(3, 343, 521, 355, 2);
6: MouseBox(2, 346, 14, 499, 2);
end;
MouseSpeed := m;
end;
{*******************************************************************************
procedure HoverSkill(Skill: String; Click: Boolean);
By: Dankness extended by Cheesehunk and fixed by Ron
Description: Hovers mouse over selected skill to "check exp"
Click = True will Click Skill and Click = False will 'Hover'
*******************************************************************************}
procedure HoverSkill(Skill: string; Click: Boolean);
var
row, col: Integer;
begin
case LowerCase(Skill) of
'attack':
begin
row := 1;
col := 1;
end;
'strength':
begin
row := 2;
col := 1;
end;
'defence':
begin
row := 3;
col := 1;
end;
'range':
begin
row := 4;
col := 1;
end;
'prayer':
begin
row := 5;
col := 1;
end;
'magic':
begin
row := 6;
col := 1;
end;
'runecraft':
begin
row := 7;
col := 1;
end;
'hitpoints':
begin
row := 1;
col := 2;
end;
'agility':
begin
row := 2;
col := 2;
end;
'herblore':
begin
row := 3;
col := 2;
end;
'thieving':
begin
row := 4;
col := 2;
end;
'crafting':
begin
row := 5;
col := 2;
end;
'fletching':
begin
row := 6;
col := 2;
end;
'slayer':
begin
row := 7;
col := 2;
end;
'smithing':
begin
row := 2;
col := 3;
end;
'mining':
begin
row := 1;
col := 3;
end;
'fishing':
begin
row := 3;
col := 3;
end;
'cooking':
begin
row := 4;
col := 3;
end;
'firemaking':
begin
row := 5;
col := 3;
end;
'woodcutting':
begin
row := 6;
col := 3;
end;
'farming':
begin
row := 7;
col := 3;
end;
'construction':
begin
row := 8;
col := 1;
end;
'hunter', 'hunting':
begin
row := 8;
col := 2;
end;
'random':
begin
row := Random(8) + 1;
col := Random(3) + 1;
end;
else
begin
WriteLn('HoverSkill doesn''t have a Skill Name that it can use.');
Exit;
end;
end;
GameTab(2);
case Click of
True:
begin
Mouse(532 + (64 * col), 191 + (31 * row), 10, 10, True)
if (GetColor(401, 96) = 3359309) then
Mouse(401, 160, 2, 30, True);
Wait(5000 + Random(9000));
CloseWindow;
end;
False:
begin
MMouse(532 + (64 * col), 191 + (31 * row), 10, 10)
Wait(5000 + Random(5000));
end;
end;
end;
{*******************************************************************************
procedure PickUpMouse;
By: dark_sniper
Description: Acts just like you picked your mouse off the pad...
then sets it back down.
*******************************************************************************}
procedure PickUpMouse;
var
cx, cy, XX, YY: Integer;
begin
GetMousePos(cx, cy);
XX := cx;
YY := cy;
case Random(2) of
0: MMouse(cx - 3 - Random(5), cy - 8 - Random(17), 0, 0);
1: MMouse(cx + 3 + Random(5), cy - 8 - Random(17), 0, 0);
end;
Wait(1131 + Random(358));
case Random(2) of
0: MMouse(XX + 3 + Random(5), YY + 8 + Random(9), 0, 0);
1: MMouse(XX - 3 - Random(5), YY + 8 + Random(9), 0, 0);
end;
end;
{*******************************************************************************
procedure SayCurrentLevels(which: String);
By: RealRune
Description: Very useful for autoresponders.
*******************************************************************************}
procedure SayCurrentLevels(which: string);
var
I: Integer;
begin
case LowerCase(Which) of
'attack': I := 1;
'strength': I := 2;
'defence': I := 3;
'range': I := 4;
'prayer': I := 5;
'magic': I := 6;
'runecrafting': I := 7;
'hitpoints': I := 8;
'agility': I := 9;
'herblore': I := 10;
'thieving': I := 11;
'crafting': I := 12;
'fletching': I := 13;
'slayer': I := 14;
'mining': I := 15;
'smithing': I := 16;
'fishing': I := 17;
'cooking': I := 18;
'firemaking': I := 19;
'woodcutting': I := 20;
'farming': I := 21;
end;
Players[CurrentPlayer].Level[i] := GetSkillLevel(which);
TypeSend(IntToStr(Players[CurrentPlayer].Level[i]));
end;
{*******************************************************************************
procedure AlmostLogout;
By: Yakman
Description: Goes to GameTab(10) and hovers around the logout button as
if deciding whether to keep playing or not.
*******************************************************************************}
procedure AlmostLogout;
var
e, f, TempMouseSpeed: Integer;
begin
GameTab(10);
TempMouseSpeed := MouseSpeed;
MouseSpeed := MouseSpeed + 20;
e := 5 + Random(6);
for f := 0 to e do
begin
case Random(3) of
0, 1: MMouse(583 + Random(120), 361 + Random(20), 0, 0);
2: IdleTime(300 + Random(300), 500, 0.5);
end;
FTwait(2 + Random(1));
end;
MouseSpeed := TempMouseSpeed;
GameTab(4);
end;
SCAR Code:
//-----------------------------------------------------------------//
//-- Scar Standard Resource Library --//
//-- Extended Antiban Routines --//
//-----------------------------------------------------------------//
// * procedure RotateEvery(mins: Integer); // * by Stupid3ooo
// * procedure RandomRClickEvery(mins: Integer); // * by phantombmx
// * procedure LeaveScreenEvery(mins: Integer); // * by Stupid3ooo
// * procedure KillScript(hours: Integer); // * by Stupid3ooo
// * procedure HoverEvery(mins: Integer; skill: String); // * by Dankness
// * procedure PickUpMouseEvery(mins: Integer); // * by dark_sniper
// * procedure AntiBan; // * by Stupid3ooo
// * function MessageFriend(Row: Integer; S: String): Boolean; // * by XxKanexX
// * procedure SetMessageFriendEvery(Secs, Row: Integer; Messages: Array of String); // * by XxKanexX
// * procedure MessageFriendEvery; // * by XxKanexX
// * procedure WWait(ttime: Integer); // * by WT-Fakawi
// * procedure BoredEvery(mins: Integer); // * by ?
{*******************************************************************************
procedure SetMouseSpeedEvery(Seconds: Integer; Speed, Rand: Integer);
By: Cheesehunk
Description: Will change your MouseSpeed randomly depending on the settings you
choose throughout the script. Must be called for it to change, like other timers.
*******************************************************************************}
procedure SetMouseSpeedEvery(Seconds: Integer; Speed, Rand: Integer);
begin
if ((TimeFromMark(MouseSpeedMark) / 1000) = Seconds) then
begin
MarkTime(MouseSpeedMark);
case Random(2) of
0: MouseSpeed := Speed + Random(Rand);
1: MouseSpeed := Speed - Random(Rand);
end;
end;
end;
{*******************************************************************************
procedure WWait(ttime: Integer);
By: WT-Fakawi
Description: Waits Time+10%. Once every ten times performs IdleTime aot Wait
*******************************************************************************}
procedure WWait(ttime: Integer);
begin
if Random(10) = 1 then
IdleTime(ttime, (ttime / 10), 1.0)
else
Wait(ttime + Random(ttime / 10));
end;
{*******************************************************************************
procedure BoredEvery(mins: Integer);
By:
Description: Performs Bored Human every mins
mins: minutes between calling BoredHuman procedure
*******************************************************************************}
procedure BoredEvery(mins: Integer);
begin
if ((TimeFromMark(BoredMark) / 1000) / 60 >= mins) then
begin
MarkTime(BoredMark);
BoredHuman;
end;
end;
{*******************************************************************************
procedure HoverEvery(mins: Integer; skill: String);
By: Dankness
Description: Hovers mouse over selected skill to "check exp" every few mins
*******************************************************************************}
procedure HoverEvery(mins: Integer; skill: string);
begin
if ((TimeFromMark(HoverMark) / 1000) / 60 >= mins) then
begin
MarkTime(HoverMark);
HoverSkill(Skill, False);
end;
end;
{*******************************************************************************
procedure PickUpMouseEvery(mins: Integer);
By: dark_sniper
Description: Acts just like you picked your mouse off the pad...
then sets it back down.
Mins: minutes between each pick up.
*******************************************************************************}
procedure PickUpMouseEvery(mins: Integer);
var
cx, cy, XX, YY: Integer;
begin
if ((TimeFromMark(PickUpMouseMark) / 1000) / 60 >= mins) then
begin
MarkTime(PickUpMouseMark);
GetMousePos(cx, cy);
XX := cx;
YY := cy;
case Random(2) of
0: MMouse(cx - 3 - Random(5), cy - 8 - Random(17), 0, 0);
1: MMouse(cx + 3 + Random(5), cy - 8 - Random(17), 0, 0);
end;
Wait(1131 + Random(358));
case Random(2) of
0: MMouse(XX + 3 + Random(5), YY + 8 + Random(9), 0, 0);
1: MMouse(XX - 3 - Random(5), YY + 8 + Random(9), 0, 0);
end;
end;
end;
{*******************************************************************************
procedure KillScript(hours: Integer);
By: Stupid3ooo
Description: Terminates script after hours
hours: Hours till script is terminated
*******************************************************************************}
procedure KillScript(hours: Integer);
begin
if ((TimeFromMark(KillScriptMark) / 1000) / 3600 >= hours) then
begin
WriteLn('Stopping script at ' + IntToStr(hours) + ' hours');
MMouse(Random(500), -10, 0, 0);
TerminateScript;
end;
end;
{*******************************************************************************
procedure LeaveScreenEvery(mins: Integer);
By: Stupid3ooo
Description: Anti Mouse detection. Mouse leaves RS window every mins.
mins: minutes between random spining
*******************************************************************************}
procedure LeaveScreenEvery(mins: Integer);
var
rx, a: Integer;
begin
if ((TimeFromMark(LeaveScreenMark) / 1000) / 60 >= mins) then
begin
MarkTime(LeaveScreenMark);
rx := Random(300);
a := Random(2);
if (a = 0) then
begin
MMouse(rx, 1, 0, 0)
ClickMouse(rx, -1, True);
Wait(1000 + Random(1000));
end else if (a = 1) then
begin
MMouse(rx, 502, 0, 0)
ClickMouse(rx, 503, True);
Wait(1000 + Random(1000));
end;
end;
end;
{*******************************************************************************
procedure RandomRClickEvery(mins: Integer);
By: phantombmx
Description: Performs random right click every mins to stay active.
Mins: minutes between random clicks.
*******************************************************************************}
procedure RandomRClickEvery(mins: Integer);
begin
if ((TimeFromMark(RandomClickMark) / 1000) / 60 >= mins) then
begin
MarkTime(RandomClickMark);
RandomRClick;
end;
end;
{*******************************************************************************
procedure RotateEvery(mins: Integer);
By: Stupid3ooo
Description: Performs rotation every mins.
mins: minutes between random spining
*******************************************************************************}
procedure RotateEvery(mins: Integer);
begin
if ((TimeFromMark(RotateMark) / 1000) / 60 >= mins) then
begin
MarkTime(RotateMark);
SendArrowSilentWait(Random(4), 500 + Random(500));
SendArrowSilentWait(Random(4), 500 + Random(500));
MakeCompass('n');
SendArrowSilentWait(0, 1400 + Random(100));
end;
end;
{*******************************************************************************
procedure AntiBan;
By: Stupid3ooo
Description: Performs AntiBan actions at random lengths of time
*******************************************************************************}
procedure AntiBan;
begin
RotateEvery(20 + Random(10));
LeaveScreenEvery(5 + Random(5));
HoverEvery(15 + Random(5), 'random');
PickUpMouseEvery(5 + Random(10));
RandomRClickEvery(15 + Random(5));
if (KillScriptTime > 0) then
KillScript(KillScriptTime);
end;
{*******************************************************************************
procedure DontBanMe(mins: Integer);
By: ollie
Description: Will preform random actions to seem humanlike
*******************************************************************************}
procedure DontBanMe(mins: Integer);
var
DBanMe: Integer;
begin
if ((TimeFromMark(PickUpMouseMark) / 1000) / 60 >= mins) then
DBanMe := Random(12); (*1 over so it will do nothing sometimes*)
case DBanMe of
0: RandomRClickEvery(2 + Random(13));
1: HoverSkill('random', False);
2: RotateEvery(20 + Random(10));
3: LeaveScreenEvery(5 + Random(5));
4: HoverEvery(15 + Random(5), 'random');
5: PickUpMouse;
6: BoredEvery(9 + Random(24));
7: DragItem(1, 1 + Random(18));
8: GameTab(1 + Random(12));
9: DoEmote(1 + Random(20));
10: PolyGlotTalk;
end;
end;