www.pudn.com > NETv2.0.rar > resisdents.pl

#_/_/_/_/_/_/_/_/_/# 
#_/     説 明    _/# 
#_/_/_/_/_/_/_/_/_/# 
 
sub RESISDENTS { 
 
	&CHARA_MAIN_OPEN; 
 
# ゲームを開始する時に始まる説明 
$P_MES[0] = "ｻｶﾓｭｵｽﾈ�ｹ�ﾖｾ NET ｵﾄﾊﾀｽ�!
ﾔﾚﾕ簑�ｹﾘﾓﾚｻ�ｱｾｵﾄﾓﾎﾏｷｵﾄﾁ�ｳﾌｺﾍ ﾍ貍ﾒ ｵﾄﾄｿｵﾄﾋｵﾃ�ｰﾉ｡｣"; 
$P_MES[1] = "ﾊﾗﾏﾈ｣ｬﾎ菴ｫﾔﾚﾊｵﾐﾐﾏ�ﾈﾃﾊ菠�ﾖｸﾁ�｡｣
ﾗ�ｴ� 20 ｵｽﾄﾃｳ�ｵﾄﾊﾂﾖｸﾁ� \ ｿﾉﾒﾔ \ ﾄﾜﾁｦ \ ﾊﾇ."; 
$P_MES[2] = "ﾕ篋�ﾓﾎﾏｷ 2 ﾐ｡ﾊｱﾈｫｸ�ﾐﾂ｡｣
2 ﾐ｡ﾊｱｺﾍﾇｰｴﾎｽ�ﾐﾐﾁﾋｸﾄｶｯ."; 
$P_MES[3] = "ﾇｰｽ�ﾗｪｶｯｺﾍﾎ菴ｫﾐﾋｰ�ﾆ莇ﾎｵﾄﾐﾐｶｯ.
ﾐﾐｶｯｺﾃﾏ�ｿｴﾇｰﾍｷﾆ莇ﾎﾏ�ｺﾍﾄﾃｳ�ﾃ�ﾁ�ﾀｴﾍ贊ﾎﾏｷ."; 
$P_MES[4] = "ｲｻﾏｰｹﾟｼﾒﾊﾇﾄﾚﾕ�ﾖｸﾁ�ﾊｵﾐﾐﾗ�ﾑｯﾎﾊﾈﾏﾎｪｺ�ﾃ�.
ﾔﾚﾄﾚﾕ�ﾓﾐﾉﾌﾒｵｺﾍﾅｩﾌ�ｺﾍｳﾇ."; 
$P_MES[5] = "ﾅｩﾌ�ﾊﾇ 7 ﾔﾂｵﾄﾃﾗｵﾄﾊﾕｻ�ﾔﾚ｣ｬﾉﾌﾒｵﾓｰﾏ�ｵﾐｿｹﾔﾚ 1 ﾔﾂｵﾄﾇｮｵﾄﾊﾕﾈ�｡｣
ﾋ�ｹ�ﾔﾚﾁﾚｽﾓﾗ�ﾍ箜�ﾖｮ矣ｲｻﾒｪｺﾃﾏ�ｱｻｹ･ｴ�ﾇ鯀�ﾊﾇﾗ�ｳ�ﾔﾚｼﾓﾇｿｳﾇﾒｲﾊﾇﾊﾖ｡｣"; 
$P_MES[6] = "ﾄﾚﾕ�ｵﾄｳﾌｶﾈﾊｪﾈ�ﾃﾇﾏ�ﾋ�ｹ�ﾕｽﾕ�ﾗ�ｰﾉ｡｣
ｵ･ｶﾀｹ･ｴ�ｸ�ｼﾓﾒｲｺﾍｱｾｹ�ｵﾄﾈﾋﾉﾌﾁｿｹ･ｽ�ﾈ･ｾ靠ﾗﾈﾝﾒﾗﾈﾓﾏﾂﾊﾇ."; 
$P_MES[7] = "ﾄﾇﾃｴｾﾍ PLAY ｿｴｿｴｰﾉ."; 
	&HEADER; 
 
	print <<"EOM"; 
 
 
* ﾓﾎﾏｷｵﾄﾋｵﾃ� *
 
 
 
 
 
 
$simg
 
$timg
 
 
 
 
 
ﾃ�ﾗﾖ
 
ﾖｰﾒｵ
 
ﾊ�ﾐﾔ
 
ﾖｰﾒｵ
 
 
 
$kname
 
$klv
 
$ELE[$kele]ﾍｬﾀ�
 
$SYOKU[$kclass]
 
 
 
ﾋ�ｴ�ｽ�ﾇｮ
 
$kgold GOLD
 
 
 
 
 
 
 
 
 
 
 
$P_MES[$in{'num'}]
 
 
 
 
 
 
 
 
EOM 
	$new_num = $in{'num'}+1; 
if($new_num < @P_MES){ 
print "
 
 
 
 
 
"; 
} 
print<<"EOM"; 
 
 
 
 
 
 
 
 
 
EOM 
 
	&FOOTER; 
	exit; 
} 
1;