Results 1 to 6 of 6

Thread: script not starting?

  1. #1
    Join Date
    Nov 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    script not starting?

    i ran this script and it showed this...

    SRL Compiled in 0 msec
    __________________________________________
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    //====== Karamja Lobby Fish0r +Bank0r ======\\
    ||======== 0.9 - Progress Report ======== ||
    \\======================================//
    [> Worked for 0 Seconds.
    [> Fished 0 LobZ.
    [> Banked 0 LoadZ.
    ____\\==============================//____
    Making S.M.A.R.T Ready

    so it doesnt do anything, and that just comes up
    after that a little box comes up saying..

    error starting smart,check the world prefix

    can any1 help me please.. oh and heres the script im using..

    SCAR Code:
    { REMEMBER TO CHANGE THE CONST ON LINE 92 IF YOU'VE DONE THE PIRATE
      TREASURE QUEST OR NOT! }


    { REMEMBER TO CHANGE THE CONST ON LINE 92 IF YOU'VE DONE THE PIRATE
      TREASURE QUEST OR NOT! }


    { REMEMBER TO CHANGE THE CONST ON LINE 92 IF YOU'VE DONE THE PIRATE
      TREASURE QUEST OR NOT! }


    { REMEMBER TO CHANGE THE CONST ON LINE 92 IF YOU'VE DONE THE PIRATE
      TREASURE QUEST OR NOT! }


    { REMEMBER TO CHANGE THE CONST ON LINE 92 IF YOU'VE DONE THE PIRATE
      TREASURE QUEST OR NOT! }

    {                                  I PRESENT!                                            }
    {               /-------------\                  /---------|              |
                   /               \                /          \              |
                  /                \               /            \             |
                  |        |       |              |       |      |            |
                  |        |       |              |       |      |            |
                  |        |       |              |       |      |            |
                  |________|       |              |______ |      |            |
                           /       /                   /       /              |
                          /       /                   /       /               |
                         /       /                   /       /    SCRIPT      |
                        /       /    UPER           /       /_____            |
                       /       /                  |/      |/      |           |
                      /       /                   |       |       |           |
                     /       /                    |       |       |           |
                    /       /                     |       |       |           |
                   /       /________              \                /          |
                  |       |        |               \              /           |
                  |       |        |                \------------/_           |
                  |       |        |              Super Scripts..| |..        |
                  |       |        |      ____________________________________|
                   \               /    |    _      ___     ___               |
                    \             /     |   / |    |   |   |___               |
                     \           /      |  /__|_   |   |   |      IS GAY!!!   |
                      \---------/       |     |    |___|   |                  |
    ____________________________________|_____________________________________|

    This Version Is used in conjunction
      with
         S.M.A.R.T!!!!!




    {
    ###########################################################################
            _                                                      _             #
    __|\   |   |\  |    /\    |   |    /\    /\      /\    |\  |    |    /|__    #
    __ |* <    | \ |   /__\   |   |   /  \  /  \    /__\   | \ |     >  *| __    #
      |/   |_  |  \|  /    \  |___|  /    \/    \  /    \  |  \|   _|    \|      #
    ############################################################################

    PLEASE DO NOT DISTRIBUTE THIS SCRIPT ANYWHERE WITHOUT THE AURTHOR'S PERMISSION
                                  THANK-YOU!
    }


    program KaramjaFish0r;
    {.include srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
    {.include srl/srl/skill/fishing.scar}

    Const
    DoneQuest = False; //True if you have not done the quest
                      // False If you have done the Pirates Treasure Quest

    {-------------------------------}
    {   Form ( DO NOT TOUCH! )      }
    {-------------------------------}

    var
      frmDesign : TForm;
      GroupBox1 : TGroupBox;
      Button1 : TButton;
      CheckBox1 : TCheckBox;
      Edit: Array [1..6] of TEdit;
      {Edit[1] : TEdit;
      Edit[2] : TEdit;
      Edit[3] : TEdit;
      Edit[4] : TEdit;
      Edit[5] : TEdit;
      Edit[6] : TEdit; }

      Memo1 : TMemo;
      StartTheScript: Boolean;

    {procedure InitFormOnClose(Sender : TObject; var Action : TCloseAction);
    begin
      if(not(frmDesign.ModalResult = 1))then
        EndInitForm := True;
    end;}


    function DefaultM(i: Integer): string;
    begin
      case i of
        1: Result := 'Username';
        2: Result := 'Password';
        3: Result := 'Loads To Do';
        4: Result := 'SRL Stats ID';
        5: Result := 'SRL Stats Pass';
        6: Result := 'Bank Pin';
      end
    end;

    procedure SaveUserSettings;
    var
      i: Integer;
    begin
      for i := 1 to 6 do
        WriteINI('Settings', IntToStr(i), Edit[i].Text, ScriptPath + 'Settings.ini');
      WriteINI('Settings', '7', BoolToStr(CheckBox1.Checked), ScriptPath + 'Settings.ini');
    end;

    procedure LoadUserSettings;
    var
      i: Integer;
    begin
      for i := 1 to 6 do
      begin
        Edit[i].Text := ReadINI('Settings', IntToStr(i), ScriptPath + 'Settings.ini');
        if (Edit[i].Text = '') then
          Edit[i].Text := DefaultM(i);
      end;
      CheckBox1.Checked := (ReadINI('Settings', IntToStr(i), ScriptPath + 'Settings.ini') = 'True');
    end;

    function ProcessData: Boolean;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := Edit[1].text;
      Players[0].Pass := Edit[2].text;
      Players[0].Active := True;

      try
        Players[0].Integers[0] := StrToInt(Edit[3].Text);
      except
        Writeln('Please enter a valid number of loads to do');
        Exit;
      end;

      try
        StrToInt(Edit[6].Text);
      except
        Writeln('Please enter a valid PIN');
        Exit;
      end;
      Players[0].Pin := Edit[6].text;

      try
        StrToInt(Edit[4].Text);
      except
        Writeln('Please enter a valid SRL Stats ID');
        Exit;
      end;
      SRLID := Edit[4].text;
      SRLPassword := Edit[5].text;

      Result := True;
    end;

    Procedure StartClick(sender: TObject);
    Begin
      SaveUserSettings;
      StartTheScript := ProcessData;
      frmDesign.ModalResult:= mrOk;
    end;

    Procedure Form;
    Begin

      frmDesign := CreateForm;
    {  frmDesign.BorderIcons := [biMinimize];
      frmDesign.BorderStyle := bsNone;    }

      frmDesign.Left := 250;
      frmDesign.Top := 175;
      frmDesign.Width := 282;
      frmDesign.Height := 323;
      frmDesign.Caption := ' Karmja Fisher+ Banker';
      frmDesign.Color := clCoral;
      frmDesign.Font.Color := clMaroon;
      frmDesign.Font.Height := -11;
      frmDesign.Font.Name := 'Comic Sans MS';
      frmDesign.Font.Style := [fsBold];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 96;
      GroupBox1 := TGroupBox.Create(frmDesign);
      GroupBox1.Parent := frmDesign;
      GroupBox1.Left := 0;
      GroupBox1.Top := 0;
      GroupBox1.Width := 273;
      GroupBox1.Height := 289;
      GroupBox1.Caption := '                   Player Setup                                ';
      GroupBox1.Color := clBlack;
      GroupBox1.ParentColor := False;
      GroupBox1.TabOrder := 0;
      Button1 := TButton.Create(GroupBox1);
      Button1.Parent := GroupBox1;
      Button1.onClick := @StartClick;
      Button1.Left := 88;
      Button1.Top := 248;
      Button1.Width := 105;
      Button1.Height := 33;
      Button1.Caption := 'Start Fishing!!!';
      Button1.TabOrder := 0;
      CheckBox1 := TCheckBox.Create(GroupBox1);
      CheckBox1.Parent := GroupBox1;
      CheckBox1.Left := 136;
      CheckBox1.Top := 224;
      CheckBox1.Width := 137;
      CheckBox1.Height := 17;
      CheckBox1.Caption := 'Use Special Feature?';
      CheckBox1.TabOrder := 1;
      Edit[1] := TEdit.Create(GroupBox1);
      Edit[1].Parent := GroupBox1;
      Edit[1].Left := 24;
      Edit[1].Top := 24;
      Edit[1].Width := 97;
      Edit[1].Height := 24;
      Edit[1].TabOrder := 2;
      Edit[2] := TEdit.Create(GroupBox1);
      Edit[2].Parent := GroupBox1;
      Edit[2].Left := 144;
      Edit[2].Top := 24;
      Edit[2].Width := 105;
      Edit[2].Height := 24;
      Edit[2].TabOrder := 3;
      Edit[2].PasswordChar := '*';
      Edit[3] := TEdit.Create(GroupBox1);
      Edit[3].Parent := GroupBox1;
      Edit[3].Left := 88;
      Edit[3].Top := 64;
      Edit[3].Width := 81;
      Edit[3].Height := 24;
      Edit[3].TabOrder := 4;
      Edit[4] := TEdit.Create(GroupBox1);
      Edit[4].Parent := GroupBox1;
      Edit[4].Left := 24;
      Edit[4].Top := 104;
      Edit[4].Width := 97;
      Edit[4].Height := 24;
      Edit[4].TabOrder := 5;
      Edit[5] := TEdit.Create(GroupBox1);
      Edit[5].Parent := GroupBox1;
      Edit[5].Left := 144;
      Edit[5].Top := 104;
      Edit[5].Width := 105;
      Edit[5].Height := 24;
      Edit[5].TabOrder := 6;
      Memo1 := TMemo.Create(GroupBox1);
      Memo1.Parent := GroupBox1;
      Memo1.Left := 16;
      Memo1.Top := 152;
      Memo1.Width := 113;
      Memo1.Height := 89;
      Memo1.Lines.Add('Welcome To The');
      Memo1.Lines.Add('Karamja Fisher +');
      Memo1.Lines.Add('Banker Setup.');
      Memo1.Lines.Add('Please enter your');
      Memo1.Lines.Add('SRL STATS info!');
      Memo1.TabOrder := 7;
      Edit[6] := TEdit.Create(GroupBox1);
      Edit[6].Parent := GroupBox1;
      Edit[6].Left := 144;
      Edit[6].Top := 160;
      Edit[6].Width := 81;
      Edit[6].Height := 24;
      Edit[6].TabOrder := 8;

      LoadUserSettings;   //Loads the Edit texts.
    end;                  // Zephy ~

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('Form', v);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;



    {-------------------------------}
    {       Script Variables        }
    {-------------------------------}

    var
    FishingSpotCol : Array [0..5] of Integer;
    Loads, Fished, LobsterPot : Integer;
    x, y, i, Banker: Integer;
    LobbyMessage : Integer;
    LobbyPot: Boolean;
    Level : Integer;


    {-------------------------------}
    {         Forwards!             }
    {-------------------------------}

    {Procedure RandomMovementX; Forward;

    Procedure WalkAntiBan; Forward;

    Procedure NaumanAR; Forward;

    Procedure WaitWhileSail; Forward;

    Procedure WalkToPortSarim; Forward;

    Procedure TryAgain; Forward;

    Procedure KaramjaToFishing; Forward;

    Procedure Click; Forward;

    Procedure AntiBan; Forward;

    Procedure FishLobbies; Forward;

    Procedure KaramjaToPortSarim; Forward;

    Procedure PortSarimToDraynorBank; Forward;

    Procedure BankLobbies; Forward;

    Procedure SetUpScript; Forward; }


    Procedure Proggie; Forward;

    //Function SailorNotFound: Boolean; Forward; //Only use if Script Mucks up ;)

    {-------------------------------}
    {    Script DTM's/ Bitmaps!     }
    {-------------------------------}

    Procedure LoadVarz;
    Begin

      LobsterPot := DTMFromString('78DA63DCCBC4C0B089910119A4C5C731FC07D' +
           '220D1FF40C0B803A86611AA1A882C8C04D227816A961350B31FA8' +
           '660F0135EB806AB613A1663511EED94040CD41A09A25F8D500005' +
           '1E8119E');


      LobbyMessage := BitmapFromString(115, 12, 'beNqNl01OwzAUhLn/Fah' +
           'YQDdcAgmhShWskCrE34Kj4GaS6XjGzxBZlf38nNSfJ2Pncfd13P+8' +
           '7D+PN++Hc/k43LVIlir+/XzP32rgsKCLD0XROnKQgHJ6uj097lppX' +
           'VfLhXyOssed859uW1r7ZXMty33WwohWtgd5vibYwH44qAJsRa8q5G' +
           'lgW5ORipgtGaZg2Fc+ywRRQU5jhQjwVmvHXp/1EOxW1vyID9bF7tN' +
           'H2hQA9v9CzSBJtt9ElwKGFI3hsDdVnUKlPrOJZGS2CMW/LlPB5A+w' +
           'pnOT8RbBfJtudfpszhFV0p2w1a6hOShYY0WwlXUoUgAk2DScJOm0h' +
           '2968i8Kp0zRco5zsPOSAydWoBHjbHoG1bybylINHPmkejZqdU4hAy' +
           'um2yCz8t7KV1OxsCPODvUJ1avisiEaRxeb+kQ2lRtfgUquKXV7nEY' +
           'YpEXgwu6mF7e8tbkxZPMSX7q6gQEWU26i5f+BDBBJsC2Ov4p3n4hy' +
           'dYZ1XTjoSnvTLlDXLX5IlRLS3a3d/20bazImjQuojZXyJDFDfRnII' +
           'QXYVKxOMMHm2H+CtbeeQtXn4r8ZwASrDHl+MLC6kSl5a/Kl7oCbXY' + // Only 17 lines?
           'SXDoME24SHSVGBdoJKwpbPIAeijmJvvZk5zWFosxMroPw6bstk9c6' +
           'AZgfa5GwHj06cvT7NVNMZUrFDsPkV0I4N6qgGVm9i5AkwzWFIcgjW' +
           'Tl9Kg4eB7M1PBnVU3pNw1v1LGNJjHXVfQb3aj+yMagIGWOVJXElMI' +
           '5mTT+cE7TRVbZeZwIG2s0CimsaPAt25bEdTZdqLnzlcheEHqYHl7m' +
           'zOoMwZmRxcJ+cu/e5jV36LXc720kVr1QjXhaw6Bc4/xOrT6dBOWXl' +
           '9uF7rv605R7I=');


      Banker := DTMFromString('78DA635CC8C4C010C78002DEBE6560F80FA41' +
           '981F83F10302E02AA89455573F72E846684F2191700D5C4A0AAF9' +
           'F74F1855CD7C4CBBFEFC61C2342781010D30A2A801000E6711A5');

    end;

    {********************************************************************************
    function Function TreeWalk(WhatTree: String; x1, y1, x2, y2: Integer) : Boolean;
    By: NaumanAkhlaQ
    Description: Walks to a tree in a specified area, for use in the MiniMap
    Direction: In the string 'WhatTree' the valid arguments are:
    'RareTree',
    'Tree'.
    ********************************************************************************}


    Function TreeWalk(WhatTree: String; x1, y1, x2, y2: Integer) : Boolean;
    Var
     Tree : array [0..5] of Integer;
     i : Integer;
    // x,y : Integer;
    begin
      Tree[0] := 2662810;
      Tree[1] := 1659002;
      Tree[2] := 4225609;
      Tree[3] := 1134376;
      Tree[4] := 468785;
      Tree[5] := 867603;
    Case WhatTree of

     'Tree': Begin
               For i:= 0 to 5 do
                If FindColorSpiralTolerance(x,y,Tree[i],x1,y1,x2,y2,100) then
                  Begin
                   Writeln('Tree Found!')
                   Result:= True;
                   Exit;
                  end else
                 Begin
                Exit;
             end;
           end;

     'RareTree' : Begin
                    If FindSymbolIn(x,y,'Tree',x1,y1,x2,y2) then
                      Begin
                       Writeln('Tree Found!')
                       Result:= True
                       Exit;
                      end else
                     Begin
                    Writeln('Tree Not Found, Exiting');
                    Exit;
                   end;
                end;
       end;
    end;

    {----------------------------}
    {        Find Obj X          }
    {----------------------------}
    (* By: Stupid3ooo and Starblaster100 *)
    Function FindObjX(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
    var
      a, b, c, i, x1, y1, x2, y2: Integer;
      Start: Boolean;
    begin
      for b := 0 to (GetArrayLength(Color)-1) do
      begin
        if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
        begin
          Start := True;
          Break;
        end;
      end;
      if(Start)then
      begin
        x1 := 245;
        y1 := 165;
        x2 := 277;
        y2 := 185;
        repeat
          if not(LoggedIn)then break;
          a := a + 1;
          if (a = 1) then
            c := c + 1
          else if (a = 3) then
            c := c + 1;
          for i := 1 to c do
          begin
            if (a = 1) then
            begin
              x1 := x1 + 30;
              x2 := x2 + 30;
            end else
            if (a = 2) then
            begin
              y1 := y1 - 20;
              y2 := y2 - 20;
            end else
            if (a = 3) then
            begin
              x1 := x1 - 30;
              x2 := x2 - 30;
            end else
            if (a = 4) then
            begin
              y1 := y1 + 20;
              y2 := y2 + 20;
            end;
            if (x1 = 485) and (x2 = 517) then
              x2 := x2 - 2;
            if (y1 = 325) and (y2 = 345) then
              y2 := y2 - 7;
            if (x2 > 515) then
              Break;
            for b := 0 to (GetArrayLength(Color)-1) do
            begin
              if (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
              begin
                MMouse(cx, cy, 0, 0)
                if (IsUpTextMultiCustom(Text)) then
                begin
                  Result := True;
                  Exit;
                end;
              end;
            end;
          end;
          if (a = 4) then
            a := 0;
        until (x2 > 515) or (Result = True);
      end;
    end;


    {--------------------}
    {     Free Varz!     }
    {--------------------}

    Procedure FreeVarz;
    begin
      FreeDtm(LobsterPot);
      FreeDtm(Banker);
      FreeBitmap(LobbyMessage);
    { FreeBitmap(CanOption);
      FreeBitmap(OkOption);
      FreeBitmap(SearchOption);
      FreeBitmap(YesOption);
      FreeDTM(SailorDTM); }

    end;

    {----------------------------}
    {     Random Movement        }
    {----------------------------}

    Procedure RandomMovementX;
    Begin

     If (not (Loggedin)) then
      Exit;
      Case Random (5) of

      1:Begin
          MMouse(727 - Random(200), 90 + Random(200), 0, 0);
          IdleTime(300 + Random(300), 500, 0.5);
        end;

      2:Begin
         MMouse(227 - Random(200), 290 + Random(200), 0, 0);
         IdleTime(300 + Random(300), 500, 0.5);
        end;

      3:Begin
         GameTab(1+Random(14))
        end;

      4,0: Wait(2000+Random(200))

     end;
    end;


    {----------------------------}
    {       Walk Anti ban!       }
    {----------------------------}

    Procedure WalkAntiBan;
    Begin
    If (not (Loggedin)) then
     Exit;
     Case Random(6) of

      1:Begin
         Case 11 of

          0: TypeSend('stoopib walkin');

          9: Typesend('.');

          10: Typesend('Yawn');
         end;
        Exit;
       end;

      3: Begin
           GameTab(1+Random(14))
           wait(Random(2))
           GameTab(4)
         end;

      5: MMouse(MSX1,MSY2,1,1);

      0: RandomMovementX;
     end;
    end;

    {-------------------------------}
    {    My AntiRandom Procedure    }
    {-------------------------------}

    Procedure NaumanAR;
    Begin
      If Not (Loggedin) then
        Exit;
      For i := 0 to 3 do
    //    HandleWhirlPool;
        FindNormalRandoms;
        HandleWhirlPool;
      Begin
        FindNonInventoryRandoms;
    //    HandleWhirlPool;
      If FindFight Then
        RunAway('s', false, 1, 8500);
    //    HandleWhirlPool;
     end;
    end;



    {-----------------------------}
    {      Find Equipment!!!      }
    {-----------------------------}

    Function FindEquipment : Boolean;
    Begin
      If Not (Loggedin) then
        Exit;
      If FindDTM(LobsterPot,x,y,MIX1,MIY1,MIX2,MIY2) Then

        Begin
          WriteLn('Lobster Pot Found')
          LobbyPot := True;
        end;

      Begin
        MMouse(619-Random(5), 230 + Random(5), 1, 1)
        wait(300+Random(700))
          If IsUpText('oin') then
            Begin
              WriteLn('Coins Found');
              Result := True;
           end;
        end;
    end;

    {-------------------------------}
    {      Wait While Sail!         }
    {-------------------------------}

    Procedure WaitWhileSail;
    Begin
    Wait(5000+Random(2000))
        Repeat
          Wait(100+Random(200));
        Until(ClickToContinue);
      WriteLn('Sailed the Ship')
     Begin
       Case Random(2) of

        0: Begin
             If ClickToContinue then
               Mouse(x,y,1,1,true);
           end;

        1: wait(1);

       end;
     end;
    end;

    {-------------------------------}
    {       Cross Gang Plank        }
    {-------------------------------}

    Function CrossGangPlank : Boolean;
    var
    Tries, iMark : Integer;
    Begin
     MarkTime(imark)
     MakeCompass('S')
      Repeat
        If FindObjTPA(x, y, 3034468, 15, 2, 10, 25, 1,['ank','ross']) and
          IsUpText('ank') then

           Result := True;
            Mouse(x,y,1,1,true);
            FFlag(0);
           Tries:= Tries +1;
      Until(Tries > 5) or
      (TimeFromMark(imark) > 7000) or (Result)
      Wait(2000+random(3000))
    end;

    {-------------------------------}
    {       Find The Sailor         }
    {-------------------------------}

    function FindSailor(var fx, fy: Integer): Boolean; // Based On
    Begin                                              // Nielsies
     Repeat                                            //Idea
     If FindObjTPA(x, y, 5583152, 15, 20, 50, 90, 1, ['alk','-to']) Then
       wait(1000);
     Until IsUpText('alk-to')
       Begin
        Result := True
         WriteLn('Found The Sailor');
         Exit;
       end;
       Begin
        Result := False;
         WriteLn('Sailor NOT Found!');
       end;
    end;

    {--------------------------------}
    { Try's Again to find the Sailor }
    {--------------------------------}

    Function SailorNotFound :Boolean;
    var
    SailorDTM : Integer;
    Begin
       SailorDTM := DTMFromString('78DA634C656260886340017FFE3031FC07D28' +
           'C40FC1F0818416A6251D5FCFB270CA619A17CC674A09A040634C0' +
           '88AA268548357144D885A6E6EE5D061435002755117F');
       FFlag(0);
      If Not FindSailor(x, y) Then
       Begin

         If DTMRotated(SailorDTM, x, y, 568, 40, 668, 110) Then
          Mouse(x, y+Random(5), 5, 5, true);
          FFlag(0);
         Result := False;
       end;
     wait(1);
    end;

    {-------------------------------}
    {     Relocation, Relocation    }
    {-------------------------------}

    Procedure Relocate (Place : String);
    Begin
      FTWait(3+Random(5));
      MMouse(MSX1, MSY2, 70, 70);
    Begin
     Case Place of

     'Quest Symbol': Begin
                      WriteLn('DEBUG: Could NOT find quest Symbol, Improvising');
                       SymbolAccuracy := 0.5;
                         If FindSymbolIn(x, y, 'Quest', 533, 10, 711, 91) Then
                           Begin
                            Mouse(x,y,1,1,true);
                            WalkAntiBan;
                            FFlag(0);
                          end;
                      Exit;
                    end;

     'Quest 2' : Begin
                   WriteLn('DEBUG: Could NOT find quest Symbol, Improvising');
                    Wait(2000+Random(3000));
                    Mouse(671, 42, 5, 5, True);
                    FFlag(0)
                   Exit;
                 end;

     'Docks' : Begin
                WriteLn('DEBUG: Could NOT find Docks, Improvising');
                 Mouse(587, 117, 5, 5, true);
                 FFlag(0)
                Exit;
              end;

      'Docks 2' :Begin
                  WriteLn('DEBUG: Could NOT find Docks, Improvising');
                   Mouse(631, 10, 6, 3, true);
                   Wait(8000+Random(500));
                  // Mouse(631, 16, 6, 3, true);
                  // wait(8000+Random(3000));
                  Exit;
                end;

        end;
      end;
    end;

    {-------------------------------}
    {     Finds If Low Run Energy   }
    {-------------------------------}

    Function FindLowRun : Boolean;
    Begin
      Result := FindColorSpiral(x, y, 255, 740, 106, 762, 118);
    end;


    {-------------------------------}
    {     Walk To Port Sarim!!!!    }
    {-------------------------------}

    Procedure WalkToPortSarim;
    var
    //Result1 : Boolean;
    YesOption : Integer;
    Begin
       YesOption := BitmapFromString(24, 14, 'beNp9UkEOgzAM6/8fscP' +
           'gsn1jQkKwIxe2HXjKAkaW5ZQiCzlt4yZupsd37IFSym86w+39jH+E' +
           'geAghli3rXJ8kKIsla90KIUDmmv8Kh1g5aYDzjOqiZWGjqUjV3Ual' +
           'ZAwVKOMs0d81KGr2k7ui1lmlC1uc68t2Bvx7azIXE/o7Dh8NjX1Wd' +
           'NtJLgVOiqejc09Zif1ujw51V2z2sKqFMg6dKqMsDEGgc9403sjBUA' +
           'ieXVUCJyhFK4Gltc9V5WL2ckfO6d+Eg==');

     If Not (Loggedin) then
        Exit;
     Begin
      MakeCompass('W');
      RadialRoadWalk(FindRoadColor, 9, 26, 73, 1, 1);
       WalkAntiBan;
       FFlag(0)
        MOuse(MMCX, MMCY-55, 2, 2,true)
        {     Wait(Random(999));
          Case Random (3) Of
           0: Mouse(x, y, 1, 1, true);
           end; }

           Wait(4000+RANDOM(3000));

            If FindLowRun Then
             Begin
              WriteLn('We are on low run energy, lets take it easy ;)');
              Wait(21500+Random(5000))
              WalkAntiBan;

            end else
              Wait(14000+Random(5000));
              WalkAntiBan;
              FFlag(0)
              {If(not( FlagPresent )) then

                Begin
                  Repeat
                   Wait(1000+Random(2000))
                 Until(FlagPresent)
                   If FlagPresent then
                     FFlag(0);   }

                Begin
                  If (not(FindSymbolIn(x ,y, 'Quest', 533, 10, 711, 91))) Then
                   Begin
                    Relocate('Quest Symbol');
                    SymbolAccuracy := 0.8;
                   end else
                  If FindSymbolIn(x, y, 'Quest', 533, 10, 711, 91) Then
                   Begin
                    Mouse(x,y,1,1,true);
                     WalkAntiBan;
                     FFlag(0);
                   end;
                  Begin
                    RadialRoadWalk(FindRoadColor, 17, 39, 70, 1, 1);
                     WalkAntiBan;
                     FFlag(0);
                    Mouse(MMCX, MMCY-60, 5, 5, True);
                     WalkAntiBan;
                     FFlag(0);
                       Begin
                         RadialRoadWalk(FindRoadColor, 282, 262, 61 , 1, 1);
                          WalkAntiBan;
                          FFlag(0)

                            Begin
                             Mouse(556, 85, 5, 5,true)
                              FFlag(0)
                                Begin
                                 If (Not( FindSymbol(x,y,'fishing shop'))) Then
                                   Begin
                                    Relocate('Docks');
                                  end;

                                  If FindSymbol(x,y,'fishing shop') Then
                                    Mouse(x-8,y+65 + Random(5),1,1,true);
                                    WalkAntiBan;
                                    FFlag(0);

                                  If FindSymbol(x,y,'transportation') Then
                                    Mouse(x,y,1,1,true);
                                    WalkAntiBan;
                                    FFlag(0)

                              Begin
                               Case DoneQuest of

                                False :Begin
                                        If FindSailor(x, y) then
                                         Begin
                                          Mouse(x,y,1,1,false);
                                          wait(88+Random(88));
                                          ChooseOption('are');
                                          WalkAntiBan;
                                         end;
                                       end;

                                True : Begin
                                       If FindSailor(x, y) Then
                                        Begin
                                         Mouse(x, y, 1, 1, True);

                                          Repeat
                                           If ClickToContinue Then
                                            Mouse(x,y,1,1,true);
                                            wait(2000+Random(1000));
                                          Until(not(ClickToContinue))
                                           If not(ClickToContinue) Then
                                            Begin

                                              If FindBitmap(YesOption, x, y) Then
                                               Begin
                                                Mouse(x+Random(10), y, 2, 2, True);
                                                wait(1200+Random(2300));

                                               If ClickToContinue Then
                                                Mouse(x, y, 1, 1, True);
                                                wait(2000+Random(1000));
                                               end;

                                            end;
                                          end;
                                         end;
                                       end;
                                    Begin
                                   WaitWhileSail;
                                end;
                              end;
                          end;
                       end;
                     end;
                   end;
                end;
        end;
    end;



    {-----------------------------------------}
    {Tries again to Get to The Fishing Spot   }
    {-----------------------------------------}

    Procedure TryAgain;
    var
    Tries : Integer;
    Begin
      Repeat
        If Not (Loggedin) then
          Exit;
           Begin
             Tries:=Tries+1;
             Mouse(695, 106,5,5,true);
           end;
      Until(Tries > 2) or (FlagPresent)
       If (Tries > 2) or (FlagPresent) Then
         WalkAntiBan;
         FFlag(0);
    end;

    {------------------------------------}
    { From The Boat To The Fishing Spot! }
    {------------------------------------}

    Procedure KaramjaToFishing;
    Begin
     CrossGangPlank;
     WriteLn('We are in Karamja!!!')

       Begin
        MakeCompass('W')
         Mouse(MMCX+Random(3), MMCY-65, 5, 5, true);
         WalkAntiBan;
         wait(1000+Random(1000));
          FFlag(0)
         Mouse(MMCX+18, MMCY-64, 5, 5, true);
         WalkAntiBan;
         wait(1000+Random(1000));
          FFlag(0)

           Begin

             If TreeWalk('Tree', 678, 83, 697, 107) Then
               Mouse(x,y,1,1,true);
               WalkAntiBan;
               FFlag(0);

             {If TreeWalk('Tree', 662, 83, 686, 110) Then
               Mouse(x,y,1,1,true);
               WalkAntiBan;
               FFlag(0); }

                Begin
                 If (Not(FindSymbol(x,y,'Fishing Spot'))) then

                    Begin
                     WriteLn(' Trying to get to the fishing spot ')
                     TryAgain;
                     wait(1)
                     FindNormalRandoms;
                    end;
                  If ((FindSymbol(x,y,'fishing spot'))) then
                   Begin
                    Mouse(x,y,1,1,true)
                    WalkAntiBan;
                    FFlag(0)

                   end;
                 end;
              end;
      end;
    end;


    {
    <----------------------------------------------------------------->
    Function FindFishingSpots: TPointArray;
    Description:

      Finds all RuneScape 2 Fishing spots on the MainScreen.
      Mainscreen is defined by MSX1, MSY1, MSX2, MSY2.
      The spots are sorted by Distance, the first in the array
      is the one closest to the RS char (MSCX, MSCY).

      Made By: Wizzup?
    <----------------------------------------------------------------->
    }


    Function FindFishingSpots: TPointArray;

    Var
       Fish: TPointArray;
       Fishes: T2DPointArray;
       I, cts: Integer;

    Begin
      If Not LoggedIn Then Exit;

      SetLength(Result, 0);
      cts := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(MSCX, MSCY, Fish, 15257001, MSX1, MSY1, MSX2, MSY2, 40);
      Fishes := TPAToATPA(Fish, 25);
      SetLength(Fish, 0);
      SetLength(Result, Length(Fishes));
      For I := 0 To High(Fishes) Do
      Begin
        If Length(Fishes[I]) < 5 Then
          Continue;
        Result[I] := MiddleTPA(Fishes[I]);
      End;
      SetLength(Fishes, 0);
      ColorToleranceSpeed(cts);
    End;

    {
    <----------------------------------------------------------------->
    Function FindFishingSpot(Var x, y: Integer): Boolean;
    Description:

      Uses FindFishingSpots to find a fishing spot on the
      RuneScape mainscreen.
      Returns the coordinate of the fishing spot in x and y.
      Result Returns True if the spot is found.

      Made By: Wizzup?
    <----------------------------------------------------------------->
    }


    Function FindFishingSpot(Var x, y: Integer): Boolean;

    Var
       Fish: TPointArray;
       I: Integer;

    Begin
      If Not LoggedIn Then Exit;
      Result := False;
      Fish := FindFishingSpots;
      For I := 0 To Length(Fish) - 1 Do
      Begin
        MMouse(Fish[I].X, Fish[I].Y, 0, 0);
        Wait(150 + Random(50));
        If IsUpText('age') Then

        Begin
          Result := True;
          x := Fish[I].X;
          y := Fish[I].Y;
          Exit;
        End;
      End;
    End;

    {-------------------------------}
    {   Random Clicking Techniques  }
    {-------------------------------}

    Procedure Click;
    Begin
     If Not (Loggedin) then
        Exit;
      Case Random(3) of

       0:Begin
           MMouse(x,y,5,5)
           wait(800+Random(200))
         If IsUpText('age') then
           Mouse(x,y,1,1,true)
         end;

       1:Begin
           MMouse(x,y,5,5)
           wait(800+Random(200))
         If IsUpText('age') then
           Mouse(x,y,1,1,False);
           ChooseOption('age');
         end;

       2:Begin
           MMouse(x,y,2,3);
           wait(700+Random(300));
         If IsUpText('age') then
           Mouse(x,y,2,3,False);
           ChooseOption('age');
         end;
      end;
    end;



    {----------------------------}
    {       Search Antiban!      }
    {----------------------------}

    procedure Search;
    var
      f, e : integer;
    begin
     If (not (Loggedin)) then
      Exit;
      MMouse(645, -14, 1, 1)
      MMouse(727, -10, 1, 1)
      e := 5 + Random(6);   //Of Almost Logout credits to Yakman :)
      for f := 0 to e do
      begin
        case Random(3) of

          0, 1: MMouse(727 - Random(200), 90 + Random(200), 0, 0);

          2: IdleTime(300 + Random(300), 500, 0.5);
        end;
      FTwait(2 + Random(1));
      end;

    end;


    {----------------------------}
    {       Anti Ban             }
    {----------------------------}

    procedure AntiBan;
    begin
     If (not (Loggedin)) then
      Exit;
      case Random(47) of

        0,1,2: PickUpMouse;

        23,5,9: GameTab(1 + Random(11));

        46: Search;

        45: MMouse(Random(MSX2), Random(MSY2), 0, 0);

        19: begin
              HoverSkill('random',false);
              gametab(4);
              ChooseOption('Cancel');
              MMouse(Random(MSY1), Random(MSX1), 0, 0);
            end;

         10: begin
              GameTab(1 + Random(13));
              wait(1000+ random(600));
              gametab(4);
              ChooseOption('Cancel');
            end;

         34: begin
              HoverSkill('random',false);
              gametab(4);
             end;

         33: Begin
               Case Random(67)+1 of

                0,1,23,25,45,46: Typesend('...');

                2,22,42,52,62: Typesend('Yawn');

                3,5,9,19: Typesend('Hey');

                66,65,64,63: Typesend('Fishing lvls?');

                56,55,54,53,67: Typesend('l0l');
           end;
        end;
     end;
    end;

    {Procedure RandomsCheck;
    var
    v: Integer;
    Begin
      If Not (Loggedin) then
        Exit;
     for v:= 0 to 3 do
      FindNormalRandoms;
      FindNonInventoryRandoms;
      wait(1)
    end;}


    {-------------------------------}
    {       Wait While Fishing      }
    {-------------------------------}

    Procedure WaitWhileFish;
    var
    imark : Integer;
    Begin
     If Not (Loggedin) then
        Exit;
        wait(1);
      Begin
      FFlag(0);
      if invfull then Exit;

       MarkTime(imark)
       Repeat
        if invfull then break;
        AntiBan;
        NaumanAR;
        FTWait(20 + Random(10))

        if invfull then break;
        AntiBan;
        NaumanAR;
        FTWait(30 + Random(10))
         Case Random (2) Of
           0:Begin
               If FindFishingSpot(x,y) then
                Begin
                 Mouse(x,y,1,1,true);
                 FFlag(0);
                end;
               wait(1);
              end;
             end;
          if invfull then break;

          if timefrommark(imark) > 500000 then break;

       Until(ClickToContinue) or (FindBitmapIn(LobbyMessage,x ,y , MCX1, MCY1, MCX2, MCY2)) Or
       (invfull) Or

       (Not (FindDTM(LobsterPot,x,y,MIX1,MIY1,MIX2,MIY2)))
         If Not (FindDTM(LobsterPot,x,y,MIX1,MIY1,MIX2,MIY2)) Then
           LobbyPot := False;
        end;
       Exit;
    end;

    {-------------------------}
    {     Tryit again!!!!     }
    {-------------------------}

    {Procedure Tryit;
    Begin
     For i:= 0 to 3 do

      If FindFishingSpot(x,y) Then
       Click;
       Exit;
    end;   }


    {-------------------------------}
    {     Fish Lobbies!!! YaY!!!    }
    {-------------------------------}

    Procedure FishLobbies;
    Begin
     FishingSpotCol[0] := 13540732;
     FishingSpotCol[1] := 14458997;
     FishingSpotCol[2] := 12886415;
     FishingSpotCol[3] := 14595221;
     FishingSpotCol[4] := 13673866;
     FishingSpotCol[5] := 13281424;

    Begin
      If Not (Loggedin) then
        Exit;
      Begin
       MakeCompass('E')
        {For i:= 0 to 5 do
         If FindObjX(x, y, ['age','ish','pot'] , [FishingSpotCol[i]] , 7) or
    }
      If Not FindFishingSpot(x,y) then
      Begin
      { Tryit;}
      Mouse(MMCX-4+Random(3), MMCY-Random(2+Random(4)), 2, 2, True);
       end else
         If FindFishingSpot(x,y) then
           Begin

              Repeat
               Click;
                FFlag(0);
                Wait(600+Random(200));
                 If (Not(FindBlackChatMessage('ou atte'))) then
                  Begin
                   WriteLn('Didn''t work!! Trying Again');
                  If FindFishingSpot(x,y) then
                   Click;
                   FFlag(0);
                  end;
               WaitWhileFish;

              Until(invfull)
             If (InvFull) then
               Fished := Fished +26;
               WriteLn(' Done One Load :), GOING TO BANK')
            end;
         end;
      end;
    end;

    {-------------------------------}
    {      Karamja To Port Sarim    }
    {-------------------------------}

    Procedure KaramjaToPortSarim;
    var
    CanOption, SearchOption, OkOption : Integer;

    Begin

        CanOption := BitmapFromString(33, 15, 'beNqVU0EOgkAM9P+P4KA' +
           'c0G8YCDEeDQH14FOsjBkns8uCZEJKt3Taabevn5cj8ejrwNQe4k2P' +
           'BmxB9hdkBv7KXMiWjdSj3fww4HU9FVg0oZVK5+28pzhIjjAY5RY2U' +
           'lB/VM4YsiwJkpUlZUFyLRsYZoTn3lcpBbve0kWohC4oS9jkDWNsqz' +
           'TPknpaMMNAocrr3oYxSI9cAx2c+VOw5oihHW9bGC6Ybho+szqvUhD' +
           'RI9rMLjMpbDcADFFZEGAs4AUXkq9SUGqbqbHYgMxQFh3BklBKARZ9' +
           'yEjP1DV6WeyqZlm4tABuurYJT6yuCogZqRShfCCdJvfzc9Q1P4rZt' +
           'gbpsTLslMa3qjcF/eym');

          SearchOption := BitmapFromString(46, 17, 'beNp9VdtKAzEQ7f+/' +
           '+2IX0daH+guKxVJWREUo6KLUj3GSkzk5mey6DEsymcmczHXcnvbrz' +
           '8OQ6Lh5f7yxv9L55TZwfsYtqDKzesPJYt/jFYVJdiFIt1gbkgLGkD' +
           'xc8mZbTA4jWXFzvKGY7mBAwGDwHmr9vt5Rl38s7KgiyVrlLwT1Wfo' +
           'HCX2Cf33F805dSkjlsXTycbPyT2XUCcHVUAyhCXiKbvtGM4HoGxEt' +
           'ZE77a5yCY2tFMgsDSMJWkeCqYkgw2GehnzxnYOjjaaA3DIw6ZwkDg' +
           '95HPLhlYjpJ3E0Ml2tdQBd5UhzSqoT07gthJliCpImIZ68+s0qyUg' +
           'KSTP1jQwmH2KHWztntaqJvBSH0hP12f4EYreRLHLelaYzkh4c1t5k' +
           'APAp8fJoq9c5MqYccBvuDgotwrcb3a9wBG3CqRZpQj9GW+ryuPVJN' +
           'kmQAadsKw7qmGbOCjwqpqFQEPGGw1jyhADob7Gq/NQ5aLo76ojaOl' +
           'Q/4rCNsVTJAJZOzAAK2RVByCa8RJroCwWL0tV6gDiSMI5Go9xQJQ6' +
           'mAa3x94qzaj8kzm2C6hXN4bfCSCrO9Q0VPgdbMwSEMDcufYIJ7Q5+' +
           'xayeNXa4vnchss0sjDKkCW3UOCpgwnWsbx9or2hbs/OmxjgTgy1xu' +
           '5x1bDTnNq2Uc17rOnFJTbbNSJ4QxxNJemp4RyR+ome/Z');

      OkOption := BitmapFromString(27, 16, 'beNqNk0EWgjAMRL3/IdjI' +
           'Qr0HPh54AEEXHMXo4Lxx0oK8LBKa/E6HMpyfw088+rZWRs4SucYyt' +
           'nPf3LsmA2NpuV2Mw9CNjEZgjNvWh+9jwCjxMu8FoO2Ifh2JXFFaZv' +
           'GhE0tIIMwcIDNOEW0KzDZC5wr/mBb9OH7MKhCu/gPkavQX5ZEJAoG' +
           '7YW4XgbRRzSyibIpBH8xP+14ZVQTqIN8QwuRt71hmZoVqRfF+gmYO' +
           '5BtiN9zKrNB+gXxwc14Fq5iaqszc8Lk2UmuwrzZ1x3yQ6Xrapm0A9' +
           'Y/YhazxAiSpZfM=');

      If Not (Loggedin) then
       Begin
         Exit;
       end else
         If (((InvFull))) Then
          Begin
            WriteLn('Now Going To Bank');
         end;
          Begin
             MakeCompass('E');
             Mouse(MMCX + 60+Random(5), MMCY, 5, 5, true);
             WalkAntiBan;
             FFlag(0);

               Begin
                 Mouse(MMCX+45+Random(5), MMCY, 5, 5, true);
                  wait(5000+Random(3000));
                  WalkAntiBan;
                  FFlag(0);
               {  Mouse(MMCX+10+Random(4), MMCY-60+Random(5), 5, 5, true);
                  wait(6000+Random(3000));
                  WalkAntiBan;
                  FFlag(0);     }


               Begin
                 Mouse(MMCX + 10, MMCY - 65 ,5, 5, true);
                  WalkAntiBan;
                  wait(5000+Random(3000));
                 wait(1);

                 Mouse(MMCX, MMCY - 30, 10, 10, True);
                FFlag(0);
                  Begin
                   If Not FindSymbolIn(x,y,'transportation', 590, 11, 697, 122) Then
                     Begin
                       WriteLn('We might be Lost Lets Get to the Custom Officer :)');
                       Relocate('Docks 2');
                     end;

                   If FindSymbolIn(x,y,'transportation', 590, 11, 697, 122) Then
                      Mouse(x,y,1,1,true);
                      wait(8000+Random(3000));
                  end;
               Begin
                If SailorNotFound then
                  wait(2);
                 If FindSailor(x, y) then

                  Begin
                   Case DoneQuest Of

                     False : Begin
                               Mouse(x,y,1,1,false);
                               wait(88+Random(99));
                               ChooseOption('are');
                               wait(2000+Random(3000));
                               WalkAntiBan;
                            end;

                     True : Begin
                              Mouse(x,y,1,1,true);
                              wait(1200+Random(2000));
                                Repeat

                                 If ClickToContinue Then
                                   Mouse(x,y,1,1,true);
                                   wait(2000+Random(1000));
                                Until(Not(ClickToContinue))

                                 If Not ClickToContinue Then
                                  If FindBitmap(CanOption, x, y) Then
                                    Mouse(x+Random(10),y,2,2,true);
                                  Repeat

                                    If ClickToContinue Then
                                      Mouse(x,y,1,1,true);
                                      wait(2000+Random(1000));
                                   Until(Not(ClickToContinue))

                                    If Not ClickToContinue Then
                                      If FindBitmap(SearchOption, x, y) Then
                                        Mouse(x+Random(10),y,2,2,true);
                                        Wait(1200+Random(2000));

                                       Repeat
                                         If ClickToContinue Then
                                          Mouse(x,y,1,1,true);
                                          wait(2000+Random(1000));
                                       Until(Not(ClickToContinue))
                                    If Not ClickToContinue Then
                                      Begin
                                       If FindBitmap(OkOption, x, y) Then
                                        Mouse(x+Random(10), y, 2, 2, true);
                                        wait(1200+Random(2000));
                                       
                                      Repeat
                                         If ClickToContinue Then
                                          Mouse(x,y,1,1,true);
                                          wait(2000+Random(1000));
                                       Until(Not(ClickToContinue))
                                    If Not ClickToContinue Then
                                      Exit;
                                 end;
                              end;
                           end;

                      WaitWhileSail;

                  end;
              end;
             end;
            end;

        end;
    end;


    {--------------------------}
    {         TryAgain X       }
    {--------------------------}

    Procedure TryAgainX;
    Begin
    If Not (Loggedin) then
        Exit;
      If DTMRotated(Banker, x, y, 656, 74, 698, 106) Then

        Mouse(x+17,y-5,1,1,true);
        WalkAntiBan;
        FFlag(0)
    end;

    {-------------------------------}
    {   Port Sarim to Draynor Bank  }
    {-------------------------------}

    Procedure PortSarimToDraynorBank;
    Var
    Back: TPoint;

    Begin
      If Not (Loggedin) then
        Exit;
      CrossGangPlank;
      WriteLn('We are in Port Sarim')
        Begin
          MakeCompass('N');
          SetRun(True);
          GameTab(1+Random(12));
          Mouse(638, 33, 5, 5, true);
          WalkAntiBan
           FFlag(0)

            Begin
              Mouse(673, 71, 5, 5, true);
              WalkAntiBan;
               FFlag(0)
                 Begin
                   Mouse(659, 45, 10, 10, true);
                   WalkAntiBan;
                    FFlag(0)

                     Begin
                      If Not FindSymbol(Back.x, Back.y, 'Quest') then
                        Begin
                          Relocate('Quest 2');
                        end;
                      If FindSymbol(Back.x, Back.y, 'Quest') then
                       Begin
                        Mouse(Back.x, Back.y, 1, 1, true);
                        wait(2000+Random(3000));
                       WalkAntiBan;
                       FFlag(0)
                         Begin
                           Mouse(666, 34, 5, 5, true);
                           wait(1500+Random(300));
                           FFlag(0)

                         Begin
                           Mouse(658, 136, 5, 5, true);
                           Case Random(2) of

                             0: SetRun(True);

                             1: wait(1);

                            end;
                           wait(20000+Random(2000));
                           WalkAntiBan;
                           { If(not( FlagPresent )) then
                              Begin
                                Repeat
                                 Wait(1000+Random(2000))
                                Until(FlagPresent)
                              If FlagPresent then
                                FFlag(0);  }


                           Begin
                             Radialwalk(FindRoadColor, 70, 100, 59, 0, 0);
                             Wait(2000+Random(2000));
                             GameTab(4);
                             WalkAntiBan;
                              FFlag(0);
                            end;
                                Begin
                                  If FindSymbol(Back.x, Back.y, 'Bank') Then
                                   Begin
                                    SymbolAccuracy := 0.8;
                                    Mouse(Back.x,Back.y,1,1,true);
                                     FFlag(0)
                                     WriteLn('In Bank');

                              If (Not(FindSymbol(Back.x, Back.y, 'Bank'))) then
                                 Begin
                                   SymbolAccuracy := 0.4
                                     If FindSymbol(Back.x, Back.y, 'Bank') Then
                                      Begin
                                       Mouse(Back.x,Back.y,1,1,true);
                                       FFlag(0)

                                If (Not(FindSymbol(Back.x, Back.y, 'Bank'))) then
                                   Begin
                                     TryAgainX;
                                     WriteLn('Hoping For The Best ');
                                    end;
                                  end;
                                end;
                            end;
                         end;
                     end;
                  end;
                ReportVars[0] := ReportVars[0] + 26;
                ReportVars[1] := ReportVars[1] + 1;
              end;
           end;
         end;
      end;
     end;
    end;


    {-------------------------------}
    {       Gets New LobbyPot       }
    {-------------------------------}

    Procedure WithdrawPot;
    var
     LobbyPotBit : Integer;
    Begin
      If Not LoggedIn Then
      Exit;

       LobbyPotBit := BitmapFromString(20, 10, 'beNqdkVsLAVEUhR/d/' +
           'RAPHpQHRWqYaFwmDA2Rxt24JHnh0S/31ZpO8qCo1Wmdmf2ds/Y+Vr' +
           'pZSKBuMYkGpUh+OSVNq2kpsCKt7Yz0fNz/oMJmhi3srxQ6t7ITz4N' +
           'F+q6y75RAEL/fEzsbjeQPqyWrKUMflEDU77RlAOVPmzXrfOzX8nH5' +
           'azf7Ln4JcR1HZui6+Eoudg1DtvTC5C+7rSIxyf0iUKVp07HrtKZD8' +
           'Nx1Ox4Vg3qdg2eMyvDeZsOyNGpAPHeJJT/18kRi8spg2jRj1CF6Zd' +
           'UTw7AUk00ZTJvRu7wADL+5gQ==');

      If FindBitmapIn(LobbyPotBit, x, y, MSX1, MSY1, MSX2, MSY2) Then
       Begin
        Mouse(x, y, 2, 2, True);
        Wait(1300+Random(800));
        LobbyPot := True;
      end;
    end;

    {-------------------------------}
    {       Finds Pin Screen        }
    {-------------------------------}

    Procedure CheckPScreen;
    Begin
       If Not (Loggedin) then
        Exit;
     If Players[0].PIN = '0000' Then Exit;
        If (PinScreen) then

         Begin
          InPin(Players[0].PIN);
       end;
    end;
           
    {-------------------------------}
    {         Bank Lobbies          }
    {-------------------------------}

    Procedure BankLobbies;
    Begin
       If Not (Loggedin) then
        Exit;
      OpenBankFast('db');
      FTWait(3+Random(2));
       Begin
         CheckPScreen;
            If (bankScreen) then
              Begin
                Deposit(3,28,True);
                wait(1000 + Random(200))
                If Not LobbyPot Then
                  WithdrawPot;
              Begin
                CloseBank
                Loads := Loads+1;
                SRLRandomsReport;
                SendSRLReport;
                WriteLn('Banked')
              end;
          end;
      end;
    end;

    {--------------------}
    {   Load Version     }
    {--------------------}

    Const

    Version = 0.9; //DONT TOUCH!

    {-------------------------------}
    {        Progress Report        }
    {-------------------------------}

    Procedure Proggie;
    Begin
      SRLRandomsReport;
      SendSRLReport
      WriteLn('__________________________________________');
      WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      WriteLn('//====== Karamja Lobby Fish0r +Bank0r ======\\');
      WriteLn('||========  '+FloatToStr(Version)+' - Progress Report ======== ||');
      WriteLn('\\======================================//');
      WriteLn('[> Worked for ' + TimeRunning + '.');
      WriteLn('[> Fished ' + IntToStr(Fished) + (' LobZ.'));
      WriteLn('[> Banked ' + IntToStr(Loads) + (' LoadZ.'));
    //  WriteLn('[> Doing :' +IntToStr(Players[0].Integers[0])+ 'Loads !!!');
    //  WriteLn('[> We Have Done : '+IntToStr(Loads)+' out of '+(Edit[3].text)+ 'Loads');
      WriteLn('____\\==============================//____');
    end;

    {-------------------------------}
    {      Sets Up S.M.A.R.T!       }
    {-------------------------------}

    Procedure SetUpSMART;
    Begin

     Begin
       WriteLn('Making S.M.A.R.T Ready');
       SmartSetupEx(16, true, true, false);

         wait(2000+Random(2000));
         WriteLn('Loaded S.M.A.R.T');
         SetTargetDC(SmartGetDC);
         Exit;
      end;
    end;


    {-------------------------------}
    {      Sets Up The Script       }
    {-------------------------------}

    Procedure SetUpScript;
    Begin
      If (not( Loggedin )) then
        LoginPlayer;
            If LoggedIn then

             Begin
              SetAngle(True);
              SetRun(True);
            Level:= GetSkillInfo('fishing',False);

             If (Level > 40) then
               WriteLn('DEBUG: Fishing Level is appropriate for fishing lobbies');
          Begin
           GameTab(4)

            If FindEquipment then
             Begin
              WriteLn('DEBUG: Script is complete and Equipment found')
              wait(1)
              // ftwait(8)
             end;
         end;

      end;
    end;


    {-------------------------------}
    {        Main Event Loop        }
    {-------------------------------}

    Procedure Loop;
    var
    MSpeed : Integer;
    begin
      ClearDebug;
      SetupSRL;
      ScriptID := '825';
      LoadVarz;
       MSpeed := MouseSpeed;
       Proggie;
       SetupSMART;
     Begin
       wait(1000+Random(1000))
       GetApplication.BringToFront;
       Disguise('SRL-Forums - Index -...');
       SafeInitForm;
       SafeShowFormModal;

       if (not(StartTheScript)) then TerminateScript;
     { if(EndInitForm)then
        TerminateScript;}


      GetApplication.Minimize;
      wait(1000+Random(1000))
      SetupScript;
        Begin

         Repeat
          WalkToPortSarim;
            KaramjaToFishing;
           MouseSpeed := 9+Random(2);
          FishLobbies;
         //  Proggie;
          MouseSpeed := MSpeed;
          KaramjaToPortSarim;
            PortSarimToDraynorBank;
           BankLobbies;
           Proggie;
           Disguise('We have Done '+IntToStr(Loads)+' Banks!');
         Until(Not(LoggedIn)) Or (Loads > Players[CurrentPlayer].Integers[0]);

           If (Not(LoggedIn)) Or (Loads > Players[CurrentPlayer].Integers[0]) then

             Begin

               WriteLn(' Script Is Finished');
               Disguise(' FINISHED! ');
               ClearDebug;

               Proggie;
               WriteLn('Final proggie Printed!!!');
             TERMINATESCRIPT;

           end;

        end;
     end;
    end;


    {--------------------}
    {     Main Loop      }
    {--------------------}

    Begin
      Loop;
      FreeForm(frmDesign);
      FreeVarz;
      terminatescript;
    end.

    {Please don't copy any procedures without my premission ;)}

    {---------------------------------}
    {    End Of Script :(  :(  :(     }
    {---------------------------------}


    //(c) By NaumanAkhlaQ, If Any Bugs Found Please PM me ;)//
    // This Version and Above Is:  STABLE!!!//
    // Thank-you :)//



    thanks guys

  2. #2
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Just take SMART out of the script, it's not that hard.

    ~Camo
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  3. #3
    Join Date
    Nov 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wen i take scar out then this error comes up

    Failed when compiling
    Line 1734: [Error] (18094:1): Unknown identifier 'SmartSetupEx' in script C:\Documents and Settings\Amit\My Documents\Downloads\Karamja L0bby Fish0r + Bank0r.scar

    lol.... i cant belive theres no working fishing script

  4. #4
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Lol it wont work believe me, I made that script . Its outdated..

  5. #5
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Quote Originally Posted by sundeep125 View Post
    wen i take scar out then this error comes up

    Failed when compiling
    Line 1734: [Error] (18094:1): Unknown identifier 'SmartSetupEx' in script C:\Documents and Settings\Amit\My Documents\Downloads\Karamja L0bby Fish0r + Bank0r.scar

    lol.... i cant belive theres no working fishing script
    I said Smart, not Scar.

    Nvm, Nauman answered it for me

    ~Camo
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  6. #6
    Join Date
    Nov 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well do u think you will be able to post a working fishing script please ill really appreciate it becus i cant find any

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Error when starting script
    By Noodler13 in forum OSR Help
    Replies: 5
    Last Post: 03-22-2008, 12:16 AM
  2. Help starting frist script
    By Insane Death in forum OSR Help
    Replies: 17
    Last Post: 10-23-2007, 07:20 AM
  3. Starting to Script
    By Suyeda in forum News and General
    Replies: 5
    Last Post: 10-31-2006, 04:02 AM

Posting Permissions

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