別の場所を調べましたが、ありませんでした。
とりあえず、関係のありそうな、スクリプトを
載せます。

ログイン前
print "つづきからプレイ<br>\n";
　　　　print qq|名前<input type=text name=name value="$c_name">\n|;
　　　　print qq|パスワード<input type=password name=pass value="$c_pass">\n|;
　　　　print qq|4桁のID<input type=password name=id value="$c_id">\n|;
　　　　&OKbuttoninform('','make_conn');
　　　　&form('end');

ログイン

# Sub Make Continue #
sub make_conn {
　　　　if ($Fm{'name'} eq "" && $Fm{'pass'} ne $admpas) { &error("名前を入力してください"); }
　　　　if ($Fm{'pass'} eq "") { &error("パスワードを入力してください"); }
　　　　if ($Fm{'id'} eq "") { &error("4桁のIDを入力してください"); }

　　　　@rcdlines = &get_user("$Fm{'id'}");
　　　　&error("名前がIDと一致しません") if $nm ne $Fm{'name'} && $Fm{'pass'} ne $admpas;
　　　　&error("パスワードが間違っています") if $ps ne $Fm{'pass'} && $Fm{'pass'} ne $admpas;
# &error("現在プレイ中か、前回セーブを行っていないので、ご利用できません。") if ($fg ne 'NS')&&($fg ne 'HS')&&($fg ne 'SS') ;


$now = int((time - $tm) / 3600);
　　　　if ($av eq 'dead') {
　　　　　　　　$bp += $now;
　　　　　　　　if ($bp >= $def_ha) {
　　　　　　　　　　　　$av = 'alive';
　　　　　　　　$hp = &hpcheck($hp,$xp,$bp - $def_ha);
　　　　　　　　　　　　$bp = ''
　　　　　　　　}
　　　　}
　　　　else { ($hp) = &hprecover($hp,$xp,$sp,$av,$tm,$fg) }


　　　　$lt = time;

　　　　$fg = ''; &userout;
　　　　&cookie_set; &play_form;

&get_user

sub get_user {
return if $getuserflag;
open(IN,"$usrdir$_[0]\.dat") || &error("ID $_[0]は存在しません $usrdir$_[0]\.dat");
　　　　@_ = <IN>;
　　　　close(IN);
if (!@_) { &error("ID $_[0] 読みこみエラー") }
　　　　&get_userflag($_[0],'u');

$userline = shift(@_);
$getuserflag = 1;
　　　　return @_;

}

です。　バグ確認お願いします...

▼関連発言
│
└◆1747:バグ？ [パパート] 08/26 19:42
　└◆1748:Re:バグ？ [moon] 08/26 21:31
　　└◆1749:Re[2]:バグ？ [パパート] 08/26 21:42
　　　└◆1750:Re[3]:バグ？ [moon] 08/26 22:01
　　　　└◆1751:Re[4]:バグ？ [パパート] 08/26 22:19
　　　　　└◆1752:Re[5]:バグ？ [moon] 08/26 22:43
　　　　　　└◆1753:Re[6]:バグ？ [パパート] 08/27 12:49
　　　　　　　└◆1754:Re[7]:バグ？ [moon] 08/27 22:26
　　　　　　　　└◆1755:Re[8]:バグ？ [パパート] 08/27 23:27<-last