テトリスを作る (774ﾚｽ)
上下前次1-新
3(1): ひきプロ ◆8fhky/PGis 02/10/07 16:56 ID:??? AAS
http://www.geocities.co.jp/SiliconValley/2530/tetris6.zip
はやくなったらおかしくなりますが…VB
4: 02/10/07 16:57 ID:??? AAS
企画は総合発表＆雑談スレッドに書いて下さい
このスレッドでまとまり次第、独立したプロジェクトスレッドを立てて下さい
（前触れの無いプロジェクトスレッドは削除対象となります）
5: あぼーん [あぼーん] AAS
あぼーん
6: あぼーん [あぼーん] AAS
あぼーん
7: 02/10/07 17:00 ID:??? AAS
この板のローカルルール
＞企画は総合発表＆雑談スレッドに書いて下さい
＞このスレッドでまとまり次第、独立したプロジェクトスレッドを立てて下さい
＞（前触れの無いプロジェクトスレッドは削除対象となります）
総合発表＆雑談スレッド
2chｽﾚ:gamedev
>>1は即座に削除依頼を出してください。
それでは、削除されるまでの間またーりでお待ちください。
8: あぼーん [あぼーん] AAS
あぼーん
9(1): 02/10/07 21:36 ID:??? AAS
ソース
int WINAPI WinMain(...)
{
return WinExec("tetris.exe", SW_SHOW);
}
※別途作成のtetris.exeが必要
10: 02/10/07 23:59 ID:??? AAS
>>3
ださすぎ、才能ないよ
11: あぼーん [あぼーん] AAS
あぼーん
12(6): 02/10/08 01:29 ID:4phHdMAC(1/3) AAS
遊び方：カーソル左右で移動、リターンキーで回転
プレイ環境：おそらく 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>
13: 02/10/08 02:02 ID:??? AAS
7行すれには感服しますた
14: 02/10/08 03:15 ID:B8Ib8XsX(1) AAS
>>12
スゲェー！
15: 02/10/08 04:02 ID:??? AAS
>>12
うぅーー。ほんとにテトリスになってる。
Javaスクリプトってテトリスできるんですね？
感動。
しかも７行で。
16(1): 02/10/08 04:07 ID:??? AAS
>>12
すまん、悪いんだが、普通に展開するとどんな感じになるんでしょ？
いかんせん for() がどこまでかかるか分からなくて。（JAVAスクリプト書いた
ことないもので）
17: あぼーん [あぼーん] AAS
あぼーん
18: 02/10/08 07:06 ID:??? AAS
>>16
indentツールを使うべし
19(1): 02/10/08 10:20 ID:??? AAS
いちいち終了とカキコする必要無し
だまって放置できねえのかガキども
みっともねえなあ、ゲーム系PGは
20: あぼーん [あぼーん] AAS
あぼーん
21: pom 02/10/08 21:51 ID:95TlUE2v(1) AAS
これでどうだ？ HSP
http://dainet.port5.com/teto.txt
22(2): コピペ 02/10/08 21:56 ID:4phHdMAC(2/3) AAS
V=20:screen ,200,400:title "0":dim B,4:dim C,10,V:dim D,10,V:randomize:F=2:boxf
dim A,4,7:A=1,4,5,6,5,6,10,14,5,6,9,13,5,6,9,10,2,6,5,9,1,5,6,10,1,5,9,13:repeat
wait 1:if G=0{rnd N,7:memcpy B,A,16,,16*N:H=3:I=-4:J=0:G=1}J-F:if J<0{K=0:L=1
gosub Z:if M=0{N=0:repeat 4:O=B.cnt\4+H:P=B.cnt/4+I:if P<0{N=1:break}C.O.P=1
loop:if N{break}dim Q,V:R=0:repeat V:S=cnt:N=0:repeat 10:N+=C.cnt.S:loop:if N>9{
Q.cnt=1:R+:palcolor 255:boxf 0,cnt*V,200,cnt*V+18}loop:if R>0{wait 50:color:boxf
E+R*R:title ""+E:N=19:repeat V:S=19-cnt:if Q.S=0{memcpy C,C,40,N*40,S*40:N-}loop
memset C,,N*40}G=0}J=100}stick T,8,1:K=T&4!0+(T&1!0*-1):L=T&8!0:gosub Z:if T&16{
dim U,4:memcpy U,B,16:repeat 4:N=B.cnt\4:B.cnt=N*4+3-(B.cnt/4):loop:K=0:L=0
gosub Z:if M=0{memcpy B,U,16:gosub Z}}redraw 0:repeat V:S=cnt:repeat 10:K=cnt*V
省4
上下前次1-新書関写板覧索設栞歴
あと 752 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.648s*