Simba Code:
program Uz3sGnomeAgility;
{$include srl/srl/misc/smart.scar}
{$include srl/srl.scar}
var
x,y,lap,laps,exp,Tempx,Tempy: integer;
procedure TotalExp;
begin
laps:= lap + 1;
laps:= lap - 1;
exp:= lap * 86;
end;
procedure ProgressReport;
begin
ClearDebug;
WriteLn('--------------------------------------');
WriteLn(' Uz3s Gnome Agility v1.2.2');
WriteLn('--------------------------------------');
WriteLn('Script Ran For: ' + TimeRunning);
WriteLn('Laps: ' + IntToStr(laps));
WriteLn('Experience gained...'+ IntToStr(exp));
WriteLn('Multiply laps by .5 and add it to experience gained for real exp');
WriteLn('--------------------------------------');
end;
procedure AntiBan;
begin
case random(300) of //do a random number so it won't always perform the antiban
0: RandomRClick;
1: PickUpMouse;
2: RandomRClick;
3: HoverSkill('agility', False);
4: ExamineInv;
end;
end; //Antiban
procedure AntiRandoms;
begin
FindNormalRandoms; // Whenever this is called, the script will check to see if your character is in a random event
LampSkill := 'agility'; // If you set the script to choose an experience lamp from a random event box, it will use the exp on the woddcutting skill
LevelUp; // This is an Antiban procedure, but I find it more useful when called here because AntiRandoms is usually called more often than Antiban
end; //antirandoms
procedure LogBalance;
begin
MakeCompass('N');
repeat
wait(500 + random(100));
if (FindColorSpiralTolerance(x,y,732235, 182, 212, 360, 271, 3))
then
MMouse(x,y,3,5);
until (IsUpText('Log'));
begin
WriteLn('Walking across log balance!');
if (IsUpText('Log'))
then
Mouse(x,y,3,5, true);
if (FindColorSpiralTolerance(x,y,65278, msx1, msy1, msx2, msy2, 1)) // begin misclick failsafe (What I did here is it checks for when you don't click any object in particular so it gives you a yellow 'X' where you clicked. If I clicked on an object, it would be red)
then
repeat
WriteLn('Misclick, readjusting!');
wait(500 + random(100));
if (FindColorSpiralTolerance(x,y,998761, msx1, msy1, msx2, msy2, 5))
then
MMouse(x,y,5,5);
if (IsUpText('Log'))
then
Mouse(x,y,5,5, true);
until (IsUpText('Log')); // end misclick failsafe
wait(25 + random(50));
MakeCompass('S');
wait(1000 + random (255));
AntiRandoms;
AntiBan;
wait(3500+random(50));
end;
end;//Logbalance
procedure ObstacleNet1;
begin
repeat
wait(100 + random(50));
if (FindColorSpiralTolerance(x,y,2043192, 245, 37, 313, 50, 10))
then
MMouse(x,y,5,5);
until (IsUpText('net'));
begin
WriteLn('Climbing up obstacle net!');
if (IsUpText('net'))
then
Mouse(x,y,5,5, true);
MakeCompass('E');
wait(1000 + random (255));
MakeCompass('E');
AntiRandoms;
AntiBan;
wait(2500+random(100));
end;
end; //Obstacle Net
procedure ClimbBranchUp;
begin
repeat
wait(100 + random(50));
if (FindColorSpiralTolerance(x,y,1323328, 301, 140, 338, 290, 3))
then
MMouse(x,y,10,10);
until (IsUpText('branch'));
begin
WriteLn('Climbing up tree branch!');
if (IsUpText('branch'))
then
Mouse(x,y,5,5, true);
wait(500 + random (255));
MMouse(543,25,5,5);
Mouse(543,25,5,5, true);
AntiRandoms;
AntiBan;
wait(1500+random(100));
end;
end; // climb branch up
procedure BalancingRope;
begin
wait(100 + random(10));
if (FindColorSpiralTolerance(x,y,1255991, 495, 191, 511, 195, 3))
then
MMouse(x,y,5,3);
Mouse(x,y,5,3, true);
repeat
wait(3000 + random(100));
MMouse(304,196,10,1);
until (IsUpText('rope'));
begin
if (IsUpText('rope'))
then
repeat
wait(100 + random (50));
Mouse(304,196,5,0, true);
until(FindBlackChatMessage('carefully'));
WriteLn('Walking across rope!');
wait(500 + random (255));
end;
AntiRandoms;
AntiBan;
end; //obstacle rope
procedure ClimbBranchDown;
begin
repeat
wait(500 + random(100));
if (FindColorSpiralTolerance(x,y,2183786, 472, 192, 504, 208, 3))
then
MMouse(x,y,5,5);
until (IsUpText('branch'));
begin
WriteLn('Walking across log balance!');
if (IsUpText('branch'))
then
Mouse(x,y,5,5, true);
AntiRandoms;
AntiBan;
wait(2500+random(100));
end;
end;
procedure ObstacleNet2;
begin
repeat
wait(100 + random(50));
if (FindColorSpiralTolerance(x,y,2636103, 193, 26, 220, 40, 5))
then
MMouse(x,y,5,5);
until (IsUpText('net'));
begin
WriteLn('Climbing up obstacle net!');
if (IsUpText('net'))
then
Mouse(x,y,15,5, true);
wait(1000 + random (255));
AntiRandoms;
AntiBan;
wait(5000+random(100));
end;
end; //Obstacle Net 2
procedure ObstaclePipe;
begin
repeat
if (FindColorSpiralTolerance(x,y,855309, 126, 72, 178, 108, 5))
then
MMouse(x,y,5,5);
until (IsUpText('pipe'));
begin
WriteLn('Climbing in obstacle pipe!');
if (IsUpText('pipe'))
then
Mouse(x,y,10,5, true);
end;
begin
wait(500);
if (FindBlackChatMessage('is being used'))
then
WriteLn('Pipe in use, waiting!');
wait(1000 + random (100));
MMouse(256,132,15,15);
Mouse(x,y,5,5, true);
end;
wait(1500 + random (255));
lap:= lap + 1;
AntiRandoms;
AntiBan;
wait(4500+random(100));
MMouse(589,89,5,5);
Mouse(589,89,5,5, true);
end;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // This is set to the total amount of players, for now, just keep it set as 1
NumberOfPlayers(HowManyPlayers); // Don't touch
CurrentPlayer := 0; // This is the player to start with; the first player will always be 0
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
// Setting up SMART;
Smart_Server := 123;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer; // Logging in...
end; // setup login
begin //main function
SetupLogin;
SetupSRL;
DeclarePlayers;
ActivateClient;
repeat
LogBalance;
ObstacleNet1;
ClimbBranchUp;
BalancingRope;
ClimbBranchDown;
ObstacleNet2;
ObstaclePipe;
TotalExp
ProgressReport;
until(false)
end.//main function