SRL Archive - RS Scripts

The next Few Posts will have my Free scripts in them. Copy and paste them into SCAR, save and Run.
NOTE: If you get an error about 'FindAxe' with the Ppowerchopper, you have to download the latest SSi2.txt from www.stupidscripts.com and overwrite your existing version.


Powerminer
Ive been told this still works good, but some of the randoms are outdated. Still a good script to use and learn off of.

[PHP]
{.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' /\ '
' P \ ASCii Created by Aki '
' ### \ * and Starblaster100 '
' OOAOO \ __ * '
' ### \##/ / / * '
' AOA \ _AA ___ * '
' ### \ / ##/ /| ______ __ ____ _________ _________ '
' ### \OO##OOO |/ /| / /|___ / /|/ /|/ /| '
' _/AOA/AA##AAA/ OOAAOO | ##/ /| #### |###aAa### |aAa###aAa | '
' ## \### OO |__ AAOOAA |_ ###OOO/ #OA# |###OAO### |###OAO### | '
' OOAOO OO/ /|##/ ##/ /|OOAA #AO# |###AOA### |###AOA### | '
' ### ##AA# |AAOOAA## |AA | #OA# |#O# | #O# |#O# | #O# | '
' P ##OO#/ OOAAOO##/ AA/ #### |#A# | #A# |#A# | #A# | '
' ______ #OA# |#O# | #O# |#O# | #O# | '
' / /\ #AO# |#A# | #A# |#A# | #A# | '
' ###O### \ * #### __ | #O# |#O# |_#O# | '
' OOA#AOOO \ ______ / /| | #A# |#A#/ #A# | '
' AA |_AAAA/ ___ * / /| _AA |__ ### |######### | '
' OO/ OOO / /| ______ ##AO##/ / ##/ /|###____####__ / '
' #######\ ### | / /| AO |___ OO##OOO | / /\ / /____ '
' ####### \ #A# | OOAAOO | OA/ /|AA##AAA/ /OAAO /| ##/ /|'
' OO |_OOO \ #O# |__ AAOOAA |_ ##OA## | OO |__ O# |#O | ###OOO/ '
' AA/ AAAA/ #A#/ /|##/ ##/ /| ___AO | OO/ /| O#/ #O/_ OOAA/ '
' OOA#AOOO #O##O# |OOAAOO## |/ OA | ##AA# | A##A/ /|AA | '
' ###O### ####O#/ OOAAOO##/ ##AO##/ ##OO#/ ####/ AA/ '
' '
' * > [ Productions Presents ] < * '
[.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
_____ ' ' _____
| \—-' ULTIMATE POWERMINER '—-| \
| __/ ' ' | o |
<====|___ |====' Will Powermine a Rock You '====| _/====>
/ | ' Specify and then Drop the Ores ' | o \
\_____|—-' '—-|_____/
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' > [ INSTRUCTIONS ] < '
' '
' = Have all the Correct Includes '
_____ ' = Start the Script next to a Rock' _____
| \—-' = Fill in the Form and Hit Start '—-| \
| __/ ' = When the Script Starts, Hover ' | o |
<====|___ |====' The Mouse over a Rock you want '====| _/====>
/ | ' To Mine and Wait. The script ' | o \
\_____|—-' Will Get its color '—-|_____/
' = Have Extra Pics in Your Inv. '
' = No Good items incase of Death '
' '
_____ [-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.] _____
| \—-' > [ CONTACT INFO: ] < '—-| \
| __/ ' Starblaster100@gmail.com ' | o |
<====|___ |====' '====| _/====>
/ | ' PM Starblaster100 at: ' | o \
\_____|—-' RuneSC,Kaiteniks,Scriptdump,RSCN '—-|_____/
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' I am not Held Responsible if any '
' of your Characters get Banned '
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.}

Program StarMiner;
{.include SSi2.txt}
{.include Boxbreaker.txt}
{.include RedXIIsFordCracker.txt}

Var
randomlogouttimelabel, Logouttimelabel, Randomlogintimelabel, Logintimelabel, UsernameLabel, Passwordlabel, Reportlabel, Maxwaittimelebel : TLabel;
Drop,DropY,RockColor,RockXP,TotalMined,Maxwaittime,Report,Report2,logintime,loginrandom,logouttime,logoutrandom:integer;
Randomlogouttimeedit, Logouttimeedit, randomlogintimeedit, Logintimeedit, Usernameedit, Passwordedit : TEdit;
Saveuncutcheckbox, AntibanCheckbox, Rotatecheckbox : TCheckBox;
KeepUncuts, Gotcolors,RRotates,UseAntiban,StartScript:boolean;
AttachCount,PickHandle2,anti,LI,RLoged,GasTotal:longint;
Rundirectioncombobox, Rocktypecombobox : TComboBox;
Donate, savebutton, Startbutton, antibanbutton : TButton;
Reportedit, Maxwaittimeedit : TEdit;
Rundirection,Rockname:String;
frmMore,frmDesign : TForm;
Head,Head2,Head3:longint;

Procedure PrintProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
Begin
if(GetSystemTime-report2 > report*60000)then
Begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
+inttostr(RSeconds)+' Seconds';
end;
begin
status('Progress Report:');
writeln('<——====== Starblaster100s Powerminer ======——>');
writeln('Worked for '+Time);
writeln('Mining '+RockName+' Rocks');
writeln('Dropped about '+InttoStr(TotalMined)+' Ore');
writeln('Gained Approx. '+(inttoStr(RockXP*TotalMined))+' Exp');
if(attaches>0)or(gastotal>0)or(fights>0)or(talks>0)or(DrFords>0)or
(lamps>0)or(boxes>0)or(Rloged>0)then writeln('AntiRandom Report:');
if(attaches>0)then writeln(' Attached head '+InttoStr(AttachCount)+' Times');
if(fights>0)then writeln(' Fought '+inttostr(fights)+' time.');
if(talks>0)then writeln(' Talked to '+inttostr(talks)+' random event.');
if(DrFords>0)then writeln(' Talked to Dr Ford '+IntToStr(DrFords)+' Times');
if(lamps>0)then writeln(' Used lamps '+inttostr(lamps)+' time.');
if(boxes>0)then writeln(' Solved '+inttostr(boxes)+' box[es].');
if(Rloged>0)then writeln(' Logged in '+inttostr(logs)+' time.');
writeln('');
Report2:=GetSystemTime;
end;
end;
End;

Procedure MadeBy;
Begin
Status('Script Made By Starblaster100');
writeln('');
writeln('');
writeln('<===================================>');
writeln('| ~ Ultimate PowerMiner ~ |');
writeln('| Script Created by Starblaster100 |');
writeln('| Contact: Starblaster100@gmail.com |');
writeln('<===================================>');
writeln('');
end;

Procedure log(why:string); {Created by Starblaster100}
var
m,logcounter:integer;
begin
status('Logging out: '+why);
logcounter:=0;
wait(300);
mouse(646,484,4,4,true);
wait(500 + random(500));
repeat
logcounter:=logcounter+1;
Status('Trying to Log out: '+inttostr(logcounter)+'/5');
mouse(641,376,10,4,true);
for M:=0 to 30+random(10) do
begin
Wait(100);
if(IsTextAt2(309,241,'Welcome to RuneScape',100))or
(IsTextAt2(293,251,'Username',100))then
break;
end;
until(IsTextAt2(309,241,'Welcome to RuneScape',100))or
(IsTextAt2(293,251,'Username',100))or(logcounter>=5);
writeln('');
Writeln('Logged out: '+why);
end;

////////////// Gas Procedures \\\\\\\\\\\\\\\

function FindGas2:boolean; {*Made by Piv*, edited by Squigglyo}
var
clientcanvas, gascanvas1, gascanvas2 : tcanvas;
x, y, gx, gy, count, tempbitmap : integer;
begin
gx:= 260;
gy:= 155;
result:= false;
if(findcolorspiraltolerance(x, y, 8296866, gx - 70, gy - 70, gx + 70, gy + 70, 33))then
begin
TempBitmap:= BitmapFromString(50, 50, '');
GasCanvas1:= GetBitmapCanvas(TempBitmap);
GasCanvas2:= GetBitmapCanvas(TempBitmap);
clientcanvas:= getclientcanvas;
SafeCopyCanvas(GetClientCanvas, gascanvas1, gx - 25, gy - 25, gx + 25, gy + 25, 0, 0, 50, 50);
wait(1);
SafeCopyCanvas(GetClientCanvas, GasCanvas2, gx - 25, gy - 25, gx + 25, gy + 25, 0, 0, 50, 50);
CopyCanvas(clientCanvas, gascanvas1, gx - 25, gy - 25, gx + 25, gy + 25, 0, 0, 50, 50);
wait(100);
copycanvas(clientcanvas, gascanvas2, gx - 25, gy - 25, gx + 25, gy + 25, 0, 0, 50, 50);
count:= 0;
for y:= 1 to 50 do
for x:= 1 to 50 do
if((gascanvas1.pixels[x, y])<>(gascanvas2.pixels[x, y]))then
count:= count + 1;
if(count > 375)then //if more than 15% change
begin
SaveScreenshot('Gas Found.bmp');
Writeln('Gas Found - Waiting 30 seconds');
Mouse(647,82,2,2,true);
Wait(30000 + random(5000));//Put thing you wanna do after gas here
result:= true;
end;
end;
FreeBitmap(TempBitmap);
end;

Procedure FindGas3(findx,findy:integer);
var
counter,GasColor,bmap,gasfind:integer;
ClientCanvas,BMapCanvas:TCanvas;
begin
GasColor:=8296866;//8296866
if(FindColorSpiralTolerance(x,y,GasColor,findx-18,findy-18,findx+18,findy+18,25))then
begin
repeat
counter:=counter+1
begin
ClientCanvas:= GetClientCanvas;
bmap:= BitmapFromString(32,32,'');
BMapCanvas:= GetBitmapCanvas(bmap);
CopyCanvas(ClientCanvas,BMapCanvas,findx-16,findy-16,findx+16,findy+16,0,0,32,32);
wait(100);
if(FindBitmap(bmap,x,y))then
begin gasfind:=0;end
else
gasfind:=gasfind+1;
FreeBitmap(bmap);
end;
if(gasfind=3)then
begin
SaveScreenshot('gas.bmp')
Writeln('Gas Found - Waiting 30 seconds');
Mouse(647,82,2,2,true);
Wait(30000 + random(5000));//Put thing you wanna do after gas here
break;
end;
until(counter>=10);
end;
end;

Procedure FindGas4(gx,gy:integer);
var FailSafe:integer;
begin
if(FindColorTolerance(x,y,11056825,gx-15,gy-25,gx+15,gy+5,10))or
(FindColorTolerance(x,y,9281445,gx-15,gy-25,gx+15,gy+5,10))or
(FindColorTolerance(x,y,8492186,gx-15,gy-25,gx+15,gy+5,10))or
(FindColorTolerance(x,y,7767947,gx-15,gy-25,gx+15,gy+5,10))then
begin
Mouse(647,82,2,2,true);
flag;
repeat
FailSafe:=FailSafe+1;
wait(300);
until(FailSafe>=25)or
(not((FindColorTolerance(x,y,11056825,gx-15,gy-25,gx+15,gy+5,10))or
(FindColorTolerance(x,y,9281445,gx-15,gy-25,gx+15,gy+5,10))or
(FindColorTolerance(x,y,8492186,gx-15,gy-25,gx+15,gy+5,10))or
(FindColorTolerance(x,y,7767947,gx-15,gy-25,gx+15,gy+5,10))))
end;
end;

////////////// Gas Procedures \\\\\\\\\\\\\\\

Procedure AntiBan2; {Created by CanadaRules}
begin
end;

procedure AxeColor;
begin
GameTab(4);
wait(100 + random(200));
Mmouse(587,219,0,0);
wait(100 + random(100));
If(Option('Wield'))then
Begin
Head := GetColor(591, 221);
Head2 := GetColor(580, 218);
Head3 := GetColor(592, 222);
writeln('Pick head colors: ' +inttostr(Head)+ ' '+inttostr(Head2)+ ' ' +inttostr(Head3));
end else
Begin
Writeln('Pick not found');
Terminatescript;
end;
end;

Procedure DropHandle;
Var
Rx,N:Integer;
begin
Gametab(4);
if not(GetColor(591, 221)=Head)or
not(GetColor(580, 218)=Head2)or
not(GetColor(592, 222)=Head3)then
begin
Status('Checking Pick out…');
GameTab(4);
Mmouse(580,228,1,1);
wait(100 + random(100));
If(Option('Use Pickaxe handle'))then
Begin
mouse(x,y,1,1,false);
wait(200 + random(500));
if(findbitmap(Drop,x,y))or(findbitmap(DropY,x,y))then
begin
mouse(x,y,1,1,true);
wait(700 + random(500));
Status('Finding New Pick');
end else mmouse(10,10,50,50);
end;
For n:=1 to 4 do begin
rx:=544+(n*42)
mmouse(rx,225,0,0);
wait(100 + random(100));
if(option('Wield'))then
begin
getmousepos(x,y);
holdmouse(x,y,true);
wait(200 + random(200));
mmouse(583,223,0,0);
wait(200 + random(200));
releasemouse(x,y,true);
wait(500 + random(500));
AxeColor;
exit;
end;
if(n>=4)then
begin
Log('No Picks Found');
terminatescript;
end;
end;
end;
end;

procedure Attach; {Created by Liquid from Kaitnieks}
begin
GameTab(4);
writeln('Attatching 1/2');
if(FindcolorSpiralTolerance(x,y,Head,550,200,745,465,5))and
(FindBitmapSpiralTolerance(PickHandle2,x,y,550,200,745,465,100))then
begin
writeln('Attaching 2/2');
if(FindcolorSpiralTolerance(x,y,Head,550,200,745,465,5))then
Begin
Mouse(x, y, 3, 3, True);
wait(600+random(400));
end;
if(FindBitmapSpiralTolerance(PickHandle2,x,y,550,200,745,465,100))then
Begin
Mouse(x, y, 3, 3, True);
wait(500+random(200));
AttachCount:=AttachCount+1;
writeln('Attached Pick Head!');
end;
end else Writeln('Not Attached');
end;

procedure FindPickHead; {Created by Liquid from Kaitnieks}
var
tries, x, y:integer;
Begin
GameTab(4);
if not(GetColor(591, 221)=Head)or
not(GetColor(580, 218)=Head2)or
not(GetColor(592, 222)=Head3)then
begin
tries:=1;
repeat
if not(FindObj('Take',Head,5)) or
not(FindObj('Take',Head2,5)) or
not(FindObj('Take',Head3,5)) then
begin
writeln('Axe head not found. Taken '+inttostr(tries)+' tries.');
status('Axe head not found moving to red dot');
x := 648;
y := 83;
tries:= tries + 1;
FindColorSpiral(x, y, 241, 570, 5, 725, 155)
Mouse(x+3,y+3,2,2,true);
Flag;
wait(200 + random(100));
end;
if(FindObj('Take',Head,5))or
(FindObj('Take',Head2,5)) or
(FindObj('Take',Head3,5)) then
begin
status('Found Pick Head');
writeln('Pick head was found. Picking it up');
wait(450 + random(400));
Getmousepos(x,y);
Mouse(x,y,0,0,True);
flag;
wait(500 + random(300));
Savescreenshot('Attached Head.bmp');
end;
until(FindObj('Take',Head,5)) or
(FindObj('Take',Head2,5)) or
(FindObj('Take',Head3,5)) or (tries>9) or
(FindcolorSpiralTolerance(x,y,Head,550,200,745,465,5))
if(tries>9)then
begin
writeln('Pick head was not found. Taking New Pick');
DropHandle;
end else
Attach;
end;
end;

Procedure FindRandoms;
begin
FindPickHead;
If((FindGas2)or(FindGas(x,y)))then
Begin
Status('Gas Found');
Writeln('Gas Found - Waiting');
wait(27000 + random(5000));
end;
FindTalk;
FindDoctorFord;
FindBox;
FindMiscRandoms;
FindLamp('Mining');
if(RRotates)then
RotateEvery(20+random(10));
LeaveScreenEvery(10+random(5));
if(FindFight)then
begin
RunAwayDirection(RunDirection);
Wait(5000+random(1000));
RunBack;
end;
AntiBan2;
end;

Procedure GetRockXP;
begin
Case (RockName) of
'Tin' : RockXP:= (35/2);
'Copper' : RockXP:= (35/2);
'Iron' : RockXP:=35;
'Coal' : RockXP:= 50;
'Silver' : RockXP:=40;
'Gold' : RockXP:= 65;
'Mith' : RockXP:= 80;
'Addy' : RockXP:= 95;
'Rune' : RockXP:= 120;
end;
end;

Procedure GetColorsNeeded;
var
C,X1,X2,Y1,Y2:integer;
begin
Status('Getting Colors');
Repeat
Writeln('');
Writeln('Finding Rock - Move your Mouse over a Rock and Wait…');
Repeat
Wait(100);
If(option('Mine'))then Break;
Until(false)
If(Option('Mine'))then
Begin
wait(500);
GetmousePos(X1,Y1);
Writeln('Found rock - Hold Mouse Still…');
Repeat
wait(100);
C:=c+1;
If(not(option('Mine')))then
Break;
until(C>=13);
Getmousepos(X2,Y2);
If(X1=X2)and(Y1=Y2)and(option('Mine'))then
begin
Getmousepos(x,y);
RockColor:=Getcolor(x,y);
Writeln('Color Picking Successful - "'+IntToStr(RockColor)+'"');
Writeln('');
Gotcolors:=true;
end;
end;
Until(GotColors=true)
Axecolor;
end;

Procedure MineRocks;
Var
Time,D:Integer;
begin
Status('Mining '+RockName+' Ore');
If(FindObj('Mine',Rockcolor,3))then
Begin
Findrandoms;
If(Not(FindGas2))and(Not(Findgas(x,y)))then
Begin
Getmousepos(x,y);
FindGas(x,y-20);
FindGas4(x,y-20);
Mouse(x,y,3,3,true);
Findrandoms;
flag;
For D:=0 to 17 do
begin
wait(100);
if not((Getcolor(77, 421)=0)and(Getcolor(131, 423)=0)and(Getcolor(146, 421)=0))or //'You swing your pick'
((Getcolor(273,423)=0)and(Getcolor(249,424)=0)and(Getcolor(230,424)=0)and(Getcolor(204,424)=0))then //'There is currently no'
Break;
end;
MarkTime(Time);
Repeat
FindRandoms;
FindGas(x,y-20);
FindGas4(x,y-20);
Until((Getcolor(77, 421)=0)and(Getcolor(131, 423)=0)and(Getcolor(146, 421)=0))or
(Timefrommark(time)>=(MaxWaitTime*1000))or //'You managed to mine', Time up
((Getcolor(273,423)=0)and(Getcolor(249,424)=0)and(Getcolor(230,424)=0)and(Getcolor(204,424)=0)) //'There is currently no'
end;
end;
PrintProgressReport;
end;

Procedure DropRocks;
Var
Rx,Ry,M,N:integer;
begin
Status('Dropping Ores');
TotalMined:=TotalMined+28;
Gametab(4)
begin
for M:=1 to 7 do begin
For n:=1 to 4 do begin
rx:=544+(n*42)
ry:=192+(m*36)
mmouse(rx,ry,0,0); wait(200+random(100));
If(IsTextAt2(9,9,'Wield',100))or(IsTextAt2(9,9,'Use Broken',100))or(IsTextAt2(9,9,'Use Pick',100))or
((KeepUncuts=true)and(IsTextAt2(9,9,'Use Uncut',100)))then
begin TotalMined := TotalMined - 1; end;
If not(IsTextAt2(9,9,'Wield',100))and not(IsTextAt2(9,9,'Use Broken',100))and not(IsTextAt2(9,9,'Use Pick',100))and
not((IsTextAt2(9,9,'Use Uncut',100))and(KeepUncuts=true))then
begin
Findrandoms;
getmousepos(x,y)
mouse(x,y,5,5,false); wait(100 + random(50));
if(Findbitmap(Drop,x,y))or(Findbitmap(DropY,x,y))then
begin
mouse(x+3,y,3,1,true);
wait(285 + random(320) + random(30));
end else mmouse(233,123,50,50);
end;
end;
end;
end;
PrintProgressReport;
end;

Procedure CheckBrightness;
begin
Mouse(676,474,5,7,true);
wait(100 + random(200));
If(not(getcolor(726,277)=2303648))then
Mouse(726,271,1,1,true);
Gametab(4);
end;

Procedure Bitmaps;
begin
Drop := BitmapFromString(28, 6, 'z78DA737343000324E04684382' +
'E35A4AA2446BD1BC5EEC46F23B5C4A965E6A83B87AE3B29497B94' +
'E42362DC00008F0FEAE5');
DropY := BitmapFromString(28, 6, 'z78DA737373733330700393C8' +
'C08D08715C6A4855498C7A378ADD89DF466A8953CBCC51770E5D7' +
'75292F628C947C4B8010058BBDB99');
PickHandle2 := BitmapFromString(15, 27,
'564D41595145564D41544A3C544A3C595145564D41564D41564D41' +
'564D41595145000001000001544A3C4F4538544A3C595145564D41' +
'544A3C544A3C544A3C5951455951455951455951450000012F2000' +
'362400000001544A3C564D41544A3C544A3C564D41564D41564D41' +
'5951455951455951450000012F20002F2000362400000001302020' +
'564D41544A3C544A3C595145564D41595145564D41595145595145' +
'0000012F2000362400362400000001302020564D41564D41564D41' +
'564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' +
'362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' +
'544A3C544A3C0000012F2000362400362400362400000001302020' +
'544A3C564D41564D41564D41544A3C564D41564D410000012F2000' +
'2F2000362400362400000001302020302020564D41564D41564D41' +
'595145564D41564D41564D410000012F2000362400362400000001' +
'302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' +
'0000012F2000362400362400362400000001302020564D41564D41' +
'544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' +
'362400000001302020302020564D41564D41544A3C544A3C595145' +
'595145564D410000012F2000362400362400362400000001302020' +
'564D41564D41544A3C544A3C564D41564D41595145595145000001' +
'2F20002F20002F2000000001302020302020564D41564D41544A3C' +
'564D41564D41544A3C564D410000012F20002F20002F2000362400' +
'000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' +
'564D410000012F20002F20002F2000000001302020302020544A3C' +
'544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' +
'2F2000000001302020302020595145544A3C564D41595145595145' +
'595145564D41564D410000012F20002F20002F2000000001302020' +
'595145595145564D41564D41595145595145595145595145000001' +
'2F20002F20002F2000000001302020302020595145595145595145' +
'595145564D41564D41564D41564D410000012F20002F20002F2000' +
'000001302020564D41595145595145595145595145564D41564D41' +
'544A3C0000012F20002F20002F2000000001302020302020564D41' +
'595145595145544A3C544A3C564D41595145564D410000012F2000' +
'2F20002F2000000001302020544A3C564D41595145595145544A3C' +
'544A3C564D41564D41564D410000012F20002F2000000001302020' +
'302020544A3C564D41595145595145564D41544A3C544A3C4F4538' +
'000001271B002F20002F2000000001302020595145544A3C564D41' +
'595145595145595145544A3C544A3C544A3C0000011D1500271B00' +
'000001302020302020595145544A3C564D41595145595145595145' +
'564D41564D41564D410000011D15001D1500000001302020595145' +
'544A3C544A3C564D41595145595145595145595145595145544A3C' +
'0000011D15001D1500000001302020564D41595145595145595145' +
'595145564D41595145595145564D41544A3C564D41000001000001' +
'302020302020595145595145595145595145544A3C564D41595145' +
'544A3C544A3C4F4538564D41595145302020302020564D41595145' +
'564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' +
'');
end;

//—————- Form Stuff —————-\\

procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;

procedure ShowMoreModal;
begin
frmMore.ShowModal;
end;

procedure SafeShowForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

procedure SafeMore;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitMore', v);
end;

procedure More(sender: TObject);
var
v: TVariantArray;
begin
SafeMore;
setarraylength(V, 0);
ThreadSafeCall('ShowMoreModal', v);
end;

Procedure SaveSets1;
Begin
SaveSetting('StarMiner','Saved','true');
SaveSetting('StarMiner','Username',username);
SaveSetting('StarMiner','Password',Password);
SaveSetting('StarMiner','Rundirection',Rundirection);
SaveSetting('StarMiner','RockName',RockName);
If(useantiban)then SaveSetting('StarMiner','UseAntiBan','true') else SaveSetting('StarMiner','UseAntiBan','false');
If(KeepUncuts)then SaveSetting('StarMiner','KeepUncuts','true') else SaveSetting('StarMiner','KeepUncuts','false');
If(RRotates)then SaveSetting('StarMiner','RRotates','true') else SaveSetting('StarMiner','RRotates','false');
SaveSetting('StarMiner','MaxWaittime',inttostr(MaxWaittime));
SaveSetting('StarMiner','Report',inttostr(Report));
End;

Procedure LoadSets1;
Begin
if(LoadSetting('StarMiner','Saved')='true') then
begin
Username:=LoadSetting('StarMiner','Username');
Password:=LoadSetting('StarMiner','Password');
Rundirection:=LoadSetting('StarMiner','Rundirection');
RockName:=LoadSetting('StarMiner','RockName');
if(LoadSetting('StarMiner','UseAntiBan')='true') then UseAntiBan:=true;
if(LoadSetting('StarMiner','KeepUncuts')='true') then KeepUncuts:=true;
if(LoadSetting('StarMiner','RRotates')='true') then RRotates:=true;
MaxWaittime:=strtointdef(LoadSetting('StarMiner','MaxWaittime'),0);
Report:=strtointdef(LoadSetting('StarMiner','Report'),0);
end;
End;

Procedure SaveSets2;
Begin
SaveSetting('StarMiner','Saved2','true');
SaveSetting('StarMiner','logintime',inttostr(logintime));
SaveSetting('StarMiner','loginrandom',inttostr(loginrandom));
SaveSetting('StarMiner','logouttime',inttostr(logouttime));
SaveSetting('StarMiner','logoutrandom',inttostr(logoutrandom));
End;

Procedure LoadSets2;
begin
if(LoadSetting('StarMiner','Saved2')='true') then
begin
logintime:=strtoint(LoadSetting('StarMiner','logintime'));
loginrandom:=strtoint(LoadSetting('StarMiner','loginrandom'));
logouttime:=strtoint(LoadSetting('StarMiner','logouttime'));
logoutrandom:=strtoint(LoadSetting('StarMiner','logoutrandom'));
end;
end;

procedure Start(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
StartScript:=true;
Username := Usernameedit.text;
Password := Passwordedit.text;
UseAntiban := AntibanCheckbox.State;
KeepUncuts := Saveuncutcheckbox.State;
RRotates := Rotatecheckbox.State;
Rundirection := RunDirectioncombobox.text;
MaxWaittime := StrtoInt(Maxwaittimeedit.text);
Report := StrtoInt(Reportedit.text);
RockName := Rocktypecombobox.text;
SaveSets1;
end;

procedure Save(sender: TObject);
begin
frmMore.Caption:= frmMore.Caption + '.';
frmMore.ModalResult:= mrOk;
If(LoginTimeedit.text='')then
begin Logintime := 0; end else Logintime := StrToInt(LogintimeEdit.text)
If(randomlogintimeedit.text='')then
begin Loginrandom := 0; end else Loginrandom := StrToInt(randomlogintimeedit.text)
If(LogoutTimeedit.text='')then
begin Logouttime := 0; end else Logouttime := StrToInt(LogouttimeEdit.text)
If(randomlogouttimeedit.text='')then
begin Logoutrandom := 0; end else Logoutrandom := StrToInt(randomlogouttimeedit.text)
SaveSets2;
end;

procedure DonateLink(sender: TObject);
begin
OpenWebPage('https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=starblaster100%40gmail%2ecom&item_name=RS2%20Scripts&no_shipping=0&no_note=1&tax=0¤cy_code=GBP&bn=PP%2dDonationsBF&charset=UTF%2d8');
end;

procedure InitForm;
begin
LoadSets1;
LoadSets2;
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 293;
frmDesign.Height := 257;
frmDesign.Caption := 'Starblaster100'#39's Powerminer';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
UsernameLabel := TLabel.Create(frmDesign);
UsernameLabel.Parent := frmDesign;
UsernameLabel.Left := 34;
UsernameLabel.Top := 15;
UsernameLabel.Width := 74;
UsernameLabel.Height := 20;
UsernameLabel.Caption := 'Username';
UsernameLabel.Font.Color := clWindowText;
UsernameLabel.Font.Height := -16;
UsernameLabel.Font.Name := 'MS Sans Serif';
UsernameLabel.Font.Style := [];
UsernameLabel.ParentFont := False;
Passwordlabel := TLabel.Create(frmDesign);
Passwordlabel.Parent := frmDesign;
Passwordlabel.Left := 35;
Passwordlabel.Top := 44;
Passwordlabel.Width := 69;
Passwordlabel.Height := 20;
Passwordlabel.Caption := 'Password';
Passwordlabel.Font.Color := clWindowText;
Passwordlabel.Font.Height := -16;
Passwordlabel.Font.Name := 'MS Sans Serif';
Passwordlabel.Font.Style := [];
Passwordlabel.ParentFont := False;
Reportlabel := TLabel.Create(frmDesign);
Reportlabel.Parent := frmDesign;
Reportlabel.Left := 18;
Reportlabel.Top := 133;
Reportlabel.Width := 99;
Reportlabel.Height := 16;
Reportlabel.Caption := 'Progress Report';
Reportlabel.Font.Color := clWindowText;
Reportlabel.Font.Height := -15;
Reportlabel.Font.Name := 'MS Sans Serif';
Reportlabel.Font.Style := [];
Reportlabel.ParentFont := False;
Maxwaittimelebel := TLabel.Create(frmDesign);
Maxwaittimelebel.Parent := frmDesign;
Maxwaittimelebel.Left := 18;
Maxwaittimelebel.Top := 160;
Maxwaittimelebel.Width := 115;
Maxwaittimelebel.Height := 16;
Maxwaittimelebel.Caption := 'Maximum Wait time';
Maxwaittimelebel.Font.Color := clWindowText;
Maxwaittimelebel.Font.Height := -15;
Maxwaittimelebel.Font.Name := 'MS Sans Serif';
Maxwaittimelebel.Font.Style := [];
Maxwaittimelebel.ParentFont := False;
Maxwaittimelebel.ParentShowHint := False;
Maxwaittimelebel.ShowHint := False;
Usernameedit := TEdit.Create(frmDesign);
Usernameedit.Parent := frmDesign;
Usernameedit.Left := 116;
Usernameedit.Top := 17;
Usernameedit.Width := 121;
Usernameedit.Height := 21;
Usernameedit.Hint := 'Type your Username into this Box';
Usernameedit.ParentShowHint := False;
Usernameedit.ShowHint := True;
Usernameedit.TabOrder := 8;
Usernameedit.Text := Username;
Passwordedit := TEdit.Create(frmDesign);
Passwordedit.Parent := frmDesign;
Passwordedit.Left := 116;
Passwordedit.Top := 44;
Passwordedit.Width := 121;
Passwordedit.Height := 21;
Passwordedit.Hint := 'Type your Password into this Box';
Passwordedit.PasswordChar := '*';
Passwordedit.ParentShowHint := False;
Passwordedit.ShowHint := True;
Passwordedit.TabOrder := 9;
Passwordedit.text := Password;
AntibanCheckbox := TCheckBox.Create(frmDesign);
AntibanCheckbox.Parent := frmDesign;
AntibanCheckbox.Left := 8;
AntibanCheckbox.Top := 75;
AntibanCheckbox.Width := 97;
AntibanCheckbox.Height := 17;
AntibanCheckbox.Hint := 'Check if you want to you the antiban feature';
AntibanCheckbox.Caption := 'Use Antiban?';
AntibanCheckbox.ParentShowHint := False;
AntibanCheckbox.ShowHint := True;
AntibanCheckbox.TabOrder := 10;
AntibanCheckbox.checked := UseAntiban;
Rotatecheckbox := TCheckBox.Create(frmDesign);
Rotatecheckbox.Parent := frmDesign;
Rotatecheckbox.Left := 98;
Rotatecheckbox.Top := 75;
Rotatecheckbox.Width := 97;
Rotatecheckbox.Height := 17;
Rotatecheckbox.Hint := 'Check if you want the script to randomly rotate';
Rotatecheckbox.Caption := 'Rotations?';
Rotatecheckbox.Checked := True;
Rotatecheckbox.ParentShowHint := False;
Rotatecheckbox.ShowHint := True;
Rotatecheckbox.TabOrder := 11;
Rotatecheckbox.checked := RRotates;
Rundirectioncombobox := TComboBox.Create(frmDesign);
Rundirectioncombobox.Parent := frmDesign;
Rundirectioncombobox.Left := 142;
Rundirectioncombobox.Top := 100;
Rundirectioncombobox.Width := 100;
Rundirectioncombobox.Height := 21;
Rundirectioncombobox.Hint := 'Choose the Run Direction';
Rundirectioncombobox.ItemHeight := 13;
Rundirectioncombobox.ParentShowHint := False;
Rundirectioncombobox.ShowHint := True;
Rundirectioncombobox.TabOrder := 12;
Rundirectioncombobox.Text := RunDirection;
RunDirectioncombobox.Items.Add('N');
RunDirectioncombobox.Items.Add('S');
RunDirectioncombobox.Items.Add('E');
RunDirectioncombobox.Items.Add('W');
Rocktypecombobox := TComboBox.Create(frmDesign);
Rocktypecombobox.Parent := frmDesign;
Rocktypecombobox.Left := 16;
Rocktypecombobox.Top := 100;
Rocktypecombobox.Width := 113;
Rocktypecombobox.Height := 21;
Rocktypecombobox.Hint := 'Choose the Rock type to Powermine';
Rocktypecombobox.ItemHeight := 13;
Rocktypecombobox.ParentShowHint := False;
Rocktypecombobox.ShowHint := True;
Rocktypecombobox.TabOrder := 13;
Rocktypecombobox.Text := RockName;
Rocktypecombobox.Items.Add('Tin');
Rocktypecombobox.Items.Add('Copper');
Rocktypecombobox.Items.Add('Iron');
Rocktypecombobox.Items.Add('Coal');
Rocktypecombobox.Items.Add('Silver');
Rocktypecombobox.Items.Add('Gold');
Rocktypecombobox.Items.Add('Mith');
Rocktypecombobox.Items.Add('Addy');
Rocktypecombobox.Items.Add('Rune');
Reportedit := TEdit.Create(frmDesign);
Reportedit.Parent := frmDesign;
Reportedit.Left := 141;
Reportedit.Top := 131;
Reportedit.Width := 101;
Reportedit.Height := 21;
Reportedit.Hint := 'How often to Show the Progress Report in Minutes';
Reportedit.ParentShowHint := False;
Reportedit.ShowHint := True;
Reportedit.TabOrder := 14;
Reportedit.Text := IntToStr(Report);
Maxwaittimeedit := TEdit.Create(frmDesign);
Maxwaittimeedit.Parent := frmDesign;
Maxwaittimeedit.Left := 141;
Maxwaittimeedit.Top := 158;
Maxwaittimeedit.Width := 101;
Maxwaittimeedit.Height := 21;
Maxwaittimeedit.Hint :=
'Maximum time you are Willing to Wait before moving to a new Rock' +
' (In Seconds)';
Maxwaittimeedit.ParentShowHint := False;
Maxwaittimeedit.ShowHint := True;
Maxwaittimeedit.TabOrder := 15;
Maxwaittimeedit.Text := IntToStr(MaxWaitTime);
Saveuncutcheckbox := TCheckBox.Create(frmDesign);
Saveuncutcheckbox.Parent := frmDesign;
Saveuncutcheckbox.Left := 176;
Saveuncutcheckbox.Top := 75;
Saveuncutcheckbox.Width := 97;
Saveuncutcheckbox.Height := 17;
Saveuncutcheckbox.Hint := 'Check if you want the script to keep the Uncut Gems You mine';
Saveuncutcheckbox.Caption := 'Keep Uncuts?';
Saveuncutcheckbox.ParentShowHint := False;
Saveuncutcheckbox.ShowHint := True;
Saveuncutcheckbox.TabOrder := 18;
Saveuncutcheckbox.checked := KeepUncuts;
Startbutton := TButton.Create(frmDesign);
Startbutton.Parent := frmDesign;
Startbutton.Left := 95;
Startbutton.Top := 192;
Startbutton.Width := 77;
Startbutton.Height := 25;
Startbutton.Hint := 'Hit to Start the Script !';
Startbutton.Caption := 'Start';
Startbutton.ParentShowHint := False;
Startbutton.ShowHint := True;
Startbutton.TabOrder := 16;
StartButton.OnClick := @Start;
antibanbutton := TButton.Create(frmDesign);
antibanbutton.Parent := frmDesign;
antibanbutton.Left := 178;
antibanbutton.Top := 191;
antibanbutton.Width := 98;
antibanbutton.Height := 26;
antibanbutton.Caption := 'Antiban Options';
antibanbutton.TabOrder := 17;
antibanbutton.ShowHint := True;
antibanbutton.Hint := 'To the Antiban Options';
antibanbutton.Onclick := @More;
Donate := TButton.Create(FrmDesign);
Donate.Parent := FrmDesign;
Donate.Left := 10;
Donate.Top := 192;
Donate.Width := 77;
Donate.Height := 25;
Donate.Hint := 'If you like my Scripts, Please Donate';
Donate.Caption := 'Donate';
Donate.ParentShowHint := False;
Donate.ShowHint := True;
Donate.TabOrder := 16;
Donate.OnClick := @DonateLink;
end;

procedure InitMore;
begin
LoadSets2;
frmMore := CreateForm;
frmMore.Left := 250;
frmMore.Top := 114;
frmMore.Width := 260;
frmMore.Height := 224;
frmMore.Caption := 'Antiban Options';
frmMore.Color := clBtnFace;
frmMore.Font.Color := clWindowText;
frmMore.Font.Height := -11;
frmMore.Font.Name := 'MS Sans Serif';
frmMore.Font.Style := [];
frmMore.Visible := false;
frmMore.PixelsPerInch := 96;
Logintimelabel := TLabel.Create(frmMore);
Logintimelabel.Parent := frmMore;
Logintimelabel.Left := 13;
Logintimelabel.Top := 31;
Logintimelabel.Width := 52;
Logintimelabel.Height := 13;
Logintimelabel.Caption := 'Login Time';
Randomlogintimelabel := TLabel.Create(frmMore);
Randomlogintimelabel.Parent := frmMore;
Randomlogintimelabel.Left := 12;
Randomlogintimelabel.Top := 60;
Randomlogintimelabel.Width := 95;
Randomlogintimelabel.Height := 13;
Randomlogintimelabel.Hint := 'Random time to Stay Loged in in Minutes';
Randomlogintimelabel.Caption := 'Random Login Time';
Randomlogintimelabel.ParentShowHint := False;
Randomlogintimelabel.ShowHint := True;
Logouttimelabel := TLabel.Create(frmMore);
Logouttimelabel.Parent := frmMore;
Logouttimelabel.Left := 12;
Logouttimelabel.Top := 88;
Logouttimelabel.Width := 59;
Logouttimelabel.Height := 13;
Logouttimelabel.Caption := 'Logout Time';
randomlogouttimelabel := TLabel.Create(frmMore);
randomlogouttimelabel.Parent := frmMore;
randomlogouttimelabel.Left := 12;
randomlogouttimelabel.Top := 116;
randomlogouttimelabel.Width := 102;
randomlogouttimelabel.Height := 13;
randomlogouttimelabel.Caption := 'Random Logout Time';
Logintimeedit := TEdit.Create(frmMore);
Logintimeedit.Parent := frmMore;
Logintimeedit.Left := 119;
Logintimeedit.Top := 27;
Logintimeedit.Width := 108;
Logintimeedit.Height := 21;
Logintimeedit.Hint := 'Time to Stay Loged in in Minutes';
Logintimeedit.Text := IntToStr(LoginTime);
Logintimeedit.ParentShowHint := False;
Logintimeedit.ShowHint := True;
Logintimeedit.TabOrder := 8;
randomlogintimeedit := TEdit.Create(frmMore);
randomlogintimeedit.Parent := frmMore;
randomlogintimeedit.Left := 119;
randomlogintimeedit.Top := 55;
randomlogintimeedit.Width := 108;
randomlogintimeedit.Height := 21;
randomlogintimeedit.Hint := 'Random time to Stay loged in in Minutes';
randomlogintimeedit.Text := IntToStr(loginRandom);
randomlogintimeedit.ParentShowHint := False;
randomlogintimeedit.ShowHint := True;
randomlogintimeedit.TabOrder := 9;
Logouttimeedit := TEdit.Create(frmMore);
Logouttimeedit.Parent := frmMore;
Logouttimeedit.Left := 119;
Logouttimeedit.Top := 84;
Logouttimeedit.Width := 108;
Logouttimeedit.Height := 21;
Logouttimeedit.Hint := 'Time to stay Loged out in Minutes';
Logouttimeedit.Text := IntToStr(LogoutTime);
Logouttimeedit.ParentShowHint := False;
Logouttimeedit.ShowHint := True;
Logouttimeedit.TabOrder := 10;
Randomlogouttimeedit := TEdit.Create(frmMore);
Randomlogouttimeedit.Parent := frmMore;
Randomlogouttimeedit.Left := 119;
Randomlogouttimeedit.Top := 112;
Randomlogouttimeedit.Width := 108;
Randomlogouttimeedit.Height := 21;
Randomlogouttimeedit.Hint := 'Random time to stay Loged out in Minutes';
Randomlogouttimeedit.Text := IntToStr(LogoutRandom);
Randomlogouttimeedit.ParentShowHint := False;
Randomlogouttimeedit.ShowHint := True;
Randomlogouttimeedit.TabOrder := 11;
savebutton := TButton.Create(frmMore);
savebutton.Parent := frmMore;
savebutton.Left := 88;
savebutton.Top := 148;
savebutton.Width := 75;
savebutton.Height := 25;
savebutton.Hint := 'Save';
savebutton.Caption := 'Save Options';
savebutton.ParentShowHint := False;
savebutton.ShowHint := True;
savebutton.TabOrder := 12;
savebutton.ShowHint := True;
savebutton.Hint := 'Save Your Options';
SaveButton.OnClick := @Save;
end;

begin
MadeBy;
SafeShowForm;
if(startscript=false)then TerminateScript;
ActivateClient;
SetupSSi;
GetColorsNeeded;
GetRockXP;
anti:=GetSystemTime;
LI:=LogInTime+random(loginrandom);
ST:=GetSystemTime;
report2:=GetSystemTime;
SetRun(true);
Bitmaps;
CheckBrightness;
Repeat
Repeat
FindRandoms;
MineRocks
If(InventoryCount=28)then
Break;
Until(false);
DropRocks;
Until(false)
end.[/PHP]

PowerChopper
My best free script available. Got me from level 1 WC to 93 in 2 weeks. It might be a bit outdated as the latest version is private to me, but it still works great.

[php]
{.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' /\ '
' P \ ASCii Created by Aki '
' ### \ * and Starblaster100 '
' OOAOO \ __ * '
' ### \##/ / / * '
' AOA \ _AA ___ * '
' ### \ / ##/ /| ______ __ ____ _________ _________ '
' ### \OO##OOO |/ /| / /|___ / /|/ /|/ /| '
' _/AOA/AA##AAA/ OOAAOO | ##/ /| #### |###aAa### |aAa###aAa | '
' ## \### OO |__ AAOOAA |_ ###OOO/ #OA# |###OAO### |###OAO### | '
' OOAOO OO/ /|##/ ##/ /|OOAA #AO# |###AOA### |###AOA### | '
' ### ##AA# |AAOOAA## |AA | #OA# |#O# | #O# |#O# | #O# | '
' P ##OO#/ OOAAOO##/ AA/ #### |#A# | #A# |#A# | #A# | '
' ______ #OA# |#O# | #O# |#O# | #O# | '
' / /\ #AO# |#A# | #A# |#A# | #A# | '
' ###O### \ * #### __ | #O# |#O# |_#O# | '
' OOA#AOOO \ ______ / /| | #A# |#A#/ #A# | '
' AA |_AAAA/ ___ * / /| _AA |__ ### |######### | '
' OO/ OOO / /| ______ ##AO##/ / ##/ /|###____####__ / '
' #######\ ### | / /| AO |___ OO##OOO | / /\ / /____ '
' ####### \ #A# | OOAAOO | OA/ /|AA##AAA/ /OAAO /| ##/ /|'
' OO |_OOO \ #O# |__ AAOOAA |_ ##OA## | OO |__ O# |#O | ###OOO/ '
' AA/ AAAA/ #A#/ /|##/ ##/ /| ___AO | OO/ /| O#/ #O/_ OOAA/ '
' OOA#AOOO #O##O# |OOAAOO## |/ OA | ##AA# | A##A/ /|AA | '
' ###O### ####O#/ OOAAOO##/ ##AO##/ ##OO#/ ####/ AA/ '
' '
' * > [ Productions Presents ] < * '
[.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
_____ ' ' _____
| \—-' ULTIMATE POWER CHOPPER '—-| \
| __/ ' ' | o |
<====|___ |====' Will Cut Specified Trees until '====| _/====>
/ | ' You stop the script ' | o \
\_____|—-' '—-|_____/
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' > [ INSTRUCTIONS ] < '
' '
' = Have all the correct includes '
_____ ' = Start next to the trees ' _____
| \—-' = No Good items incase of Death '—-| \
| __/ ' (Except Axe) ' | o |
<====|___ |====' = Axes MUST be UNWIELDED '====| _/====>
/ | ' = Have as many axes as you want ' | o \
\_____|—-' in your Inventory '—-|_____/
' = Hit start and fill in the setup'
' = Sit back and Watch ;-) '
' '
_____ [-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.] _____
| \—-' > [ CONTACT INFO: ] < '—-| \
| __/ ' Starblaster100@gmail.com ' | o |
<====|___ |====' '====| _/====>
/ | ' PM Starblaster100 at: ' | o \
\_____|—-' RuneSC,Kaiteniks,Scriptdump,RSCN '—-|_____/
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' I am not Held Responsible if any '
' of your Characters get Banned '
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.}

Program StarChopper;
{.include SSI2.txt}
{.include Boxbreaker.txt}
{.include RedXIIsFordCracker.txt}

Var
Chopped,TreeColor,report,report2,logintime2,loginrandom2,logouttime2,logoutrandom2:integer;
useantiban,Rrotates,Llogsout,results,Found:boolean;
lampskill,rundirection,TreeName:String;
anti,LI,RLoged,AttachCount:LongInt;
Drop,DropY,c,e,TreeXP:integer;
AxeHandle,EntCount:longint;
Head,Head2,Head3:longint;
m,n,rx,ry:integer;
//—- Form —-\\
FrmDesign : TForm;
Label1,Label2,Usernamelabel,Passwordlabel,Antibanlabel,Logintimelabel,Randomlogintimelabel,Logouttimelabel,Randomlogouttimelabel:TLabel;
TreeColoredit, Reporttimeedit, Logintime, Randomlogintime, Logouttime, Randomlogouttime, Usernamedit, passwordedit : TEdit;
RunDirectioncombo, LampSkillcombo, TreeNameCombo : TComboBox;
Antibancheck, Logouts, Ratates : TCheckBox;
Donate, StartButton : TButton;
StartScript : Boolean;

procedure log(why:string); {Created by Starblaster100}
var m,logcounter:integer;
begin
status('Logging out: '+why);
logcounter:=0;
wait(300);
mouse(646,484,4,4,true);
wait(500 + random(500));
repeat
logcounter:=logcounter+1;
Status('Trying to Log out: '+inttostr(logcounter)+'/5');
mouse(641,376,10,4,true);
for M:=0 to 30+random(10) do begin
Wait(100);
if(IsTextAt2(309,241,'Welcome to RuneScape',100))or
(IsTextAt2(293,251,'Username',100))then break;
end;
until(IsTextAt2(309,241,'Welcome to RuneScape',100))or
(IsTextAt2(293,251,'Username',100))or(logcounter>=5);
writeln('');
Writeln('Logged out: '+why);
end;

procedure AxeColor;
begin
GameTab(4);
wait(100 + random(200));
Mmouse(587,219,0,0);
wait(100 + random(100));
If(Option('Wield'))then
Begin
Head := GetColor(590,220);
Head2 := GetColor(587, 219);
Head3 := GetColor(588, 218);
writeln('Axe head colors: ' +inttostr(Head)+ ' '+inttostr(Head2)+ ' ' +inttostr(Head3));
end else
Begin
Writeln('Axe not found');
Terminatescript;
end;
end;

Procedure DropHandle;
begin
Gametab(4);
if not(GetColor(590,220)=Head)or
not(GetColor(587, 219)=Head2)or
not(GetColor(588, 218)=Head3)then
begin
Status('Dropping Handle');
mouse(582,227,1,1,false);
wait(500 + random(500));
if(findbitmap(Drop,x,y))or(findbitmap(DropY,x,y))then
begin
mouse(x,y,1,1,true);
wait(700 + random(500));
Status('Finding New Axe');
end else mmouse(10,10,50,50);
For n:=1 to 4 do begin
rx:=544+(n*42)
mmouse(rx,225,0,0);
wait(100 + random(100));
if(option('Wield'))then
begin
getmousepos(x,y);
holdmouse(x,y,true);
wait(200 + random(200));
mmouse(583,223,0,0);
wait(200 + random(200));
releasemouse(x,y,true);
wait(500 + random(500));
AxeColor;
break;
end;
if(n>=4)then
begin
Log('No Axes Found');
terminatescript;
end;
end;
end;
end;

procedure Attach; {Created by Liquid from Kaitnieks}
begin
GameTab(4);
writeln('Attatching 1/2');
if(FindcolorSpiralTolerance(x,y,Head,550,200,745,465,5))and
(FindBitmapSpiralTolerance(AxeHandle,x,y,550,200,745,465,100))then
begin
writeln('Attaching 2/2');
if(FindcolorSpiralTolerance(x,y,Head,550,200,745,465,5))then
Begin
Mouse(x, y, 3, 3, True);
wait(600+random(400));
end;
if(FindBitmapSpiralTolerance(AxeHandle,x,y,550,200,745,465,50))then
Begin
Mouse(x, y, 3, 3, True);
wait(500+random(200));
AttachCount:=AttachCount+1;
writeln('Attached Axe Head!');
end;
end else Writeln('Not Attached');
end;

procedure FindHead; {Created by Liquid from Kaitnieks}
var
tries, x, y:integer;
Begin
if not(GetColor(590,220)=Head)or
not(GetColor(587,219)=Head2)or
not(GetColor(588,218)=Head3)then
begin
tries:=1;
repeat
if not(FindObj('Take',Head,5)) or
not(FindObj('Take',Head2,5)) or
not(FindObj('Take',Head3,5)) then
begin
writeln('Axe head not found. Taken '+inttostr(tries)+' tries.');
status('Axe head not found moving to red dot');
x := 648;
y := 83;
tries:= tries + 1;
FindColorSpiral(x, y, 241, 570, 5, 725, 155);
Mouse(x+3,y+3,2,2,true);
Flag;
wait(200 + random(100));
end;
if(FindObj('Take',Head,5))or
(FindObj('Take',Head2,5)) or
(FindObj('Take',Head3,5)) then
begin
status('Found Axe Head');
writeln('Axe head was found. Picking it up');
wait(450 + random(400));
Getmousepos(x,y);
Mouse(x,y,0,0,True);
flag;
wait(500 + random(300));
end;
until(FindObj('Take',Head,5)) or
(FindObj('Take',Head2,5)) or
(FindObj('Take',Head3,5)) or (tries>9) or
(FindcolorSpiralTolerance(x,y,Head,550,200,745,465,5))
if(tries>9)then
begin
writeln('Axe head was not found. Taking New Axe');
DropHandle;
end else
Attach;
end;
end;

procedure AntiBan2; {Created by CanadaRules}
begin
END;

procedure FindRandoms;
begin
GameTab(4);
if(LLogsOut)then
LogOutEvery(2,5+random(5));
if(RRotates)then
RotateEvery(20+random(10));
LeaveScreenEvery(5+random(5));
if(FindFight)then
begin
RunAwayDirection(RunDirection);
Wait(5000+random(1000));
RunBack;
end;
Gametab(4);
FindHead;
FindAxe;
FindTalk;
FindDoctorFord;
FindBox;
FindMiscRandoms;
FindLamp(Lampskill);
AntiBan2;
end;

Procedure PrintProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
Begin
if(GetSystemTime-report2 > report*60000)then
Begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
+inttostr(RSeconds)+' Seconds';
end;
begin
status('Progress Report:');
writeln('');
writeln('<——====== Starblaster100s Powercutter ======——>');
writeln('Progress Report:');
writeln('Worked for '+Time);
writeln('Cutting '+TreeName+' Trees');
writeln('Chopped about '+InttoStr(Chopped)+' Logs');
if not(TreeName='All')then writeln('Gained Approx. '+(inttoStr(TreeXP*Chopped))+' Exp');
writeln('AntiRandom Report:');
if(EntCount>0)then writeln(' Found '+IntToStr(EntCount)+' Ents');
if(attachcount>0)then writeln(' Attached head '+InttoStr(attachcount)+' Times');
if(fights>0)then writeln(' Fought '+inttostr(fights)+' time.');
if(talks>0)then writeln(' Talked to '+inttostr(talks)+' random event.');
if(DrFords>0)then writeln(' Talked to Dr Ford '+IntToStr(DrFords)+' Times');
if(lamps>0)then writeln(' Used lamps '+inttostr(lamps)+' time.');
if(boxes>0)then writeln(' Solved '+inttostr(boxes)+' box[es].');
if(Rloged>0)then writeln(' Logged in '+inttostr(logs)+' time.');
Report2:=GetSystemTime;
end;
end;
End;

Procedure GetTreeType;
begin
if(TreeName='Tree')then //Normal
Begin TreeXP:=25; end;
If(TreeName='Oak')then //Oak
Begin TreeXP:=round(75/2); end;
if(TreeName='Willow')then //Willow
Begin TreeXP:=round(125/2); end;
If(TreeName='Maple')then //Maple
Begin TreeXP:=100; end;
If(TreeName='Mahogany')then//Mahogany
Begin TreeXP:=125; end;
if(TreeName='Yew')then //Yew
Begin TreeXP:=175; end;
If(TreeName='Magic')then //Magic
Begin TreeXP:=250; end;
end;

Procedure Standstill;
begin
Mouse(647,82,2,2,true);
wait(800 + random(400));
Mouse(647,82,2,2,true);
wait(3000 + random(2000));
end;

Procedure StartChopping;
begin
Status('Finding '+TreeName+' Trees');
repeat
If(findobj('Chop down '+TreeName,TreeColor,1))and(not FindColorTolerance(x,y,515029,1,1,180,39,20))And
not (findcolorspiraltolerance(x,y,65535,1,1,200,20,20)) then begin
mouse(x,y,0,0,true); flag;
results:=true
end;
until(results=true)
end;

procedure WaitWhilstChopping;
begin
repeat
c:=0;
E:=60+random(15);
repeat
c:=c+1;
status('Chopping '+TreeName+' Tree: '+intToStr(C)+'/'+IntToStr(E));
findrandoms;
if found then
exit;
wait(100);
if(FindColorTolerance(x,y,515029,1,1,180,39,20))or
(findcolorspiraltolerance(x,y,65535,1,1,200,40,20)) then begin
Writeln('Ent found');
EntCount:=EntCount+1;
SaveScreenshot('Ent Found');
standstill;
exit;
end;
until not(Option('Chop down '+TreeName))or(C>=E)or(InventoryCount>=28)
until (((getcolor(223,430)=0)and(getcolor(263,417)=0))) or not(Option('Chop down '+TreeName))or(C>=E)or(InventoryCount>=28);
end;

Procedure DropLogs;
begin
Status('Dropping Logs');
Chopped:=chopped+28;
Gametab(4)
begin
for M:=1 to 7 do begin
For n:=1 to 4 do begin
rx:=544+(n*42)
ry:=192+(m*36)
findrandoms;
mmouse(rx,ry,0,0); wait(200+random(100));
If(IsTextAt2(9,9,'Wield',100))then
begin chopped := Chopped - 1; end;
if not(IsTextAt2(9,9,'Wield',100))then
begin
getmousepos(x,y)
mouse(x,y,5,5,false); wait(100 + random(50));
if(Findbitmap(Drop,x,y))or(Findbitmap(DropY,x,y))then
begin
mouse(x,y+1,5,1,true);
wait(400 + random(450));
end else mmouse(233,123,50,50);
end;
end;
end;
end;
end;

Procedure Bitmaps;
begin
AxeHandle := BitmapFromString(4, 5,
'564D42000001000001544A3B000001694A08694A08000001000001' +
'694A082E2000000001000001694A08000001302020000001694A08' +
'000001302020');
Drop := BitmapFromString(28, 6, 'z78DA737343000324E04684382' +
'E35A4AA2446BD1BC5EEC46F23B5C4A965E6A83B87AE3B29497B94' +
'E42362DC00008F0FEAE5');
DropY := BitmapFromString(28, 6, 'z78DA737373733330700393C8' +
'C08D08715C6A4855498C7A378ADD89DF466A8953CBCC51770E5D7' +
'75292F628C947C4B8010058BBDB99');
end;

Procedure Madeby;
begin
Writeln('');
Writeln('');
Writeln('');
Writeln('<==================================>');
Writeln('| PowerCutter by Starblaster100 |');
Writeln('| Chops Specified Logs until Full |');
Writeln('| Inventory,and then Drops Logs |');
Writeln('<==================================>');
Writeln('');
end;

//———======= Form Stuff =======———\\

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;

Procedure SaveSets;
begin;
SaveSetting('StarChopper','Saved','true');
SaveSetting('StarChopper','Username',username);
SaveSetting('StarChopper','Password',Password);
SaveSetting('StarChopper','RunDirection',RunDirection);
SaveSetting('StarChopper','LampSkill',LampSkill);
if(Rrotates) then SaveSetting('StarChopper','RRotates','true') else SaveSetting('StarChopper','RRotates','false')
if(LLogsOut) then SaveSetting('StarChopper','LLogsout','true') else SaveSetting('StarChopper','LLogsout','false')
if(UseAntiBan) then SaveSetting('StarChopper','UseAntiBan','true') else SaveSetting('StarChopper','UseAntiBan','false')
if(UseAntiBan) then
begin;
SaveSetting('StarChopper','logintime2',inttostr(logintime2));
SaveSetting('StarChopper','loginrandom2',inttostr(loginrandom2));
SaveSetting('StarChopper','logouttime2',inttostr(logouttime2));
SaveSetting('StarChopper','logoutrandom2',inttostr(logoutrandom2));
end;
SaveSetting('StarChopper','TreeName',TreeName);
SaveSetting('StarChopper','Report',inttostr(Report));
SaveSetting('StarChopper','TreeColor',inttostr(TreeColor));
end;

Procedure LoadSets;
begin;
if(LoadSetting('StarChopper','Saved')='true') then begin
Username:=LoadSetting('StarChopper','Username');
Password:=LoadSetting('StarChopper','Password');
RunDirection:=LoadSetting('StarChopper','RunDirection');
LampSkill:=LoadSetting('StarChopper','LampSkill');
if(LoadSetting('StarChopper','RRotates')='true') then Rrotates:=true;
if(LoadSetting('StarChopper','LLogsout')='true') then Llogsout:=true;
if(LoadSetting('StarChopper','UseAntiBan')='true') then UseAntiBan:=true;
if(UseAntiBan) then
begin;
logintime2:=strtoint(LoadSetting('StarChopper','logintime2'));
loginrandom2:=strtoint(LoadSetting('StarChopper','loginrandom2'));
logouttime2:=strtoint(LoadSetting('StarChopper','logouttime2'));
logoutrandom2:=strtoint(LoadSetting('StarChopper','logoutrandom2'));
end;
TreeName:=LoadSetting('StarChopper','TreeName');
Report:=strtoint(LoadSetting('StarChopper','Report'));
TreeColor:=strtoint(LoadSetting('StarChopper','TreeColor'));
end;
end;

procedure Go(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
startscript:=True;
Username := Usernamedit.text;
Password := Passwordedit.text;
RunDirection := RunDirectioncombo.text;
LampSkill := LampSkillcombo.text;
TreeName := TreeNameCombo.text;
RRotates := Ratates.State;
LLogsout := Logouts.State;
UseAntiBan := Antibancheck.State;
If(UseAntiBan=true)then
begin
logintime2 := StrToInt(logintime.text);
loginrandom2 := StrToInt(Randomlogintime.text);
logouttime2 := StrToInt(Logouttime.text);
logoutrandom2 := StrToInt(Randomlogouttime.text);
end;
writeln('Username is '+Username);
Writeln('Password Protected for Security reasons');
If(TreeName='All')or(TreeName='Tree Type to Cut')then begin TreeName:=''; writeln('Cutting all trees'); end else writeln('Cutting '+TreeName)
If(LampSkill='LampSkill')then begin Lampskill := 'Attack'; Writeln('No Lampskill set - Using Default - Attack'); end else writeln('Lampskill is '+Lampskill);
If(RunDirection='RunDirection')then begin RunDirection:='N'; Writeln('No Run Direction set - Using Default - N'); end else writeln('Run Direction is '+RunDirection);
If(Reporttimeedit.text='')then begin Report:=1; end else Report := StrToInt(Reporttimeedit.text);
If(TreeColoredit.text='')then begin TreeColor := 0; writeln('No tree Color set'); terminatescript; end else TreeColor := StrToInt(TreeColoredit.text);
SaveSets;
frmDesign.ModalResult:= mrOk;
end;

procedure DonateLink(sender: TObject);
begin
OpenWebPage('https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=starblaster100%40gmail%2ecom&item_name=RS2%20Scripts&no_shipping=0&no_note=1&tax=0¤cy_code=GBP&bn=PP%2dDonationsBF&charset=UTF%2d8');
end;

Procedure InitForm;
begin
LoadSets;
FrmDesign := CreateForm;
FrmDesign.Left := 307;
FrmDesign.Top := 178;
FrmDesign.Width := 350;
FrmDesign.Height := 456;
FrmDesign.Caption := 'Starblaster100'#39's Ultimate Powercutter';
FrmDesign.Color := clBtnFace;
FrmDesign.Font.Color := clWindowText;
FrmDesign.Font.Height := -11;
FrmDesign.Font.Name := 'MS Sans Serif';
FrmDesign.Font.Style := [];
FrmDesign.Visible := False;
FrmDesign.PixelsPerInch := 96;
Usernamelabel := TLabel.Create(FrmDesign);
Usernamelabel.Parent := FrmDesign;
Usernamelabel.Left := 55;
Usernamelabel.Top := 23;
Usernamelabel.Width := 74;
Usernamelabel.Height := 20;
Usernamelabel.Caption := 'Username';
Usernamelabel.Font.Color := clWindowText;
Usernamelabel.Font.Height := -16;
Usernamelabel.Font.Name := 'MS Sans Serif';
Usernamelabel.Font.Style := [];
Usernamelabel.ParentFont := False;
Passwordlabel := TLabel.Create(FrmDesign);
Passwordlabel.Parent := FrmDesign;
Passwordlabel.Left := 57;
Passwordlabel.Top := 52;
Passwordlabel.Width := 69;
Passwordlabel.Height := 20;
Passwordlabel.Caption := 'Password';
Passwordlabel.Font.Color := clWindowText;
Passwordlabel.Font.Height := -16;
Passwordlabel.Font.Name := 'MS Sans Serif';
Passwordlabel.Font.Style := [];
Passwordlabel.ParentFont := False;
Antibanlabel := TLabel.Create(FrmDesign);
Antibanlabel.Parent := FrmDesign;
Antibanlabel.Left := 127;
Antibanlabel.Top := 178;
Antibanlabel.Width := 68;
Antibanlabel.Height := 13;
Antibanlabel.Caption := 'AntiBan Setup';
Logintimelabel := TLabel.Create(FrmDesign);
Logintimelabel.Parent := FrmDesign;
Logintimelabel.Left := 31;
Logintimelabel.Top := 209;
Logintimelabel.Width := 109;
Logintimelabel.Height := 13;
Logintimelabel.Caption := 'Time to Stay Logged in';
Label1 := TLabel.Create(FrmDesign);
Label1.Parent := FrmDesign;
Label1.Left := 30;
Label1.Top := 327;
Label1.Width := 99;
Label1.Height := 16;
Label1.Caption := 'Color of the Tree';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -13;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(FrmDesign);
Label2.Parent := FrmDesign;
Label2.Left := 31;
Label2.Top := 355;
Label2.Width := 75;
Label2.Height := 16;
Label2.Caption := 'Report Time';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -13;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Randomlogintimelabel := TLabel.Create(FrmDesign);
Randomlogintimelabel.Parent := FrmDesign;
Randomlogintimelabel.Left := 31;
Randomlogintimelabel.Top := 237;
Randomlogintimelabel.Width := 95;
Randomlogintimelabel.Height := 13;
Randomlogintimelabel.Caption := 'Random Login Time';
Logouttimelabel := TLabel.Create(FrmDesign);
Logouttimelabel.Parent := FrmDesign;
Logouttimelabel.Left := 30;
Logouttimelabel.Top := 266;
Logouttimelabel.Width := 116;
Logouttimelabel.Height := 13;
Logouttimelabel.Caption := 'Time to Stay Logged out';
Randomlogouttimelabel := TLabel.Create(FrmDesign);
Randomlogouttimelabel.Parent := FrmDesign;
Randomlogouttimelabel.Left := 31;
Randomlogouttimelabel.Top := 294;
Randomlogouttimelabel.Width := 102;
Randomlogouttimelabel.Height := 13;
Randomlogouttimelabel.Caption := 'Random Logout Time';
Usernamedit := TEdit.Create(FrmDesign);
Usernamedit.Parent := FrmDesign;
Usernamedit.Left := 141;
Usernamedit.Top := 23;
Usernamedit.Width := 121;
Usernamedit.Height := 21;
Usernamedit.Hint := 'Type your Username into this Box';
Usernamedit.TEXT:= Username;
Usernamedit.ParentShowHint := False;
Usernamedit.ShowHint := True;
Usernamedit.TabOrder := 8;
passwordedit := TEdit.Create(FrmDesign);
passwordedit.Parent := FrmDesign;
passwordedit.Left := 141;
passwordedit.Top := 49;
passwordedit.Width := 121;
passwordedit.Height := 21;
passwordedit.Hint := 'Type your Password into this Box';
passwordedit.TEXT:=Password;
passwordedit.ParentShowHint := False;
passwordedit.ShowHint := True;
passwordedit.TabOrder := 9;
passwordedit.PasswordChar := '*';
Logouts := TCheckBox.Create(FrmDesign);
Logouts.Parent := FrmDesign;
Logouts.CHECKED:= LogsOut;
Logouts.Left := 35;
Logouts.Top := 117;
Logouts.Width := 111;
Logouts.Height := 17;
Logouts.Hint :=
'Check if you want the script to Randomally Logout and then Log Ba' +
'ck in';
Logouts.Caption := 'Random Logouts?';
Logouts.ParentShowHint := False;
Logouts.ShowHint := True;
Logouts.TabOrder := 10;
Ratates := TCheckBox.Create(FrmDesign);
Ratates.Parent := FrmDesign;
Ratates.Checked:=Rotates;
Ratates.Left := 177;
Ratates.Top := 116;
Ratates.Width := 113;
Ratates.Height := 17;
Ratates.Hint := 'Check if you want the script to Randomally Rotate';
Ratates.Caption := 'Random Rotations?';
Ratates.ParentShowHint := False;
Ratates.ShowHint := True;
Ratates.TabOrder := 11;
RunDirectioncombo := TComboBox.Create(FrmDesign);
RunDirectioncombo.Parent := FrmDesign;
RunDirectioncombo.Left := 175;
RunDirectioncombo.Top := 143;
RunDirectioncombo.Width := 117;
RunDirectioncombo.Height := 21;
RunDirectioncombo.Hint := 'Direction you want to Run Away in';
RunDirectioncombo.TEXT:=RunDirection;
RunDirectioncombo.ItemHeight := 13;
RunDirectioncombo.ParentShowHint := False;
RunDirectioncombo.ShowHint := True;
RunDirectioncombo.TabOrder := 12;
RunDirectioncombo.Items.Add('N');
RunDirectioncombo.Items.Add('S');
RunDirectioncombo.Items.Add('E');
RunDirectioncombo.Items.Add('W');
LampSkillcombo := TComboBox.Create(FrmDesign);
LampSkillcombo.Parent := FrmDesign;
LampSkillcombo.Left := 175;
LampSkillcombo.Top := 85;
LampSkillcombo.Width := 145;
LampSkillcombo.Height := 21;
LampSkillcombo.Hint := 'Skill to Use the Lamp on If one is Found';
LampSkillcombo.TEXT:=LampSkill;
LampSkillcombo.ItemHeight := 13;
LampSkillcombo.ParentShowHint := False;
LampSkillcombo.ShowHint := True;
LampSkillcombo.TabOrder := 13;
LampSkillcombo.Items.Add('Strength');
LampSkillcombo.Items.Add('Attack');
LampSkillcombo.Items.Add('Ranged');
LampSkillcombo.Items.Add('Magic');
LampSkillcombo.Items.Add('Defence');
LampSkillcombo.Items.Add('Hitpoints');
LampSkillcombo.Items.Add('Prayer');
LampSkillcombo.Items.Add('Agility');
LampSkillcombo.Items.Add('Herblore');
LampSkillcombo.Items.Add('Thieving');
LampSkillcombo.Items.Add('Crafting');
LampSkillcombo.Items.Add('RuneCraft');
LampSkillcombo.Items.Add('Slayer');
LampSkillcombo.Items.Add('Farming');
LampSkillcombo.Items.Add('Mining');
LampSkillcombo.Items.Add('Smithing');
LampSkillcombo.Items.Add('Fishing');
LampSkillcombo.Items.Add('Cooking');
LampSkillcombo.Items.Add('Firemaking');
LampSkillcombo.Items.Add('Woodcutting');
LampSkillcombo.Items.Add('Fletching');
TreeNameCombo := TComboBox.Create(FrmDesign);
TreeNameCombo.Parent := FrmDesign;
TreeNameCombo.Left := 15;
TreeNameCombo.Top := 85;
TreeNameCombo.Width := 145;
TreeNameCombo.Height := 21;
TreeNameCombo.Hint := 'Select the Tree type you Want to Cut';
TreeNameCombo.Text := TreeName;
TreeNameCombo.ItemHeight := 13;
TreeNameCombo.ParentShowHint := False;
TreeNameCombo.ShowHint := True;
TreeNameCombo.TabOrder := 14;
TreeNameCombo.Items.Add('All');
TreeNameCombo.Items.Add('Tree');
TreeNameCombo.Items.Add('Oak');
TreeNameCombo.Items.Add('Willow');
TreeNameCombo.Items.Add('Maple');
TreeNameCombo.Items.Add('Mahogany');
TreeNameCombo.Items.Add('Yew');
TreeNameCombo.Items.Add('Magic');
Antibancheck := TCheckBox.Create(FrmDesign);
Antibancheck.Parent := FrmDesign;
Antibancheck.Left := 35;
Antibancheck.Top := 145;
Antibancheck.Width := 97;
Antibancheck.Height := 17;
Antibancheck.Hint := 'Check if you want to use the AntiBan Feature';
Antibancheck.Checked:=UseAntiBan;
Antibancheck.Caption := 'Use AntiBan?';
Antibancheck.ParentShowHint := False;
Antibancheck.ShowHint := True;
Antibancheck.TabOrder := 15;
StartButton := TButton.Create(FrmDesign);
StartButton.Parent := FrmDesign;
StartButton.Left := 70;
StartButton.Top := 383;
StartButton.Width := 75;
StartButton.Height := 25;
StartButton.Hint := 'Hit to Start the Script!';
StartButton.Caption := 'Start';
StartButton.ParentShowHint := False;
StartButton.ShowHint := True;
StartButton.TabOrder := 16;
StartButton.OnClick := @Go;
Donate := TButton.Create(FrmDesign);
Donate.Parent := FrmDesign;
Donate.Left := 173;
Donate.Top := 383;
Donate.Width := 75;
Donate.Height := 25;
Donate.Hint := 'If you like my Scripts, Please Donate';
Donate.Caption := 'Donate';
Donate.ParentShowHint := False;
Donate.ShowHint := True;
Donate.TabOrder := 16;
Donate.OnClick := @DonateLink;
Logintime := TEdit.Create(FrmDesign);
Logintime.Parent := FrmDesign;
Logintime.Left := 169;
Logintime.Top := 207;
Logintime.Width := 121;
Logintime.Height := 21;
Logintime.Hint := 'In Minutes';
Logintime.TEXT:=inttostr(logintime2);
Logintime.ParentShowHint := False;
Logintime.ShowHint := True;
Logintime.TabOrder := 17;
Randomlogintime := TEdit.Create(FrmDesign);
Randomlogintime.Parent := FrmDesign;
Randomlogintime.Left := 169;
Randomlogintime.Top := 234;
Randomlogintime.Width := 121;
Randomlogintime.Height := 21;
Randomlogintime.Hint := 'In Minutes';
Randomlogintime.Text:=inttostr(loginrandom2);
Randomlogintime.ParentShowHint := False;
Randomlogintime.ShowHint := True;
Randomlogintime.TabOrder := 18;
Logouttime := TEdit.Create(FrmDesign);
Logouttime.Parent := FrmDesign;
Logouttime.Left := 169;
Logouttime.Top := 262;
Logouttime.Width := 121;
Logouttime.Height := 21;
Logouttime.Hint := 'In Minutes';
Logouttime.Text:=inttostr(logouttime2);
Logouttime.ParentShowHint := False;
Logouttime.ShowHint := True;
Logouttime.TabOrder := 19;
Randomlogouttime := TEdit.Create(FrmDesign);
Randomlogouttime.Parent := FrmDesign;
Randomlogouttime.Left := 169;
Randomlogouttime.Top := 291;
Randomlogouttime.Width := 121;
Randomlogouttime.Height := 21;
Randomlogouttime.Hint := 'In Minutes';
Randomlogouttime.Text:=inttostr(logoutrandom2);
Randomlogouttime.ParentShowHint := False;
Randomlogouttime.ShowHint := True;
Randomlogouttime.TabOrder := 20;
TreeColoredit := TEdit.Create(FrmDesign);
TreeColoredit.Parent := FrmDesign;
TreeColoredit.Left := 169;
TreeColoredit.Top := 324;
TreeColoredit.Width := 121;
TreeColoredit.Height := 21;
TreeColoredit.Hint := 'Put the Color of the Tree into this Box';
TreeColoredit.Text:=inttostr(TreeColor);
TreeColoredit.ParentShowHint := False;
TreeColoredit.ShowHint := True;
TreeColoredit.TabOrder := 21;
Reporttimeedit := TEdit.Create(FrmDesign);
Reporttimeedit.Parent := FrmDesign;
Reporttimeedit.Left := 169;
Reporttimeedit.Top := 351;
Reporttimeedit.Width := 121;
Reporttimeedit.Height := 21;
Reporttimeedit.Hint := 'How Often to Print the Progress report (In Minutes)';
Reporttimeedit.Text:=inttostr(Report);
Reporttimeedit.ParentShowHint := False;
Reporttimeedit.ShowHint := True;
Reporttimeedit.TabOrder := 22;
end;

begin
SetupSSi;
Madeby;
SafeInitForm;
SafeShowFormModal;
if(startscript=false)then TerminateScript;
ActivateClient;
anti:=GetSystemTime;
LI:=LogInTime2+random(loginrandom2);
ST:=GetSystemTime;
report2:=GetSystemTime;
Bitmaps;
wait(800 + random(500));
GameTab(4);
AxeColor;
FindAxeHeadColor;
GetTreeType;
repeat
repeat
PrintProgressReport;
FindRandoms;
StartChopping;
WaitWhilstChopping;
If (InventoryCount>=28)then
break;
until(false)
DropLogs;
PrintProgressReport;
until(false)
end.
[/PHP]

Bone Picker and Buryer
A simple script to increase your Prayer level. Recommended you dont use this for too long

[php]{.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' /\ '
' P \ Created by Aki '
' ### \ * and Starblaster100 '
' OOAOO \ __ * '
' ### \##/ / / * '
' AOA \ _AA ___ * '
' ### \ / ##/ /| ______ __ ____ _________ _________ '
' ### \OO##OOO |/ /| / /|___ / /|/ /|/ /| '
' _/AOA/AA##AAA/ OOAAOO | ##/ /| #### |###aAa### |aAa###aAa | '
' ## \### OO |__ AAOOAA |_ ###OOO/ #OA# |###OAO### |###OAO### | '
' OOAOO OO/ /|##/ ##/ /|OOAA #AO# |###AOA### |###AOA### | '
' ### ##AA# |AAOOAA## |AA | #OA# |#O# | #O# |#O# | #O# | '
' P ##OO#/ OOAAOO##/ AA/ #### |#A# | #A# |#A# | #A# | '
' ______ #OA# |#O# | #O# |#O# | #O# | '
' / /\ #AO# |#A# | #A# |#A# | #A# | '
' ###O### \ * #### __ | #O# |#O# |_#O# | '
' OOA#AOOO \ ______ / /| | #A# |#A#/ #A# | '
' AA |_AAAA/ ___ * / /| _AA |__ ### |######### | '
' OO/ OOO / /| ______ ##AO##/ / ##/ /|###____####__ / '
' #######\ ### | / /| AO |___ OO##OOO | / /\ / /____ '
' ####### \ #A# | OOAAOO | OA/ /|AA##AAA/ /OAAO /| ##/ /|'
' OO |_OOO \ #O# |__ AAOOAA |_ ##OA## | OO |__ O# |#O | ###OOO/ '
' AA/ AAAA/ #A#/ /|##/ ##/ /| ___AO | OO/ /| O#/ #O/_ OOAA/ '
' OOA#AOOO #O##O# |OOAAOO## |/ OA | ##AA# | A##A/ /|AA | '
' ###O### ####O#/ OOAAOO##/ ##AO##/ ##OO#/ ####/ AA/ '
' '
' * > [ Productions Presents ] < * '
[.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
_____ ' ' _____
| \—-' BONE BURYER 2 '—-| \
| __/ ' ' | o |
<====|___ |====' Picks up bones from the floor '====| _/====>
/ | ' and Buries them ' | o \
\_____|—-' '—-|_____/
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' > [ INSTRUCTIONS ] < '
' '
_____ ' = Start where lots of Bones ' _____
| \—-' are usually left '—-| \
| __/ ' = Setup colors, Silent Mouse OFF ' | o |
<====|___ |====' = Very Bright, Map facing North '====| _/====>
/ | ' = LOW Detail server ' | o \
\_____|—-' = Nothing Good on you incase of '—-|_____/
' Death and Empty Inventory '
' '
_____ [-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.] _____
| \—-' > [ CONTACT INFO: ] < '—-| \
| __/ ' Starblaster100@gmail.com ' | o |
<====|___ |====' '====| _/====>
/ | ' PM Starblaster100 at: ' | o \
\_____|—-' RuneSC,Kaiteniks,Scriptdump,RSCN '—-|_____/
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]
' I am not Held Responsible if any '
' of your Characters get Banned '
[-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.}

program BonePickerAndBuryer;
{.include SSi2.txt}
{.include Boxbreaker.txt}

Const
Bonecolor = 14277086; {Bonecolor on the floor}
Report = 1; {How often to Print the Progress report in Miutes}
RunDirection = 'E'; {Direction to Run away in: N,S,E,W}
LampSkill = 'Prayer'; {Skill to Use lamp on if Found}

Var
PrintReport,Picked,Buried,Take,TakeY:integer;

Procedure PrintProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
Begin
if(GetSystemTime-PrintReport > report*60000)then
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
+inttostr(RSeconds)+' Seconds';
end;
begin
status('Progress Report:');
Writeln('');
Writeln('<——====== Starblaster100s Bone Picker and Buryer ======——>');
Writeln('Worked for '+Time);
Writeln('Picked '+IntToStr(Picked)+' Bones');
Writeln('Buried '+IntToStr(Buried)+' Bones');
if(talks>0)then writeln(' Talked to '+inttostr(talks)+' random event.');
if(lamps>0)then writeln(' Used lamps '+inttostr(Lamps)+' time.');
if(Boxes>0)then writeln(' Found '+IntToStr(Boxes)+' Strange Boxes');
PrintReport:=GetSystemTime;
end;
end;
end;

procedure FindRandoms;
begin
LoginIfNeeded;
GameTab(4);
LogOutEvery(1,5+random(5));
RotateEvery(10+random(5));
FindTalk;
FindBox;
FindMiscRandoms;
FindLamp(Lampskill);
end;

Procedure Pickbones;
Begin
Status('Picking Bones');
Take := BitmapFromString(61, 5, 'z78DA73734300030CE08643961' +
'87137AA9A8C0BB8B9591A9840495A8B23CB926B0E61DFB9E105F8' +
'551263E650096D6A880F7CDA263E8E86566863236915DAD44DC34' +
'33D6D13EF6BF24A124AF202792509AE3296785D94C7267EF301EB' +
'D38D63');
TakeY := BitmapFromString(58, 4, 'z78DA7373737333C002DCC0E2' +
'6E18B2C488E352439EC9B8809B9BA5810994A4B538B22CF1E6E0F' +
'70BAE1023266C893173A8842D79E26E039A6E898F91A115B63092' +
'FA614BDDF43974D32D00BC1C2382');
If(inventorycount=28)then
Exit;
Repeat
Wait(100);
Findrandoms;
Until(Findcolorspiral(x,y,Bonecolor,1,1,512,336));
If(findObj('Take',Bonecolor,2))then
Begin
Mouse(x,y,1,1,false);
wait(100 + random(200));
If(findbitmap(Take,x,y))or(Findbitmap(TakeY,x,y))then
Begin
Mouse(x+2,y,1,1,true);
FindRandoms;
flag;
wait(300 + random(200));
Picked:=Picked+1;
end else MMouse(1,1,20,20);
end;
PrintProgressReport;
FindRandoms;
Freebitmap(Take);
Freebitmap(TakeY);
end;

Procedure BuryBones;
Var
M,N,Rx,Ry:integer;
begin
Status('Burying Bones');
Gametab(4)
begin
for M:=1 to 7 do begin
For n:=1 to 4 do begin
rx:=544+(n*42)
ry:=192+(m*36)
Mmouse(Rx,Ry,2,2);
wait(100 + random(100));
if (Option('Bury'))then
begin
getmousepos(x,y)
mouse(x,y,2,2,true);
PrintProgressReport;
FindRandoms;
Buried:=Buried+1;
wait(1500 + random(200));
end;
end;
end;
end;
end;

Begin
SetupSSi;
Writeln('');
Writeln('If You Like My Scripts Please Donate to Me:');
Writeln('https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=starblaster100%40gmail%2ecom&item_name=RS2%20Scripts&no_shipping=0&no_note=1&tax=0¤cy_code=GBP&bn=PP%2dDonationsBF&charset=UTF%2d8');
PrintReport:=GetSystemTime;
Setrun(true);
Repeat
Repeat
FindRandoms;
Pickbones;
if(inventorycount=28)or(FindChatText('You don'))then
Break;
until(false);
BuryBones;
Until(false);
end.[/php]

Bow Maker
Again, a simple script to String Bows for you. Dont use this for more than an hour at a time otherwsie you will be banned.

[php]{ - Bow Maker By Starblaster100
- Bow String in second slot
- Any unstrung Bow in first
- Stand in any Bank and run
}

program Bowmaker;
{.Include SSi2.txt}

const
BowstoMake = 19; {How many bows do u want to make?}
bowcolor = 3243911; {Color of the bow in your inventory}
bowtype = 'Willow'; {type of bow you are making}
{Make sure first letter is Captial!!!}

var
bowsmade:integer;

Procedure PrintProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
Begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '
+inttostr(RSeconds)+' Seconds';
end;
begin
writeln('');
writeln('');
writeln('');
Writeln('<—— Bow Stringer by Starblaster100 ——>');
writeln('Progress Report:');
writeln('Worked for '+Time);
writeln('Strung Approx '+IntToStr(BowsMade)+' Bows');
end;
End;

Procedure CloseBank;
Var CloseBankScreen,C:Integer;
begin
CloseBankScreen := BitmapFromString(73, 15, 'z78DAE598E10E82300' +
'C845F89B8C5E07F7DFF57320A3FB61C576EEBA8A8982C66162CFD' +
'766DD33CA7474A19D75B9E520E5D9927D7744F979D95DDEB59E32' +
'3E08952BCCF1E5EFF468D452CFE84FC04B5797A7DCE406DF184F9' +
'D3E0E711A480DAEA8FF97CC5C6436DB942A911228B27C8A8C1CF8' +
'3799544567F4C6AB64D1FBB506AA682D08772671835372F0FB51D' +
'F57D1535E5DF99659557CDE85596C085FEEAD011B3418E7675C03' +
'795A2215799D62AE9A146F32A569677FC27B84A5EA54DC5CEA1A3' +
'561BBB3AE09B4AD1904FBEAE5C3F35BA53E4435D6548B095DAE09' +
'DBE7717764AA67DF9D63E5D9D7E029D0D1D15D4369428740EA576' +
'366242F2E11938B2EFADBD25E664A51BC1BA86D98FEAC8569CDC2' +
'DB07B917E1F35560195BA66DBD8967ABF579D76B0B7F76D95D936' +
'D4523E7BBA5AEDFE84ED607CA468E8DE8E9D63B43E61506FFF81F' +
'94CDF44257E3EE69FF9F87921B5E3E69C9134CF40CD3E5DA35416' +
'339DFE2A764F2F25481A');
If Findbitmapin(CloseBankScreen,x,y,411,27,500,55)then
Begin
Mouse(x+5,y+3,2,0,true);
C:=0;
repeat
wait(100);
C:=C+1;
Until not(IsTextAt2(185,36,'The Bank of RuneScape',100))or(c>19)
end;
Freebitmap(CloseBankScreen);
end;

procedure bank;
begin
repeat
openbank;
Until(Bankscreen)
If not(Getcolor(475, 81)=3359309)then
Mouse(475,81,1,1,true);
deposit(1,28,2);
wait(200 + random(200));
withdraw(1,1,14);
wait(200 + random(200));
withdraw(2,1,0);
wait(200 + random(200));
closebank;
end;

procedure makebows;
var rx,ry,n,m,x1,y1:integer;
begin
if(findcolorspiral(x,y,bowcolor,612,322,644,384))then
begin
repeat
mouse(708,443,1,1,true);
mouse(628,332,1,1,true);
mmouse(708,443,0,0);
until not(IsTextAt2(9,9,'Use Bow',100))
end;
if not(findcolorspiral(x,y,bowcolor,612,322,644,384))then
begin
for m:=1 to 7 do begin
for n:=1 to 4 do begin
rx:=532+(n*42)
ry:=178+(m*36)
mmouse(rx,ry,0,0);
if(IsTextAt2(9,9,'Use '+Bowtype,100))then
begin
getmousepos(x1,y1);
mouse(708,443,1,1,true);
mouse(x1+3,y1+3,1,1,true);
end;
end;
end;
end;
bowsmade:=bowsmade+14;
end;

begin
bowsmade:=0;
SetupSsi;
writeln('');
writeln('<—–===== Bow Maker by Starblaster100 =====—–>');
Writeln('If You Like My Scripts Please Donate to Me:');
Writeln('https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=starblaster100%40gmail%2ecom&item_name=RS2%20Scripts&no_shipping=0&no_note=1&tax=0¤cy_code=GBP&bn=PP%2dDonationsBF&charset=UTF%2d8');
writeln('');
chatsoff;
repeat
bank;
makebows;
PrintProgressReport;
until(bowsmade>=BowstoMake)
openbank;
deposit(1,28,2);
CloseBank;
logout;
writeln('Finished');
end.[/php]

Nice scrirpts. :)

wowie, very generous of you to share the wealth.

Mind if I SRL-erize some of them? :)

From: WT-Fakawi
Mind if I SRL-erize some of them? :)

Funny enough, I was just about to come here and edit my post so it says that. ;)

great scripts :D tried out the powerminer and the powercutter it works great :D

ima give the powerchooper a try :0 since it got him a nice lvl in 2 weeks

Can you post the cow hide banker?

From: WT-Fakawi
wowie, very generous of you to share the wealth.

Mind if I SRL-erize some of them? :)

