Results 1 to 17 of 17

Thread: Karamja Power Fisher.[Fixed]

  1. #1
    Join Date
    Mar 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Karamja Power Fisher.[Fixed]

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

    Credits : BuckleyInDaHouse
    Fixed By: Sean.

    Code:
    {
     /////////
     //           //
     //
     ///////     //    ////////
     //         //    /     //
     //        //    //    //
    
    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.

  2. #2
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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?

  3. #3
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    for
    SCAR Code:
    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.

  4. #4
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Is that you sean from Sythe? Lol.

  5. #5
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  6. #6
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    this looks too similar to buckley's script JAD...

    the responder doesnt work either...

    why not?

    They are sisters...
    Runescape Classic

  7. #7
    Join Date
    Mar 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  8. #8
    Join Date
    Jan 2007
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  9. #9
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by macromacro123 View Post
    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.

  10. #10
    Join Date
    Mar 2007
    Posts
    82
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  11. #11
    Join Date
    Mar 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Buckleyindahouse View Post
    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!

  12. #12
    Join Date
    Apr 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice work keep it up

  13. #13
    Join Date
    May 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help!!

    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?

  14. #14
    Join Date
    May 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    Quote Originally Posted by pistoluser7 View Post
    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

  15. #15
    Join Date
    Jun 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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?

  16. #16
    Join Date
    May 2007
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  17. #17
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    its an old script, dont use it

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. KitchenRange's Karamja Fisher
    By kitchenrange in forum RS3 Outdated / Broken Scripts
    Replies: 16
    Last Post: 06-28-2009, 10:02 AM
  2. Karamja fisher - read
    By pahkina in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 11-18-2008, 10:30 PM
  3. need help with karamja loby fisher
    By abba00221 in forum OSR Help
    Replies: 6
    Last Post: 07-20-2007, 04:20 PM
  4. Karamja Lob Fisher
    By Ratling in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 04-10-2007, 01:41 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •