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

Add licking. 

Vigorous licking!
This commit is contained in:
zgrep 2016-10-10 23:03:11 -04:00 committed by GitHub
parent cda5662a6a
commit 208aa7739d
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
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" THEN
PERFORM HANDLE-LICK
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,25 @@
WITH POINTER WORK-PTR.
PERFORM SEND-LINE.
HANDLE-LICK.
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
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