Only if i can work with you :D . I have something i want to show you fakawi before you do though, contact me on MSN as soon as you can!

Thanks

Star

P.S WhatyouKnow13 - It's very outdated. As soon as i update ill post it for you

Will you update the powercutter & powerminer later, and make it available to everyone?

i have updated the powercutter but its private.
And im making a new powerminer

Love all of your script starblaster… Try to finish that mage chopper we talked about on msn. I f you need more cords hit me up or pm me here

On the power chopper, Im getting:
Line 275: [Error] (5133:1): Unknown identifier 'FindAxe' in script C:\Program Files\SCAR 2.03\Scripts\Treechopper.scar

Yes I have the includes and stuff.

get the latest ssi2.txt from stupidscripts.com

Nice scripts Starblaster, I might try out the PowerChopper :D

nice scriptd the powerchopper is amazibng got my new skiller to 50 wc today

Hi!
Could you help me with PowerChopper?
When I start, it makes one move on axe in inventory and do nothing else.
What's wrong?
Help me, please.

From: Alexandr
Hi!
Could you help me with PowerChopper?
When I start, it makes one move on axe in inventory and do nothing else.
What's wrong?
Help me, please.

Ok i get the some problem as Alexander it finds axe colors but never acturly starts choping the trees it would be real helpful to tell us 2 noobies what we can do to fix it or u could update your wc.

