--- deliantra/server/include/event2inc	2009/11/03 23:44:21	1.4
+++ deliantra/server/include/event2inc	2010/04/05 03:22:25	1.5
@@ -30,10 +30,12 @@
 
 EOF
 
+my $idx = 0;
+
 while (<>) {
    if (/^=head2 (\S+) EVENTS/) {
       $klass = $1;
    } elsif (/=head3 (\S+)\s*(.*)/) {
-      print "def ($klass, \U$1\E) // $2\n";
+      print "def ($klass, \U$1\E) // ", $idx++, " $2\n";
    }
 }