Script Library: 1238 scripts
 

rim-bull.r

REBOL [ Title: "RIM Bulliten" Date: 1-Jun-2001/10:30-7:00 Version: 0.9.4 File: %rim-bull.r Author: "Ryan S. Cole" Purpose: "A simple RIM bulletin board example using RIM Bot." Email: %ryanc--iesco-dms--com Web: http://www.sonic.net/~gaia/RIM/rim-bot.html Comments: { 0.9.2 Changed do %rim-bot.r to use load-thru 0.9.4 Changed to load-thru reboltech library Fixed short listing bug Name mispelled } library: [ level: none platform: none type: none domain: 'tcp tested-under: none support: none license: none see-also: none ] ] do load-thru http://www.reboltech.com/library/scripts/rim-bot.r Print "RIM-Bulletin" Max-bulletins: 10 Bulletins: [] RIM-Bot/name: "Bulletins" RIM-Bot/welcome-msg: {Simple Bulletin Board for RIM. Type "help" for instructions.} RIM-Bot/port: 5555 RIM-Bot/Init cmds: [ "post" [ append bulletins at Heard 6 if Max-bulletins < length? bulletins [ remove head bulletins ] RIM-Bot/speak Heard ] "read" [ foreach bull bulletins [ RIM-Bot/speak/to bull whom ] ] "help" [ RIM-Bot/speak/to {Three commands, Post <comments>, Read, and Help.} whom ] ] Forever [ Heard: RIM-Bot/hear Whom: RIM-Bot/listen if Heard [ if heard: Find/tail heard ": " [ switch probe copy/part heard 4 cmds] ] ]
halt ;; to terminate script if DO'ne from webpage
Notes
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (ryanc:iesco-dms:com)