I need help to fix this error
[Runtime Error] : Could not call proc in line 164 in script
I will pm anyone who wishes to help
Printable View
I need help to fix this error
[Runtime Error] : Could not call proc in line 164 in script
I will pm anyone who wishes to help
Do you call
SetupSRL; in your main loop?
What's on/around that line? You're giving one of the most vague error messages there are.
sorry about that :(
here it is
Code:{=========================================================================]
[ RichTalk ]
[ Version: 2.2 ]
[=========================================================================]
| Description: |
| A Macro that automaticly talks for you |
[=========================================================================]
[Setup: Just click play, fill in the the form and away you go. To stop ]
[ the script press F10. ]
[=========================================================================]
[Version: ]
[1.0- Worked out a basic script ]
[1.1- Got it to say five different things ]
[1.2- Got it to say those things with the click of an F button ]
[1.3- Made it type humanly ]
[1.4- Added perfect wait ]
[1.5- Added forms-- that work ;-) Thanks to Mad cows form tutorial! ]
[1.6- Added writing effects to the form ]
[1.7- Added a decent progress report ]
[1.8- Added built in save feature ]
[1.9- Added a color to the form....not to much this time...lol ]
[2.0- Added antiban--although you wont need it-- :-) if you do got to ]
[---- line 142 ]
[2.1- Made it only work when RS is loaded up and added a ]
[---- sound when someone trades with you! ]
[2.2- Made a few tweaks and it is so much better!! ]
[2.3- Better Debug ]
[2.4- Auth System added ]
[=========================================================================]
[Future Updates: Not sure what to update, but there will be updates!! ]
[------If there is something you wish for me to update please tell me-----]
[=========================================================================]
[Notes: This is my best piece of work yet! its foolproof! ]
[=========================================================================}
program RichTalk;
const
RandWait = 100;
MainWait = 50;
var
AuthForm : TForm;
Label100 : TLabel;
AuthEdit : TEdit;
Button1000 : TButton;
var
debugresult : string;
var
frmDesign100 : TForm;
Memo10 : TMemo;
Button100 : TButton;
Button200 : TButton;
Button300 : TButton;
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
Button1 : TButton;
ComboBox1 : TComboBox;
ComboBox2 : TComboBox;
ComboBox3 : TComboBox;
ComboBox4 : TComboBox;
ComboBox5 : TComboBox;
ComboBox6 : TComboBox;
ComboBox7 : TComboBox;
ComboBox8 : TComboBox;
ComboBox9 : TComboBox;
ComboBox10 : TComboBox;
cbUse1,cbUse2,cbUse3,cbUse4,cbUse5,cbSound : TCheckBox;
setup,rich1,rich2,rich3,rich4,rich5 : Boolean;
x,y : Integer;
sentence1use, sentence2use, sentence3use, sentence4use, sentence5use, soundtradeuse : Boolean;
var
times, I, WaitT : integer;
var
effect1F2, effect1F4, effect1F6, effect1F8, effect1F9,
effect2F2, effect2F4, effect2F6, effect2F8, effect2F9,
richmessage1, richmessage2, richmessage3, richmessage4, richmessage5 : String;
procedure AuthClick(sender: TObject);
begin
if (authedit.text = '123456789') then
begin
AuthForm.Caption:= AuthForm.Caption + '.';
AuthForm.ModalResult:= mrOk;
end else
end;
procedure AuthFormAuthForm;
begin
AuthForm := CreateForm;
AuthForm.Left := 250;
AuthForm.Top := 114;
AuthForm.Width := 245;
AuthForm.Height := 174;
AuthForm.Caption := 'Authorize';
AuthForm.Color := clBtnFace;
AuthForm.Font.Color := clWindowText;
AuthForm.Font.Height := -11;
AuthForm.Font.Name := 'MS Sans Serif';
AuthForm.Font.Style := [];
AuthForm.ShowHint := True;
AuthForm.Visible := True;
AuthForm.PixelsPerInch := 96;
Label100 := TLabel.Create(AuthForm);
Label100.Parent := AuthForm;
Label100.Left := 50;
Label100.Top := 23;
Label100.Width := 138;
Label100.Height := 13;
Label100.Caption := 'Enter your authorization code';
AuthEdit := TEdit.Create(AuthForm);
AuthEdit.Parent := AuthForm;
AuthEdit.Left := 57;
AuthEdit.Top := 56;
AuthEdit.Width := 121;
AuthEdit.Height := 21;
AuthEdit.HelpContext := 10;
AuthEdit.TabOrder := 8;
Button1000 := TButton.Create(AuthForm);
Button1000.Parent := AuthForm;
Button1000.OnClick := @AuthClick;
Button1000.Left := 78;
Button1000.Top := 95;
Button1000.Width := 75;
Button1000.Height := 25;
Button1000.Caption := 'Authorize';
Button1000.TabOrder := 9;
end;
procedure SafeAuthForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('AuthFormAuthForm', v);
end;
procedure ShowAuthFormModal;
begin
AuthForm.ShowModal;
end;
procedure SafeShowAuthFormModal;
var v: TVariantArray;
begin setarraylength(V, 0);
ThreadSafeCall('ShowAuthFormModal', v);
end;
procedure DebugClick(sender: TObject);
begin
frmDesign100.Caption:= frmDesign100.Caption + '.';
frmDesign100.ModalResult:= mrOk;
end;
procedure DebugClick1(sender: TObject);
begin
Memo10.Lines.Add('');
Memo10.Lines.Add('Script Credits:');
Memo10.Lines.Add('r!ch!e');// add your script credits here
Memo10.Lines.Add('Mad Cow--For his form tutorial');
end;
procedure DebugClick2(sender: TObject);
begin
Memo10.Lines.Add('');
Memo10.Lines.Add('Debug Credits:');
Memo10.Lines.Add('r!ch!e');// it would be appreciated if this was left here. Want your name in here. Contact me with improvements.
end;
procedure DebugForm;
begin
frmDesign100 := CreateForm;
frmDesign100.Left := 250;
frmDesign100.Top := 114;
frmDesign100.Width := 696;
frmDesign100.Height := 480;
frmDesign100.Caption := 'Debug';
frmDesign100.Color := clBtnFace;
frmDesign100.Font.Color := clWindowText;
frmDesign100.Font.Height := -11;
frmDesign100.Font.Name := 'MS Sans Serif';
frmDesign100.Font.Style := [];
frmDesign100.Visible := False;
frmDesign100.PixelsPerInch := 96;
Memo10 := TMemo.Create(frmDesign100);
Memo10.Parent := frmDesign100;
Memo10.Left := 27;
Memo10.Top := 26;
Memo10.Width := 480;
Memo10.Height := 398;
Memo10.Lines.Add('Debug:');
Memo10.Lines.Add(+debugresult);
Memo10.TabOrder := 8;
Button100 := TButton.Create(frmDesign100);
Button100.Parent := frmDesign100;
Button100.OnClick := @DebugClick;
Button100.Left := 524;
Button100.Top := 26;
Button100.Width := 85;
Button100.Height := 25;
Button100.Caption := 'Ok';
Button100.TabOrder := 9;
Button200 := TButton.Create(frmDesign100);
Button200.Parent := frmDesign100;
Button200.OnClick := @DebugClick1;
Button200.Left := 524;
Button200.Top := 84;
Button200.Width := 85;
Button200.Height := 25;
Button200.Caption := 'Script Credits';
Button200.TabOrder := 10;
Button300 := TButton.Create(frmDesign100);
Button300.Parent := frmDesign100;
Button300.OnClick := @DebugClick2;
Button300.Left := 524;
Button300.Top := 142;
Button300.Width := 85;
Button300.Height := 25;
Button300.Caption := 'Debug Credits';
Button300.TabOrder := 11;
end;
procedure SafeDebugForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('DebugForm', v);
end;
procedure ShowDebugFormModal;
begin
frmDesign100.ShowModal;
end;
procedure SafeShowDebugFormModal;
var v: TVariantArray;
begin setarraylength(V, 0);
ThreadSafeCall('ShowDebugFormModal', v);
end;
procedure savesets1;
begin
If(sentence1use)then SaveSetting('TextSaver','sentence1use','true') else SaveSetting('TextSaver','sentence1use','false');
If(sentence2use)then SaveSetting('TextSaver','sentence2use','true') else SaveSetting('TextSaver','sentence2use','false');
If(sentence3use)then SaveSetting('TextSaver','sentence3use','true') else SaveSetting('TextSaver','sentence3use','false');
If(sentence4use)then SaveSetting('TextSaver','sentence4use','true') else SaveSetting('TextSaver','sentence4use','false');
If(sentence5use)then SaveSetting('TextSaver','sentence5use','true') else SaveSetting('TextSaver','sentence5use','false');
If(soundtradeuse)then SaveSetting('TextSaver','soundtradeuse','true') else SaveSetting('TextSaver','soundtradeuse','false');
end;
procedure loadsets1;
begin
if(LoadSetting('TextSaver','sentence1use')='true') then sentence1use:=true;
if(LoadSetting('TextSaver','sentence2use')='true') then sentence2use:=true;
if(LoadSetting('TextSaver','sentence3use')='true') then sentence3use:=true;
if(LoadSetting('TextSaver','sentence4use')='true') then sentence4use:=true;
if(LoadSetting('TextSaver','sentence5use')='true') then sentence5use:=true;
if(LoadSetting('TextSaver','soundtradeuse')='true') then soundtradeuse:=true;
end;
procedure ButtonClick(sender: TObject);
begin
if(cbuse1.State = cbChecked)or(cbuse2.State = cbChecked)or(cbuse3.State = cbChecked)or(cbuse4.State = cbChecked)or(cbuse5.State = cbChecked)then
begin
if(FindWindowBySize(766,504))then
begin
SetUp:= True;
frmDesign.ModalResult:= mrOk;
ActivateClient;
sentence1use := cbUse1.State;
sentence2use := cbUse2.State;
sentence3use := cbUse3.State;
sentence4use := cbUse4.State;
sentence5use := cbUse5.State;
soundtradeuse := cbSound.State;
savesets1;
end else
Writeln('Please load RuneScape..');
end else
Writeln('You must choose at least one sentence to use');
end;
Procedure SendMSG(Msg: String);
begin
I:= 1;
repeat
WaitT:= MainWait+random(RandWait);
SendKeys(StrGet(Msg, I));
I:= I + 1;
wait(WaitT);
until(I>Length(Msg));
SendKeys(chr(13));
end;
procedure InitForm;
begin
loadsets1;
GetApplication.Title := 'RichTalk v.2.2';//just a note. for antiban protection change this to winamp
GetSelf.Caption := 'RichTalk v.2.2'; //and this to winamp
frmDesign := CreateForm;
frmDesign.Left := 277;
frmDesign.Top := 117;
frmDesign.Width := 734;
frmDesign.Height := 353;
frmDesign.Caption := 'RichTalk Input';
frmDesign.Color := clAqua;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 13;
Label1.Top := 39;
Label1.Width := 61;
Label1.Height := 13;
Label1.Caption := 'F2 Message:';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 14;
Label2.Top := 82;
Label2.Width := 61;
Label2.Height := 13;
Label2.Caption := 'F4 Message:';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 13;
Label3.Top := 120;
Label3.Width := 61;
Label3.Height := 13;
Label3.Caption := 'F6 Message:';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 13;
Label4.Top := 166;
Label4.Width := 61;
Label4.Height := 13;
Label4.Caption := 'F8 Message:';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 12;
Label5.Top := 214;
Label5.Width := 61;
Label5.Height := 13;
Label5.Caption := 'F9 Message:';
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 350;
Label6.Top := 14;
Label6.Width := 63;
Label6.Height := 13;
Label6.Caption := 'Effect Style 1';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 514;
Label7.Top := 16;
Label7.Width := 63;
Label7.Height := 13;
Label7.Caption := 'Effect Style 2';
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 212;
Label8.Top := 40;
Label8.Width := 94;
Label8.Height := 13;
Label8.Caption := 'Select Your Effects!';
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 212;
Label9.Top := 81;
Label9.Width := 94;
Label9.Height := 13;
Label9.Caption := 'Select Your Effects!';
Label10 := TLabel.Create(frmDesign);
Label10.Parent := frmDesign;
Label10.Left := 213;
Label10.Top := 123;
Label10.Width := 94;
Label10.Height := 13;
Label10.Caption := 'Select Your Effects!';
Label11 := TLabel.Create(frmDesign);
Label11.Parent := frmDesign;
Label11.Left := 212;
Label11.Top := 166;
Label11.Width := 94;
Label11.Height := 13;
Label11.Caption := 'Select Your Effects!';
Label12 := TLabel.Create(frmDesign);
Label12.Parent := frmDesign;
Label12.Left := 213;
Label12.Top := 215;
Label12.Width := 94;
Label12.Height := 13;
Label12.Caption := 'Select Your Effects!';
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 76;
Edit1.Top := 35;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := LoadSetting('TextSaver', 'F2Text');
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 76;
Edit2.Top := 75;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit2.Text := LoadSetting('TextSaver', 'F4Text');
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 76;
Edit3.Top := 116;
Edit3.Width := 121;
Edit3.Height := 21;
Edit3.TabOrder := 10;
Edit3.Text := LoadSetting('TextSaver', 'F6Text');
Edit4 := TEdit.Create(frmDesign);
Edit4.Parent := frmDesign;
Edit4.Left := 76;
Edit4.Top := 162;
Edit4.Width := 121;
Edit4.Height := 21;
Edit4.TabOrder := 11;
Edit4.Text := LoadSetting('TextSaver', 'F8Text');
Edit5 := TEdit.Create(frmDesign);
Edit5.Parent := frmDesign;
Edit5.Left := 76;
Edit5.Top := 209;
Edit5.Width := 121;
Edit5.Height := 21;
Edit5.TabOrder := 12;
Edit5.Text := LoadSetting('TextSaver', 'F9Text');
cbUse1 := TCheckBox.Create(frmDesign);
cbUse1.Parent := frmDesign;
cbUse1.Left := 625;
cbUse1.Top := 37;
cbUse1.Width := 97;
cbUse1.Height := 17;
cbUse1.Caption := 'Use Sentence 1';
cbUse1.TabOrder := 24;
cbUse1.checked := sentence1use;
cbUse2 := TCheckBox.Create(frmDesign);
cbUse2.Parent := frmDesign;
cbUse2.Left := 625;
cbUse2.Top := 77;
cbUse2.Width := 97;
cbUse2.Height := 17;
cbUse2.Caption := 'Use Sentence 2';
cbUse2.TabOrder := 25;
cbUse2.checked := sentence2use;
cbUse3 := TCheckBox.Create(frmDesign);
cbUse3.Parent := frmDesign;
cbUse3.Left := 625;
cbUse3.Top := 117;
cbUse3.Width := 97;
cbUse3.Height := 17;
cbUse3.Caption := 'Use Sentence 3';
cbUse3.TabOrder := 26;
cbUse3.checked := sentence3use;
cbUse4 := TCheckBox.Create(frmDesign);
cbUse4.Parent := frmDesign;
cbUse4.Left := 625;
cbUse4.Top := 167;
cbUse4.Width := 97;
cbUse4.Height := 17;
cbUse4.Caption := 'Use Sentence 4';
cbUse4.TabOrder := 27;
cbUse4.checked := sentence4use;
cbUse5 := TCheckBox.Create(frmDesign);
cbUse5.Parent := frmDesign;
cbUse5.Left := 625;
cbUse5.Top := 210;
cbUse5.Width := 97;
cbUse5.Height := 17;
cbUse5.Caption := 'Use Sentence 5';
cbUse5.TabOrder := 28;
cbUse5.checked := sentence5use;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick := @ButtonClick;
Button1.Left := 354;
Button1.Top := 272;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Start!';
Button1.TabOrder := 13;
cbSound := TCheckBox.Create(frmDesign);
cbSound.Parent := frmDesign;
cbSound.State := True;
cbSound.Left := 76;
cbSound.Top := 260;
cbSound.Width := 184;
cbSound.Height := 17;
cbSound.Caption := 'Play sound when someone trades?';
cbSound.TabOrder := 29;
cbSound.checked := soundtradeuse;
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 311;
ComboBox1.Top := 36;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 14;
ComboBox1.Text := LoadSetting('TextSaver', 'F2effect1');
ComboBox1.Items.Add('');
ComboBox1.Items.Add('Flash1:');
ComboBox1.Items.Add('Flash2:');
ComboBox1.Items.Add('Flash3:');
ComboBox1.Items.Add('Glow1:');
ComboBox1.Items.Add('Glow2:');
ComboBox1.Items.Add('Glow3:');
ComboBox1.Items.Add('Red:');
ComboBox1.Items.Add('Green:');
ComboBox1.Items.Add('Purple:');
ComboBox1.Items.Add('White:');
ComboBox1.Items.Add('Cyan:');
ComboBox2 := TComboBox.Create(frmDesign);
ComboBox2.Parent := frmDesign;
ComboBox2.Left := 309;
ComboBox2.Top := 77;
ComboBox2.Width := 145;
ComboBox2.Height := 21;
ComboBox2.ItemHeight := 13;
ComboBox2.TabOrder := 15;
ComboBox2.Text := LoadSetting('TextSaver', 'F4effect1');
ComboBox2.Items.Add('');
ComboBox2.Items.Add('Flash1:');
ComboBox2.Items.Add('Flash2:');
ComboBox2.Items.Add('Flash3:');
ComboBox2.Items.Add('Glow1:');
ComboBox2.Items.Add('Glow2:');
ComboBox2.Items.Add('Glow3:');
ComboBox2.Items.Add('Red:');
ComboBox2.Items.Add('Green:');
ComboBox2.Items.Add('Purple:');
ComboBox2.Items.Add('White:');
ComboBox2.Items.Add('Cyan:');
ComboBox3 := TComboBox.Create(frmDesign);
ComboBox3.Parent := frmDesign;
ComboBox3.Left := 309;
ComboBox3.Top := 117;
ComboBox3.Width := 145;
ComboBox3.Height := 21;
ComboBox3.ItemHeight := 13;
ComboBox3.TabOrder := 16;
ComboBox3.Text := LoadSetting('TextSaver', 'F6effect1');
ComboBox3.Items.Add('');
ComboBox3.Items.Add('Flash1:');
ComboBox3.Items.Add('Flash2:');
ComboBox3.Items.Add('Flash3:');
ComboBox3.Items.Add('Glow1:');
ComboBox3.Items.Add('Glow2:');
ComboBox3.Items.Add('Glow3:');
ComboBox3.Items.Add('Red:');
ComboBox3.Items.Add('Green:');
ComboBox3.Items.Add('Purple:');
ComboBox3.Items.Add('White:');
ComboBox3.Items.Add('Cyan:');
ComboBox4 := TComboBox.Create(frmDesign);
ComboBox4.Parent := frmDesign;
ComboBox4.Left := 309;
ComboBox4.Top := 165;
ComboBox4.Width := 145;
ComboBox4.Height := 21;
ComboBox4.ItemHeight := 13;
ComboBox4.TabOrder := 17;
ComboBox4.Text := LoadSetting('TextSaver', 'F8effect1');
ComboBox4.Items.Add('');
ComboBox4.Items.Add('Flash1:');
ComboBox4.Items.Add('Flash2:');
ComboBox4.Items.Add('Flash3:');
ComboBox4.Items.Add('Glow1:');
ComboBox4.Items.Add('Glow2:');
ComboBox4.Items.Add('Glow3:');
ComboBox4.Items.Add('Red:');
ComboBox4.Items.Add('Green:');
ComboBox4.Items.Add('Purple:');
ComboBox4.Items.Add('White:');
ComboBox4.Items.Add('Cyan:');
ComboBox5 := TComboBox.Create(frmDesign);
ComboBox5.Parent := frmDesign;
ComboBox5.Left := 309;
ComboBox5.Top := 211;
ComboBox5.Width := 145;
ComboBox5.Height := 21;
ComboBox5.ItemHeight := 13;
ComboBox5.TabOrder := 18;
ComboBox5.Text := LoadSetting('TextSaver', 'F9effect1');
ComboBox5.Items.Add('');
ComboBox5.Items.Add('Flash1:');
ComboBox5.Items.Add('Flash2:');
ComboBox5.Items.Add('Flash3:');
ComboBox5.Items.Add('Glow1:');
ComboBox5.Items.Add('Glow2:');
ComboBox5.Items.Add('Glow3:');
ComboBox5.Items.Add('Red:');
ComboBox5.Items.Add('Green:');
ComboBox5.Items.Add('Purple:');
ComboBox5.Items.Add('White:');
ComboBox5.Items.Add('Cyan:');
ComboBox6 := TComboBox.Create(frmDesign);
ComboBox6.Parent := frmDesign;
ComboBox6.Left := 474;
ComboBox6.Top := 37;
ComboBox6.Width := 145;
ComboBox6.Height := 21;
ComboBox6.ItemHeight := 13;
ComboBox6.TabOrder := 19;
ComboBox6.Text := LoadSetting('TextSaver', 'F2effect2');
ComboBox6.Items.Add('');
ComboBox6.Items.Add('Scroll:');
ComboBox6.Items.Add('Shake:');
ComboBox6.Items.Add('Slide:');
ComboBox6.Items.Add('Wave:');
ComboBox6.Items.Add('Wave2:');
ComboBox7 := TComboBox.Create(frmDesign);
ComboBox7.Parent := frmDesign;
ComboBox7.Left := 473;
ComboBox7.Top := 77;
ComboBox7.Width := 145;
ComboBox7.Height := 21;
ComboBox7.ItemHeight := 13;
ComboBox7.TabOrder := 20;
ComboBox7.Text := LoadSetting('TextSaver', 'F4effect2');
ComboBox7.Items.Add('');
ComboBox7.Items.Add('Scroll:');
ComboBox7.Items.Add('Shake:');
ComboBox7.Items.Add('Slide:');
ComboBox7.Items.Add('Wave:');
ComboBox7.Items.Add('Wave2:');
ComboBox8 := TComboBox.Create(frmDesign);
ComboBox8.Parent := frmDesign;
ComboBox8.Left := 473;
ComboBox8.Top := 117;
ComboBox8.Width := 145;
ComboBox8.Height := 21;
ComboBox8.ItemHeight := 13;
ComboBox8.TabOrder := 21;
ComboBox8.Text := LoadSetting('TextSaver', 'F6effect2');
ComboBox8.Items.Add('');
ComboBox8.Items.Add('Scroll:');
ComboBox8.Items.Add('Shake:');
ComboBox8.Items.Add('Slide:');
ComboBox8.Items.Add('Wave:');
ComboBox8.Items.Add('Wave2:');
ComboBox9 := TComboBox.Create(frmDesign);
ComboBox9.Parent := frmDesign;
ComboBox9.Left := 473;
ComboBox9.Top := 167;
ComboBox9.Width := 145;
ComboBox9.Height := 21;
ComboBox9.ItemHeight := 13;
ComboBox9.TabOrder := 22;
ComboBox9.Text := LoadSetting('TextSaver', 'F8effect2');
ComboBox9.Items.Add('');
ComboBox9.Items.Add('Scroll:');
ComboBox9.Items.Add('Shake:');
ComboBox9.Items.Add('Slide:');
ComboBox9.Items.Add('Wave:');
ComboBox9.Items.Add('Wave2:');
ComboBox10 := TComboBox.Create(frmDesign);
ComboBox10.Parent := frmDesign;
ComboBox10.Left := 473;
ComboBox10.Top := 210;
ComboBox10.Width := 145;
ComboBox10.Height := 21;
ComboBox10.ItemHeight := 13;
ComboBox10.TabOrder := 23;
ComboBox10.Text := LoadSetting('TextSaver', 'F9effect2');
ComboBox10.Items.Add('');
ComboBox10.Items.Add('Scroll:');
ComboBox10.Items.Add('Shake:');
ComboBox10.Items.Add('Slide:');
ComboBox10.Items.Add('Wave:');
ComboBox10.Items.Add('Wave2:');
end;
procedure SafeInitForm;
var v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure SetupAll;
begin
richmessage1 := Edit1.Text;
richmessage2 := Edit2.Text;
richmessage3 := Edit3.Text;
richmessage4 := Edit4.Text;
richmessage5 := Edit5.Text;
if (ComboBox1.Text <> '') then
begin
effect1F2 := ComboBox1.Text;
end;
if (ComboBox2.Text <> '') then
begin
effect1F4 := ComboBox2.Text;
end;
if (ComboBox3.Text <> '') then
begin
effect1F6 := ComboBox3.Text;
end;
if (ComboBox4.Text <> '') then
begin
effect1F8 := ComboBox4.Text;
end;
if (ComboBox5.Text <> '') then
begin
effect1F9 := ComboBox5.Text;
end;
if (ComboBox6.Text <> '') then
begin
effect2F2 := ComboBox6.Text;
end;
if (ComboBox7.Text <> '') then
begin
effect2F4 := ComboBox7.Text;
end;
if (ComboBox8.Text <> '') then
begin
effect2F6 := ComboBox8.Text;
end;
if (ComboBox9.Text <> '') then
begin
effect2F8 := ComboBox9.Text;
end;
if (ComboBox10.Text <> '') then
begin
effect2F9 := ComboBox10.Text;
end;
SaveSetting('TextSaver', 'F2text', Edit1.Text);
SaveSetting('TextSaver', 'F4Text', Edit2.Text);
SaveSetting('TextSaver', 'F6Text', Edit3.Text);
SaveSetting('TextSaver', 'F8Text', Edit4.Text);
SaveSetting('TextSaver', 'F9Text', Edit5.Text);
SaveSetting('TextSaver', 'F2Effect1', ComboBox1.Text);
SaveSetting('TextSaver', 'F4Effect1', ComboBox2.Text);
SaveSetting('TextSaver', 'F6Effect1', ComboBox3.Text);
SaveSetting('TextSaver', 'F8Effect1', ComboBox4.Text);
SaveSetting('TextSaver', 'F9Effect1', ComboBox5.Text);
SaveSetting('TextSaver', 'F2Effect2', ComboBox6.Text);
SaveSetting('TextSaver', 'F4Effect2', ComboBox7.Text);
SaveSetting('TextSaver', 'F6Effect2', ComboBox8.Text);
SaveSetting('TextSaver', 'F8Effect2', ComboBox9.Text);
Writeln('Your setting are saved!');
end;
procedure ProgressReport;
begin
ClearDebug;
WriteLn('--|||||||||||||||||||||||||||||||||||||||||--');
WriteLn('|| Thank You For using my script ||');
WriteLn('|| Feedback is appreciated ||');
WriteLn('||-----------------------------------------||');
WriteLn('|| Progress Report for RichTalk ||');
WriteLn('|| Talked: ' + inttostr(times) + ' times. ||');
WriteLn('--|||||||||||||||||||||||||||||||||||||||||--');
end;
procedure F2Message2;
begin
SendMSG(effect1F2+effect2F2+richmessage1);
times := times + 1;
wait(150);
end;
procedure F2Message;
begin
if (IsFKeyDown(2)) then
begin
F2Message2;
end;
end;
procedure F4Message2;
begin
SendMSG(effect1F4+effect2F4+richmessage2);
times := times + 1;
wait(150);
end;
procedure F4Message;
begin
if (IsFKeyDown(4)) then
begin
F4Message2;
end;
end;
procedure F6Message2;
begin
SendMSG(effect1F6+effect2F6+richmessage3);
times := times + 1;
wait(150);
end;
procedure F6Message;
begin
if (IsFKeyDown(6)) then
begin
F6Message2;
end;
end;
procedure F8Message2;
begin
SendMSG(effect1F8+effect2F8+richmessage4);
times := times + 1;
wait(150);
end;
procedure F8Message;
begin
if (IsFKeyDown(8)) then
begin
F8Message2
end;
end;
procedure F9Message2;
begin
SendMSG(effect1F9+effect2F9+richmessage5);
times := times + 1;
wait(150);
end;
procedure F9Message;
begin
if (IsFKeyDown(9)) then
begin
F9Message2;
end;
end;
Procedure DeclareVar;
begin
if(cbuse1.State = cbChecked)then
rich1 := true;
if(cbuse2.State = cbChecked)then
rich2 := true;
if(cbuse3.State = cbChecked)then
rich3 := true;
if(cbuse4.State = cbChecked)then
rich4 := true;
if(cbuse5.State = cbChecked)then
rich5 := true;
end;
procedure debug123;
begin
debugresult:='Talked: ' + inttostr(times) + ' times.';
SafeDebugForm;
SafeShowDebugFormModal;
end;
begin
SafeInitForm;
SafeShowFormModal;
SetupAll;
DeclareVar;
if(SetUp = True)then
ShowAuthFormModal;
SafeShowAuthFormModal;
repeat
if(rich1=true)then
begin
F2Message;
if(rich2=true)then
begin
F4Message;
if(rich3=true)then
begin
F6Message;
if(rich4=true)then
begin
F8Message;
if(rich5=true)then
begin
F9Message;
if(cbSound.State = cbChecked)and(FindColor(x,y,8388736,25,425,60,430))then
begin
PlaySound('C:\WINDOWS\Media\chimes.wav')
wait(300);
PlaySound('C:\WINDOWS\Media\chimes.wav')
wait(300);
PlaySound('C:\WINDOWS\Media\chimes.wav')
wait(300);
PlaySound('C:\WINDOWS\Media\chimes.wav')
wait(300);
PlaySound('C:\WINDOWS\Media\chimes.wav')
wait(300);
PlaySound('C:\WINDOWS\Media\chimes.wav')
wait(300);
end;
end;
end;
end;
end;
end;
until(isFKeyDown(10))
ProgressReport;
debug123;
end.
Oh. The offending line is a form related method. I can't help you with that.
Your AuthForm is causing an error.
By the way, at line 105:
if (authedit.text = '123456789') then
If that's meant to be your authorization system, anyone can go and just look for the auth code. Kinda makes it pointless.
Ooh, how do you obfuscate? I'd like to know that.
i think i know whats wrong,
did you set FrmDesign.Visible to false
when you try to ThreadSafeCall the procedure that shows the form, you get this error,
if that doesnt work, check if your procedures that are called when a button is clicked have the arugments (sender:TObject);
download an obfuscator from http://www.impsoft.net/tp/index.php?...tpmod;dl=item2