Add useless $SHITFED command.
This commit is contained in:
parent
09ad07405a
commit
ca9e294cb5
12
WOPO.COB
12
WOPO.COB
|
@ -255,6 +255,8 @@
|
||||||
PERFORM HANDLE-HELP
|
PERFORM HANDLE-HELP
|
||||||
ELSE IF PARAM(1) IS EQUAL TO "SOURCE" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "SOURCE" THEN
|
||||||
PERFORM HANDLE-SOURCE
|
PERFORM HANDLE-SOURCE
|
||||||
|
ELSE IF PARAM(1) IS EQUAL TO "SHITFED" THEN
|
||||||
|
PERFORM HANDLE-SHITFED
|
||||||
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 "JOIN" THEN
|
ELSE IF PARAM(1) IS EQUAL TO "JOIN" THEN
|
||||||
|
@ -268,7 +270,15 @@
|
||||||
|
|
||||||
HANDLE-HELP.
|
HANDLE-HELP.
|
||||||
PERFORM BEGIN-REPLY.
|
PERFORM BEGIN-REPLY.
|
||||||
STRING "$HELP $LEVEL $JOIN $PART $QUIT $RELEVEL $SOURCE "
|
STRING "$HELP $LEVEL $JOIN $PART $QUIT $RELEVEL $SHITFED "
|
||||||
|
- "$SOURCE"
|
||||||
|
INTO MSG-BODY
|
||||||
|
WITH POINTER MSG-LENGTH.
|
||||||
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
|
HANDLE-SHITFED.
|
||||||
|
PERFORM BEGIN-REPLY.
|
||||||
|
STRING "LEAVE MY CASE ALONE, ASSHOLE."
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
WITH POINTER MSG-LENGTH.
|
WITH POINTER MSG-LENGTH.
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
Loading…
Reference in New Issue