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

Fix $RELEVEL and remove a stray debug output.

This commit is contained in:
Quinn Evans 2015-09-27 00:36:37 -06:00
parent cce7b292f2
commit 86c803f557
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
WOPO.COB
View File

@ -171,7 +171,6 @@
MOVE NICK TO USER-NAME. MOVE NICK TO USER-NAME.
READ USERS RECORD READ USERS RECORD
INVALID KEY MOVE 0 TO USER-LEVEL. INVALID KEY MOVE 0 TO USER-LEVEL.
DISPLAY USER-RECORD.
IF USER-LEVEL IS GREATER THAN 0 THEN IF USER-LEVEL IS GREATER THAN 0 THEN
INITIALIZE MSG-BODY INITIALIZE MSG-BODY
MOVE 1 TO MSG-LENGTH MOVE 1 TO MSG-LENGTH
@ -269,7 +268,13 @@
INVALID KEY MOVE 0 TO USER-LEVEL. INVALID KEY MOVE 0 TO USER-LEVEL.
INITIALIZE MSG-BODY. INITIALIZE MSG-BODY.
MOVE 1 TO MSG-LENGTH. MOVE 1 TO MSG-LENGTH.
STRING USER-RECORD STRING "PRIVMSG " DELIMITED BY SIZE
TARGET DELIMITED BY SPACE
INTO MSG-BODY
WITH POINTER MSG-LENGTH.
ADD 1 TO MSG-LENGTH
STRING ":"
USER-RECORD
INTO MSG-BODY INTO MSG-BODY
WITH POINTER MSG-LENGTH. WITH POINTER MSG-LENGTH.
PERFORM SEND-LINE. PERFORM SEND-LINE.
@ -333,10 +338,12 @@
GO TO QUIT. GO TO QUIT.
HANDLE-RELEVEL. HANDLE-RELEVEL.
MOVE PARAM(2) TO USER-NAME. MOVE PARAM(2) TO REG(1).
MOVE PARAM(3) TO USER-LEVEL. MOVE PARAM(3) TO REG(2).
PERFORM VALIDATE-USER. PERFORM VALIDATE-USER.
MOVE REG(1) TO USER-NAME.
IF USER-LEVEL IS EQUAL TO 99 THEN IF USER-LEVEL IS EQUAL TO 99 THEN
MOVE REG(2) TO USER-LEVEL
WRITE USER-RECORD. WRITE USER-RECORD.
READ USERS RECORD READ USERS RECORD
INVALID KEY MOVE 0 TO USER-LEVEL. INVALID KEY MOVE 0 TO USER-LEVEL.