HSP - Hot Soup Processor

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

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

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

**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

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

HSP使いにはテトリス製作は難しすぎると思われ。
最初はJavaScriptからHSPに移植しる。

**819** · 02/09/25 13:32

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

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

>>860
stgとかならサンプルがいろいろ転がってるから、
それを見て真似たり、改造したりしてけば組めるように

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

誰よ7行ｽﾚにこのｽﾚ貼り付けたの

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

>>864
犯人は・・・おまえだ！

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

　　 ∧ ∧　　　 ┌─────────
　　( ´ー｀)　　＜　シラネーヨ
　　＼　< 　　　└───/|────
　　　　＼.＼＿＿＿＿__／/
　　　　　＼　　　　　　　／
　　　　　　　∪∪￣∪∪

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

>>864
犯人ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!

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

ﾗｲﾂｱｳﾄは既出？

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

ﾗｲﾂｱｳﾄってなに？

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

マッチチュードだよ

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

マッチチュードってなに？

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

なあなあ、YGSに乗り換えようと思うんだが、使った奴いるけ？
どうよYGS?

02/09/25 23:50

ZDNN：日本発祥のHSPウイルス、作者は中学生？
http://www.zdnet.co.jp/news/0209/25/njbt_08.html

＞同メールが本当の作者から送信されたものかどうかは断定できない。
＞ただ同ウイルスについて、あるHSPユーザーは「これなら確かに中学生でも作れるだろう」
＞と見ている。だが「HSPは『以前より敷居が高くなってしまったプログラム作成に気軽に
＞取り組んでほしい』と作者がフリーで公開している“草の根言語”。
＞ウイルス作成に利用するのは、作者やプログラミングを楽しむユーザーの
＞気持ちを踏みにじるもの」と憤っている。

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

これでHSPの地位が少しあがったな
まぁ実物が晒されたら元通りの地位に納まるんだろうが

02/09/26 02:45

>>871
ＨＳＰもようやく一般的なレベルになったぐらいのコメントだせんかね。

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

HSPの作者も処罰してほしい

**名前は開発中のものです。** · 02/09/26 07:34

暇だからウイルス作者を提訴しよっかな♪

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

ﾀｲｰﾎされたんじゃないの？

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

雑談はム板でやってほすぃ・・・。

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

誰もテトリス作らないのか

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

ここでさらすためだけに作るにはﾁｮﾄめんどい

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

http://hp.vector.co.jp/authors/VA016099/hsp.html

**くれくれくん** · 02/09/26 19:59

誰か>>858をＨＳＰに移植してくれ。

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

>>881
報酬は？

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

名誉スクリプターの称号

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

(ﾟ⊿ﾟ)ｲﾗﾈ

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

できなかったな（藁

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

もうちょいお手軽なネタがいいね

**ム板住人** · 02/09/26 21:51

こっちと同時刻にカキコする人うざいです。
ム板にはもうカキコしないでください。

**823** · 02/09/27 00:18

やたら長くなってしまいますた。

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
palcolor D.cnt.S*9:L=S*V:boxf K,L,K+18,L+18:loop:loop:redraw:loop:dialog "over"
end:*Z:M=1:repeat 4:O=B.cnt\4+H+K:P=B.cnt/4+I+L:if (P>19)|(O<0)|(O>9):M=0:break
if P<0{continue}if C.O.P=1{M=0}loop:if M=0{return}memcpy D,C,10*V*4:H+K:I+L
repeat 4:O=B.cnt\4+H:P=B.cnt/4+I:if P>=0{D.O.P=1}loop:return

**823** · 02/09/27 00:26

変数名大文字にしたので、置き換え使って
適当な名前に置き換えると分かりやすいかもしれません。
てかもっと精進せねば（´д｀；）

**839** · 02/09/27 01:24

(ﾟдﾟ) ﾌｸｻﾞﾂｰ
これ以上料理できるんだろうか･･･

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

回転法則が違うというのは言ってはだめですか？

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

回転法則は流派が色々あるよん

**823** · 02/09/27 14:04

>>890
あんまり縮めるのを意識せずに組んだので、
縮めどころは結構あるかもです・・・

