チャットに居酒屋

<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);
	&regist;   
}
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);

	&regist;  # 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);
}