Sign in or 

| program legendaryfisher; {.include srl/srl.scar} {.include srl/srl/skill/Fishing.scar} //Instructions// {Make sure you have a lobster pot in the FIRST SLOT of your inventory and/or money in your second slot if you wish.} //vvvvvvvvvvvvvvvvvv-----------setup----------vvvvvvvvvvvvvvvvvvvv// const Loads = 3; //max load to be done publicChat= 'On'; //if you want the auto-chat and responder... privateChat= 'Off'; WaitTime= 5; //time to wait till it finds another spot to fish //--------------dont touch this--------------------// var Lobsters,LoadsToBeFished,FishingSpots,Shopkeeper,x1,y1: integer; //--------------dont touch this--------------------// procedure Declareplayers; Begin HowManyPlayers :=2; NumberOfPlayers(HowManyPlayers); CurrentPlayer:=0; Players[0].Name :=''; Players[0].Pass :=''; Players[0].Nick :=''; Players[0].Active:=True; Players[1].Name :=''; Players[1].Pass :=''; Players[1].Nick :=''; Players[1].Active:=True; NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); end; //^^^^^^^----------setup----------^^^^^^^// procedure TheSetup; Begin clearDebug; MouseSpeed:= 10; if(Not(LoggedIn)) then LoginPlayer; SetRun(True) ; Setchat (PublicChat,1); Setchat (PrivateChat,2); HighestAngle; end; Procedure CustomAntiban; var ProtectFromBannage:Integer; begin ProtectFromBannage:= Random(4); case ProtectFromBannage of 1: RandomRClickEvery(1 + Random(2)); 2: RotateEvery(1 + Random(3)); 3: BoredEvery(1 + Random(2)); 4: GameTab(2 + Random (10)); end; end; //-------------credits to Dankness for the DTM----------------// Procedure DeclareDTMs; begin FishingSpots:=DTMFromString('78DA63FCC4C0C070910105CC38F086410E483' + '342F98C1F31D5E4B52C4255F399083520BB2E10A1E6127E3500EE' + '831204') end; Procedure FindFishingSpots; begin if FindDtmIn(x1,y1,FishingSpots,10,10,MSX2,MSY2)then begin repeat MMouse(x1,y1,2,2) wait(1000+(200)) if(IsUpText('age')) or (IsUpText('et')) then begin Mouse(x1,y1,2,2,false) wait(500 + random(300)) ChooseOption(x,y,'Cage') Wait(WaitTime*1000+random(500)) end; CustomAntiban; if(IsUpText('et')) then begin Mouse(x1,y1,2,2,false) wait(500 + random(300)) ChooseOption(x,y,'Cancel') CustomAntiban; end; until (InvFull) end; end; Procedure FindRandoms; begin If(Not(Loggedin)) then LoginPlayer; FindNormalRandoms; HandleWhirlPool; FindFishingEquipment; SolveBox; FindDead; if(FindFight) then begin RunAwayDirection('S') wait(5000+random(2000)); RunBack; end; end; Procedure LobsterDrop; begin if (invfull) then begin DropTo(3,28) end; end; Procedure AutoTalking; var autotalk: integer; begin autotalk :=random(10); Case autotalk of 1:TypeSend('i am a noob...'); 2:TypeSend('...'); 3:TypeSend('*sigh*'); 4:TypeSend('zzz'); 5:TypeSend('this beats mining any day!'); 6:TypeSend('konichiwa'); 7:TypeSend('*yawn*'); 8:TypeSend('im bored'); 9:TypeSend('hello everyone'); 10:TypeSend('ni huo'); end; end; Procedure AutoResponder; begin SetChat ('On',1); if(InChat('Fishin lvls?') or InChat('Fishing lvls') or InChat('Fishing lvls?')) then begin Typesend('45 i think') end; if(InChat('Hi' + (Players[CurrentPlayer].Name))or InChat('Hello' + (Players[CurrentPlayer].Name))or InChat('Whats up' + (Players[CurrentPlayer].Name)))then begin Typesend('oh... hi') end; if(InChat('your a loser') or InChat('your a noob') or InChat('your a froob')) then begin Typesend('you are too!') end; end; Procedure DeclareBitMaps; begin Shopkeeper:= BitmapFromString(8, 8, 'z78DA9D8F411203210804BF04C32078' + '8C26FEFF49615753B5E770E8F2D03803CD44DF4C23A4252728723' + '1C5173E9B9C1680DCF33437830E644C1F98D1BDE3F5F45DECA5E3' + 'F8CB15ADF522B6B999D960EBFC8FEA934C4AA508F963B8B7F26F0' + 'A48396313537DA76CD6AED5D6E0AAAC3B374723F5F881543D29C3' + 'A2FC7ACA95D280F27AF57C73D9E95F7739E6DE7AD2830AD94C6BC' + '3BBFC355F40924ED3'); end; Procedure FindShopKeeper; begin if (FindBitMap(Shopkeeper, x1, y1)) then begin MMouse(x1,y1,2,2) wait(1000+(200)) if(IsUpText('hop'))then begin Mouse(x1,y1,2,2,false) wait(500 + random(300)) ChooseOption(x,y,'Trade') Wait(1000+random(200)) end; end; end; //------------incomplete-----------------// procedure WalkToShop; begin RadialWalk( 3060118 , 185, 545, 65, 2, 2); wait(500+random(100)) FFlag(5); RadialWalk( 1218979 , 219, 579, 58, 2, 2); wait(1000+random(200)) FFlag(6); end; //------------incomplete-----------------// procedure Authorofscript; begin cleardebug; writeln('You are using LegendaryFisher'); wait(300); writeln('written by Legendaryhero90') ; wait(200); writeln('please post bugs and advice at villu-reborn.com'); wait(300); writeln('on how to make this a better script'); wait(300); writeln('enjoy!'); wait(1000) end; Procedure LegendaryReport; begin SRLRandomsReport; writeln (intToStr(Loads)+ ' loads were fished...maybe'); writeln ('you''ve fished for '+ TimeRunning ) ; end; //---------------MAIN LOOP----------------// begin SetupSRL; SetupSRLFishing; DeclarePlayers; NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); Authorofscript; wait(2000+random(100)); Activateclient; If(Not(Loggedin)) then LoginPlayer; TheSetup; repeat repeat DeclareDTMs; DeclareBitMaps; FindFishingSpots; AutoTalking; FindRandoms; until(invfull) LobsterDrop; FindRandoms; LegendaryReport; AutoTalking; until ( Loads = LoadsToBeFished ) Logout; wait(1000+random(2000)) NextPlayer(True); end. |
|
bullandbear1 |
Latest page update: made by bullandbear1
, May 5 2007, 12:57 AM EDT
(about this update
About This Update
2 words added 2 words deleted view changes - complete history) |
|
Keyword tags:
auto talkers
hacking
karamja fisher
power miner
prayer lvler
runescape
scar
scripts
Tutorial on SCAR
Willow whacker
More Info: links to this page
|
| Started By | Thread Subject | Replies | Last Post | ||
|---|---|---|---|---|---|
| sweetypie3.141592 | hola! ^.^ | 3 | May 12 2007, 12:42 AM EDT by xhothackercasiex93 | ||
|
Thread started: May 6 2007, 6:33 PM EDT
Watch
Just wanted to highlight that:
"Natural selection is a mechanism for generating an exceedingly high degree of improbability...." |
|||||
| mastoides37 | bagel | 0 | May 6 2007, 1:08 PM EDT by mastoides37 | ||
|
Thread started: May 6 2007, 1:08 PM EDT
Watch
im still waiting for an answer.. by the way i dont know if i wanna become a writer for this site anymore
i mean who goes around sharing hacking info if u r a real hackers sorry ut real hackers dont do that |
|||||
| xhothackercasiex93 | emergency!! | 1 | May 6 2007, 1:04 PM EDT by babbleshoe | ||
|
Thread started: May 5 2007, 10:53 PM EDT
Watch
hey can anyone help me? im lost
i wanna hack tis persons acc |
|||||