Update mIRC script for the mIRC6hack format

docs/Changelog

@@ -1,3 +1,7 @@
+pisg (0.62) - ??
+   Changes by Christoph Berg:
+   * Update mIRC script for the mIRC6hack format.
+
 pisg (0.61) - Sat Oct, 30th 2004
    Changes by Christoph Berg:
    * Fix warning when running on empty logs.

modules/Pisg/Parser/Format/mIRC6hack.pm

@@ -4,11 +4,27 @@ package Pisg::Parser::Format::mIRC6hack;
 
 # To use this logging format, add the following to mIRC's remote script
 # section:
-#
-# on ^1:ACTION:*:*: {
-#   haltdef
-#   echo $chan ** $nick $1-
-# }
+
+=head1 mIRC script
+
+# 2004-11-21 by coaster
+
+alias me {
+  if ($1) {
+    .describe $active $1-
+    echo $color(own) -qt $active ** $me $1-
+  }
+  else {
+    echo $color(info) $active * /me: insufficient parameters
+  }
+}
+
+on ^*:ACTION:*:*:{
+  echo $color(action) -lt $iif($chan,$chan,$nick) ** $nick $1-
+  haltdef
+}
+
+=cut
 
 use strict;
 $^W = 1;

scripts/mirc6hack.mrc

@@ -0,0 +1,16 @@
+# 2004-11-21 by coaster
+
+alias me {
+  if ($1) {
+    .describe $active $1-
+    echo $color(own) -qt $active ** $me $1-
+  }
+  else {
+    echo $color(info) $active * /me: insufficient parameters
+  }
+}
+
+on ^*:ACTION:*:*:{
+  echo $color(action) -lt $iif($chan,$chan,$nick) ** $nick $1-
+  haltdef
+}