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

Make auto-kick-rejoin work again.

This commit is contained in:
Quinn Evans 2015-10-05 21:28:25 -06:00
parent 9911a7a6ca
commit 4996ddf40f
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
WOPO.COB
View File

@ -338,7 +338,15 @@
PERFORM SEND-LINE. PERFORM SEND-LINE.
HANDLE-KICK. HANDLE-KICK.
IF PARAM(1) IS EQUAL TO WOPO-NICK THEN D DISPLAY "DETECTED KICK.".
MOVE SPACES TO WORK.
MOVE PARAM-PTR(2) TO WORK-PTR.
UNSTRING MSG-BODY DELIMITED BY SPACE
INTO WORK
WITH POINTER WORK-PTR.
IF WORK IS EQUAL TO WOPO-NICK THEN
D DISPLAY "KICK WAS ME."
MOVE MSG-BODY TO MSG-BODY-TMP
MOVE SPACES TO MSG-BODY MOVE SPACES TO MSG-BODY
STRING "JOIN " DELIMITED BY SIZE, STRING "JOIN " DELIMITED BY SIZE,
TARGET DELIMITED BY SPACES TARGET DELIMITED BY SPACES
@ -346,10 +354,7 @@
INTO MSG-BODY INTO MSG-BODY
PERFORM SEND-LINE PERFORM SEND-LINE
MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR
UNSTRING MSG-BODY DELIMITED BY "$COLN$" UNSTRING MSG-BODY-TMP
INTO WORK
WITH POINTER WORK-PTR
UNSTRING MSG-BODY
INTO WORK INTO WORK
WITH POINTER WORK-PTR WITH POINTER WORK-PTR
IF WORK IS NOT EQUAL TO WOPO-NICK THEN IF WORK IS NOT EQUAL TO WOPO-NICK THEN
@ -442,7 +447,7 @@
STRING TARGET STRING TARGET
INTO MSG-BODY INTO MSG-BODY
WITH POINTER WORK-PTR. WITH POINTER WORK-PTR.
STRING " $COLN$$SOH$ACTION PUNCHES A BABY.$SOH$$NULL$" STRING " $COLN$$SOH$ACTION PUNCHES A BABY.$SOH$$NUL$"
INTO MSG-BODY INTO MSG-BODY
WITH POINTER WORK-PTR. WITH POINTER WORK-PTR.
PERFORM SEND-LINE. PERFORM SEND-LINE.
@ -679,7 +684,7 @@
HANDLE-PING. HANDLE-PING.
MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR. MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR.
ADD 5 TO WORK-PTR ADD 5 TO WORK-PTR
UNSTRING MSG-BODY DELIMITED BY "$NULL$" UNSTRING MSG-BODY DELIMITED BY "$NUL$"
INTO WORK INTO WORK
WITH POINTER WORK-PTR. WITH POINTER WORK-PTR.
STRING "NOTICE " DELIMITED BY SIZE, STRING "NOTICE " DELIMITED BY SIZE,
@ -698,7 +703,7 @@
" $COLN$$SOH$VERSION WOPO THE COBOL-74 BOT. " " $COLN$$SOH$VERSION WOPO THE COBOL-74 BOT. "
- "VERSION WHATEVER. RUNNING ON " DELIMITED BY SIZE - "VERSION WHATEVER. RUNNING ON " DELIMITED BY SIZE
PLATFORM DELIMITED BY SPACES PLATFORM DELIMITED BY SPACES
".$SOH$$NULL$" DELIMITED BY SIZE ".$SOH$$NUL$" DELIMITED BY SIZE
INTO MSG-BODY. INTO MSG-BODY.
PERFORM SEND-LINE. PERFORM SEND-LINE.