treasure nekosan
   arch event_say
   title perl
   slaying schmorp-neko
   more
   arch event_attack
   title perl
   slaying schmorp-neko
   more
   arch event_move
   title perl
   slaying schmorp-neko
   end