Yea I knew about that but I wanted to do my script with color while grim did his with object finding.
FYI I'm probably not going to be updating this script again.
Yea I knew about that but I wanted to do my script with color while grim did his with object finding.
FYI I'm probably not going to be updating this script again.
Good luck with this cant wait till its stable to run for hours i want 99 agility hope advanced course comes soon![]()
Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''
How do I fix this error?
http://villavu.com/forum/showthread....highlight=SRL5
Go here to help you learn how to convert that is of course if you want to![]()
FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!!"WITH A NEW QUESTION COMES A NEW CHALLENGE"
Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc
Does the log balance and they just sits there. tried many camara angles and none worked.
Update your script to SRL5:
Change '.SCAR' to '.simba' so it appears as
{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}
You also have to change change the setNorth and setAngle methods. Read the SRL FAQ for "unable to find srl.
Stop after log.
Last edited by hhhzzzarn; 01-13-2012 at 09:20 PM.
program Uz3sGnomeAgility;
{$include srl/srl/misc/smart.scar}
{$include srl/srl.scar}
var
x,y,lap,laps,exp,Tempx,Tempy,misClickCounter: integer;
climbBranchUpSwitch:boolean;
procedure TotalExp;
begin
laps:= lap + 1;
laps:= lap - 1;
exp:= lap * 86;
end;
procedure ProgressReport;
begin
ClearDebug;
WriteLn('--------------------------------------');
WriteLn(' Uz3s Gnome Agility v1.2.3');
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(500) 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
repeat
wait(500 + random(100));
if (FindColorSpiralTolerance(x,y,666701, 182, 212, 360, 271, 5))
then
MMouse(x,y,3,5);
until (IsUpText('Log'));
begin
WriteLn('Walking across log balance!');
if (IsUpText('Log'))
then
repeat
wait(1500 + random(100));
if (IsUpText('Log')) then
Mouse(x,y,3,5, true);
until(FindBlackChatMessage('slippery'));
AntiRandoms;
AntiBan;
wait(3000+random(50));
end;
end;//Logbalance
procedure ObstacleNet1;
begin
SetAngle(False);
repeat
wait(100 + random(50));
if (FindColorSpiralTolerance(x,y,999019, 210, 227, 245, 239, 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);
wait(1000 + random (255));
AntiRandoms;
AntiBan;
wait(1500+random(100));
end;
end; //Obstacle Net
function branchcolor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.09, 0.47);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 2117223, MSX1, MSY1, MSX2, MSY2, 2);
if (Length(arP) = 0) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 7.59) and (X <= 9.69) and (Y >= 7.51) and (Y <= 9.57) and (Z >= 2.26) and (Z <= 2.79) then
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
procedure climbbranch;
begin
SetAngle(true);
if FindObj( x, y, 'ranch', branchcolor ,3) then
writeln ('found branch');
begin
if IsUpText('ranch') then
begin
mouse( x, y, 1, 1, true);
wait(2000)
end;
end;
end;
procedure BalancingRope;
begin
SetAngle(False);
wait(100 + random(10));
MMouse(654,75,5,3);
Mouse(654,75,2,0, true);
repeat
wait(100 +random(10));
if (FindColorSpiralTolerance(x,y,5733788, 299, 189, 319, 203, 10))
then
MMouse(x,y,10,1);
until (IsUpText('rope'));
if (IsUpText('rope'))
then
repeat
wait(500 + random(100));
Mouse(x,y,3,0, true);
until(FindColorSpiralTolerance(x,y,254, msx1, msy1, msx2, msy2, 1));
WriteLn('Walking across rope!');
wait(500 + random (255));
AntiRandoms;
AntiBan;
end; //obstacle rope
procedure ClimbBranchDown;
begin
repeat
wait(500 + random(100));
if (FindColorSpiralTolerance(x,y,2050914, 472, 192, 504, 208, 3))
then
MMouse(x,y,5,5);
until (IsUpText('branch'));
begin
WriteLn('Climbing down branch!');
if (IsUpText('branch'))
then
Mouse(x,y,5,5, true);
AntiRandoms;
AntiBan;
wait(2000+random(100));
end;
end;
procedure ObstacleNet2;
begin
repeat
wait(100 + random(50));
if (FindColorSpiralTolerance(x,y,2636103, 193, 26, 210, 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(4000+random(100));
end;
end; //Obstacle Net 2
procedure ObstaclePipe;
begin
misClickCounter:= 0;
repeat
wait(50);
if (FindColorSpiralTolerance(x,y,789517, 126, 72, 208, 112, 5))
then
MMouse(x,y,5,5);
until (IsUpText('pipe'));
WriteLn('Climbing in obstacle pipe!');
begin
misClickCounter:= 0;
repeat
misClickCounter:= misClickCounter + 1;
wait(1500 + random(100));
if(IsUpText('pipe')) then
Mouse(x,y,5,5, true);
wait(500 + random(50));
if(misClickCounter > 3) then
begin
MMouse(260,125,5,5)
repeat
wait(900 + random(50));
if(IsUpText('pipe')) then
Mouse(260,125,5,5,true);
until(FindBlackChatMessage('squeeze') or FindBlackChatMessage('enter the pipe'));
end;
until(FindBlackChatMessage('squeeze'));
misClickCounter:= 0;
end;
wait(1500 + random (255));
lap:= lap + 1;
AntiRandoms;
AntiBan;
wait(3000+random(1000));
begin
MMouse(592,86,5,5);
Mouse(592,86,5,1, true);
end;
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 := 'x0r9@hotmail.com'; // Username
Players[0].Pass := 'ohmygoditsjanababy'; // 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;
climbbranch;
BalancingRope;
ClimbBranchDown;
ObstacleNet2;
ObstaclePipe;
TotalExp
ProgressReport;
until(false)
end.//main function
this the new one work now most good.
crosses the log, and just stands there.
Unable to find file 'srl/srl/misc/smart.scar' used from ''
~Haro Der
lmao it crosses the rope and stand there any help?
How do you make this work? I've never worked with RS scripts before, and I don't know how to even begin.![]()
how am i supposed to use this "script" its just file wrote on notepad how do i activate it?
this doesnt work
Can anyone help me... I can't find where on site how to install the scripts. Downloaded it and ran, went into simba but got this error message. I am fairly sure I installed simba correctly, with 07 include & smart 8 capable as well. Any help or point me to where to ask this would be appreciated.
Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from 'C:\Users\User\Downloads\Uz3sGnomeAgility v1.2.3(1).simba'
Follow this instruction guide, and make sure you've setup Simba correctly.
How to install/setup Simba
This script is way outdated and was made for Scar. It'd probably be easier to remake it rather than repair it.
My Scripts: DWT Iron Miner
There are currently 1 users browsing this thread. (0 members and 1 guests)