SCAR Code:
{.Script Info:
# ScriptName = Test 1
# Author = Me
# Description = Test
# Version = 1.0
# Date = 14th September
# Comments =
/Script Info}
program New;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
{.include SRL/SRL.scar}
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Var
ChatName : String;
AutoRespondCount, X, Y, CurrentTime : Integer;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Const NumberOfUsers = 5; // Amount of Users 1 - 5
Const StartPlayer = 0; // Account Number 0 - 4, no 5 because of 0
Const Loads = 10; // Amount of Loads to do before switching player
Const TimePerPlayer = 1; // Time for One player
Const MSSpeed = 15; // Speed of the Mouse, 30 Being Fast 1 Being Slow
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Const SRLStatsID = ''; // Your SRL Stats ID.
Const SRLStatsPass = ''; // Your SRL Stats Pass.
{*************************************************************************]
[===Dont Have SRL Stats? Go to: [url]www.stats.srl-forums.com[/url] and Register!!===]
[*************************************************************************}
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Const Version = 1; // Dont Edit This, for My Use Only
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure DeclarePlayers;
Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :=''; // Username
Players[0].Pass :=''; // Password
Players[0].Nick :=''; // 3 or 4 Letters from your Username
Players[0].Loc :='Bank'; // Where Abouts, Leave This!
Players[0].Active:=True;
Players[1].Name :=''; // Username
Players[1].Pass :=''; // Password
Players[1].Nick :=''; // 3 or 4 Letters from your Username
Players[1].Loc :='Bank'; // Where Abouts, Leave This!
Players[1].Active:=True;
Players[2].Name :=''; // Username
Players[2].Pass :=''; // Password
Players[2].Nick :=''; // 3 or 4 Letters from your Username
Players[2].Loc :='Bank'; // Where Abouts, Leave This!
Players[2].Active:=True;
Players[3].Name :=''; // Username
Players[3].Pass :=''; // Password
Players[3].Nick :=''; // 3 or 4 Letters from your Username
Players[3].Loc :='Bank'; // Where Abouts, Leave This!
Players[3].Active:=True;
Players[4].Name :=''; // Username
Players[4].Pass :=''; // Password
Players[4].Nick :=''; // 3 or 4 Letters from your Username
Players[4].Loc :='Bank'; // Where Abouts, Leave This!
Players[4].Active:=True;
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Function GetChatMessage(Text: String): Boolean;
Var
TX, TY: Integer;
Chat: String;
Begin
If(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
Begin
Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
If(Pos(Text, Chat) <> 0)then
Begin
Result:= True;
end;
end;
end;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Function GetChatName(Name: String): Boolean;
Var
I: Integer;
Begin
ChatName:= Lowercase(Trim(GetTextAtEx(21, 415, 0, SmallChars, False, False, 0, 0, 0, 50, False, TR_AllChars)));
I:= Pos(':', ChatName);
If(I <> 0)then
Begin
Delete(ChatName, I, I);
end;
If(Pos(Name, ChatName) <> 0)then
Begin
Result:= True;
end;
end;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
procedure AutoRespond;
var
Response, Level: String;
TheReply: Integer;
begin
if(GetChatMessage(Players[CurrentPlayer].Name))then
begin
AutoRespondCount := AutoRespondCount + 1;
TheReply := Random(3) + 1;
case (TheReply) of
0 : Response := ('ya?');
1 : Response := ('what?');
2 : Response := ('yeah');
end;
TypeSend(Response);
end;
if(GetChatMessage('lol'))
or (GetChatMessage('ha'))
or (GetChatMessage('haha'))
or (GetChatMessage('rofl'))
or (GetChatMessage('lmao'))
or (GetChatMessage('lmfao'))then
begin
AutoRespondCount := AutoRespondCount + 1;
TheReply := Random(9) + 1;
case (TheReply) of
0 : Response := ('lol');
1 : Response := ('haha');
2 : Response := ('rofl');
3 : Response := ('lmao');
4 : Response := ('lolz');
5 : Response := ('roflz');
6 : Response := ('hehe');
7 : Response := ('ha');
8 : Response := ('lols');
9 : Response := ('rofls');
end;
TypeSend(Response);
end;
if(GetChatMessage('wc'))
or (GetChatMessage('woodcutting'))
or (GetChatMessage('wcing'))
or (GetChatMessage('cutting'))
and (GetChatMessage('lvl'))
or (GetChatMessage('level'))
or (GetChatMessage('lvls'))
or (GetChatMessage('lvlz'))
or (GetChatMessage('stats'))
or (GetChatMessage('levels'))then
begin
AutoRespondCount := AutoRespondCount + 1;
Level := IntToStr(GetSkillLevel('woodcutting'));
Response:= ('My lvl is ' + Level);
TypeSend(Response);
end;
if(GetChatMessage('fm'))
or (GetChatMessage('firemaking'))
or (GetChatMessage('fming'))
and (GetChatMessage('lvl'))
or (GetChatMessage('level'))
or (GetChatMessage('lvls'))
or (GetChatMessage('lvlz'))
or (GetChatMessage('levels'))then
begin
AutoRespondCount := AutoRespondCount + 1;
Level := IntToStr(GetSkillLevel('firemaking'));
Response:= ('My lvl is ' + Level);
TypeSend(Response);
end;
if(GetChatMessage('fish'))
or (GetChatMessage('fishing'))
or (GetChatMessage('fishin'))
and (GetChatMessage('lvl'))
or (GetChatMessage('level'))
or (GetChatMessage('lvls'))
or (GetChatMessage('lvlz'))
or (GetChatMessage('stats'))
or (GetChatMessage('levels'))then
begin
AutoRespondCount := AutoRespondCount + 1;
Level := IntToStr(GetSkillLevel('fishing'));
Response:= ('My lvl is ' + Level);
TypeSend(Response);
end;
if(GetChatMessage('what'))
or (GetChatMessage('wut'))
or (GetChatMessage('wat'))
and (GetChatMessage('doing'))
or (GetChatMessage('doin'))
or (GetChatMessage('happening')) then
begin
AutoRespondCount := AutoRespondCount + 1;
TheReply := Random(4) + 1;
case (TheReply) of
0 : Response := ('hello');
1 : Response := ('watz up');
2 : Response := ('wat up');
3 : Response := ('whats up');
4 : Response := ('what up');
end;
TypeSend(Response);
end;
end;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure DoChats;
Begin
SetChat('On', 1);
SetChat('On', 1);
SetChat('Friends', 2);
SetChat('Friends', 2);
SetChat('On', 3);
SetChat('On', 3);
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
procedure LoadDTMs;
begin
end;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure SetupScript;
Begin
ClearDebug;
WriteLn('Cleared Debug');
//Signature;
ActivateClient;
WriteLn('Activated Client');
Wait(100);
SetupSRL;
WriteLn('Setup SRL');
DeclarePlayers;
WriteLn('Declared Players');
MouseSpeed := MSSpeed;
WriteLn('Mouse Speed : '+inttostr(MSSpeed));
CurrentPlayer := StartPlayer;
WriteLn('Start Player');
wait(100);
MarkTime(CurrentTime);
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
function TravSymbol(SymbolName: string): boolean;
begin
if(not(LoggedIn)) then Exit;
if (FindSymbol(x,y,SymbolName)) then
begin
Mouse(x, y, 4, 2, true);
Wait(550+random(550));
FFlag(2+random(7));
Result := True;
end;
end;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure SetupUser;
Begin
LoginPlayer;
WriteLn('Logged in Player');
Wait(1000);
DoChats;
WriteLn('Done Chats');
HighestAngle;
WriteLn('Highest Angle');
MakeCompass('N');
WriteLn('Compass North');
SetRun(True);
GameTab(4);
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure DoAntiBan;
Begin
case Random(8) of
1: HoverSkill('Random', False);
2: HoverSkill('Mining', False);
3: Begin BoredHuman; End;
4: GameTab(1+random(11));
5: AlmostLogout;
6: RandomMovement;
7: RandomRClick;
8: PickUpMouse;
end;
end;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
procedure Randoms;
begin
FindNormalRandoms;
FindFastRandoms;
AutoRespond;
if (FindFight) then
begin
Status('Running...');
RunAwayDirection('N');
Wait(8500 + random(3500));
RunBack;
end;
end;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
procedure WowLetsBegin;
Begin
Repeat
DoAntiBan;
Randoms;
until(false)
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Begin
//MoveToTray;
Wait(1000)
ActivateClient;
SetupScript;
SetupUser;
Repeat
WowLetsBegin;
Until(TimeFromMark(CurrentTime) = (TimePerPlayer*60000))
End.
Can someone please make my anti-ban not work all the time, thanks!