HSP - Hot Soup Processor

**名無しさん＠お腹いっぱい。** · 01/11/10 04:04

ＨＳＰは、お手軽に使うことのできるスクリプト言語システムです。
テキストによるスクリプトを書くだけで、誰にでも簡単にウインドゥズ上で
画像表示、メニューシステムの構築ができます。
多彩な命令セットを使いこなすことでゲームアプリケーションまで作成する
ことができます。

Hot Soup Processor 公式サイト
http://www.onionsoft.net/hsp/

**757** · 02/07/31 21:50

>>758
ペン３の４５０＋GeForce2MX。まあかなり古いけど。

include "time.as"
screen 0,640,480,0:timer:prtime=stat
*main
redraw 0
color 255,255,255:boxf 0,0,50,50:color 255,0,0
timer:pos 20,20:mes stat-prtime
prtime=stat
await 0
redraw 1
goto *main

時間計測用にＭＩＡさんのtime.hpi使ってます。自分の環境だと
平均45msくらいかかります。パレットモードだと10～15msくらい。
758さんとか他人の環境ではどんなかむちゃむちゃ知りたいです。

**名前は開発中のものです。** · 02/07/31 23:05

Celeron850 + G400 + Win2k
今測った結果だと7ms位だねい‥‥
(大量にアプリが立ち上がってる状態なので通常より遅い可能性大)

ちなみに時間測定は200回ループさせて測定してる。

ちなみにredrawのかわりに自前のアルファ合成(DLLで実装、非MMX)やっても17ms程度。

**761** · 02/08/09 22:05

mes "ｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!"

て言わせて(　ﾟдﾟ)ﾎｽｨ…

**名前は開発中のものです。** · 02/08/09 22:33

意味和漢ねえよ

**名前は開発中のものです。** · 02/08/10 23:00

ボードゲームはどうなったのだろうか…
他の人がどうやってスクリプト縮めるか結構期待していたのだが

**名前は開発中のものです。** · 02/08/18 14:06

だれもやってねえのかよ

**名前は開発中のものです。** · 02/08/18 15:18

誰かO2の使い方教えろや

**名前は開発中のものです。** · 02/08/18 19:50

>>765
サンプル見れ。
あのサンプルはわかりづらいが。
分からないとこは、ここで聞けば答える。
いちお漏れはO2でゲーム作った。

**名前は開発中のものです。** · 02/08/18 21:02

Ｏ２でゲームって・・・
非公開で作れんの？

**名前は開発中のものです。** · 02/08/18 22:05

SDKにテスト用の鯖付属
つまり個人鯖での運用も可

**766** · 02/08/19 10:05

非公開で作れるよ。
おにたまたんにゲームコードもらう時に
メール出すんだが、そのメールの中に
「紹介していいか」っていう項目がある。

**761** · 02/08/21 07:57

なんか(　ﾟдﾟ)ﾎｽｨ…

**767** · 02/08/24 20:36

非公開じゃ意味ないけどな（藁

っていうか、うｐプリーズ>>769

**766** · 02/08/26 02:51

うｐは勘弁してそ・・・ﾀﾞﾚﾀﾞｶﾊﾞﾚﾁｬｳ（´д｀；

非公開って、「本家ページで公開されるか否か」って
意味だと思ったんだが違った？

**名前は開発中のものです。** · 02/09/01 01:49

今DirectXを使わずにRPG作ってる。
まだフィールドを歩くことぐらいしか出来ない。
とりあえず人に話しかけられるようにしないと。

挫折しなきゃいいけどな・・。

**名前は開発中のものです。** · 02/09/01 10:52

>>773
がんがれー。
ここに製作過程を書き込んでけば
アドバイスもらいつつ、
適度なプレッシャーになっていいかも。

まあ、嫌ならいいが。

**名前は開発中のものです。** · 02/09/02 03:05