>>891-892
凸と棒が回転すると軸ずれてしまうのが残念（´д｀；）

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

age

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

複雑過ぎるので終了？
次ネタは横スクロールシューティングでどうでしょうか？

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

ＨＳＰスレ終了・・・かな

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

無いとまた寂しい。

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

ム板に逝けばいいんじゃないの?
今は荒れてるけど正常化すれば無問題でしょ!

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

ム板は常時荒れです。誤解無きよう。

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

アホが一人で荒らしてるだけにも見えるがな。
近寄らんほうがよさげ

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

プロレスヲタクが自作自演してる臭い。
つーかマ板はどうでもいいが、STGも難し過ぎて没なの？

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

「簡単な」STGなら

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

hspのrpg
完成した人っている？

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

>>903
今作ってるよ。完成とは程遠いけど。

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

RPG作るならまずストーリー・セリフ・イベント・グラフィック・音楽等を用意して
プログラミングは一番最後にしなきゃダメだな。
漏れはいつもプログラムだけ作ってそれ以外が出来ずに断念するヘタレです、はい。

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

>>905
激しく同意。
それから現在のRPG風でなく10年ぐらいまえのRPG風にする。

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

まぁだからこそSTGは作りやすいわけだが

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

長い。スーパー江頭2:50にしる。

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

まずはカバンから出てくるところから

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

*start
tmove=3:mshot=5:mteki=30:dim shot,mshot:dim sside,mshot:dim shigh,mshot:dim tekion,mteki:dim tside,mteki:dim thigh,mteki:dim tmoves,mteki:dim tsmove,mteki:dim tnows,mteki:dim
tmtype,mteki:side=150:high=300:score=0:nshot=0:nteki=0:ziki=0:tekidasu=0:drnd=-2:screen 0,250,400,1:repeat 1:redraw 0:palcolor 255:boxf 0,0,250,400:stick key,31:side+(key&4/4)-(key&1):high+(key&8/8)-(key&2/2):if key&16 {repeat mshot
nshot=cnt:if shot.nshot!1:shot.nshot=1:sside.nshot=side:shigh.nshot=high-15:break
loop }:if side<0:side=0:if side>241:side=241:if high<0:high=0:if high>385:high=385
repeat mshot:nshot=cnt:if shot.nshot=1:if shigh.nshot>-15:shigh.nshot-15:else:shot.nshot=0
if shot.nshot=1:pos sside.nshot,shigh.nshot:palcolor 0:mes "I"
palcolor 0:pos side,high:if ziki=0:mes "M":else:mes "*"
loop:repeat mteki:nteki=cnt:if tekion.nteki=1 {thigh.nteki+tmoves.nteki:tnows.nteki+tmoves.nteki
if tsmove.nteki<=tnows.nteki:tside.nteki+tmtype.nteki:tnows.nteki=0
if (thigh.nteki>=398)|(tside.nteki<=-7)|(tside.nteki>=249):tekion.nteki=0
repeat mshot:nshot=cnt:if shot.nshot=1:if (sside.nshot-5<=tside.nteki)&(sside.nshot+5>=tside.nteki)&(shigh.nshot<=thigh.nteki)&(shigh.nshot+13>=thigh.nteki):tekion.nteki=2:shot.nshot=0:score++
loop }:if tekion.nteki>=1:palcolor 249:pos tside.nteki,thigh.nteki:if tekion.nteki=1:mes "W":else:tekion.nteki++:if tekion.nteki=5:tekion.nteki=0:mes "*"
if (tside.nteki+7>=side)&(tside.nteki-6<=side)&(thigh.nteki+11>=high)&(thigh.nteki-12<=high):ziki=1
if tekion.nteki=0 {randomize:rnd thigh.nteki,256:randomize:rnd tside.nteki,242:randomize:rnd tmoves.nteki,tmove:tmoves.nteki++:randomize:rnd tsmove.nteki,40:tsmove.nteki++:if drnd=1:drnd=-2
drnd++:tmtype.nteki=drnd:thigh.nteki=thigh.nteki*-1-14:tekion.nteki=1:break }:loop:redraw 1:await 10:title "Mstg score "+score:if ziki=0:continue 0:loop:pos 80,180:palcolor 0:mes "GAME OVER":button "RESTART",*start:stop

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

