[過去ﾛｸﾞ] HSP - Hot Soup Processor (1001ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
10(4): 名無しさん＠お腹いっぱい。 01/11/10 18:34 ID:??? AAS
HSPをHTML上でうごかすフリーソフトがでてるけど使ってるひといる？
自分で制作中のは結構サクサク動いてくれてるのでperlと連動させてＷＥＢゲームつくろうかと考えてる。
このフリーソフト使ってる人いたら気をつけるとことか体験談とか聞きたい。
839(5): 02/09/24 15:23 ID:??? AAS
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 行
840: 839 02/09/24 15:43 ID:??? AAS
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
もちょっと小さくなりました
842: 839 02/09/24 16:35 ID:??? AAS
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
えいや
853: 839 02/09/25 00:31 ID:??? AAS
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
これは画面ｼｮﾎﾞ過ぎて反則かな?
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.033s