Jubjub

remove all lines which as LoginIfNeeded
then it will work

From: Starblaster100
remove all lines which as LoginIfNeeded
then it will work

ummm what does this mean exactly?

From: mass_art
ummm what does this mean exactly?

Load script and find this "LoginIfNeeded". Then delete it.

dude these are some nice scripts

Sorted out the error with new include however, says "axe not found" and there is a steel axe in slot one.

Progress Report:
Worked for 30 Minutes and 48 Seconds
Cutting Oak Trees
Chopped about 240 Logs
Gained Approx. 8880 Exp
AntiRandom Report:
Talked to 2 random event.
[Runtime Error] : Exception: Can't allocate the DIB handle in line 341 in script C:\Program Files\SCAR 2.03\includes\SSI2.txt

Nice script man but after about 30 mins it comes up with "[Runtime Error] : Exception: Can't allocate the DIB handle in line 341 in script C:\Program Files\SCAR 2.03\includes\SSI2.txt"

And would i be able to buy your privete version of the wood cutter with runescape money?

Sorry, no, its private for a reason :)

kk nvm it got me to lvl 60 wc in 1 day =)

Thanks, does it have to be any particular colour axe? because im using steel at the moment and it goes to find the axe head colour then the script finishes. I removed the LogInIfNeeded lines in the script but still having the same problem. I have also updated my SSI2 from stupidscripts.com

