SRL Archive - RS3 Outdated / Broken Scripts

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..

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

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?

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

Hey fish

Nice script :D

~Home

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

yea bigfish this is nice work

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

Ooo, i'm gonna try this ASAP

omfg ty soo mutch

Guys, stop leeching :p

Give him some rep, this is very good work

~Home

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

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

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

Thanks for the support home :rolleyes:

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.

No, this is coded for 3.4

great script

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 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.

From: the scar noob
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 :D

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?

Works Fine For me, just sometimes cant find portal.

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

Line 1727: [Error]

wat should i do?

looks very nice + rep

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

From: Tonekray
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

I re did your forms in next version :D ask Bigfish58 about it. :p

I like it, though I'll agree that it doesn't always find the portal. I'd love to see it fixed up and stuff :P

it's a nice script, but it doesn't bank the ess can someone helps me
it just doens't banks it,
when it comes from mage shop to bank it opens the ban (what's great :p:)) but it doesn't deposit the ess and leaves the bank and go back to the shop

can someone help me plz or fix the prob,
thx

WTF is all of this. I just paid 500K for this script 2 days ago. This is fucking stupid. :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: AS YOU CAN TELL I AM PISSED OFF. Sorry if i offended anyone.

Listen, i know your pissed, i can give you a refund as soon as i get it, sorry for the inconveniance

Good job on the script dude! :D
I love it, looks nice…. and long! :D
Good luck on it

From: Bam Bam
I re did your forms in next version :D ask Bigfish58 about it. :p

Lol i didnt design it 0-0 but i put the code in and helped big with the auth and puttin it in

It lags when its going to second click when going to the shop. Is about 5 pixels by flag when lags. I stop script and I lag out.

Looks like there have been copied things from other scripts, but that looks very good. I'm going to try this out. Thanks for posting this!

dude it's not working

Banking procedure is all f*cked up, it doesnt work… And walking from bank to shop or from shop to bank takes so long time, and mouse moves like crazy. detect rooms taken from solemn wishes essence miner . Responder looks almost same as in someones script. This is just full of copying…

As fishy said the banker isnt there. Second it is still really in beta…

hi bigfish58, i see you maked it useless from out of now for the leechers to use the sript, it sounds ia nice script do i wanne buy it!
add me on msn: [email]bulls52_3@hotmail.com[/email]
thx

From: the scar noob
hi bigfish58, i see you maked it useless from out of now for the leechers to use the sript, it sounds ia nice script do i wanne buy it!
add me on msn: [email]bulls52_3@hotmail.com[/email]
thx

You do know that it doesn't have a stable bank procedure in it do you?

Doesn't work:
Line 149: [Error] (149:1): Unknown identifier 'HowManyPlayers' in script C:\*************

I see at least 4 of my procedures in their without credit.. ;) Good script! I just want StarBlaster to post here saying that none of the script is part of his, because I am under the impression that you had a cracked version of the Ess miner.

Anyways, good job.

yea man Thats full of copying from others scripts.

Great script!

finish it man! The community would LOVE it. especially leechers… Post it on sythe if you think starblaster hates you.

Ill bet good money you didnt make this yourself.
I've seen you edit others scripts at least twice before, to be honest, i hate you.

From: USMC
Ill bet good money you didnt make this yourself.
I've seen you edit others scripts at least twice before, to be honest, i hate you.

I am 100% AGREED with you.

tells me to send ur name to ur email saying its being used illegally

Closed.