bind nice nice
bind nasty nasty
bind evil evil
bind gag randomgag
function nice
WHEREAMI myroom
Q-ROOM 403
IFCLEAR
WHOAMI me
EQ $# 1
IFANY myself
EQ $1 $me
IFANY myself
JUMP other
myself:
EXEC "UNPROTECT $me"
EXEC "UNFREEZE $me"
EXEC "UNGAG $me"
EXEC "PROTECT $me"
JUMP end
other:
EXEC "UNPROTECT $1"
EXEC "UNFREEZE $1"
EXEC "UNGAG $1"
EXEC "PROTECT $1"
EXEC "RAW 15Thryduulf has just niced $1--"
EXEC "SAYTO $1 Thryduulf has just niced you, you are now ungaged, unfrozen and protected."
EXEC "SAYTO $1 you can now talk normally, move rooms as normal and have been protected from harm."
JUMP end
end:
Q-ROOM $myroom
RETURN
endfunc
function gagname_init
SET gagname_1 ""
SET gagname_2 "bunny"
SET gagname_3 "censor"
SET gagname_4 "chef"
SET gagname_5 "duck"
SET gagname_6 "fudd"
SET gagname_7 "furby"
SET gagname_8 "jive"
SET gagname_9 "kraut"
SET gagname_10 "latin"
SET gagname_11 "mirror"
SET gagname_12 "strfry"
SET gagname_13 "swab"
SET gagname_14 "tnarg"
SET gagname_15 "warez"
SET gagname_16 "wibble"
SET gagname_17 "morse"
SET gagname_18 "annoy"
SET gagname_19 "babel"
SET gagname_20 "nosport"
SET gagname_21 "saya"
SET gagname_22 "martian"
SET gagname_23 "hazelesque"
SET gagcount 23
endfunc
function randomgag
WHOAMI me
IFCLEAR
EQ $1 $me
EQ $1 ""
IFANY myself
IFNONE other
#if we are here then there has been some error
PRINT "krRandom gag produced an error. Try again.--"
JUMP finish
myself:
#check to see whether gag is specified
IFCLEAR
EQ $2 "gag"
EQ $2 "annoy"
EQ $2 "babel"
EQ $2 "bunny"
EQ $2 "censor"
EQ $2 "chef"
EQ $2 "duck"
EQ $2 "french"
EQ $2 "fudd"
EQ $2 "furby"
EQ $2 "jive"
EQ $2 "kraut"
EQ $2 "latin"
EQ $2 "mirror"
EQ $2 "morse"
EQ $2 "strfry"
EQ $2 "swab"
EQ $2 "tnarg"
EQ $2 "warez"
EQ $2 "wibble"
EQ $2 "nosport"
EQ $2 "saya"
EQ $2 "martian"
EQ $2 "hazelesque"
IFANY gagme
IFNONE randomme
#if we are still here then there has been an error
PRINT "[krRandom gag produced an error. Try again.[--"
JUMP finish
gagme:
#check whether we want the plain gag
IFCLEAR
EQ $2 "gag"
IFALL gagmeplain
#if we are still here a filter has been chosen
EXEC "unprotect $me"
EXEC "GAG $me $2"
JUMP finish
gagmeplain:
EXEC "unprotect $me"
EXEC "gag $me"
JUMP finish
randomme:
RAND randgag 1 $gagcount
EXEC "unprotect $me"
EXEC "GAG $me ${gagname_${randgag}}"
JUMP finish
other:
#check to see whether gag is specified
IFCLEAR
EQ $2 "gag"
EQ $2 "annoy"
EQ $2 "babel"
EQ $2 "bunny"
EQ $2 "censor"
EQ $2 "chef"
EQ $2 "duck"
EQ $2 "french"
EQ $2 "fudd"
EQ $2 "furby"
EQ $2 "jive"
EQ $2 "kraut"
EQ $2 "latin"
EQ $2 "mirror"
EQ $2 "morse"
EQ $2 "strfry"
EQ $2 "swab"
EQ $2 "tnarg"
EQ $2 "warez"
EQ $2 "wibble"
EQ $2 "nosport"
EQ $2 "saya"
EQ $2 "martian"
EQ $2 "hazelesque"
#if $2 matches any of the gags then we will gag the user
#with that gag. if $2 is empty or doesn't match any of the
#gags then we will gag them with a random gag
IFANY gagother
IFNONE randomother
#if we are still here then there has been an error
PRINT "[krRandom gag produced an error. Try again.[--"
JUMP finish
gagother:
#check if plain gag is specified
IFCLEAR
EQ $2 "gag"
IFALL gagotherplain
#If we are here then a filter has been specified
EXEC "unprotect $1"
EXEC "GAG $1 $2"
EXEC "protect $1"
JUMP finish
gagotherplain:
EXEC "unprotect $1"
EXEC "GAG $1"
EXEC "protect $1"
JUMP finish
randomother:
RAND randgag 1 $gagcount
EXEC "unprotect $1"
EXEC "GAG $1 ${gagname_${randgag}}"
EXEC "protect $1"
JUMP finish
finish:
RETURN
endfunc
function nasty
WHEREAMI myroom
Q-ROOM 403
IFCLEAR
WHOAMI me
EQ $# 1
IFANY myself
EQ $1 $me
IFANY myself
JUMP other
myself:
RAND randgag 1 $gagcount
EXEC "UNPROTECT $me"
EXEC "GAG $me ${gagname_${randgag}}"
EXEC "PROTECT $me"
JUMP end
other:
RAND randgag 1 $gagcount
RAND randroom 1 65535
IFCLEAR
EQ $randroom 3
EQ $randroom 403
EQ $randroom 408
IFANY other
EXEC "UNPROTECT $1"
EXEC "GAG $1 ${gagname_${randgag}}"
EXEC "SUMMON $randroom $1"
EXEC "PROTECT $1"
JUMP end
end:
Q-ROOM $myroom
IFCLEAR
EQ $1 ""
IFANY rawblank
EQ $1 $me
IFANY rawme
IFNONE rawother
rawblank:
IFCLEAR
EQ $randgag 1
IFALL rawblank_plaingag
EXEC "RAW 15$me has just tried to Unprotect, ${gagname_${randgag}} and re-Protect $me"
JUMP finish
rawblank_plaingag:
EXEC "RAW 15$me has just tried to Unprotect, Gag and re-Protect $me"
JUMP finish
rawother:
IFCLEAR
EQ $randgag 1
IFALL rawother_plaingag
EXEC "RAW 15$me has just tried to Unprotect, Summon to room $randroom, ${gagname_${randgag}} and re-Protect $1"
EXEC "SAYTO $1 You have just been unprotected, ${gagname_${randgag}}-gagged, summoned to room $randroom and reprotected by Thryduulf."
EXEC "SAYTO $1 to return to the main room type .room 0"
JUMP finish
rawother_plaingag:
EXEC "RAW 15$me has just tried to Unprotect, Summon to room $randroom, gag and re-Protect $1"
EXEC "SAYTO $1 You have just been unprotected, gagged, summoned to room $randroom and reprotected by Thryduulf."
EXEC "SAYTO $1 to return to the main room type .room 0"
JUMP finish
rawme:
IFCLEAR
EQ $randgag 1
IFALL rawme_plaingag
EXEC "RAW 15$me has just tried to Unprotect, ${gagname_${randgag}} and re-Protect $me"
JUMP finish
rawme_plaingag:
EXEC "RAW 15$me has just tried to Unprotect, Gag and re-Protect $me"
JUMP finish
finish:
RETURN
endfunc
function evil
WHEREAMI myroom
Q-ROOM 403
IFCLEAR
WHOAMI me
EQ $# 1
IFANY myself
EQ $1 $me
IFANY myself
JUMP other
myself:
RAND randgag 1 $gagcount
EXEC "UNPROTECT $me"
EXEC "GAG $me ${gagname_${randgag}}"
EXEC "FREEZE $me"
EXEC "PROTECT $me"
JUMP end
other:
RAND randgag 1 $gagcount
RAND randroom 2 65535
IFCLEAR
EQ $randroom 403
EQ $randroom 408
IFANY other
EXEC "UNPROTECT $1"
EXEC "GAG $1 ${gagname_${randgag}}"
EXEC "SUMMON $randroom $1"
EXEC "FREEZE $1"
EXEC "PROTECT $1"
JUMP end
end:
Q-ROOM $myroom
IFCLEAR
EQ $1 ""
IFANY rawblank
EQ $1 $me
IFANY rawme
IFNONE rawother
rawblank:
EXEC "RAW 15$me has just tried to Unprotect, Freeze, ${gagname_${randgag}} and re-Protect $me"
JUMP finish
rawother:
EXEC "RAW 15$me has just tried to Unprotect, Summon to room $randroom, Freeze, ${gagname_${randgag}} and re-Protect $1"
IFCLEAR
EQ $randgag 1
IFALL rawother_plaingag
EXEC "SAYTO $1 You have just been unprotected, ${gagname_${randgag}}-gaged, summoned to and frozen in room $randroom and reprotected by Thryduulf."
EXEC "SAYTO $1 I don't use this very often, so either you have really pissed me off, I'm testing or someone has forced me. In the case of the last one, blame them not me"
JUMP finish
rawother_plaingag:
EXEC "SAYTO $1 You have just been unprotected, gaged, summoned to and frozen in room $randroom and reprotected by Thryduulf."
EXEC "SAYTO $1 I don't use this very often, so either you have really pissed me off, I'm testing or someone has forced me. In the case of the last one, blame them not me."
JUMP finish
JUMP finish
rawme:
EXEC "RAW 15$me has just tried to Unprotect, Freeze, ${gagname_{${randgag}} and re-Protect $me
JUMP finish
finish:
RETURN
endfunc