SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Ilikepie1995 - SRL Member Application Form
Ilikepie1995

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
No

Other Communitys
Sythe.org

How Long have You Played Runescape
3

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

Well i dont script alot and dont release my scripts in public, i like to test other ppl programs.
Also sometimes read them lol.Runescape ownz~!

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

program powerfisher;
{.include srl/srl.scar}
{.include srl/srl/skill/Fishing.scar}
{Was made by Blackfire}




const
LoadsToDo= 2;//Loads to do
pub= 'On';// public chat
TimeWait= 5;//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,mx,my,EXP: integer;

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

     Players[0].Name :='Karamaja PowerFisher'; //PlayerName
     Players[0].Pass :='By BuckleyInDaHouse'; //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
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: [email]bigbwoi2000@hotmail.com[/email]');
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.

 

——————————————————
<!– END TEMPLATE: formanswers –>

hmmm…these things kinda give it away.

procedure credits;
begin
cleardebug;
Writeln('This script was made by Buckleyindahouse');

 
     Players[0].Name :='Karamaja PowerFisher'; //PlayerName
     Players[0].Pass :='By BuckleyInDaHouse'; //Password

just wait till YoHoJo gets at you.

What the fucK? IP this bitch damn you Copiers are dumb as balls. Think it's really fun to piss the people here off. Especially those who just make a fake app for the fuck of it. Shit, damn monkeys with down syndrome have a higher IQ than you.

What is up with this?

{Was made by Blackfire}

And then this is in the script.

Players[0].Pass :='By BuckleyInDaHouse'; //Password

he prolly tryed to apply and then say the script was made by blackfire so he woudent get in trouble and he prolly really ment to to made by buckely but he forgot his name cuz hes an idiot(as u can tell) and put blackfire instead of buckely -.-

wats with like 2778823 no votes lol

From: syberium
wats with like 2778823 no votes lol

From now on, that's what I'm doing to copiers lol.

From: Boreas
From now on, that's what I'm doing to copiers lol.

Sexy mod powers. B] YEE !

… Too..Much..Stupid people.