Any suggestions?

try using a different axe?

I ALWAYS get that DIB handle error within the first load or two. I converted the whole thing to srl. So permission to post? still all says from you etc. My name isnt on it anywhere. All i did was convert it to srl hack parts out that werent needed and mucked around with it a bit till it goes purrfect

may i see first please?
sounds very nice

From: Starblaster100
may i see first please?
sounds very nice

Of course.

I remember these scripts from Kaitnieks. I learned some stuff from your PowerChopper. ;p great scripts.

Ty Starblaster100! Finally got a good chopper script.

Thanks Starblaster100, I really enjoy your scripts. I am testing out the powerchopper and I just wanted to say thank you :P

Thanks for the comments

Very sexy looking scripts, I always liked how you script, all scripters have a special taste to scripting.

haha, thanks :) you should see my new ones ;)

How do I overwrite my old SSI2.txt with the new one?

Just save the new SSi2.txt as SSi2.txt and it will say, this file already exists, do you want to replace it. Say yes

Ok, I run it and type in my acct/pass n stuff in the screen that pops up, click run and hold my pointer over the rock until it gets the rock color. Then it looks for my pickaxe color, which it says

Pick head colors: 1781050 1583413 1583413

and then it does nothing from here

please what am i supposed to do?

yeah mines not finding the axe head colour either neither steel or mithril.
Im pretty sure my ssi2 is the latest got it from a link at sythe because the sttupidscripts\scripts link is down.

