home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / action < prev    next >
Text File  |  1994-07-30  |  3KB  |  106 lines
  1. # Basically taken from LpMUD.  -lynx91,92
  2. #
  3. # If the variable 'GENDER' is set, 'POSSESSIVE' is set accordingly
  4. # and used by some actions, but it works also without.
  5.  
  6. # Accept old action format:
  7. #   on ^public_notice * echo $0 $2-
  8.  
  9. # Use old action format:
  10. #   alias me {notice $C $*;echo $N $*}
  11.  
  12. # Restyle output of actions:
  13. #   on ACTION * echo $*
  14. #   on SEND_ACTION * echo $*
  15.  
  16. if (GENDER) {
  17.     if ([$GENDER] == [F]) {
  18.         assign POSSESSIVE her
  19.     } {
  20.         assign POSSESSIVE his
  21.     }
  22. } {
  23.     assign POSSESSIVE the
  24. }
  25.  
  26. # These commands can be used with or without an adverb of your choice.
  27. #
  28. alias applaud me applauds
  29. alias bounce me bounces around
  30. alias chuckle me chuckles
  31. alias clap me claps $POSSESSIVE hands
  32. alias giggle me giggles
  33. alias grin me grins
  34. alias groan me groans
  35. alias moan me moans
  36. alias nod me nods
  37. alias purr me purrs
  38. alias scratch me scratches $POSSESSIVE head
  39. alias shrug me shrugs
  40. alias sigh me sighs
  41. alias smile me smiles
  42. alias wave me waves goodbye
  43. alias wink me winks
  44. alias yawn me yawns
  45.  
  46. # Same type, but a bit more complex (with 'defaults').
  47. #
  48. alias laugh {
  49.     if ([$*]) { me laughs $*
  50.     } { me falls down laughing.
  51.     }
  52. }
  53. alias sing {
  54.     if ([$*]) { me sings $*
  55.     } { me sings "O sole mio, sta'n fronte a te..."
  56.     }
  57. }
  58.  
  59. # These can only be used without arguments.
  60. #
  61. alias bow me bows gracefully.
  62. alias burp me burps rudely.
  63. alias cough me coughs noisily.
  64. alias cry me bursts into tears. Waaaaah!
  65. alias gasp me gasps in astonishment!
  66. alias scream me screams loudly: Aaarrrgghh!!!
  67. alias shiver me shivers from the cold. Brrrr!
  68. alias snap me snaps with $POSSESSIVE fingers.
  69. alias sneeze me sneezes. Gesundheit!
  70. alias snore me snores loudly. Zzzz...
  71. alias whistle me whistles a well known melody. 
  72. alias wiggle me wiggles $POSSESSIVE bottom.
  73.  
  74. # These require a nickname as argument.
  75. # (Or 'you' if you are in a /query).
  76. #
  77. alias comfort me comforts
  78. alias cuddle me cuddles
  79. alias hug me hugs
  80. alias kiss me kisses
  81. alias love me whispers sweet words of love to
  82. alias pat me pats $0 on the shoulders $1-
  83. alias poke me pokes $0 in the ribs $1-
  84. alias slap me slaps $0 in the face $1-
  85. alias spit me spits on
  86. alias thank me thanks $* from the heart.
  87.  
  88. # These work with or without a nickname.
  89. #
  90. alias dance {
  91.     if ([$*]) { me sweeps $0 across the dance floor $1-
  92.     } { me does the dance of the disco-duck.
  93.     }
  94. }
  95. alias shake {
  96.     if ([$*]) { me shakes hands with $*
  97.     } { me shakes $POSSESSIVE head.
  98.     }
  99. }
  100.  
  101. # These are wake-up-messages in form of actions.
  102. # Use /ping with 0 to 3 beeps as 2nd argument.
  103. #
  104. alias ping describe $0 pings you $1-
  105. alias pong describe $0 pongs back $1-
  106.