commit
386a43c9f9
1 changed files with 22 additions and 0 deletions
22
WOPO.COB
22
WOPO.COB
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue