home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Shareware World / Comms & Internet / SB112 / Plugins / spin < prev    next >
Encoding:
Text File  |  1997-06-17  |  520 b   |  28 lines  |  [TEXT/ttxt]
  1. 'Sample Plugin
  2. '© John Bafford, 1996-1997
  3.  
  4. *COMMAND spin -1
  5. *GLOBAL str nick
  6. *GLOBAL int running 0
  7. *ENDCONF
  8.  
  9. @ENTRY spin
  10. @if #$GLOBAL:running. = 1 terminate
  11. @set running 1
  12. SAY $NICK spins the wheel of mystery
  13. @DELAY 120
  14. SAY Round and round the wheel goes...where it stops, nobody knows...
  15. @DELAY 180
  16. @set nick $RAND:nick.
  17. SAY The wheel stops and points at $GLOBAL:nick..
  18. @IF "$GLOBAL:nick." = "$BOTNICK" gotme
  19. @set running 0
  20. @END
  21.  
  22. @LABEL gotme
  23. SAY Nice try...spin again, $NICK.
  24. @set running 0
  25. @END
  26.  
  27. @LABEL terminate
  28. @END