SRL Archive - RS3 Outdated / Broken Scripts

Side Notes:
Cooking doesnt work
Make sure to have a spare Harpoon/Cage
Soon to add:
More Anti-Randoms.

Credits : BuckleyInDaHouse
Fixed By: Sean.

{
 /////////
 //           //
 //
 ///////     //    ////////
 //         //    /     //
 //        //    //    //

BuckleyInDaHouse Karamja PowerFisher
Credits: Buckley
Fixed by : Sean
}

program powerfisher;
{.include srl/srl.scar}
{.include srl/srl/skill/Fishing.scar}





const
LoadsToDo= 10;//Loads to do
pub= 'On';// public chat
TimeWait= 50;//How many minutes to wait before logging in next player(5 = 8 mins)
Priv= 'Off';//private chat
Trade= 'Off';//trade chat
FishType= 2;//1 = lobbies 2 = swordfish or tuna
TimeToWait= 5;//How many seconds to wait before clicking again
RunDirection= 'N';//Run Direction if fight is found
Cook= True;//True if you want to cook your fish [Doesnt work]
AutoRespond= True;//True if u want to autotalk


var
Loads,Lobbys,mx,my,EXP: integer;

procedure Declareplayers;
  begin
  HowManyPlayers:=9;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:=0;

     Players[0].Name :='Administartor'; //PlayerName
     Players[0].Pass :='packman'; //Password
     Players[0].Nick :='FUN';//Players nick name( a few letters from playername)
     Players[0].Skill :='fishing';//The skill to pick if you get Genie random
     Players[0].Loc  :=''; //leave this alone
     Players[0].Active:=True;// Leave this alone 2
     
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      end;



procedure Responderr;
begin
SetChat('On',1);
  if (InChat('Mining lvls') or
    InChat('Mining lvls?') or
    InChat('Mine lvls') or
    Inchat('Mine lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Mining')))
  end;

  if (InChat('Wc lvls') or
    InChat('Wc lvls?') or
    InChat('Woodcut lvls') or
    InChat('Woodcut lvls?') or
    InChat('Woodcutting lvls') or
    InChat('Woodcutting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
  end;
  if (InChat('Fish lvls') or
    InChat('Fish lvls?') or
    InChat('Fishin lvls') or
    InChat('Fishin lvls?') or
    InChat('Fishing lvls') or
    InChat('Fishing lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Fishing')))
  end;
  if (InChat('Attack lvls') or
    InChat('Attack lvls?') or
    InChat('Atack lvls') or
    InChat('Atack lvls?') or
    InChat('Attac lvls') or
    InChat('Attac lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Attack')))
  end;

  if (InChat('Strengh lvls') or
    InChat('Strengh lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Strengh')))
  end;

  if (InChat('Defenc lvls') or
    InChat('Defenc lvls?') or
    InChat('Defence lvls') or
    InChat('Defence lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Defence')))
  end;

  if (InChat('Hp lvls') or
    InChat('Hp lvls?') or
    InChat('Hitpoint lvls') or
    InChat('Hitpoint lvls?') or
    InChat('Hitpoints lvls') or
    InChat('Hitpoints lvls?') or
    InChat('Hitp lvls') or
    InChat('Hitp lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
  end;

  if (InChat('Range lvls') or
    InChat('Range lvls?') or
    InChat('Rangin lvls') or
    InChat('Rangin lvls?') or
    InChat('Ranged lvls') or
    InChat('Ranged lvls?') or
    InChat('Ranging lvls') or
    InChat('Ranging lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Ranged')))
  end;

  if (InChat('Pray lvls') or
    InChat('Pray lvls?') or
    InChat('Prayer lvls') or
    InChat('Prayer lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Prayer')))
  end;

  if (InChat('Mage lvls') or
    InChat('Mage lvls?') or
    InChat('Mag lvls') or
    InChat('Mag lvls?') or
    InChat('Magic lvls') or
    InChat('Magic lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Magic')))
  end;

  if (InChat('Cook lvls') or
    InChat('Cook lvls?') or
    InChat('Cookin lvls') or
    Inchat('Cookin lvls?') or
    InChat('Cooking lvls') or
    InChat('Cooking lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Cooking')))
  end;

  if (InChat('Fletch lvls') or
    InChat('Fletch lvls?') or
    InChat('Fletching lvls') or
    InChat('Fletching lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Fletching')))
  end;

  if (InChat('Firemaking lvls') or
    InChat('FireMaking lvls?') or
    Inchat('Fire making lvls') or
    InChat('Fire making lvls')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Firemaking')))
  end;

  if (InChat('Craft lvls') or
    InChat('Craftt lvls?') or
    InChat('Craftin lvls') or
    InChat('Crafting lvls?') or
    InChat('Crafting lvls') or
    InChat('Crafting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Crafting')))
  end;

  if (InChat('Smelt lvls') or
    InChat('Smelt lvls?') or
    InChat('Smelting lvls') or
    InChat('Smelting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Smelting')))
  end;

  if (InChat('Rc lvls') or
    InChat('Rc lvls?') or
    InChat('Runecraft lvls') or
    InChat('Runecraft lvls?') or
    InChat('Runecrafting lvls') or
    InChat('Runecrafting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Runecraft')))
  end;

  if (InChat('Wna b freinds?') or
    InChat('Wna be freinds?') or
    InChat('Wana b freinds?') or
    InChat('Wana be freinds?') or
    InChat('Want 2 b freinds?') or
    InChat('Want 2 be freinds?') or
    InChat('Want to b freinds?') or
    InChat('Want to be freinds?')) then
  begin
    TypeSend('No ty')
  end;

  if (InChat('Hi' + (Players[CurrentPlayer].Name)) or
    InChat('Hey' + (Players[CurrentPlayer].Name)) or
    InChat('Hello' + (Players[CurrentPlayer].Name))) Then
  begin
    TypeSend('Hi')
  end;

  if (InChat('You are a noob' + (Players[CurrentPlayer].Name)) or
    InChat( + (Players[CurrentPlayer].Name)+ 'you are a noob')) then
  begin
    TypeSend('Okay')
  end;

  if (InChat('What music do you people like?') or
    InChat('Wat music do you guys like?') or
    InChat('What music you ppl like?') or
    InChat('Wat music do yoo  peeps like')) then
  begin
    TypeSend('Rap FTW!!')
  end;
