<input type="submit" value="注文する" class="button1" style="width:80px"> </form> EOM $imd=$in{'imd'}; if($imd>0 && $imd<21 ){ $drink_cut++; $P=HP if($imd>0 && $imd<7); $P=MP if($imd>6 && $imd<13); $P=MAXHP if($imd>12 && $imd<15); $P=MAXMP if($imd>14 && $imd<17); $P=UA if($imd>16 && $imd<19); $P=UD if($imd>18 && $imd<21); $L="回復した。" if($imd>0 && $imd<13); $L="上がった。" if($imd>12 && $imd<21); # $A="$nm は $tymo[$imd][1] を $tymo[$imd][2] Gを払い $P が $tymo[$imd][3] $L"; $A="$tymo[$imd][2] Gを支払い頼んだ $tymo[$imd][1]で $P が $tymo[$imd][3] $L"; # $com="$nm:$A $camp_info[$camp][0] $date]"; $com="$nm:$A"; $hp+=$tymo[$imd][3] if($imd>0 && $imd<7); $mp+=$tymo[$imd][3] if($imd>6 && $imd<13); $max_hp+=$tymo[$imd][3] if($imd>12 && $imd<15); $max_mp+=$tymo[$imd][3] if($imd>14 && $imd<17); $ua+=$tymo[$imd][3] if($imd>16 && $imd<19); $ud+=$tymo[$imd][3] if($imd>18 && $imd<21); # open(OUT,">$logfile") || &error("Can't open $logfile."); # print OUT $com; # close(OUT); ®ist; } print <<EOM; </select> <input type="submit" value="変更" class="button1" style="width:60px">
open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1); print OUT @dat; close(OUT); # $hp+=$tymo[$imd][3] if($imd>0 && $imd<7); # $mp+=$tymo[$imd][3] if($imd>6 && $imd<13); # $max_hp+=$tymo[$imd][3] if($imd>12 && $imd<15); # $max_mp+=$tymo[$imd][3] if($imd>14 && $imd<17); # $ua+=$tymo[$imd][3] if($imd>16 && $imd<19); # $ud+=$tymo[$imd][3] if($imd>18 && $imd<21); $DAT{'hp'}+=$tymo[$imd][3] if($imd>0 && $imd<7); $DAT{'mp'}+=$tymo[$imd][3] if($imd>6 && $imd<13); $DAT{'max_hp'}+=$tymo[$imd][3] if($imd>12 && $imd<15); $DAT{'max_mp'}+=$tymo[$imd][3] if($imd>14 && $imd<17); $DAT{'ua'}+=$tymo[$imd][3] if($imd>16 && $imd<19); $DAT{'ud'}+=$tymo[$imd][3] if($imd>18 && $imd<21); ®ist; # DEBUG &mandata_write; sub mandata_write{ $usrdata = "./usrdata/"; if(-e "$usrdata$id\.cgi"){ open(IN,"$usrdata$id\.cgi") or die "キャラデータが開けません"; @dat = <IN>; close IN; } my @prats = split(/,/,$dat[0]); $dat[0]=""; foreach (0..$#prats){ my($key,$v) = split(/;/,$prats[$_]); $dat[0].="$key;$DAT{$key},"; } open(OUT,">$usrdata$id\.cgi") or die "キャラデータが開けません"; print OUT @dat; close(OUT); } |