Procedure TypeSendRandom;
SCAR Code:
{Procedure: TypeSendRandom}
{Made By: U L T R A.}
{Description: Types one of the three messages you chose to be randomly typed.}
{Credits: Who Ever Made TypeSend.}
{Version: 1.0.}
Procedure TypeSendRandom(FirstWord, SecondWord, ThirdWord : String);
Begin
Case Random(3)Of
0:Begin
TypeSend(FirstWord);
End;
1:Begin
TypeSend(SecondWord);
End;
2:Begin
TypeSend(ThirdWord);
End;
End;
End;
Procedure AutoResponder;
SCAR Code:
{Procedure: AutoResponder}
{Made By: U L T R A.}
{Description: Talks back to people if they say/ask you something.}
{Credits: Who Ever Made Procedure/Function InChat.}
{Version: 1.1}
Procedure AutoResponder;
Begin
If (InChat('Hi')Or
InChat('Hey')Or
InChat('Hello')Or
InChat('Yo')Or
InChat('Hi man')Or
InChat('Hey man')Or
InChat('Yo man')Or
InChat('Hi dude')Or
InChat('Hey dude')Or
InChat('Yo dude')Or
InChat('Himan')Or
InChat('Heyman')Or
InChat('Yoman')Or
InChat('Hidude')Or
InChat('Heydude')Or
InChat('Yodude'))Then
Begin
TypeSendRandom('Hui there', 'hry', 'hrllo');
End;
If (InChat('Wats up')Or
InChat('Was up')Or
InChat('Wat up')Or
InChat('Wus up')Or
InChat('Wut up')Or
InChat('Wuts up')Or
InChat('Waz up')Or
InChat('Wazz up')Or
InChat('Wuz up')Or
InChat('Wuzz up')Or
InChat('Wats up man')Or
InChat('Wuz up man')Or
InChat('Wuts up man')Or
InChat('Wut up man')Or
InChat('Wuz up man')Or
InChat('Wats up dude')Or
InChat('Wuz up dude')Or
InChat('Wut up dude')Or
InChat('Wt up dude')Or
InChat('Wz up dude'))Then
Begin
TypeSendRandom('Nothing', 'Not much', 'Bored');
End;
If (InChat('?')Or
InChat('!')Or
InChat('.')Or
InChat('?!')Or
InChat('!?'))Then
Begin
TypeSendRandom('What', 'Huh', 'Erm');
End;
If (InChat('Lol')Or
InChat('Lolz')Or
InChat('Lols')Or
InChat('Loll')Or
InChat('Rofl')Or
InChat('Roflmao')Or
InChat('Roflmafao')Or
InChat('Lmao')Or
InChat('Lmfao')Or
InChat('Omg')Or
InChat('Omfg')Or
InChat('Oh my god')Or
InChat('God')Or
InChat('Wtf')Or
InChat('Wtf lol'))Then
Begin
TypeSendRandom('haha', 'hehe', 'funny');
End;
If (InChat('Highest levels')Or
InChat('Highest levels?')Or
InChat('Highest lvls')Or
InChat('Highest lvls?')Or
InChat('Best levels')Or
InChat('Best levels?')Or
InChat('Best lvls')Or
InChat('Best lvls?')Or
InChat('What are your highest levels?')Or
InChat('What are your best levels?')Or
InChat('What are your highest lvls?')Or
InChat('What are your best lvls?')Or
InChat('Best level?')Or
InChat('Highest level?')Or
InChat('Best lvl?')Or
InChat('Highest lvl?'))Then
Begin
TypeSendRandom('I dono', 'Wc', 'Str');
End;
If (InChat('Attack levels')Or
InChat('Attack lvls')Or
InChat('Att levels')Or
InChat('Att lvls')Or
InChat('Attack level')Or
InChat('Att lvl')Or
InChat('Attack levels?')Or
InChat('Attack lvls?')Or
InChat('Att levels?')Or
InChat('Att lvls?')Or
InChat('Attack level')Or
InChat('Attack lvl')Or
InChat('Att level')Or
InChat('Att lvl'))Then
Begin
TypeSendRandom(IntToStr(GetSkillLevel('attack')), 'Me ' + IntToStr(GetSkillLevel('attack')), 'Iam ' +IntToStr(GetSkillLevel('attack')));
End;
End;
Begin
SetUpSRL;
Begin
AutoResponder;
End;
End.
-Fixed things in version 1.1.
Note that this procedure is still under construction and there will be really alot more stuff in it.
How To Use.
SCAR Code:
Program ULTRAProgram;
{.Include SRL/SRL.Scar}
{Procedure: TypeSendRandom}
{Made By: U L T R A.}
{Description: Types one of the three messages you chose to be randomly typed.}
{Credits: Who Ever Made TypeSend.}
Procedure TypeSendRandom(FirstWord, SecondWord, ThirdWord : String);
Begin
Case Random(3)Of
0:Begin
TypeSend(FirstWord);
End;
1:Begin
TypeSend(SecondWord);
End;
2:Begin
TypeSend(ThirdWord);
End;
End;
End;
{Procedure: AutoResponder}
{Made By: U L T R A.}
{Description: Talks back to people if they say/ask you something.}
{Credits: Who Ever Made Procedure/Function InChat.}
{Version: 1.1}
Procedure AutoResponder;
Begin
If (InChat('Hi')Or
InChat('Hey')Or
InChat('Hello')Or
InChat('Yo')Or
InChat('Hi man')Or
InChat('Hey man')Or
InChat('Yo man')Or
InChat('Hi dude')Or
InChat('Hey dude')Or
InChat('Yo dude')Or
InChat('Himan')Or
InChat('Heyman')Or
InChat('Yoman')Or
InChat('Hidude')Or
InChat('Heydude')Or
InChat('Yodude'))Then
Begin
TypeSendRandom('Hui there', 'hry', 'hrllo');
End;
If (InChat('Wats up')Or
InChat('Was up')Or
InChat('Wat up')Or
InChat('Wus up')Or
InChat('Wut up')Or
InChat('Wuts up')Or
InChat('Waz up')Or
InChat('Wazz up')Or
InChat('Wuz up')Or
InChat('Wuzz up')Or
InChat('Wats up man')Or
InChat('Wuz up man')Or
InChat('Wuts up man')Or
InChat('Wut up man')Or
InChat('Wuz up man')Or
InChat('Wats up dude')Or
InChat('Wuz up dude')Or
InChat('Wut up dude')Or
InChat('Wt up dude')Or
InChat('Wz up dude'))Then
Begin
TypeSendRandom('Nothing', 'Not much', 'Bored');
End;
If (InChat('?')Or
InChat('!')Or
InChat('.')Or
InChat('?!')Or
InChat('!?'))Then
Begin
TypeSendRandom('What', 'Huh', 'Erm');
End;
If (InChat('Lol')Or
InChat('Lolz')Or
InChat('Lols')Or
InChat('Loll')Or
InChat('Rofl')Or
InChat('Roflmao')Or
InChat('Roflmafao')Or
InChat('Lmao')Or
InChat('Lmfao')Or
InChat('Omg')Or
InChat('Omfg')Or
InChat('Oh my god')Or
InChat('God')Or
InChat('Wtf')Or
InChat('Wtf lol'))Then
Begin
TypeSendRandom('haha', 'hehe', 'funny');
End;
If (InChat('Highest levels')Or
InChat('Highest levels?')Or
InChat('Highest lvls')Or
InChat('Highest lvls?')Or
InChat('Best levels')Or
InChat('Best levels?')Or
InChat('Best lvls')Or
InChat('Best lvls?')Or
InChat('What are your highest levels?')Or
InChat('What are your best levels?')Or
InChat('What are your highest lvls?')Or
InChat('What are your best lvls?')Or
InChat('Best level?')Or
InChat('Highest level?')Or
InChat('Best lvl?')Or
InChat('Highest lvl?'))Then
Begin
TypeSendRandom('I dono', 'Wc', 'Str');
End;
If (InChat('Attack levels')Or
InChat('Attack lvls')Or
InChat('Att levels')Or
InChat('Att lvls')Or
InChat('Attack level')Or
InChat('Att lvl')Or
InChat('Attack levels?')Or
InChat('Attack lvls?')Or
InChat('Att levels?')Or
InChat('Att lvls?')Or
InChat('Attack level')Or
InChat('Attack lvl')Or
InChat('Att level')Or
InChat('Att lvl'))Then
Begin
TypeSendRandom(IntToStr(GetSkillLevel('attack')), 'Me ' + IntToStr(GetSkillLevel('attack')), 'Iam ' +IntToStr(GetSkillLevel('attack')));
End;
End;
Begin
SetUpSRL;
Begin
AutoResponder;
End;
End.
Note that procedure AutoResponder uses procedure TypeSendRandom so if you dont include procedure TypeSendRandom, it will not work.
Anyone who tries to claim this as their own will be banned. Post comments and always credit me if you are using those procedures!
Both of the procedures are still under construction, especially procedure AutoResponder. There will be much more added to procedure AutoResponder, remember that!