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