HSP - Hot Soup Processor

[過去ﾛｸﾞ] HSP - Hot Soup Processor (1001ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されているため､ｷｬｯｼｭを表示しています｡過去ﾛｸﾞﾒﾆｭｰ

819(5): 02/09/22 17:50 ID:??? AAS
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）
誰かもう少し縮めてくれ･･･。

824(1): 819 02/09/22 22:44 ID:??? AAS
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
ありが㌧。おかげで参考になりますた。
どうもうちの環境では動かなかったのでｺﾋﾟﾍﾟを交えつつ改造。ちと増えてしまった･･･。･･･環境の違いかな？

827: 819 02/09/23 12:45 ID:??? AAS
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

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

834: 819 02/09/24 12:21 ID:??? AAS
（;ﾟДﾟ）･･･。
ごめんなさいもう漏れには無理でつ。LVが違う･･･。（；´Д｀）

845: 819 02/09/24 17:55 ID:??? AAS
漏れのソースがここまで簡略化できるとは･･･。
理解できるぐらいまで精進しまつ。（；´Д｀）

860(1): 819 02/09/25 13:32 ID:??? AAS
昔どこかのサンプル見ながら作った（半分以上ｺﾋﾟﾍﾟ）妙に長いスクリプトならありまつ。
というか結構長くやってるのにＳＴＧすら組めない漏れって･･･。（；´Д｀）ﾓｳﾀﾞﾒﾎﾟ

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

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 4.294s