HSP - Hot Soup Processor

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

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

899: 02/09/28 20:35 ID:??? AAS
ム板は常時荒れです。誤解無きよう。

900: 02/09/29 01:00 ID:??? AAS
アホが一人で荒らしてるだけにも見えるがな。
近寄らんほうがよさげ

901: 02/09/29 16:16 ID:??? AAS
プロレスヲタクが自作自演してる臭い。
つーかマ板はどうでもいいが、STGも難し過ぎて没なの？

902: 02/09/29 18:38 ID:??? AAS
「簡単な」STGなら

903(1): 02/09/29 19:25 ID:YIDKfWcL(1) AAS
hspのrpg
完成した人っている？

904: 02/09/29 21:09 ID:??? AAS
>>903
今作ってるよ。完成とは程遠いけど。

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

906: 02/09/29 22:49 ID:??? AAS
>>905
激しく同意。
それから現在のRPG風でなく10年ぐらいまえのRPG風にする。

907: 02/09/30 08:16 ID:??? AAS
まぁだからこそSTGは作りやすいわけだが

908: 02/09/30 08:33 ID:??? AAS
長い。スーパー江頭2:50にしる。

909: 02/10/01 17:43 ID:??? AAS
まずはカバンから出てくるところから

910(3): 02/10/02 01:17 ID:hZ8sxFNZ(1) AAS
*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

911(2): 02/10/02 01:20 ID:??? AAS
避けげー？

912: 910 02/10/02 01:20 ID:??? AAS
910です。
バグあるっぽいけどとりあえずSTG
あと、ageてしまった……

913: 911 02/10/02 01:21 ID:??? AAS
じゃないみたいだね

914: 910 02/10/02 01:24 ID:??? AAS
>911
あう、操作方法書いて無いや。
上下左右のキーで移動して、スペースでショット出します。

915: [sake] 02/10/02 09:17 ID:??? AAS
短くすれば良いのか？

916: 02/10/02 09:22 ID:??? AAS
面白くすればいいのか？

917: [a] 02/10/02 14:47 ID:??? AAS
そうだに

918: 823 02/10/02 17:43 ID:??? AAS
>>910
ﾈﾀ提供ﾏﾘｶﾞﾄｻﾏﾃﾞｽ
さっそく縮めてみまつ

919: 823 02/10/02 21:48 ID:??? AAS
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行ですが、もっと縮みそうっすね・・・
配色とか少しいじっちゃいますた。

920: 823 02/10/02 21:49 ID:??? AAS
10行 → 11行ですた

921(1): 02/10/02 22:21 ID:??? AAS
一行の字数制限とかルールおしえてﾁｮ

922: 823 02/10/02 22:22 ID:??? AAS
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

避けゲーバージョンです

923: 823 02/10/02 22:30 ID:??? AAS
>>921
自分は1行80桁でやってます。
7行以下を目的に。

924: 02/10/02 22:39 ID:??? AAS
7行スレのルールだと79桁みたい。

925: [age] 02/10/06 21:29 ID:??? AAS
>>669
World Wide Entertainment!!

926: 02/10/09 19:59 ID:??? AAS
画面の座標上にA,B,Cの３つの点をとって
ABとBCを結びBの角度を出すプログラムを作りたいのですが
どうやりましょう？

927: 02/10/09 20:12 ID:??? AAS
ご存知とは思いますが傾きがわかれば三角関数で画面下端との角度が出せます。
問題は三角関数の扱いですが、内部でテーブルにして保持し近似値を取るのが早くて良いでしょう。

ただし。
どのモニタでもpixelのサイズの縦横比が１対１と思わないほうがいいかもです。
環境によっては見た目の角度と違う結果が出るかも。

928: 02/10/09 21:04 ID:??? AAS
つーか中学レベル（藁
つーか整数形式しかないHSPでやらない方が良い問題だと思われ。

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

あと 73 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.021s