end;


 procedure ToTalk;
 begin
 if(Autorespond = True) then
 begin
 Responderr;
 end;
 end;


procedure setup;
begin
if(Not(LoggedIn)) then
LoginPlayer;
Setchat(pub,1);
setchat(priv,2);
setchat(trade,3);
SetRun(True);
HighestAngle;
MakeCompass('W');
end;



Procedure MyAntiBan;
 var
 DBanMe : Integer;
  begin
   DBanMe:= Random(20);
    case DBanMe of
     1: RandomRClickEvery(2 + Random(13));
     //2: hoverskill('Fishing', false);
     3: RandomChatEvery(10 + Random(5));
     4: RotateEvery(20 + Random(10));
     5: LeaveScreenEvery(5 + Random(5));
     6: HoverEvery(15 + Random(5),'random');
     8: PickUpMouse;
     9: BoredEvery(9 + Random(24));
    // 10: DragItem(1, 1+Random(18));
     11: GameTab(1 + Random(12));
     //12: DoEmote(1 + Random(20));
   end;
end;



procedure DumbRandoms;
begin
If(Not(Loggedin)) then
LoginPlayer;
If(FindFight) then
Begin
RunAwayDirection(RunDirection)
wait(10000+random(5000));
RunBack;
FindNormalRandoms;
FindMod;
FindTalk;
FindLamp(Players[CurrentPlayer].Skill);
FindMime;
FindDead;
HandleWhirlPool;
end;
end;


procedure FindEmAndFishEm;
begin
repeat
MouseSpeed:= 10;
if(FindObj(x,y,'Cage',16511192,75)) then
wait(150+random(250));
if(FishType = 1) then
Mouse(x,y,2,2,True);
DumbRandoms;
ToTalk;
If(FishType = 2) then
ClickMouse(x,y,false);
Wait(100+random(200));
ChooseOption(x,y,'Harpoon');
DumbRandoms;
Wait(timetowait*1000+random(2500));
ToTalk;
DumbRandoms;
MyAntiBan;
until(InvFull)
end;

 
 

Procedure DropThem;
begin
DropTo(3,28);
Loads:= Loads + 1;
Lobbys:= Lobbys + 26;
EXP:= EXP + 2340;
end;


