<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">
$dat[0] = "la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$type,age_time;$age_time,act_cnt;$act_cnt,hp;$hp,max_hp;$max_hp,lv;$lv,mp;$mp,max_mp;$max_mp,rank;$rank,ua;$ua,ud;$ud,lr;$lr,ag;$ag,ck;$ck,tm;$tm,bt;$bt,bst;$bst,exe;$exe,rank_exe;$rank_exe,sol;$sol,sol_lv;$sol_lv,nation;$nation,we;$we,camp;$camp,pr;$pr,tnm;$tnm,tid;$tid,thp;$thp,tlr;$tlr,tag;$tag,tsol;$tsol,tsg;$tsg,tsol_lv;$tsol_lv,b_n;$b_n,b_v;$b_v,thp_max;$thp_max,tlv;$tlv,tdg_a;$tdg_a,tdf_a;$tdf_a,tua;$tua,tud;$tud,tmp;$tmp,tcp;$tcp,gold;$gold,roku;$roku,dg_a;$dg_a,dg_cnt;$dg_cnt,df_a;$df_a,df_cnt;$df_cnt,di_a;$di_a,di_cnt;$di_cnt,sogo;$sogo,mes;$mes,info_mes;$info_mes,soko_cnt;$soko_cnt,soko_lst;$soko_lst,nai;$nai,gun;$gun,roto;$roto,work;$work,soko;$soko,bpr;$bpr,yoki;$yoki,sogo2;$sogo2,nai_r;$nai_r,gun_r;$gun_r,roto_r;$roto_r,work_r;$work_r,we_r;$we_r,gtm;$gtm,gmes;$gmes,aa;$aa,bb;$bb,cc;$cc,dd;$dd,ee;$ee,ff;$ff,ura;$ura,utm;$utm,ha_r;$ha_r,tensei;$tensei,paa;$paa,pbb;$pbb,pcc;$pcc,sdg_a;$sdg_a,sdg_cnt;$sdg_cnt,sdf_a;$sdf_a,sdf_cnt;$sdf_cnt,sdi_a;$sdi_a,sdi_cnt;$sdi_cnt,bonus_cnt;$bonus_cnt,\n"; $dat[1] = "$date<>$addr<>$host<>$agent<>\n";
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); }