SCAR Code:
{1.Have rune scape open
2.type in your messages
3.Drag crosshair to runescape.
4. Hit play.
----------------------------------
This is Version 2
It includes....
Moving mouse randomly(i dont know why i added it)
IT disguises Scar to say Itunes
It has up to 3 messages
It auto logs you on from main page( just edit lines 157)
It ables you to press f3 to stop the script
It has a form thats not needed lol. Just was bored.
And hopfully autotrade.
-------------------------
{not sure if im making a version 3.
}{
======
=================
=============================
========================
============
Cnr}
program AutoTalkerVersion2;
{.include SRL/SRL.scar}
var
coords,color,variable,Send:integer;
mainpage:integer;
lowdetail:integer;
Members:integer;
ExistingUser:integer;
login:integer;
clickhere:integer;
con:boolean;
frmDesign : TForm;
Green : TImage;
Username : TLabel;
Password : TLabel;
User : TEdit;
Pass : TEdit;
Start : TButton;
Proggybar, W, H, xx, yy : integer;
const
Message1 = 'l' ;//dont forget to type a message in
Message2 = '2' ; //
Message3 = '3' ; // if not using all 3 messages delete the space inbetween..
waittime=1000;//dont touch
{=--==--==--=-=--=--==--=-=-=-=-=-=-==--=-=-=-=--==--=}
procedure buttonclick(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
end;
procedure InitForm;
begin;
frmDesign := CreateForm;
frmDesign.Left := 44;
frmDesign.Top := 234;
frmDesign.Width := 696;
frmDesign.Height := 480;
frmDesign.Cursor := crCross;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clLime;
frmDesign.Font.Color := clRed;
frmDesign.Font.Height := -14;
frmDesign.Font.Name := 'Comic Sans MS';
frmDesign.Font.Style := [fsBold];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 84;
Green := TImage.Create(frmDesign);
Green.Parent := frmDesign;
Green.Left := 117;
Green.Top := 52;
Green.Width := 105;
Green.Height := 105;
Username := TLabel.Create(frmDesign);
Username.Parent := frmDesign;
Username.Left := 37;
Username.Top := 55;
Username.Width := 66;
Username.Height := 19;
Username.Caption := 'Username';
Password := TLabel.Create(frmDesign);
Password.Parent := frmDesign;
Password.Left := 36;
Password.Top := 138;
Password.Width := 61;
Password.Height := 19;
Password.Caption := 'Password';
User := TEdit.Create(frmDesign);
User.Parent := frmDesign;
User.Left := 108;
User.Top := 51;
User.Width := 121;
User.Height := 27;
User.TabOrder := 8;
User.Text := 'User';
Pass := TEdit.Create(frmDesign);
Pass.Parent := frmDesign;
Pass.Left := 108;
Pass.Top := 132;
Pass.Width := 121;
Pass.Height := 27;
Pass.TabOrder := 9;
Pass.Text := 'Pass';
Start := TButton.Create(frmDesign);
Start.Parent := frmDesign;
Start.Left := 109;
Start.Top := 186;
Start.Width := 75;
Start.Height := 25;
Start.Caption := 'Start';
Start.TabOrder := 10;
Start.OnClick:= @buttonclick;
end;
//Procedure 2:
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
//Procedure 3:
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
//Procedure 4:
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure log;
begin
TypeSend('cnr sport')
Wait(500)
TypeSend('lol it wasnt my pass but w/e')
wait(1000)
end;
Procedure LoadDtms;
begin
Proggybar := DTMFromString('78DA6314616260B8CCC8800C6A6A4AC0344C9' +
'4511EA8E614AA9AA6C61A5435714035E751D5B4B735A2AA31C762' +
'4E5315AA1A3BA09AEBA86A96AE5C85AA460CA8E62CAA9A0FFF3FA' +
'0A80100B3C110E3');
Mainpage := DTMFromString('78DA634C666060B06440016A8A92609A11CA6' +
'73C01243850D544844560AA49465513151583AA861D4824A2AA91' +
'12E14555C386695756760EAA1A9019ACA86A0AF2F330D5A430600' +
'5286E3626A006E46623FC6E0600233F0AF9');
Lowdetail := DTMFromString('78DA63B4636060D0634001164C8C0CBF80342' +
'310FF0702463620230C558D9A8A24986684F219D3814410AA1A53' +
'0D565435AD408203558DA8201BAA1A0920C189AA465C9813550D0' +
'B90104173B3289A5D6D40C211558DAB25AA1A00FCB20A47');
Members := DTMFromString('78DA63CC63606070644001E7B63433FC02D28' +
'C40FC1F0818D9808C4006AC80114683D41811A1468C801A6320C1' +
'44404D3C116ABA8850B39A083547895003F257260135AC40A29C8' +
'01A6E208B03BF1A007B010C03');
ExistingUser := DTMFromString('78DA6374656060106140014E2E7E609A11CA6' +
'79C0A24B451D5088B8862AA614655A3A36B82AA8605538D95B533' +
'AA1A5620A185AA46465601550DC8CDACA86A34B5F451D5B81361C' +
'E34202186AA869B9B1BD3CD12F8D500007AA90748');
Login := DTMFromString('78DA63F46660609066C00A1861F40C20C18E2' +
'AE7E1158CAA663A90D04555C3CDCD8DAA860D48E81150C38A6917' +
'861A909BD9885043C8AE6940420A558DB08828A67BA4F09B03002' +
'8B2059C');
clickhere := DTMFromString('78DA63DCCBC0C090C08002B26538C1342394C' +
'FA80C6419336005286A7A50E5AC99D1D43800892E5435AB9BEB31' +
'D5981050B38508352A40561201F7EC02127D04FCE50824E2F0DB0' +
'500CC8D0E8B');
end;
procedure WaitWhileLoading;/////////////////////////////////OVER HERE!!!!!!!!!!!!!!!
var
Proggybar, W, H, xx, yy : integer; //
begin
Proggybar := DTMFromString('78DA6314616260B8CCC8800C6A6A4AC0344C9' +
'4511EA8E614AA9AA6C61A5435714035E751D5B4B735A2AA31C762' +
'4E5315AA1A3BA09AEBA86A96AE5C85AA460CA8E62CAA9A0FFF3FA' +
'0A80100B3C110E3');
GetClientDimensions(W, H); //
while FindDtm(Proggybar, xx, yy, 0, 0, W, H) do //
Wait(250);
end;
procedure FreeDtms;
begin
FreeDTM(mainpage)
FreeDTM(Lowdetail)
FreeDTM(Members)
FreeDTM(ExistingUser)
FreeDTM(Login)
FreeDTM(clickhere)
end;
procedure Page1;
begin
repeat
FindDTM(mainpage, x, y, 1, 1, 999, 999)
if(FindDTM(mainpage, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;
procedure Page2;
begin
wait(1000)
repeat
FindDTM(lowdetail, x, y, 1, 1, 999, 999)
if(FindDTM(lowdetail, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;
procedure Page3;
begin
wait(1000)
repeat
FindDTM(members, x, y, 1, 1, 999, 999)
if(FindDTM(members, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;
procedure Page4;
begin
wait(20000)
repeat
FindDTM(existinguser, x, y, 1, 1, 999, 999)
if(FindDTM(existinguser, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;
procedure Page42;
begin
wait(1000)
repeat
FindDTM(login, x, y, 1, 1, 999, 999)
if(FindDTM(login, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;
procedure Page5;
begin
wait(10000)
repeat
FindDTM(clickhere, x, y, 1, 1, 999, 999)
if(FindDTM(clickhere, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;
procedure AutoTalk;
begin
if(IsFKeyDown(1))then
begin
TypeSend(Message1);
end;
if(IsFKeyDown(2))then
begin
TypeSend(Message2);
end;
if(IsFKeyDown(3))then
begin
end;
end;
Procedure talk;
begin
disguisescar ('Itunes');
TypeSend(Message1);
wait((waittime)+random(200));
TypeSend(Message2);
wait((waittime)+random(200));
TypeSend(Message3);
wait((waittime)+random(200));
MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
end;
{ =-=-==--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=Dont TOuch=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
{=-=--=-==-=--=--=-=-=-=-=-=--=-==--==--=-==-main loop=-=--=-=-=-==-=-=-=-=--==-}
begin
SetUpSRL;
SafeInitForm;
SafeShowFormModal;
LoadDtms;
ActivateCLient;
page1;
WaitWhileLoading;
page2 ;
WaitWhileLoading;
page3;
WaitWhileLoading;
page4;
WaitWhileLoading;
log;
page42;
WaitWhileLoading;
page5;
freedtms;
Repeat
talk;
until
(IsFKeyDown(3));
end.