This is my first script I have decided to release. Got help from my brother with this script. I hope it is an okay start.
Simba Code:program CageFishing;
{$DEFINE SMART}
{$i srl/srl.simba}
const
{==========Smart Setup==========}
World = 0; // Input the runescape world number right here for it to select. You may leave it as 0 if you would like it to select a random world.
MEMBERS = False; // Select False if you are not a member. Select True if you are a member.
SIGNED = True; // Select True if you are using single account. Select False if not. Do know that this is a single account script.
{===============================}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Your Runescape username goes right here.
Players[0].Pass := ''; //Your Runescape password goes right here.
Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
Players[0].Pin := ''; //Put your Bank PIN here. Leave blank if you don't have a Bank PIN.
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(8) of
0:
begin
HoverSkill('Fishing', false);
wait(1500+Random(750));
end;
end;
end;
procedure MakeNorth;
begin
MakeCompass('n');
Antiban;
end;
procedure FishSpot;
var x, y: integer;
begin
FindNormalRandoms;
SetAngle(SRL_ANGLE_HIGH);
if FindObj(x, y, 'age', 11447206, 10) then
Mouse(x, y, 0, 0, true);
ChooseOption('ishingspot');
repeat
wait(3000+random(250));
Until not IsUpText('ishingspot') or (InvFull);
end;
procedure Drop;
var i: integer;
begin
for i:= 0 to 2 do
begin
DropPattern(Random(2) + 1);
if InvCount = 0 then
break;
end;
end;
begin
Smart_Server := WORLD;
Smart_Members := MEMBERS;
Smart_Signed := SIGNED;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
AntiBan;
FishSpot;
Drop;
until AllPlayersInactive;
end.
Feedback would be nice.



Reply With Quote

only "bugs" (or issues that i noticed off the bat) were these:



