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

Merge pull request #1 from zgrep/patch-1 

Add licking.
This commit is contained in:
Quinn Evans 2016-10-10 22:23:52 -06:00 committed by GitHub
parent cda5662a6a 99ebd7e47a
commit 386a43c9f9
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
WOPO.COB
View File

@ -389,6 +389,8 @@
PERFORM HANDLE-SOURCE
ELSE IF PARAM(1) IS EQUAL TO "STRESS" THEN
PERFORM HANDLE-STRESS
ELSE IF PARAM(1) IS EQUAL TO "LICK-ME" THEN
PERFORM HANDLE-LICK-ME
ELSE IF PARAM(1) IS EQUAL TO "BF-INPUT" THEN
PERFORM HANDLE-BF-INPUT
ELSE IF PARAM(1) IS EQUAL TO "BF-CODE" THEN
@ -468,6 +470,26 @@
WITH POINTER WORK-PTR.
PERFORM SEND-LINE.
HANDLE-LICK-ME.
MOVE 1 TO WORK-PTR.
STRING "PRIVMSG " DELIMITED BY SIZE,
INTO MSG-BODY
WITH POINTER WORK-PTR.
IF TARGET IS EQUAL TO WOPO-NICK THEN
STRING NICK
INTO MSG-BODY
WITH POINTER WORK-PTR
ELSE
STRING TARGET
INTO MSG-BODY
WITH POINTER WORK-PTR.
STRING " $COLN$$SOH$ACTION VIGOROUSLY LICKS "
- NICK
- ".$SOH$$NUL$"
INTO MSG-BODY
WITH POINTER WORK-PTR.
PERFORM SEND-LINE.
HANDLE-LEVEL.
IF PARAM(2) IS NOT EQUAL TO SPACES THEN
MOVE PARAM(2) TO USER-NAME