Include file C:\Program Files\SCAR 2.03\includes\SSI2.txt does not exist.
Include file C:\Program Files\SCAR 2.03\includes\Boxbreaker.txt does not exist.
Include file C:\Program Files\SCAR 2.03\includes\RedXIIsFordCracker.txt does not exist.
Failed when compiling



what am i doing wrong?

the power chopper works exelent for me. i ran it while i was in the shower and i gained 2 wc levels. but the anti randoms arent good, when i got out of the shower i had a bunch of boxes in my inv., and i was a frog.

Great Scripts. Kudos for you

Would you mind if for my personal use I edited these? (For example, putting in different box procedures.)

go right ahead

cool scrpts but i dont know how they work

starblaster, you triple posted on first page. BAD:(
lol jks

Thks dude, nice scripts! Haven't tested yet :(

Rcdb ( SOrry if wrong way spelled ) Your should look in Free SRL script's

There is more Updated. These are great scripts but kinda outdated.


~Home

( Rs scripts ) = Not SRL scripts

SRL Include = Not Outdated Include

Nice scripts and thank yo! Im about to try them out right now hope they work :)

Man your Sig is WAAAYYYY too big, could you please make it loads of smaller

( look my sexy one :cool: )


~Home

mk, i copied and pasted your PowerChopper Starblaster100 into SCAR (v2.03) and i have no frickin idea on how to get it started….yes i am a noob….if you dun like it,…sue me..,but anyways, how do i get like…the thing to cut a specfic tree i.e "Normal" trees? and how do i get the script to start well, cutting that tree? id appreciate if you could help a first time SCAR User =-) lol

