easyskiller 3 in 1 by denial [MODED]

[lilgoldfish]

All that is edited is the molten miner (like my previous post), i am planning to edit the autoabuser as well, but ill need to learn a bit more before anything else is happening. Credits to Denial, all the way. (Denial, i like your scripts, you can obviously see that.)

program easyskiller;

const

{molten miner setup}

startupwait1 = 10000;//how long before script starts after compiling

rockcolor1 = 2702653;// set 3 rock colors, default iron.

rockcolor2 = 2702653;// set 3 rock colors, default iron.

rockcolor3 = 2702653;// set 3 rock colors, default iron.

mininginterval = 10000;// time before mining each ore

rockstomine = 100;//how many rocks to mine
{______________________________________________________________________________}
{tree hugger setup}

startupwait2 = 10000;//how long before script starts after compiling

treecolor1 = 3567717;// set 3 tree colors.

treecolor2 = 1452326;// set 3 tree colors.

treecolor3 = 538158;// set 3 tree colors.

choppinginterval = 25000;// time before chopping each log

drop = true;// do you wanna drop? if false set logs to chop to 28

logstochop = 100;//how many trees to chop
{______________________________________________________________________________}
{auto abuser setup}

startupwait3 = 5000;//how long to wait before script starts so you can get ready

monstercolor1 = 0;//color of the monster you wish to kill.

monstercolor2 = 0;//secondary color (just get more or less the same color)

monstercolor3 = 0;//if you still need an explanation your going nowhere fast

combatinterval = 25000;//milliseconds between each kill

monsterstokill = 100;// how many monsters to kill

 {.include SRL/SRL.scar}


var
    frmDesign : TForm;
  moltenminer : TButton;
  treehugger : TButton;
  autoabuser : TButton;
  Button1 : TButton;
  i, x, y: integer;


procedure startmoltenminer(sender: TObject);
begin

cleardebug;
writeln('molten miner will begin soon, please post comments bugs and ')
writeln('sugestions on site you got this script from')



 wait(startupwait1+random(1000))
repeat



if (invfull = true) then
writeln('dropping')
dropall;
cleardebug;
writeln('mined: ' + inttostr(i))
writeln('dropped: ' + inttostr(i))
writeln('script has been working for ' + timerunning)
  if (FindColor(x, y, rockcolor1, 0, 0, 517, 337)) or
   (FindColor(x, y, rockcolor2, 0, 0, 517, 337)) or
    (FindColor(x, y, rockcolor3, 0, 0, 517, 337))then
    mmouse(x,y,2,2)
    mouse(x,y,1,1,true)
    i:= i + 1


 wait(mininginterval+random(1000))
until i = rockstomine


writeln('script has worked for ' + timerunning)
writeln('ores mined ' + inttostr(i))
writeln('ores dropped ' +inttostr(i))
end;

procedure startautoabuser(sender: TObject);
begin
 wait(startupwait3+random(1000))
repeat

i:= i + 1
  writeln('searching');
  if (FindColor(x, y, monstercolor1, 0, 0, 517, 337))
   or (FindColor(x, y, monstercolor2, 0, 0, 517, 337))
   or (FindColor(x, y, monstercolor3, 0, 0, 517, 337))then
    mmouse(x,y, 1, 1)
    mouse(x,y,1,1,true)
  writeln('abuse in progress... casualty number: ' + IntToStr(i))
 wait(combatinterval+random(1000));
until i = monsterstokill;
end;

procedure Starttreehugger(sender: TObject);
begin
cleardebug;
writeln('tree hugger will begin soon, please post comments bugs and ')
writeln('sugestions on site you got this script from')


 wait(startupwait2+random(1000))
repeat

i:= i + 1
if (drop = true) then
dropall;
cleardebug;
writeln('chopped: ' + inttostr(i))
writeln('dropped: ' + inttostr(i))
writeln('script has been working for ' + timerunning)

  if (FindColor(x, y, treecolor1, 0, 0, 517, 337)) or
    (FindColor(x, y, treecolor2, 0, 0, 517, 337)) and
    (FindColor(x, y, treecolor3, 0, 0, 517, 337))then
    mmouse(x,y,2,2)
    mouse(x,y,1,1,true)
 wait(choppinginterval+random(1000))
until i = logstochop


writeln('script has worked for ' + timerunning)
writeln('logs chopped ' + inttostr(i))
writeln('logs dropped ' +inttostr(i))
end;


procedure initform;
begin
  frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 193;
frmDesign.Height := 116;
frmDesign.Cursor := crCross;
frmDesign.Caption := 'easyskills';
frmDesign.Color := clBlue;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
moltenminer := TButton.Create(frmDesign);
moltenminer.Parent := frmDesign;
moltenminer.Left := 8;
moltenminer.Top := 8;
moltenminer.Width := 75;
moltenminer.Height := 25;
moltenminer.Caption := 'moltenminer';
moltenminer.TabOrder := 8;
moltenminer.OnClick := @startmoltenminer;
treehugger := TButton.Create(frmDesign);
treehugger.Parent := frmDesign;
treehugger.Left := 104;
treehugger.Top := 8;
treehugger.Width := 75;
treehugger.Height := 25;
treehugger.Caption := 'treehugger';
treehugger.TabOrder := 9;
treehugger.OnClick := @starttreehugger;
autoabuser := TButton.Create(frmDesign);
autoabuser.Parent := frmDesign;
autoabuser.Left := 56;
autoabuser.Top := 48;
autoabuser.Width := 75;
autoabuser.Height := 25;
autoabuser.Caption := 'autoabuser';
autoabuser.TabOrder := 10;
autoabuser.OnClick := @Startautoabuser;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 72;
Button1.Top := 16;
Button1.Width := 1;
Button1.Height := 9;
Button1.Caption := 'Button1';
Button1.TabOrder := 11;
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;

begin
  setupsrl;
  SafeInitForm;
  SafeShowFormModal;
end.