Results 1 to 11 of 11

Thread: Help....anyone

  1. #1
    Join Date
    Oct 2006
    Posts
    500
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help....anyone

    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

  2. #2
    Join Date
    Jul 2006
    Location
    NY
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Do you call
    SetupSRL; in your main loop?

  3. #3
    Join Date
    Sep 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What's on/around that line? You're giving one of the most vague error messages there are.


    Wow. I've been away quite a while. Real life, yea, way unpredictable. Sorry, y'all, if I've caused any inconvenience.

  4. #4
    Join Date
    Oct 2006
    Posts
    500
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  5. #5
    Join Date
    Sep 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.


    Wow. I've been away quite a while. Real life, yea, way unpredictable. Sorry, y'all, if I've caused any inconvenience.

  6. #6
    Join Date
    Oct 2006
    Posts
    500
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh well thnx anyway

    Quote Originally Posted by I Pick Axes View Post
    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.
    i was going to obfuscate the script

  7. #7
    Join Date
    Sep 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ooh, how do you obfuscate? I'd like to know that.


    Wow. I've been away quite a while. Real life, yea, way unpredictable. Sorry, y'all, if I've caused any inconvenience.

  8. #8
    Join Date
    Aug 2006
    Location
    London
    Posts
    2,021
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  9. #9
    Join Date
    Oct 2006
    Posts
    500
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by I Pick Axes View Post
    Ooh, how do you obfuscate? I'd like to know that.
    download an obfuscator from http://www.impsoft.net/tp/index.php?...tpmod;dl=item2

  10. #10
    Join Date
    Oct 2006
    Posts
    500
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Yakman View Post
    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);
    Ok FrmDesign.Visible is set to false. smae error.

    Tried different methods eg. SafeDebugForm, AuthorizationForm, same error

    all the button clicks are correct

    ---------------this error is really anoying me------------------

  11. #11
    Join Date
    Aug 2006
    Location
    London
    Posts
    2,021
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by r!ch!e View Post
    Ok FrmDesign.Visible is set to false. smae error.
    whats this then?!

    SCAR Code:
    AuthForm.ShowHint := True;
    AuthForm.Visible := True;
    AuthForm.PixelsPerInch := 96;
    Label100 := TLabel.Create(AuthForm);

    i just realised that your script has two forms in it
    Join the Official SRL IRC channel. Learn how to Here.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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