Well I guess I could try to ask you;
I already made this working form;
program PBautotalker;
{.include SRL/SRL.scar}
var
frmDesign : TForm;
ForumNameLabel : TLabel;
ColorLabel : TLabel;
EffectLabel : TLabel;
Message1Label : TLabel;
Message2Label : TLabel;
ForumNameEdit : TEdit;
ColorEdit : TEdit;
Edit2 : TEdit;
EffectEdit : TEdit;
Message1Edit : TEdit;
Message2Edit : TEdit;
StartButton : TButton;
ForumName, Color, Effect, Message1, Message2 : String;
MessagesSent : integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := True;
SRLId:= '';
SRLPassword:= '';
end;
procedure CheckID;
begin
If( SRLID = '' )or( SRLPassword = '' )Then
Begin
ClearDebug;
Writeln('You forgot to fill in your SRLId and SRLPassword !');
Writeln('If you do not have a SRLId, check the tutorials section');
Writeln('Remember, I helped you out with script, now help me =)');
Writeln('Terminating the script, please rerun when you have a SRLId');
TerminateScript;
end;
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 ClickButton(sender: TObject);
begin
Writeln('Thnx for using PBautotalker!');
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
end;
Procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 98;
frmDesign.Width := 401;
frmDesign.Height := 277;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.ShowHint := True;
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
ForumNameLabel := TLabel.Create(frmDesign);
ForumNameLabel.Parent := frmDesign;
ForumNameLabel.Left := 32;
ForumNameLabel.Top := 32;
ForumNameLabel.Width := 57;
ForumNameLabel.Height := 13;
ForumNameLabel.Hint := 'Fill out your SRL-forum username here';
ForumNameLabel.Caption := 'ForumName';
ForumNameLabel.ParentShowHint := False;
ForumNameLabel.ShowHint := False;
ColorLabel := TLabel.Create(frmDesign);
ColorLabel.Parent := frmDesign;
ColorLabel.Left := 32;
ColorLabel.Top := 64;
ColorLabel.Width := 65;
ColorLabel.Height := 13;
ColorLabel.Hint := 'For the possible color'#39's check my thread';
ColorLabel.Caption := 'Color';
ColorLabel.ParentShowHint := False;
ColorLabel.ShowHint := False;
EffectLabel := TLabel.Create(frmDesign);
EffectLabel.Parent := frmDesign;
EffectLabel.Left := 32;
EffectLabel.Top := 96;
EffectLabel.Width := 65;
EffectLabel.Height := 13;
EffectLabel.Hint := 'For the possible effect'#39's check my thread';
EffectLabel.Caption := 'Effect';
EffectLabel.ParentShowHint := False;
EffectLabel.ShowHint := False;
Message1Label := TLabel.Create(frmDesign);
Message1Label.Parent := frmDesign;
Message1Label.Left := 32;
Message1Label.Top := 128;
Message1Label.Width := 85;
Message1Label.Height := 13;
Message1Label.Hint := 'Fill out message 1 here';
Message1Label.Caption := 'Message1';
Message1Label.ParentShowHint := False;
Message1Label.ShowHint := False;
Message2Label := TLabel.Create(frmDesign);
Message2Label.Parent := frmDesign;
Message2Label.Left := 32;
Message2Label.Top := 160;
Message2Label.Width := 85;
Message2Label.Height := 13;
Message2Label.Hint := 'Fill out message 2 here';
Message2Label.Caption := 'Message2';
Message2Label.ParentShowHint := False;
Message2Label.ShowHint := False;
ForumNameEdit := TEdit.Create(frmDesign);
ForumNameEdit.Parent := frmDesign;
ForumNameEdit.Left := 128;
ForumNameEdit.Top := 32;
ForumNameEdit.Width := 225;
ForumNameEdit.Height := 21;
ForumNameEdit.Hint := 'Enter your SRL forum'#39's name here';
ForumNameEdit.ParentShowHint := False;
ForumNameEdit.ShowHint := True;
ForumNameEdit.TabOrder := 8;
ColorEdit := TEdit.Create(frmDesign);
ColorEdit.Parent := frmDesign;
ColorEdit.Left := 128;
ColorEdit.Top := 64;
ColorEdit.Width := 121;
ColorEdit.Height := 21;
ColorEdit.Hint := 'For the possible color'#39's check my thread';
ColorEdit.TabOrder := 9;
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 144;
Edit2.Top := 104;
Edit2.Width := 1;
Edit2.Height := 21;
Edit2.TabOrder := 10;
Edit2.Text := 'Edit2';
EffectEdit := TEdit.Create(frmDesign);
EffectEdit.Parent := frmDesign;
EffectEdit.Left := 128;
EffectEdit.Top := 96;
EffectEdit.Width := 121;
EffectEdit.Height := 21;
EffectEdit.Hint := 'For the possible effect'#39's check my thread';
EffectEdit.TabOrder := 11;
Message1Edit := TEdit.Create(frmDesign);
Message1Edit.Parent := frmDesign;
Message1Edit.Left := 128;
Message1Edit.Top := 128;
Message1Edit.Width := 225;
Message1Edit.Height := 21;
Message1Edit.Hint := 'Fill out message 1 here';
Message1Edit.TabOrder := 12;
Message2Edit := TEdit.Create(frmDesign);
Message2Edit.Parent := frmDesign;
Message2Edit.Left := 128;
Message2Edit.Top := 160;
Message2Edit.Width := 225;
Message2Edit.Height := 21;
Message2Edit.Hint := 'Fill out message 2 here';
Message2Edit.TabOrder := 13;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.Left := 264;
StartButton.Top := 64;
StartButton.Width := 89;
StartButton.Height := 49;
StartButton.Hint := 'Start the script ! :)';
StartButton.Caption := 'START';
StartButton.TabOrder := 15;
StartButton.OnClick := @ClickButton;
end;
procedure AntiRandoms; // credits Method; [url]http://www.villavu.com/forum/showthread.php?t=23178[/url]
begin
FindNormalRandoms;
if FindFight then RunTo('N',True);
end;
procedure AntiBan; // credits Method; [url]http://www.villavu.com/forum/showthread.php?t=23178[/url]
begin
case random(100) of
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Mining', False);
3: AlmostLogout;
end;
end;
procedure Talk;
begin
Color := ColorEdit.text;
Effect := EffectEdit.text;
Message1 := Message1Edit.text;
Message2 := Message2Edit.text;
If (not (loggedIn)) then
LoginPlayer;
if(IsFKeyDown(1))then
begin
repeat
wait(1450 + Random(850))
TypeSend(Color + ':' + Effect + ':' + Message1);
MessagesSent:=MessagesSent+1;
ReportVars[0] := ReportVars[0] + 1
Talks:=Talks+1;
SendSRLReport;
FindNormalRandoms;
AntiBan;
until (IsFKeyDown(2))
end;
if(IsFKeyDown(3))then
begin
repeat
wait(1350 + Random(950))
TypeSend(Color + ':' + Effect + ':' + Message2);
MessagesSent:=MessagesSent+1;
ReportVars[0] := ReportVars[0] + 1
Talks:=Talks+1;
SendSRLReport;
FindNormalRandoms;
AntiBan;
until (IsFKeyDown(4))
end;
end;
procedure Proggy;
begin
ForumName := ForumNameEdit.text;
ClearDebug;
Writeln('<><~><><~><><~><><~><><~><><~><><~><><~><><~><><~>');
Writeln('<~> ');
Writeln('<->--PBautotalker was used by ' + ForumName + ' ');
Writeln('<->--PBautotalker sent ' + IntToStr(MessagesSent) + ' messages' + ' ');
Writeln('<->--PBautotalker ran for ' + TimeRunning + ' ');
Writeln('<~> ');
Writeln('<><~><><~><><~><><~><><~><><~><><~><><~><><~><><~>');
SrlRandomsReport;
end;
Procedure Sig;
begin
wait(750 + random(250));
Writeln(' ');
Writeln(' +, ,, ');
Writeln(' :*: *, ');
Writeln(' ,*, +:* ');
Writeln(' ,#:, *,W,+ ');
Writeln(' .@W,, WW. ');
Writeln(' +W@ . * +WW: ');
Writeln(' :WW# , , .WW, ');
Writeln(' ,WW* + ,WW. ');
Writeln(' .WW+ , *:,,,,,,,,,,,,,.::::::+ , ,WW** ');
Writeln(' #WW. ,,+#@WWWWWWWWWWWW*WWWWWWWWWWW@+, ,WWW, ');
Writeln(' ,WW.,: WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW+:+,#W+ ');
Writeln(' *+WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW. ');
Writeln(' +WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW, ');
Writeln(' WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW. ');
Writeln(' #WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW@: ');
Writeln(' ,#WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW* : ');
Writeln(' ,@WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW, . ');
Writeln(' *,,:WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW:, , ');
Writeln(' :, W@WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW , ');
Writeln(' . :WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW: , ');
Writeln(' + ,@WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW . ');
Writeln(' ,WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW: : ');
Writeln(' ,WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW#WW . ');
Writeln(' + #W,WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW+@# , ');
Writeln(' : .@,WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW@:, , ');
Writeln(' * *:WWWWWWWWWWW,WWWWWWWWWWWWWWWWWWW, : ');
Writeln(' , ,#WWWWWWWWWWW:WWWWWWWWWWWWWWWWWWW , ');
Writeln(' , +WWWWWWWWWWWW+WWWWWWWWWWWWWWWWWWWW , ');
Writeln(' .WWWWWWWWWWWWW#WWWWWWW,WWWWWWWWWWWW@ ');
Writeln(' ,#WWWWWWWWWW@WWWWWWWW##WWWWWWWWWWW*, , ');
Writeln(' ,**,:@WWWWWWWW.WWWWWWW*WWWWWWWWW*, .W,, * ');
Writeln(' ,@WW,.W@*+#@@:W:@WWWWWWW+ @+*:+@WW* WWW. . ');
Writeln(' * ,+WW:,,WWWW ,,WWWWWWWWWWW@,#. *WWW,,:WW@, . ');
Writeln(' *,,WWWW#, #*, ,:WWWWWWWWWWWWWW@ ,,:., *WWWW. . ');
Writeln(' + ,WWWWWW:, , WWWWWWWWWWWWWWWW,, , +WWWWWW. . ');
Writeln(' + ,WWWWWWWW: @WWWWWWWWWWWWWWWWW:,*WWWWWWWW: : ');
Writeln(' : ,WWWWWW:W@,@WWWWWWWWWWWWWWWWWWW*:#,WWWWWW: : ');
Writeln(' : ,@WWWWW# ,WWWWWWWWWWWWWWWWWWWWWW.,+WWWWW* + ');
Writeln(' + *WWWWW,+W.WWWWWWWWWWWWWWWWWW*##,WWWWW, # ');
Writeln(' * ,@WWW+,.#WWWWWWWWWWWWWWWWWWW,,,#WW*. ');
Writeln(' ,. WWWWWWW@###@WWWWWWWW, ,, , ');
Writeln(' :, WWWW@,,.+#@WW@#@WWWW, ');
Writeln(' , ,+ , #WWW,*,,,.:. ,WW@ , ');
Writeln(' :, +W+, ,WW,, , , ,WW. ,+ ');
Writeln(' ., :WW: #WW: ** ,*,#W@. ,+ ');
Writeln(' , .WW# ,+WWW*:.., ,,,:#WW@, , ');
Writeln(' . ,@W, WWWWWWWW, WWWWWWWW:, , ');
Writeln(' ,,,WW, +WWWWWWWW@, #WWWWWWWW*, . ');
Writeln(' , .WW,,WWWWWWWWW #WWWWWWWW ');
Writeln(' ,,. :WWWWWWWW *WWWWWWW# ');
Writeln(' . ,WWWWWWW* ,#WWWWWW, . ');
Writeln(' +WWWW#, ,@WWW# , ');
Writeln(' , , @W*, ,*. ');
Writeln(' , ,,,,,, ');
Writeln(' , , ,:W ,@@., ');
Writeln(' :#., ,.* ,* ');
Writeln(' +, ,, , ');
Writeln(' . , . ,,, .* ., , : ');
Writeln(' :, , :,. ');
Writeln(' ');
Writeln(' ');
end;
begin
SafeInitForm;
SafeShowFormModal;
SetupSRL;
ActivateClient;
ScriptID := '663';
CheckID;
DeclarePlayers;
LoginPlayer;
repeat
Talk;
until (IsFKeyDown(5))
Proggy;
Sig;
end.
but I want to replace the Color and Effect labels and everything that comes with it with these Combo Boxes;
object frmDesign: TfrmDesign
Left = 293
Top = 209
Width = 696
Height = 478
Caption = 'frmDesign'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Visible = True
OnActivate = FormActivate
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ColorComboBox: TComboBox
Left = 112
Top = 32
Width = 225
Height = 21
Hint = 'All the possible colors'
ItemHeight = 13
ParentShowHint = False
ShowHint = True
TabOrder = 8
Text = 'ColorComboBox'
Items.Strings = (
'red'
'white'
'green'
'cyan'
'yellow'
'flash1'
'flash2'
'flash3')
end
object EffectComboBox: TComboBox
Left = 112
Top = 64
Width = 225
Height = 21
Hint = 'All the possible effects'
ItemHeight = 13
ParentShowHint = False
ShowHint = True
TabOrder = 9
Text = 'EffectComboBox'
Items.Strings = (
'scroll'
'shake'
'slide'
'wave'
'wave2')
end
end
I hope you can help ;)
PB.