Lick more flexibly.
This commit is contained in:
parent
9e25f1c525
commit
34e08ebe26
1 changed files with 11 additions and 7 deletions
18
WOPO.COB
18
WOPO.COB
|
@ -430,8 +430,8 @@
|
||||||
PERFORM HANDLE-JOIN
|
PERFORM HANDLE-JOIN
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "LEVEL" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "LEVEL" THEN
|
||||||
PERFORM HANDLE-LEVEL
|
PERFORM HANDLE-LEVEL
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "LICK-ME" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "LICK" THEN
|
||||||
PERFORM HANDLE-LICK-ME
|
PERFORM HANDLE-LICK
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "LIST-USERS" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "LIST-USERS" THEN
|
||||||
PERFORM HANDLE-LIST-USERS
|
PERFORM HANDLE-LIST-USERS
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "OP" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "OP" THEN
|
||||||
|
@ -457,7 +457,7 @@
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
STRING "COMMANDS$COLN$ "
|
STRING "COMMANDS$COLN$ "
|
||||||
- "$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN $$DEOP "
|
- "$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN $$DEOP "
|
||||||
- "$$DEVOICE $$HELP $$JOIN $$LEVEL $$LICK-ME "
|
- "$$DEVOICE $$HELP $$JOIN $$LEVEL $$LICK "
|
||||||
- "$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED "
|
- "$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED "
|
||||||
- "$$SHOW-ESCAPES $$SOURCE $$STRESS $$VOICE "
|
- "$$SHOW-ESCAPES $$SOURCE $$STRESS $$VOICE "
|
||||||
- "$NUL$"
|
- "$NUL$"
|
||||||
|
@ -488,11 +488,15 @@
|
||||||
WITH POINTER WORK-PTR.
|
WITH POINTER WORK-PTR.
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
HANDLE-LICK-ME.
|
HANDLE-LICK.
|
||||||
|
IF WOPO-PARAMS IS LESS THAN 2 THEN
|
||||||
|
MOVE NICK TO WORK
|
||||||
|
ELSE
|
||||||
|
MOVE PARAM(2) TO WORK.
|
||||||
PERFORM BEGIN-REPLY.
|
PERFORM BEGIN-REPLY.
|
||||||
STRING "$SOH$ACTION VIGOROUSLY LICKS "
|
STRING "$SOH$ACTION VIGOROUSLY LICKS " DELIMITED BY SIZE,
|
||||||
- NICK
|
WORK DELIMITED BY SPACES,
|
||||||
- ".$SOH$$NUL$"
|
".$SOH$$NUL$" DELIMITED BY SIZE
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
WITH POINTER WORK-PTR.
|
WITH POINTER WORK-PTR.
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
Loading…
Reference in a new issue