;Sincerity Imitating RoomHi by Hex - http://hex.palaceplanet.net noname GLOBAL name GLOBAL names GLOBAL fname GLOBAL inside GLOBAL { "!Hi There!!! " names = 0 i = { { 0 noname = i ROOMUSER WHONAME LOWERCASE fname = { 1 noname = "Dread Pirate Woof!!" name = } fname "zombie woof" SUBSTR IF { 1 noname = "Mistress KooK" name = } fname "koko" SUBSTR IF { 1 noname = "chichie mama" name = } fname "chich" SUBSTR IF { 1 noname = "dills" name = } fname "heidi" SUBSTR IF { 1 noname = "red" name = } fname "az red" SUBSTR IF { 1 noname = "catch" name = } fname "catch 22" SUBSTR IF { 1 noname = "dais" name = } fname "super daisy" SUBSTR IF { 1 noname = "sun" name = } fname "sunrise" SUBSTR IF { 1 noname = "fuh" name = } fname "ph's horse" SUBSTR IF { 1 noname = "membrane" name = } fname "mucus" SUBSTR IF { 1 noname = "Milady Fran" name = } fname "fran" SUBSTR IF { 1 noname = "fog hog" name = } fname "fog" SUBSTR IF { 1 noname = "goober" name = } fname "chrissy" SUBSTR IF { 1 noname = "lenny" name = } fname "£enore" SUBSTR IF { 1 noname = "lass" name = } fname "scottishlass" SUBSTR IF { 1 noname = "hex!!!" name = } fname "hex" SUBSTR IF { 1 noname = "joolia goolia!!" name = } fname "=[julia]=" == IF { 1 noname = "blee" name = } fname "blue" == IF { "" name = 0 n = 0 inside = { "$1" GREPSUB letter = "$2" GREPSUB fname = { { name "$1" GREPSUB & name = } inside NOT IF } { { 1 inside = } letter "^([(])$" GREPSTR IF { 0 inside = } letter "^([)])$" GREPSTR IF { 1 inside = } letter "^([\{])$" GREPSTR IF { 0 inside = } letter "^([\}])$" GREPSTR IF { 1 inside = } letter "^([\[])$" GREPSTR IF { 0 inside = } letter "^([\]])$" GREPSTR IF } letter "^([a-z ])$" GREPSTR IFELSE } { fname "^(.)(.*)$" GREPSTR } WHILE { names name & "! " & names = } name "" <> IF } { names name & "! " & names = } noname 0 == IFELSE } i ROOMUSER WHOME <> IF i ++ } { i NBRROOMUSERS < } WHILE names SAY "" CHATSTR = } CHATSTR "roomhey" == IF