www.stupidscripts.com the domain is expired help by uploading the file here or something?

Thks v.much testing scripts now!!!11

1 -

From: Starblaster100
get the latest ssi2.txt from stupidscripts.com

Site is down :(


2 -
Are you also planning to make a banker?


3 -
Is this a good updated version? Or do you like to release your privte (i don't think so, but i give it a try;) )

~Mod Mopar~

That ss2 from stupidscripts.com it tells its outdated site.

From: straig
Include file C:\Program Files\SCAR 2.03\includes\SSI2.txt does not exist.
Include file C:\Program Files\SCAR 2.03\includes\Boxbreaker.txt does not exist.
Include file C:\Program Files\SCAR 2.03\includes\RedXIIsFordCracker.txt does not exist.
Failed when compiling



what am i doing wrong?

i got same prob i cant figure out either (im a noob at this stuff) :confused:

can someone give me a link to download SRL im new to this website and i used to use SCAR alot but it died out plz someone im desperate to get back to lots of MONEY

o.k im new at this so help me out how do u load scar man im so confused plz help me u seem nice and smart

i get this problem with the autowcer? line 258 error unknown identifier find axe in script, do you have to be wielding an axE?

Line 199: [Error] (5057:1): Unknown identifier 'FindAxe'

?

From: pie lover 2000
i got same prob i cant figure out either (im a noob at this stuff) :confused:

You have to download the includes. To do this, open scar, click file, then click download includes and wait for them to finish. That should fix your problem, and if it doesn't, get SSI2 from stupidscripts.com

-Taylor:spot:

Hey Star? Hope this isn't asking for to much, but is there anyway you could put some good antirandoms on your woodcutter? If you can, thanks! But if you cant, I understand.

EDIT: Check out this proggy

<——====== Starblaster100s Powercutter ======——>
Progress Report:
Worked for 37 Minutes and 19 Seconds
Cutting Oak Trees
Chopped about 348 Logs
Gained Approx. 12876 Exp
AntiRandom Report:
Found 5 Ents
Fought 1 time.
Successfully executed

i get this

Failed when compiling
Line 258: [Error] (5116:1): Unknown identifier 'FindAxe' in script C:\Program Files\SCAR 2.03\Scripts\Woodcutter.scar

Ahh…the old powerminer. First script i ever used. Never failed me :p

it comes up with the power miner, say it doesn't allow drawings in line 252. i don't know what that means but ihaven't touched the script since i got it. could someone send me another script of help me plz

Holy smokes guys here comes the guy ( me ) running for noob of the year… where on earth am I to find these txt files? I went to the website that was posted earlier but it has nothing in it at all but pure crap..

{.include SSI2.txt}
{.include Boxbreaker.txt}
{.include RedXIIsFordCracker.txt}

any help anyone? or am I missing something here?

If it asks for anything besides SRL, don't bother it's outdated. If you really want to try in scar, file>download includes

so then these scripts are virtually useless?

Wow tyvm for these , ive been looking for a good wc'er for a while now :)

From: sonny
so then these scripts are virtually useless?

Without SRL, yes. :)

Hey Starblaster !
Can i know whats that secret u r going to say Fakawi ?

Include file C:\Program Files\SCAR 2.03\includes\SSi2.txt does not exist.
Include file C:\Program Files\SCAR 2.03\includes\Boxbreaker.txt does not exist.
Include file C:\Program Files\SCAR 2.03\includes\RedXIIsFordCracker.txt does not exist.
Failed when compiling

why does it say this, sorry new to SCAR

Error with Woodcutter.

Line 258: [Error] (5116:1): Unknown identifier 'FindAxe' in script
Failed when compiling

May be my fault if i didnt edit, have any idea please post to fix this!

There are new versions of these scripts out in the SRL Free Scripts Section.
Check the Thread called PowerSkills by Starblaster100

nice scripts star!

Nice scripts star blaster!! you are definately 1 of the best scripters ever ;) keep up the good work.

