Untitled

on *:input:*:{ haltdef
  if ($1 ison $chan) { say 13°6¤2:11 $1 2:6¤13º $replacecs($2-,-rose,4@9>3--`-- $+ $chr(44) $+ --,<3,6<133,: $+ $chr(41) $+ ,13:11],-cry,13:2'11[,:],13:11],:\,13:11\,:/,13:11/,:D,13:11D,:P,13:11P,:p,13:11p,;P,13;11P,;p,13;11p,:[,13:11[,: $+ $chr(40) $+ ,13:11[,: $+ $chr(36) $+ ,13:11 $+ $chr(36) $+ ,:S,13:11S,XD,13X11D,; $+ $chr(41) $+ ,13;11],;],13;11],:O,13:11O,:o,13:11o,;O,13;11O,;o,13;11o,:<,13:11<,:>,13:11>,:F,13:11F,:X,13:11X,>.>,13>11.13>,<.<,13<11.13<,>.<,13>11.13<,O.O,Rawr,4R14a4w14r,13O11.13O,o.O,13o11.13O,O.o,13O11.13o,o.o,13o11.13o,:?,13:11?,: $+ $chr(124) $+ ,13:11 $+ $chr(124) $+ ,-el,13*4Insert Evil Laugh Here13*) }
  elseif (/* !iswm $1-) { say $replacecs($1-,-rose,4@9>3--`-- $+ $chr(44) $+ --,<3,6<133,: $+ $chr(41) $+ ,13:11],-cry,13:2'11[,:],13:11],:\,13:11\,:/,13:11/,:D,13:11D,:P,13:11P,:p,13:11p,;P,13;11P,;p,13;11p,:[,13:11[,: $+ $chr(40) $+ ,13:11[,: $+ $chr(36) $+ ,13:11 $+ $chr(36) $+ ,:S,13:11S,XD,13X11D,; $+ $chr(41) $+ ,13;11],;],13;11],:O,13:11O,:o,13:11o,;O,13;11O,;o,13;11o,:<,13:11<,:>,13:11>,:F,13:11F,:X,13:11X,>.>,13>11.13>,<.<,13<11.13<,>.<,13>11.13<,O.O,13O11.13O,o.O,13o11.13O,O.o,13O11.13o,o.o,13o11.13o,:?,13:11?,: $+ $chr(124) $+ ,13:11 $+ $chr(124) $+ ,-el,13*4Insert Evil Laugh Here13*) }
  elseif (/* iswm $1- && $1 !ison $chan) $1-
}