Author |
Message |
maarten |
|
Post subject: Backwards talk
Posted: Jan 09, 2005 - 01:34 PM
|
|

Joined: Oct 20, 2002
Posts: 674
Location: DiGiLaNd
Status: Offline
|
|
If used in Outchat, it will make anything said be said backwards. If used in Inchat, it will making anything heard be heard backwards.
Code: | ;If used in Outchat, it will make anything said be said backwards.
;If used in Inchat, it will making anything heard be heard backwards.
;(The log will display it normally.)
BakOn GLOBAL
{ CHATSTR Str = "^" GStr = { i++ { GStr "." + GStr = "$1" GREPSUB } i 1 > IF } { Str GStr "(.)" + GREPSTR 1 == } WHILE i-- i xStrLen = "" BKStr = { z++ BKStr SWAP + BKStr = } { z xStrLen < } WHILE BKStr CHATSTR = } BakOn 1 == IF
;this is the on/off switch. This belongs in an Outchat handler.
BakOn GLOBAL
{ "BaK off" LOCALMSG BakOn GLOBAL 0 BakOn = "" CHATSTR = }
{ "BaK on" LOCALMSG BakON GLOBAL 1 BakOn = "" CHATSTR = } CHATSTR "BaK" == bakon AND IFELSE
|
Originally submitted by Aquilae |
|
|
|
|
 |
|
| |