Results 1 to 13 of 13

Thread: Procedure TypeSendRandom & Procedure AutoResponder!

  1. #1
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Procedure TypeSendRandom & Procedure AutoResponder!

    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!
    Woot woot.

  2. #2
    Join Date
    Dec 2006
    Location
    utah
    Posts
    1,427
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    Ouch that calls alot of inchat() functions XD.
    Co Founder of https://www.tagcandy.com

  3. #3
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    and the best part is it'll keep saying hi and yo to itself

    as well as: ! , ? , ... , lol

    ~ RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  4. #4
    Join Date
    Jun 2007
    Posts
    1,312
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Rasta Magician View Post
    and the best part is it'll keep saying hi and yo to itself

    as well as: ! , ? , ... , lol

    ~ RM
    LOL I didn't even notice that. That's awesome.
    Active only during the Summer...

  5. #5
    Join Date
    Jun 2007
    Location
    I live where you live...
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I don't know whether to say good job, or whether to say that seems to me like a complete waste of time. But either way it's good that it has been done =). I don't think I'll be using it though xD. But who knows? I might, but I'll be sure to give you credit.

    ~Bombo
    Will MM for FREE
    CarpeD.E.M.M.
    [FEAR]Ñô1
    ---Developing BPE---Bombo'sPowerEverything---(Almost Everything ) w/ VB 23% Complete---

  6. #6
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    and the best part is it'll keep saying hi and yo to itself

    as well as: ! , ? , ... , lol

    ~ RM
    Ok i fixed it now lol, it will typesend it a little wrong with 1 letter of the word changed :P.And it also looks more human-like.
    Woot woot.

  7. #7
    Join Date
    Jun 2007
    Posts
    1,312
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    If you could grab more than one line of text, you could just add in an and statement and not worry about weird responses.
    Active only during the Summer...

  8. #8
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by JackLKrawl View Post
    If you could grab more than one line of text, you could just add in an and statement and not worry about weird responses.
    Congratulations on the Members Just noticed

    Also, InChat happens to lag out the computer. Also, it searches the entire scroll for those words then reply's to it not checking the name. So it will keep on saying hello to yourself after you say one word.
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  9. #9
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No but now i made it say it kinda wrong so like...

    -Someone sais:Hi
    -The script sais:hry (instead of hey, so it wont reply to it self).
    -After it said the procedure, it goes to the next procedure function.
    Woot woot.

  10. #10
    Join Date
    Jul 2007
    Location
    St. Louis, Missouri, USA.
    Posts
    575
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure TypeSendRandom(Choices: TStringArray;);
    begin
      TypeSend(HumanText(Choices[RandomRange(0,High(Choices))], 50));
    end;


    I know its ugly but it has 1/50 chance of having a typo in the response and can be used with an unlimited amount of word choices. Example:

    SCAR Code:
    if InChatMulti('hey', 'hi', 'sup') then
      TypeSendRandom(['ey','ello','wazup','hello','hi mate']);

    There are ways to stop it from responding to yourself using GetTextAtEx but I won't get into that here. For now, you'll have to choose your responses carefully.
    -You can call me Mick-



  11. #11
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    Quote Originally Posted by mickaliscious View Post
    SCAR Code:
    procedure TypeSendRandom(Choices: TStringArray;);
    begin
      TypeSend(HumanText(Choices[RandomRange(0,High(Choices))], 50));
    end;


    I know its ugly but it has 1/50 chance of having a typo in the response and can be used with an unlimited amount of word choices. Example:

    SCAR Code:
    if InChatMulti('hey', 'hi', 'sup') then
      TypeSendRandom(['ey','ello','wazup','hello','hi mate']);

    There are ways to stop it from responding to yourself using GetTextAtEx but I won't get into that here. For now, you'll have to choose your responses carefully.
    i'm not 100% sure, but i think HumanText is members only micky.. unless that's been changed.

    check the chat include to get stuff like nicknames from people, so that you don't keep talking to them.

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  12. #12
    Join Date
    Jul 2007
    Location
    St. Louis, Missouri, USA.
    Posts
    575
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    HumanText is just a lonely function in SRL, nobody knows him or uses him. Certainly not a members only function, I don't even think there are specific functions for members only. Aside from the ones posted in the members forums of course.
    -You can call me Mick-



  13. #13
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    another suggestion:
    SCAR Code:
    function SendText2(Text: String): Boolean;
    By: RSN | Modded By: Spky
    Description: Types text humanlike making mistakes, returns true if mistake has
    been made.
    oh n yeah, ur right mick

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with run procedure
    By MetalancA in forum OSR Help
    Replies: 2
    Last Post: 08-30-2008, 08:19 PM
  2. Help with Procedure
    By Esteban in forum OSR Help
    Replies: 8
    Last Post: 07-06-2007, 03:45 AM
  3. Replies: 8
    Last Post: 05-24-2007, 11:57 PM
  4. If(procedure)Then
    By Rambozin in forum OSR Help
    Replies: 14
    Last Post: 04-29-2007, 06:05 AM
  5. Procedure that calls random procedure?
    By Secet in forum OSR Help
    Replies: 2
    Last Post: 03-03-2007, 03:56 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •