Page 1 of 5 123 ... LastLast
Results 1 to 25 of 120

Thread: [RS2] Starblaster100's Free Scripts

  1. #1
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default [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  '    |   
          \
    _____|----'                                  '----|_____
                     [-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.] 
                     
    '       > [ 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  '    |   
          \
    _____|----'         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:      '    |   
          \
    _____|----' 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 
    randomlogouttimelabelLogouttimelabelRandomlogintimelabelLogintimelabelUsernameLabelPasswordlabelReportlabelMaxwaittimelebel TLabel
    Drop,DropY,RockColor,RockXP,TotalMined,Maxwaittime,Report,Report2,logintime,loginrandom,logouttime,logoutrandom:integer
    RandomlogouttimeeditLogouttimeeditrandomlogintimeeditLogintimeeditUsernameeditPasswordedit TEdit
    SaveuncutcheckboxAntibanCheckboxRotatecheckbox TCheckBox
    KeepUncutsGotcolors,RRotates,UseAntiban,StartScript:boolean
    AttachCount,PickHandle2,anti,LI,RLoged,GasTotal:longint
    RundirectioncomboboxRocktypecombobox TComboBox
    DonatesavebuttonStartbuttonantibanbutton TButton
    ReporteditMaxwaittimeedit 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-STdiv 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 
      
    clientcanvasgascanvas1gascanvas2 tcanvas
      
    xygxgycounttempbitmap integer
    begin 
      gx
    := 260
      
    gy:= 155
      
    result:= false
      if(
    findcolorspiraltolerance(xy8296866gx 70gy 70gx 70gy 7033))then 
        begin 
          TempBitmap
    := BitmapFromString(5050''); 
          
    GasCanvas1:= GetBitmapCanvas(TempBitmap); 
          
    GasCanvas2:= GetBitmapCanvas(TempBitmap); 
          
    clientcanvas:= getclientcanvas
          
    SafeCopyCanvas(GetClientCanvasgascanvas1gx 25gy 25gx 25gy 25005050); 
          
    wait(1); 
          
    SafeCopyCanvas(GetClientCanvasGasCanvas2gx 25gy 25gx 25gy 25005050); 
          
    CopyCanvas(clientCanvasgascanvas1gx 25gy 25gx 25gy 25005050); 
          
    wait(100); 
          
    copycanvas(clientcanvasgascanvas2gx 25gy 25gx 25gy 25005050); 
          
    count:= 0
          for 
    y:= 1 to 50 do 
            for 
    x:= 1 to 50 do 
              if((
    gascanvas1.pixels[xy])<>(gascanvas2.pixels[xy]))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+
        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(591221); 
        
    Head2 := GetColor(580218); 
        
    Head3 := GetColor(592222); 
        
    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(591221)=Head)or 
       
    not(GetColor(580218)=Head2)or 
       
    not(GetColor(592222)=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
    (xy33True); 
          
    wait(600+random(400)); 
          
    end
        if(
    FindBitmapSpiralTolerance(PickHandle2,x,y,550,200,745,465,100))then 
          Begin 
          Mouse
    (xy33True); 
          
    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 
      
    triesxy:integer
    Begin 
    GameTab
    (4); 
    if 
    not(GetColor(591221)=Head)or 
       
    not(GetColor(580218)=Head2)or 
       
    not(GetColor(592222)=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'); 
        
    := 648
        
    := 83
        
    tries:= tries 1
        
    FindColorSpiral(xy2415705725155
        
    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 (RockNameof 
      
    '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(77421)=0)and(Getcolor(131423)=0)and(Getcolor(146421)=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(77421)=0)and(Getcolor(131423)=0)and(Getcolor(146421)=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 1end
        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(286'z78DA737343000324E04684382' 
           
    'E35A4AA2446BD1BC5EEC46F23B5C4A965E6A83B87AE3B29497B94' 
           
    'E42362DC00008F0FEAE5'); 
    DropY := BitmapFromString(286'z78DA737373733330700393C8' 
           
    'C08D08715C6A4855498C7A378ADD89DF466A8953CBCC51770E5D7' 
           
    '75292F628C947C4B8010058BBDB99'); 
    PickHandle2 := BitmapFromString(1527
           
    '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 
      
    vTVariantArray
    begin 
      setarraylength
    (V0); 
      
    ThreadSafeCall('InitForm'v); 
      
    setarraylength(V0); 
      
    ThreadSafeCall('ShowFormModal'v); 
    end

    procedure SafeMore
    var 
      
    vTVariantArray
    begin 
      setarraylength
    (V0); 
      
    ThreadSafeCall('InitMore'v); 
    end

    procedure More(senderTObject); 
    var 
      
    vTVariantArray
    begin 
      SafeMore

      
    setarraylength(V0); 
      
    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(senderTObject); 
    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(senderTObject); 
    begin 
      frmMore
    .Caption:= frmMore.Caption '.'
      
    frmMore.ModalResult:= mrOk
      If(
    LoginTimeedit.text='')then 
        begin Logintime 
    := 0end else Logintime := StrToInt(LogintimeEdit.text
      If(
    randomlogintimeedit.text='')then 
        begin Loginrandom 
    := 0end else Loginrandom := StrToInt(randomlogintimeedit.text
      If(
    LogoutTimeedit.text='')then 
        begin Logouttime 
    := 0end else Logouttime := StrToInt(LogouttimeEdit.text
      If(
    randomlogouttimeedit.text='')then 
        begin Logoutrandom 
    := 0end else Logoutrandom := StrToInt(randomlogouttimeedit.text
      
    SaveSets2
    end

    procedure DonateLink(senderTObject); 
    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
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  2. #2
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    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       '    |   
          \
    _____|----'                                  '----|_____
                     [-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.] 
                     
    '       > [ 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  '    |   
          \
    _____|----'         in your Inventory        '----|_____
                     
    ' = Hit start and fill in the setup' 
                     ' =     Sit back and Watch ;-)     ' 
                     '                                  ' 
           
    _____     [-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]     _____ 
          
    |     \----'       > [ CONTACT INFO: ] <      '----|     \ 
          |   
    __/    '      Starblaster100@gmail.com    '    |   o  
     <====|
    ___  |===='                                  '====|    _/====> 
          /     |    
    '       PM Starblaster100 at:      '    |   
          \
    _____|----' 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
    TreeColoreditReporttimeeditLogintimeRandomlogintimeLogouttimeRandomlogouttimeUsernameditpasswordedit TEdit
    RunDirectioncomboLampSkillcomboTreeNameCombo TComboBox
    AntibancheckLogoutsRatates TCheckBox
    DonateStartButton 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(587219); 
        
    Head3 := GetColor(588218); 
        
    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(587219)=Head2)or 
       
    not(GetColor(588218)=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
    (xy33True); 
          
    wait(600+random(400)); 
          
    end
        if(
    FindBitmapSpiralTolerance(AxeHandle,x,y,550,200,745,465,50))then 
          Begin 
          Mouse
    (xy33True); 
          
    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 
      
    triesxy: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'); 
        
    := 648
        
    := 83
        
    tries:= tries 1
        
    FindColorSpiral(xy2415705725155); 
        
    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-STdiv 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:=25end
     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:=100end
     If(
    TreeName='Mahogany')then//Mahogany 
      
    Begin TreeXP:=125end
     if(
    TreeName='Yew')then     //Yew 
      
    Begin TreeXP:=175end
     If(
    TreeName='Magic')then   //Magic 
      
    Begin TreeXP:=250end
    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 1end
        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(45
           
    '564D42000001000001544A3B000001694A08694A08000001000001' 
           
    '694A082E2000000001000001694A08000001302020000001694A08' 
           
    '000001302020'); 
    Drop := BitmapFromString(286'z78DA737343000324E04684382' 
           
    'E35A4AA2446BD1BC5EEC46F23B5C4A965E6A83B87AE3B29497B94' 
           
    'E42362DC00008F0FEAE5'); 
    DropY := BitmapFromString(286'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 
      
    vTVariantArray
    begin 
      setarraylength
    (V0); 
      
    ThreadSafeCall('InitForm'v); 
    end

    procedure ShowFormModal
    begin 
      frmDesign
    .ShowModal
    end

    procedure SafeShowFormModal
    var 
      
    vTVariantArray
    begin 
      setarraylength
    (V0); 
      
    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(
    Rrotatesthen SaveSetting('StarChopper','RRotates','true') else SaveSetting('StarChopper','RRotates','false'
    if(
    LLogsOutthen SaveSetting('StarChopper','LLogsout','true') else SaveSetting('StarChopper','LLogsout','false'
    if(
    UseAntiBanthen SaveSetting('StarChopper','UseAntiBan','true') else SaveSetting('StarChopper','UseAntiBan','false'
    if(
    UseAntiBanthen 
      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(
    UseAntiBanthen 
      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(senderTObject); 
    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:=1end else Report := StrToInt(Reporttimeedit.text); 
      If(
    TreeColoredit.text='')then begin TreeColor := 0writeln('No tree Color set'); terminatescriptend else TreeColor := StrToInt(TreeColoredit.text); 
    SaveSets
    frmDesign.ModalResult:= mrOk
    end

    procedure DonateLink(senderTObject); 
    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
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  3. #3
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    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          '    |   
          \
    _____|----'                                  '----|_____
                     [-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.] 
                     
    '       > [ INSTRUCTIONS ] <       ' 
                     '                                  ' 
           
    _____     ' =   Start where lots of Bones    '     _____ 
          
    |     \----'        are usually left          '----|     \ 
          |   
    __/    ' = Setup colors, Silent Mouse OFF '    |   o  
     <====|
    ___  |====' = Very Bright, Map facing North  '====|    _/====> 
          /     |    
    ' =      LOW Detail server         '    |   
          \
    _____|----' =  Nothing Good on you incase of '----|_____
                     
    '     Death and Empty Inventory    ' 
                     '                                  ' 
           
    _____     [-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.]     _____ 
          
    |     \----'       > [ CONTACT INFO: ] <      '----|     \ 
          |   
    __/    '      Starblaster100@gmail.com    '    |   o  
     <====|
    ___  |===='                                  '====|    _/====> 
          /     |    
    '       PM Starblaster100 at:      '    |   
          \
    _____|----' 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 inN,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-STdiv 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(615'z78DA73734300030CE08643961' 
           
    '87137AA9A8C0BB8B9591A9840495A8B23CB926B0E61DFB9E105F8' 
           
    '551263E650096D6A880F7CDA263E8E86566863236915DAD44DC34' 
           
    '33D6D13EF6BF24A124AF202792509AE3296785D94C7267EF301EB' 
           
    'D38D63'); 
    TakeY := BitmapFromString(584'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-STdiv 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(7315'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(47581)=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
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  4. #4
    Join Date
    Feb 2006
    Posts
    1,022
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice scrirpts.

  5. #5
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    wowie, very generous of you to share the wealth.

    Mind if I SRL-erize some of them?
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  6. #6
    Join Date
    Feb 2006
    Posts
    1,022
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  7. #7
    Join Date
    Mar 2006
    Posts
    163
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

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

  8. #8
    Join Date
    Mar 2006
    Location
    YoUr BaCkYaRd?
    Posts
    195
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  9. #9
    Join Date
    Apr 2006
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can you post the cow hide banker?

  10. #10
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    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 . 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
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  11. #11
    Join Date
    Apr 2006
    Location
    California
    Posts
    555
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  12. #12
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    i have updated the powercutter but its private.
    And im making a new powerminer
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  13. #13
    Join Date
    May 2006
    Location
    New York
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  14. #14
    Join Date
    Apr 2006
    Posts
    131
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    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.

  15. #15
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    get the latest ssi2.txt from stupidscripts.com
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  16. #16
    Join Date
    Apr 2006
    Posts
    168
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice scripts Starblaster, I might try out the PowerChopper
    Oldgen.

  17. #17
    Join Date
    Jun 2006
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  18. #18
    Join Date
    Jun 2006
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  19. #19
    Join Date
    Jun 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  20. #20
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    remove all lines which as LoginIfNeeded
    then it will work
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  21. #21
    Join Date
    Jun 2006
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Starblaster100
    remove all lines which as LoginIfNeeded
    then it will work

    ummm what does this mean exactly?

  22. #22
    Join Date
    Jun 2006
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mass_art
    ummm what does this mean exactly?
    Load script and find this "LoginIfNeeded". Then delete it.

  23. #23
    Join Date
    Jun 2006
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    dude these are some nice scripts

  24. #24
    Join Date
    Jun 2006
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  25. #25
    Join Date
    Jun 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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?

Page 1 of 5 123 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •