home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / 09_02.iso / software / palace / thepalacerus.exe / Main / Cyborg.ipt < prev    next >
Encoding:
Text File  |  2002-07-22  |  1.3 KB  |  61 lines
  1. ; Sample Cyborg.script
  2.  
  3. ON INCHAT 
  4. {
  5. ; expressive prop changes - in response to what others say
  6.     { "Lightbulb" DONPROP { DOFFPROP } 120 ALARMEXEC } CHATSTR "you genius" == IF
  7.     
  8. ; this is your FINGER information - replace the stuff in quotes with 
  9. ; information about yourself.
  10.     {
  11.         "^<insert name>\x0d"
  12.         "<insert e-mail>\x0d" +
  13.         WHOCHAT PRIVATEMSG
  14.     } CHATSTR "finger" == CHATSTR ";finger" == OR 
  15.       WHOCHAT WHOME == NOT AND IF
  16. }
  17.  
  18.  
  19.  
  20. ON OUTCHAT 
  21. {
  22.  
  23. ; more expressive prop changes (in response to what YOU say)
  24.     {
  25.         { "Lightbulb" DONPROP { DOFFPROP } 120 ALARMEXEC } 30 ALARMEXEC
  26.     } CHATSTR "a.* idea" SUBSTR IF
  27.  
  28. ; Zap somebody by positioning the mouse and then say "zap"
  29.     { "!)fazein Zap!" MOUSEPOS SAYAT
  30.        255 0 0 PENCOLOR 2 PENSIZE 
  31.        POSX POSY MOUSEPOS LINE 
  32.        PAINTUNDO
  33.       "" CHATSTR =
  34.     } CHATSTR "zap" == IF
  35.  
  36. ; clean the room by saying "clean"
  37.     {
  38.        CLEARLOOSEPROPS
  39.        PAINTCLEAR
  40.     } CHATSTR "clean" == IF
  41.  
  42. ; spoof somebody by positioning the mouse on their mouth and then type "msay blah blah"
  43.     { "$1" GREPSUB chatter =
  44.       chatter MOUSEPOS SAYAT
  45.       "" CHATSTR =
  46.     } CHATSTR "^msay (.*)$" GREPSTR IF
  47.  
  48. ; give another user a prop
  49.     { "$1" GREPSUB who = "$2" GREPSUB prop =
  50.       prop who WHOPOS ADDLOOSEPROP
  51.     } CHATSTR "^give (.*) (.*)$" GREPSTR IF
  52. }
  53.  
  54.  
  55.  
  56. ON SIGNON
  57. {
  58.     "@64,64 !It's " USERNAME + SAY
  59.     1 MACRO
  60. }
  61.