Code:
{**************************************************************************
Procedure:RandomTab
By:The Prince of Randomness
Description:AntiBan Uses tabs Randomly for AntiBan
***************************************************************************}
Var Tab:integer;
{*******************************************************************************
procedure HoverSkill;
By: Dankness
Description: Hovers mouse over selected skill to "check exp"
*******************************************************************************}
procedure hoverskill(skill:string);
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:=1; col:=3; end;
'mining' :begin row:=2; 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;
'random' :begin row:=random(6)+1; col:=random(2)+1; end;
end;
gametab(2);
if useBenMouse then
mmouse(532+(64*col),191+(31*row),10,10)
else
mmouse2(532+(64*col),191+(31*row),10,10);
wait(5000+random(5000));
end;
{**************************************************************************
RandomDeclare Procedures
By:The Prince of Randomness
description: Declares all Randoms
****************************************************************************}
Procedure DeclareRandomTabs;
var i:integer;
Begin
I:=Random(8+1);
Begin
If(i=1)Then
Begin
GameTab(1);
Tab:=1;
If(i=2)Then
Begin
GameTab(2);
Tab:=2;
If(i=3)Then
Begin
GameTab(3);
Tab:=3;
If(i=4)Then
Begin
GameTab(4);
Tab:=4;
If(i=5)Then
Begin
GameTab(5);
Tab:=5;
If(i=6)Then
Begin
GameTab(6);
Tab:=6;
If(i=7)Then
Begin
GameTab(7);
Tab:=7;
If(i=8)Then
Begin
GameTab(8);
Tab:=8;
End;
End;
End;
End;
End;
End;
End;
End;
End;
End;
Procedure DeclareRandomFight;
Var i:integer;
Begin
if(Tab=1)Then
Begin
i:=Random(4+1);
Begin
If(i=1)Then
Begin
SetFightMode(1);
If(i=2)Then
Begin
SetFightMode(2);
If(i=3)Then
Begin
SetFightMode(3);
If(i=4)Then
Begin
SetFightMode(4);
End;
End;
End;
End;
End;
End;
End;
Procedure DeclareRandomSkill;
Begin
hoverskill('random');
End;
{**************************************************************************
Procedure The Hover Over Wielded items
By:The Prince of Randomness
******************************************************************************}
Procedure HoverMouse(X,Y,WaitTime,RangeOfWidth:integer);
Var
TimeVar,Tol:integer;
Begin
Tol:= 10*RangeOfWidth;
MarkTime(TimeVar);
Repeat
MMouse(X,Y,Tol,Tol);
Until(TimeFromMark(TimeVar)>WaitTime);
End;
Procedure HoverOverWeapon;
Begin
GameTab(5);
wait(random(300) + 300);
If(not(GetColor(590,302)=2304814))Then
Begin
HoverMouse(590,302,2000,10);
End;
end;
Procedure HoverOverHat;
Begin
GameTab(5);
wait(random(300) + 300);
If(not(GetColor(225,15)=2304814))Then
Begin
HoverMouse(640,215,2000,10);
End;
End;
Procedure HoverOverCape;
Begin
GameTab(5);
wait(random(300) + 300);
If(not(GetColor(607,267)=4540745))Then
Begin
HoverMouse(607,267,2000,10);
End;
End;
Procedure HoverOverNecklace;
Begin
GameTab(5);
wait(random(300) + 300);
If(not(GetColor(649, 271)=4803917))Then
Begin
HoverMouse(649,271,2000,10);
End;
End;
Procedure HoverOverArrows;
Begin
GameTab(5);
wait(random(300) + 300);
If(not(GetColor(690,265)=2304814))Then
Begin
HoverMouse(680,265, 2000,3);
End;
End;
Procedure HoverOverBody;
Begin
GameTab(5);
wait(random(300) + 300);
If(not(GetColor(649, 308)=4803917))Then
Begin
HoverMouse(649,308,2000,3);
End;
End;
Procedure HoverOverShield;
Begin
GameTab(5);
wait(random(300) + 300);
If(not(GetColor(704, 304)=2304814))Then
Begin
HoverMouse(704,304,2000,3);
End;
End;
Procedure HoverOverLegs;
Begin
GameTab(5);
wait(random(300) + 300);
If(not(GetColor(648, 339)=2304814))Then
Begin
HoverMouse(648, 339,2000,3);
End;
End;
Procedure HoverOverGloves;
Begin
GameTab(5);
wait(random(300) + 300);
If(not(GetColor(225,15)=2304814))Then
Begin
HoverMouse(580,375,2000,3);
End;
End;
Procedure HoverOverBoots;
Begin
GameTab(5);
wait(random(300) + 300);
If(not(GetColor(646, 384)=5067346))Then
Begin
HoverMouse(646, 384,2000,3);
End;
End;
Procedure HoverOverRing;
Begin
GameTab(5);
wait(random(300) + 300);
If(not(GetColor(703, 383)=2304814))Then
Begin
HoverMouse(703,383,2000,3);
End;
End;
Procedure DeclareRandomWear;
var i:integer;
Begin
i:=Random(11+1);
Begin
if(i=1)Then
Begin
HoverOverRing;
if(i=2)Then
Begin
HoverOverBoots;
if(i=3)Then
Begin
HoverOverGloves;
if(i=4)Then
begin
HoverOverLegs;
if(i=5)Then
Begin
HoverOverShield;
if(i=6)Then
Begin
HoverOverBody;
if(i=7)Then
Begin
HoverOverArrows;
if(i=8)Then
Begin
HoverOverNecklace;
if(i=9)Then
Begin
HoverOverCape;
if(i=10)Then
begin
HoverOverHat;
if(i=11)Then
Begin
HoverOverWeapon;
End;
End;
End;
End;
End;
End;
End;
End;
End;
End;
End;
End;
End;
{****************************************************************************
RandomTab
By:The Prince of Randomness
Description:Uses Tabs Randomly, for Less chance of ban.
*****************************************************************************}
Procedure RandomTab;
Begin
Writeln('You are Now Randomly using tabs');
DeclareRandomTabs;
If(Tab=1)Then Begin
DeclareRandomFight;
If(Tab=2)Then Begin
DeclareRandomSkill
If(Tab=3)Then Begin
Writeln('No Quest Random has been made yet');
If(Tab=4)Then Begin
Writeln('No Item Random has been made yet');
If(Tab=5)Then Begin
DeclareRandomWear;
If(Tab=6)Then Begin
Writeln('no Random Prayer Searching has Been Made yet');
If(Tab=7)Then Begin
WriteLn('No Random Mage has been made yet expect in next release');
If(Tab=8)Then Begin
Writeln('This tab searcher hasnt been made yet');
End;
End;
End;
End;
End;
End;
End;
End;
End;