七行プログラミング

七行プログラミング (452ﾚｽ)
上下前次1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞
抽出解除ﾚｽ栞

160: nobodyさん [sage] 03/08/18 07:15 ID:???

ちょっと長くなったけど、初心者質問スレを荒らしている彼に捧げよう。(w

#--- br.p ---
package P;sub c{bless pop,pop}sub s{$_[0]->{s}}sub n{$_[0]->{n}}sub h{my($s,$c)
=@_;$c||return$s->{h};($s->{h}+=$c)>0or$s->{h}=0}sub b{my($s,$e)=@_;my@w=keys%{
$s->{w}};my$w=$w[int rand@w];print$s->n,' は ',$w," で攻撃!\n";my($d,$a)=@{$s->
{w}{$w}}{d,a};$d=(my$n=int rand 101)>$a?0:$n>$a/2?int($d/2)-$e->s:$n>$a/20?$d-
$e->s:$d;print$d<=0?"ミス!\n":($e->n,' に ',$d," ポイントのダメージ!\n");$e->h(
-$d)||print$e->n," を倒した!\n"}package main;sub p{splice@p,int rand@p,1}@p=map
P->c($_),@{do'./p.dat'};while(@p>1){my$o=p;my$d=p;print"\n",$o->n,':',$o->h,' '
,$d->n,':',$d->h,"\n";$o->b($d);push@p,$o;$d->h>0&&push@p,$d}print(shift(@p)->n
, " の 勝利!\n")

#--- p.dat ---
[{n=>'煽り',h=>400,s=>10,w=>{'キック'=>{d=>60,a=>60},'パンチ'=>{d=>20,a=>70},}}
,{n=>'荒らし',h=>300,s=>0,w=>{'キック'=>{d=>100,a=>60},'パンチ'=>{d=>40,a=>70}}
},{n=>'夏厨',h=>200,s=>20,w=>{'キック'=>{d=>80,a=>90},'パンチ'=>{d=>10,a=>100}}
}];

http://medaka.5ch.net/test/read.cgi/php/1036141603/160

326: nobodyさん [sage] 04/07/26 14:27 ID:???

人ほとんどいないなここ(´・ω・`)

Web拍手PHP版（記録側）。例によってフォームは分離。
<form method="post" action="webclap.php" target="clap">
<input type="hidden" name="m" value="c">ついでに一言。
<input type="text" name="t" size=40>
<input type="submit" value="拍手を送る"></form>

<? if($_POST['m']=='c'){$n=file("l");$d=date("Ymd");$h=date("H");$b=split(",",$n
[0]);$a=file("t");echo $a[array_rand($a)];if($b[0]!=$d){$i=0;$x="$d,1,";while($i
++<24){if($i==$h+1)$x.="1,";else$x.="0,";}array_unshift($n,"$x\n");}else{$b[1]++
;$b[$h+2]++;$x="";$i=-1;while($i++<count($b)-2)$x.="$b[$i],";$n[0]="$x\n";if(cou
nt($n)>14)array_pop($n);}$f=fopen("l","w");while(count($n)>0)fputs($f,array_shif
t($n));fclose($f);$t=$_POST['t'];if($t!=""){$m=file("m");$f=fopen("m","w");array
_unshift($m,"$d,$t\n");if(count($m)>200)array_pop($m);while(count($m)>0)fputs($f
,array_shift($m));fclose($f);}} ?>

ごめん、8行になってしまた。取得ログは14日分で1時間単位ごとの記録アリ、
一言メッセージは200件まで保存。動かす前にl,m,tとそれぞれ空ファイル作ってくだされ。
tには拍手ボタン押した後に表示するHTMLを一行で叩き込んで。
複数行にするとランダムでどの行か選んで表示します。一行の長さの制限はわからん。
だれか7行に縮めてくれ。俺はもうだめだ(´Д⊂

http://medaka.5ch.net/test/read.cgi/php/1036141603/326

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚｱﾎﾞﾝOFF

ぬこの手ぬこTOP 0.782s*