SCAR Code:
program KillChickens;
{.include srl/srl.scar}
var
ChickensKilled,Tries : Integer;
frmDesign : TForm;
Image : TImage;
Username : TEdit;
Password : TEdit;
NickName : TEdit;
Image1 : TImage;
Username1 : TEdit;
Password1 : TEdit;
Nick1 : TEdit;
Username2 : TEdit;
Password2 : TEdit;
Nick2 : TEdit;
Start : TButton;
C: Tcanvas;
Chicken : Integer;
AmountOfPlayers : TComboBox ;
ChangeAmount : TButton;
SecondForm : Boolean;
const
ChickenColor1 = 923759;
ChickenColor2 = 1121669;
ChickensToKill = 20;
yourSRLID='4480';
yourSRLPW='joejoe';
Procedure InitForm2;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 423;
frmDesign.Height := 285;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -14;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := True;
frmDesign.PixelsPerInch := 120;
Image := TImage.Create(frmDesign);
Image.Parent := frmDesign;
Image.Left := 48;
Image.Top := 144;
Image.Width := 73;
Image.Height := 57;
Username1 := TEdit.Create(frmDesign);
Username1.Parent := frmDesign;
Username1.Left := 8;
Username1.Top := 16;
Username1.Width := 153;
Username1.Height := 24;
Username1.TabOrder := 8;
Username1.Text := 'Username1';
Password1 := TEdit.Create(frmDesign);
Password1.Parent := frmDesign;
Password1.Left := 9;
Password1.Top := 56;
Password1.Width := 152;
Password1.Height := 24;
Password1.TabOrder := 9;
Password1.Text := 'Password1';
Nick1 := TEdit.Create(frmDesign);
Nick1.Parent := frmDesign;
Nick1.Left := 8;
Nick1.Top := 96;
Nick1.Width := 153;
Nick1.Height := 24;
Nick1.TabOrder := 10;
Nick1.Text := 'Nick1';
Username2 := TEdit.Create(frmDesign);
Username2.Parent := frmDesign;
Username2.Left := 184;
Username2.Top := 16;
Username2.Width := 145;
Username2.Height := 24;
Username2.TabOrder := 11;
Username2.Text := 'Username2';
Password2 := TEdit.Create(frmDesign);
Password2.Parent := frmDesign;
Password2.Left := 184;
Password2.Top := 56;
Password2.Width := 145;
Password2.Height := 24;
Password2.TabOrder := 12;
Password2.Text := 'Password2';
Nick2 := TEdit.Create(frmDesign);
Nick2.Parent := frmDesign;
Nick2.Left := 184;
Nick2.Top := 96;
Nick2.Width := 145;
Nick2.Height := 24;
Nick2.TabOrder := 13;
Nick2.Text := 'Nick2';
end;
Procedure SetupFormz(sender: tobject);
begin
if (AmountOfPlayers = 1) then
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := Username.text;
Players[0].Pass := Password.text;
Players[0].Nick := NickName.text;
Players[0].Active :=True;
FrmDesign.ModalResult := Mrok;
ClearDebug;
end;
if (AmountOfPlayers = 2) then
begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := Username1.text;
Players[0].Pass := Password1.text;
Players[0].Nick := NickName1.text;
Players[0].Active :=True;
Players[1].Name := Username2.text;
Players[1].Pass := Password2.text;
Players[1].Nick := NickName2.text;
Players[1].Active :=True;
end;
end;
Procedure Formz(sender : tobject);
begin
SecondForm := True;
InitForm2;
end;
Procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 1109;
frmDesign.Top := 194;
frmDesign.Width := 317;
frmDesign.Height := 231;
frmDesign.Caption := 'Wade007'#39's ChickenKiller';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -14;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 200;
Image := TImage.Create(frmDesign);
Image.Parent := frmDesign;
Image.Left := 176;
Image.Top := 16;
Image.Width := 49;
Image.Height := 49;
Chicken := BitmapFromString(49, 47, 'beNrlmN1LU3EYx72vTc3XT' +
'ZNMo2QqWsO30WowG0zGYhmrGLJQMXuhIrOMJKEaQUQQRREhVBeBRQldeBFBZN' +
'150W3/Td/xjaeHc87W2dp2Bh0+jE307LPv8/ye32/W1Py314UWF5hvdi15a0E' +
'1KF1uddNKuOmtJU4pXfW4CVMCtKqKCk4e+EOL6057nWOFS/pvTI2ClekAwXOE' +
'BitHfCgjPrdnD5KzicH7HfWgwj7XUsNkMekTlk71khedDaCSPgsnhyCDfKBx5' +
'XgPuJjYB87F9/Llq67GrY1oxXxQFypJRPQB44P1yR3bAH7tzWNfZXxSER+AEp' +
'GSpUItADNzpmk7qGTJpmP9WGUGH+STDrcCTE4Oz0JvOxcfSEd7QaF/iD9h1QA' +
'bSXppNuJBSnZuciLYTNB4BMthOdXH1YrPiyoUF9Hy6TG91qCElGyVPtwpUEkv' +
'VZkkNhNDvNJFunBgPuqFla2UQruEM7E9ACGLkrYS8m8WEpG+CTgfawM20zZYo' +
'RX1rVBEkJkLClpP5iFAyQDHETAoXTraDuz3wGSwg6QjXUAHTiUtRhm8qfYRZB' +
'MxKC0kdoKCFguVpK/MWwBYmeoHEpFuG5mNKFkW9UEIfOwXTltJBS2V5P7MwaB' +
'EuL2WSkn3la6dQYxzhp2j+Z1P3pRsLjp9xUca2U58X4OY3q2AtY9JhrC9C+pw' +
'XlF/A+AoMIAPKGS3BpOPobilUjrUVydguAn5fcz9Zv5J0Uq4cH4guZS0T65xY' +
'bYSpSKsxnrcxByOzkfX1FwyyzkJimhvXT5s3Jb10h1uOSKAYVFwN+F9ij72QO' +
'lYoAkwHCKnBe7Ofy1ZCX10U4kPN2XLiHKVjGXVDfDvR0SMKcAz6ky0W7DZ1Qa' +
'fkijhQu2oxBGqB6mdiCTk0h6ns8dOdYDRHcWdQmDbEGiwG8t0yLdUwvvqaSND' +
'jLFgF8AaKd/3DjlQATS59IYepzRhMlgXZf0eNDHSJsjXB6Dng8hgOVTgq1nE7' +
'wFcfYTvDkQPseCxrJXKtRfzqECoBxkuSaf+XyQ7oI7I8f+nvX4U0GLlW+bFXX' +
'cXd4OHt7odN1lfPUw+vgytPfV9/7Afz6shomf3hsGXd+Nf3x/5th7Bk89rYcF' +
'xvZ+b8R+fJkCVdNTb50FUcGsjSqpBCWswc30AjwAlQx0dV1p9MKpfIjHgrNKT' +
'zFAJ7vILZW33Lg==');
C:= GetBitmapCanvas(Chicken);
CopyCanvas(C, Image.Canvas, 0, 0, 90, 90, 0, 0, 90, 90);
Username := TEdit.Create(frmDesign);
Username.Parent := frmDesign;
Username.Left := 16;
Username.Top := 16;
Username.Width := 121;
Username.Height := 24;
Username.TabOrder := 8;
Username.Text := 'Username';
Password := TEdit.Create(frmDesign);
Password.Parent := frmDesign;
Password.Left := 16;
Password.Top := 49;
Password.Width := 121;
Password.Height := 24;
Password.TabOrder := 9;
Password.Text := 'Password';
NickName := TEdit.Create(frmDesign);
NickName.Parent := frmDesign;
NickName.Left := 16;
NickName.Top := 81;
NickName.Width := 121;
NickName.Height := 24;
NickName.TabOrder := 10;
NickName.Text := 'NickName';
Start := TButton.Create(frmDesign);
Start.Parent := frmDesign;
Start.Left := 16;
Start.Top := 136;
Start.Width := 113;
Start.Height := 49;
Start.Caption := 'Start';
Start.TabOrder := 11;
Start.OnClick := @SetupFormz;
AmountOfPlayers := TComboBox.Create(frmDesign);
AmountOfPlayers.Parent := frmDesign;
AmountOfPlayers.Left := 160;
AmountOfPlayers.Top := 104;
AmountOfPlayers.Width := 137;
AmountOfPlayers.Height := 24;
AmountOfPlayers.ItemHeight := 16;
AmountOfPlayers.TabOrder := 12;
AmountOfPlayers.Text := 'AmountOfPlayers';
AmountOfPlayers.Items.Add('1');
AmountOfPlayers.Items.Add('2');
ChangeAmount := TButton.Create(frmDesign);
ChangeAmount.Parent := frmDesign;
ChangeAmount.Left := 160;
ChangeAmount.Top := 136;
ChangeAmount.Width := 137;
ChangeAmount.Height := 25;
ChangeAmount.Caption := 'ChangeAmount';
ChangeAmount.TabOrder := 13;
ChangeAmount.OnClick := @Formz;
end;
Procedure SecondInitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 423;
frmDesign.Height := 285;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -14;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := True;
frmDesign.PixelsPerInch := 120;
Image := TImage.Create(frmDesign);
Image.Parent := frmDesign;
Image.Left := 48;
Image.Top := 144;
Image.Width := 73;
Image.Height := 57;
Chicken := BitmapFromString(49, 47, 'beNrlmN1LU3EYx72vTc3XT' +
'ZNMo2QqWsO30WowG0zGYhmrGLJQMXuhIrOMJKEaQUQQRREhVBeBRQldeBFBZN' +
'150W3/Td/xjaeHc87W2dp2Bh0+jE307LPv8/ye32/W1Py314UWF5hvdi15a0E' +
'1KF1uddNKuOmtJU4pXfW4CVMCtKqKCk4e+EOL6057nWOFS/pvTI2ClekAwXOE' +
'BitHfCgjPrdnD5KzicH7HfWgwj7XUsNkMekTlk71khedDaCSPgsnhyCDfKBx5' +
'XgPuJjYB87F9/Llq67GrY1oxXxQFypJRPQB44P1yR3bAH7tzWNfZXxSER+AEp' +
'GSpUItADNzpmk7qGTJpmP9WGUGH+STDrcCTE4Oz0JvOxcfSEd7QaF/iD9h1QA' +
'bSXppNuJBSnZuciLYTNB4BMthOdXH1YrPiyoUF9Hy6TG91qCElGyVPtwpUEkv' +
'VZkkNhNDvNJFunBgPuqFla2UQruEM7E9ACGLkrYS8m8WEpG+CTgfawM20zZYo' +
'RX1rVBEkJkLClpP5iFAyQDHETAoXTraDuz3wGSwg6QjXUAHTiUtRhm8qfYRZB' +
'MxKC0kdoKCFguVpK/MWwBYmeoHEpFuG5mNKFkW9UEIfOwXTltJBS2V5P7MwaB' +
'EuL2WSkn3la6dQYxzhp2j+Z1P3pRsLjp9xUca2U58X4OY3q2AtY9JhrC9C+pw' +
'XlF/A+AoMIAPKGS3BpOPobilUjrUVydguAn5fcz9Zv5J0Uq4cH4guZS0T65xY' +
'bYSpSKsxnrcxByOzkfX1FwyyzkJimhvXT5s3Jb10h1uOSKAYVFwN+F9ij72QO' +
'lYoAkwHCKnBe7Ofy1ZCX10U4kPN2XLiHKVjGXVDfDvR0SMKcAz6ky0W7DZ1Qa' +
'fkijhQu2oxBGqB6mdiCTk0h6ns8dOdYDRHcWdQmDbEGiwG8t0yLdUwvvqaSND' +
'jLFgF8AaKd/3DjlQATS59IYepzRhMlgXZf0eNDHSJsjXB6Dng8hgOVTgq1nE7' +
'wFcfYTvDkQPseCxrJXKtRfzqECoBxkuSaf+XyQ7oI7I8f+nvX4U0GLlW+bFXX' +
'cXd4OHt7odN1lfPUw+vgytPfV9/7Afz6shomf3hsGXd+Nf3x/5th7Bk89rYcF' +
'xvZ+b8R+fJkCVdNTb50FUcGsjSqpBCWswc30AjwAlQx0dV1p9MKpfIjHgrNKT' +
'zFAJ7vILZW33Lg==');
C:= GetBitmapCanvas(Chicken);
CopyCanvas(C, Image.Canvas, 0, 0, 90, 90, 0, 0, 90, 90);
Username1 := TEdit.Create(frmDesign);
Username1.Parent := frmDesign;
Username1.Left := 8;
Username1.Top := 16;
Username1.Width := 153;
Username1.Height := 24;
Username1.TabOrder := 8;
Username1.Text := 'Username1';
Password1 := TEdit.Create(frmDesign);
Password1.Parent := frmDesign;
Password1.Left := 9;
Password1.Top := 56;
Password1.Width := 152;
Password1.Height := 24;
Password1.TabOrder := 9;
Password1.Text := 'Password1';
Nick1 := TEdit.Create(frmDesign);
Nick1.Parent := frmDesign;
Nick1.Left := 8;
Nick1.Top := 96;
Nick1.Width := 153;
Nick1.Height := 24;
Nick1.TabOrder := 10;
Nick1.Text := 'Nick1';
Username2 := TEdit.Create(frmDesign);
Username2.Parent := frmDesign;
Username2.Left := 184;
Username2.Top := 16;
Username2.Width := 145;
Username2.Height := 24;
Username2.TabOrder := 11;
Username2.Text := 'Username2';
Password2 := TEdit.Create(frmDesign);
Password2.Parent := frmDesign;
Password2.Left := 184;
Password2.Top := 56;
Password2.Width := 145;
Password2.Height := 24;
Password2.TabOrder := 12;
Password2.Text := 'Password2';
Nick2 := TEdit.Create(frmDesign);
Nick2.Parent := frmDesign;
Nick2.Left := 184;
Nick2.Top := 96;
Nick2.Width := 145;
Nick2.Height := 24;
Nick2.TabOrder := 13;
Nick2.Text := 'Nick2';
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 Setup;
begin
If (Not(LoggedIn)) Then Loginplayer;
ScriptID := '685';
if not(yourSRLID = '') then SRLID := yourSRLID;
if not(yourSRLPW = '') then SRLPassword := yourSRLPW;
SRLRandomsReport;
ReportVars[1] := ChickensKilled;
end;
{****************************************************************************
Procedure: KillDemChickens
By: Wade007
Description: This Kills Chickens (DUH!)
*****************************************************************************}
Procedure KillDemChickens;
var
Coord :Tpoint;
Begin
SetAngle(True)
If (Not(LoggedIn)) Then Loginplayer;
if FindObjCustom(coord.x, coord.y, ['hicken', 'Chicken'], [ChickenColor1, ChickenColor2], 3) then
begin
Status('Killing Chickens');
case random(2) of
0: begin
Mouse(coord.x,coord.y,2,2,false);
Chooseoption('tack');
Flag;
Tries := 0;
Wait(1000+random(400))
end;
1: begin
Mouse(coord.x,coord.y,2,2,true)
Tries := 0;
Wait(1000+random(500))
end;
end;
Wait(+random(800))
ChickensKilled := ChickensKilled+1
FindNormalRandoms;
end else
begin
tries := tries+1;
if (tries = 30)then
begin
Writeln('Could not find any Chickens :(')
Writeln('Try changing the colors.')
NextPlayer(false);
end;
end;
end;
Procedure AntiBan;
Begin
case random(15) of
0: begin
RandomRClick;
end;
1: begin
HoverSkill('Strength',false);
end;
2: Begin
PickUpMouse;
end;
3: Begin
BoredHuman;
end;
4: Begin
HoverSkill('Attack',False)
end;
5: HoverSkill('Defence',False)
end;
end;
{************************************************************************
Procedure : Randoms
Description : This will solve Randoms.
*************************************************************************}
Procedure Randoms;
begin
SolvePinball;
FindTalk;
SolveSandWich;
end;
begin
SetupSRL;
SafeInitForm;
SafeShowFormModal;
repeat
ActivateClient;
Setup
KillDemChickens;
AntiBan;
Randoms;
Until(ChickensKilled = ChickensToKill)
Setup;
end.
I get this