Word Censorship

[Gerblegod7]

After going through Jeff's awesome first two tutorials I have been expanding the quality of my chat room. Today I attempted to write the code for censoring out commmon curses and offensive language. I tried the "Compare two general values", the "Find a string within a string" global string and several other similar attempts.

Does anyone have any ideas for what code I should try instead?

[Joshtek]

I'm glad you liked the tutorials. For censorship I'd probbably use the String Parser 2 and its replace substring facility.

1. Set the source string of SP2 to the message (e.g. "Hello Jeff. How are Yves and Francois doing today?")
2. Set the source string of SP2 to replace$( "String Parser", "Jeff", "Sir Jeff")
3. Set the source string of SP2 to replace$( "String Parser", "Francois", "Lord Francois")
4. Set the source string of SP2 to replace$( "String Parser", "Yves", "Lord Yves")
5. Send the source string of SP2 (e.g. "Hello Sir Jeff. How are Lord Yves and Lord Francois doing today?")

If you have many words to censor then you may want to replace steps 2, 3 and 4 with a loop which runs once for every item in a listbox.

[Gerblegod7]

That helps me a lot! However what condition should I use to set it off? And what string should I set the first source string as? I thought this one might work but it didn't:

+Button "Send" Clicked
+Len"Editbox Message">0
-Set Source String as "GetText$"Editbox Message"
-Set Source String as "replace$("String Parser", "heck", "****")
-Rich Edit Display> SetText$(NewLine$+P_getname(mooclick)+":""+ string "String Parser"
-Channel> Send string (string"String Parser")

Could you tell me what I might have done wrong and what I might do instead? All that happens right now is I send blank messages. When I ran the application twice with the old version and the new one with the censor all i can do is recieve with the new one. Not send.

PS: Thank you for replying so quickly

[Joshtek]

Button "Send" Clicked is fine.

Check the event list editor to make sure you aren't doing things in the wrong order. For example, if you set your edit box to "" then set your string parser to the edit box then it ain't gonna work. If that isn't the problem then post your file and I'll try and fix it.

[Gerblegod7]

Thank you very much Joshtek! Apparently I was setting the string after the clear edit box command. It is all fixed up now!

Thanks again, Gerblegod

[Gerblegod7]

If you have many words to censor then you may want to replace steps 2, 3 and 4 with a loop which runs once for every item in a listbox.

I am such an idiot! I can't even figure out how to do this!
Does anyone know what action I should use to make it check for every line in the list?
Maybe I'm just not good enough to be doing this kind of project...

[Joshtek]

[size:14pt]How to automatically censor every word in a list, by Joshtek[/size]

1. Create a new list called List wordlist and uncheck the option "1-based".
2. Every line of List wordlist's list should have the word to find followed by an equals character followed by the word to replace it with. Example list:

drat=****
water=wine
light=dark
war=peace

3. Create two new string parsers, one called String Parser word and the other String Parser message.
4. New action for start of frame: String Parser word->List Tokenizing->Delimiters->Add Delimiter with the parameter "="
5. Create a new action: Special->On loop. Call the loop "censor word".
6. Action: Set the source string of String Parser word to List Line Text$( "List wordlist", LoopIndex("censor word"))
7. Set the source string of String Parser message to replace$( "String Parser message", listFirst$( "String Parser word" ), listLast$( "String Parser word" ))
8. Whenever you want to use this feature then just set String Parser message to the input (e.g. the contents of an edit box), use the special->run loop action to run the loop "censor word" List Nb Lines( "List wordlist" ) times. Finally, use String Parser message as the output (e.g. what to send/display).
9. Final Note: You may want to filter the input too - just in case other people are using a different chat client.

Try it out, and "I like light blue water" should become "I like dark red wine".

[Gerblegod7]

Hooray! I am finally finished! Thanks a million Joshtek! Your name definetly going into the "special thanks to" section of the application.

Thanks again,
Gerblegod

[Jeff]

After reading what Joshtek described did I put up episode 4 of the simple chat video tutorial that adds a censor function

Thanks Joshtek!

[aidmm]

sweet, Jeff! these videos are the best!