>>746
どうですか。
SCREEN 0,640,0:STR f:STR a:p=2:g=64:f="ｲｸｿﾞｺﾞﾙｧ!!":o="ｻｱｲｸｿﾞﾅﾝﾄｶｶﾞﾝｶﾞﾚｺﾛﾝﾃﾞﾓﾅｸﾅｲｻｻｶﾅﾝﾌﾞﾂｼｮｳﾌﾞﾊｺﾚｶﾗﾗｽﾄｽﾊﾟｰﾄｼｮｳﾘﾉﾖｶｰﾝ!"
REPEAT -1:z++:REPEAT p,1:f="":s=1:c=cnt:IF x=m.c :a=" (・∀・）" :else :a=" (・ω・）"
DIALOG ""+c+"ｻﾝ "+a+"/ ｲｲ! \n\ny=ｰ( ﾟд ﾟ)･∵."+z+"ﾀｰﾝ"
*@:AWAIT 1:GETTIME t,7:d=((t\60)/10)+1:TITLE ""+c+">>　"+f+""+a+""+d:GETKEY k,1
IF k=0 :GOTO *@b
n=s*d:m.c=n+m.c:IF x<m.c :x=m.c:STRMID f,o,0,m.c:TITLE ""+c+">>ε"+n+"≡"+f+"（・∀・）"
IF m.c>g :GOTO *e
IF (n\5)=0 {DIALOG "ｳﾏｰ!（ﾟДﾟ) ｻﾗﾆﾌﾚ!":s=1:GOTO *@b}
IF (n\7)=0 {DIALOG "ﾓﾄﾞﾙ!（・Ａ・）ｲｸﾅｲ!":s=-1:GOTO *@b}
LOOP:LOOP;(・∀・)ﾀｲﾄﾙﾊﾞｰﾃﾞｽｺﾞﾛｸｲｲ! (sugo6.as) 2002/9/2
*e:TITLE ""+cnt+"ｷﾀ━━━━━━ (・∀・)　━━━━━━!!("+z+")":DIALOG ">>"+cnt+"ﾉｶﾁｰ!!

左クリックでダイスを止めてね。

**775** · 02/09/02 03:08

いかん。最後のダブルクォーテーション消えとる。
そのまま打ちこんでも実行できないYQ…鬱だ…。
逝ってきます。

**名前は開発中のものです。** · 02/09/02 23:49

stickだけど、同じループの中で２回使うと
うまくキー入力が拾えないような気がするけど。
なにかいい対処方法ってない？

**名前は開発中のものです。** · 02/09/03 03:05

一回だけひろえばいい

**名前は開発中のものです。** · 02/09/03 03:11

>777
片方をgetkeyにしたら？
あとループをループ状？につなげるとか。

**名前は開発中のものです。** · 02/09/03 11:46

ちうか何故同じループの中で2回使う必要があるの？

**名前は開発中のものです。** · 02/09/12 23:14

>>777
wait入

**名前は開発中のものです。** · 02/09/14 23:08

これでシミュレーションゲーム作ろうと思ったんだが、作りやすい？
JavaとCを少々かじった程度のレベルなんだが、
勉強しなおしてCで作った方がいいのかな？

**名前は開発中のものです。** · 02/09/14 23:11

hspをやってからまたＣを勉強しなおしてくれ。

**名前は開発中のものです。** · 02/09/14 23:31

なんで？

**775** · 02/09/15 15:31

>>782
漏れもSRPGを作ってますが、HSPには再帰ないからしんどい。

**名前は開発中のものです。** · 02/09/15 17:43

>>785
データ管理と思考ルーチンはDLLに実装した方がいいと思われ。

**名前は開発中のものです。** · 02/09/15 22:25

png画像使いたいんですが、どうやったら使えるようになりますか？

**名前は開発中のものです。** · 02/09/15 23:16

AMpng使え。

**名前は開発中のものです。** · 02/09/15 23:16

コマンドじゃなくてDLLな。

**787** · 02/09/15 23:35

>>788-789
ありがとうございました。

**名前は開発中のものです。** · 02/09/16 20:20

