uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add useless $SHITFED command.

This commit is contained in:
Quinn Evans 2015-09-28 14:11:42 -06:00
parent 09ad07405a
commit ca9e294cb5
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
WOPO.COB
View File

@ -255,6 +255,8 @@
PERFORM HANDLE-HELP
ELSE IF PARAM(1) IS EQUAL TO "SOURCE" THEN
PERFORM HANDLE-SOURCE
ELSE IF PARAM(1) IS EQUAL TO "SHITFED" THEN
PERFORM HANDLE-SHITFED
ELSE IF PARAM(1) IS EQUAL TO "LEVEL" THEN
PERFORM HANDLE-LEVEL
ELSE IF PARAM(1) IS EQUAL TO "JOIN" THEN
@ -268,7 +270,15 @@
HANDLE-HELP.
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
WITH POINTER MSG-LENGTH.
PERFORM SEND-LINE.