Miscellany

on *:INPUT:*: {
  if (+* iswm $1) {
    haltdef
    mode $active $1- 
  }
  if (-* iswm $1) {
    haltdef
    mode $active $1- 
  }
  if (lol iswm $1-) && ($2 == $null) {
    haltdef
    describe $active   $+ $r(2,13) $+ L $+ $r(2,13) $+ aughs  $+ $r(2,13) $+ O $+ $r(2,13) $+ ut  $+ $r(2,13) $+ L $+ $r(2,13) $+ oud
  }
  if (hi iswm $1)  && ($2 != $null) {
    haltdef
    describe $active    $+ $r(2,13) $+ S $+  $+ $r(2,13) $+ ays  $+ $r(2,13) $+ H $+  $+ $r(2,13) $+ ello  $+ $r(2,13) $+ T $+  $+ $r(2,13) $+ o  $+ $r(2,13) $+ $2
  }
  if (rofl iswm $1)  && ($2 == $null) {
    haltdef
    //describe $active   $+ $r(2,13) $+ R $+ $r(2,13) $+ olling  $+ $r(2,13) $+ O $+ $r(2,13) $+ n  $+ $r(2,13) $+ T $+ $r(2,13) $+ he  $+ $r(2,13) $+ F $+ $r(2,13) $+ loor  $+ $r(2,13) $+ L $+ $r(2,13) $+ aughing
  }
  if (lmfao iswm $1)  && ($2 == $null) {
    haltdef
    //describe $active  $+ $r(2,13) $+ L $+ $r(2,13) $+ aughing  $+ $r(2,13) $+ M $+ $r(2,13) $+ y  $+ $r(2,13) $+ F $+ $r(2,13) $+ ucking  $+ $r(2,13) $+ A $+ $r(2,13) $+ ss  $+ $r(2,13) $+ O $+ $r(2,13) $+ ff
  }
  if (lmao iswm $1)  && ($2 == $null) {
    haltdef 
    //describe $active  $+ $r(2,13) $+ L $+ $r(2,13) $+ aughing  $+ $r(2,13) $+ M $+ $r(2,13) $+ y  $+ $r(2,13) $+ A $+ $r(2,13) $+ ss  $+ $r(2,13) $+ O $+ $r(2,13) $+ ff
  } 
  if (giggle iswm $1)  && ($2 == $null) || (giggles iswm $1) {
    haltdef
    //describe $active  $+ $r(2,13) $+ G $+ $r(2,13) $+ i $+ $r(2,13) $+ g $+ $r(2,13) $+ g $+ $r(2,13) $+ l $+ $r(2,13) $+ e $+ $r(2,13) $+ s
  } 
  if (smacks iswm $1)  && ($2 != $null) {
    haltdef
    //describe $active  $+ $r(2,13) S $+ $r(2,13) $+  $+ $r(2,13) $+ mack $+ $r(2,13) $+ s  $+ $r(2,13) $+ $2  $+ $r(2,13) $+ W $+ $r(2,13) $+ ith  $+ $r(2,13) $+ A  $+ $r(2,13) $+ $3
  }
  if (slaps iswm $1)  && ($2 != $null) {
    haltdef
    //describe $active  $+ $r(2,13) $+ S $+  $+ $r(2,13) $+ laps  $+ $r(2,13) $+ $2 $+  $+ $r(2,13) W $+ $r(2,13) $+ ith  $+ $r(2,13) $+ A  $+ $r(2,13) $+ L $+ $r(2,13) $+ arge  $+ $r(2,13) $+ S $+ $r(2,13) $+ melly  $+ $r(2,13) $+ T $+ $r(2,13) $+ una
  }
  if (laughs iswm $1)  && ($2 == $null) {
    haltdef
    //describe $active   $+ $r(2,13) $+ L $+ $r(2,13) $+ aughs
  }
  if (throws iswm $1) {
    haltdef
    //describe $active  $+ $r(2,13) $+ T $+ $r(2,13) $+ hrows  $+ $r(2,13) $+ A  $+ $r(2,13) $+ M $+ $r(2,13) $+ ithril  $+ $r(2,13) $+ D $+ $r(2,13) $+ ragon  $+ $r(2,13) $+ A $+ $r(2,13) $+ t  $+ $r(2,13) $+ $2
  }
  if (over iswm $1)  && ($2 != $null) {
    haltdef
    set %replaceitalias $replace($2-,e,3,a,4,o,0,c,$chr(169),r,$chr(174),$chr(63),$chr(191),p,$chr(254),s,$chr(167),i,$chr(238))
    msg $active  $($+(%replaceitalias),™,$chr(32)))
    unset %replaceitalias
  }
  if (chr iswm $1) {
    haltdef
    set %chr $asc( $+ $2 $+ )
    msg  $active the chr for $2 is $chr(36) $+ $chr(99) $+ $chr(104) $+ $chr(114) $+ $chr(40) $+ %chr $+ $chr(41)
  }
  if (asc iswm $1) {
    haltdef
    set %asc $chr( $+ $2 $+ )
    //msg $active  asc for $2 is $chr(36) $+ $chr(97) $+ $chr(115) $+ $chr(99) $+ $chr(40) $+ %asc $+ $chr(41)
  }
}