home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 November / APC411-2.ISO / commun / palace32.exe / CYBORG.IPT < prev    next >
Encoding:
Text File  |  1998-12-14  |  1.7 KB  |  71 lines
  1.  
  2.  
  3.  
  4. ; Sample Cyborg.script
  5.  
  6. ON INCHAT 
  7. {
  8. ; expressive prop changes - in response to what others say
  9.     { "pitchfork" DONPROP { DOFFPROP } 120 ALARMEXEC } CHATSTR "you devil" == IF
  10.     { "Halo" DONPROP { DOFFPROP } 120 ALARMEXEC } CHATSTR "you angel" == IF
  11.     { "Lightbulb" DONPROP { DOFFPROP } 120 ALARMEXEC } CHATSTR "you genius" == IF
  12.     { "Fez" DONPROP { DOFFPROP } 120 ALARMEXEC } CHATSTR "you shriner" == IF
  13.     { "Beanie" DONPROP { DOFFPROP } 120 ALARMEXEC } CHATSTR "you geek" == IF
  14.     {
  15.  
  16. ; this is your FINGER information - replace the stuff in quotes with 
  17. ; information about yourself.
  18.         "^<insert name>\x0d"
  19.         "<insert e-mail>\x0d" +
  20.         WHOCHAT PRIVATEMSG
  21.     } CHATSTR "finger" == CHATSTR ";finger" == OR 
  22.       WHOCHAT WHOME == NOT AND IF
  23. }
  24.  
  25. ON OUTCHAT 
  26. {
  27. ; more expressive prop changes (in response to what YOU say)
  28.     {
  29.         { "Halo" DONPROP { DOFFPROP } 120 ALARMEXEC } 30 ALARMEXEC
  30.     } CHATSTR "who me.$" GREPSTR IF
  31.  
  32.  
  33.     {
  34.         { "Lightbulb" DONPROP { DOFFPROP } 120 ALARMEXEC } 30 ALARMEXEC
  35.     } CHATSTR "a.* idea" SUBSTR IF
  36.  
  37.  
  38. ; Zap somebody by positioning the mouse and then say "zap"
  39.     { "!)no Zap!" MOUSEPOS SAYAT
  40.        255 0 0 PENCOLOR 2 PENSIZE 
  41.        POSX POSY MOUSEPOS LINE 
  42.        PAINTUNDO
  43.       "" CHATSTR =
  44.     } CHATSTR "zap" == IF
  45.  
  46.  
  47. ; clean the room by saying "clean"
  48.     {
  49.        CLEARLOOSEPROPS
  50.        PAINTCLEAR
  51.     } CHATSTR "clean" == IF
  52.  
  53.  
  54. ; spoof somebody by positioning the mouse on their mouth and then type "msay blah blah"
  55.     { "$1" GREPSUB chatter =
  56.       chatter MOUSEPOS SAYAT
  57.       "" CHATSTR =
  58.     } CHATSTR "^msay (.*)$" GREPSTR IF
  59.  
  60. ; give Joe Beer
  61.     { "$1" GREPSUB who = "$2" GREPSUB prop =
  62.       prop who WHOPOS ADDLOOSEPROP
  63.     } CHATSTR "^give (.*) (.*)$" GREPSTR IF
  64. }
  65.  
  66. ON SIGNON
  67. {
  68.     "@64,64 !It's " USERNAME + SAY
  69.     1 MACRO
  70. }
  71.