Get rid of non-standard colon characters in messages.
This commit is contained in:
parent
29d907a1a0
commit
988b23a8a0
1 changed files with 2 additions and 2 deletions
4
WOPO.COB
4
WOPO.COB
|
@ -439,7 +439,7 @@
|
||||||
UNSTRING MSG-BODY OF INPUT-BUFFER
|
UNSTRING MSG-BODY OF INPUT-BUFFER
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
D DISPLAY "KICK MESSAGE: ", R(1)
|
D DISPLAY "KICK MESSAGE. ", R(1)
|
||||||
IF R(1) IS NOT EQUAL TO NICK OF WOPO THEN
|
IF R(1) IS NOT EQUAL TO NICK OF WOPO THEN
|
||||||
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
||||||
STRING "PRIVMSG " DELIMITED BY SIZE,
|
STRING "PRIVMSG " DELIMITED BY SIZE,
|
||||||
|
@ -551,7 +551,7 @@
|
||||||
"$240$$159$$142$$134$$NUL$"
|
"$240$$159$$142$$134$$NUL$"
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
ELSE
|
ELSE
|
||||||
STRING "COMMANDS$COLN$ "
|
STRING "COMMANDS. "
|
||||||
"$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN ",
|
"$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN ",
|
||||||
"$$DEOP $$DEVOICE $$HELP $$JOIN $$LEVEL $$LICK ",
|
"$$DEOP $$DEVOICE $$HELP $$JOIN $$LEVEL $$LICK ",
|
||||||
"$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED ",
|
"$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED ",
|
||||||
|
|
Loading…
Reference in a new issue