Results 1 to 6 of 6

Thread: my alkharid fish banker

  1. #1
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default my alkharid fish banker

    I need help mostly with the banking procedure look and any thing else to make this a good script

    SCAR Code:
    program AlKharidShrimpOwnage;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/fishing.scar}
    {.include SRL\SRL\Misc\Trade.scar}


    //    llllllllll\         llllllllllllllll      ----\    /--\    /----/
    //    llllllllll/         l              l       \   \  / /\ \  /    /
    //    l    l              llllL   llllllll        \   \/ /  \ \/    /
    //    l    l                  l   l                \    /    \     /
    //    l    llllll\            l   l                 \--/      \---/
    //    l    llllll/            l   l
    //  lll    l                  l   l
    //  llllllll                  llllll


    //        F                         T                          W


    Const
    NumberOfUsers = 1;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    FishAgain = 5000;//Time To Fish Again.
    FishSpot1 = 11832699;//Leave.
    FishSpot2 = 15978672;//Leave.
    RunDir = ('E');//Run direction.
    BankSymbol = 5494240;//Set Mannualy For Better Results.
    QuestSymbol = 15701627;//A Sort Of FailSafe Set For Better Results.
    LoadTime = 300000;//How long for each load to take currently at 300 seconds.


    Procedure DeclarePlayers;
    //If Not Using Any Left Over Players Delete There Forms.


      Begin
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;


         Players[0].Name :='UserName';
         Players[0].Pass :='Pass';
         Players[0].Nick :='3 Letters Of UserName';
         Players[0].Active:=True;
         
         Players[1].Name :='UserName';
         Players[1].Pass :='Pass';
         Players[1].Nick :='3 Letters Of UserName';
         Players[1].Active:=True;
         
         
         Players[2].Name :='UserName';
         Players[2].Pass :='Pass';
         Players[2].Nick :='3 Letters Of UserName';
         Players[2].Active:=True;
         
         
         Players[3].Name :='UserName';
         Players[3].Pass :='Pass';
         Players[3].Nick :='3 Letters Of UserName';
         Players[3].Active:=True;



      end;
     
      Procedure Login;
     begin
      wait(10+random(20))
         declareplayers;
         wait(10+random(20))
         LoginPlayer;
         wait(10+random(20))
        end;

    Procedure Fish;
    Var
      c :Integer;
    Begin
      Repeat
        If
          (findColorSpiral(x,y,FishSpot1,2,2,418,304)) Or
          (findColorSpiral(x,y,FishSpot2,2,2,418,304)) Then
          Begin
            MMouse(x,y,3,3);
            wait(100+random(100));
          End;
            c:= c + 1
      Until(IsUpText('Fish') Or (c > 15))
        Mouse(x,y,2,2,True)
        Wait(FishAgain + Random(500))
        If(c > 15)Then
    If(c > 15)Then
      Begin
        Writeln('Don''t find fishing spot...');
      End;
    End;



    Procedure FindRandoms;
    begin
    Wait(10)
    HandleWhirlPool;
    findnormalrandoms;
     if (not(loggedin)) then
      NextPlayer(true);
    end;

    Function OtherRandoms: Boolean;    // By WT-Fakawi.


    Var
      i: Integer;


    Begin
      For I := 1 To 11 Do
      Begin
        Case I Of
           1:  If FindDead Then
                 Result := True;

           2:  If FindMod Then
                 Result := True;

           3:  If FindMime Then
                 Result := True;

           4:  If FindMaze Then
                 Result := True;

           5:  If FindQuiz Then
                 Result := True;

           6:  If FindDemon Then
                 Result := True;

           7: Begin
                 If NoGameTab Then
                 Begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Logout;
                   Exit;
                 End;
               End;

           8 : If RC Then
                 Result := True;

           9 : If FindFight Then
                  Begin
                    Result := True;
                    RunTo(RunDir, True);
                  End;

           10: If FindTalk Then
                 Result := True;

           11: If HandleTrade Then
                 Result := True;
        End;
        Wait(1);
      End;
    End;


    function DoAntiBan: Boolean; //JADS Anitbannage :)
    begin
      AntiBan;
      wait(50 + random(100));
      BoredEvery(3 + random(3));
      wait(100 + random(100))
        RotateEvery(7 + random(4));
      wait(750 + random(250));
      LeaveScreenEvery(5 + random(7));
      wait(500 + random(150));
    end;

    procedure Gap;
    Begin
    wait(LoadTime);
    end;

    Procedure ClickQuest;
    Begin
    If(FindSymbol(x, y, 'Quest'))Then
    Mouse(x, y, 5, 5, True);
    end;

    Procedure ClickBank;
    Begin
    If(FindSymbol(x, y, 'Bank'))Then
    Mouse(x, y, 5, 5, True);
    end;

    procedure RightClickBank;
    var
      x, y, fs, fs2: Integer;
    begin
      if not BankScreen then
        repeat
          if (FindObj3(x, y, 'Use Bank', 4481658, 10)) then
            Mouse(x, y, 4, 4, False)
          else
            if (FindObj3(x, y, 'Use Bank', 2842230, 10)) then
              Mouse(x, y, 4, 4, False)
            else
              if (FindObj3(x, y, 'Use Bank', 12611, 10)) then
                Mouse(x, y, 4, 4, False);
          Wait(250);
          if (ClickOption('quickly', 1)) then
          begin
            Flag;
            repeat
              Wait(100);
              fs := fs + 1;
            until (BankScreen) or (fs >= 50);
          end;
          fs2 := fs2 + 1;
        until (BankScreen) or (fs2 > 5);
    end;

    procedure DepositShrimp;
    begin
      if (BankScreen) then
        Deposit(2, 28, 2);
    end;

    function ClickCross: Boolean;
    var
      CBBM, CBx, CBy: Integer;
    begin
      CBBM := BitmapFromString(4, 3, 'z78DA3330000243030CD2C' +
        'CC4D4DC848008320900F6350DC1');
      if not BankScreen then Exit;
      if FindBitmapToleranceIn(CBBM, CBx, CBy, 450, 30, 500, 50, 50) then
      begin
        Mouse(CBx, CBy, 4, 4, True);
        Result := True;
      end;
      FreeBitmap(CBBM);
    end;


    Procedure BackToFish;
    Begin
    If(FindSymbol(x, y, 'Quest'))Then
    Mouse(x, y, 5, 5, True);
    end;


    Procedure QuestToFish;
    Begin
    If(FindSymbol(x, y, 'Fish'))Then
    Mouse(x, y, 5, 5, True);
    end;



    Begin
    SetupSRL;
    Repeat
    DeclarePlayers;
    Fish;
    FindRandoms;
    OtherRandoms;
    DoAntiBan;
    Gap;
    ClickQuest;
    ClickBank;
    RightClickBank;
    DepositShrimp;
    ClickCross;
    BackToFish;
    QuestToFish;
    Until(False)
    End.

  2. #2
    Join Date
    Dec 2006
    Location
    Banville
    Posts
    3,914
    Mentioned
    12 Post(s)
    Quoted
    98 Post(s)

    Default

    Well, make a procedure to check the last square of your invy instead of timing it. So like

    SCAR Code:
    LastInvy= (default color)
    LastInvyFish= (fish color)

  3. #3
    Join Date
    Feb 2007
    Posts
    215
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i think what he means is something like this:

    SCAR Code:
    function LastSpaceFilled;
    begin
    if LastBank := 0 then
     MarkTime(LastBank);

     if ((getcolor(719, 444) <> 4345174) or (TimeFromMark(LastBank) > (LoadTime + random(50000)))) then
     begin
      result := InvFull;
      MarkTime(LastBank);
     end;
    end;
    in order to put this in your script make a global integer variable named LastBank.

    that function returns true if the inventory is full or if the time since the last bank is greater than LoadTime + a random 50 seconds. Your main loop could use some work.

    Here is how i would structure it.
    SCAR Code:
    begin
    SetupSRL;
    DeclarePlayers; //only call this once
     repeat
      repeat
       MarkTime(FishBegin);
       //fishing
       While (TimeFromMark(FishBegin) < (FishAgain + random(5000))) do
        begin
         //antirandoms and stuff
        end;
      until(LastSpaceFilled)
      //banking and walking back
     until(false);
    end.

    note that you will need to create a global variable FishBegin for this too.

    also for best results if you use a similar structure don't wait inside the fish loop because random events are triggered when you click and waiting the user defined amount of seconds will cause you to potentially miss them.
    A common mistake people make when trying to design something completely foolproof is to underestimate the ingenuity of complete fools.
    -Douglas Adams

  4. #4
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    with ur banking procedure u don't need all that stuff to close bank just use this:
    "CloseBank;"
    lol thanks for bank procedure again you rock
    Sleeping...

  5. #5
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    confused!!!

  6. #6
    Join Date
    Feb 2007
    Posts
    215
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rudeboialex View Post
    confused!!!
    explain!!!
    A common mistake people make when trying to design something completely foolproof is to underestimate the ingenuity of complete fools.
    -Douglas Adams

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. AlKharid Smelter
    By Janziz in forum First Scripts
    Replies: 8
    Last Post: 10-12-2008, 09:36 AM
  2. Barb Power Fish and/or Banker?
    By Why2u in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 07-06-2008, 10:36 PM
  3. Lobbie fish bot/banker for Catherby
    By spartangsp0t in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 04-14-2007, 10:00 PM
  4. Alkharid fisher/banker/cooker
    By Pwnt by Pwnt in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 03-13-2007, 07:04 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
  •