Results 1 to 20 of 20

Thread: A MUST for all scripts!

  1. #1
    Join Date
    Oct 2007
    Location
    brooklyn, new york
    Posts
    258
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    A MUST for all scripts!

    If you dont know what this does. Put it into the script you are using anyways.


    SCAR Code:
    procedure RUNoob;
    //------------------------------- checks if ur a noob----By Caustic-----------------
    begin
    if(not loggedin)then exit;
    GetCombatLevel;
        if (GetCombatLevel < 16) then
        begin
          WriteLn('Lvl 3 normal clothes froob');
          NextPlayer(False);
          Exit;
        end;
        if (GetCombatLevel > 15) then
        begin
          CBLevel := GetCombatLevel;
          WriteLn('Thx for lvling player to '+IntToStr(CBLevel)+' and being a true macroer ;)');
        end;
    end;

    And also for you lazy bums, here is a simple autoresponder. Make sure you put MarkTime(RespondTime); in your procedure. If you gonna use this, please credit me/rep.

    EDIT* if you use responder and want to make it humanlike, then make sure u put Frozen_Soulz's Typesend2 functions in script. otherwise take away the 2's.


    SCAR Code:
    Procedure AutoResponder;
    //------------------------------- AutoResponder--by Caustic-------------------
    var n:boolean;
     begin
     if(not loggedin)then exit;
     if Responder = False then Exit;
     if LastChatter(Players[CurrentPlayer].Name) then Exit;
     if TimeFromMark(RespondTime) < 60000 then Exit;
     if SMART   =  True then
     n:= True else n:= False;
       begin
       RespondTime:= 0;
       if (GetBlackChatMessage = 'Woodcutting level') or (GetBlackChatMessage = 'wc lvl') then
         begin
           Responded:= Responded + 1;
           SayCurrentLevels('Woodcutting');
         end;
       if (GetBlackChatMessage = 'Fishing level') or (GetBlackChatMessage = 'Fishing lvl') then
         begin
           Responded:= Responded + 1;
           SayCurrentLevels('Fishing');
         end;
        If (GetBlackChatMessage = 'lol') or (GetBlackChatMessage = 'rofl') or (GetBlackChatMessage = 'lmao') or
           (GetBlackChatMessage = 'lawl')then
          Begin
          Responded:= Responded + 1;
           Case Random(7) of
              1:TypeSend2('^-^', n);
              2:TypeSend2('Lawl', n);
              3:TypeSend2('l0l', n);
              4:TypeSend2('lmao', n);
              5:TypeSend2('Rofl', n);
              6:TypeSend2('lol?', n);
              7:TypeSend2( '0.o', n);
             end;
           if (GetBlackChatMessage = Players[CurrentPlayer].Name) or
              (GetBlackChatMessage = Players[CurrentPlayer].Nick) then
                Begin
                  Case Random(4) of
                    1:TypeSend2('English no', n);
                    2:TypeSend2('Sorry No english', n);
                    3:TypeSend2('English Not me no', n);
                    4:TypeSend2('Pashol ti nahur', n);
                  end;
                end;
          If (GetBlackChatMessage = 'Hi') or (GetBlackChatMessage = 'Hello') or (GetBlackChatMessage = 'Hey') or
           (GetBlackChatMessage = 'Sup')then
          Begin
           Case Random(7) of
              1:TypeSend2('^-^', n);
              2:TypeSend2('hey man', n);
              3:TypeSend2('sup', n);
              4:TypeSend2('hi', n);
              5:TypeSend2('hello', n);
              6:TypeSend2('how u doin?', n);
              7:TypeSend2( 'sup bro', n);
             end;
           end;
           end;
        end;
       end;

  2. #2
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    if (GetCombatLevel < 16) then

    instead isnt suppose to be

    if (GetCombatLevel < 3) then?
    and
    responder lookz great gonna use probs

  3. #3
    Join Date
    Oct 2007
    Location
    brooklyn, new york
    Posts
    258
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by P1NKY View Post
    if (GetCombatLevel < 16) then

    instead isnt suppose to be

    if (GetCombatLevel < 3) then?
    Lol, what? Combat cant be lower then 3. And I want the minimum of lvl 16. Preferably 60, but not in this lifetime.

    Quote Originally Posted by P1NKY View Post
    and
    responder lookz great gonna use probs
    thx

  4. #4
    Join Date
    Jan 2007
    Location
    Missouri, USA
    Posts
    163
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Rofl I like that responder - 3:TypeSend2('English Not me no', n);

  5. #5
    Join Date
    Feb 2008
    Location
    NSW, Australia
    Posts
    149
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  6. #6
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    The "no n00b" check has been a lot before but it's so easy to remove it will only work on leechers and still then only the new leechers as it's one of their early learned abilities to remove anti-leeching checks.
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  7. #7
    Join Date
    Sep 2007
    Posts
    415
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure RUNoob;
    var CBlvl: integer;
    //------------------------------- checks if ur a noob----By Caustic-----------------
    begin
    if(not loggedin)then exit;
    CBLvl := GetCombatLevel;
      if (CBLvl < 16) then
      begin
        WriteLn('Lvl 3 normal clothes froob');
        NextPlayer(False);
      end else
      begin
        WriteLn('Thx for lvling player to '+IntToStr(CBLvl)+' and being a true macroer ;)');
      end;
    end;

    shortened. no point in getting the combat level 3 times eh?

    also, your version wouldn't work because cblevel wasn't declared
    Quote Originally Posted by That guy that wrote forefeathers
    <munklez>haha im too lazy, girls annoy me
    <munklez> they always wanna like, do stuff
    <munklez> and i just wanna program
    <munklez> and they always take all my money

  8. #8
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Shortened, no need for the var because the last writeln was plain useless, and also don't use a begin-end for only one line after if...
    SCAR Code:
    Procedure RUNoob;
    Begin
      If LoggedIn Then
        If GetCombatLevel < 15) Then
        Begin
          Writeln('Lvl 3 normal clothes froob');
          NextPlayer(False);
        End;
    End;

  9. #9
    Join Date
    Sep 2007
    Posts
    415
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it wasn't useless, it was helpful and morale boosting, but you're right about the begin..end;
    Quote Originally Posted by That guy that wrote forefeathers
    <munklez>haha im too lazy, girls annoy me
    <munklez> they always wanna like, do stuff
    <munklez> and i just wanna program
    <munklez> and they always take all my money

  10. #10
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    thats why u obfuz that proc? or try to hide that proc name :P like call it

    backupMining lol
    or something

    and i think naum had a way to hide proc idk how he did it but yeah i saw it last time

  11. #11
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Yeah Thats my secret p1nky .

    I made one like this in the Member section, where n3s decided to make it open 1000 pages of the rick roll thingy if you were under a level 3 .

  12. #12
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    man i HATE leechers!
    and those lvl 3's that sit and wc..!

    n3 you missed a '('
    Project: Welcome To Rainbow

  13. #13
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Benjaa, I didn't, I put in an additional ')'

    Drizzt, a variable is worth more than morale, so we save the variable and destroy the morale

  14. #14
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    Yeah Thats my secret p1nky .

    I made one like this in the Member section, where n3s decided to make it open 1000 pages of the rick roll thingy if you were under a level 3 .
    noob tell us loozer head

    j/k lol

    cmon just tell your paki friend

  15. #15
    Join Date
    Feb 2008
    Location
    NSW, Australia
    Posts
    149
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mixster View Post
    The "no n00b" check has been a lot before but it's so easy to remove it will only work on leechers and still then only the new leechers as it's one of their early learned abilities to remove anti-leeching checks.
    totally agree. But if they are mega leechers, and have no idea how to script, or even how to use scar. I doubt they'd edit the script, I didn't know how till I read through more posts and got interested in scripting.

  16. #16
    Join Date
    Oct 2007
    Location
    brooklyn, new york
    Posts
    258
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

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

    Default

    Quote Originally Posted by caustic View Post
    Nauk you think you can tell me in pm, if so I can make the script more advanced.
    All he does is send it so far to the side that SCAR doesn't show it...nothing special.
    [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]

  18. #18
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    but i scrolled to the end and all

    i didnt c it :P?

  19. #19
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    I Obfusicate That Actuall Part Of the script
    BUT don't get me wrong I only Obfusicate Stuff that stops you from not having a SRL ID AND PASS

  20. #20
    Join Date
    Dec 2007
    Location
    Canada
    Posts
    187
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey Im probably gonna use that autoresponder. I will of coarse leave ur name in there for credit
    I'm baaaack

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Add ranging to chicken killing scripts, or the cow killing scripts
    By canu44 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 12-18-2007, 07:37 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
  •