避けげー？

**910** · 02/10/02 01:20

910です。
バグあるっぽいけどとりあえずSTG
あと、ageてしまった……

**911** · 02/10/02 01:21

じゃないみたいだね

**910** · 02/10/02 01:24

>911
あう、操作方法書いて無いや。
上下左右のキーで移動して、スペースでショット出します。

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

短くすれば良いのか？

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

面白くすればいいのか？

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

そうだに

**823** · 02/10/02 17:43

>>910
ﾈﾀ提供ﾏﾘｶﾞﾄｻﾏﾃﾞｽ
さっそく縮めてみまつ

**823** · 02/10/02 21:48

randomize:A=30:L=125:M=300:dim E,A:dim F,A:dim G,A:dim H,A:dim I,A:#define R cnt
dim J,A:dim K,A:screen,250,400:repeat:redraw 0:color:boxf:stick P,31:palcolor 39
if(L>=0){L-P&1}if(L<242){L+P&4!0}if(M>=0){M-P&2!0}if(M<386){M+P&8!0}if O=0{
pos L,M:mes "M"}repeat 5:if(P&16*(B.R=0)){B.R=1:C.R=L:D.R=M-15:P=0}B.R=D.R>-16
if B.R=0{continue}D.R-15:palcolor 7:pos C.R,D.R:mes "I":loop:palcolor 9:repeat A
if E.R{G.R+H.R:if J.R{J.R-}else{F.R+K.R:J.R=I.R}E.R=G.R>397+(F.R<-8)+(F.R>248)=0
Q=R:repeat 5:if B.R{if(C.R-5<=F.Q)&(C.R+5>=F.Q)&(D.R<=G.Q)&(D.R+13>=G.Q){E.Q=0
B.R=0:N+:title ""+N}}loop:if(F.R+7>=L)&(F.R-6<=L)&(G.R+11>=M)&(G.R-12<=M):O=1
pos F.R,G.R:mes "W"} else {rnd G.R,256:G.R=-G.R-14:rnd F.R,242:rnd H.R,3:H.R+
rnd I.R,10:J.R=0:rnd K.R,2:K.R=K.R<<1-1:E.R=1}loop:redraw:wait 1:if O:break
loop:dialog "over"

10行ですが、もっと縮みそうっすね・・・
配色とか少しいじっちゃいますた。

**823** · 02/10/02 21:49

10行 → 11行ですた

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

一行の字数制限とかルールおしえてﾁｮ

**823** · 02/10/02 22:22

randomize:A=30:L=125:M=300:dim E,A:dim F,A:dim G,A:dim H,A:dim I,A:#define R cnt
dim J,A:dim K,A:screen,250,400:repeat:redraw 0:boxf:stick P,15:if L>=0{L-P&1}
if(L<242){L+P&4!0}if(M>=0){M-P&2!0}if(M<386){M+P&8!0}if O=0{palcolor 39:pos L,M
mes"M"}palcolor 9:repeat A:if E.R=0{E.R=1:J.R=0:rnd I.R,10:rnd K.R,2:rnd G.R,256
G.R=-G.R-14:rnd F.R,242:rnd H.R,3:H.R+:K.R=K.R<<1-1:E.R=1}else{G.R+H.R:if J.R{
J.R-}else{F.R+K.R:J.R=I.R}if(F.R+7>=L)&(F.R-6<=L)&(G.R+11>=M)&(G.R-12<=M):O=1
E.R=G.R>397+(F.R<-8)+(F.R>248)=0:pos F.R,G.R:mes "W"}loop:redraw:wait 1:if O{
break}color:if (cnt\30=0){S+:title "score:"+S}loop:dialog "over\nscore = "+S

避けゲーバージョンです

**823** · 02/10/02 22:30

>>921
自分は1行80桁でやってます。
7行以下を目的に。

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

7行スレのルールだと79桁みたい。