A MUST for all scripts!

[BKNYKavkaz]

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;

[P1nky]

if (GetCombatLevel < 16) then

instead isnt suppose to be

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

[BKNYKavkaz]

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.



and
responder lookz great gonna use probs:p

thx

[Iced_Liquid]

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

[andrewrox424]

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

[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.

[drizzt]

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

[n3ss3s]

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;

[drizzt]

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

[P1nky]

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

[Naum]

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.

[benjaa]

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

n3 you missed a '('

[n3ss3s]

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

[P1nky]

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:

[andrewrox424]

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. ;)

[BKNYKavkaz]

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

[Santa_Clause]

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.

[P1nky]

but i scrolled to the end and all

i didnt c it :P?

[Naum]

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

[insanomano]

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