Hey guys,
working on my powercutter, and basicaly I'v made it multiplayer just to show that I can, but i cant think at the moment at all and my mind is completely blank,
How do I correlate the combo box to the players declared... if that makes sense? Basically the combobox dosnt do anything except look pretty
Run the script and take a look at the combo box... how do i make it do something!?
SCAR Code:
///////////////////////////
//// Power-Cutter ////
//// ////
//// A Shadows~Collide ////
//// Script ////
///////////////////////////
// This script will cut any tree
// you tell it to, use the color
// clicker to pick a large color
// on the tree, then paste it
// into the const section and hit
// run. Ignore the forms for now!
// Start at the log-in page,
// Dont worry, the log-in
// Procedure will get better!
program PowerCutter;
{.include SRL/SRL.scar}
////////////////////////////////
// Set-up //
////////////////////////////////
const
TreeColor = 3168336;
///////////////////////////////
// End of Set-up //
///////////////////////////////
var
TreesCut, Clicks : Integer;
frmDesign : TForm;
Title : TLabel;
User : TLabel;
Pass : TLabel;
CharNick : TLabel;
User2 : TLabel;
Pass2 : TLabel;
Label1 : TLabel;
Label2 : TLabel;
EditUser : TEdit;
EditPass : TEdit;
EditNick : TEdit;
StartButton : TButton;
EditUser2 : TEdit;
EditPass2 : TEdit;
EditNick2 : TEdit;
NumberOfUsersEdit : TComboBox;
NumberofUsers : Boolean;
procedure ClickStartButton(sender: TObject);
begin
ClearDebug;
Writeln(' ');
Writeln(' --- A Shadows~collide Script ---');
Writeln(' ');
Writeln(' This is my first script.');
Writeln(' Hopefully it will chop any tree you set the color too!');
Writeln(' Please post any feedback or suggestions.');
Writeln(' ');
Writeln(' --- A Shadows~collide Script ---');
wait(10 + random(800));
NumberOfUsers:=StrToBool(NumberOfUsersEdit.text);
frmDesign.ModalResult := mrOk;
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Progress report<----------------');
Writeln(' Cut ' + IntToStr(TreesCut) + ' logs ' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('[]========================================[]');
end;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
procedure MainForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 413;
frmDesign.Height := 386;
frmDesign.Caption := 'A Shadows-Collide Script';
frmDesign.Color := clMonkeyGreen;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Title := TLabel.Create(frmDesign);
Title.Parent := frmDesign;
Title.Left := 24;
Title.Top := 10;
Title.Width := 348;
Title.Height := 22;
Title.Caption := 'Shadows-Collide Power-Cutter';
Title.Color := clBtnFace;
Title.Font.Color := clWindowText;
Title.Font.Height := -19;
Title.Font.Name := 'Rockwell Extra Bold';
Title.Font.Style := [fsBold];
Title.ParentColor := False;
Title.ParentFont := False;
User := TLabel.Create(frmDesign);
User.Parent := frmDesign;
User.Left := 25;
User.Top := 45;
User.Width := 61;
User.Height := 19;
User.Caption := 'Username';
User.Font.Color := clWindowText;
User.Font.Height := -16;
User.Font.Name := 'Times New Roman';
User.Font.Style := [];
User.ParentFont := False;
Pass := TLabel.Create(frmDesign);
Pass.Parent := frmDesign;
Pass.Left := 25;
Pass.Top := 75;
Pass.Width := 60;
Pass.Height := 19;
Pass.Caption := 'Password';
Pass.Font.Color := clWindowText;
Pass.Font.Height := -16;
Pass.Font.Name := 'Times New Roman';
Pass.Font.Style := [];
Pass.ParentFont := False;
CharNick := TLabel.Create(frmDesign);
CharNick.Parent := frmDesign;
CharNick.Left := 25;
CharNick.Top := 105;
CharNick.Width := 121;
CharNick.Height := 19;
CharNick.Caption := 'Character nickname';
CharNick.Font.Color := clWindowText;
CharNick.Font.Height := -16;
CharNick.Font.Name := 'Times New Roman';
CharNick.Font.Style := [];
CharNick.ParentFont := False;
User2 := TLabel.Create(frmDesign);
User2.Parent := frmDesign;
User2.Left := 25;
User2.Top := 170;
User2.Width := 68;
User2.Height := 19;
User2.Caption := 'Usename 2';
User2.Font.Color := clWindowText;
User2.Font.Height := -16;
User2.Font.Name := 'Times New Roman';
User2.Font.Style := [];
User2.ParentFont := False;
Pass2 := TLabel.Create(frmDesign);
Pass2.Parent := frmDesign;
Pass2.Left := 25;
Pass2.Top := 200;
Pass2.Width := 72;
Pass2.Height := 19;
Pass2.Caption := 'Password 2';
Pass2.Font.Color := clWindowText;
Pass2.Font.Height := -16;
Pass2.Font.Name := 'Times New Roman';
Pass2.Font.Style := [];
Pass2.ParentFont := False;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 25;
Label1.Top := 230;
Label1.Width := 133;
Label1.Height := 19;
Label1.Caption := 'Character nickname 2';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -16;
Label1.Font.Name := 'Times New Roman';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 30;
Label2.Top := 144;
Label2.Width := 294;
Label2.Height := 13;
Label2.Caption := '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~';
EditUser := TEdit.Create(frmDesign);
EditUser.Parent := frmDesign;
EditUser.Left := 205;
EditUser.Top := 45;
EditUser.Width := 121;
EditUser.Height := 21;
EditUser.ParentShowHint := False;
EditUser.ShowHint := True;
EditUser.TabOrder := 8;
EditUser.Text := 'Enter Username';
EditPass := TEdit.Create(frmDesign);
EditPass.Parent := frmDesign;
EditPass.Left := 205;
EditPass.Top := 75;
EditPass.Width := 121;
EditPass.Height := 21;
EditPass.ParentShowHint := False;
EditPass.ShowHint := True;
EditPass.TabOrder := 9;
EditPass.Text := 'Enter Password';
EditNick := TEdit.Create(frmDesign);
EditNick.Parent := frmDesign;
EditNick.Left := 205;
EditNick.Top := 105;
EditNick.Width := 121;
EditNick.Height := 21;
EditNick.TabOrder := 10;
EditNick.Text := '3 letters of user, in order';
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.Left := 160;
StartButton.Top := 300;
StartButton.Width := 75;
StartButton.Height := 25;
StartButton.Caption := 'StartButton';
StartButton.TabOrder := 11;
StartButton.OnClick := @ClickStartButton;
EditUser2 := TEdit.Create(frmDesign);
EditUser2.Parent := frmDesign;
EditUser2.Left := 205;
EditUser2.Top := 170;
EditUser2.Width := 121;
EditUser2.Height := 21;
EditUser2.Hint := 'Enter Username';
EditUser2.ParentShowHint := False;
EditUser2.ShowHint := True;
EditUser2.TabOrder := 12;
EditUser2.Text := 'Enter Username';
EditPass2 := TEdit.Create(frmDesign);
EditPass2.Parent := frmDesign;
EditPass2.Left := 205;
EditPass2.Top := 200;
EditPass2.Width := 121;
EditPass2.Height := 21;
EditPass2.TabOrder := 13;
EditPass2.Text := 'Enter Password';
EditNick2 := TEdit.Create(frmDesign);
EditNick2.Parent := frmDesign;
EditNick2.Left := 205;
EditNick2.Top := 230;
EditNick2.Width := 121;
EditNick2.Height := 21;
EditNick2.TabOrder := 14;
EditNick2.Text := '3 letters of user, in order';
NumberOfUsersEdit := TComboBox.Create(frmDesign);
NumberOfUsersEdit.Parent := frmDesign;
NumberOfUsersEdit.Left := 44;
NumberOfUsersEdit.Top := 266;
NumberOfUsersEdit.Width := 145;
NumberOfUsersEdit.Height := 21;
NumberOfUsersEdit.ItemHeight := 13;
NumberOfUsersEdit.TabOrder := 15;
NumberOfUsersEdit.Items.Add('Using one Character/s');
NumberOfUsersEdit.Items.Add('Using two Character/s');
end;
procedure LoadForm;
var
V: TvariantArray;
begin
Setarraylength(V, 0);
ThreadSafeCall('MainForm', V);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure ShowFormModal2;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := EditUser.Text;
Players[0].Pass := EditPass.Text;
Players[0].Nick := EditNick.Text;
Players[0].Active := True
Players[1].Name := EditUser2.Text;
Players[1].Pass := EditPass2.Text;
Players[1].Nick := EditNick2.Text;
Players[1].Active := True
end;
procedure CutTheTree;
begin
repeat;
wait(1000 + random(500));
if FindColorSpiralTolerance(x, y, TreeColor, 3, 3, 514, 338, 5) then
begin
MMouse(x, y, 5, 8);
Wait(50 + random(25));
if (IsUpText('hop')) then
begin
Wait(200 + random(100));
Mouse(x, y, 1, 1, true);
Wait(500 + random(500));
DoAntiRandoms;
end;
end;
Wait(3000 + random(500));
DoAntiRandoms;
TreesCut := TreesCut + 1;
until (InvFull);
end;
procedure DropLogs;
begin
wait(100 + random(50));
wait(2000 + random(1000));
dropto(2, 28);
wait(100 + random(50));
end;
begin
SetupSRL;
LoadForm;
ShowFormModal2;
DeclarePlayers;
if(numberofusers) then
WriteLn('Booya, combo boxes rule(so does Tim)')
else
WriteLn('False?! I RULE');
repeat
ActivateClient;
LoginPlayer;
if (LoggedIn = false) then NextPlayer(false);
HighestAngle;
CutTheTree;
DropLogs;
ProgressReport;
until (False)
end.
Cheers in advance,