SRL Archive - Research & Development Lounge

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

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. :f:

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.

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;

if (GetCombatLevel < 16) then

instead isnt suppose to be

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

From: P1NKY
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.

From: P1NKY

and
responder lookz great gonna use probs:p

thx

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

what if your using a script to TRAIN your combat lvl? It's pretty pointless then, isn't it?

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.

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

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…

Procedure RUNoob;
Begin
  If LoggedIn Then
    If GetCombatLevel < 15) Then
    Begin
      Writeln('Lvl 3 normal clothes froob');
      NextPlayer(False);
    End;
End;

it wasn't useless, it was helpful and morale boosting, but you're right about the begin..end;

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

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 :p.

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

n3 you missed a '('

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

From: NaumanAkhlaQ
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 :p.

noob tell us loozer head :)

j/k lol

cmon just tell your paki friend :f:

From: mixster
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. ;)

Nauk you think you can tell me in pm, if so I can make the script more advanced.

From: caustic
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.

but i scrolled to the end and all

i didnt c it :P?

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

Hey Im probably gonna use that autoresponder. I will of coarse leave ur name in there for credit :D