[RS2] Starblaster100's Free Scripts

Starblaster100's Free 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 Code:

{.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.] ' /\ ' ' 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[s].'); if(talks>0)then writeln(' Talked to '+inttostr(talks)+' random event[s].'); if(DrFords>0)then writeln(' Talked to Dr Ford '+IntToStr(DrFords)+' Times'); if(lamps>0)then writeln(' Used lamps '+inttostr(lamps)+' time[s].'); if(boxes>0)then writeln(' Solved '+inttostr(boxes)+' box[es].'); if(Rloged>0)then writeln(' Logged in '+inttostr(logs)+' time[s].'); 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&currency_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.

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 Code:

{.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.] ' /\ ' ' 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[s].'); if(talks>0)then writeln(' Talked to '+inttostr(talks)+' random event[s].'); if(DrFords>0)then writeln(' Talked to Dr Ford '+IntToStr(DrFords)+' Times'); if(lamps>0)then writeln(' Used lamps '+inttostr(lamps)+' time[s].'); if(boxes>0)then writeln(' Solved '+inttostr(boxes)+' box[es].'); if(Rloged>0)then writeln(' Logged in '+inttostr(logs)+' time[s].'); 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&currency_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.

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

PHP Code:

{.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.] ' /\ ' ' 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[s].'); if(lamps>0)then writeln(' Used lamps '+inttostr(Lamps)+' time[s].'); 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&currency_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.

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 Code:

{ - 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&currency_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.

Nice scrirpts. :)

wowie, very generous of you to share the wealth.

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

Quote:

Originally Posted by 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?

Quote:

Originally Posted by 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.

Quote:

Originally Posted by 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

Quote:

Originally Posted by Starblaster100

remove all lines which as LoginIfNeeded
then it will work

ummm what does this mean exactly?

Quote:

Originally Posted by 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[s].
[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

Quote:

Originally Posted by 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