Page 1 of 4 123 ... LastLast
Results 1 to 25 of 99

Thread: Spidas for Nubs

  1. #1
    Join Date
    Oct 2006
    Location
    I'm also from Michigan!
    Posts
    563
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Train-o-Matic 5000

    Hey! how ya doin? good to hear.

    introducing...
    The Train-o-Matic 5000

    Formerly "Spidas For Nubs"

    Features
    - Solid Monster Finding
    - Suggested Locations with autocoloring.
    - Customizable
    - Form GUI (no script setup)
    - Anti-ban
    - Anti-randoms
    - Automatic update button
    - Multiplayer
    - Saves Settings
    - oh so much more!


    UPDATES
    v2.1 - added SRL stats for inkd.
    v2.0 - Now named Train-o-matic 5000! Now has forms, and some other cool stuff.
    v1.6 - Less tab clicking. Better HP checking. Better FindTalk. Set attack style for players individually. some other bugs worked out.
    v1.5 - Fixed crazy-mouse bug. DL IT!
    v1.4 - Sorry it's been so long, ive been busy with some stuff. I had enough time to really rework the script and I think i fixed all bugs reported. Extremely solid. Added food eating. Better randoms. Better timed anti-ban. Better monster mini-map finding if not found on main screen. Highly recommended update!
    v1.3 - Added some basic stuff. Runs and logs out if you have low hp. Improved the finding monsters on minimap walking. Negaal fixed up the anti-randoms for me(thx!!). i highly suggest downloading this one if you have an older version.
    v1.2 - Basically just increased script integrity. I dont get the freak-out mouse bug anymore at all in this version. Should be able to run for hours at a time.
    v1.1 - ok, so the first release had a bug. after about 100 monsters the mouse would freak out. I fixed it, and added some other neat things. You can use it as just a regular autofighter now with a color defining option. More anti-ban and its fixed up too. I strongly suggest you update to this one. enjoy oh and big thanks to santaclause for the formatting!


    thanks ahead!
    -munk

  2. #2
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ================================================== ======
    The Spida Killa by munk
    --------------------------------------------------------
    Time : 1 Minutes, and 41 Seconds
    Kills : 7
    Lvls : +0 Combat, +0 Attack, +0 Strength, +0 Defense
    ================================================== ======
    Successfully executed

  3. #3
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice. I think with a few adjustments you can apply to members with this. Try standards.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  4. #4
    Join Date
    Oct 2006
    Location
    I'm also from Michigan!
    Posts
    563
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by SantaClause View Post
    Nice. I think with a few adjustments you can apply to members with this. Try standards.
    thx. i grew up writing basic, so i never worried about standards until like vbscript. still not good at it. I reallly only just used 1 space instead of 2.

  5. #5
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, one second and I'll fix it for you:

    SCAR Code:
    ///////////////////////////////////////////////////////////////////////
    ///                                                                 ///
    ///                                                                 ///
    ///                munk's spida killa for nubs                      ///
    ///                      v1.0  4/02/07                              ///
    ///                                                                 ///
    ///          This script is designed for new characters             ///
    ///         straight off of tutorial island. It kills               ///
    ///         spiders in the Lumbridge Castles basement and           ///
    ///         on the rare chance you die, it will walk back           ///
    ///         to the basement. Start in the basement logged           ///
    ///         out or in, doesn't matter. Use Scar Divi 3.06           ///
    ///         with newest SRL. Thanks to WT-fakawi for the            ///
    ///         anti-randoms. Please Post progress reports              ///
    ///         and thanks for using the script.                        ///
    ///                                                                 ///
    ///                                                                 ///
    ///////////////////////////////////////////////////////////////////////
    program spidaKilla;
    {.include srl/srl.scar}

    var
      j, count, pcount, mover, oc, oatt, ostr, odef, b, r, deafs : integer;
      colors : TVariantArray;

    const killsTilSwitch = 500; //amount of kills til next player
    const killslimit = 5000; //amount of kills til script ends
    const fightmode = 1; //Use 1-4 depending on the weapon you are wielding

    procedure declarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := ''; //username
      Players[0].Pass := ''; //password
      Players[0].Nick := ''; //3-4 letters of your username
      Players[0].loc := 'basement'; //should always be basement to start
      Players[0].Active := True;
    end;

    function FindFastRandoms : Boolean; //By WT-Fakawi.
    var
      i : Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1 : if FindDead then
              Result := True;
          2 : if FindMod then
              Result := True;
          3 : if FindMime then
              Result := True;
          4 : if FindMaze then
              Result := True;
          5 : if FindQuiz then
              Result := True;
          6 : if FindDemon then
              Result := True;
          7 : begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7 : begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8 : RC;
        end;
        wait(1);
      end;
    end;

    procedure randoms;
    begin
      findnormalrandoms;
      findfastrandoms;
      clearreport;
      SRLRandomsReport;
    end;

    procedure ban;
    var
      skill, msg : string;
    begin
      if (not (LoggedIn)) then loginplayer;
      if (inChat(Players[currentplayer].Name) or inChat(Players[currentplayer].Nick) or inChat(left(Players[currentplayer].Name, 4))) then
      begin
        case random(10) of
          0 : msg := 'hey';
          1 : msg := 'sup';
          2 : msg := 'whatchu want?';
          3 : msg := 'cant talk right now, sry';
          4 : msg := 'what do you want?';
          5 : msg := '...?';
          6 : msg := '??';
          7 : msg := 'haha';
          8 : msg := 'sry, i dont feel like talking, im turning chat off now';
          9 : msg := 'hello';
          10 : msg := 'thats me!';
        end;
        typesend(HumanText(msg, 50));
      end;
      if (inChat('noob') or inChat('nub') or inChat('newb') or inChat('noobie') or inChat('nooby') or inChat('newbie')) then
      begin
        case random(10) of
          0 : msg := 'thanks buddy';
          1 : msg := 'haha, ok';
          2 : msg := 'nice';
          3 : msg := 'haha, your funny';
          4 : msg := 'ok, gj';
          5 : msg := 'right back atcha';
          6 : msg := '...?';
          7 : msg := 'haha';
          8 : msg := 'alright, im turning chat off now';
          9 : msg := 'yeah';
          10 : msg := 'it happens';
        end;
        typesend(HumanText(msg, 50));
      end;
      if (inChat('trade me') or inChat('let me buy') or inChat('can i have') or inChat('can i buy') or inChat('trade me your') or inChat('lemme see your')) then
      begin
        case random(10) of
          0 : msg := 'nah, sry';
          1 : msg := 'nfs';
          2 : msg := 'go away';
          3 : msg := 'no';
          4 : msg := 'leave me alone';
          5 : msg := 'no, sorry';
          6 : msg := '...?';
          7 : msg := 'not now, dawg! not now!';
          8 : msg := '...turning off trade requests';
          9 : msg := 'nope';
          10 : msg := 'negative';
        end;
        typesend(HumanText(msg, 50));
      end;
      if (inChat('hello') or inChat('whats up') or inChat('hey') or inChat('hows it goin')) then
      begin
        case random(10) of
          0 : msg := 'hey';
          1 : msg := 'sup';
          2 : msg := 'whatchu want?';
          3 : msg := 'cant talk right now, sry';
          4 : msg := 'what do you want?';
          5 : msg := '...?';
          6 : msg := '??';
          7 : msg := 'haha';
          8 : msg := 'sry, i dont feel like talking, im turning chat off now';
          9 : msg := 'hello';
          10 : msg := 'thats me!';
        end;
        typesend(HumanText(msg, 50));
      end;
      if (inChat('fight?') or inChat('fight me') or inChat('fite me') or inChat('lets go to wild')) then
      begin
        case random(10) of
          0 : msg := 'nah, not right now';
          1 : msg := 'just go away';
          2 : msg := 'go away';
          3 : msg := 'haha, no';
          4 : msg := 'not now, dawg! not now!';
          5 : msg := 'maybe later';
          6 : msg := 'haha, im ignoring you now';
          7 : msg := 'leave me alone';
          8 : msg := 'whatever';
          9 : msg := 'i am training right now';
          10 : msg := 'ha!';
        end;
        typesend(HumanText(msg, 50));
      end;
      if (inChat('att lvl?') or inChat('attack lvl?') or inChat('att level?') or inChat('attack level?') or inChat('attack?') or inChat('att?')) then
      begin
        sayCurrentLevels('attack');
      end;
      if (inChat('str lvl?') or inChat('strength lvl?') or inChat('str level?') or inChat('strength level?') or inChat('strength?') or inChat('str?')) then
      begin
        sayCurrentLevels('strength');
      end;
      if (inChat('def lvl?') or inChat('defence lvl?') or inChat('def level?') or inChat('defence level?') or inChat('defence?') or inChat('def?') or inChat('defense?') or inChat('defense lvl?') or inChat('defense level?')) then
      begin
        sayCurrentLevels('defence');
      end;
      case Random(5) of
        0 : begin
            case random(2) of
              0 : skill := 'strength';
              1 : skill := 'attack';
              2 : skill := 'defense';
            end;
            HoverSkill(skill, false);
            GameTab(4);
          end;
        1 : GameTab(1 + Random(12));
        2 : begin
            MMouse(random(600), -100, 0, 0);
            wait(1000 + random(1000));
          end;
        3 : SleepAndMoveMouse(500 + random(500));
        4 : begin
            mouse(random(500), random(300), 0, 0, false);
            wait(100 + random(500));
            popup('Cancel');
          end;
        5 : boredhuman;
      end;
    end;

    procedure dead;
    begin
      if (GetColor(28, 415) = 0) and (GetColor(72, 428) = 0) then //FindDead in antirandoms is off by 2 pixels, im guessing the last jagex update.
      begin
        inc(deafs);
        if findobj(x, y, 'Large door', 6867707, 5) then
        begin
          mouse(x, y, 0, 3, false);
          if not popup('Open') then
          begin
            popup('ancel');
          end;
        end;
        mouse(622, 95, 1, 1, true);
        flag;
        if findobj(x, y, 'Trapdoor', 3427164, 3) then
        begin
          mouse(x, y, 0, 0, false);
          if not popup('Open') then popup('ancel');
          flag;
        end;
        if findobj(x, y, 'Climb-down', 1118484, 1) then
        begin
          mouse(x, y, 0, 0, true);
          flag;
        end else
        begin
          logout;
          nextplayer(false);
        end;
      end;
    end;

    procedure proggie;
    var
      nc, natt, nstr, ndef : integer;
    begin
      gametab(1);
      nc := getcombatlevel;
      natt := getskilllevel('attack');
      nstr := getskilllevel('strength');
      ndef := getskilllevel('defense');
      ClearDebug;
      writeln('========================================================');
      writeln('The Spida Killa by munk');
      writeln('--------------------------------------------------------');
      writeln('Time    : ' + scripttime2(2));
      writeln('Kills   : ' + inttostr(count));
      writeln('Lvls    : +' + inttostr(nc - oc) + ' Combat, +' + inttostr(natt - oatt) + ' Attack, +' + inttostr(nstr - ostr) + ' Strength, +' + inttostr(ndef - odef) + ' Defense')
        writeln('========================================================');
    end;

    procedure setup;
    begin
      SetUpSRL;
      setarraylength(colors, 3);
      colors[0] := 1977645;
      colors[1] := 4482662;
      colors[2] := 3427661;
      count := 0;
      b := 0;
      r := 0;
      mousespeed := 15;
      declareplayers;
      activateclient;
      wait(2000 + random(1000));
      if not loggedin then loginplayer;
      makecompass('n');
      highestangle;
      gametab(1);
      SetFightMode(fightmode);
      oc := getcombatlevel;
      oatt := getskilllevel('attack');
      ostr := getskilllevel('strength');
      odef := getskilllevel('defense');
      setchat('on', 1);
      setchat('off', 2);
      setchat('off', 3);
    end;

    procedure attack;
    begin
      if not loggedin then loginplayer;
      if not FindColor(x, y, 65280, 220, 100, 300, 160) then
      begin
        if (mover = 10) then
        begin
          mover := 0;
          SendArrowWait(3, 800 + random(1000));
          HighestAngle;
          makecompass('n');
          mouse(630 + random(30), 770 + random(20), 0, 0, true);
          flag;
        end
          for j := 0 to 2 do
          begin
            if findobj(x, y, 'Attack', colors[j], 5) then
            begin
              mouse(x, y, 0, 0, false);
              if popup('Attack') then
              begin
                inc(count);
                inc(pcount);
                mover := 0;
                j := 2;
                flag;
              end else
              begin
                popup('ancel');
              end;
            end else
            begin
              inc(mover);
            end;
          end;
      end;
      wait(1000 - random(900));
    end;

    begin //main loop
      setup;
      repeat
        attack;
        dead;
        inc(b);
        if (b = 20) then
        begin
          ban;
          proggie;
          b := 0;
        end;
        inc(r);
        if (r = 10) then
        begin
          randoms;
          r := 0;
        end;
        if (pcount = killstilswitch) then
        begin
          nextplayer(true);
          pcount := 0;
        end;
      until (count = killslimit);

    end.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  6. #6
    Join Date
    Mar 2007
    Posts
    562
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks kool. nice idea for script.

    haxor.

    and its got walking woot woot

  7. #7
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hay. I have a weird problem with the script. First of all I'm not sure what happened but my character logged out for being afk and the mouse started freaking out and I had to close scar in order to get it working again. It was spazzing left and right on the edge of the runescape screen. How can I fix that?

    edit: Hmm the reason he got kicked off for being afk was because the script wouldn't attack any spiders. Is that your scripts fault or is it a problem on my end?

  8. #8
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by porian View Post
    Hay. I have a weird problem with the script. First of all I'm not sure what happened but my character logged out for being afk and the mouse started freaking out and I had to close scar in order to get it working again. It was spazzing left and right on the edge of the runescape screen. How can I fix that?

    edit: Hmm the reason he got kicked off for being afk was because the script wouldn't attack any spiders. Is that your scripts fault or is it a problem on my end?
    I'v got same problem rarely, but try setup your script again, i'll hope that help

  9. #9
    Join Date
    Oct 2006
    Location
    I'm also from Michigan!
    Posts
    563
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by porian View Post
    Hay. I have a weird problem with the script. First of all I'm not sure what happened but my character logged out for being afk and the mouse started freaking out and I had to close scar in order to get it working again. It was spazzing left and right on the edge of the runescape screen. How can I fix that?

    edit: Hmm the reason he got kicked off for being afk was because the script wouldn't attack any spiders. Is that your scripts fault or is it a problem on my end?
    yeah, are you using 1.0 or 1.1? cause i thought i fixed that. thats what i meant by the mouse freaking out. I havent heard of him getting logged for being afk, this script has a great attack procedure and has worked flawlessly on all 8 of my computers. make sure your screen is 32 bit color, and your client is low detail, and Very Bright(highest).

  10. #10
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by munk View Post
    yeah, are you using 1.0 or 1.1? cause i thought i fixed that. thats what i meant by the mouse freaking out. I havent heard of him getting logged for being afk, this script has a great attack procedure and has worked flawlessly on all 8 of my computers. make sure your screen is 32 bit color, and your client is low detail, and Very Bright(highest).
    I'm using 1.1 and my settings are all set like you mentioned. It seems that the mouse gets 'stuck' when he goes to log out. I've witnessed the mouse spaz out on the way to the log out button and then it gets stuck before it has the chance to click log out.

  11. #11
    Join Date
    Oct 2006
    Location
    I'm also from Michigan!
    Posts
    563
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by porian View Post
    I'm using 1.1 and my settings are all set like you mentioned. It seems that the mouse gets 'stuck' when he goes to log out. I've witnessed the mouse spaz out on the way to the log out button and then it gets stuck before it has the chance to click log out.
    test if it happens to you in v1.2 for me

  12. #12
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    zomg 1.2. k will do capt.


    hmm not sure how if this is what you intended to happen but the script clicks around for other spiders on the minimap before i kill one. the times that it's not clicking on another spider my char doesnt fight the spider that is attacking him,(even with auto retaliate on), he just stands there for a little a while and then starts running around getting attacked by a spider.

    So is this for 3.06 with srl 3.81?

  13. #13
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by porian View Post

    So is this for 3.06 with srl 3.81?

    Yes, it is

  14. #14
    Join Date
    Mar 2007
    Posts
    562
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh you updated it. ill give it anonther try.

    haxor

  15. #15
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Please dont use popup('cancel');
    Humans wont wont click there, they just move mouse out of area...
    i use this: mmouse(x,y,random(600), random (400));

    i modfied it lil bit ... i'm training on cows, works good for me
    ================================================== ======
    The Spida Killa by munk
    --------------------------------------------------------
    Time : 6 Minutes, and 27 Seconds
    Kills : 23
    Lvls : +0 Combat, +0 Attack, +0 Strength, +0 Defense
    Died : 0 times
    ================================================== ======
    Successfully executed
    hmm, 1 question more,
    is it an antirandom that script moves mouse over monster while but wont click on them, like 30 sec and then start attacking them normally... is it a hidden feature or i can disable it ?

    And what does b := 0;
    it's something about antiban ...?

    Please, can you do anything about Antirandoms bugs, it dont run even from swarm ...or is it about jagex new update?

  16. #16
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by negaal View Post
    Yes, it is
    So what are your thoughts on my experience with it?

  17. #17
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well, i dont think anything about that, i'm very newbie lol, i started like 3-4 days ago...but thing i know is that it works on Divi SRL 3.8/3.81

    heh, i'v been mading some scripts aswell, but like year ago, on 2.03... i'v forgotten lotsa things...

    About my expeience... i got lots of troubles with SRL, dont know nuthing about that, most of scripts not working, when i started SRL
    was getting popular, there were time where all ppls used includes only...

  18. #18
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh I thought you were munk woops.

    Anyway munk, the only problem I have is that he goes to find another monster on the minimap too fast to allow the char to kill the current spider. He starts the attack then clicks on the first game tab then the stats and inventory tab. If I get lucky and kill the spider before he's done clicking on those tabs, then I'm ok and he clicks on the yellow dot in the minimap. However if I don't kill the spider then the problem starts where he's running around with a spider attacking him and no retaliation. Is there any way to make change it so that he waits a few seconds after he starts fighting a spider?

    Otherwise everything seems to be working great. The mouse problem is definitely fixed now. I really like the auto response, though I changed some of them to "sup" and "hi" instead of "whats goin on" and the other one you had =P. Overall I think this is my favorite auto fighter that I've tried.

    Time : 2 Hours, 29 Minutes, and 42 Seconds
    Kills : 480
    Lvls : +4 Combat, +5 Attack, +1 Strength, +0 Defense
    Died : 0 times
    ================================================== ======

  19. #19
    Join Date
    Oct 2006
    Location
    I'm also from Michigan!
    Posts
    563
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    thx everyone for the support!

    porian - yeah, i added the feature if it doesnt find any spiders on screen it will click a yellow dot on the mini-map, but it should only do that if it doesnt find a spider on screen. Ill see if i can make that more failproof for ya.

    negaal - i was thinkin about that, cause i never click cancel. thanks for the code tibdit, ill use it. Ill write something that makes it move off it 90% of the time, and click cancel 10% (just for variety ) . sometimes it will jsut hover over the monster and not click it, idk why. its actually just part of the findobj function i used, ill try to tighten it up. "b:=0" is just a counter so it doesnt do antibans everytime it goes through the main loop so itll be looking for spiders more than moving the mouse around randomly. and swarm has never been detectable by SRL, its one of the hard ones since there so small.

    thanks for all the feedback. I'll try to do some updates if i got time today. Happy 4th of july to all you other dirty americans!

  20. #20
    Join Date
    Jun 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You should also know that sometimes it trys to logout too early, and since it can't logout because runescape gave it the "you must wait atleast 10 seconds after combat to logout" message, it starts killing spiders again >_>

  21. #21
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by munk View Post
    and swarm has never been detectable by SRL, its one of the hard ones since there so small.
    But it should at least run on low hp?
    I had like under 20 hp, it still didnt ran, or will it run on like 5 hp or something
    (got 42 hp, training on cows)
    I already added it to myself, but can you add antiban like examining something random...

    Hope you still continue updating

  22. #22
    Join Date
    Mar 2007
    Posts
    562
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    though couldnt you get colour of swarm and solve?????. even though there small scar can still detect i think.

    haxor

  23. #23
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    Swarm is detectable by SRL, InFight
    But InFight screws autofighters, so...
    I made a new script, check it out!.

  24. #24
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    dtm maybe? or findcolorSspiral... should be possible...
    Infractions, reputation, reflection, the dark side of scripting, they are.

  25. #25
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Any1 wanna have look on my litle bit modifed script, all credits still to munk
    added some randoms, cause it didnt solved anything lol, run away if needed, modifed some antiban stuff, etc.(runaway mostly copy-paste)
    also got some errors but it's still working
    someone give me tips and if want help me to fix it or sumthing, im newbie, lstarted like week ago...
    ...so dont get angry on me if i did anything wrong

    ///////////////////////////////////////////////////////////////////////
    /// ///
    /// ///
    /// munk's spida killa for nubs ///
    /// v1.2 4/03/07 ///
    /// ///
    /// modifed by me ///
    /// This script is designed for new characters ///
    /// straight off of tutorial island. It kills ///
    /// spiders in the Lumbridge Castles basement and ///
    /// on the rare chance you die, it will walk back ///
    /// to the basement. Start in the basement logged ///
    /// out or in, doesn't matter. Use Scar Divi 3.06 ///
    /// with newest SRL. Thanks to WT-fakawi for the ///
    /// anti-randoms. Please Post progress reports ///
    /// and thanks for using the script. ///
    /// ///
    /// ///
    ///////////////////////////////////////////////////////////////////////
    program spidaKilla;
    {.include srl/srl.scar}

    var
    j,count,pcount,oc,oatt,ostr,odef,deafs,b: integer;
    colors: TVariantArray;

    const killsTilSwitch = 500;
    const killslimit = 500;
    const fightmode = 1; //Use 1-4 depending on the weapon you are wielding
    const color1 = 2109495; //no need to set, 0 for defaults...
    const color2 = 2766153; //...can change to fight other monsters...
    const color3 = 4676985; //...or if the colors are changed
    const color4 = 4940416;
    const color5 = 4087173;
    const walkback = false; //set to false if not fighting in lumby castle basement to logout if you die
    const mname = 'Cow';
    const UseRunAway=true; //Use run away (True/False)
    const RunAtHP= 42; //Run away if hp is at this level
    const Direction='N'; //Runaway direction (N,S,E,W)

    procedure declarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    Players[0].Name := 'username';
    Players[0].Pass := 'pass';
    Players[0].Nick := 'some letters from middle of your name';
    Players[0].loc := 'field';
    Players[0].Active := True;
    end;

    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
    i: Integer;
    begin
    for i := 2 to 8 do
    begin
    case I of
    2: if FindMod then
    Result := True;
    3: if FindMime then
    Result := True;
    4: if FindMaze then
    Result := True;
    5: if FindQuiz then
    Result := True;
    6: if FindDemon then
    Result := True;
    7: begin
    if NoGameTab then
    begin
    Result := True;
    Players[CurrentPlayer].loc := 'No GameTab';
    Logout;
    Exit;
    end;
    end;
    7: begin
    if InBlack then
    begin
    Result := True;
    Players[CurrentPlayer].loc := 'InBlack';
    Logout;
    Exit;
    end;
    end;
    8: RC;
    end;
    wait(1);
    end;
    end;

    procedure randoms;
    begin
    wait(random(25)) Findfastrandoms;
    wait(random(25)) FindNormalRandoms;
    wait(random(25)) SolvePinBall;
    wait(random(25)) SolveBox;
    wait(random(25)) findname;
    wait(random(25)) Findtalk;
    PopUp('ontinue');
    clearreport;
    SRLrandomsreport;
    end;

    procedure responder;
    var msg: string;
    begin
    if (inChat(Players[currentplayer].Name) or inChat(Players[currentplayer].Nick) or inChat('nobo') or inChat(left(Players[currentplayer].Name,4))) then
    begin
    case random(11) of
    0: msg:='hey';
    1: msg:='sup';
    2: msg:='whatchu want?';
    3: msg:='cant talk right now, sry';
    4: msg:='what do you want?';
    5: msg:='...?';
    6: msg:='??';
    7: msg:='haha';
    8: msg:='sry, i dont feel like talking, im turning chat off now';
    9: msg:='hello';
    10: msg:='thats me!';
    end;
    typesend(HumanText(msg, 50));
    end;
    if (inChat('noob') or inChat('nub') or inChat('newb') or inChat('noobie') or inChat('what') or inChat('nooby') or inChat('newbie')) then
    begin
    case random(11) of
    0: msg:='thanks buddy';
    1: msg:='haha, ok';
    2: msg:='lol';
    3: msg:='haha, your funny';
    4: msg:='ok, nvm';
    5: msg:='right back atcha';
    6: msg:='...?';
    7: msg:='haha';
    8: msg:='alright, im turning chat off now';
    9: msg:='yeah';
    10: msg:='it happens';
    end;
    typesend(HumanText(msg, 50));
    end;
    if (inChat('trade me') or inChat('food plz') or inChat('can i have') or inChat('auto') or inChat('can i buy') or inChat('my cow') or inChat('plz food')) then
    begin
    case random(11) of
    0: msg:='nah, sry';
    1: msg:='oops';
    2: msg:='go away';
    3: msg:='no';
    4: msg:='leave me alone';
    5: msg:='no, sorry';
    6: msg:='...?';
    7: msg:='not now, dawg! not now!';
    8: msg:='no, get your yourself';
    9: msg:='nope';
    10: msg:='negative';
    end;
    typesend(HumanText(msg, 50));
    end;
    if (inChat('hello') or inChat('whats up') or inChat('talk') or inChat('hey') or inChat('hows it goin')) then
    begin
    case random(11) of
    0: msg:='hey';
    1: msg:='sup';
    2: msg:='whatchu want?';
    3: msg:='cant talk right now, sry';
    4: msg:='what do you want?';
    5: msg:='...?';
    6: msg:='??';
    7: msg:='haha';
    8: msg:='sry, i dont feel like talking, im turning chat off now';
    9: msg:='hello';
    10: msg:='thats me!';
    end;
    typesend(HumanText(msg, 50));
    end;
    if (inChat('fight?') or inChat('fight me') or inChat('fite me') or inChat('lets go to wild')) then
    begin
    case random(11) of
    0: msg:='nah, not right now';
    1: msg:='just go away';
    2: msg:='go away';
    3: msg:='haha, no';
    4: msg:='not now, dawg! not now!';
    5: msg:='maybe later';
    6: msg:='haha, im ignoring you now';
    7: msg:='leave me alone';
    8: msg:='whatever';
    9: msg:='i am training right now';
    10: msg:='ha!';
    end;
    typesend(HumanText(msg, 50));
    end;
    if (inChat('att lvl?') or inChat('attack lvl?') or inChat('att level?') or inChat('attack level?') or inChat('attack?') or inChat('att?')) then
    begin
    sayCurrentLevels('attack');
    end;
    if (inChat('str lvl?') or inChat('strength lvl?') or inChat('str level?') or inChat('strength level?') or inChat('strength?') or inChat('str?')) then
    begin
    sayCurrentLevels('strength');
    end;
    if (inChat('def lvl?') or inChat('defence lvl?') or inChat('def level?') or inChat('defence level?') or inChat('defence?') or inChat('def?') or inChat('defense?') or inChat('defense lvl?') or inChat('defense level?')) then
    begin
    sayCurrentLevels('defence');
    end;
    end;


    Procedure ban;
    var
    skill: string;
    Begin
    b:=0;
    if(not(LoggedIn))then loginplayer;
    case Random(7) of
    0: begin
    if(FightMode = 1) then begin
    HoverSkill('Attack',false);
    end;
    if(FightMode = 2) then begin
    HoverSkill('Strength',false);
    end;
    if(FightMode = 3) then begin
    HoverSkill('Attack',false);
    wait(1000 + random(500));
    HoverSkill('Strength',false);
    end;
    if(FightMode = 4) then begin
    HoverSkill('Defence',false);
    end;
    end;
    1: GameTab(1 + Random(6));
    2: begin
    MMouse(random(600),random(400),0,0);
    wait(1000+random(1000));
    if isuptext('Walk') then
    begin
    wait(300 + random (200));
    mouse(x,y,2,2,true);
    end;
    end;
    3: begin
    MMouse(random(600),random(350),0,0);
    wait(random(300));
    MMouse(random(600),random(350),0,0);
    wait(random(500));
    MMouse(random(600),random(350),0,0);
    wait(100+random(500));
    end;
    4: begin
    mouse(random(500),random(300),0,0,false);
    wait(100+random(500));
    MMouse(random(600),random(350),0,0);
    end;
    5: begin
    MMouse(random(450),random(600),0,0);
    wait(500+random(1000));
    end;
    6: begin
    SendArrowWait(3,800+random(1000));
    HighestAngle;
    wait(1000+random(1000));
    makecompass('n');
    end;
    end;
    end;

    procedure dead;
    begin
    if (GetColor(28, 415) = 0) and (GetColor(72, 428) = 0) then //FindDead in antirandoms is off by 2 pixels, im guessing the last jagex update.
    begin
    if walkback=true then
    begin
    inc(deafs);
    if findobj(x,y,'Large door',6867707,5) then
    begin
    mouse(x,y,0,3,false);
    if not popup('Open') then
    begin
    popup('ancel');
    end;
    end;
    mouse(622,95,1,1,true);
    flag;
    if findobj(x,y,'Trapdoor',3427164,3) then
    begin
    mouse(x,y,0,0,false);
    if not popup('Open') then popup('ancel');
    flag;
    end;
    if findobj(x,y,'Climb-down',1118484,1) then
    begin
    mouse(x,y,0,0,true);
    flag;
    end else
    begin
    logout;
    nextplayer(false);
    end;
    end else
    begin
    logout;
    nextplayer(false);
    end;
    end;
    end;

    procedure proggie;
    var
    nc,natt,nstr,ndef:integer;
    begin
    gametab(1);
    nc:=getcombatlevel;
    natt:=getskilllevel('attack');
    nstr:=getskilllevel('strength');
    ndef:=getskilllevel('defense');
    ClearDebug;
    writeln('========================================= ===============');
    writeln('The Spida Killa by munk');
    writeln('--------------------------------------------------------');
    writeln('Time : ' + scripttime2(2));
    writeln('Kills : ' + inttostr(count));
    writeln('Lvls : +' + inttostr(nc - oc) + ' Combat, +'+ inttostr(natt - oatt) + ' Attack, +'+ inttostr(nstr - ostr) + ' Strength, +'+ inttostr(ndef - odef) + ' Defense')
    writeln('Died : ' + inttostr(deafs) + ' times');
    writeln('========================================= ===============');
    end;

    procedure setup;
    begin
    SetUpSRL;
    setarraylength(colors,5);
    if color1=0 then
    begin
    colors[0] := 5003368;
    end else
    begin
    colors[0] := color1;
    end;
    if color2=0 then
    begin
    colors[1] := 2109495;
    end else
    begin
    colors[1] := color2;
    end;
    if color3=0 then
    begin
    colors[2] := 3686221;
    end else
    begin
    colors[2] := color3;
    end;
    if colors[3]=0 then
    begin
    colors[3] := 5138053;
    end else
    begin
    colors[3] := color4;
    end;
    if colors[4]=0 then
    begin
    colors[4] := 2109495;
    end else
    begin
    colors[4] := color5;
    end;
    count:=0;
    mousespeed:=15;
    declareplayers;
    activateclient;
    wait(2000+random(1000));
    if not loggedin then loginplayer;
    makecompass('n');
    highestangle;
    gametab(1);
    SetFightMode(fightmode);
    oc:=getcombatlevel;
    oatt:=getskilllevel('attack');
    ostr:=getskilllevel('strength');
    odef:=getskilllevel('defence');
    setchat('on',1);
    setchat('friends',2);
    setchat('off',3);
    setRun(true);
    end;

    procedure attack;
    begin
    if not loggedin then loginplayer;
    if not FindColor(x, y, 65280, 200, 100, 300, 180) then
    begin
    for j:=0 to 4 do
    begin
    if findobj(x,y,'Attack',colors[j],5) then
    begin
    if (80 > random(100)) then
    begin
    mouse(x,y,0,0,true);
    inc(count);
    inc(pcount);
    fflag(10);
    exit;
    end else
    begin
    mouse(x,y,0,0,false);
    if popup('Attack') then
    begin
    inc(count);
    inc(pcount);
    fflag(10);
    proggie;
    exit;
    end else
    begin
    Mmouse(x,y,random(600), random (400));
    end;
    end;
    end;
    end;
    end;
    wait(100 + random(900));
    end;

    //==================runaway========================= =//

    procedure RunAwayIfNeed;
    begin
    if (35 > random(100)) then
    begin
    if(UseRunAway=True)
    then begin
    if(GetHp<=runAtHp)then
    begin
    ReportVars[2]:=1
    RunAwayDirection(Direction);
    wait(200);
    SRLRAndomsReport;
    fflag(10);
    wait(7500 + random(5000));
    logout;
    nextplayer(false);
    exit;
    end;
    end;
    end;
    wait(1000);
    end;


    begin //main loop
    setup;
    repeat

    attack;
    dead;
    randoms;
    RunAwayIfNeed;
    responder;
    inc(b);
    if b>5 then ban;
    if (pcount=killstilswitch) then
    begin
    nextplayer(true);
    pcount:=0;
    end;
    until(count=killslimit);
    end.
    Thanks,
    negaal

    it randomly check's runaway, cause it very detectable when in switches stats tab and inv tab like between evry 2 sec, it's designed to work without food :S

Page 1 of 4 123 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Sp0rky pwning z3h nubs on CSS
    By [-jesus-] in forum News and General
    Replies: 5
    Last Post: 12-22-2007, 01:07 AM

Posting Permissions

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