Rename $HELP to $COMMANDS and add a syntax explanation as $HELP
This commit is contained in:
parent
d603b8151e
commit
2c2b384b14
65
WOPO.COB
65
WOPO.COB
|
@ -612,8 +612,8 @@
|
||||||
PERFORM HANDLE-DEOP
|
PERFORM HANDLE-DEOP
|
||||||
ELSE IF R(1) IS EQUAL TO "DEVOICE" THEN
|
ELSE IF R(1) IS EQUAL TO "DEVOICE" THEN
|
||||||
PERFORM HANDLE-DEVOICE
|
PERFORM HANDLE-DEVOICE
|
||||||
ELSE IF R(1) IS EQUAL TO "HELP" THEN
|
ELSE IF R(1) IS EQUAL TO "COMMANDS" THEN
|
||||||
PERFORM HANDLE-HELP
|
PERFORM HANDLE-COMMANDS
|
||||||
ELSE IF R(1) IS EQUAL TO "JOIN" THEN
|
ELSE IF R(1) IS EQUAL TO "JOIN" THEN
|
||||||
PERFORM HANDLE-JOIN
|
PERFORM HANDLE-JOIN
|
||||||
ELSE IF R(1) IS EQUAL TO "LEVEL" THEN
|
ELSE IF R(1) IS EQUAL TO "LEVEL" THEN
|
||||||
|
@ -652,6 +652,8 @@
|
||||||
PERFORM HANDLE-LIST-PROGRAM
|
PERFORM HANDLE-LIST-PROGRAM
|
||||||
ELSE IF R(1) IS EQUAL TO "RUN" THEN
|
ELSE IF R(1) IS EQUAL TO "RUN" THEN
|
||||||
PERFORM HANDLE-RUN
|
PERFORM HANDLE-RUN
|
||||||
|
ELSE IF R(1) IS EQUAL TO "HELP" THEN
|
||||||
|
PERFORM HANDLE-HELP
|
||||||
ELSE
|
ELSE
|
||||||
PERFORM INTERPRET-PROGRAM.
|
PERFORM INTERPRET-PROGRAM.
|
||||||
D PERFORM DEBUG-REGISTERS
|
D PERFORM DEBUG-REGISTERS
|
||||||
|
@ -662,27 +664,16 @@
|
||||||
DDEBUG-REGISTERS.
|
DDEBUG-REGISTERS.
|
||||||
D DISPLAY "REGISTER ", WOPO-COUNTER, ". ", R(WOPO-COUNTER).
|
D DISPLAY "REGISTER ", WOPO-COUNTER, ". ", R(WOPO-COUNTER).
|
||||||
|
|
||||||
HANDLE-HELP.
|
HANDLE-COMMANDS.
|
||||||
MOVE 1 TO DEST.
|
STRING "COMMANDS. "
|
||||||
PERFORM INDEX-PARAMS.
|
"$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN ",
|
||||||
IF NUM-PARAMS OF WOPO IS GREATER THAN 0 THEN
|
"$$DEOP $$DEVOICE $$COMMANDS $$JOIN $$LEVEL $$LICK ",
|
||||||
MOVE 1 TO PTR(SRC)
|
"$$LIST-USERS $$OP $$PART $$QUIT $$RELEVEL ",
|
||||||
PERFORM GET-PARAM
|
"$$SHITFED $$SHOW-ESCAPES $$SOURCE $$STRESS ",
|
||||||
ELSE
|
"$$VOICE $$ECHO $$CAT $$DUMP-REGS $$PROGRAMS ",
|
||||||
MOVE SPACES TO R(1).
|
"$$LIST-PROGRAMS $$RUN $$HELP"
|
||||||
IF R(1) IS EQUAL TO "ME" THEN
|
"$NUL$"
|
||||||
STRING "$240$$159$$142$$135$ ",
|
INTO R(1).
|
||||||
"GOD HELPS THOSE WHO HELP THEMSELVES, COMMIE. ",
|
|
||||||
"$240$$159$$142$$134$$NUL$"
|
|
||||||
INTO R(1)
|
|
||||||
ELSE
|
|
||||||
STRING "COMMANDS. "
|
|
||||||
"$$BF-CODE $$BF-INPUT $$BF-OUTPUT $$BF-RUN ",
|
|
||||||
"$$DEOP $$DEVOICE $$HELP $$JOIN $$LEVEL $$LICK ",
|
|
||||||
"$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED ",
|
|
||||||
"$$SHOW-ESCAPES $$SOURCE $$STRESS $$VOICE ",
|
|
||||||
"$NUL$"
|
|
||||||
INTO R(1).
|
|
||||||
MOVE 1 TO SRC.
|
MOVE 1 TO SRC.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
PERFORM DO-OUTPUT.
|
PERFORM DO-OUTPUT.
|
||||||
|
@ -1364,6 +1355,34 @@
|
||||||
MOVE R(2) TO R(8).
|
MOVE R(2) TO R(8).
|
||||||
PERFORM INTERPRET-PROGRAM.
|
PERFORM INTERPRET-PROGRAM.
|
||||||
|
|
||||||
|
HANDLE-HELP.
|
||||||
|
MOVE 1 TO DEST.
|
||||||
|
PERFORM INDEX-PARAMS.
|
||||||
|
IF NUM-PARAMS OF WOPO IS GREATER THAN 0 THEN
|
||||||
|
MOVE 1 TO PTR(SRC)
|
||||||
|
PERFORM GET-PARAM
|
||||||
|
ELSE
|
||||||
|
MOVE SPACES TO R(1).
|
||||||
|
IF R(1) IS EQUAL TO "ME" THEN
|
||||||
|
STRING "$240$$159$$142$$135$ ",
|
||||||
|
"GOD HELPS THOSE WHO HELP THEMSELVES, COMMIE. ",
|
||||||
|
"$240$$159$$142$$134$$NUL$"
|
||||||
|
INTO R(1)
|
||||||
|
ELSE
|
||||||
|
STRING "COMMANDS BEGIN WITH $$. PARAMETERS ARE ",
|
||||||
|
"SEPARATED WITH $$ ALSO. EXAMPLES$COLN$ ",
|
||||||
|
"""$$HELP"", ""$$HELP$$ME"". ",
|
||||||
|
"A SPECIFIC INSTANCE OF THE BOT CAN BE ADDRESSED ",
|
||||||
|
"IN THE DE FACTO STANDARD WAY ",
|
||||||
|
"(""WOPO$COLN$ HELP"") OR BY EXTENSION OF ",
|
||||||
|
"WOPO$SGQT$S SYNTAX (""WOPO$$HELP""). ",
|
||||||
|
"FOR A LIST OF BUILT-IN COMMANDS, SEE $$COMMANDS",
|
||||||
|
"$NUL$"
|
||||||
|
INTO R(1).
|
||||||
|
MOVE 1 TO SRC.
|
||||||
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
|
PERFORM DO-OUTPUT.
|
||||||
|
|
||||||
HANDLE-CTCP.
|
HANDLE-CTCP.
|
||||||
D DISPLAY "HANDLING CTCP.".
|
D DISPLAY "HANDLING CTCP.".
|
||||||
IF NOTICE AND
|
IF NOTICE AND
|
||||||
|
|
Loading…
Reference in New Issue