Adblock breaks this site

easyskiller 3 in 1 by denial

Discussion in 'Outdated RS Scripts' started by Denial, Oct 20, 2007.

  1. Denial

    Denial Guest
    $25 USD Donor New

    Referrals:
    2
    easyskiller 3 in 1 by denial

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


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

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

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

    here it is, easyskiller 1.0 :D

    Code:
    program easyskiller;
    
    const
    
    {molten miner setup}
    
    startupwait1 = 10000;//how long before script starts after compiling
    
    rockcolor1 = 856870;// set 3 rock colors, default iron.
    
    rockcolor2 = 659229;// set 3 rock colors, default iron.
    
    rockcolor3 = 856870;// set 3 rock colors, default iron.
    
    mininginterval = 25000;// time before mining each ore
    
    rockstomine = 100;//how many rocks to mine
    {______________________________________________________________________________}
    {tree hugger setup}
    
    startupwait2 = 10000;//how long before script starts after compiling
    
    treecolor1 = 3567717;// set 3 tree colors.
    
    treecolor2 = 1452326;// set 3 tree colors.
    
    treecolor3 = 538158;// set 3 tree colors.
    
    choppinginterval = 9000;// time before chopping each log
    
    drop = true;// do you wanna drop? if false set logs to chop to 28
    
    logstochop = 100;//how many trees to chop
    {______________________________________________________________________________}
    {auto abuser setup}
    
    startupwait3 = 5000;//how long to wait before script starts so you can get ready
    
    monstercolor1 = 0;//color of the monster you wish to kill.
    
    monstercolor2 = 0;//secondary color (just get more or less the same color)
    
    monstercolor3 = 0;//if you still need an explanation your going nowhere fast
    
    combatinterval = 25000;//milliseconds between each kill
    
    monsterstokill = 100;// how many monsters to kill
    
     {.include SRL/SRL.scar}
    
    
    var
        frmDesign : TForm;
      moltenminer : TButton;
      treehugger : TButton;
      autoabuser : TButton;
      Button1 : TButton;
      i, x, y: integer;
    
    
    procedure startmoltenminer(sender: TObject);
    begin
    
    cleardebug;
    writeln('molten miner will begin soon, please post comments bugs and ')
    writeln('sugestions on site you got this script from')
    
    
    
     wait(startupwait1+random(1000))
    repeat
    
    
    
    
      if (FindColor(x, y, rockcolor1, 0, 0, 517, 337)) or
       (FindColor(x, y, rockcolor2, 0, 0, 517, 337)) or
        (FindColor(x, y, rockcolor3, 0, 0, 517, 337))then
        mmouse(x,y,2,2)
        mouse(x,y,1,1,true)
        i:= i + 1
    if (invfull = true) then
    writeln('dropping')
    dropall;
    cleardebug;
    writeln('mined: ' + inttostr(i))
    writeln('dropped: ' + inttostr(i))
    writeln('script has been working for ' + timerunning)
    
     wait(mininginterval+random(1000))
    until i = rockstomine
    
    
    writeln('script has worked for ' + timerunning)
    writeln('ores mined ' + inttostr(i))
    writeln('ores dropped ' +inttostr(i))
    end;
    
    procedure startautoabuser(sender: TObject);
    begin
     wait(startupwait3+random(1000))
    repeat
    
    i:= i + 1
      writeln('searching');
      if (FindColor(x, y, monstercolor1, 0, 0, 517, 337))
       or (FindColor(x, y, monstercolor2, 0, 0, 517, 337))
       or (FindColor(x, y, monstercolor3, 0, 0, 517, 337))then
        mmouse(x,y, 1, 1)
        mouse(x,y,1,1,true)
      writeln('abuse in progress... casualty number: ' + IntToStr(i))
     wait(combatinterval+random(1000));
    until i = monsterstokill;
    end;
    
    procedure Starttreehugger(sender: TObject);
    begin
    cleardebug;
    writeln('tree hugger will begin soon, please post comments bugs and ')
    writeln('sugestions on site you got this script from')
    
    
     wait(startupwait2+random(1000))
    repeat
    
    i:= i + 1
    if (drop = true) then
    dropall;
    cleardebug;
    writeln('chopped: ' + inttostr(i))
    writeln('dropped: ' + inttostr(i))
    writeln('script has been working for ' + timerunning)
    
      if (FindColor(x, y, treecolor1, 0, 0, 517, 337)) or
        (FindColor(x, y, treecolor2, 0, 0, 517, 337)) and
        (FindColor(x, y, treecolor3, 0, 0, 517, 337))then
        mmouse(x,y,2,2)
        mouse(x,y,1,1,true)
     wait(choppinginterval+random(1000))
    until i = logstochop
    
    
    writeln('script has worked for ' + timerunning)
    writeln('logs chopped ' + inttostr(i))
    writeln('logs dropped ' +inttostr(i))
    end;
    
    
    procedure initform;
    begin
      frmDesign := CreateForm;
    frmDesign.Left := 250;
    frmDesign.Top := 114;
    frmDesign.Width := 193;
    frmDesign.Height := 116;
    frmDesign.Cursor := crCross;
    frmDesign.Caption := 'easyskills';
    frmDesign.Color := clBlue;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := false;
    frmDesign.PixelsPerInch := 96;
    moltenminer := TButton.Create(frmDesign);
    moltenminer.Parent := frmDesign;
    moltenminer.Left := 8;
    moltenminer.Top := 8;
    moltenminer.Width := 75;
    moltenminer.Height := 25;
    moltenminer.Caption := 'moltenminer';
    moltenminer.TabOrder := 8;
    moltenminer.OnClick := @startmoltenminer;
    treehugger := TButton.Create(frmDesign);
    treehugger.Parent := frmDesign;
    treehugger.Left := 104;
    treehugger.Top := 8;
    treehugger.Width := 75;
    treehugger.Height := 25;
    treehugger.Caption := 'treehugger';
    treehugger.TabOrder := 9;
    treehugger.OnClick := @starttreehugger;
    autoabuser := TButton.Create(frmDesign);
    autoabuser.Parent := frmDesign;
    autoabuser.Left := 56;
    autoabuser.Top := 48;
    autoabuser.Width := 75;
    autoabuser.Height := 25;
    autoabuser.Caption := 'autoabuser';
    autoabuser.TabOrder := 10;
    autoabuser.OnClick := @Startautoabuser;
    Button1 := TButton.Create(frmDesign);
    Button1.Parent := frmDesign;
    Button1.Left := 72;
    Button1.Top := 16;
    Button1.Width := 1;
    Button1.Height := 9;
    Button1.Caption := 'Button1';
    Button1.TabOrder := 11;
    end;
    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      SetArrayLength(v, 0);
      ThreadSafeCall('InitForm', v);
    end;
    
    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;
    
    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      SetArrayLength(v, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;
    
    begin
      setupsrl;
      SafeInitForm;
      SafeShowFormModal;
    end.
    
     
  2. jacoby6000

    jacoby6000 Guest

    Referrals:
    0
    easyskiller 3 in 1 by denial

    gracias testing right now
     
  3. Denial

    Denial Guest
    $25 USD Donor New

    Referrals:
    2
    easyskiller 3 in 1 by denial

    good luc, tell me how it goes.
     
  4. Town

    Town Grand Master
    Scar Programmers

    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5
    easyskiller 3 in 1 by denial

    Make less threads, you have about eight now.
     
  5. Denial

    Denial Guest
    $25 USD Donor New

    Referrals:
    2
    easyskiller 3 in 1 by denial

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

    Damian684 Guest

    Referrals:
    0
    easyskiller 3 in 1 by denial

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

    Denial Guest
    $25 USD Donor New

    Referrals:
    2
    easyskiller 3 in 1 by denial

    no problems my freind, in future ill add radial wlaking and stuff but i need to learn first ;)
     
  8. YO UNIT3

    YO UNIT3 Guest

    Referrals:
    0
    easyskiller 3 in 1 by denial

    And How Do U Use The Script??
     
  9. howcow95

    howcow95 Apprentice
    Banned

    Joined:
    Jan 29, 2007
    Posts:
    733
    Referrals:
    1
    Sythe Gold:
    0
    easyskiller 3 in 1 by denial

    tried the autofighter and it froze scar :( then it just closed
     
  10. Denial

    Denial Guest
    $25 USD Donor New

    Referrals:
    2
    easyskiller 3 in 1 by denial

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

    range guy Member

    Joined:
    Nov 9, 2007
    Posts:
    99
    Referrals:
    0
    Sythe Gold:
    0
    easyskiller 3 in 1 by denial

    i cant get it to work. =(
     
  12. Denial

    Denial Guest
    $25 USD Donor New

    Referrals:
    2
    easyskiller 3 in 1 by denial

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

    Fieryjaws101 Guest

    Referrals:
    0
    easyskiller 3 in 1 by denial

    Any help for me?

    For the autoabuser script.. I entered colors aswell
     
  14. Da Grim Raper

    Da Grim Raper Guest

    Referrals:
    0
    easyskiller 3 in 1 by denial

    ima try it =)
     
  15. yukarg

    yukarg Guest

    Referrals:
    0
    easyskiller 3 in 1 by denial

    2 things -

    SCAR 3.13 is out

    File --> Download SRL

    File --> Download Includes


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

    TC 92 Forum Addict

    Joined:
    Aug 20, 2007
    Posts:
    319
    Referrals:
    0
    Sythe Gold:
    0
    easyskiller 3 in 1 by denial

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

    qazkiler666 Guest

    Referrals:
    0
    easyskiller 3 in 1 by denial

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

    lilgoldfish Newcomer

    Joined:
    Dec 30, 2007
    Posts:
    9
    Referrals:
    0
    Sythe Gold:
    0
    easyskiller 3 in 1 by denial

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

    Raunch It K Grand Master
    Banned

    Joined:
    Mar 12, 2007
    Posts:
    2,236
    Referrals:
    0
    Sythe Gold:
    0
    easyskiller 3 in 1 by denial

    add a banker >_<
     
  20. StarScreamer

    StarScreamer Guest

    Referrals:
    0
    easyskiller 3 in 1 by denial

    if you want it to stop freezing your pc then add some "wait(500) or sleep(500)" into your procedures.
     
< edgeville yew cutter n banker using SMART | Fally Yew Cutter >


 
 
Adblock breaks this site