SRL Archive - Archive

bobby - SRL Member Application Form
bobby

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
by God :)

Programming Knowledge
a little php, C++, but really not much of either

Other Communitys
moparisthbest, wsa sythe but left, fagex for a while, Kaitnieks, Laughing at the poeple who thought they would get autorune2 @autoruneltd.com and otheres that I can't remeber.

How Long have You Played Runescape
3 years i think

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I joined Rs cheating a couple years, ago, I consider my self a mediocre scriptor, and just want to helpout the communtity :). My favorite Rs cheating moment was aryan (duh!) and can't wait to script for scar 3.00. Don't really know what else to say. I hope my scripts do the talking. :)

I am posting my scripts, and some forms I made

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

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





const
LoadsToDo= 2;//Loads to do
pub= 'On';// public chat
TimeWait= 20;//How many minutes to wait before logging in next player(5 = 8 mins)
Priv= 'Off';//private chat
Trade= 'Off';//trade chat
FishType= 1;//1 = lobbies 2 = swordfish or tuna
TimeToWait= 25;//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
AutoRespond= True;//True if u want to autotalk


var
Loads,Lobbys,EXP: integer;

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

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

     Players[1].Name :=''; //PlayerName
     Players[1].Pass :=''; //Password
     Players[1].Nick :='';//Players nick name( a few letters from playername)
     Players[1].Skill :='';//The skill to pick if you get Genie random
     Players[1].Loc  :=''; //leave this alone
     Players[1].Active:=True;// Leave this alone 2

     Players[2].Name :=''; //PlayerName
     Players[2].Pass :=''; //Password
     Players[2].Nick :='';//Players nick name( a few letters from playername)
     Players[2].Skill :='';//The skill to pick if you get Genie random
     Players[2].Loc  :=''; //leave this alone
     Players[2].Active:=True;// Leave this alone 2

     Players[3].Name :=''; //PlayerName
     Players[3].Pass :=''; //Password
     Players[3].Nick :='';//Players nick name( a few letters from playername)
     Players[3].Skill :='';//The skill to pick if you get Genie random
     Players[3].Loc  :=''; //leave this alone
     Players[3].Active:=True;// Leave this alone 2

     Players[4].Name :=''; //PlayerName
     Players[4].Pass :=''; //Password
     Players[4].Nick :='';//Players nick name( a few letters from playername)
     Players[4].Skill :='';//The skill to pick if you get Genie random
     Players[4].Loc  :=''; //leave this alone
     Players[4].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
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 Report;
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);
wait(1500);
Activateclient;
If(Not(Loggedin)) then
LoginPlayer;
setup;
repeat
repeat
FindEmAndFishEm;
DumbRandoms;
until(invfull)
DropThem;
DumbRandoms;
Report;
until(Loads = LoadsToDO)
Logout;
wait(TimeWait*100000+random(200000));
NextPlayer(True);
end.

Also:

{^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
^^^^^^^^^^^^^^^^Draynor willow chopper & banker ^^^^^^^^^^^^^^^^^^^^^^^^^
^^^^^^^^^^^^^^^^      This is version 3.         ^^^^^^^^^^^^^^^^^^^^^^^^
^^^^^^^^^^^^^^^   Script by:  Bobby               ^^^^^^^^^^^^^^^^^^^^^^^
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

.This chops full load of willows and then banks them
.Pickup color
.start in bank or willows.

*****************************************************
*****************VERSION HISTORY*********************
*****************************************************
****************V.1. First relased*******************
****************V.2. Fixed chopping procedure********
****************V.3. Progress report,"How many- *****
****************    -Trips to do", Better anti- *****
****************    -randoms. Better banking.********
****************************************************}

