テトリスを作る (774ﾚｽ)
上下前次1-新
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
23: 02/10/08 22:02 ID:??? AAS
>>22
コピペって他人のコピペということか。
なら出典も書こうぜ。作者への敬意はどうした。
24: コピペ 02/10/08 22:07 ID:4phHdMAC(3/3) AAS
ごめんよ
>>22の出展：
HSP - Hot Soup Processor
2chｽﾚ:gamedev
25: 02/10/08 22:11 ID:??? AAS
見直した。
26: [age] 02/10/22 19:36 ID:??? AAS
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| お姉さま、今日は「作ろうよ」特集よ
＼＿＿＿__ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
/／
∧＿∧ ∧__∧
（ ´∀｀） （ ・∀・）
〉 <、 n ,> 〈
イ´γ ､ヽ ,||､ ,,ノ,＿i⌒） ＿_／￣￣￣￣￣￣￣￣￣￣
（⌒ｒ´⌒ｙ/ ｆ々) （;:..(..:::;ﾉ / ＼ ｺﾞﾐｸｽﾞみたいな>>1が
ﾊ::,;､::::ノ〈／/｀´ (二二ノﾉ | 存在する限り私達も不滅…
省11
27: 02/10/22 19:55 ID:??? AAS
テトリスなんてソースを要求するようなレベルじゃないだろ
28(1): [age] 02/10/24 10:16 ID:??? AAS
禿同。本当、ここって馬鹿ばっかりなんだね・・・。
29: 02/10/24 11:15 ID:??? AAS
>>28
ｸｿｽﾚ上げる貴様は馬鹿を通り越してｷﾁｶﾞｲだがな。( ´,_ゝ`)ﾌﾟｯ
30(11): 02/10/24 12:21 ID:FJThY7vc(1/2) AAS
どちらかというと対CPUの思考ルーチンがいいんじゃないの？
テトリスサーバ立ててに思考ルーチンから信号投げあって強さ競う段階だろ。テトリスなら。
31(4): 02/10/24 15:36 ID:??? AAS
>>30
テトリスの強さを競うのは不可能
瞬時に計算できてミスが無いのなら永遠に終わらない
そのくらいのことも分からないのに何が「段階だろ？」なんだか
32(2): 02/10/24 16:59 ID:??? AAS
>>31
たまには検索しろ
テトリスが対戦ゲームになってることを知らないのか？
33(1): 02/10/24 17:22 ID:??? AAS
>>32
やっぱり分かってない
通常の対戦ルールでは多少ブロックがせり上がってくる程度では
瞬間的に計算可能である限り終わらない
三目並べの強さを競っているのと同じ状態になる
だからといってCPU戦専用に特殊ルールを導入したらテトリス以外の何かであって
テトリスの「強さ競う段階だろ」ということにはならない
34: 02/10/24 17:31 ID:??? AAS
http://www2.strangeworld.org/uedakana/sahra6138.jpg
35(2): 02/10/24 19:42 ID:0Bv0kr07(1) AAS
>>33
天然か？
テトリスには先読みの要素があるから、思考ルーチンにも癖が出るだろうが。
どうしても４段消ししたいからと粘って積み上がってしまうとか、より早く組むために加速と連打を駆使したがブロックがせりあがりハマるとか。
テトリスやったことあるなら、予測が必要なことぐらいわかるぞ？
囲碁や将棋のようなターン制じゃないんだから、逐次状況を把握する必要があるし。
考えが浅はかすぎ。
36(1): 02/10/24 20:46 ID:??? AAS
>>35
ブロックがせりあがる程度ではミスも遅れも無いCPUでは永遠に勝負がつかない
かといってテトリスを出すと10段上がってくるようなルールにするとテトリスとはよべない
そうなるとアルゴリズムの強さではなく、ほとんどの要素が運だけになってしまう
＞囲碁や将棋のようなターン制じゃないんだから、逐次状況を把握する必要があるし。
これで全然理解していないのが確定
人間にはリアルタイムアクションに見えてもCPU側から見ればターン制と変わらない
プログラムをまともに組んだことが無いから理解できないんだろうが
37: 02/10/24 20:50 ID:??? AAS
＞どうしても４段消ししたいからと粘って積み上がってしまうとか、
＞より早く組むために加速と連打を駆使したがブロックがせりあがりハマるとか。
それは単なる程度の問題ってことで。
「死なないように消していけば」絶対終わりませんな。ぷよぷよじゃあるまいし。
38: 02/10/24 21:18 ID:??? AAS
ターン制の話は無かったことにするのか？
もう少しプログラムを勉強してから出直せ
39(1): 02/10/24 21:36 ID:FJThY7vc(2/2) AAS
死なないようにちまちまやってて最強とはな。
残りの隙間１ブロックから初めても打開出来るかのような理屈じゃ話にもならんよ。
40: 02/10/24 22:38 ID:??? AAS
age荒らしのおかげで再生したじゃん、このスレ
珍しいこともあるもんだ
上下前次1-新書関写板覧索設栞歴
あと 734 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.573s*