procedure credits;
begin
cleardebug;
Writeln('This script was made by Buckleyindahouse');
wait(250);
Writeln('I worked really hard on this one so send me bugs');
wait(250);
Writeln('Either Pm them to me on Villu-Reborn or Contact me at');
wait(250);
Writeln('Contact: bigbwoi2000@hotmail.com');
wait(250);
Writeln('Thank You and im not responsible if you get banned!');
end;


procedure StupidReport;
begin
Writeln('You have been powerfishing for: '+TimeRunning);
Writeln('You have gained about: '+IntToStr(Exp)+' From Powerfishing');
Writeln('You have fished aproximately: '+intToStr(Lobbys)+' Lobsters');
Writeln('You have dropped aproximately: '+intToStr(Loads)+' of Lobsters');
end;




begin
SetupSRL;
SetupSRLFishing;
DeclarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
credits;
wait(1500);
Activateclient;
If(Not(Loggedin)) then
LoginPlayer;
setup;
repeat
repeat
FindEmAndFishEm;
DumbRandoms;
until(invfull)
DropThem;
DumbRandoms;
StupidReport;
until(Loads = LoadsToDO)
Logout;
credits;
wait(TimeWait*100000+random(200000));
NextPlayer(True);
end.

If you have any problems post back here. Ill try to fix them
And if i cant
Ill ask Buckly.

Mouse(x,y,2,2,True);
DumbRandoms;
ToTalk;
If(FishType = 2) then
ClickMouse(x,y,false);


Umm…. Problems, you use clickmouse, also, why did you use clickmouse even after you used mouse?

for

 if (InChat('Wna b freinds?') or
    InChat('Wna be freinds?') or
    InChat('Wana b freinds?') or
    InChat('Wana be freinds?') or
    InChat('Want 2 b freinds?') or
    InChat('Want 2 be freinds?') or
    InChat('Want to b freinds?') or
    InChat('Want to be freinds?')) then
  begin
    TypeSend('No ty')
  end;

you spelt friends wrong in every single one, and most people dont, so it wont find it i dont think.

Is that you sean from Sythe? Lol.

Yeah, clickmouse=ban read my tut, links in sig: "things the beginner tuts don't teach you". that should teach you how to use those if you don't. and if you use mouse, you don't need clickmouse as said above, because it already clicked. MMouse moves mouse, Mouse moves mouse and clicks, as you will learn if you read my tut :) good work though, keep it up.

this looks too similar to buckley's script JAD…:rolleyes:

the responder doesnt work either…

why not?

It is Buckleys script. He Said i could fix it up,

Im still gone put more work into it since hes not doing anything with it.

=D
@Buckley Yeah its me.

hah stole that for my karamja fishing banking script and modified it a bit and it works!;) ty dude nice script by the way

From: macromacro123
hah stole that for my karamja fishing banking script and modified it a bit and it works!;) ty dude nice script by the way

Thats my script, Sean is fixing cause im not doing anything with it. So sean or I did steal and modify your script. The responder was created by someone awhile back forgot his name…I think its Dawu its been awhile here on the forums since I seen him.

looks good. Nice atou talker, i really like those.

From: Buckleyindahouse
Thats my script, Sean is fixing cause im not doing anything with it. So sean or I did steal and modify your script. The responder was created by someone awhile back forgot his name…I think its Dawu its been awhile here on the forums since I seen him.

We did o.O

I think he means we didn't.

So blah! Go away!

Nice work keep it up :stirthepot:

it says…

Include file D:\Program Files\SCAR 2.03\includes\srl/srl.scar does not exist.
Include file D:\Program Files\SCAR 2.03\includes\srl/srl/skill/Fishing.scar does not exist.
Failed when compiling

what's that mean and how do i fix it?

From: pistoluser7
it says…

Include file D:\Program Files\SCAR 2.03\includes\srl/srl.scar does not exist.
Include file D:\Program Files\SCAR 2.03\includes\srl/srl/skill/Fishing.scar does not exist.
Failed when compiling

what's that mean and how do i fix it?

You need to download the srl and the includes:google:

Failed when compiling
Line 57: [Error] (57:1): Unknown identifier 'GameTab' in script C:\Program Files\SCAR 3.06\includes\srl\srl\skill\Fishing.scar
What should I do when this happens?

plz someone help me with my noobie error: unknow identifier 'FindItemColor' in script (fishing.scar)
(got SRL 3.81 ans SCAR 3.06

its an old script, dont use it