program DraynorWillowChopper;
{.include Srl/Srl.scar}
{.include Srl/srl/skill/woodcutting.scar}
const
                            ///////////////\\\\\\\\\\\\\
      BankSymbol=4443346;   //Minimap banksymbol color\\
      FishSymbol=13908737;  //Minimap fishsymbol color\\
      Willow1=3563608;      //color of willow         \\
      Willow2=3829856;      //second color of willows \\
                            //                        \\
      HowManyBanks=50;      //How many trips to       \\
                            //cut and bank            \\
                            ///////////////\\\\\\\\\\\\\
      
  var Totalcut,totalbankings,x2,y2,ChopWillow,CloseBank01:integer;


  procedure  ToWillows;
  begin
  movemousesmooth(620,124)
  wait(200)
  Mouse(620,124,2,2,true)
  repeat wait(200)until(findmmcolor(x,y,fishsymbol))
  findmmcolor(x,y,FishSymbol)
  wait(200)
  movemousesmooth(x,y)
  wait(200)
  Mouse(x,y,2,2,true)
  flag;
  end;

  procedure Chop;
  begin  repeat if
  (findcolor(x,y,willow1,0,0,570,360))or
  (findcolor(x,y,willow2,0,0,570,360))then
  movemousesmooth(x,y)
  wait(200)
  Mouse(x,y,2,2,false)
  wait(200)
  if(not(findcolor(x,y,willow1,0,0,570,360)))or
     not(findcolor(x,y,willow2,0,0,570,360))then
     ToWillows;
  if(findbitmap(ChopWillow,x2,y2))then
  movemousesmooth(x2+10,y2+5)
  wait(200)
  mouse(x2+10,y2+5,2,2,true)

   ClickToContinue;
   FindScapeRune;
   FindEnt(willow1)
   FindEnt(willow2)
   FindFight;
   TalkToRand;
   FindLamp('woodcutting')
   FindNormalRandoms;
  if(not(invfull))then FindHead;
  wait(5000);
   ClickToContinue;
   FindScapeRune;
   FindEnt(willow1)
   FindEnt(willow2)
   FindFight;
   TalkToRand;
   FindLamp('woodcutting')
   FindNormalRandoms;
  until(InvFull) Writeln('Inventory full, going to bank')
  TotalCut := TotalCut + 27
  end;
  
  procedure GoToBank;
  begin
  findmmcolor(x,y,banksymbol)  if(not(findmmcolor(x,y,banksymbol)))then writeln('Cant find banksymbol.')
  movemousesmooth(x,y)
  wait(500)
  mouse(x,y,2,2,true)
  flag;
  openbank3;
  wait(1000)
  fixbank;
  deposit(2,28,2);
  wait(1000)
  TotalBankings := TotalBankings + 1
  writeln('All willows deposited')
  end;
  
  procedure CloseB;
  begin  repeat
  findbitmap(CloseBank01,x,y)
  movemousesmooth(x,y)
  wait(1000)
  mouse(x,y,2,2,true)
  until(not(findbitmap(Closebank01,x,y)))
  wait(1000)
  Makecompass('N')
  end;
  
  Procedure ProgressReport;
Begin

 WriteLn('   Draynor Willow Cutter & Banking')
 WriteLn('   _______________________________');
 WriteLn('   Total logs banked ~' + inttostr(TotalCut) + '.')
 WriteLn('   Total of ' + inttostr(TotalBankings) + ' banking runs.')
 Writeln('   _______________________________')
End;
  
  procedure LoadBitMaps;
  begin
  Chopwillow := BitmapFromString(112, 18, 'z78DAED5A4912C2201' +
       '0FC1287587EC0F2FF4FB2AC5C1261C69E4D419B431F60C26C0D4C' +
       '055A63639BB75D6E976DBB12894422318EF7AEE932ABFBB86EA65' +
       'A7BDABF63440691B7CE539DB5FDF497F2D84BAECBCF75EB9C2367' +
       '242F101944DE3A4F75BECEB6BDF6909FE4E7CCF9223F57E727728' +
       'EFF063F917A55FF2A4BDE6773EF2FAED737EA8B1EC2BD9E753AAF' +
       '4667A5879FE751AD52F58DC6F969AD5773E52375B55EB744EA704' +
       '40B123D1F3FA59EDCFD73A471BC52EC3CF7D793481E91F9B3FAE7' +
       'B1F3C8AEC82AF0D58A3E7E7EB71FD9EDB3EACFF9F959D7AFB70AE' +
       'FD6E7A78EDA79845750E4A77E52D77967C978B4CEACE467BF8EB4' +
       '0848B18D4758DF5BF07DC97A3F8BEF6C563B8FF2921759D1F3B27' +
       '46C7316DF62DAA555F33EBFC84DBDAC1DFD4ACF789FDFC8CB01EB' +
       '3B04AB5E7D9EACE8F97C44E43F93D948C4F87F9248243F89E4279' +
       '1587F7FC777AAFF8E0FCEEA6E3E');
       
        CloseBank01 := BitmapFromString(19, 20, 'z78DAC594411283200C4' +
       '5AF244908B29452EE7FA45A7F17CC88347464EAE28D03212F8824' +
       'E6E8C223826E152D33B86A48BA86459D6872DB1AE33C63EDF2C51' +
       '37F76879179F45132472F1239A092D946798A670661D4E4B370CD' +
       'E5FD38F03C3B1A3F6AEC7B2D91B51127FB5B367B550DA3F820EE8' +
       'AE7CC0D5737C3A8B1EFB5ACDDFFD14205B41BCF5EFB2A614E9440' +
       '187137FBBCDAA365EDA8D1728E76E3DE6FF6966077D967BF18D18' +
       '52A36B29D62EC91A3C62B973DBE613C7AEC3CF2C6440AFEC1C8AA' +
       '5EA61B8532118C18C117AE2BB98D878B12A9CB78B7DCB57BF902E' +
       '139DD87');
       
       end;
  
