Results 1 to 4 of 4

Thread: A help on Bigfishe's script, cuz i think im ripped

  1. #1
    Join Date
    Dec 2006
    Posts
    908
    Mentioned
    1 Post(s)
    Quoted
    17 Post(s)

    A help on Bigfishe's script, cuz i think im ripped

    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' +
    '108140576710C41471310241B026435723107436054188080 07FD' +
    '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 ' ) ;
    2 : TheResponce := ( 'what do you think.. :P' ) ;
    3 : TheResponce := ( 'what does it look like im doing lol' ) ;
    4 : TheResponce := ( 'meh, mining ess ' ) ;
    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 ' ) ;
    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' +
    '75C24588981B319109AB858BA9839BB41D806C87A2D80E2AE 4051' +
    '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' +
    '56AA448E20E5FF5F6AD5F6606476B38E49D31C7C48C078581 B9C5' +
    '66B2BB521DBEAB6DE7F6A793C4A5474EEF27ACAF2B19363CE 73C9' +
    '16514CE0F22C5C055D23CAC23DA4B89468B95DEBA3DC74BAD 389F' +
    '4BCF291DBF7F62BF0FC8D13F9C99C18FACEFB6895F12057A1 3A32' +
    '91ADBE818EAE4207E3052EB44AB7E27B6E8608E561F75EC86 DC86' +
    '52334A41D9753101201FF966B87C8EDC30E91726A79D2A037 3E32' +
    'E0F39076F0AB905D6896A2FE4122A4693457E91912AE5F30A BCB4' +
    'F94FFE06C4127E76015BD52E65ADE1508377240A3AB88E4CE 275F' +
    '299711E931FB9BD42A7B2D8BDCFF2BF7FBE9447AD7812ACB7 329B' +
    '75EB4EF4591730AFDCF885AD86BF1BDCAF4F67FF047FC04AA 82AD' +
    '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 ;

    (I destroyed parts of the script, so no one copy!)


    Theres an error here...

    Line 124 : [Error] (19367:1) : Duplicate identifier 'MouseSpeedMark' in script.

    Note that this is only from Bigfish's buyer's. Please! help!

  2. #2
    Join Date
    Dec 2006
    Location
    UK
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is a little bit to difficult to debug without the whole thing. But if you remove "mousespeedmark" from the var section, that should solve your problem.

    Code:
    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 , <------- Remove This and the comma.
    PeeBreakMark , RunMark : integer ;
    To solve any more problems you will probably need to post the whole script. Which as I noticed has got auth codes so we would not be able to use it.

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

    Default

    Pluse how can you get ripped when he released that into the srl free scritpts section?

  4. #4
    Join Date
    Dec 2006
    Location
    UK!!
    Posts
    910
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol dude the scripts free so if u did pay for it then ask him for a refund or just live with it ... i tried it and its fine one mine :S:S:S

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Jagex Ripped Me Off! A glitch or soMething! Must SeEE
    By da_professa in forum RuneScape News and General
    Replies: 23
    Last Post: 03-16-2007, 04:31 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
  •