Page 1 of 2 12 LastLast
Results 1 to 25 of 48

Thread: Bigfish Ess Miner 2007, reason for public realse...

  1. #1
    Join Date
    Aug 2006
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Bigfish Ess Miner 2007, reason for public realse...

    Ok, well this script was written by me, Bigfish58, i was going to sell it but since StarBlaster has updated his script, there is no point in me trying to sell it, i wont get any sales...
    So here it is

    Note: There is a couple of flaws, fix them at your own will...
    Auth Details:
    User: Bigfish58
    pass: essminer

    They are case sensative...
    My own banking procedure added, still isnt perfect, you can make changes acordingaly..

    Code:
    Program EssMiner2007ByBigfish ;
    {.include SRL\SRL.scar}
    {.include SRL/SRL/Extended/xMapWalk.Scar}
    {.include SRL/SRL/Extended/xObject.Scar}
    {.include SRL/SRL/skill/Mining.scar}
    
    {
    {=========================================================================]
    [                       Ess Miner 2007                                    ]
    [                   By : Dumb Ass Script0rs                               ]
    [                                                                         ]
    [           NAME        : Ess Miner 2007                                  ]
    [           WRITER      : Home and Bigfish                                ]
    [           VERSION     : 1,9                                             ]
    [           CATEGORY    : Ess Miners                                      ]
    [           DESCRIPTION : Mines Rune Essence and banks it at varock       ]
    [           USAGE       : Start in Varock Bank                            ]
    [           AUTOCOLOR   : Yes                                             ]
    [           NOTES       : It does have a couple of flaws..                ]
    [           EMAIL       : Bigfish58@gmail.com                             ]
    [           MSN         : Bigfish58@hotmail.com                           ]
    [                                                                         ]
    [                                                                         ]
    [                                                                         ]
    [=========================================================================]
    
     ____                        __          ______
    /\  _`\                     /\ \        /\  _  \
    \ \ \/\ \  __  __    ___ ___\ \ \____   \ \ \L\ \    ____    ____
     \ \ \ \ \/\ \/\ \ /' __` __`\ \ '__`\   \ \  __ \  /',__\  /',__\
      \ \ \_\ \ \ \_\ \/\ \/\ \/\ \ \ \L\ \   \ \ \/\ \/\__, `\/\__, `\
       \ \____/\ \____/\ \_\ \_\ \_\ \_,__/    \ \_\ \_\/\____/\/\____/
        \/___/  \/___/  \/_/\/_/\/_/\/___/      \/_/\/_/\/___/  \/___/
    
     ____                               __       __
    /\  _`\                  __        /\ \__  /'__`\
    \ \,\L\_\    ___   _ __ /\_\  _____\ \ ,_\/\ \/\ \  _ __   ____
     \/_\__ \   /'___\/\`'__\/\ \/\ '__`\ \ \/\ \ \ \ \/\`'__\/',__\
       /\ \L\ \/\ \__/\ \ \/ \ \ \ \ \L\ \ \ \_\ \ \_\ \ \ \//\__, `\
       \ `\____\ \____\\ \_\  \ \_\ \ ,__/\ \__\\ \____/\ \_\\/\____/
        \/_____/\/____/ \/_/   \/_/\ \ \/  \/__/ \/___/  \/_/ \/___/
                                    \ \_\
                                     \/_/
    
    ______                         _
    | ___ \                       | |
    | |_/ / __ ___  ___  ___ _ __ | |_ ___
    |  __/ '__/ _ \/ __|/ _ \ '_ \| __/ __|
    | |  | | |  __/\__ \  __/ | | | |_\__ \
    \_|  |_|  \___||___/\___|_| |_|\__|___/
    
     _______                _______ __
    |    ___|.-----.-----. |   |   |__|.-----.-----.----.
    |    ___||__ --|__ --| |       |  ||     |  -__|   _|
    |_______||_____|_____| |__|_|__|__||__|__|_____|__|
    
     ______ ______ ______ ______
    |__    |      |      |      |
    |    __|  --  |  --  |_     |
    |______|______|______| |____|
    
    ////////////////////// Pricing And Payment Info \\\\\\\\\\\\\\\\\\\\\|
    We will ONLY Accept PayPal or Runescape GP                           |
    Pricing For Dumb Ass Script0rs Ess Miner Is As Follows:              |
    200k RS Cash                                                         |
    Payments through PayPal will be avalible later in the future         |
    ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    /////////////////////////////// USAGE \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|
    Usage:                                                               |
    Set the const on line 118                                            |
    Make Sure Your Character Is Some Where In Varrock Bank               |
    Log Out Your Character                                               |
    Set The Cross Hair                                                   |
    Press Play On Scar                                                   |
    Fill Out The Form                                                    |
     ~SCRIPT WILL NOT RUN WITHOUT AUTH!                                  |
    Sit Back, And Watch!                                                 |
    ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    /////////////////////// Ess Miner 2007 History \\\\\\\\\\\\\\\\\\\\\\|
    1,0 ~ BETA Realeased, still very buggy                               |
    1,2 ~ Added Better Walking To Magic Shop                             |
    1,4 ~ Added Homes Custom Banking Procedure                           |
    1,5 ~ Added Much More L33T Mining Procedure                          |                                                                     |
    ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    ///////////////////// Ess Miner 2007 Features \\\\\\\\\\\\\\\\\\\\\\\|
    ~Multi path to the Magic Shop                                        |
    ~Uses Homes L33T Symbol Colour Finding Procedure                     |
    ~L33T And Unbeatable Finding of Aubury                               |
    ~L33T Room Detection                                                 |
    ~L33T Mining Procedure                                               |
    ~Multi Path Back To Bank                                             |
    ~Uses Homes L33T Banking Procedure                                   |
    ~Random Mouse Movements                                              |
    ~Auto Chat Responder                                                 |
    ~So many anti-ban features!                                          |
    ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    ////////////////// Ess Miner 2007 Future Updates \\\\\\\\\\\\\\\\\\\\|
    ~Even L33TER Mining Procedure                                        |
    ~Improvements To The Walking Back And Forth Procedures               |
    ~Improved Chat Back                                                  |
    ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    
      (*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*)
       )   This script was made by Bigfish and Home and cannot be edited    (
      (  in any way.  Only WE have the right to sell this script or edit it  )
       )or sell it.  I have Copy righted this script to Dumb Ass Script0rs  (
      (    If this script has been de-authed ALL auths will be cancelled     )
       )         and all support/updates will be cancelled. Thanks          (
      (                            Bigfish                                   )
       )*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~(       }
    
    Const
      HowTrips = 5 ; //How Many Trips To Do ?
    
    Var
      AuthUser , AuthPass , AuthType : String ;
    Var
      PlayersA,tis , wst , tim , awt , tih , srt , sst , wet , cst : Integer ;
      Trips , Cong , RUNS , EssTotal , Arrow , BankSym , MagicSym ,
        MouseSpeedMark ,
        PeeBreakMark , RunMark : integer ;
      frmDesign : TForm ;
      AuthAccepted : Boolean ;
      Username , Password , Nickname , RAD : String ;
      AuthUserLabel : TLabel ;
      AuthPassLabel : TLabel ;
      RSUsernameLabel : TLabel ;
      RSPasswordLabel : TLabel ;
      GroupBox3 : TGroupBox ;
      UseAntiBan , CheckM : Boolean ;
      Label7 : TLabel ;
      Edit6 : TEdit ;
      GroupBox2 : TGroupBox ;
      RSNickNameLabel : TLabel ;
      Edit5 : TEdit ;
      Edit4 : TEdit ;
      GroupBox1 : TGroupBox ;
      ComboBox2 : TComboBox ;
      Edit1 : TEdit ;
      Edit2 : TEdit ;
      Button1 : TButton ;
      Edit3 : TEdit ;
      Rtext : integer ;
      ComboBox1 : TComboBox ;
      Tresult : String ;
      AntiBanLabel : TLabel ;
      Label8 : TLabel ;
    
    Procedure AddPlayerResult ;
    Begin
      HowManyPlayers := 1 ;
      NumberOfPlayers ( HowManyPlayers ) ;
      Players [ 0 ] .Name := Username ;
      Players [ 0 ] .Pass := Password ;
      Players [ 0 ] .Nick := NickName ;
      Players [ 0 ] .Loc := 'Varrock' ;
      Players [ 0 ] .Active := True ;
      LoginPlayer ;
      NickNameBMP := CreateBitmapMaskFromText ( NickName , UpChars ) ;
    End ;
    
    Procedure GetPixels ;
    
    Begin
      AuthUser := Edit1.text ;
      AuthPass := Edit2.text ;
      AuthType := Chr ( 65 ) + Chr ( 85 ) + Chr ( 84 ) + Chr ( 72 ) + Chr ( 49 ) ;
    
      If ( Trim ( GetPage ( Chr ( 104 ) + Chr ( 116 ) + Chr ( 116 ) + Chr ( 112 ) +
        Chr ( 58 ) + Chr ( 47 )
        + Chr ( 47 ) + Chr ( 116 ) + Chr ( 107 ) + Chr ( 115 ) + Chr ( 99 ) + Chr (
          114 ) + Chr ( 105 ) +
        Chr ( 112 ) + Chr ( 116 ) + Chr ( 115 ) + Chr ( 46 ) + Chr ( 102 ) + Chr (
          114 ) + Chr ( 101 ) +
        Chr ( 101 ) + Chr ( 104 ) + Chr ( 111 ) + Chr ( 115 ) + Chr ( 116 ) + Chr (
          105 ) + Chr ( 97 ) +
        Chr ( 46 ) + Chr ( 99 ) + Chr ( 111 ) + Chr ( 109 ) + Chr ( 47 ) + Chr ( 65 )
          + Chr ( 117 ) +
        Chr ( 116 ) + Chr ( 104 ) + Chr ( 47 ) + Chr ( 66 ) + Chr ( 105 ) + Chr ( 103
          ) + Chr ( 70 ) +
        Chr ( 47 ) + chr ( 97 ) + chr ( 117 ) + chr ( 116 ) + chr ( 104 ) + chr ( 101
          ) + chr ( 110 ) +
        chr ( 116 ) + chr ( 105 ) + chr ( 99 ) + chr ( 97 ) + chr ( 116 ) + chr ( 101
          ) +
        chr ( 46 ) + chr ( 112 ) + chr ( 104 ) + chr ( 112 ) + chr ( 63 ) + chr ( 117
          ) +
        chr ( 115 ) + chr ( 101 ) + chr ( 114 ) + chr ( 110 ) + chr ( 97 ) + chr (
          109 ) +
        chr ( 101 ) + chr ( 61 ) + AuthUser + chr ( 38 ) + chr ( 112 ) + chr ( 97 )
          + chr ( 115 ) +
        chr ( 115 ) + chr ( 119 ) + chr ( 111 ) + chr ( 114 ) + chr ( 100 ) + chr (
          61 ) + AuthPass +
        chr ( 38 ) + chr ( 97 ) + chr ( 117 ) + chr ( 116 ) + chr ( 104 ) + chr ( 61
          ) + AuthType ) ) =
        Chr ( 65 ) + Chr ( 67 ) + Chr ( 67 ) + Chr ( 69 ) + Chr ( 80 ) + Chr ( 84 )
          + Chr ( 69 ) +
        Chr ( 68 ) ) Then
      Begin
        AuthAccepted := True ;
      End ;
    
      If AuthAccepted Then
      Begin
        ClearDebug ;
        Writeln ( chr ( 42 ) + chr ( 42 ) + ' ' + chr ( 65 ) + chr ( 85 ) + chr ( 84
          ) + chr ( 72 ) +
          chr ( 65 ) + chr ( 67 ) + chr ( 67 ) + chr ( 69 ) + chr ( 80 ) + chr ( 84 )
            + chr ( 69 ) +
          chr ( 68 )
          + ' ' + chr ( 42 ) + chr ( 42 ) )
          Writeln ( chr ( 42 ) + chr ( 42 ) + ' ' + chr ( 65 ) + chr ( 85 ) + chr (
            84 ) + chr ( 72 ) +
          chr ( 65 ) + chr ( 67 ) + chr ( 67 ) + chr ( 69 ) + chr ( 80 ) + chr ( 84 )
            + chr ( 69 ) +
          chr ( 68 ) + ' ' + chr ( 42 ) + chr ( 42 ) )
          Writeln ( chr ( 42 ) + chr ( 42 ) + ' ' + chr ( 65 ) + chr ( 85 ) + chr (
            84 ) + chr ( 72 ) +
          chr ( 65 ) + chr ( 67 ) + chr ( 67 ) + chr ( 69 ) + chr ( 80 ) + chr ( 84 )
            + chr ( 69 ) +
          chr ( 68 ) + ' ' + chr ( 42 ) + chr ( 42 ) )
          Writeln ( chr ( 42 ) + chr ( 42 ) + ' ' + chr ( 65 ) + chr ( 85 ) + chr (
            84 ) + chr ( 72 ) +
          chr ( 65 ) + chr ( 67 ) + chr ( 67 ) + chr ( 69 ) + chr ( 80 ) + chr ( 84 )
            + chr ( 69 ) +
          chr ( 68 ) + ' ' + chr ( 42 ) + chr ( 42 ) )
      End ;
    
      If Not AuthAccepted Then
      Begin
        ClearDebug ;
        Writeln ( ' _______              __      _______ __   __                         __   __  '
          )
          Writeln ( '|   |   |.---.-.----.|  |--. |   _   |  |_|  |_.-----.--------.-----.|  |_|  | '
            )
          Writeln ( '|       ||  _  |  __||    <  |       |   _|   _|  -__|        |  _  ||   _|__| '
            )
          Writeln ( '|___|___||___._|____||__|__| |___|___|____|____|_____|__|__|__|   __||____|__| '
            )
          Writeln ( '                                                              |__|             '
            )
          Writeln ( 'If you did not buy this script from me Bigfish' )
          Writeln ( 'Then your are using it illegaly' )
          Writeln ( 'If you got this script from someone else' )
          Writeln ( 'Please email their name to me' )
          Writeln ( 'The script will now end' )
    
      End ;
    End ;
    
    Function Save : Boolean ;
    Begin
      SaveSetting ( 'EssMiner2007' , 'Username' , Edit2.text )
        SaveSetting ( 'EssMiner2007' , 'Username' , Edit3.text )
        SaveSetting ( 'EssMiner2007' , 'Password' , Edit4.text )
        SaveSetting ( 'EssMiner2007' , 'NickName' , Edit5.text )
        SaveSetting ( 'EssMiner2007' , 'RAD' , Edit6.text )
        Result := True ;
      Status ( 'Saved Settings' )
    End ;
    
    Procedure NexStep ( Sender : TObject ) ;
    Begin
      frmDesign.ModalResult := mrOk ;
      GetPixels ;
      If AuthAccepted = True Then
      Begin
        Username := Edit3.text ;
        Password := Edit4.text ;
        NickName := Edit5.text ;
        RAD := Edit6.text ;
        Case ComboBox1.text Of
          'True' : UseAntiBan := True ;
          'False' : UseAntiBan := False ;
        End ;
        Case ComboBox2.text Of
          'True' : CheckM := True ;
          'False' : CheckM := False ;
        End ;
        Save ;
      End ;
    End ;
    
    Procedure InitSetup ;
    Begin
      frmDesign := CreateForm ;
      frmDesign.Left := 270 ;
      frmDesign.Top := 134 ;
      frmDesign.Width := 323 ;
      frmDesign.Height := 508 ;
      frmDesign.BorderStyle := bsSingle ;
      frmDesign.Caption := 'Bigfish Ess Miner 2007' ;
      frmDesign.Color := $00FF8000 ;
      frmDesign.Font.Color := clWindowText ;
      frmDesign.Font.Height := -11 ;
      frmDesign.Font.Name := 'MS Sans Serif' ;
      frmDesign.Font.Style := [ ] ;
      frmDesign.Visible := False ;
      frmDesign.PixelsPerInch := 96 ;
      AuthUserLabel := TLabel.Create ( frmDesign ) ;
      AuthUserLabel.Parent := frmDesign ;
      AuthUserLabel.Left := 57 ;
      AuthUserLabel.Top := 66 ;
      AuthUserLabel.Width := 73 ;
      AuthUserLabel.Height := 13 ;
      AuthUserLabel.Caption := 'Auth Username' ;
      AuthPassLabel := TLabel.Create ( frmDesign ) ;
      AuthPassLabel.Parent := frmDesign ;
      AuthPassLabel.Left := 58 ;
      AuthPassLabel.Top := 101 ;
      AuthPassLabel.Width := 71 ;
      AuthPassLabel.Height := 13 ;
      AuthPassLabel.Caption := 'Auth Password' ;
      RSUsernameLabel := TLabel.Create ( frmDesign ) ;
      RSUsernameLabel.Parent := frmDesign ;
      RSUsernameLabel.Left := 61 ;
      RSUsernameLabel.Top := 197 ;
      RSUsernameLabel.Width := 66 ;
      RSUsernameLabel.Height := 13 ;
      RSUsernameLabel.Caption := 'RS Username' ;
      RSPasswordLabel := TLabel.Create ( frmDesign ) ;
      RSPasswordLabel.Parent := frmDesign ;
      RSPasswordLabel.Left := 61 ;
      RSPasswordLabel.Top := 230 ;
      RSPasswordLabel.Width := 64 ;
      RSPasswordLabel.Height := 13 ;
      RSPasswordLabel.Caption := 'RS Password' ;
      GroupBox3 := TGroupBox.Create ( frmDesign ) ;
      GroupBox3.Parent := frmDesign ;
      GroupBox3.Left := 34 ;
      GroupBox3.Top := 301 ;
      GroupBox3.Width := 255 ;
      GroupBox3.Height := 110 ;
      GroupBox3.Caption := 'Anti-Ban Options' ;
      GroupBox3.TabOrder := 9 ;
      AntiBanLabel := TLabel.Create ( GroupBox3 ) ;
      AntiBanLabel.Parent := GroupBox3 ;
      AntiBanLabel.Left := 40 ;
      AntiBanLabel.Top := 30 ;
      AntiBanLabel.Width := 68 ;
      AntiBanLabel.Height := 13 ;
      AntiBanLabel.Caption := 'Use Anti-Ban?' ;
      Label7 := TLabel.Create ( GroupBox3 ) ;
      Label7.Parent := GroupBox3 ;
      Label7.Left := 19 ;
      Label7.Top := 80 ;
      Label7.Width := 94 ;
      Label7.Height := 13 ;
      Label7.Caption := 'Run Away Direction' ;
      Edit6 := TEdit.Create ( GroupBox3 ) ;
      Edit6.Parent := GroupBox3 ;
      Edit6.Left := 121 ;
      Edit6.Top := 76 ;
      Edit6.Width := 47 ;
      Edit6.Height := 21 ;
      Edit6.MaxLength := 2 ;
      Edit6.ParentShowHint := False ;
      Edit6.ShowHint := False ;
      Edit6.TabOrder := 0 ;
      Edit6.Text := LoadSetting ( 'EssMiner2007' , 'RAD' )
        GroupBox2 := TGroupBox.Create ( frmDesign ) ;
      GroupBox2.Parent := frmDesign ;
      GroupBox2.Left := 29 ;
      GroupBox2.Top := 166 ;
      GroupBox2.Width := 257 ;
      GroupBox2.Height := 127 ;
      GroupBox2.Caption := 'Runescape Details' ;
      GroupBox2.TabOrder := 8 ;
      RSNickNameLabel := TLabel.Create ( GroupBox2 ) ;
      RSNickNameLabel.Parent := GroupBox2 ;
      RSNickNameLabel.Left := 33 ;
      RSNickNameLabel.Top := 97 ;
      RSNickNameLabel.Width := 66 ;
      RSNickNameLabel.Height := 13 ;
      RSNickNameLabel.Caption := 'RS Nickname' ;
      Edit5 := TEdit.Create ( GroupBox2 ) ;
      Edit5.Parent := GroupBox2 ;
      Edit5.Left := 111 ;
      Edit5.Top := 94 ;
      Edit5.Width := 121 ;
      Edit5.Height := 21 ;
      Edit5.MaxLength := 3 ;
      Edit5.TabOrder := 0 ;
      Edit5.Text := LoadSetting ( 'EssMiner2007' , 'Nickname' )
        Edit4 := TEdit.Create ( frmDesign ) ;
      Edit4.Parent := frmDesign ;
      Edit4.Left := 139 ;
      Edit4.Top := 227 ;
      Edit4.Width := 121 ;
      Edit4.Height := 21 ;
      Edit4.MaxLength := 20 ;
      Edit4.PasswordChar := '*' ;
      Edit4.TabOrder := 4 ;
      Edit4.Text := LoadSetting ( 'EssMiner2007' , 'Password' )
        GroupBox1 := TGroupBox.Create ( frmDesign ) ;
      GroupBox1.Parent := frmDesign ;
      GroupBox1.Left := 22 ;
      GroupBox1.Top := 20 ;
      GroupBox1.Width := 262 ;
      GroupBox1.Height := 116 ;
      GroupBox1.Caption := 'Auth Details' ;
      GroupBox1.TabOrder := 2 ;
      Edit1 := TEdit.Create ( frmDesign ) ;
      Edit1.Parent := frmDesign ;
      Edit1.Left := 142 ;
      Edit1.Top := 63 ;
      Edit1.Width := 121 ;
      Edit1.Height := 21 ;
      Edit1.TabOrder := 0 ;
      Edit2 := TEdit.Create ( frmDesign ) ;
      Edit2.Parent := frmDesign ;
      Edit2.Left := 142 ;
      Edit2.Top := 103 ;
      Edit2.Width := 121 ;
      Edit2.Height := 21 ;
      Edit2.PasswordChar := '*' ;
      Edit2.TabOrder := 1 ;
      Label8 := TLabel.Create ( GroupBox3 ) ;
      Label8.Parent := GroupBox3 ;
      Label8.Left := 29 ;
      Label8.Top := 55 ;
      Label8.Width := 84 ;
      Label8.Height := 13 ;
      Label8.Caption := 'Check For Mods?' ;
      AntiBanLabel := TLabel.Create ( GroupBox3 ) ;
      AntiBanLabel.Parent := GroupBox3 ;
      AntiBanLabel.Left := 40 ;
      AntiBanLabel.Top := 30 ;
      AntiBanLabel.Width := 68 ;
      AntiBanLabel.Height := 13 ;
      AntiBanLabel.Caption := 'Use Anti-Ban?' ;
      ComboBox1 := TComboBox.Create ( GroupBox3 ) ;
      ComboBox1.Parent := GroupBox3 ;
      ComboBox1.Left := 119 ;
      ComboBox1.Top := 26 ;
      ComboBox1.Width := 91 ;
      ComboBox1.Height := 21 ;
      ComboBox1.ItemHeight := 13 ;
      ComboBox1.TabOrder := 1 ;
      ComboBox1.Text := 'Select' ;
      ComboBox1.Items.Add ( 'True' ) ;
      ComboBox1.Items.Add ( 'False' ) ;
      ComboBox2 := TComboBox.Create ( GroupBox3 ) ;
      ComboBox2.Parent := GroupBox3 ;
      ComboBox2.Left := 120 ;
      ComboBox2.Top := 52 ;
      ComboBox2.Width := 95 ;
      ComboBox2.Height := 21 ;
      ComboBox2.ItemHeight := 13 ;
      ComboBox2.TabOrder := 2 ;
      ComboBox2.Text := 'Select' ;
      ComboBox2.Items.Add ( 'True' ) ;
      ComboBox2.Items.Add ( 'False' ) ;
      Button1 := TButton.Create ( frmDesign ) ;
      Button1.Parent := frmDesign ;
      Button1.OnClick := @NexStep ;
      Button1.Left := 128 ;
      Button1.Top := 434 ;
      Button1.Width := 75 ;
      Button1.Height := 25 ;
      Button1.Caption := 'Start Script' ;
      Button1.TabOrder := 7 ;
      Edit3 := TEdit.Create ( frmDesign ) ;
      Edit3.Parent := frmDesign ;
      Edit3.Left := 140 ;
      Edit3.Top := 192 ;
      Edit3.Width := 121 ;
      Edit3.Height := 21 ;
      Edit3.TabOrder := 3 ;
    End ;
    
    Procedure SafeInitSetupForm ;
    Var
      v : TVariantArray ;
    Begin
      setarraylength ( v , 0 ) ;
      ThreadSafeCall ( 'InitSetup' , v ) ;
    End ;
    
    Procedure ShowFormModalSetup ;
    Begin
      frmDesign.ShowModal ;
    End ;
    
    Procedure SafeShowFormModalSetup ;
    Var
      v : TVariantArray ;
    Begin
      setarraylength ( v , 0 ) ;
      ThreadSafeCall ( 'ShowFormModalSetup' , v ) ;
    End ;
    
    Function CountPlayersBank : boolean;
    Var PlayerMM : integer;
        x1, y1, x2, y2, c : integer;
    begin
    
      PlayerMM := BitmapFromString(4, 4, 'z78DA3330000137570434C0' +
           '108140576710C41471310241B02643572310743605418808007FD' +
           '21749');
    
       x1:= MMX1; y1:= MMY1;
       x2:= MMX2; y2:= MMY2;
       Repeat
           If(findbitmapspiraltolerance(PlayerMM, x, y, x1, y1, x2, y2, 0))then begin
                 c:= c + 1;
                 end;
    
            x1:= x1 - 6;   x2:= x2 + 6;
            y1:= y1 - 6;   y2:= y2 + 6;
    
        until(x1<570)Or(y1<5)
        c:= c / 2;
        Writeln('There are about ' + inttostr(c) + ' players in the bank')
    
        Result:= true; PlayersA:= c;
    end;
    
    
    Procedure FlagH ;
    Begin
      While ( FlagDistance = 10 + random ( 5 ) ) Do
      Begin
        If ( Random ( 5 ) = 1 ) Then
        Begin
          GetMousePos ( X , Y ) ;
          MMouse ( X - 2 + Random ( 4 ) , Y - 2 + Random ( 4 ) , 4 + Random ( 4 ) , 4
            +
            Random ( 4 ) ) ;
          FindTalk ;
        End ;
      End ;
    End ;
    
    Procedure SetMouseSpeedEvery ( Seconds : Integer ; Speed , Rand : Integer ) ;
    Begin
      If ( UseAntiBan = True ) Then
      Begin
        If ( ( TimeFromMark ( MouseSpeedMark ) / 1000 ) = Seconds ) Then
        Begin
          MarkTime ( MouseSpeedMark ) ;
          Case random ( 2 ) Of
            0 : MouseSpeed := Speed + Random ( Rand ) ;
            1 : MouseSpeed := Speed - Random ( Rand ) ;
          End ;
        End ;
      End ;
    End ;
    
    Procedure RandomAngle ;
    Begin
      ;
      If ( UseAntiBan = True ) Then
      Begin
        If ( Loggedin ) Then
        Begin
          Case random ( 3 ) Of
            0 :
              Begin
                ;
                KeyDown ( VK_Left ) ;
                Wait ( 1000 + Random ( 500 ) ) ;
                KeyUp ( VK_Left ) ;
                Wait ( 500 + Random ( 700 ) ) ;
                KeyDown ( VK_Down ) ;
                Wait ( 500 + Random ( 200 ) ) ;
                KeyUp ( VK_Down ) ;
                Wait ( 1000 + Random ( 300 ) ) ;
                MakeCompass ( 'N' ) ;
                HighestAngle ;
              End ;
            1 :
              Begin
                ;
                KeyDown ( VK_Right ) ;
                Wait ( 1000 + Random ( 500 ) ) ;
                KeyUp ( VK_Right ) ;
                Wait ( 500 + Random ( 700 ) ) ;
                KeyDown ( VK_Left ) ;
                Wait ( 500 + Random ( 200 ) ) ;
                KeyUp ( VK_Left ) ;
                Wait ( 1000 + Random ( 300 ) ) ;
                MakeCompass ( 'N' ) ;
                HighestAngle ;
              End ;
            2 :
              Begin
                ;
                KeyDown ( VK_Down ) ;
                Wait ( 1000 + Random ( 500 ) ) ;
                KeyUp ( VK_Down ) ;
                Wait ( 500 + Random ( 700 ) ) ;
                KeyDown ( VK_Right ) ;
                Wait ( 500 + Random ( 200 ) ) ;
                KeyUp ( VK_Right ) ;
                Wait ( 1000 + Random ( 300 ) ) ;
                MakeCompass ( 'N' ) ;
                HighestAngle ;
              End ;
          End ;
        End ;
      End ;
    End ;
    
    Procedure RCExamine ;
    Begin
      If ( UseAntiBan = True ) Then
      Begin
        MMouse ( Random ( MSX2 ) , Random ( MSY2 ) , 0 , 0 ) ;
        If IsUpText ( 'opti' ) Or IsUpText ( 'alk Her' ) Then
        Begin
          GetMousePos ( x , y ) ;
          Mouse ( x , y , 0 , 0 , False ) ;
          Case Random ( 2 ) Of
            0 : ChooseOption ( x , y , 'Examine' ) ;
            1 : ChooseOption ( x , y , 'Cancel' ) ;
          End ;
          Wait ( Random ( 50 ) + Random ( 50 ) ) ;
        End ;
      End ;
    End ;
    
    Procedure MoveMouseAround ;
    Begin
      If ( UseAntiBan = True ) Then
      Begin
        Case Random ( 7 ) Of
          1 : SleepAndMoveMouse ( 1000 + Random ( 1250 ) ) ;
          2 : SleepAndMoveMouse ( 1500 + Random ( 2000 ) ) ;
          3 : SleepAndMoveMouse ( 1500 + Random ( 1100 ) ) ;
          4 : SleepAndMoveMouse ( 1500 + Random ( 1500 ) ) ;
          5 : SleepAndMoveMouse ( 1500 + Random ( 1000 ) ) ;
          6 : SleepAndMoveMouse ( 1400 + Random ( 1100 ) ) ;
          7 : SleepAndMoveMouse ( 2500 + Random ( 1000 ) ) ;
        End ;
      End ;
    End ;
    
    Procedure RandomMoveMouseAroundEvery ( mins : Integer ) ;
    Begin
      If ( UseAntiBan = True ) Then
      Begin
        If ( ( TimeFromMark ( Mark ) / 1000 ) / 60 >= mins ) Then
        Begin
          MarkTime ( Mark ) ;
          MoveMouseAround ;
          FindTalk ;
        End ;
      End ;
    End ;
    
    Procedure RandomRClickExamineEvery ( mins : Integer ) ;
    Begin
      If ( UseAntiBan = True ) Then
      Begin
        If ( ( TimeFromMark ( Mark ) / 1000 ) / 60 >= mins ) Then
        Begin
          MarkTime ( Mark ) ;
          Boredhuman ;
        End ;
      End ;
    End ;
    
    Procedure PeeBreakEvery ( mins : Integer ) ;
    Var
      PeeMark : Integer ;
    Begin
      If ( UseAntiBan = True ) Then
      Begin
        If ( ( TimeFromMark ( PeeBreakMark ) / 1000 ) / 60 >= mins ) Then
        Begin
          MarkTime ( PeeBreakMark ) ;
          MarkTime ( PeeMark ) ;
          Repeat
            If Not Loggedin Then
              Break ;
            Wait ( 1 + random ( 1 ) ) ;
            FindNormalRandoms ;
          Until ( ( TimeFromMark ( PeeMark ) >= 100 + Random ( 100 ) ) Or ( Not (
            LoggedIn ) ) )
        End ;
      End ;
    End ;
    
    Procedure WalkingRandomactivitys ;
    Begin
      If ( UseAntiBan = True ) Then
      Begin
    
        Case Random ( 25 ) Of
          1 : Mmouse ( Random ( MSX2 ) , Random ( MSY2 ) , 10 , 10 ) ;
          2 : wait ( 1000 + random ( 1000 ) ) ;
          3 : Gametab ( 2 ) ;
          4 : Mmouse ( Random ( MSX2 ) , Random ( MSY2 ) , 10 , 10 ) ;
          5 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 1000 + Random (
            200 ) ) ;
          6 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 200 + Random ( 200
            ) ) ;
          7 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 200 + Random ( 200 ) )
            ;
          8 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 20 + Random ( 20 )
            ) ;
          9 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 20 + Random ( 20 ) )
            ;
          10 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 1000 + Random ( 200 )
            ) ;
        End ;
    
        Case Random ( 1000 ) Of
          1 : TypeSend ( 'Nearly There' )
            2 : TypeSend ( 'lol' )
            3 : TypeSend ( 'just mining ess' )
            4 : TypeSend ( 'Hi everyone' )
            5 : TypeSend ( 'hmmm im gonna be doing this for ages' )
            6 : TypeSend ( 'dam i need to get a life' )
            7 : TypeSend ( 'lalalalalallalla' )
            8 : TypeSend ( 'boorrring' )
            9 : TypeSend ( 'im tired' )
            10 : TypeSend ( 'allmost got enough' )
            11 : TypeSend ( 'just a few more trips' )
        End ;
      End ;
    End ;
    
    Procedure RandomGameTabEvery ( mins : Integer ) ;
    Begin
      If ( UseAntiBan = True ) Then
      Begin
        If ( ( TimeFromMark ( Mark ) / 1000 ) / 60 >= mins ) Then
        Begin
          MarkTime ( Mark ) ;
          GameTab ( 1 + Random ( 12 ) ) ;
          GameTab ( 4 )
        End ;
      End ;
    End ;
    
    Procedure SetRunEvery ( mins : integer ; Run : Boolean ) ;
    Begin
      If ( UseAntiBan = True ) Then
      Begin
        If ( ( TimeFromMark ( RunMark ) / 1000 ) / 60 >= mins ) Then
        Begin
          MarkTime ( RunMark ) ;
          SetRun ( Run ) ;
        End ;
      End ;
    End ;
    
    Procedure MiningAntiban ;
    Begin
      If ( UseAntiBan = True ) Then
      Begin
        If ( UseAntiBan = True ) Then
        Begin
          Case random ( 9 ) Of
            0 : RandomMoveMouseAroundEvery ( 4 + Random ( 7 ) ) ;
            1 : RandomRClickExamineEvery ( 5 + Random ( 7 ) ) ;
            2 : PickUpMouseEvery ( 5 + Random ( 5 ) ) ;
            3 : BoredEvery ( 20 + random ( 20 ) ) ;
            4 : RandomRClickExamineEvery ( 5 + Random ( 7 ) ) ;
            5 : PickUpMouseEvery ( 5 + Random ( 5 ) ) ;
            6 : LeaveScreenEvery ( 120 + Random ( 110 ) ) ;
            7 : HoverEvery ( 10 + Random ( 10 ) , 'random' ) ;
          End ;
        End ;
      End ;
    End ;
    
    Procedure Rands ;
    Begin
      If ( UseAntiBan = True ) Then
      Begin
        FindNormalRandoms ;
        If ( FindFight ) Then
        Begin
          writeln ( 'Gah!! We are being attacked !!' )
            RunAwayDirection ( RAD )
    
          FFlag ( 2 + Random ( 5 ) ) ;
          RunBack ;
    
          FFlag ( 2 + Random ( 5 ) ) ;
          Wait ( 1000 + Random ( 1000 ) )
        End ;
      End ;
    End ;
    
    Function InChat2 ( Text : String ) : Boolean ;
    Begin
    
      If ( pos ( Text , TheLine ) <> 0 ) Then
        Result := True ;
    
    End ;
    
    Procedure RandomResponder ;
    Var
      TheResponce : String ;
      RandomReply : Integer ;
    
    Begin
      OldLine := TheLine ;
      TheName := lowercase ( trim ( GetTextAtEx ( 20 , 415 , 45 , SmallChars , False
        , False ,
        0 , 2 , 0 , 40 , True , tr_NormalChars ) ) ) ;
      TheLine := lowercase ( trim ( GetTextAtEx ( 20 , 415 , 45 , SmallChars , False
        , False ,
        0 , 2 , 16711680 , 40 , False , tr_NormalChars ) ) ) ;
      NewLine := TheLine ;
    
      If ( OldLine <> NewLine ) Then
    
        WriteFileString ( TheFile , TheTime + ' ' + TheName + '' + TheLine + chr ( 13
          ) ) ;
      If ( InChat2 ( 'minin' ) ) Or ( InChat2 ( 'mining' ) ) And ( InChat2 ( 'lvl?' )
        ) Or
        ( InChat2 ( 'lev' ) ) Or ( InChat2 ( 'level' ) ) Or ( InChat2 ( 'lvls' ) )
          Or
        ( InChat2 ( 'lvls?' ) ) or ( InChat2 ( ' lvls/' ) ) Then
      Begin
        TheResponce := IntToStr ( GetSkillLevel ( 'mining' ) ) ;
        typesend ( 'lol ' + TheResponce )
          wait ( 1000 + Random ( 300 ) )
          SendText ( 'you?' + chr ( 13 ) )
          GameTab ( 4 ) ;
      End ;
    
      If ( InChat2 ( 'what' ) ) Or ( InChat2 ( 'wut' ) ) Or ( InChat2 ( 'wat' ) ) Or
        ( InChat2 ( 'doin' ) ) Then
      Begin
        RandomReply := random ( 7 ) + 1 ;
    
        Case RandomReply Of
          1 : TheResponce := ( 'lol.. mining ess foo :p' ) ;
          2 : TheResponce := ( 'what do you think.. :P' ) ;
          3 : TheResponce := ( 'what does it look like im doing lol' ) ;
          4 : TheResponce := ( 'meh, mining ess :D' ) ;
        End ;
    
        typesend ( TheResponce ) ;
      End ;
    
      If ( InChat2 ( 'oi' ) ) Or ( InChat2 ( 'hey' ) ) Or ( InChat2 ( 'sup' ) ) And
        ( InChat2 ( 'noob' ) ) Or ( InChat2 ( 'n00b' ) ) Or ( InChat2 ( 'n00bs' ) )
          Or
        ( InChat2 ( 'noobs' ) ) Then
      Begin
        RandomReply := random ( 5 ) ;
        Case RandomReply Of
          1 : TheResponce := ( 'oi! lol' ) ;
          2 : TheResponce := ( 'looll, wassup!' ) ;
          3 : TheResponce := ( 'meh, hai' ) ;
          4 : TheResponce := ( 'rofl' ) ;
          5 : TheResponce := ( 'waazzup' ) ;
        End ;
        TypeSend ( TheResponce ) ;
      End ;
    
      If ( InChat2 ( 'how' ) ) And ( InChat2 ( 'much' ) ) And ( InChat2 ( 'you' ) )
        Or
        ( InChat2 ( 'u' ) ) And ( InChat2 ( 'need' ) ) Then
      Begin
        RandomReply := random ( 5 ) ;
        Case RandomReply Of
          1 : TheResponce := ( 'meh, not much now' ) ;
          2 : TheResponce := ( 'about 566 more, lol :p' ) ;
          3 : TheResponce := ( 'about, 3 more loads' ) ;
          4 : TheResponce := ( 'i have 664, i need 5000 lol' ) ;
          5 : TheResponce := ( 'not many, what bout you?' ) ;
        End ;
        TypeSend ( TheResponce + ' ' + TheName ) ;
      End ;
    
      If ( InChat2 ( 'lol' ) ) Or ( InChat2 ( 'lmao' ) ) Or ( InChat2 ( 'lol!' ) )
        Or
        ( InChat2 ( 'rofl' ) ) Then
      Begin
        RandomReply := random ( 7 ) + 1 ;
    
        Case RandomReply Of
          1 : TheResponce := ( 'whats funny' ) ;
          2 : TheResponce := ( 'whut what you laughing at' ) ;
          3 : TheResponce := ( 'hehe' ) ;
          4 : TheResponce := ( 'lol' ) ;
          5 : TheResponce := ( 'rofl' ) ;
        End ;
        typesend ( TheResponce + ' ' + TheName ) ;
      End ;
    
      If ( InChat2 ( Username ) ) Or ( InChat2 ( Nickname ) ) Then
      Begin
        RandomReply := random ( 7 ) + 1 ;
    
        Case RandomReply Of
          1 : TheResponce := ( 'what' ) ;
          2 : TheResponce := ( 'yes' ) ;
          3 : TheResponce := ( 'how can i help lol' ) ;
          4 : TheResponce := ( 'what do you want' ) ;
        End ;
        typesend ( TheResponce ) ;
      End ;
    
      If ( InChat2 ( 'hi' ) ) Or ( InChat2 ( 'hello' ) ) Or ( InChat2 ( 'sup' ) ) Or
        ( InChat2 ( 'hey' ) ) Then
      Begin
        RandomReply := random ( 7 ) + 1 ;
    
        Case RandomReply Of
          1 : TheResponce := ( 'sup' ) ;
          2 : TheResponce := ( 'yo' ) ;
          3 : TheResponce := ( 'whats upeveryone' ) ;
          4 : TheResponce := ( 'whats up' ) ;
          5 : TheResponce := ( 'welcome' ) ;
        End ;
        typesend ( TheResponce ) ;
      End ;
    End ;
    
    Function GetName : boolean ;
    Var
      Name : String ;
      UpConfirm : integer ;
      c , gx , gy : integer ;
    Begin
    
      UpConfirm := BitmapFromString ( 4 , 6 , 'z78DA3330000117731753675' +
        '75C24588981B319109AB858BA9839BB41D806C87A2D80E2AE4051' +
        '53247113671782E240730C2D0C4D0DA0760100699A2142' ) ;
    
      Rtext := random ( 10 )
        Case Rtext Of
        0 : Tresult := ( 'hello' ) ;
        1 : Tresult := ( 'hi' ) ;
        2 : Tresult := ( 'mining lvl' ) ;
        3 : Tresult := ( 'smithing lvl' ) ;
        4 : Tresult := ( 'total lvl' ) ;
        5 : Tresult := ( 'whats up' ) ;
        6 : Tresult := ( 'how old are you' ) ;
        7 : Tresult := ( 'cool armor' ) ;
        8 : Tresult := ( 'u look cool' )
          9 : Tresult := ( 'what are you doing?' )
      End ;
    
      Case Random ( 8 ) Of
        0 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 1000 + Random ( 200
          ) ) ;
        1 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 1000 + Random ( 200 ) )
          ;
        2 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 200 + Random ( 200 )
          ) ;
        3 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 200 + Random ( 200 ) )
          ;
        4 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) + 1 ) , 20 + Random ( 20 ) )
          ;
        5 : SendArrowSilentWait ( ( ( Random ( 2 ) * 2 ) ) , 20 + Random ( 20 ) ) ;
        6 : wait ( 25 + random ( 25 + random ( 25 ) ) )
          7 : RandomChat ;
      End ;
    
      Repeat
        If Not ( loggedIn ) Then
          Exit ;
        MMouse ( Random ( MSX2 ) , Random ( MSY2 ) , 10 , 9 ) ;
        If ( FindBitmapspiralTolerance ( UpConfirm , gx , gy , 225 , 5 , 300 , 25 ,
          50 ) ) Then
        Begin
          writeln ( 'Player Found' )
            result := true ;
        End ;
        c := c + 1 ;
        wait ( 25 + random ( 25 + random ( 25 ) ) )
      Until ( c = 20 ) Or ( result )
    
      If result Then
      Begin
        Name := GetTextAtEx ( 72 , 7 , 100 , UpChars , True , True , 0 , 2 , -1 , 10
          , False ,
          tr_AllChars )
          If ( Not ( name = '' ) ) Then
          typesend ( name + ' ' + Tresult )
            writeln ( 'Talked to : ' + ( name ) + ' And said : ' + Tresult )
      End ;
    
      Freebitmap ( UpConfirm )
    End ;
    
    Procedure Circle ( Time : Integer ) ;
    Var
      Moving : Boolean ;
      x , y , xv , yv : Extended ;
      gx , gy : Extended ;
      T : Integer ;
    Begin
      X := MSX1 + MSY2 * 1.5 ;
      Y := MSY1 + MSX2 * 1.2 ;
      Moving := True ;
      gx := 360 ;
      gy := 360 ;
      T := GetTickCount ;
      Repeat
        If Not ( loggedIn ) Then
          Exit ;
        Sleep ( 10 ) ;
        If ( gx > x ) Then
          xv := xv + 0.1
        Else
          xv := xv - 0.1 ;
        If ( gy > y ) Then
          yv := yv + 0.1
        Else
          yv := yv - 0.1 ;
        x := x + xv * 0.9 - Random ( 0 ) ;
        y := y + yv * 0.01 + Random ( 1 ) ;
        MoveMouse ( Round ( x + Random ( 0 ) ) , Round ( y + Random ( 0 ) ) ) ;
      Until ( Abs ( GetTickCount - T ) >= Time ) ;
    End ;
    
    function detectroom2:boolean;
    var tol : integer;
    begin
     tol:= 5;
        repeat
           if(findcolorspiraltolerance(x,y,8947858,561,4,719,167,tol))then
              begin
                    mouse(x,y,1,1,true);
                    WaitTillFlag;
                    flag;
                    result:= true;
                  end;
              if not result then
             tol:= tol+1;
         until(result)
         writeln('We have been teleported to the middle-room')
    end;
    //-------------------------------------------------------------------------//
    function detectrooms:boolean;
    begin
           Rands;
           if(findbitmaptolerancein(arrow, x, y, 543, 3, 760, 165, 50))then
              begin
                  result:=true;
                 end;
            if not result then
        detectroom2;
    end;
    
    Procedure SetV ;
    Begin
      GameTab ( 11 ) ;
      If ( Not ( GetColor ( 714 , 229 ) = 10172937 ) ) Then
      Begin
        Repeat
          If Not ( loggedIn ) Then
            Exit ;
          Wait ( 100 + Random ( 100 ) )
            Mouse ( 714 + Random ( 1 ) , 228 + Random ( 1 ) , 1 , 1 , True )
        Until ( ( GetColor ( 714 , 229 ) = 10172937 ) )
    
      End ;
    End ;
    
    Procedure Setrun1 ( Run : Boolean ) ;
    Begin
      GameTab ( 11 ) ;
      If GetColor ( 666 , 418 ) = 5334130 Then
      Begin
        If Run = True Then
        Begin
          Mouse ( 632 + Random ( 10 ) , 415 + Random ( 10 ) , 6 , 6 , True )
            SetV ;
        End ;
      End
      Else
      Begin
        If Run = False Then
        Begin
          Mouse ( 632 + Random ( 30 ) , 415 + Random ( 30 ) , 6 , 6 , True )
            SetV ;
        End ;
      End ;
    End ;
    
    Function NearestColorMT ( Var cx , cy : Integer ; color , tolerance : Integer )
      :
      Boolean ;
    Var
      x , y , a , c , i , x1 , y1 , x2 , y2 : Integer ;
    Begin
      If ( FindMSColorTol ( x , y , color , tolerance ) ) Then
      Begin
        x1 := 245 ;
        y1 := 165 ;
        x2 := 277 ;
        y2 := 185 ;
        a := a + 1 ;
        If ( a = 1 ) Then
          c := c + 1 ;
        If ( a = 3 ) Then
          c := c + 1 ;
        For i := 1 To c Do
        Begin
          If ( a = 1 ) Then
          Begin
            x1 := x1 + 21 ;
            x2 := x2 + 21 ;
          End ;
          If ( a = 2 ) Then
          Begin
            y1 := y1 - 14 ;
            y2 := y2 - 14 ;
          End ;
          If ( a = 3 ) Then
          Begin
            x1 := x1 - 21 ;
            x2 := x2 - 21 ;
          End ;
          If ( a = 4 ) Then
          Begin
            y1 := y1 + 14 ;
            y2 := y2 + 14 ;
          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 ;
          If ( FindColorTolerance ( x , y , color , x1 , y1 , x2 , y2 , tolerance ) )
            Then
          Begin
            MMouse ( x , y , 0 , 0 )
              Result := True ;
            Break ;
          End ;
        End ;
      End ;
    End ;
    
    Function FindColorRightTolR ( Var x , y : integer ; x1 , y1 , x2 , y2 ,
      ObjectColor ,
      ObjectTolerance , RandS : Integer ) : Boolean ;
    Var
      Pointss : TPointArray ;
      Numss , Ra , Rb : Integer ;
    Begin
      Ra := Ra + random ( RandS ) ;
      FindColorsTolerance ( Pointss , ObjectColor , x1 , y1 , x2 , y2 ,
        ObjectTolerance ) ;
      If ( GetArrayLength ( Pointss ) <> 0 ) Then
      Begin
        Numss := GetArrayLength ( Pointss ) - 1 ;
        writeln ( inttostr ( Numss ) ) ;
        Repeat
          If Not ( loggedIn ) Then
            Exit ;
          MMouse ( Pointss [ Numss ] .x , Pointss [ Numss ] .y , 0 , 0 ) ;
          wait ( 450 + random ( 50 ) ) ;
          If ( Rb >= Ra ) Then
          Begin
            Result := True ;
            x := Pointss [ Numss ] .x ;
            y := Pointss [ Numss ] .y ;
          End
          Else
          Begin
            Rb := Rb + 1 ;
            Numss := Numss - 1 ;
          End ;
        Until ( Numss = 0 ) Or ( Result )
      End ;
    End ;
    
    Function NearestObjMT ( Var cx , cy : Integer ; Text , Text2 , Text3 , Text4 ,
      Text5 ,
      Text6 : String ; color , color2 , color3, color4, color5, color6 , tolerance : Integer ) : Boolean ;
    Var
      x , y , a , c , i , x1 , y1 , x2 , y2 : Integer ;
    Begin
      If ( FindMSColorTol ( x , y , color , tolerance ) ) Or ( FindMSColorTol ( x , y
        , color2 ,
        tolerance ) ) Or ( FindMSColorTol ( x , y , color3 , tolerance ) ) Or
        ( FindMSColorTol ( x , y , color4 , tolerance ) ) Or ( FindMSColorTol ( x , y , color5 , tolerance ) ) or
        ( FindMSColorTol ( x , y , color6 , tolerance ) ) 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 ;
          If ( a = 3 ) Then
            c := c + 1 ;
          For i := 1 To c Do
          Begin
            If ( a = 1 ) Then
            Begin
              x1 := x1 + 21 ;
              x2 := x2 + 21 ;
            End ;
            If ( a = 2 ) Then
            Begin
              y1 := y1 - 14 ;
              y2 := y2 - 14 ;
            End ;
            If ( a = 3 ) Then
            Begin
              x1 := x1 - 21 ;
              x2 := x2 - 21 ;
            End ;
            If ( a = 4 ) Then
            Begin
              y1 := y1 + 14 ;
              y2 := y2 + 14 ;
            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 ;
            If ( FindColorTolerance ( x , y , color , x1 , y1 , x2 , y2 , tolerance )
              ) Or
              ( FindColorTolerance ( x , y , color2 , x1 , y1 , x2 , y2 , tolerance )
                ) Or
              ( FindColorTolerance ( x , y , color3 , x1 , y1 , x2 , y2 , tolerance )
                ) or
              ( FindColorTolerance ( x , y , color4 , x1 , y1 , x2 , y2 , tolerance )
                ) or
              ( FindColorTolerance ( x , y , color5 , x1 , y1 , x2 , y2 , tolerance )
                ) or
              ( FindColorTolerance ( x , y , color6 , x1 , y1 , x2 , y2 , tolerance )) then
            Begin
              MMouse ( x , y , 0 , 0 )
                Wait ( 20 + Random ( 20 ) )
                cx := x ;
              cy := y ;
              If ( IsUpTextMulti ( Text , Text2 , Text3 ) Or IsUpTextMulti ( Text4 ,
                Text5 ,
                Text6 ) ) Then
              Begin
                Result := True ;
                Break ;
              End ;
            End ;
          End ;
          If ( a = 4 ) Then
            a := 0 ;
        Until ( x2 > 515 ) Or ( Result = True ) ;
      End ;
    End ;
    
    Function NearestObjEss ( Var cx , cy : Integer ; Text , Text2 , Text3 , Text4 ,
      Text5 ,
      Text6 : String ; color , color2 , color3 , color4, color5, tolerance : Integer ) : Boolean ;
    Var
      x , y , a , c , i , x1 , y1 , x2 , y2 : Integer ;
    Begin
      If ( FindMSColorTol ( x , y , color , tolerance ) ) Or ( FindMSColorTol ( x , y
        , color2 ,
        tolerance ) ) Or ( FindMSColorTol ( x , y , color3 , tolerance ) ) or
         ( FindMSColorTol ( x , y , color4 , tolerance ) ) Or ( FindMSColorTol ( x , y , color5 , tolerance ) ) 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 ;
          If ( a = 3 ) Then
            c := c + 1 ;
          For i := 1 To c Do
          Begin
            If ( a = 1 ) Then
            Begin
              x1 := x1 + 21 ;
              x2 := x2 + 21 ;
            End ;
            If ( a = 2 ) Then
            Begin
              y1 := y1 - 14 ;
              y2 := y2 - 14 ;
            End ;
            If ( a = 3 ) Then
            Begin
              x1 := x1 - 21 ;
              x2 := x2 - 21 ;
            End ;
            If ( a = 4 ) Then
            Begin
              y1 := y1 + 14 ;
              y2 := y2 + 14 ;
            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 ;
            If ( FindColorTolerance ( x , y , color , x1 , y1 , x2 , y2 , tolerance )
              ) Or
              ( FindColorTolerance ( x , y , color2 , x1 , y1 , x2 , y2 , tolerance )
                ) Or
              ( FindColorTolerance ( x , y , color3 , x1 , y1 , x2 , y2 , tolerance )
                )or
              ( FindColorTolerance ( x , y , color4 , x1 , y1 , x2 , y2 , tolerance )
                )or
              ( FindColorTolerance ( x , y , color5 , x1 , y1 , x2 , y2 , tolerance )) then
            Begin
              MMouse ( x , y , 0 , 0 )
                Wait ( 20 + Random ( 20 ) )
                cx := x ;
              cy := y ;
              If ( IsUpTextMulti ( Text , Text2 , Text3 ) Or IsUpTextMulti ( Text4 ,
                Text5 ,
                Text6 ) ) Then
              Begin
                Result := True ;
                Break ;
              End ;
            End ;
          End ;
          If ( a = 4 ) Then
            a := 0 ;
        Until ( x2 > 515 ) Or ( Result = True ) ;
      End ;
    End ;
    
    Function NearestObjPort ( Var cx , cy : Integer ; Text , Text2 , Text3 , Text4 ,
      Text5 ,
      Text6 : String ; color , color2 , color3 , color4, color5, tolerance : Integer ) : Boolean ;
    Var
      x , y , a , c , i , x1 , y1 , x2 , y2 : Integer ;
    Begin
      If ( FindMSColorTol ( x , y , color , tolerance ) ) Or ( FindMSColorTol ( x , y
        , color2 ,
        tolerance ) ) Or ( FindMSColorTol ( x , y , color3 , tolerance ) ) or
         ( FindMSColorTol ( x , y , color4 , tolerance ) ) Or ( FindMSColorTol ( x , y , color5 , tolerance ) ) 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 ;
          If ( a = 3 ) Then
            c := c + 1 ;
          For i := 1 To c Do
          Begin
            If ( a = 1 ) Then
            Begin
              x1 := x1 + 21 ;
              x2 := x2 + 21 ;
            End ;
            If ( a = 2 ) Then
            Begin
              y1 := y1 - 14 ;
              y2 := y2 - 14 ;
            End ;
            If ( a = 3 ) Then
            Begin
              x1 := x1 - 21 ;
              x2 := x2 - 21 ;
            End ;
            If ( a = 4 ) Then
            Begin
              y1 := y1 + 14 ;
              y2 := y2 + 14 ;
            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 ;
            If ( FindColorTolerance ( x , y , color , x1 , y1 , x2 , y2 , tolerance )
              ) Or
              ( FindColorTolerance ( x , y , color2 , x1 , y1 , x2 , y2 , tolerance )
                ) Or
              ( FindColorTolerance ( x , y , color3 , x1 , y1 , x2 , y2 , tolerance )
                )or
              ( FindColorTolerance ( x , y , color4 , x1 , y1 , x2 , y2 , tolerance )
                )or
              ( FindColorTolerance ( x , y , color5 , x1 , y1 , x2 , y2 , tolerance )) then
            Begin
              MMouse ( x , y , 0 , 0 )
                Wait ( 20 + Random ( 20 ) )
                cx := x ;
              cy := y ;
              If ( IsUpTextMulti ( Text , Text2 , Text3 ) Or IsUpTextMulti ( Text4 ,
                Text5 ,
                Text6 ) ) Then
              Begin
                Result := True ;
                Break ;
              End ;
            End ;
          End ;
          If ( a = 4 ) Then
            a := 0 ;
        Until ( x2 > 515 ) Or ( Result = True ) ;
      End ;
    End ;
    
    Function FindObjAreaMTR ( Var x , y : integer ; ObjectText1 , ObjectText2 ,
      ObjectText3 , ObjectText4 , ObjectText5 , ObjectText6 : String ; x1 , y1 , x2
        , y2 ,
      ObjectColor , ObjectTolerance , RandS : Integer ; Center : Boolean ) : Boolean
        ;
    Var
      Pointss : TPointArray ;
      Numss , CenX , CenY , Ra , Rb : Integer ;
    Begin
      Ra := Ra + random ( RandS ) ;
      Numss := 0 ;
      If ( Center ) Then
      Begin
        CenX := x2 / 2 ;
        CenY := y2 / 2 ;
        FindColorsSpiralTolerance ( CenX , CenY , Pointss , ObjectColor , x1 , y1 ,
          x2 , y2 ,
          ObjectTolerance )
      End
      Else
      Begin
        FindColorsTolerance ( Pointss , ObjectColor , x1 , y1 , x2 , y2 ,
          ObjectTolerance ) ;
      End ;
      If ( GetArrayLength ( Pointss ) <> 0 ) Then
      Begin
        Repeat
          If Not ( loggedIn ) Then
            Exit ;
          If ( Rb >= Ra ) Then
          Begin
            MMouse ( Pointss [ Numss ] .x , Pointss [ Numss ] .y , 0 , 0 ) ;
            wait ( 450 + random ( 50 ) ) ;
            If ( IsUpTextMulti ( ObjectText1 , ObjectText2 , ObjectText3 ) Or
              IsUpTextMulti ( ObjectText4 , ObjectText5 , ObjectText6 ) ) Then
            Begin
              Result := True ;
              x := Pointss [ Numss ] .x ;
              y := Pointss [ Numss ] .y ;
            End
            Else
            Begin
              Numss := Numss + 1 ;
            End ;
          End
          Else
          Begin
            Rb := Rb + 1 ;
            Numss := Numss + 1 ;
          End ;
        Until ( Numss = GetArrayLength ( Pointss ) ) Or ( Result )
      End ;
    End ;
    
    Function FindObjectMTR ( Var x , y : integer ; ObjectText1 , ObjectText2 ,
      ObjectText3 ,
      ObjectText4 , ObjectText5 , ObjectText6 : String ; ObjectColor ,
        ObjectTolerance ,
      RandS : Integer ; Center : Boolean ) : Boolean ;
    Begin
      Result := FindObjAreaMTR ( x , y , ObjectText1 , ObjectText2 , ObjectText3 ,
        ObjectText4 , ObjectText5 , ObjectText6 , 1 , 1 , 515 , 336 , ObjectColor ,
        ObjectTolerance , RandS , Center )
    End ;
    
    Procedure getbank ;
    Begin
      If ( BankSym = 0 ) Then
      Begin
        MarkTime ( Mark ) ;
        Repeat
          If Not ( loggedIn ) Then
            Exit ;
          wait ( 100 + random ( 10 ) )
        Until ( findsymbol ( x , y , 'bank' ) Or ( TimeFromMark ( Mark ) > 12000 ) )
          BankSym := GetSymbolColor ( x , y , 'bank' ) ;
        If ( BankSym = 0 ) Then
        Begin
          writeln ( '   Could Not Get Bank Color.. ' ) ;
          writeln ( '   Please switch worlds and try again ' )
            LogOut ;
          DisguiseScar ( 'ERROR' )
            TerminateScript ;
        End ;
        writeln ( '   Bank Color: ' + IntToStr ( BankSym ) + ';' ) ;
    
      End ;
    End ;
    
    Procedure Colorshit ;
    Begin
      If ( MagicSym = 0 ) Then
      Begin
        MarkTime ( Mark ) ;
        Repeat
          If Not ( loggedIn ) Then
            Exit ;
          wait ( 100 + random ( 10 ) )
        Until ( findsymbol ( x , y , 'magic shop' ) Or ( TimeFromMark ( Mark ) > 3000
          ) )
          MagicSym := GetSymbolColor ( x , y , 'magic shop' ) ;
        If ( MagicSym = 0 ) Then
        Begin
          Repeat
            If Not ( loggedIn ) Then
              Exit ;
            wait ( 100 + random ( 10 ) )
          Until ( findsymbol ( x , y , 'transportation' ) Or ( TimeFromMark ( Mark )
            > 12000 ) )
            MagicSym := GetSymbolColor ( x , y , 'transportation' ) ;
          If ( MagicSym = 0 ) Then
          Begin
            writeln ( '   Could Not Get Magic Shop Color.. Restart Script' ) ;
            TerminateScript ;
          End ;
          writeln ( '   Magic Shop Color: ' + IntToStr ( MagicSym ) + ';' ) ;
        End ;
      End ;
    End ;
    
    Procedure randomwalk ;
    Var
      x , y : integer ;
    Begin
      ;
      BenMouse := True ;
      Mouse ( 626 , 100 , 1 , 1 , true )
        SetRun1 ( True ) ;
      GameTab ( 4 ) ;
      While ( FlagPresent ) Do
        Boredhuman ;
      WalkingRandomactivitys ;
      MoveMouseAround ;
      FFlag ( 2 + Random ( 5 ) ) ;
      Repeat
        If Not ( loggedIn ) Then
          Exit ;
        Wait ( 100 + Random ( 200 ) )
      Until ( FindSymbol ( x , y , 'anvil' ) )
        If ( Findsymbol ( x , y , 'anvil' ) ) Then
        While ( FlagPresent ) Do
          MoveMouseAround ;
      Mouse ( x - 10 , y - 5 , 1 , 1 , true )
        FFlag ( 2 + Random ( 5 ) ) ;
      Repeat
        If Not ( loggedIn ) Then
          Exit ;
        Wait ( 100 + Random ( 200 ) )
      Until ( FindSymbol ( x , y , 'magic shop' ) ) Or ( FindSymbol ( x , y ,
        'transportation' ) )
        If ( findsymbol ( x , y , 'magic shop' ) ) Then
        While ( FlagPresent ) Do
          MoveMouseAround ;
      Mouse ( x , y , 0 , 0 , true )
        FFlag ( 2 + Random ( 5 ) ) ;
    End ;
    
    Const
      version = '1,5' ;
    
    Procedure terms ;
    Begin
      ;
      WriteLn ( '                ** Ess Miner 2007 Terms ** ' )
        WriteLn ( ' --> This script has been coded by Bigfish58 and cannont be edited '
          )
        WriteLn ( '     Or changed in anyway' )
        WriteLn ( ' --> ONLY Bigfish58 is allowed to sell this script TO ANYONE' )
        WriteLn ( ' --> You must not attempt to remove the auth ' )
        WriteLn ( ' --> If you recived this from any one but Bigfish58, you are using it'
          )
        WriteLn ( '     Illegally and MUST send me there email address!' )
    End ;
    
    Procedure introtext ;
    Begin
      ;
      WriteLn ( ' Welcome ' + AuthUser + '. Thanks for purchasing Ess Miner 2007!' )
        Wait ( 100 )
        Writeln ( ' _______                _______ __                   ' )
        Wait ( 100 )
        Writeln ( '|    ___|.-----.-----. |   |   |__|.-----.-----.----.' )
        Wait ( 100 )
        WriteLn ( '|    ___||__ --|__ --| |       |  ||     |  -__|   _|' )
        Wait ( 100 )
        WriteLn ( '|_______||_____|_____| |__|_|__|__||__|__|_____|__|  ' )
        WriteLn ( '' )
        Writeln ( ' ______ ______ ______ ______ ' )
        Wait ( 100 )
        Writeln ( '|__    |      |      |      | ' )
        Wait ( 100 )
        Writeln ( '|    __|  --  |  --  |_     |  ' )
        Wait ( 100 )
        Writeln ( '|______|______|______| |____|  ' )
        Wait ( 100 )
        WriteLn ( '    By Dumb Ass Script0rs                            ' )
        Wait ( 1000 )
        WriteLn ( 'Script will start in   ' )
        Wait ( 500 )
        WriteLn ( '3' )
        Wait ( 1000 )
        WriteLn ( '2' )
        Wait ( 1000 )
        WriteLn ( '1' )
        AddToReport ( '    !!CREDITS!!   ' )
        AddToReport ( '       [HOME]     ' )
        AddToReport ( '      ToneKray    ' )
    End ;
    
    Procedure Progress ;
    Begin
    
      cst := getsystemTime ;
      srt := ( cst - sst ) / 1000 ;
      tih := srt / 3600 ;
      tim := ( srt / 60 ) - tih * 60 ;
      tis := srt - tim * 60 - tih * 3600 ;
      awt := wet - wst
    
      SRLRandomsReport ;
    
      Writeln ( '___________ By Bigfish58     _____   __                      ' )
        Writeln ( '\_   _____/ ______ ______   /     \ |__| ____   ___________  ' )
        Writeln ( ' |    __)_ /  ___//  ___/  /  \ /  \|  |/    \_/ __ \_  __ \ ' )
        Writeln ( ' |        \\___ \ \___ \  /    Y    \  |   |  \  ___/|  | \/ ' )
        Writeln ( '/_______  /____  >____  > \____|__  /__|___|  /\___  >__|    ' )
        Writeln ( '        \/     \/     \/          \/        \/     \/        ' )
        Writeln ( 'Travelled    : ' + IntToStr ( Trips ) + ' / ' + IntToStr (
          HowTrips ) +
        ' Trip''s.' ) ;
      Writeln ( 'Worked       : ' + inttostr ( tih ) + ' Hour''s ' + inttostr ( tim )
        +
        ' Min''s ' + inttostr ( tis ) + ' Sec''s' ) ;
    
    End ;
    
    Procedure Randomwalkselecter ;
    Begin
      Case random ( 2 ) Of
        0 : randomWalk ;
        1 : randomwalk ;
      End ;
    End ;
    
    Procedure TalkToAubr ;
    Begin
      Repeat
        If ( Not ( loggedin ) ) Then
          Break ;
        If NearestObjMT ( x , y , 'A' , 'Aubury' , 'Aub' , 'bury' , 'A' , 'Aub' ,
          2087158 ,
          4870481 ,
          2899022 ,
          1872854 ,
          15724529,
          2051445, 5 ) Then
          Mouse ( x , y , 0 , 0 , False )
            Wait ( 50 + Random ( 50 ) )
      Until ( Chooseoption ( x , y , 'Teleport' ) )
        Wait ( 7000 + Random ( 1000 ) )
    End ;
    
    Procedure BackShop ;
    Begin
    
      If ( FindSymbol ( x , y , 'transportation' ) ) Then
      Begin
        Mouse ( x , y , 5 , 5 , true )
          FFlag ( 2 + Random ( 5 ) ) ;
        Wait ( 500 + Random ( 500 ) )
        Repeat
        If ( NearestObjPort ( x , y , 'Portal' , 'Port' , 'orta' , 'tal' , 'al' ,
          'rtal' ,
          9678001 , 12447987 , 8623514 , 11259346 , 9213855,  1 ) )then
          GetMousePos ( x , y )
          Case Random ( 2 ) Of
            0 :  Begin Mouse ( x , y , 0 , 0 , false ) ; Wait ( 100 + Random ( 50 ) ) ;  ChooseOption ( x , y , 'Use' ) ;  FFlag ( 2 + Random ( 5 ) ) ; End;
            1 :  Begin  Mouse ( x , y , 3 , 2 , true ) ;  FFlag ( 2 + Random ( 5 ) ) ; End ;
            end;
          Until ( Not ( FindColorSpiralTolerance ( x , y , 5922389 , MSX1 , MSX2 , MSY1
        , MSY2 , 1 ) ) )
    
        Wait ( 4000 + Random ( 2000 ) )
    End ;
    end;
    
    Procedure LoadBmb ;
    Begin
      arrow := BitmapFromString(4, 2, 'C5BAC9C5BAC9C5BAC9C5BAC9E2' +
           '6225E26225E26225E26225');
    
      cong := BitmapFromString ( 35 , 19 , 'z78DACD97410EC3200C04BF94' +
        '56AA448E20E5FF5F6AD5F6606476B38E49D31C7C48C078581B9C5' +
        '66B2BB521DBEAB6DE7F6A793C4A5474EEF27ACAF2B19363CE73C9' +
        '16514CE0F22C5C055D23CAC23DA4B89468B95DEBA3DC74BAD389F' +
        '4BCF291DBF7F62BF0FC8D13F9C99C18FACEFB6895F12057A13A32' +
        '91ADBE818EAE4207E3052EB44AB7E27B6E8608E561F75EC86DC86' +
        '52334A41D9753101201FF966B87C8EDC30E91726A79D2A0373E32' +
        'E0F39076F0AB905D6896A2FE4122A4693457E91912AE5F30ABCB4' +
        'F94FFE06C4127E76015BD52E65ADE1508377240A3AB88E4CE275F' +
        '299711E931FB9BD42A7B2D8BDCFF2BF7FBE9447AD7812ACB7329B' +
        '75EB4EF4591730AFDCF885AD86BF1BDCAF4F67FF047FC04AA82AD' +
        'E5' ) ;
    
    End ;
    
    Function BankAllEss ( Colour : Integer ) : Integer ;
    Begin;
      If ( FindColorSpiralTolerance ( x , y , Colour , 607, 216 , 727, 461 , 1 ) )
        Then
      Begin
        Mouse ( x , y , 1 , 1 , false )
          Wait ( 500 + Random ( 200 ) )
          ChooseOption ( x , y , 'Store All' )
      End ;
    End ;
    
    procedure OpenBank4;
    var
      x, y, fs, fs2: Integer;
    begin
    fs := 0;
    fs2 := 0;
    if not BankScreen then
    repeat
    If NearestObjMT(x, y, 'Use', 'Bank', 'Us', 'ank', 'Use ', 'nk', 7772329,
    7772329, 7772329,5658720,5532020,2974847 , 10) Then
    Mouse(x, y, 4, 4, False)
    else
    If FindObjectMTR(x, y, 'Use', 'Bank', 'Us', 'ank', 'Use ', 'nk',
    7772329, 10, 0, True) Then
    Mouse(x, y, 4, 4, False)
    Wait(250+Random(300));
    if (ClickOption('quickly', 1)) then
    begin
    Flag;
    BankAllEss(4280897);
    repeat
    Wait(100);
    fs := fs + 1;
    until (BankScreen) or (fs >= 50);
    end;
    fs2 := fs2 + 1;
    until (BankScreen) or (fs2 > 5);
    end;
    
    
    Procedure backtobank ;
    Begin
      ;
      If ( FindColorSpiralTolerance ( x , y , MagicSym , MMX1 , MMY1 , MMX2 , MMY2 ,
        1 ) ) Or
        ( FindSymbol ( x , y , 'transportation' ) ) Then
      Begin
        ;
        Rands ;
        mouse ( 677 , 56 , 1 , 2 , true )
          While ( FlagPresent ) Do
          MoveMouseAround ;
        Boredhuman ;
    
        FFlag ( 2 + Random ( 5 ) ) ;
        Wait ( 1000 + Random ( 500 ) )
          If ( FindColorSpiralTolerance ( x , y , BankSym , MMX1 , MMY1 , MMX2 , MMY2
            , 1 ) ) Then
          Wait ( 1000 )
            Mouse ( x , y , 2 , 2 , true )
            While ( FlagPresent ) Do
            FindNormalRandoms ;
        MoveMouseAround ;
    
        FFlag ( 2 + Random ( 5 ) ) ;
        Wait ( 500 + Random ( 200 ) )
      End ;
    End ;
    
    Procedure CheckVer ;
    Begin
      Writeln ( '' ) ;
      Writeln ( '        --- CHECKING VERSION ---          ' )
        Writeln ( '' ) ;
      If ( Trim ( Lowercase ( GetPage ( 'http://tomsot10.100webspace.net/ver.txt' ) )
        )
        = '1.5' ) Then
      Begin
        DisguiseScar ( 'Correct Version!' ) ;
        Writeln ( '' ) ;
        Writeln ( '        *** CORRECT VERSION ***          ' )
          Writeln ( '' ) ;
      End
      Else
      Begin
        DisguiseScar ( 'Need Update!' ) ;
        Writeln ( '' ) ;
        Writeln ( '          *** BAD VERSION ***          ' )
          Writeln ( '' ) ;
        Writeln ( 'You Have Version ' + version + ' Current Is ' +
          ( Trim ( Lowercase ( GetPage ( 'http://tomsot10.100webspace.net/ver.txt' )
            ) ) ) ) ;
        Writeln ( '' ) ;
        Writeln ( '' ) ;
        TerminateScript ;
      End ;
    End ;
    
    Function FindMime1 : Boolean ;
    Var
      ax , ay : Integer ;
    Begin
      If ( FindColor ( ax , ay , 11503238 , 10 , 350 , 479 , 433 ) ) Then
      Begin
        Mimes := Mimes + 1 ;
        Result := True ;
        Writeln ( 'Mime Founded, Logging out...' )
          LogOut ;
      End ;
    End ;
    
    Function SolveFrog1 : Boolean ;
    Var
      FrogTimer , x , y , tx , ty , a , c , cc , CrownColor , i , x1 , y1 , x2 , y2
        : Integer ;
    Begin
      If GetColor ( 650 , 185 ) <> 4902398 Then
      Begin
        If findcoloredareatolerance ( x , y , 8096848 , MMX1 , MMY1 , MMX2 , MMY2 ,
          100 , 20 ) Then
          c := getcolor ( x , y ) ;
        If findcoloredareatolerance ( x , y , 6189365 , MMX1 , MMY1 , MMX2 , MMY2 ,
          100 , 20 ) Then
          c := getcolor ( x , y ) ;
        x := 0 ;
        y := 0 ;
        a := 0 ;
        For x1 := 570 To 730 Do
          For y1 := 5 To 150 Do
            If GetColor ( x1 , y1 ) = c Then
            Begin
              x := x + x1 ;
              y := y + y1 ;
              a := a + 1 ;
            End ;
        If a = 0 Then
          a := 1 ;
        x := x Div a ;
        y := y Div a ;
        MouseFlag ( x , y , 3 , 3 ) ;
        a := 0 ;
        x1 := 245 ;
        y1 := 165 ;
        x2 := 277 ;
        y2 := 185 ;
        MarkTime ( FrogTimer ) ;
        Repeat
          If Not ( loggedIn ) Then
            Exit ;
          If ( TimeFromMark ( FrogTimer ) > 60000 ) Then
          Begin
            Repeat
              If Not ( loggedIn ) Then
                Exit ;
              Wait ( 1000 ) ;
            Until ( Not ( LoggedIn ) ) ;
            Result := False ;
            NoFrogs := NoFrogs + 1 ;
            LogOut ;
            Exit ;
          End ;
          a := a + 1 ;
          If ( a = 1 ) Then
            c := c + 1 ;
          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 ;
            If ( a = 2 ) Then
            Begin
              y1 := y1 - 20 ;
              y2 := y2 - 20 ;
            End ;
            If ( a = 3 ) Then
            Begin
              x1 := x1 - 30 ;
              x2 := x2 - 30 ;
            End ;
            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 ( x1 > 515 ) Then
              Break ;
            If ( FindColorTolerance ( x , y , 3526651 , x1 , y1 , x2 , y2 , 20 ) )
              Then
            Begin
              MMouse ( x , y , 3 , 3 ) ;
              If ( Option2 ( 'alk' ) ) Then
              Begin
                For cc := 1 To 20 Do
                Begin
                  If ( FindColorTolerance ( tx , ty , 3460859 , x - 20 , y - 20 , x
                    + 20 , y
                    + 20 , cc ) ) Then
                  Begin
                    CrownColor := GetColor ( tx , ty ) ;
                    Break ;
                  End ;
                End ;
                If ( FindColor ( tx , ty , CrownColor , x - 20 , y - 20 , x + 20 , y
                  + 20 ) )
                  And
                  ( Not ( FindColoredAreaTolerance ( tx , tx , 2965499 , x - 25 , y
                    - 25 , x
                  + 25 , y + 25 , 4 , 20 ) ) ) Then
                Begin
                  Mouse ( x , y , 3 , 3 , false ) ;
                  ClickOption ( 'Talk' , 1 ) ;
                  FFlag ( 2 + Random ( 5 ) ) ;
                  Wait ( 2000 + random ( 1000 ) ) ;
                  TalkToRand ;
                  Mouse ( 256 , 401 , 3 , 3 , true ) ;
                  Wait ( 5000 + random ( 1000 ) ) ;
                  TalkToRand ;
                  Result := true ;
                  Frogs := Frogs + 1 ;
                  Break ;
                End ;
              End ;
            End ;
          End ;
          If ( a = 4 ) Then
            a := 0 ;
          If x2 > 515 Then
          Begin
            x1 := 245 ;
            y1 := 165 ;
            x2 := 277 ;
            y2 := 185 ;
            a := 0 ;
            c := 0 ;
          End ;
        Until ( x2 > 515 ) Or ( Result = true )
      End ;
      Repeat
        If Not ( loggedIn ) Then
          Exit ;
        wait ( 1000 + Random ( 500 ) ) ;
      Until ( GetColor ( 650 , 185 ) = 49023980 ) Or ( Not LoggedIn ) ;
    End ;
    
    Function FindNewBox1 : Boolean ;
    Var
      xb , yb : integer ;
    Begin
      If FindBitMapToleranceIn ( NewBox , xb , yb , MIX1 , MIY1 , MIX2 , MIY2 , 20 )
        Then
      Begin
        Result := True ;
      End ;
    End ;
    
    Procedure Minethatess ;
    Begin ;
      If ( NearestObjEss ( x , y , 'Mine' , 'ine' , 'ne' , 'Min' , 'Mi' , 'in' ,
        4938078 ,
        10855857 , 10461099 , 10526892, 5987427,   1 ) ) Then
      Begin
        Case Random ( 2 ) Of
          0 :
            Begin
              ;
              Repeat
                If Not ( loggedIn ) Then
                  Exit ;
                Mouse ( x , y , 1 , 1 , false ) ;
                Wait ( 500 + Random ( 300 ) ) ;
              Until ( ChooseOption ( x , y , 'Mine' ) ) ;
            End ;
          1 :
            Begin
              ;
              Mouse ( x , y , 1 , 1 , true ) ;
            End ;
        End ;
      End ;
      Rands ;
      FindPick ;
      Wait ( 5000 + Random ( 3000 ) )
        Repeat
        If Not ( loggedIn ) Then
          Exit ;
      If ( NearestObjEss ( x , y , 'Mine' , 'ine' , 'ne' , 'Min' , 'Mi' , 'in' ,
        4938078 ,
        10855857 , 10461099 , 10526892, 5987427,   1 ) ) Then
        Begin
          Case Random ( 2 ) Of
            0 :
              Begin
                ;
                Repeat
                  If Not ( loggedIn ) Then
                    Exit ;
                  Mouse ( x , y , 1 , 1 , false ) ;
                  Wait ( 500 + Random ( 300 ) ) ;
                Until ( ChooseOption ( x , y , 'Mine' ) ) ;
              End ;
            1 :
              Begin
                ;
                Mouse ( x , y , 1 , 1 , true ) ;
              End ;
          End ;
        End ;
        Rands ;
        GetName ;
        MoveMouseAround ;
        FindPick ;
        RandomAngle ;
        RandomResponder ;
        Rands ;
        RandomResponder ;
        Wait ( 7000 + Random ( 2000 ) )
          Rands ;
        Wait ( 2000 + Random ( 300 ) )
          FindPick ;
        Wait ( 500 + Random ( 500 ) )
          RandomResponder ;
      If ( NearestObjEss ( x , y , 'Mine' , 'ine' , 'ne' , 'Min' , 'Mi' , 'in' ,
        4938078 ,
        10855857 , 10461099 , 10526892, 5987427,   1 ) ) Then
        Begin
          Case Random ( 2 ) Of
            0 :
              Begin
                ;
                Repeat
                  If Not ( loggedIn ) Then
                    Exit ;
                  Mouse ( x , y , 1 , 1 , false ) ;
                  Wait ( 500 + Random ( 300 ) ) ;
                Until ( ChooseOption ( x , y , 'Mine' ) ) ;
              End ;
            1 :
              Begin
                ;
                Mouse ( x , y , 1 , 1 , true ) ;
              End ;
          End ;
        End ;
        FindPick ;
        Wait ( 500 + Random ( 600 ) )
      Until ( invfull )
    End ;
    
    Procedure checkallrandoms ;
    Begin ;
      FindNewBox1 ;
      SolveFrog1 ;
      FindTalk ;
      FindMime1 ;
      FindNormalRandoms ;
      FindMod; ;
      Rands ;
      SetMouseSpeedEvery ( 300 , 10 , 5 ) ;
      Boredhuman ;
      MoveMouseAround ;
      RandomMoveMouseAroundEvery ( 4 ) ;
      RandomRClickExamineEvery ( 10 ) ;
      PeeBreakEvery ( 20 ) ;
      SetRunEvery ( 5 , True ) ;
      MiningAntiban ;
    End ;
    
    Begin
      setupSRL ;
      setupSRLMining ;
      //Tih := 0;
      sst := GetSystemTime;
      RUNS := 0 ;
      EssTotal := 0 ;
      BenMouse := True ;
      BankSym := 0 ;
      MagicSym := 0 ;
      ClearDebug ;
      ClearReport ;
      SafeInitSetupForm ;
      SafeShowFormModalSetup ;
      If AuthAccepted Then
      Begin
        CheckVer ;
        AddPlayerResult ;
        LoadBmb ;
        FindRs ;
        MouseSpeed := 10 + Random ( 1 ) - Random ( 1 ) ;
        terms ;
        introtext ;
        ActivateClient ;
        FindMod; ;
        CountPlayersBank;
        If(playersA>10)then
        begin
        logout;
        DisguiseScar('Error');
        WriteLn('Too Many Players On World, Please Switch Worlds');
        end;
        If ( FindPickHeadColor ) Then
        Begin
            If(invfull)then
        OpenBank4;
          progress ;
          SymbolAccuracy := 0.1 ;
          GetBank ;
          Repeat
            BoredEvery ( 5 ) ;
            RandomMoveMouseAroundEvery ( 5 + Random ( 4 ) ) ;
            RandomRClickExamineEvery ( 10 + Random ( 4 ) ) ;
            PeeBreakEvery ( 2 + Random ( 4 ) ) ;
            RandomGameTabEvery ( 3 + Random ( 4 ) ) ;
            SetRunEvery ( 5 + Random ( 4 ) , True ) ;
            SymbolAccuracy := 0.1 ;
            SetMouseSpeedEvery ( 300 , 10 , 5 ) ;
            Wait ( 500 + Random ( 500 ) )
              MakeCompass ( 'N' )
              HighestAngle ;
            SetChat ( 'On' , 1 )
              SetChat ( 'Off' , 2 )
              SetChat ( 'Off' , 3 )
              Wait ( 1200 + Random ( 100 ) )
              DisguiseScar ( +Inttostr ( EssTotal ) + '  [' + Inttostr ( Trips ) +
                '/' +
              Inttostr ( HowTrips ) + ']' )
              MouseSpeed := 10 ;
            Randomwalk ;
            ColorShit ;
            wait ( 1000 + Random ( 1000 ) )
              TalkToAubr ;
            Wait ( 500 + Random ( 1000 ) )
              detectrooms ;
            MiningAntiBan ;
            Minethatess ;
            BackShop ;
            Wait ( 500 + Random ( 400 ) ) ;
            BackToBank ;
            Wait ( 1000 + Random ( 500 ) ) ;
            OpenBank4 ;
            RUNS := RUNS + 1
          Until ( HowTrips = Trips )
            WriteLn ( '-> DoNe! <-' ) ;
        End ;
      End ;
    End.

    Please leave my name in there..
    Happy Cheating

    ~Bigfish

  2. #2
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    2100 lines! Wow, next to me, star, dank and solemn I have never seen a 2100 lines script. Respect! I feel your browsing pain ( And I see a lot of familiair code too )

    P.S. Why are you no Member around here???

    EDIT: I am informed you are the one that cracked Starblaster100's essence miner. Is that correct?
    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
    Oct 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im gona try it out ill post some reports later
    thx for the fre script preciate it

    i dont wana sound like a leecher but i still have LOTS of problems learning how to script
    so ill help out for now by at lest testing them out or finding bugs

  4. #4
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Hey fish

    Nice script

    ~Home

  5. #5
    Join Date
    Aug 2006
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wt-Fakawi:

    A while back, i kinda "hacked" stars ess miner, and ever since he has hated me, and since he is like the leader of the srl applications, he always declines and locks my app =(

    Come on MSN =D

  6. #6
    Join Date
    Oct 2006
    Location
    England
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yea bigfish this is nice work

  7. #7
    Join Date
    Oct 2006
    Location
    England
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    WT-Fakawi i have added your msn aswell my msn is scott-_-bradford@hotmail.com please go online.

  8. #8
    Join Date
    Oct 2006
    Location
    ithurtsithurtsithurtsithurts
    Posts
    2,930
    Mentioned
    7 Post(s)
    Quoted
    135 Post(s)

    Default

    Ooo, i'm gonna try this ASAP

  9. #9
    Join Date
    Sep 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    omfg ty soo mutch

  10. #10
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Guys, stop leeching

    Give him some rep, this is very good work

    ~Home

  11. #11
    Join Date
    Feb 2006
    Location
    New Zealand
    Posts
    1,330
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice work. Alot of coding. For some reason though i dont get why people dont go the whole god and work out specificly what room they are in so thhat they dont have to use obvious findobjs. It would take just one mouse move. Also some of it seems a little copied and pasted. Namely from solemns yew cutter maybe? Such as walking randoms and the autoresponder

  12. #12
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    stop asking fawki to geton msn he acn do wahtever he wants and he only talks to people that he has a ranson to talk to.

    btw.. nice script u big fish

  13. #13
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    I suppose to be gone.. I "cracked" ( Removed couple lines ) Stars essminer not Bigfish so no blaims to him Blaim me

  14. #14
    Join Date
    Aug 2006
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for the support home

  15. #15
    Join Date
    Aug 2006
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hahahaha.. I luv some of the ways u guys think... u just HAVE to have that peebreak in there, dont ya??


    I only have srl 3.4 so i gotta switch to 3.5 to use the script.

  16. #16
    Join Date
    Aug 2006
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  17. #17
    Join Date
    Aug 2006
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    great script

  18. #18
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    the script doesn't work
    it says:
    User specified a new RS window
    Failed when compiling
    Line 1726: [Hint] (18689:10): Variable 'Result' never used in script C:\Program Files\SCAR 2.03\Scripts\ess miner(new).scar
    Line 2112: [Error] (19075:1): Unknown identifier 'OpenBank4' in script C:\Program Files\SCAR 2.03\Scripts\ess miner(new).scar

    can someone help me plz?

  19. #19
    Join Date
    Oct 2006
    Location
    England
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i thinks its cause he codes this essminer with srl 3.5 andthat open bank function might of got moved or chAanged in srl so try change the 4 to 2 then try.

  20. #20
    Join Date
    Aug 2006
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by the scar noob View Post
    the script doesn't work
    it says:
    User specified a new RS window
    Failed when compiling
    Line 1726: [Hint] (18689:10): Variable 'Result' never used in script C:\Program Files\SCAR 2.03\Scripts\ess miner(new).scar
    Line 2112: [Error] (19075:1): Unknown identifier 'OpenBank4' in script C:\Program Files\SCAR 2.03\Scripts\ess miner(new).scar

    can someone help me plz?
    I removed the banking Procedure, since it was homes, so yull have to make your own banking procedure

    P.S Can I just get a Vote,

    Who likes this script? Do you want me to finish it and make it a Public realse?

  21. #21
    Join Date
    Sep 2006
    Posts
    101
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Works Fine For me, just sometimes cant find portal.

  22. #22
    Join Date
    Sep 2006
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Ah i dont know why you are releasing it to public...

    PS Everyone fishy didnt add me in credits but i did forms, auth, and save 0-0 go me lol

  23. #23
    Join Date
    Oct 2006
    Posts
    174
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 1727: [Error]

    wat should i do?

  24. #24
    Join Date
    Oct 2006
    Posts
    702
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks very nice + rep

  25. #25
    Join Date
    Oct 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i vote Yes

    plz plz plz finish it and make it a public release (i wouldnt mind payin a few 100k for it tho )
    but if u finish it i would love it

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. The reason why Santy is so smart!
    By BobboHobbo in forum Discussions & Debates
    Replies: 21
    Last Post: 02-08-2008, 10:30 PM
  2. Air Crafter Logs out for no reason...
    By Kave in forum OSR Help
    Replies: 2
    Last Post: 09-20-2007, 03:19 PM
  3. NO reason!
    By TheSantaMan in forum Research & Development Lounge
    Replies: 6
    Last Post: 09-09-2007, 12:44 PM
  4. Bigfish RandomAngleEvery Procedure
    By Bigfish58 in forum OSR Help
    Replies: 2
    Last Post: 10-28-2006, 06:20 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
  •