（´-`）.。oO（PNGは展開速度が遅いから正直、ｹﾞｰﾑにはおすすめできない‥‥)

**名前は開発中のものです。** · 02/09/16 20:47

RPG作るのなら、やっぱりDirectXは必須でしょうか？
今はXを使わず作っているのですが、速度は安定しているので
できればこのまま作り続けたいのですが・・。

**名前は開発中のものです。** · 02/09/17 01:29

速度に不満がなければDirectXなんか使わなくていいよ

**名前は開発中のものです。** · 02/09/18 03:47

全画面、3Dエフェクト使うならDXが楽（2Dエフェクトも3Dでやったほうが楽）

**名前は開発中のものです。** · 02/09/18 13:42

去年の話ですが、HSPやってみましたが途中でやめちゃったっす。
なんか、HSPって面倒臭くないですか？

このとき出来たのはここまで。
ttp://www.bf.wakwak.com/~turkey/KuwaShot.lzh

**名前は開発中のものです。** · 02/09/18 18:56

>>795
ゲーム製作してる間は面倒くさいものだよ
俺はもう少しで発狂しそう

**名前は開発中のものです。** · 02/09/18 20:13

>>795
どうでもいいけど、BGMのサイズでかすぎ

**名前は開発中のものです。** · 02/09/18 20:38

>>795
面倒臭いの種類によるがCのほうが楽

**名前は開発中のものです。** · 02/09/18 20:46

>>797
ｽﾏｿ
シーケンサが勝手にエフェクト残すもんで。
多分半分くらいのサイズにできるんですが。

>>798
もともとＣだから結構イライラする事多いっす。
HSPには構造体みたいな機能ないのでしょか？

**名前は開発中のものです。** · 02/09/18 21:03

>>799
常識的な機能は一通り実装されていないようです

**名前は開発中のものです。** · 02/09/19 18:18

>>799
配列とdupで何とかやるしかないと思われ(;´Д｀)

**名前は開発中のものです。** · 02/09/19 20:59

>>800
ﾜﾗﾀ
3+4*5の答えが35になるような言語だしなあ・・・

**名前は開発中のものです。** · 02/09/20 12:40

HSPのエディタって容量制限あるの？
なんか変になってきますた！

**名前は開発中のものです。** · 02/09/20 13:22

>>803
48000bytes。

**名前は開発中のものです。** · 02/09/20 14:12

>>804
おぅ、ビンゴ！（涙

**名前は開発中のものです。** · 02/09/20 14:51

モジュール使えばファイル分割できそうだけど、なんだか仕様がよくわかんね

まずmodules.asに

#module

#deffunc なんてろ arg1 arg2 …
：
rerurn

#deffunc かんてろ arg1 arg2 …
：
rerurn

#global

を書いておいて、メインの方で

#include "modules.as"

とやれば、“なんてろ”と“かんてろ”っていう関数が使える、と。
いいよね？

でさ、その関数の戻り値はどうやって実現するの？

**名前は開発中のものです。** · 02/09/20 15:00

ふつうにインクルードは
ひっかっかるんか

**名前は開発中のものです。** · 02/09/20 15:13

なんだよmrefって
使いにくいよ
説明文間違いあるし
ｺﾘｬﾀﾞﾒﾎﾟ

>>807
どうやらそれしかなさそですねぇ
期待した俺がパカだったyo

**名前は開発中のものです。** · 02/09/20 21:46

漏れ、秀丸でソースかいてるから容量制限にはひっかかんないよ。

**名前は開発中のものです。** · 02/09/21 00:06

キッチンとかいうコンパイル支援ソフトを見つけたんで、
俺も自分のエディタが使えるようになりました！

つーかデフォルトのエディタをどうにかしる！

**名前は開発中のものです。** · 02/09/21 02:03

タブ幅は半角4文字分の方が好みなんだけどなぁ…
ベータ版が新しくなっていたので久しぶりにDLしてみた。
今回のバージョンナップは少し嬉しい改善が結構あった。

**名前は開発中のものです。** · 02/09/21 08:42

>>811
またネタか・・・と思ったら
本当に2.6β14ｷﾃﾀ━━┃━┏┃━━!!
さんくすこ。

**名前は開発中のものです。** · 02/09/21 08:46

EXE作成ﾊﾞｸﾞとｴﾗｰ行番号のズレと全角#define問題が
解消されただけで俺は満足だ。
いくらβ版とはいえ、致命的すぎ・・・

**名前は開発中のものです。** · 02/09/21 10:09

早く配列要素に式使えるようにしてほすぃ・・・

**名前は開発中のものです。** · 02/09/21 12:58

Ver2.55で動くソースをVer2.6b14で動かそうとしたら
「バッファオーバーフローが発生しました」

**名前は開発中のものです。** · 02/09/21 13:08

エラーチェックが厳しくなったね

**名前は開発中のものです。** · 02/09/22 09:47

漏れの肛門も厳しくなってきました

**名前は開発中のものです。** · 02/09/22 10:59

今まで甘かったのか・・・大変だったね

**名前は開発中のものです。** · 02/09/22 17:50

buffer 2,32,32,1:boxf:screen 0,160,160,1:boxf:a="0010200121021222":sdim b,256,32:randomize:repeat 32:c=cnt:repeat 32:rnd d,2:b.c+""+d:loop:loop
dim e,32,32:dim f,32,32:repeat 32:g=cnt:repeat 32:h=cnt:peek i,b.g,h:i-='0':e.h.g=i:loop:loop
*@:repeat 1024:j=cnt\32:k=cnt/32:gosub y:loop:repeat 1024:h=cnt\32:g=cnt/32:e.h.g=f.h.g:loop:gosub z:await 9:goto @b
*y:n=0:repeat 8:peek h,a,cnt*2:h-='1':h+=j:peek g,a,cnt*2+1:g-='1':g+=k:if (h<0)|(h>=32)|(g<0)|(g>=32){continue}:n+=(e.h.g>0):loop
if e.j.k=0{if n=3{f.j.k=2}else{f.j.k=0}}:if e.j.k>0 {if (n>=2)&(n<=3){f.j.k=1}else{f.j.k=0}}:return
*z:gsel 2:redraw 0:color 0,0,0:boxf:repeat 1024:h=cnt\32:g=cnt/32:o=e.h.g:if o{color 255,255,255}else{continue}:pset h,g:loop:gsel 0:pos 0,0:gzoom 160,160,2,0,0,32,32:redraw 1:return

ライフゲーム（774byte）
誰かもう少し縮めてくれ･･･。

**名前は開発中のものです。** · 02/09/22 18:40

>>818
チェックで実行速度が遅くなるデメリットあり。

もっともネイティブの実行速度と比べたら大して変わらないレベルだけど。

**名前は開発中のものです。** · 02/09/22 20:45

むしろ速くなってない？

**名前は開発中のものです。** · 02/09/22 20:57

2.55と比してはね。

**名前は開発中のものです。** · 02/09/22 21:31

width 160,160:a="0010200121021222":sdim b,256,32:randomize:repeat 1024:c=cnt/32
rnd d,2:b.c+""+d:loop:dim e,32,32:dim f,32,32:repeat 1024:c=cnt/32:d=cnt\32
peek i,b.c,d:i-48 : e.d.c=i:loop:*l:repeat 1024:c=cnt/32:d=cnt\32:n=0:repeat 8
peek i,a,cnt*2:i+d-49:peek j,a,cnt*2+1:j+c-49:if i>=0|i<32|j>=0|j<32:n+e.i.j>0
loop:if e.d.c=0{f.d.c=n=3*2}:if e.d.c>0{f.d.c=n=2|(n=3)}:loop:memcpy e,f,4096
redraw 0:color:boxf:repeat 1024:c=cnt/32:d=cnt\32:palcolor 255*e.d.c
boxf d*5,c*5,d*5+4,c*5+4:loop:redraw:await 5:goto l

ほい。79*7達成ね。
配列変数のｺﾋﾟｰは、memcpy使うと早いし楽だよ。

**819** · 02/09/22 22:44

width 160,160:a="0010200121021222":sdim b,256,32:randomize:repeat 1024:c=cnt/32
rnd d,2:b.c+""+d:loop:dim e,32,32:dim f,32,32:repeat 1024:h=cnt/32:g=cnt\32
peek i,b.h,g:i-48:e.h.g=i:loop:*@:repeat 1024:j=cnt\32:k=cnt/32:n=0:repeat 8
peek h,a,cnt*2:h+j-49:peek g,a,cnt*2+1:g+k-49:if (h<0)|(h>=32)|(g<0)|(g>=32){continue}
n+=(e.h.g>0):loop:if e.j.k=0{f.j.k=n=3*2}:if e.j.k>0{f.j.k=n=2|(n=3)}:loop:memcpy e,f,4096
redraw 0:color:boxf:repeat 1024:h=cnt\32:g=cnt/32:if e.h.g{color 255,255,255}else{continue}
boxf h*5,g*5,h*5+3,g*5+3:loop:redraw:await 5:goto @b

>>823
ありが㌧。おかげで参考になりますた。
どうもうちの環境では動かなかったのでｺﾋﾟﾍﾟを交えつつ改造。ちと増えてしまった･･･。･･･環境の違いかな？

**823** · 02/09/23 01:12

>>824

.　　　Λ＿Λ
ｱｱﾝ（・∀・；）

HSP 2.6b14 でやってるんだけど、無茶な省略してるから
他のバージョンじゃ動かないのかも・・・。ｽﾏｿ

**名前は開発中のものです。** · 02/09/23 10:58

あー。
memcpyてそうやって使うんだ。
今やってるヤツ修正したくなってきた！

**819** · 02/09/23 12:45

n=32:width n*5,n*5:a="0010200121021222":sdim b,256,n:randomize:repeat n*n
c=cnt/n:rnd d,2:b.c+""+d:loop:dim e,n,n:dim f,n,n:repeat n*n:g=cnt/n:h=cnt\n
peek e.h.g,b.h,g:e.h.g-48:loop:*z:repeat n*n:j=cnt\n:k=cnt/n:l=0:repeat 8
peek g,a,cnt*2:g+j-49:peek h,a,cnt*2+1:h+k-49:if (g<0)|(g>=n)|(h<0)|(h>=n):continue
l+=e.g.h>0:loop:if e.j.k=0{f.j.k=l=3*2}if e.j.k>0{f.j.k=l=2|l=3}loop
memcpy e,f,4096:redraw 0:color:boxf:repeat n*n:g=cnt\n:h=cnt/n
if e.g.h{palcolor 9:boxf g*5,h*5,g*5+3,h*5+3}loop:redraw:wait 1:goto z

がんがって縮小。
･･･難しいなあ。

**名前は開発中のものです。** · 02/09/23 16:11

2.55で動いてたソースを2.6b14で動かそうとしたら
HSEDが強制終了…(つД｀)

**名前は開発中のものです。** · 02/09/23 17:37

えっ、b14もう出てるの？見にいこ。

**名前は開発中のものです。** · 02/09/23 17:43

ダウンロード完了。。。

**823** · 02/09/23 20:02

n=32:width n*5,n*5:boxf:a="0010200121021222":sdim b,256,n:dim s,n*n:dim t,n*n
randomize:repeat n*n :rnd d,2:s.cnt=d:loop:*z:repeat n*n:j=cnt\n:k=cnt/n:l=0
repeat 8:peek g,a,cnt*2:peek h,a,cnt*2+1:g+h+k-49*n+j-49:if (g<0)|(g>=(n*n)){
continue}l+=s.g>0:loop:if s.cnt=0{t.cnt=l=3*2}:if s.cnt>0{t.cnt=l=2|l=3}:loop
memcpy s,t,4096:redraw 0:repeat n*n:g=cnt\n:h=cnt/n:palcolor s.cnt!0*9
boxf g*5,h*5,g*5+3,h*5+3:loop:redraw:wait 1:goto z

６行達成しますた。

**761** · 02/09/23 23:10

なんかみんなすげー。

**名前は開発中のものです。** · 02/09/23 23:51

みんなっていうか、二人で推敲してる感じな。

**819** · 02/09/24 12:21

（;ﾟДﾟ）･･･。
ごめんなさいもう漏れには無理でつ。LVが違う･･･。（；´Д｀）

**名前は開発中のものです。** · 02/09/24 14:10

n=32 固定でもいい?

**名前は開発中のものです。** · 02/09/24 14:12

　　ていうかすでに固定でやってるね

**名前は開発中のものです。** · 02/09/24 14:51

それなんですか？丸いのがくるくる回ってるけど・・・

**名前は開発中のものです。** · 02/09/24 14:55

ライフゲーム。

それはミクロの世界に蠢く微生物のように。
それは儚く散る花びらのように。
それは戦争を続ける醜い人類のように。

ライフゲーム。

**名前は開発中のものです。** · 02/09/24 15:23

n=32:m=n*n:width n*5,n*5:boxf:a="@DHAIBFJ":dim s,m:dim t,m:randomize:repeat m
rnd s.cnt,2:loop:*z:repeat m:j=cnt\n:k=cnt/n:l=0:repeat 8:peek g,a,cnt
g=g>>2&3+k*n+(g&3)+j-33:if g>>10=0{l+=s.g>0}:loop:t.cnt=l=3&(s.cnt=0)*2
t.cnt+=l/2=1&(s.cnt>0):loop:memcpy s,t,m*4:redraw 0:repeat m:g=cnt\n*5:h=cnt/n*5
palcolor s.cnt>0*9:boxf g,h,g+3,h+3:loop:redraw:wait 1:goto z

80 * 5 行

**839** · 02/09/24 15:43

n=32:m=n*n:width n*5,n*5:boxf:a="@DHAIBFJ":dim s,m:dim t,m:randomize:repeat m
rnd s.cnt,2:loop:*z:repeat m:l=0:c=cnt:repeat 8:peek g,a,cnt:g=g/4&3*n+(g&3)+c
g-=33:if g>>10=0{l+=s.g>0}:loop:t.c=l=3&(s.c=0)*2|(l/2=1&(s.c>0)):loop
memcpy s,t,m*4:redraw 0:repeat m:g=cnt\n*5:h=cnt/n*5:palcolor s.cnt>0*9
boxf g,h,g+3,h+3:loop:redraw:wait 1:goto z

もちょっと小さくなりました

**823** · 02/09/24 15:59

ﾎﾟｶｰﾝ(ﾟдﾟ)

**839** · 02/09/24 16:35

n=32:m=n*n:boxf:a="@DHAIBFJ":dim s,m:dim t,m:randomize:repeat m:rnd t.cnt,2:loop
width n*5,n*5:*z:memcpy s,t,m*4:wait 1:repeat m:c=cnt:l=0:repeat 8:peek g,a,cnt
g=g/4&3*n+(g&3)+c-33:if g>>10=0{l+=s.g>0}:loop:t.c=l=3&(s.c=0)*2|(l/2=1&(s.c>0))
palcolor t.c!0*9:boxf c\n*5,c/n*5,c\n*5+3,c/n*5+3:loop:goto z

えいや

**823** · 02/09/24 16:49

・・・(ﾟдﾟ)ｱﾝｸﾞﾘ

まったく太刀打ちできませんでしたｗ
四行達成おつかれさまでつ。すごすぎでつ…。

**839** · 02/09/24 17:08

いえ、処理内容なんか理解してません（；´Д｀）
おもしろそうだったから簡単化してみただけ

**819** · 02/09/24 17:55

漏れのソースがここまで簡略化できるとは･･･。
理解できるぐらいまで精進しまつ。（；´Д｀）

**名前は開発中のものです。** · 02/09/24 18:39

某糞スレで荒らし依頼が出されてたぞ。
削除人は注意しててくれ。

**名前は開発中のものです。** · 02/09/24 22:12

無毛ﾀﾝ

**名前は開発中のものです。** · 02/09/24 22:44

今日のマイホットスープは薄かった（泣

**761** · 02/09/24 22:51

(*´д｀*)すごすぎてとっても感動。

**名前は開発中のものです。** · 02/09/24 23:02

漏れの肛門もコクマロです

**名前は開発中のものです。** · 02/09/24 23:30

建設的なｽﾚになってきたな

**名前は開発中のものです。** · 02/09/25 00:08

ライフゲームｽｹﾞｪ・・・。

**839** · 02/09/25 00:31

n=32:m=n*n:dim s,m:dim t,m:randomize:*z:repeat m:c=cnt:l=0:a=41086224:repeat 8
g=a/3\3*n+(a\3)-33+c:a=a/9:if g>>10=0{l+s.g!0}loop:t.c=l=3*2:if s.c{t.c=l/2=1}
color,t.c*255:pset c\n,c/n:if f=0{rnd t.c,2}loop:f+:memcpy s,t,m*4:await:goto z

これは画面ｼｮﾎﾞ過ぎて反則かな?

**名前は開発中のものです。** · 02/09/25 00:31

次のネタは？

**名前は開発中のものです。** · 02/09/25 00:35

テトリスはどう？

**コピペ** · 02/09/25 00:53

遊び方：カーソル左右で移動、リターンキーで回転
プレイ環境：おそらく IE 5.01 以上？

<body onKeyDown=K=event.keyCode><script>X=[Z=[B=A=12]];h=e=K=t=P=0;function Y()
{C=[d=K-38];c=0;for(i=4;i--*K;K-13?c+=!Z[h+p+d]:c-=!Z[h+(C[i]=p*A-Math.round(p/
A)*145)])p=B[i];!t|c+4?c-4?0:h+=d:B=C;for(f=K=i=0;i<4;f+=Z[A+p])X[p=h+B[i++]]=1
if(e=!e){if(f|B){for(l=228;i--;)Z[h+B[i]]=k=1;for(B=[[-7,-20,6,17,-9,3,6][t=++t
%7]-4,0,1,t-6?-A:-1];l--;h=5)if(l%A)l-=l%A*!Z[l];else for(P+=k++,j=l+=A;--j>A;)
Z[j]=Z[j-A]}h+=A}for(i=S="";i<240;X[i]=Z[i]|=++i%A<2|i>228)i%A?0:S+="<br>",S+=X
[i]?"■":"＿";document.body.innerHTML=S+P;Z[5]||setTimeout(Y,99-P)}Y()</script>

**名前は開発中のものです。** · 02/09/25 01:01

>>856
Javascriptじゃねえかよ

**コピペ(参考）** · 02/09/25 01:08

http://pc3.2ch.net/test/read.cgi/tech/1018840143/117