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.