PDA

View Full Version : Shadows-Collide powercutter



shadows-collide
06-25-2007, 04:48 PM
My first script, its taken a while lol, but i think its worth it :)
Im always making it better so check every now and then :)
Thanks to everyone who helped me sort out any errors :)
Comments appreciated (y)
Enjoy!

I forgot to mention, (SRL)and(Divi) :)


[]========================================[]
---------------->Progress report<----------------
Cut 350 logs
---------------------------------------------
Did 0 Clicks
[]========================================[]
Successfully executed




///////////////////////////
//// 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.

// Start at the log-in page,



program PowerCutter;
{.include SRL/SRL.scar}

////////////////////////////////
// Set-up //
////////////////////////////////

const
TreeColor = 3168336;

///////////////////////////////
// End of Set-up //
///////////////////////////////

var
TreesCut, Clicks, Chop: Integer;

frmDesign: TForm;
Title: TLabel;
User: TLabel;
Pass: TLabel;
CharNick: TLabel;
EditUser: TEdit;
EditPass: TEdit;
EditNick: TEdit;
StartButton: TButton;



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));




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 := 417;
frmDesign.Height := 266;
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;
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 := 160;
StartButton.Width := 75;
StartButton.Height := 25;
StartButton.Caption := 'StartButton';
StartButton.TabOrder := 11;
StartButton.OnClick := @ClickStartButton;

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

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;
repeat
ActivateClient;
LoginPlayer;
HighestAngle;
CutTheTree;
DropLogs;
ProgressReport;
until (False)
end.

shadows-collide
06-29-2007, 07:59 PM
30 views and no comments, thats how i ride :P

exppo
06-30-2007, 08:17 PM
Nice one dude! Works realy well, so far I've made 14M out of it cutting mages! woot :D

keep it coming!

exppo
06-30-2007, 08:18 PM
*DOUBLE POST*

you should make it into a .scar file, more people might give u proggies and help/advice.

Tim0suprem0
06-30-2007, 08:21 PM
Nice one dude! Works realy well, so far I've made 14M out of it cutting mages! woot :D

keep it coming!

Umm... its a powercutter? You made 14m off of something that drops the logs and doesnt bank?? Nice. For some reason I dont believe you.

Nice script though shadow

Venom666
07-01-2007, 09:30 PM
good script, i would suggest useing a bit more failsafes in your procedures as a next step :). Also DTMs are good for droping logs and such. If you need help pm me.

shadows-collide
07-09-2007, 09:21 AM
Cheers guys :D The dropping logs works really well, its an SRL im putting ent and ax finding in now...

MeBeardless
07-10-2007, 06:26 PM
[]========================================[]
---------------->Progress report<----------------
Cut 248 logs
---------------------------------------------
Did 0 Clicks
[]========================================[]
Successfully executed

Thanks so much!

I wish there was, though, an autotalker to randoms.

This has to be the best powercutter i've tried so far ;) so easy to set oup and use

Oh, it also thwarted 2 mysterious boxes and avoided 2 fighting randoms :)

Thanks!

yanix
07-13-2007, 08:33 PM
nice work ill try it but how many randoms does it solve/do?

Just Kidding
07-13-2007, 09:31 PM
Guys the randoms are done by srl. Note the include srl at the top of the script. Thats what srl is ( an include to make scripting easier and solve randoms)

But nice work and keep it up. Get a little more help from anyone willing to give it and make a good script with failsafes and multiplayer and you can apply for members.

chris22
12-18-2007, 01:53 AM
Failed when compiling
Line 234: [Error] (15323:29): Unknown identifier 'x' in script C:\Program Files\SCAR 3.12\Scripts\Good One.scar

is it compatible with 3.12, i have downloaded my includes. got an up to date SRL.. why isn't working? did u declare the x identifer?
Thanks in advance

hellface
03-16-2008, 11:05 PM
unkown identifier RunAwayDirection in script and it also says variable oldms not used in script plz need help it does this with all wc scripts for me plz need help

Cazax
03-16-2008, 11:13 PM
unkown identifier RunAwayDirection in script and it also says variable oldms not used in script plz need help it does this with all wc scripts for me plz need help

Dont gravedig, read the rules please.

EDIT: here is the link, if you are lazy enough:http://www.villavu.com/forum/showthread.php?t=12?goto=newpost