Could someone make me a chat script

Blockland Forums > Suggestions & Requests

<< < (2/3) > >>

hodototman:

--- Quote from: Demian on December 10, 2012, 01:40:41 PM ---Use this and edit the database: http://forum.returntoblockland.com/dlm/viewFile.php?id=4024

--- End quote ---

Holy crap, I don't understand the code in that stuff.

MARBLE MAN:
$LOLPlace::Enabled = 1;
package LOLPlace
{
   function serverCmdMessageSent(%client,%text)
   {
      if($LOLPlace::Enabled)
      {
         switch(getRandom(0,23))
         {
            case 0 : %word = "Ha!";
            case 1 : %word = "That's funny!";
            case 2 : %word = "Heh";
            case 3 : %word = "I cut my self in my sleep.";
            case 4 : %word = "lmao";
            case 5 : %word = "rotflol";
            case 6 : %word = "haha";
            case 7 : %word = "lawl";
            case 8 : %word = "hah";
            case 9 : %word = "funny";
            case 10 : %word = "I find that funny";
            case 11 : %word = "I attempted to say \"lo<color:ffffff>l\", but my script stopped me!";
            case 12 : %word = "*snort* haha";
            case 13 : %word = "loooool";
            case 14 : %word = "i laughed way to hard at that";
            case 15 : %word = "i didn't even think that was funny";
            case 16 : %word = "***";
            case 17 : %word = "****";
            case 18 : %word = "noob";
            case 19 : %word = "i pity you";
            case 20 : %word = "you think that was funny";
            case 21 : %word = "I stopped laughing after the accident";
            case 22 : %word = "you make me sad";
            case 23 : %word = "ASDFASDFASDFASDFASDGSDEJAFSEB AGSEFJLASEFGAUOSCGASEFJBASEUG FAW";
         }
         %text = StrReplace(%text,"lol",%word);
         %text = StrReplace(%text,"LOL",%word);
         %text = StrReplace(%text,"Lol",%word);
         %text = StrReplace(%text,"LOl",%word);
         %text = StrReplace(%text,"lOl",%word);
         %text = StrReplace(%text,"lOL",%word);
         %text = StrReplace(%text,"loL",%word);
         parent::serverCmdMessageSent(%client, %text);
      }
      else
      {
         parent::serverCmdMessageSent(%client, %text);
      }
   }
};
activatepackage(LOLPlace);

effective but horrible code

otto-san:
a problem with this may arise if you have long messages and the replacement is longer than three characters since there's a cap

i guess that's not a huge problem maybe

Tic-toc26:
ROFL
ROFLZ
LMAO
LMFAO
lolololollolololololololololo lolololololololololololololol olollo
XD
:D

^use these^

K9 Kid:
You could make a script that makes someone sound like a moron by changing the word
THE to
de
da
le
teh

Navigation

 Message Index

Go to full version