easyskiller 3 in 1 by denial

\+/ LEECHERS (unless your actually going to comment) LEAVE THIS POST NOW, I WOKR HARD FOR PEOPLE AND I APPRECIATE COMMENTS, SO LEAVE!


this script froze scar on my pc, so it may on yours to but it still works:
instuctions
1. setup constants for each script, and save (i seperate the const for each program with {____}) this will allow you to have your script preferences saved
1b. drag crosshair onto rs window
2. run the script, a from wioth 3 button will pop up
moltenminer (a powerminer) currently v 1.35
autoabuser (an autofighter) currently v BETA
treehugger (a powerchopper) currently v BETA

3. click the button that corresponds to the program you wish to use.
4. scar will freeze (well, maybe not. might just be my pc)
click on the runescape window and it should keep working

and questions bugs errors (ther than freezing, but if still doesnt work ask me) progress reports (if scar doesnt freeze and you can obtain them =\) etc? post them, dont leech.

here it is, easyskiller 1.0

Code:

program easyskiller;

const

{molten miner setup}

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

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

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

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

mininginterval = 25000;// 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 = 9000;// 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 (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
if (invfull = true) then
writeln('dropping')
dropall;
cleardebug;
writeln('mined: ' + inttostr(i))
writeln('dropped: ' + inttostr(i))
writeln('script has been working for ' + timerunning)

 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.

 

gracias testing right now

 

good luc, tell me how it goes.

 

Make less threads, you have about eight now.

 

coz i have alot of scripts. and gee thanks for the feedback on my script town >=(

 

hey havent tested the auto fighter but the auto cutter is great but think u can add a feature to bank? same with mining? other then that works rly well ty for scripts

 

no problems my freind, in future ill add radial wlaking and stuff but i need to learn first

 

And How Do U Use The Script??

 

tried the autofighter and it froze scar then it just closed

 

it will freeze, not sure why. but it should still work: read first post

 

i cant get it to work. =(

 

i'll fix it up later. but for some people it'll work.

 

Any help for me?

For the autoabuser script.. I entered colors aswell

 

ima try it =)

 

2 things -

SCAR 3.13 is out

File --> Download SRL

File --> Download Includes


P.S. I will test the script later, looks nice though =P

 

Had a go with it, works quite well out back of Seers' bank. Keep up the good work!yo mamma!

 

i diintdint see f there was a anti ban is there? ( gona go test asap )

 

There is no anti ban function no. However, your abuser needs a little work. If the script cant find the color that it is hitting/mining/cutting, it will just click on the same spot it last clicked. That needs to be changed. Add the script where it rotates the screen?

 

add a banker >_<

 

if you want it to stop freezing your pc then add some "wait(500) or sleep(500)" into your procedures.