用vb泡MM，团结就是力量

Question

什么意思，详细说明，最好有文档

Answer 1

#!/usr/bin/perl
#A formula of PaoNiu
use strict;
#Include package
use MM;
use GG;
#Create new object
my $mm = new MM;
my $gg = new GG;if ($mm->age lt "25" && $mm->age gt "18")
{
   if ($mm->appearance eq "beauty" || $mm->appearance eq "pretty")
   {
     $gg->action="泡";
     $gg->object=$mm;
     $gg->receive="Be Kick in Head";
     $gg->action="run away";
   }
   elsif($mm->appearance eq "common" or $mm->appearance eq "normal")
   {
     $gg->action="谈谈";
     $gg->object=$mm;
     $gg->receive="...";
     $gg->action="Kiss";
     $gg->receive="Kick in face";
     $gg->action="run away";
   }
   elsif($mm->appearance eq "ugly" )
   {
     
     $gg->action="run away";
   }
}
else
{
   $gg->action="Skip";
}