SCAR Code:
{ final instructions
Drag the crosshair over the runescape window,
NOTE : you do not have to be logged in.
fill out the declare players procedure,
NOTE : info about srl stats and id can be found on [url]www.srl-forums.com[/url].
click run, fill out the form and click start.
If you have any questions feel free to pm me.
If you're unhappy about the speed of my autotalker,
go to the procedure talk and adjust the wait times, add a lot of random ! }
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;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0;
Players[0].Name :='username';
Players[0].Pass :='pasword';
Players[0].Nick :='sern';
Players[0].Active := True;
SRLId:= '1';
SRLPassword:= 'password';
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);
Talks:=Talks+1;
ReportVars[0] := ReportVars[0] + 1
SendSRLReport;
FindNormalRandoms;
AntiBan;
until (IsFKeyDown(2))
end;
if(IsFKeyDown(3))then
begin
repeat
wait(1350 + Random(950))
TypeSend(Color + ':' + Effect + ':' + Message2);
Talks:=Talks+1;
ReportVars[0] := ReportVars[0] + 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(Talks) + ' 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';
DeclarePlayers;
repeat
Talk;
until (IsFKeyDown(5))
Proggy;
Sig;
end.