Results 1 to 2 of 2

Thread: Extremely Annoying error

  1. #1
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Extremely Annoying error

    Ok, Everything Works PERFECTLY until you lanch the form and press 'ok'
    And when you do press it you get this error

    [Runtime Error] : Access violation at address 004051C4 in module 'scar.exe'. Read of address 8C01379D in line 1104 in script C:\Documents and Settings\Jordan White\My Documents\TypoTerror1.0.scar


    And it leads me to this procedure:
    SCAR Code:
    procedure GetFormValues;
    begin
      Status('Getting Form Values');
      MistakeChanceNum := Edit1.Text; // The LINE to be exact
      CorrectMistakeChanceNum := Edit2.Text;
      TypedText1 := TalkText1.Text;
      TypedText2 := TalkText2.Text;
      TypedText3 := TalkText3.Text;
      TypedText4 := TalkText4.Text;
      TypedText5 := TalkText.Text;
      TypedText6 := Edit3.Text;
      LoginPasswordVal := LoginPasswordNum.Text;
      LoginUsernameVal := LoginUsernum.Text;
      WaitingTextTime :=  DefaultWaitTime.Text;
      WaitingRandomTextTime := RandomWaitTime.Text;
      FontColorType1 := FontColor.Text;
      FontColorType2 := FontColor2.Text;
      FontColorType3 := FontColor3.Text;
      FontColorType4 := FontColor4.Text;
      FontColorType5 := FontColor5.Text;
      FontColorType6 := FontColor6.Text;
      FontEffectType1 := FontEffect1.Text;
      FontEffectType2 := FontEffect2.Text;
      FontEffectType3 := FontEffect3.Text;
      FontEffectType4 := ComboBox2.Text;
      FontEffectType5 := FontEffect5.Text;
      FontEffectType6 := FontEffect6.Text;
      SRLForumUser := ForumUsername.Text;
      Joulo := 'You have been banned from this service for leeching!';
      JouloTwo := 'Banned!'
      Status('...');
    end;

    Heres the whole script

    SCAR Code:
    {                                                                Documentation
                                                                     =============
    }

                                     {=========================================================================]
                                     [                               Typo Terror                               ]
                                     [                                                                         ]
                                     [           NAME        : Typo Terror                                     ]
                                     [           WRITER      : Cathering_                                      ]
                                     [           CATEGORY    : Auto-Typer                                      ]
                                     [           DESCRIPTION : This Script Will type up to six lines also      ]
                                     [                         will randomly make mistakes with a chance       ]
                                     [                         number you give in The Setup form also* will    ]
                                     [                         try to correct the hole text by type something  ]
                                     [                         like "Blah Blah Blah*" you will give it chance  ]
                                     [                         number as well its also*** configed to show a   ]
                                     [                         form on start up!                               ]
                                     [                                                                         ]
                                     [           USAGE       : For Autotalking, will also trade.               ]
                                     [           AUTOCOLOR   : N/A                                             ]
                                     [           NOTES       : This script may have some bugs.                 ]
                                     [                                                                         ]
                                     [           CONTACT     : [url]http://www.cathering.co.uk/contact.php[/url]          ]
                                     [                                                                         ]
                                     [                                                                         ]
                                     [=========================================================================]
                                     [                      Typo Terror - Spread the WORD!                     ]
                                     [=========================================================================]
                                     [                           Instructions:                                 ]
                                     [=========================================================================]
                                     [ 1. USE Runescape with Low Detail.                                       ]
                                     [ 2. Set your Screen to 32 bit TRUE color.                                ]
                                     [ 3. TARGET the Runescape CLIENT with the crosshair.                      ]
                                     [ 4. Start script Logged Out!                                             ]
                                     [ 5. Start the script & fill in the Setup Form                            ]
                                     [=========================================================================]
                                     [                YOU MAY NOT REPRODUCE THIS SCRIPT OR COPY                ]
                                     [=========================================================================}


    program SRLTemplate;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/misc/trade.scar}
    { Creadits to WT Fakawi for the Great template :) , For A Less Boring And More Orged Script }

    //******************** Change This If Needed *******************//

    const
      MouseSpeedSetting   = 4; // Set the Speed Of The Mouse, 4 Will Just About Do It.


    //*****************************DO NOT EDIT!*******************************//
    const
      VersionNumber       = '1.0';      // Script Verison
    //************************************************************************//

    {.Script Info:
    # ScriptName  = Typo Terror
    # Author      = Cathering_
    # Description = This Script Will type up to six lines also will randomly make mistakes with a chance number you give in The Setup form also* will try to correct the hole text by type something like "Blah Blah Blah*" you will give it chance number as well its also*** configed to show a form on start up!
    # Version     = 1.0
    # Date        = 09/08/07
    # Comments    = None.
    /Script Info}


    //******************************GLOBAL VARIABLES***************************//

    var
      // TalkerSetUpForm variables.
      EndTalkerSetUpForm : Boolean;
      TalkerSetUp : TForm;
      Label1, Label2, Label7, Label8, Label3, Label4, Label5, Label6, Label9, Label10, Label11, Label12, Label13, Label14, Label15, Label16, Label17 : TLabel;
      GroupBox1, GroupBox2, GroupBox3, GroupBox4 : TGroupBox;
      Edit1, Edit2, TalkText1, TalkText2, TalkText3, TalkText4, TalkText, Edit3, LoginUsernum, LoginPasswordNum, DefaultWaitTime, RandomWaitTime, ForumUsername : TEdit;
      Panel1 : TPanel;
      CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5, CheckBox6, CheckBox7 : TCheckBox;
      FontColor1, FontColor2, FontColor3, FontColor, FontColor4, FontColor5, FontColor6, FontEffect1, FontEffect2, FontEffect3, ComboBox2, FontEffect5, FontEffect6 : TComboBox;
      BitBtn1 : TBitBtn;
      MistakeChanceNum, CorrectMistakeChanceNum, TypedText1, TypedText2, TypedText3, TypedText4, Typedtext5, TypedText6, LoginPasswordVal, LoginUsernameVal, WaitingTextTime, WaitingRandomTextTime,
      FontColorType1, FontColorType2, FontColorType3, FontColorType4, FontColorType5, FontColorType6, FontEffectType1, FontEffectType2, FontEffectType3, FontEffectType4, FontEffectType5, FontEffectType6, SRLForumUser, Joulo, JouloTwo : String;
      AcceptBMP, TalkingTimes: Integer;

    //************************************************************************//

    // When the form is closed, this code will be executed.
    procedure TalkerSetUpFormOnClose(Sender : TObject; var Action : TCloseAction);
    begin
      if(not(TalkerSetUp.ModalResult = 1))then
        EndTalkerSetUpForm := True;
    end;

    //************************************************************************//

    // This form was parsed using: DFM Form Parser v.23 by Ron.
    procedure TalkerSetUpForm;
    begin
      TalkerSetUp := CreateForm;
      with TalkerSetUp do
      begin
        OnClose := @TalkerSetUpFormOnClose;
        Position := poScreenCenter;
        BorderStyle := bsSingle;
        BorderIcons := [biSystemMenu];
        FormStyle := fsStayOnTop;
        Caption := 'Script Set-Up - Typo Terror';
        ClientHeight := 480;
        ClientWidth := 668;
        Color := clSilver;
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        PixelsPerInch := 96;
      end;
      Label1 := TLabel.Create(TalkerSetUp);
      with Label1 do
      begin
        Parent := TalkerSetUp;
        Left := 45;
        Top := 4300;
        Width := 48;
        Height := 12;
        Caption := 'Label1';
      end;
      Label17 := TLabel.Create(TalkerSetUp);
      with Label17 do
      begin
        Parent := TalkerSetUp;
        Left := 19;
        Top := 395;
        Width := 152;
        Height := 12;
        Caption := 'SRL Forum Username:';
      end;
      GroupBox1 := TGroupBox.Create(TalkerSetUp);
      with GroupBox1 do
      begin
        Parent := TalkerSetUp;
        Left := 10;
        Top := 5;
        Width := 185;
        Height := 93;
        Caption := 'Chance Setup';
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [];
        ParentFont := False;
        TabOrder := 0;
      end;
      Label2 := TLabel.Create(GroupBox1);
      with Label2 do
      begin
        Parent := GroupBox1;
        Left := 9;
        Top := 17;
        Width := 135;
        Height := 13;
        Caption := 'Mistake Chance:';
        Font.Color := clWindowText;
        Font.Height := -13;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        ParentFont := False;
      end;
      Label7 := TLabel.Create(GroupBox1);
      with Label7 do
      begin
        Parent := GroupBox1;
        Left := 8;
        Top := 43;
        Width := 162;
        Height := 13;
        Caption := 'Mistake Correction';
        Font.Color := clWindowText;
        Font.Height := -13;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        ParentFont := False;
      end;
      Label8 := TLabel.Create(GroupBox1);
      with Label8 do
      begin
        Parent := GroupBox1;
        Left := 7;
        Top := 60;
        Width := 63;
        Height := 13;
        Caption := 'Chance:';
        Font.Color := clWindowText;
        Font.Height := -13;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        ParentFont := False;
      end;
      Edit1 := TEdit.Create(GroupBox1);
      with Edit1 do
      begin
        Parent := GroupBox1;
        Left := 153;
        Top := 14;
        Width := 22;
        Height := 20;
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        MaxLength := 2;
        ParentFont := False;
        TabOrder := 0;
        Text := '5';
      end;
      Panel1 := TPanel.Create(TalkerSetUp);
      with Panel1 do
      begin
        Parent := TalkerSetUp;
        Left := 203;
        Top := 12;
        Width := 225;
        Height := 87;
        Color := clOlive;
        TabOrder := 1;
      end;
      Label3 := TLabel.Create(Panel1);
      with Label3 do
      begin
        Parent := Panel1;
        Left := 3;
        Top := 3;
        Width := 143;
        Height := 17;
        Caption := 'Chance Scale:';
        Font.Color := clWindowText;
        Font.Height := -16;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        ParentFont := False;
      end;
      Label4 := TLabel.Create(Panel1);
      with Label4 do
      begin
        Parent := Panel1;
        Left := 7;
        Top := 33;
        Width := 216;
        Height := 12;
        Caption := 'Chances are a 0 - 10 scale.';
      end;
      Label5 := TLabel.Create(Panel1);
      with Label5 do
      begin
        Parent := Panel1;
        Left := 8;
        Top := 48;
        Width := 72;
        Height := 12;
        Caption := '0 = Never';
      end;
      Label6 := TLabel.Create(Panel1);
      with Label6 do
      begin
        Parent := Panel1;
        Left := 8;
        Top := 65;
        Width := 88;
        Height := 12;
        Caption := '10 = Always';
      end;
      Edit2 := TEdit.Create(TalkerSetUp);
      with Edit2 do
      begin
        Parent := TalkerSetUp;
        Left := 163;
        Top := 65;
        Width := 22;
        Height := 20;
        MaxLength := 2;
        TabOrder := 2;
        Text := '2';
      end;
      GroupBox2 := TGroupBox.Create(TalkerSetUp);
      with GroupBox2 do
      begin
        Parent := TalkerSetUp;
        Left := 10;
        Top := 103;
        Width := 652;
        Height := 279;
        Caption := 'Auto Talker';
        TabOrder := 3;
      end;
      Label9 := TLabel.Create(GroupBox2);
      with Label9 do
      begin
        Parent := GroupBox2;
        Left := 13;
        Top := 19;
        Width := 36;
        Height := 13;
        Caption := 'Use?';
        Font.Color := clWindowText;
        Font.Height := -13;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        ParentFont := False;
      end;
      Label10 := TLabel.Create(GroupBox2);
      with Label10 do
      begin
        Parent := GroupBox2;
        Left := 93;
        Top := 18;
        Width := 40;
        Height := 12;
        Caption := 'Color';
      end;
      Label11 := TLabel.Create(GroupBox2);
      with Label11 do
      begin
        Parent := GroupBox2;
        Left := 206;
        Top := 18;
        Width := 48;
        Height := 12;
        Caption := 'Effect';
      end;
      Label12 := TLabel.Create(GroupBox2);
      with Label12 do
      begin
        Parent := GroupBox2;
        Left := 326;
        Top := 20;
        Width := 32;
        Height := 12;
        Caption := 'Text';
      end;
      CheckBox1 := TCheckBox.Create(GroupBox2);
      with CheckBox1 do
      begin
        Parent := GroupBox2;
        Left := 22;
        Top := 52;
        Width := 97;
        Height := 17;
        Checked := True;
        Enabled := False;
        State := cbChecked;
        TabOrder := 0;
      end;
      CheckBox2 := TCheckBox.Create(GroupBox2);
      with CheckBox2 do
      begin
        Parent := GroupBox2;
        Left := 22;
        Top := 88;
        Width := 15;
        Height := 17;
        TabOrder := 1;
      end;
      CheckBox3 := TCheckBox.Create(GroupBox2);
      with CheckBox3 do
      begin
        Parent := GroupBox2;
        Left := 23;
        Top := 128;
        Width := 15;
        Height := 17;
        TabOrder := 2;
      end;
      CheckBox4 := TCheckBox.Create(GroupBox2);
      with CheckBox4 do
      begin
        Parent := GroupBox2;
        Left := 24;
        Top := 168;
        Width := 16;
        Height := 17;
        TabOrder := 3;
      end;
      CheckBox5 := TCheckBox.Create(GroupBox2);
      with CheckBox5 do
      begin
        Parent := GroupBox2;
        Left := 25;
        Top := 208;
        Width := 19;
        Height := 17;
        TabOrder := 4;
      end;
      CheckBox6 := TCheckBox.Create(GroupBox2);
      with CheckBox6 do
      begin
        Parent := GroupBox2;
        Left := 26;
        Top := 246;
        Width := 19;
        Height := 17;
        TabOrder := 5;
      end;
      FontColor1 := TComboBox.Create(GroupBox2);
      with FontColor1 do
      begin
        Parent := GroupBox2;
        Left := -155;
        Top := 52;
        Width := 92;
        Height := 20;
        ItemHeight := 12;
        MaxLength := 1;
        TabOrder := 6;
        Text := 'none';
        with FontColor1.Items do
        begin
          Add('none');
          Add('white');
          Add('green');
          Add('purple');
          Add('cyan');
          Add('glow1');
          Add('glow2');
          Add('glow3');
          Add('flash1');
          Add('flash2');
          Add('flash3');
        end;
      end;
      FontColor2 := TComboBox.Create(GroupBox2);
      with FontColor2 do
      begin
        Parent := GroupBox2;
        Left := 93;
        Top := 89;
        Width := 93;
        Height := 20;
        ItemHeight := 12;
        MaxLength := 1;
        TabOrder := 7;
        Text := 'none';
        with FontColor2.Items do
        begin
          Add('none');
          Add('white');
          Add('green');
          Add('purple');
          Add('cyan');
          Add('glow1');
          Add('glow2');
          Add('glow3');
          Add('flash1');
          Add('flash2');
          Add('flash3');
        end;
      end;
      FontColor3 := TComboBox.Create(GroupBox2);
      with FontColor3 do
      begin
        Parent := GroupBox2;
        Left := 93;
        Top := 127;
        Width := 94;
        Height := 20;
        ItemHeight := 12;
        TabOrder := 8;
        MaxLength := 1;
        Text := 'none';
        with FontColor3.Items do
        begin
          Add('none');
          Add('white');
          Add('green');
          Add('purple');
          Add('cyan');
          Add('glow1');
          Add('glow2');
          Add('glow3');
          Add('flash1');
          Add('flash2');
          Add('flash3');
        end;
      end;
      FontColor := TComboBox.Create(GroupBox2);
      with FontColor do
      begin
        Parent := GroupBox2;
        Left := 94;
        Top := 51;
        Width := 91;
        Height := 20;
        ItemHeight := 12;
        MaxLength := 1;
        TabOrder := 9;
        Text := 'none';
        with FontColor.Items do
        begin
          Add('none');
          Add('white');
          Add('green');
          Add('purple');
          Add('cyan');
          Add('glow1');
          Add('glow2');
          Add('glow3');
          Add('flash1');
          Add('flash2');
          Add('flash3');
        end;
      end;
      FontColor4 := TComboBox.Create(GroupBox2);
      with FontColor4 do
      begin
        Parent := GroupBox2;
        Left := 92;
        Top := 166;
        Width := 96;
        Height := 20;
        ItemHeight := 12;
        MaxLength := 1;
        TabOrder := 10;
        Text := 'none';
        with FontColor4.Items do
        begin
          Add('none');
          Add('white');
          Add('green');
          Add('purple');
          Add('cyan');
          Add('glow1');
          Add('glow2');
          Add('glow3');
          Add('flash1');
          Add('flash2');
          Add('flash3');
        end;
      end;
      FontColor5 := TComboBox.Create(GroupBox2);
      with FontColor5 do
      begin
        Parent := GroupBox2;
        Left := 92;
        Top := 204;
        Width := 98;
        Height := 20;
        ItemHeight := 12;
        MaxLength := 1;
        TabOrder := 11;
        Text := 'none';
        with FontColor5.Items do
        begin
          Add('none');
          Add('white');
          Add('green');
          Add('purple');
          Add('cyan');
          Add('glow1');
          Add('glow2');
          Add('glow3');
          Add('flash1');
          Add('flash2');
          Add('flash3');
        end;
      end;
      FontColor6 := TComboBox.Create(GroupBox2);
      with FontColor6 do
      begin
        Parent := GroupBox2;
        Left := 94;
        Top := 243;
        Width := 96;
        Height := 20;
        ItemHeight := 12;
        MaxLength := 1;
        TabOrder := 12;
        Text := 'none';
        with FontColor6.Items do
        begin
          Add('none');
          Add('white');
          Add('green');
          Add('purple');
          Add('cyan');
          Add('glow1');
          Add('glow2');
          Add('glow3');
          Add('flash1');
          Add('flash2');
          Add('flash3');
        end;
      end;
      FontEffect1 := TComboBox.Create(GroupBox2);
      with FontEffect1 do
      begin
        Parent := GroupBox2;
        Left := 203;
        Top := 49;
        Width := 90;
        Height := 20;
        ItemHeight := 12;
        TabOrder := 13;
        MaxLength := 1;
        Text := 'none';
        with FontEffect1.Items do
        begin
          Add('none');
          Add('scroll');
          Add('shake');
          Add('slide');
          Add('wave');
          Add('wave2');
        end;
      end;
      FontEffect2 := TComboBox.Create(GroupBox2);
      with FontEffect2 do
      begin
        Parent := GroupBox2;
        Left := 203;
        Top := 87;
        Width := 91;
        Height := 20;
        ItemHeight := 12;
        MaxLength := 1;
        TabOrder := 14;
        Text := 'none';
        with FontEffect2.Items do
        begin
          Add('none');
          Add('scroll');
          Add('shake');
          Add('slide');
          Add('wave');
          Add('wave2');
        end;
      end;
      FontEffect3 := TComboBox.Create(GroupBox2);
      with FontEffect3 do
      begin
        Parent := GroupBox2;
        Left := 204;
        Top := 125;
        Width := 93;
        Height := 20;
        ItemHeight := 12;
        MaxLength := 1;
        TabOrder := 15;
        Text := 'none';
        with FontEffect3.Items do
        begin
          Add('none');
          Add('scroll');
          Add('shake');
          Add('slide');
          Add('wave');
          Add('wave2');
        end;
      end;
      ComboBox2 := TComboBox.Create(GroupBox2);
      with ComboBox2 do
      begin
        Parent := GroupBox2;
        Left := 205;
        Top := 166;
        Width := 93;
        Height := 20;
        ItemHeight := 12;
        MaxLength := 1;
        TabOrder := 16;
        Text := 'none';
        with ComboBox2.Items do
        begin
          Add('none');
          Add('scroll');
          Add('shake');
          Add('slide');
          Add('wave');
          Add('wave2');
        end;
      end;
      FontEffect5 := TComboBox.Create(GroupBox2);
      with FontEffect5 do
      begin
        Parent := GroupBox2;
        Left := 205;
        Top := 204;
        Width := 94;
        Height := 20;
        ItemHeight := 12;
        MaxLength := 1;
        TabOrder := 17;
        Text := 'none';
        with FontEffect5.Items do
        begin
          Add('none');
          Add('scroll');
          Add('shake');
          Add('slide');
          Add('wave');
          Add('wave2');
        end;
      end;
      FontEffect6 := TComboBox.Create(GroupBox2);
      with FontEffect6 do
      begin
        Parent := GroupBox2;
        Left := 204;
        Top := 243;
        Width := 95;
        Height := 20;
        ItemHeight := 12;
        MaxLength := 1;
        TabOrder := 18;
        Text := 'none';
        with FontEffect6.Items do
        begin
          Add('none');
          Add('scroll');
          Add('shake');
          Add('slide');
          Add('wave');
          Add('wave2');
        end;
      end;
      TalkText1 := TEdit.Create(GroupBox2);
      with TalkText1 do
      begin
        Parent := GroupBox2;
        Left := 325;
        Top := 48;
        Width := 306;
        Height := 20;
        MaxLength := 100;
        TabOrder := 19;
      end;
      TalkText2 := TEdit.Create(GroupBox2);
      with TalkText2 do
      begin
        Parent := GroupBox2;
        Left := 325;
        Top := 87;
        Width := 307;
        Height := 20;
        MaxLength := 100;
        TabOrder := 20;
      end;
      TalkText3 := TEdit.Create(GroupBox2);
      with TalkText3 do
      begin
        Parent := GroupBox2;
        Left := 326;
        Top := 125;
        Width := 305;
        Height := 20;
        MaxLength := 100;
        TabOrder := 21;
      end;
      TalkText4 := TEdit.Create(GroupBox2);
      with TalkText4 do
      begin
        Parent := GroupBox2;
        Left := 327;
        Top := 167;
        Width := 304;
        Height := 20;
        MaxLength := 100;
        TabOrder := 22;
      end;
      TalkText := TEdit.Create(GroupBox2);
      with TalkText do
      begin
        Parent := GroupBox2;
        Left := 329;
        Top := 207;
        Width := 303;
        Height := 20;
        MaxLength := 100;
        TabOrder := 23;
      end;
      Edit3 := TEdit.Create(GroupBox2);
      with Edit3 do
      begin
        Parent := GroupBox2;
        Left := 331;
        Top := 243;
        Width := 302;
        Height := 20;
        MaxLength := 100;
        TabOrder := 24;
      end;
      GroupBox3 := TGroupBox.Create(TalkerSetUp);
      with GroupBox3 do
      begin
        Parent := TalkerSetUp;
        Left := 434;
        Top := 9;
        Width := 227;
        Height := 91;
        Caption := 'Player Login';
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [];
        ParentFont := False;
        TabOrder := 4;
      end;
      Label13 := TLabel.Create(GroupBox3);
      with Label13 do
      begin
        Parent := GroupBox3;
        Left := 9;
        Top := 25;
        Width := 72;
        Height := 12;
        Caption := 'Username:';
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        ParentFont := False;
      end;
      Label14 := TLabel.Create(GroupBox3);
      with Label14 do
      begin
        Parent := GroupBox3;
        Left := 11;
        Top := 59;
        Width := 72;
        Height := 12;
        Caption := 'Password:';
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        ParentFont := False;
      end;
      LoginUsernum := TEdit.Create(GroupBox3);
      with LoginUsernum do
      begin
        Parent := GroupBox3;
        Left := 94;
        Top := 22;
        Width := 121;
        Height := 20;
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        MaxLength := 50;
        ParentFont := False;
        TabOrder := 0;
      end;
      LoginPasswordNum := TEdit.Create(GroupBox3);
      with LoginPasswordNum do
      begin
        Parent := GroupBox3;
        Left := 94;
        Top := 58;
        Width := 121;
        Height := 20;
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        MaxLength := 50;
        ParentFont := False;
        PasswordChar := '0';
        TabOrder := 1;
      end;
      CheckBox7 := TCheckBox.Create(TalkerSetUp);
      with CheckBox7 do
      begin
        Parent := TalkerSetUp;
        Left := 480;
        Top := 118;
        Width := 170;
        Height := 17;
        Caption := 'Type Text In Order';
        TabOrder := 5;
      end;
      GroupBox4 := TGroupBox.Create(TalkerSetUp);
      with GroupBox4 do
      begin
        Parent := TalkerSetUp;
        Left := 200;
        Top := 389;
        Width := 454;
        Height := 51;
        Caption := 'Wait Setting';
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [];
        ParentFont := False;
        TabOrder := 6;
      end;
      Label15 := TLabel.Create(GroupBox4);
      with Label15 do
      begin
        Parent := GroupBox4;
        Left := 15;
        Top := 24;
        Width := 168;
        Height := 12;
        Caption := 'Default Waiting Time:';
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        ParentFont := False;
      end;
      Label16 := TLabel.Create(GroupBox4);
      with Label16 do
      begin
        Parent := GroupBox4;
        Left := 244;
        Top := 24;
        Width := 112;
        Height := 12;
        Caption := '+ A Random Of:';
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        ParentFont := False;
      end;
      DefaultWaitTime := TEdit.Create(GroupBox4);
      with DefaultWaitTime do
      begin
        Parent := GroupBox4;
        Left := 186;
        Top := 21;
        Width := 42;
        Height := 20;
        Hint := 'In Milliseconds!';
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        MaxLength := 6;
        ParentFont := False;
        ParentShowHint := False;
        ShowHint := True;
        TabOrder := 0;
        Text := '3000';
      end;
      RandomWaitTime := TEdit.Create(GroupBox4);
      with RandomWaitTime do
      begin
        Parent := GroupBox4;
        Left := 369;
        Top := 19;
        Width := 56;
        Height := 20;
        Hint := 'In Milliseconds!';
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'OCR A Extended';
        Font.Style := [fsBold];
        MaxLength := 6;
        ParentFont := False;
        TabOrder := 1;
        Text := '2000';
      end;
      BitBtn1 := TBitBtn.Create(TalkerSetUp);
      with BitBtn1 do
      begin
        Parent := TalkerSetUp;
        Left := 152;
        Top := 449;
        Width := 346;
        Height := 25;
        Caption := 'Start';
        Font.Color := clWindowText;
        Font.Height := -11;
        Font.Name := 'MS Sans Serif';
        Font.Style := [fsBold];
        ParentFont := False;
        TabOrder := 7;
        Kind := bkOK;
      end;
      ForumUsername := TEdit.Create(TalkerSetUp);
      with ForumUsername do
      begin
        Parent := TalkerSetUp;
        Left := 19;
        Top := 415;
        Width := 152;
        Height := 20;
        MaxLength := 255;
        TabOrder := 16;
      end;
    end;

    //************************************************************************//

    procedure SafeTalkerSetUpForm;
    var
      V : TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('TalkerSetUpForm', V);
    end;

    //************************************************************************//

    procedure ShowTalkerSetUpFormModal;
    begin
      TalkerSetUp.ShowModal;
    end;

    //************************************************************************//

    procedure SafeShowTalkerSetUpFormModal;
    var
      V : TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('ShowTalkerSetUpFormModal', V);
    end;

    //************************************************************************//

    procedure MainTalkerSetUpForm;
    begin
      try
        SafeTalkerSetUpForm;
        SafeShowTalkerSetUpFormModal;
      finally
        FreeForm(TalkerSetUp);
      except
        WriteLn('An error seems to have occurred in: TalkerSetUpForm');
      end;
    end;

    //************************************************************************//

    procedure ViewScriptSetup;
    begin
      GetSelf.WindowState := wsMinimized;
      MainTalkerSetUpForm;
      GetSelf.WindowState := wsNormal;
      if(EndTalkerSetUpForm)then
        TerminateScript;
    end;

    //************************************************************************//

    procedure Sig;
    begin
      Status('Drawing Sig');
      ClearDebug;
      Writeln('');
      Writeln('Z77I$O77I7Z77I$Z77I$O77I$Z77I$Z77I$O77I7Z77I$Z77I$O77I$Z77IM');
      Writeln('77ZZ$77ZZ$77ZZ777ZZ$77ZZ$77ZZ777ZZ$77ZZ$77ZZ777ZZ$77ZZ$7$ZZM');
      Writeln('77ZZ:.................................................:?7ZZM');
      Writeln('Z77I~~77I7Z77I$Z77I7Z77I7Z77I$Z77I7Z77I7Z77I$Z77I7Z77I.?77IM');
      Writeln('7ZII~:ZII77OII$7ZII77ZI777OII$7ZII77ZII77OII$7ZII77ZI7.?OIIM');
      Writeln('77ZZ:,7ZZZ77ZZ777OZ$77ZZZ77ZZ777ZZ$77ZZZ77ZZ777OZ$77ZZ:+IZZM');
      Writeln('77ZZ:,7ZZ$77ZZ777ZZ$77ZZZ7IZZ777ZZ$77ZZZ77ZZ777ZZ777ZZ,?IZOM');
      Writeln('7OII~:OII77ZII$7OII77OII77?,..:OII77OII77ZII$7OII77ZII.+O?IM');
      Writeln('Z$7I~~$7I7Z$7I7Z$7I7Z$7..     ~$7I7Z$7I7Z$7I7Z$7I7Z$7I.I$7IM');
      Writeln('77ZZ:,7ZZ$77ZZ777ZZI..        ,7ZZ$77ZZ$77ZZ777ZZ$77ZZ:?7ZZM');
      Writeln('77ZZ::7OZ$7IOZ777Z=.         .:7ZZ$I7OZ$7IOZ777ZZ$I7ZZ,?IOZM');
      Writeln('Z$7I~~$777Z$7I7Z:.           .~$7I7Z$7I7Z$7I7Z$7I7Z$77.I$7IM');
      Writeln('7$I7~:$I777$I7Z=        ......:$I7$7$I777$I7Z7$I7$7$I7.?ZI7M');
      Writeln('77ZZ::7ZZZ77ZZ=      ..+Z77ZZ777ZZ$77ZZZ$7ZZ777ZZ$77ZZ,?7ZZM');
      Writeln('77ZZ:,7ZZ$77Z=      .~ZZ$77ZZ777ZZ$77ZZ$77ZZ777ZZ$77ZZ,?7ZZM');
      Writeln('7$I7~:$I7$7$I.     .7$I777$I7Z7$I7$7$I7$7$I7Z7$I7$7$I7.?$I7M');
      Writeln('Z77I~~77I7Z7+     .IZ77I$Z77I$Z77I$Z77I7Z77I$Z77I$Z77I.?77IM');
      Writeln('77ZZ::7ZZZ77~    .Z$77ZZ$77ZZ777ZZ$I7ZZZ77ZZ777ZZ$77OZ,?7ZZM');
      Writeln('77ZZ::7ZZ$7?~    .Z$77ZZ$77ZZ777ZZ$77ZZ$77ZZ777ZZ$77ZZ,?7ZZM');
      Writeln('Z77I~~77I7Z?,    ,I$O77I$Z77I$Z77I$O77I7Z77I$Z77I$O77I.?77IM');
      Writeln('77ZZ::7ZZ$77:   .~Z$77ZZ$77ZZ777ZZ$77ZZ$77ZZ77?ZZ$77ZZ,?7ZZM');
      Writeln('77ZZ::7ZZ$77?   .~Z$77ZZ$77ZZ777ZZ$77ZZ$77ZZ777ZZ$77ZZ:?7ZZM');
      Writeln('Z77I~~77I7Z7I.   .I$Z77I7Z77I$Z77I$Z77I7Z77I$~77I$Z77I.?77IM');
      Writeln('7ZII~:ZII77OI.    ~77ZII77OII$7ZII77ZII77OII7+ZII77ZII.?OIIM');
      Writeln('77ZZ:,7ZZZ77ZZ+    ~77ZZZ7IZZ777ZZ$77ZZZ77Z=,77ZZ$77ZZ:+IZZM');
      Writeln('$7ZZ:,7ZZZ77ZZ7.....,7ZZZ7IZZ777ZZ$77ZZZ77?~777ZZ$77ZZ,?IZOM');
      Writeln('7OII~:OII77ZII$7=..  ..I77Z?I$7OII77OII7:.:I$7OII77ZII.+O?IM');
      Writeln('Z$7I~~$7I7Z$7I7Z$7.    ..?$7I7Z$7I7Z$7,..$7I7Z$7I7Z$7I.I$7IM');
      Writeln('77ZZ:,7ZZ$77ZZ777ZZ$?.      ........ .?Z77ZZ777ZZ$77ZZ:?7ZZM');
      Writeln('77ZZ::7OZ$7IOZ777ZZ$I7Z=....    ...~7ZZ$7IOZ777ZZ$I7ZZ,?IOZM');
      Writeln('Z$7I~~$777Z$7I7Z$7I7Z$777Z$7I7Z$7I7Z$7I7Z$7I7Z$7I7Z$77.I$7IM');
      Writeln('7$I7~:$I777$I7Z7$I7$7$I777ZI7Z7$I7$7$I777$I7Z7$I7$7$I7.?ZI7M');
      Writeln('77ZZ::7ZZZ77ZZ777ZZ$77ZZZ77ZZ777ZZ$77ZZZ77ZZ777ZZ$77ZZ,?7ZZM');
      Writeln('77ZZ::7ZO$77ZZ777ZZ$I7ZO$77ZZ777ZZ$I7ZO$77ZZ777ZZ$I7ZZ,?7ZZM');
      Writeln('7$I7=:~,::~~::~~~::::~::::~,:~~~,:::~:::~~,,~~~,,::~:::I$I7M');
      Writeln('Z77I$Z77I7Z77I$Z77I$Z77I$Z77I$Z77I$Z77I7Z77I$Z77I$Z77I$Z77IM');
      Writeln('77ZZ$I7ZZZ77ZZ777ZZ$77ZZ$77ZZ777ZZ$I7ZZZ77ZZ777ZZ$77ZZ$77ZZM');
      Writeln('MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM');
      Writeln('Copyright [url]http://www.cathering.co.uk[/url] | A Cathering_ Production');
      Writeln('');
      Status('...');
    end;

    //************************************************************************//

    function Alert(AlertText, Title : String; ProType : Integer): Integer;
    begin
      Result := GetApplication.Messagebox(AlertText, Title, ProType);
    end;

    //************************************************************************//

    procedure GetFormValues;
    begin
      Status('Getting Form Values');
      MistakeChanceNum := Edit1.Text;
      CorrectMistakeChanceNum := Edit2.Text;
      TypedText1 := TalkText1.Text;
      TypedText2 := TalkText2.Text;
      TypedText3 := TalkText3.Text;
      TypedText4 := TalkText4.Text;
      TypedText5 := TalkText.Text;
      TypedText6 := Edit3.Text;
      LoginPasswordVal := LoginPasswordNum.Text;
      LoginUsernameVal := LoginUsernum.Text;
      WaitingTextTime :=  DefaultWaitTime.Text;
      WaitingRandomTextTime := RandomWaitTime.Text;
      FontColorType1 := FontColor.Text;
      FontColorType2 := FontColor2.Text;
      FontColorType3 := FontColor3.Text;
      FontColorType4 := FontColor4.Text;
      FontColorType5 := FontColor5.Text;
      FontColorType6 := FontColor6.Text;
      FontEffectType1 := FontEffect1.Text;
      FontEffectType2 := FontEffect2.Text;
      FontEffectType3 := FontEffect3.Text;
      FontEffectType4 := ComboBox2.Text;
      FontEffectType5 := FontEffect5.Text;
      FontEffectType6 := FontEffect6.Text;
      SRLForumUser := ForumUsername.Text;
      Joulo := 'You have been banned from this service for leeching!';
      JouloTwo := 'Banned!'
      Status('...');
    end;

    //************************************************************************//

    procedure ValidateForm;
    begin
      Status('Validateing Form Input');
      if((MistakeChanceNum <> '0')or(MistakeChanceNum <> '1')or(MistakeChanceNum <> '2')or(MistakeChanceNum <> '3')or(MistakeChanceNum <> '4')or(MistakeChanceNum <> '5')or(MistakeChanceNum <> '6')or(MistakeChanceNum <> '7')or(MistakeChanceNum <> '8')or(MistakeChanceNum <> '9')or(MistakeChanceNum <> '10')) then
      begin
        Alert('Please enter an integer of 0-10 for Mistake Chance!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((CorrectMistakeChanceNum <> '0')or(CorrectMistakeChanceNum <> '1')or(CorrectMistakeChanceNum <> '2')or(CorrectMistakeChanceNum <> '3')or(CorrectMistakeChanceNum <> '4')or(CorrectMistakeChanceNum <> '5')or(CorrectMistakeChanceNum <> '6')or(CorrectMistakeChanceNum <> '7')or(CorrectMistakeChanceNum <> '8')or(CorrectMistakeChanceNum <> '9')or(CorrectMistakeChanceNum <> '10')) then
      begin
        Alert('Please enter an integer of 0-10 for Mistake Correction Chance!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontColorType1 <> 'none')or(FontColorType1 <> 'white')or(FontColorType1 <> 'green')or(FontColorType1 <> 'purple')or(FontColorType1 <> 'cyan')) then
      begin
        Alert('Invalid Input For Color In Row 1!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontColorType2 <> 'none')or(FontColorType2 <> 'white')or(FontColorType2 <> 'green')or(FontColorType2 <> 'purple')or(FontColorType2 <> 'cyan')) then
      begin
        Alert('Invalid Input For Color In Row 2!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontColorType3 <> 'none')or(FontColorType3 <> 'white')or(FontColorType3 <> 'green')or(FontColorType3 <> 'purple')or(FontColorType3 <> 'cyan')) then
      begin
        Alert('Invalid Input For Color In Row 3!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontColorType4 <> 'none')or(FontColorType4 <> 'white')or(FontColorType4 <> 'green')or(FontColorType4 <> 'purple')or(FontColorType4 <> 'cyan')) then
      begin
        Alert('Invalid Input For Color In Row 4!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontColorType5 <> 'none')or(FontColorType5 <> 'white')or(FontColorType5 <> 'green')or(FontColorType5 <> 'purple')or(FontColorType5 <> 'cyan')) then
      begin
        Alert('Invalid Input For Color In Row 5!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontColorType6 <> 'none')or(FontColorType6 <> 'white')or(FontColorType6 <> 'green')or(FontColorType6 <> 'purple')or(FontColorType6 <> 'cyan')) then
      begin
        Alert('Invalid Input For Color In Row 6!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontEffectType1 <> 'none')or(FontEffectType1 <> 'scroll')or(FontEffectType1 <> 'shake')or(FontEffectType1 <> 'slide')or(FontEffectType1 <> 'wave')or(FontEffectType1 <> 'wave2')) then
      begin
        Alert('Invalid Input For Effect In Row 1!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontEffectType2 <> 'none')or(FontEffectType2 <> 'scroll')or(FontEffectType2 <> 'shake')or(FontEffectType2 <> 'slide')or(FontEffectType2 <> 'wave')or(FontEffectType2 <> 'wave2')) then
      begin
        Alert('Invalid Input For Effect In Row 2!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontEffectType3 <> 'none')or(FontEffectType3 <> 'scroll')or(FontEffectType3 <> 'shake')or(FontEffectType3 <> 'slide')or(FontEffectType3 <> 'wave')or(FontEffectType3 <> 'wave2')) then
      begin
        Alert('Invalid Input For Effect In Row 3!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontEffectType4 <> 'none')or(FontEffectType4 <> 'scroll')or(FontEffectType4 <> 'shake')or(FontEffectType4 <> 'slide')or(FontEffectType4 <> 'wave')or(FontEffectType4 <> 'wave2')) then
      begin
        Alert('Invalid Input For Effect In Row 4!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontEffectType5 <> 'none')or(FontEffectType5 <> 'scroll')or(FontEffectType5 <> 'shake')or(FontEffectType5 <> 'slide')or(FontEffectType5 <> 'wave')or(FontEffectType5 <> 'wave2')) then
      begin
        Alert('Invalid Input For Effect In Row 5!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((FontEffectType6 <> 'none')or(FontEffectType6 <> 'scroll')or(FontEffectType6 <> 'shake')or(FontEffectType6 <> 'slide')or(FontEffectType6 <> 'wave')or(FontEffectType6 <> 'wave2')) then
      begin
        Alert('Invalid Input For Effect In Row 6!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((LoginUsernameVal = '')) then
      begin
        Alert('Your Login Username Field Was Lefted Blank!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((LoginPasswordVal = '')) then
      begin
        Alert('Your Login Password Field Was Lefted Blank!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((GetLetters(WaitingTextTime) <> '')or(GetOthers(WaitingTextTime) <> '')or(GetNumbers(WaitingTextTime) = '')) then
      begin
        Alert('Invalid Input In Default Waiting Time Field, It must be a integer!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((GetLetters(WaitingRandomTextTime) <> '')or(GetOthers(WaitingRandomTextTime) <> '')or(GetNumbers(WaitingRandomTextTime) = '')) then
      begin
        Alert('Invalid Input In Random Waiting Time Field, It must be a integer!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      if((SRLForumUser = '')) then
      begin
        Alert('You MUST enter YOUR SRL Forum Username or risk getting banned from using this Script!'+chr(13)+chr(13)+'Terminateing Script Please Restart...', 'Setup Error', 0);
        TerminateScript;
      end;
      Status('...');
    end;

    //************************************************************************//

    procedure TypoVerisonCheck;
    var
      TypoTerrorVerison : String;
      TypoVerisonAlert : Integer;
    begin
      Status('Checking Script Verison');
      TypoTerrorVerison := GetPage('http://www.cathering.co.uk/scriptcheck.php?verison='+ VersionNumber +'&username='+ SRLForumUser +'&script=TypoTerror');
      if(TypoTerrorVerison = 'old') then
      begin
        TypoVerisonAlert := Alert('You are using a outdated verison of Typo Terror, Do You want to stop this script?', 'Verison Outdated', 4);
        if(TypoVerisonAlert = 6) then
          TerminateScript;
      end;
      if(TypoTerrorVerison = '404') then
      begin
        Alert(Joulo, JouloTwo, 0);
        TerminateScript;
      end;
      Status('...');
    end;

    //************************************************************************//

    procedure LoggedInCheck;
    begin
      if (not(LoggedIn)) then
        TerminateScript;
    end;

    //************************************************************************//

    //FROM SRL
    procedure RotateScreen;
    begin
      SendArrowSilentWait(Random(4), 500 + Random(500));
      SendArrowSilentWait(Random(4), 500 + Random(500));
      MakeCompass('n');
      SendArrowSilentWait(0, 1400 + Random(100));
    end;

    //************************************************************************//

    function ChanceArray(ObjectType: String): Boolean;
    var
      RandomArray : Integer;
      ChanceOutputBool: array[1..10] of Boolean;
    begin
      LoggedInCheck;
      RandomArray := RandomRange(1, 10);
      if(StrToInt(ObjectType) >= 1) then
      begin
        ChanceOutputBool[1] := True;
      end else
        ChanceOutputBool[1] := False;

      if(StrToInt(ObjectType) >= 2) then
      begin
        ChanceOutputBool[2] := True;
      end else
        ChanceOutputBool[2] := False;

      if(StrToInt(ObjectType) >= 3) then
      begin
        ChanceOutputBool[3] := True;
      end else
        ChanceOutputBool[3] := False;

      if(StrToInt(ObjectType) >= 4) then
      begin
        ChanceOutputBool[4] := True;
      end else
        ChanceOutputBool[4] := False;

      if(StrToInt(ObjectType) >= 5) then
      begin
        ChanceOutputBool[5] := True;
      end else
        ChanceOutputBool[5] := False;

      if(StrToInt(ObjectType) >= 6) then
      begin
        ChanceOutputBool[6] := True;
      end else
        ChanceOutputBool[6] := False;

      if(StrToInt(ObjectType) >= 7) then
      begin
        ChanceOutputBool[7] := True;
      end else
        ChanceOutputBool[7] := False;

      if(StrToInt(ObjectType) >= 8) then
      begin
        ChanceOutputBool[8] := True;
      end else
        ChanceOutputBool[8] := False;

      if(StrToInt(ObjectType) >= 9) then
      begin
        ChanceOutputBool[9] := True;
      end else
        ChanceOutputBool[9] := False;

      if(StrToInt(ObjectType) >= 10) then
      begin
        ChanceOutputBool[10] := True;
      end else
        ChanceOutputBool[10] := False;
      Result := ChanceOutputBool[RandomArray];
    end;

    //************************************************************************//

    procedure DeclarePlayers;
    begin
      Status('Declareing Players...');
      HowManyPlayers  := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name := LoginUsernameVal;
      Players[0].Pass := LoginPasswordVal;
      Players[0].Nick := Right(Players[0].Name, 3);
      Players[0].Active:= True;
      Status('...');
    end;

    //************************************************************************//

    function GetRandomHover: String;
    var
      SkillArray: array[1..14] of String;
    begin

      LoggedInCheck;
      SkillArray[1] := 'Attack';
      SkillArray[2] := 'Hitpoints';
      SkillArray[3] := 'Mining';
      SkillArray[4] := 'Strength';
      SkillArray[5] := 'Smithing';
      SkillArray[6] := 'Defence';
      SkillArray[7] := 'Fishing';
      SkillArray[8] := 'Range';
      SkillArray[9] := 'Cooking';
      SkillArray[10] := 'Prayer';
      SkillArray[11] := 'Crafting';
      SkillArray[12] := 'Firemaking';
      SkillArray[13] := 'Magic';
      SkillArray[14] := 'Woodcutting';

      Result := SkillArray[1 + Random(13)];
    end;

    //************************************************************************//

    procedure AntiBanProcedure;
    begin
      LoggedInCheck;
      Status('Doing Anti-Ban Procedure');
      case Random(19) of
        0: BoredHuman;
        1: PickUpMouse;
        2: RandomRClick;
        3: RandomRClick;
        5: RotateScreen;
        6: BoredHuman;
        7: HoverSkill(GetRandomHover, false);
        8: RandomRClick;
        9: RotateScreen;
        10: RandomRClick;
        11: HoverSkill(GetRandomHover, false);
        12: BoredHuman;
        13: RotateScreen;
        14: RandomRClick;
        15: RandomRClick;
        16: BoredHuman;
        17: HoverSkill(GetRandomHover, false);
        18: HoverSkill(GetRandomHover, false);
        19: RotateScreen;
      end;
      Status('...');
    end;

    //************************************************************************//

    procedure LoadAcceptBMP;
    begin
      Status('Loading Bitmap...');
      AcceptBMP := BitmapFromString2(False, 'a4CAC878DAE591410E80200' +
           'C04BFB4082DF50828FF7F92AD174E128C9898D8C38474771B0A00' +
           'B02D0A485278D995C4A95158C9A78549948B04EB5331D6A606727' +
           '65E7D6326658CA6C66C2971D647D53916BFAEBEFAB51AD9A5CF91' +
           'D47B9E59D3EEFE6979FCB618B8ED5CE7BF363D00FD1');
      Status('...');
    end;

    //************************************************************************//

    procedure SetupScript;
    begin
      TalkingTimes := 0;
      Sig;
      ViewScriptSetup;
      GetFormValues;
      ValidateForm;
      TypoVerisonCheck;
      DeclarePlayers;
      rs_DeleteUID;
      LoadAcceptBMP;
    end;

    //************************************************************************//

    //FROM SRL 3.81
    function ScriptTime2(mode: Integer): string;
    var
      hour, mins, sec: Integer;
      H, M, S: string;
    begin
      hour := ScriptTime(1);
      mins := ScriptTime(2);
      sec := ScriptTime(3);
      H := IntToStr(hour);
      M := IntToStr(mins);
      S := IntToStr(sec);
      case mode of
        1:
          begin
            if (hour < 10) then
              H := '0' + H;
            if (mins < 10) then
              M := '0' + M;
            if (sec < 10) then
              S := '0' + S;
            Result := H + ':' + M + ':' + S;
          end;
        2:
          begin
            if (ScriptTime(1) <> 0) then
            begin
              Result := H + ' Hours, ' + M + ' Minutes, and ' + S + ' Seconds';
            end else if (ScriptTime(2) <> 0) then
            begin
              Result := M + ' Minutes, and ' + S + ' Seconds';
            end else
              Result := S + ' Seconds';
          end;
      end;
    end;

    //************************************************************************//

    procedure ProgReport;
    begin
      Status('Doing Progress Report...');
      Writeln('****************************************************************');
      Writeln('* -----------------Typo Terror Progress Report-----------------*');
      Writeln('****************************************************************');
      Writeln('* Worked for: '+ ScriptTime2(2) +'                *');
      Writeln('* Talked '+ IntToStr(TalkingTimes) +' times.                                            *');
        Writeln('****************************************************************');
      Status('...');
    end;

    //************************************************************************//

    function LookForTrade: Boolean;
    var
      XDump, YDump, LoopInteger: Integer;
    begin
      LoggedInCheck;
      Status('Looking For Trader');
      for LoopInteger := 0 to 5+random(2) do
      begin
        wait(4+random(14)); //Anti Lag
        if(FindColor(XDump, YDump, 8388736, 9, 443, 265, 460)) then
        begin
          Result := True;
        end else
          Result := False;
      end;
      Status('...');
    end;

    //************************************************************************//

    procedure FindTrader;
    var
      XDump, YDump, LoopInteger: Integer;
    begin
      LoggedInCheck;
      if(IsFKeyDown(2)) then
        TerminateScript;
      for LoopInteger := 0 to 5 do
      begin
        Wait(4+random(8)); //Anti Lag
        Findnormalrandoms;
      end;
      if(RBool) then
        AntiBanProcedure;
      if(LookForTrade) then
      begin
        AcceptTrade;
        Status('Tradeing...');
        Wait(1700+random(3656));
        repeat
          Sleep(50);
        until(not(FindBitmap(AcceptBMP, XDump, YDump)))
      end;
    end;

    //************************************************************************//

    procedure TalkSend(TypeSendText, TypeSendTextEffect, TypeSendColor: String; ObjectCheckBox: Boolean);
    var
      TalkingTextColor, TalkingTextEffect: String;
      GetHumanChance: Integer;
    begin
      LoggedInCheck;
      FindTrader;
      if(ObjectCheckbox <> True) then
      begin
        if(TypeSendColor <> 'none') then
        begin
          TalkingTextColor := TypeSendColor+':';
        end else
          TalkingTextColor := '';
        if(TypeSendTextEffect <> 'none') then
        begin
          TalkingTextEffect := TypeSendTextEffect+':';
        end else
        begin
          TalkingTextEffect := '';
        end;
        if(ChanceArray(MistakeChanceNum)) then
        begin
          FindTrader;
          Status('Talking -> Makeing Typeing Mistake...');
          GetHumanChance := Length(TalkingTextColor+TalkingTextEffect+TypeSendText) div 2 + 6;
          TypeSend(HumanText(TalkingTextColor+TalkingTextEffect+TypeSendText, GetHumanChance));
          TalkingTimes := TalkingTimes + 1;
          LoggedInCheck;
          Status('...');
          if(ChanceArray(CorrectMistakeChanceNum)) then
          begin
            FindTrader;
            Status('Talking -> Correcting Typeing Mistake...');
            Wait(2000+random(1700)+random(864));
            FindTrader;
            TypeSend(TalkingTextColor+TalkingTextEffect+TypeSendText+'*');
            TalkingTimes := TalkingTimes + 1;
            FindTrader;
            Status('...');
          end;
        end else
        begin
          FindTrader;
          Status('Talking -> Typeing...');
          TypeSend(TalkingTextColor+TalkingTextEffect+TypeSendText);
          TalkingTimes := TalkingTimes + 1;
          FindTrader;
          Status('...');
        end;
        Wait(StrToInt(WaitingTextTime)+random(StrToInt(WaitingRandomTextTime)));
        FindTrader;
      end;
    end;

    //************************************************************************//

    procedure Talk;
    begin
      if(CheckBox7.State=cbUnChecked) then
      begin
        LoggedInCheck;
        case Random(5) of
          0: TalkSend(TypedText1, FontEffectType1, FontColorType1, CheckBox1.State=cbUnChecked);
          1: TalkSend(TypedText2, FontEffectType2, FontColorType2, CheckBox2.State=cbUnChecked);
          2: TalkSend(TypedText3, FontEffectType3, FontColorType3, CheckBox3.State=cbUnChecked);
          3: TalkSend(TypedText4, FontEffectType4, FontColorType4, CheckBox4.State=cbUnChecked);
          4: TalkSend(TypedText5, FontEffectType5, FontColorType5, CheckBox5.State=cbUnChecked);
          5: TalkSend(TypedText6, FontEffectType6, FontColorType6, CheckBox6.State=cbUnChecked);
        end;
      end else
      begin
        LoggedInCheck;
        TalkSend(TypedText1, FontEffectType1, FontColorType1, CheckBox1.State=cbUnChecked);
        TalkSend(TypedText2, FontEffectType2, FontColorType2, CheckBox2.State=cbUnChecked);
        TalkSend(TypedText3, FontEffectType3, FontColorType3, CheckBox3.State=cbUnChecked);
        TalkSend(TypedText4, FontEffectType4, FontColorType4, CheckBox4.State=cbUnChecked);
        TalkSend(TypedText5, FontEffectType5, FontColorType5, CheckBox5.State=cbUnChecked);
        TalkSend(TypedText6, FontEffectType6, FontColorType6, CheckBox6.State=cbUnChecked);
      end;
    end;

    //************************************************************************//

    begin
      SetUpScript;
      ActivateClient;
      LoginPlayer;
      repeat
        Talk;
      until((IsFKeyDown(2))or(not(LoggedIn)));
      ProgReport;
      Status('Done');
      Alert('Now you must copy your Progress Report and post it on the thread your downloaded Typo Terror!'+chr(13)+chr(13)+'Do this Within 24 Hours!', 'Done', 0);
    end.



    begging ANYONE who can tell me what is wrong

  2. #2
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    edit : I think because when you free the form you loose the information such as edit1.text you would have to use another variable

    so somewhere BEFORE the form is freed you may have to do like ex.
    SCAR Code:
    var
    E1T, E2T : string;

    SCAR Code:
    E1T := Edit1.Text;
    E2T : = Edit2.Text;

    then put

    SCAR Code:
    MistakeChanceNum := E1T;
      CorrectMistakeChanceNum := E2T;

    in your procedure.
    the only bad thing is you have to do this with ALL 25 variables..

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. annoying error..
    By faster789 in forum OSR Help
    Replies: 10
    Last Post: 04-01-2008, 04:18 AM
  2. sum annoying error plz help..
    By faster789 in forum OSR Help
    Replies: 6
    Last Post: 03-29-2008, 04:11 PM
  3. Annoying error
    By Cazax in forum OSR Help
    Replies: 3
    Last Post: 03-21-2008, 09:11 PM

Posting Permissions

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