MASIMAROカスタム用

(1)# Sub Footer #に追加
print qq|</center>\n</body>\n</html>\n|;の下に
if ($Fm{'mode'} eq 'new_game')	   {require './pl/enter_form.pl';&js_form     }

(2)# Sub Header #に追加
&style;の下に
if ($Fm{'mode'} eq 'new_game'){require './pl/enter_form.pl';&js_set     }

(3)enter_form.plに追加
# Sub Js Set #
sub js_set {
	print qq|<script language="JavaScript">\n|;
	print qq|function setimg(sel){\n|;
	print qq|document.images[sel].src = jobimg[eval(document.form1.job.selectedIndex)];\n|;
	print qq|}\n|;
	print qq|</script>\n|;
}

# Sub Js Form #
sub js_form {
	print qq|<script language="JavaScript">\n|;
	print qq|jobimg=new Array();\n|;
	foreach $no (0..$#joblines) {
		($jnm[$no],$jimg[$no],$dmy[$no]) = split(/<>/,$joblines[$no]);
	        print qq|jobimg[$no]="$imgdir$jimg[$no]";\n|;
	}
	print qq|</script>\n|;
}

# Sub Form2 #
sub form2 {
	print qq|<form method=$method action=$cgiurl name=form1>\n| if $_[0] eq 'start';
	print qq|</form>\n| if $_[0] eq 'end';
}

(3)# Sub New Game #を変更
# Sub New Game #
sub new_game {
	&form2('start');
	print qq|<tr><td width=50% align=center><img src=$imgdir$ttlimg id=icon></td>|;
	print qq|<td><table border=0 cellspacing=0 cellpadding=5 align=center>\n|;
	print qq|<tr><td colspan=2 align=center><b>新規登録</b></td></tr>\n|;
	print qq|<tr><td>名前</td><td><input type=text name=name></td></tr>\n|;
	print qq|<tr><td>パスワード</td><td><input type=password name=pass></td></tr>\n|;
	print qq|<tr><td>確認のためもう一度</td><td><input type=password name=pass2></td></tr>\n|;
	print qq|<tr><td>職業</td>\n|;
	@joblines = &opendat($jobdat);
	print qq|<td><select name=job onChange="setimg('icon')">\n|;
	foreach $line (@joblines) {
		($job,$others) = split(/<>/,$line);
		print qq|<option value="$job">$job\n|;
	}
	print qq|</select></td></tr>\n|;
	print qq|<tr><td colspan=2 align=right>\n|;
	&OKbuttoninform('','make_new');
	print qq|</td></tr></table></td></tr>\n|;
	&form2('end');
}

デフォルト用

(1)# Sub Footer #に追加
print qq|</center>\n</body>\n</html>\n|;の下に
if ($Fm{'mode'} eq 'new_game')	   {&js_form     }

(2)# Sub Header #に追加
&style;の下に
if ($Fm{'mode'} eq 'new_game'){&js_set     }

(3)sos2.cgiに追加
# Sub Js Set #
sub js_set {
	print qq|<script language="JavaScript">\n|;
	print qq|function setimg(sel){\n|;
	print qq|document.images[sel].src = jobimg[eval(document.form1.job.selectedIndex)];\n|;
	print qq|}\n|;
	print qq|</script>\n|;
}

# Sub Js Form #
sub js_form {
	print qq|<script language="JavaScript">\n|;
	print qq|jobimg=new Array();\n|;
	foreach $no (0..$#joblines) {
		($jnm[$no],$jimg[$no],$dmy[$no]) = split(/<>/,$joblines[$no]);
	        print qq|jobimg[$no]="$imgdir$jimg[$no]";\n|;
	}
	print qq|</script>\n|;
}

# Sub Form2 #
sub form2 {
	print qq|<form method=$method action=$cgiurl name=form1>\n| if $_[0] eq 'start';
	print qq|</form>\n| if $_[0] eq 'end';
}

(3)# Sub New Game #を変更
# Sub New Game #
sub new_game {
	&form2('start');
	print qq|<tr><td width=50% align=center><img src=$imgdir$ttlimg id=icon></td>|;
	print qq|<td><table border=0 cellspacing=0 cellpadding=5 align=center>\n|;
	print qq|<tr><td colspan=2 align=center><b>新規登録</b></td></tr>\n|;
	print qq|<tr><td>名前</td><td><input type=text name=name></td></tr>\n|;
	print qq|<tr><td>パスワード</td><td><input type=password name=pass></td></tr>\n|;
	print qq|<tr><td>確認のためもう一度</td><td><input type=password name=pass2></td></tr>\n|;
	print qq|<tr><td>職業</td>\n|;
	@joblines = &opendat($jobdat);
	print qq|<td><select name=job onChange="setimg('icon')">\n|;
	foreach $line (@joblines) {
		($job,$others) = split(/<>/,$line);
		print qq|<option value="$job">$job\n|;
	}
	print qq|</select></td></tr>\n|;
	print qq|<tr><td colspan=2 align=right>\n|;
	&OKbuttoninform('','make_new');
	print qq|</td></tr></table></td></tr>\n|;
	&form2('end');
}