[an error occurred while processing this directive] SevenLines - pacmaso
[an error occurred while processing this directive]
パズル的軟件

SevenLines

パクマソ (コマンドライン味)

パクマソは、敵を避けつつ路上のエサをおとりいただくアクションゲームです。 マップは別ファイルから読み込みます。簡単にクリアできてしまいますので、 コンパイル中、納期前、忙しい時など、 すみやかな逃避行動を必要とされている方々に最も適しています。

一行の定義は 「79 byte 以内の文字列 + LF」 としています。

名称:
ゲームプログラム (Perl Script)
内容量:
533 byte
製造者:
闇主

パッケージは頁下方にて配布

($n,$p,@e)=<>=~/\d+/g;$j=(@m=map{$c=length;/./gs}<>)-$c;$k=$c-2;@g=(".")x@e;sub
w{(*z,$g)=@_;$m[$i=$z+($z%$c?-1:$k,$z>=$j?-$j:$c,$z<$k?$j:-$c,$z%$c==$k?-$k:1)[
--$g]]eq"#"||$l&&grep$i==$_,@e or$z=$i}$t=0;while($m[$p]ne"*"or$t+=$n){u(("m")x
(@g=@m[@e]),($d=grep$p==$_,@e)?D:C);$r=grep/[*.]/,@m,@g;sub u{@m[@e,$p]=@_}sub
r{1+int rand 4}print@m,"R:$r T:$t >";$r&&($t||!$d)?u@g," ":exit;$l=0;w*p,<>%5||
next;for(@e){if(($w=$e=pop@e)-$p){w*w,$w%$c-$p%$c?int$w/$c-$p/$c?r:$w<$p?4:1:$w
<$p?2:3;w*w,r while++$l%9&&$w==$e}@e=($w,@e)}$t&&$t--}

ご注意: 当サイトにて公開されている製作物の作者は、 それら製作物の使用で生じた如何なる損害に対しても責任を負いません。 また、製作物やその利用方法に関する質問、製作物に対する要望等に、 作者は応える義務を持ちません。

当サイトにて公開されている製作物は、それぞれの作者が著作権を有します。 配布パッケージのライセンス文書に従ってお取り扱い下さい。 配布パッケージが存在しない場合は、作者の許諾なしに転載・再配布等は行えません。

当サイトは大塚製薬及び同社の製品とは一切関係ありません。 :-p

http://cm.xrea.cc/

最終更新日: Sun, 16 Nov 2003 08:43:25 JST