Side Notes:
Cooking doesnt work
Make sure to have a spare Harpoon/Cage
Soon to add:
More Anti-Randoms.
Credits : BuckleyInDaHouse
Fixed By: Sean.
If you have any problems post back here. Ill try to fix themCode:{ ///////// // // // /////// // //////// // // / // // // // // 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.
And if i cant
Ill ask Buckly.


Reply With Quote







good work though, keep it up.

ty dude nice script by the way

