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
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
Scripts: AIOCurser !, Tea Stall Thiever !, Flax Picker !
Other: Objective Functions, Scarduku
Tutorials: How to create a plugin for Simba, [VB.NET] Using My.Settings, [Photoshop] Basic Abstract Art
Outdated: m!ne v1.00 [STATS]
Do you call
SetupSRL; in your main loop?

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.
Scripts: AIOCurser !, Tea Stall Thiever !, Flax Picker !
Other: Objective Functions, Scarduku
Tutorials: How to create a plugin for Simba, [VB.NET] Using My.Settings, [Photoshop] Basic Abstract Art
Outdated: m!ne v1.00 [STATS]

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.
Scripts: AIOCurser !, Tea Stall Thiever !, Flax Picker !
Other: Objective Functions, Scarduku
Tutorials: How to create a plugin for Simba, [VB.NET] Using My.Settings, [Photoshop] Basic Abstract Art
Outdated: m!ne v1.00 [STATS]

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);
Join the Official SRL IRC channel. Learn how to Here.
download an obfuscator from http://www.impsoft.net/tp/index.php?...tpmod;dl=item2
Scripts: AIOCurser !, Tea Stall Thiever !, Flax Picker !
Other: Objective Functions, Scarduku
Tutorials: How to create a plugin for Simba, [VB.NET] Using My.Settings, [Photoshop] Basic Abstract Art
Outdated: m!ne v1.00 [STATS]
Scripts: AIOCurser !, Tea Stall Thiever !, Flax Picker !
Other: Objective Functions, Scarduku
Tutorials: How to create a plugin for Simba, [VB.NET] Using My.Settings, [Photoshop] Basic Abstract Art
Outdated: m!ne v1.00 [STATS]
There are currently 1 users browsing this thread. (0 members and 1 guests)