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;