#!/usr/bin/perl $F='log.dat'; use CGI":all"; *Q=*param; open F; @d[1..200]=; $a=Q(1); $b=Q(2); $n=Q(3); if($a&&$b){ $a=substr($a,0,200); $c=0; $z='[ '; for($i=1;$i<=$a;$i++){ $r=($b!='気合')?int(rand($b))+1:int(rand(10)); $c+=$r; $z.=$r.'. '; } $_=$n; s/["&<>;']/&#${\ord$&};/g; $d[0]=($b!='気合')?hr."$_: $c $z$a"."D"."$b ]$/":""; if(Q(4) eq "1"){ @d=(); } open F,">$F"; eval{flock(F,2)}; print F @d; } Q(4,''); $d1=''; $d2=''; @dd=(0,3,4,5,6,8,10,12,20,100,'気合'); for($i=1;$i<=10;$i++){ $s=(($a&&$i==$a)||($i==2&&!$a))?" selected":""; $d1.=''; $s=(($b&&$dd[$i]==$b)||($i==4&&!$b))?" selected":""; $d2.=''; } $re="location.href=\'dice.cgi\?3\=$n\'"; print header(-Charset=>'Shift_JIS',-lang=>'ja-JP'), '** WEB DICE **', startform('POST','dice.cgi'), 'キャラ名:',textfield(3,'',14,32),' ', 'D', '', ' ログのリセット', br,submit('ロール'),' ',button('reload','リロード',$re), endform,@d,hr,''; close F;