////////////////////////////////////////////////////////////////////////
  begin
  LoadBitMaps;
  setupsrl;
  fixchat;
  setchat('off',1);
  setchat('off',2);
  setchat('off',3);
  Findaxeheadcolor;
  repeat
  MakeCompass('N');
  SetRun(true)
  ToWillows;
  SetRun(false)
  Chop;
  MakeCompass('W');
  SetRun(true)
  GoToBank;
  CloseB;
  ProgressReport;
  Until(HowManyBanks = TotalBankings)
  end.
/////////////////////

i borowed a little from someone, not sure who but I changed it around alot.

and my last script has an auth system and is obfused, just use test for password and test for the username:
Nvm I couldn't ob it for some reason.

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


const
LoadsToDo= 2;//Loads to do
pub= 'On';// public chat
TimeWait= 20;//How many minutes to wait before logging in next player(5 = 8 mins)
Priv= 'Off';//private chat
Trade= 'Off';//trade chat
FishType= 1;//1 = lobbies 2 = swordfish or tuna
TimeToWait= 25;//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
AutoRespond= True;//True if u want to autotalk


var
Loads,Lobbys,EXP: integer;

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

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

     Players[1].Name :=''; //PlayerName
     Players[1].Pass :=''; //Password
     Players[1].Nick :='';//Players nick name( a few letters from playername)
     Players[1].Skill :='';//The skill to pick if you get Genie random
     Players[1].Loc  :=''; //leave this alone
     Players[1].Active:=True;// Leave this alone 2

     Players[2].Name :=''; //PlayerName
     Players[2].Pass :=''; //Password
     Players[2].Nick :='';//Players nick name( a few letters from playername)
     Players[2].Skill :='';//The skill to pick if you get Genie random
     Players[2].Loc  :=''; //leave this alone
     Players[2].Active:=True;// Leave this alone 2

     Players[3].Name :=''; //PlayerName
     Players[3].Pass :=''; //Password
     Players[3].Nick :='';//Players nick name( a few letters from playername)
     Players[3].Skill :='';//The skill to pick if you get Genie random
     Players[3].Loc  :=''; //leave this alone
     Players[3].Active:=True;// Leave this alone 2

     Players[4].Name :=''; //PlayerName
     Players[4].Pass :=''; //Password
     Players[4].Nick :='';//Players nick name( a few letters from playername)
     Players[4].Skill :='';//The skill to pick if you get Genie random
     Players[4].Loc  :=''; //leave this alone
     Players[4].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
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 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;






var
  gUser, gPass, gTempStr : string;
procedure endprocedure;
Begin
cleardebug;
writeln('script terminating try again')
terminatescript;
end;

procedure Authenticate2;
 Begin
     gUser := Readln('Auth username?');
  gPass := Readln('Auth password?');
 gTempStr := GetPage('http://Bobbyscripts.freehostia.com/?username=' + gUser + '&password=' + gPass + '&auth=AUTH1');
   if (gTempStr = 'ACCEPTED') then
   addtoreport('Auth accepted')
  else begin
   wait(5000)
   Writeln('Error authenticating! Ending script in 1 second');
   writeln('1 seconds left')
   wait(1000)
   writeln('0 seconds left')
   writeln('script terminating now')
   Begin
    endprocedure;
    end;
    end;
     end;
procedure Authenticate;
begin
  gUser := Readln('Auth username?');
  gPass := Readln('Auth password?');
  gTempStr := GetPage('http://Bobbyscripts.freehostia.com/?username=' + gUser + '&password=' + gPass + '&auth=AUTH1');
  if (gTempStr = 'ACCEPTED') then
    addtoreport('Auth excepted')
  else begin
    writeln('The Username and Password you gave are not working.')
    Writeln('Checking second website')
    wait(5000)
    Authenticate2;
    end;
    end;


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

——————————————————

POOR SHOW!!! ALL scripts are stoled fisher: http://dakotastorm.sslpowered.com/villu-reborn.com/showthread.php?t=5450&highlight=power+fisher
I have seen that willow chopper in Sythe, made by someone else.
I bet you dont know anything about scripting…

And they aren't even good.

That fisher looks alot like mines :), anyways yea Boreas the fisher wasnt all that good but I wasnt that good my self.

i proclame him a LEECHER - NOOB!!!

Ruroken did you finish the cup yet?

Buckley fix this

NextPlayer(True);
end.

I used buckleys, but I thought I changed it. I also changed the willow one. Was it not enough?

lol, You make your own scripts to get in. Not copy other people's.

I know that, but I thought I changed it alot alot. But I guess I didn't

bobby, You don't know how to use Scar, you don't even know how to use SRL. You stoled the scripts… Maybe you should learn first some basic things, make your own script and then try applying again…

I said I thought I changed them enough. I do know how to script, I never knew hat to script. sorry. I guess I did the wrong thing. I will go write my own script and reapply later.