i always liked ur scripts star ^^ the powerchopper works great!! used on a noob acc its 55 wc now and it took me less then 5 days!!

Nice Star :) I wish i could program stuff like that… Need more IQ :(

In your powerchopper, i tried compiling and it said:
Line 258: [Error] (5116:1): Unknown identifier 'FindAxe' in script

The BoneBuryer doesn't work. I tried it at the chicken farm in lumbridge but it doesn't do anything.

wtf? Nice scripts i trye it its priti osom , but i got beter script so i dont use yours …. PS can you post ore help me find falador coal mining and banking , wear can come from minign lvl 60 .. its nice place to get some coala :)


Ores Mined and Dropped : 227
Number of avoided gasses: 1
Worked for 58 Minutes and 42 Seconds

how do u work dis thinngg ? idk wat to put in (im new no clue wat to do)
this thing below
{.include SSI2.txt}
{.include Boxbreaker.txt}
{.include RedXIIsFordCracker.txt}

Line 258: [Error] (5116:1): Unknown identifier 'FindAxe'
Help.

SCAR 2.03 –> File –> Download Includes

These are some nice scripts, the only prob is they are outdated =(

Cool scripts i like the PowerChopper by the way good work!

every time i try to run it, this is what i get.

Include file C:\Program Files\SCAR 3.01\includes\SSI2.txt does not exist.
Include file C:\Program Files\SCAR 3.01\includes\Boxbreaker.txt does not exist.
Include file C:\Program Files\SCAR 3.01\includes\RedXIIsFordCracker.txt does not exist.
Failed when compiling

:(

(power chopper)

File, download includes.
I don't recommend using them, you can use powerskills, same scripts, but updated.

From: bug
every time i try to run it, this is what i get.

Include file C:\Program Files\SCAR 3.01\includes\SSI2.txt does not exist.
Include file C:\Program Files\SCAR 3.01\includes\Boxbreaker.txt does not exist.
Include file C:\Program Files\SCAR 3.01\includes\RedXIIsFordCracker.txt does not exist.
Failed when compiling

:(

(power chopper)

That happens because you don't have scar 2.03, I tried using 3.11 but it wouldn't work =(

But 2.03 does nicely :)

Hmm let's see… NO SRL!!!

ty for includin that..

Is this outdated? StupidScripts.com seems to be removed or somthing

if i start the power chopper then it sais:
Failed when compiling
Line 258: [Error] (5116:1): Unknown identifier 'FindAxe' in script
how can i fix it?
plz help me =p

hi im kinda new to this kinda stuff but can someone plz help me. How do u get the scripts to work? thank you and plz reply quick =]

Scroll up and read the scrolling text.

as to replying quickly well lets just say people have a LIFE other than this forum

half these people dont even got srl not even an outdated version that just ticks me off.

Power wc problem ! help !


Line 258: [Error] (5116:1): Unknown identifier 'FindAxe' in script

Oh nice, thanks.

I hope you know that tis was released more than a year ago?

Please don't gravedig.

loving the woodcutting script its working wonders thanks so much for it!!!

Include file C:\Program Files\SCAR 3.12\includes\SSI2.txt does not exist.
Include file C:\Program Files\SCAR 3.12\includes\Boxbreaker.txt does not exist.
Include file C:\Program Files\SCAR 3.12\includes\RedXIIsFordCracker.txt does not exist.
Failed when compiling

i got this error when trying to use power chopper can anyone help me??

erm… squig.txt and boxbreaker.txt dont even exist anymore… this script is like 2 yrs old.. it wont work… read smartz coimment its old and outdated

spaz

nice scrip collection eh?? tried few it with old scar and they worked :D

From: altec
nice scrip collection eh?? tried few it with old scar and they worked :D

I really doubt they worked..

they might compile but i doubt they worked..

omg a bon burryer ty star

Does the bone burier work in the graveyard in wildy by any chance?

yes try it

=D or just read every page

errm.. stupidscripts.com doesnt work

yes because ur stupid

nice scripts i think, i say think because i can't make them work. =( heres what happend when i played.

Include file C:\Program Files\SCAR 3.14\includes\SSI2.txt does not exist.
Include file C:\Program Files\SCAR 3.14\includes\Boxbreaker.txt does not exist.
Include file C:\Program Files\SCAR 3.14\includes\RedXIIsFordCracker.txt does not exist.

And yes i have downloaded the includes. =]

From: Womble
nice scripts i think, i say think because i can't make them work. =( heres what happend when i played.

Include file C:\Program Files\SCAR 3.14\includes\SSI2.txt does not exist.
Include file C:\Program Files\SCAR 3.14\includes\Boxbreaker.txt does not exist.
Include file C:\Program Files\SCAR 3.14\includes\RedXIIsFordCracker.txt does not exist.

And yes i have downloaded the includes. =]

god please help us, we are getting so tired of noobs!

for F*** sake! this is outdated by hmm…. 1 year!

T ~ M

Lmao I used to use these scripts back in late '05 daaamn

Awesome to learn structuring of scripts, procedures are outdated like damn, though.

Shoot Yourself Gravedigger!

why wont admins close this?

well when starblaster is gonna update or w/e he can reopen :)

I never thought StarBlaster would get back, so I downloaded this and used a whole day updating. I made it compile, but it couldn't open the form. Since I never was a guru of forms, I silently dumped this into my "Unfinished"-Folder :p It's StarBlasters "burden" to update this if he wants to. Don't try to push him.

-Knives

Yeah I remember these scripts from ages ago worked amazing anyway he wont update these he will if at all update powerskills.