D
Denial
Guest
\+/ 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
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.
then it just closed
