アクションゲームソース公開

OFFICIAL/関連

• HSP
• HSPTV!
• OpenHSP-trac
• HSPWiKi
• HSP Users Group
• HSP-users.jp
• Online HDL
• CodeZine-HSP

TUTORIAL

• HSP基礎講座

TOPICS

• ソフト開発
• 小ワザ
• アルゴリズム
• プラグイン
• モジュール
• マクロ

ETC

• 読み物
• 雑談
• IRCチャンネル
• 便利ツール
• ネタ収集BOX
• 用語集
• 外部リンク
• ご意見・ご要望

EDIT

• 練習ページ
• InterWikiName

REFERENCE

• 整形ルール
• プラグインマニュアル
• ここで導入中のプラグイン
• ヘルプ
• 逆引きHSP開発wiki
• Menuedit

LOG

• 人気/今日の100件
• RecentDeleted
• RenameLog

お知らせ

• お知らせ

HSP Web-Ring

最新の40件

小ワザ

アクションゲームソース公開 †

• アクションゲームを開発するための知識の習得。ショート部門にまとめるテクニックの習得

• 乱数制御によりステージマップ作成。上下強制移動と左右キー判定。壁衝突、ゴールド取得はマップチップによって判定。タイム、ステージ、スコア、自機などの変数を設定し表示管理。

• GOLD ROOM MINI（アクションゲーム）

  +

  オリジナルサンプル

  GRMINI.hsp 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 *ststst ;初期設定 title "GOLDROOMMINIver1.01" jiji=3 *tili screen 0,640,480 font "MS ゴシック",32 cls 4 stst=stst+1 ggll=0 ttll=0 randomize stst dim map,100,100 gosub *gogoco goto *cococo *gogoco ;マップチップ描画 buffer 3,32,128 font "MS ゴシック",32 cls 4 d=rnd(155)+99:e=rnd(155)+99:f=rnd(155)+99 repeat 32 a=cnt repeat 32 b=cnt*3 color 0,0,0 pset b/3,a c=rnd(3) b=b+c color e,d,f pset b,a+32 loop loop return *cococo color d,e,f pos 0,32 mes "◆" color 255,255,128 mes "▲" color 255,0,0 mes "ア" gsel 0 ;マップ描画 bg=0 repeat 20 x=cnt repeat 15 y=cnt a=rnd(9) aa=a if a<7:a=0:else:a=1 map.x.y=a b=rnd(27) if (x=0)|(y=1)|(x=19)|(y=14):map.x.y=1:goto *mama if (y=0)|((x=10)&(y=7)):map.x.y=0:goto *mama if (((b>24)|((ggll>5)&(ttll=0)&(b>12)))&(aa>7)&(x!10)):map.x.y=3:ttll=1:goto *mama if ((b>18)&(aa=6))|((b>8)&(aa=7)):map.x.y=2:ggll=ggll+1:goto *mama *mama a=map.x.y pos x*32,y*32 gcopy 3,0,a*32,32,a*32+32 loop loop x=10:y=7 titi=titi/3+1010-(stst*10) if titi<500:titi=500 gosub *pp await 200 a=0 ff=0 ffff=0 *main ;メイン移動処理 titi=titi-1 if titi<1:goto *miss1 gosub *pp sck=0 xx=x:yy=y stick a,5:alp=a *stmain if a=1 :goto *goleft if a=4 :goto *goright goto *gogo *goleft x=x-1:xxxa=x goto *gogo *goright x=x+1:xxxa=x goto *gogo *goup y=y-1:yyya=y return *godown y=y+1:yyya=y return *gogo if ff=1:gosub *godown:else:gosub *goup ffff=0 aa=map.x.y if (aa=1):ax=xx:ay=y:aaa=map.ax.ay:if (aaa!1):x=xx:goto *main2 if (aa=1):ax=x:ay=yy:aaa=map.ax.ay:if (aaa!1):ff=ff+1:ff=ff\2:ffff=1:y=yy:goto *main2 *gogo2 aa=map.x.y if (aa=1):x=xx:y=yy:ff=ff+1:ff=ff\2:ffff=1:goto *main2 *gogo3 aa=map.x.y if (aa=1):x=xx:y=yy:ff=ff+1:ff=ff\2:ffff=1:goto *main2 goto *main2 *main2 ;ゴールドを取った処理 aa=map.x.y if aa=2:ff=ff+1+ffff:ff=ff\2:gl=gl+5:ggll=ggll-1:map.x.y=0:if ggll=0:goto *clear if aa=3:goto *miss1 gosub *jiki aaa=100-(stst/5) await aaa goto *main *miss1 ;ミス処理 gosub *jiki jiji=jiji-1 gosub *pp stst=stst-1 titi=0 if jiji>0:pos 280,200:mes "MISS":gosub *push:goto *tili:else:pos 248,200:mes "GAME OVER" gosub *push end *clear ;クリア処理 gosub *jiki gosub *pp if stst=100:pos 248,200:mes "ALL CLEAR":else:pos 280,200:mes "CLEAR":goto *liii a=jiji*100 gl=gl+a pos 248,250 mes "BONUS"+a gosub *pp gosub *keykey end *liii a=stst\5 if a=0:pos 256,300:mes "JIKI 1UP":jiji=jiji+1 gosub *push goto *tili *jiki ;自機表示 color 0,0,0 boxf xx*32,yy*32,xx*32+31,yy*32+31 color 0,255,0 pos x*32,y*32 mes "○" pos x*32+4,y*32-2 mes "・" pos x*32+16-4,y*32-2 mes "・" color 255,255,255 return *push ;待ち処理 redraw 1 pos 208,400:mes "PUSH-SPACE-KEY" *keykey await 1 stick a if a=16:await 100:return goto *keykey *pp ;画面表示 redraw 0 color 0,0,0 boxf 0,0,640,32 color 255,255,255 pos 0,0 mes "STAGE "+stst pos 160,0 mes "SCORE "+gl pos 352,0 mes "JIKI "+jiji pos 480,0 mes "TIME "+titi redraw 1 return

  +

  オリジナル編集スクリプト

  GRMINIKAI.hsp 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 - | - | ! - | ! - | ! - | ! - | ! - | - | ! - - | ! ! - - | ! ! - | ! - | ! - | ! - - | ! ! - | - | ! - | - | ! - | ! *hajime ;初期設定 title "GOLDROOMMINIver1.01" player=3 *stageshokika screen 0,640,480 cls 4 font "MS ゴシック",32 stage=stage+1 fl_g=0 fl_o=0 randomize stage dim map,100,100 ;マップチップ描画 buffer 3,32,128 cls 4 font "MS ゴシック",32 cl_r=rnd(155)+99 cl_g=rnd(155)+99 cl_b=rnd(155)+99 repeat 32 ch_a=cnt repeat 32 ch_b=cnt*3 color 0,0,0 pset ch_b/3,ch_a ch_c=rnd(3) ch_b=ch_b+ch_c color cl_r,cl_g,cl_b pset ch_b,ch_a+32 loop loop color cl_r,cl_g,cl_b pos 0,32 mes "◆" color 255,255,128 mes "▲" color 255,0,0 mes "ア" gsel 0 ;マップ描画 repeat 20 dr_x=cnt repeat 15 dr_y=cnt ch_r=rnd(9) ch_e=ch_r if ch_r<7 { ch_r=0 } else { ch_r=1 } map.dr_x.dr_y=ch_r ch_c=rnd(27) if (dr_x=0)|(dr_y=1)|(dr_x=19)|(dr_y=14) { map.dr_x.dr_y=1:goto *mapjump } if (dr_y=0)|((dr_x=10)&(dr_y=7)) { map.dr_x.dr_y=0:goto *mapjump } if (((ch_c>24)|((fl_g>5)&(fl_o=0)&(ch_c>12)))&(ch_e>7)&(dr_x!10)) { map.dr_x.dr_y=3:fl_o=1:goto *mapjump } if ((ch_c>18)&(ch_e=6))|((ch_c>8)&(ch_e=7)) { map.dr_x.dr_y=2:fl_g=fl_g+1:goto *mapjump } *mapjump ch_r=map.dr_x.dr_y pos dr_x*32,dr_y*32 gcopy 3,0,ch_r*32,32,ch_r*32+32 loop loop pl_x=10:pl_y=7 ti_limit=ti_limit/3+1010-(stage*10) if ti_limit<500 :ti_limit=500 gosub *putgamen await 200 key_a=0 fl_fa=0 fl_fb=0 *main ;メイン移動処理 ti_limit=ti_limit-1 if ti_limit<1 :goto *miss1 gosub *putgamen pl_xx=pl_x:pl_yy=pl_y stick key_a,5:fl_key=key_a *secondmain if key_a=1 :goto *goleft if key_a=4 :goto *goright goto *move *goleft pl_x=pl_x-1 pl_xxx=pl_x goto *move *goright pl_x=pl_x+1 pl_xxx=pl_x goto *move *goup pl_y=pl_y-1 pl_yyy=pl_y return *godown pl_y=pl_y+1 pl_yyy=pl_y return *move if fl_fa=1 { gosub *godown } else { gosub *goup } fl_fb=0 ch_n=map.pl_x.pl_y if (ch_n=1) { pl_sx=pl_xx:pl_sy=pl_y:ch_nb=map.pl_sx.pl_sy:if (ch_nb!1) { pl_x=pl_xx:goto *shori } } if (ch_n=1) { pl_sx=pl_x:pl_sy=pl_yy:ch_nb=map.pl_sx.pl_sy:if (ch_nb!1) { fl_fa=fl_fa+1:fl_fa=fl_fa\2:fl_fb=1:pl_y=pl_yy:goto *shori } } ch_n=map.pl_x.pl_y if (ch_n=1) { pl_x=pl_xx:pl_y=pl_yy:fl_fa=fl_fa+1:fl_fa=fl_fa\2:fl_fb=1:goto *shori } ch_n=map.pl_x.pl_y if (ch_n=1) { pl_x=pl_xx:pl_y=pl_yy:fl_fa=fl_fa+1:fl_fa=fl_fa\2:fl_fb=1:goto *shori } ch_n=map.pl_x.pl_y if (ch_n=1) { pl_x=pl_xx:pl_y=pl_yy:fl_fa=fl_fa+1:fl_fa=fl_fa\2:fl_fb=1 } *shori ;ゴールドを取った処理 ch_n=map.pl_x.pl_y if ch_n=2 { fl_fa=fl_fa+1+fl_fb:fl_fa=fl_fa\2:sc=sc+5:fl_g=fl_g-1:map.pl_x.pl_y=0:if fl_g=0 { goto *clear } } if ch_n=3:goto *miss1 gosub *jiki ti_wait=100-(stage/5) await ti_wait goto *main *miss1 ;ミス処理 gosub *jiki player=player-1 gosub *putgamen stage=stage-1 ti_limit=0 if player>0 { pos 280,200:mes "MISS":goto *nextshori } else { pos 248,200:mes "GAME OVER" } gosub *push end *nextshori gosub *push goto *stageshokika *clear ;クリア処理 gosub *jiki gosub *putgamen if stage=100 { pos 248,200:mes "ALL CLEAR" } else { pos 280,200:mes "CLEAR":goto *nextstage } sc_b=player*100 sc=sc+sc_b pos 248,250 mes "BONUS"+sc_b gosub *putgamen gosub *keykey end *nextstage fl_s=stst\5 if fl_s=0 { pos 256,300:mes "JIKI 1UP":player=player+1 } gosub *push goto *stageshokika *jiki ;自機表示 color 0,0,0 boxf pl_xx*32,pl_yy*32,pl_xx*32+31,pl_yy*32+31 color 0,255,0 pos pl_x*32,pl_y*32 mes "○" pos pl_x*32+4,pl_y*32-2 mes "・" pos pl_x*32+16-4,pl_y*32-2 mes "・" color 255,255,255 return *push ;待ち処理 redraw 1 pos 208,400:mes "PUSH-SPACE-KEY" *keykey await 1 stick key_a if key_a=16:await 100:return goto *keykey *putgamen ;画面表示 redraw 0 color 0,0,0 boxf 0,0,640,32 color 255,255,255 pos 0,0 mes "STAGE "+stage pos 160,0 mes "SCORE "+sc pos 352,0 mes "JIKI "+player pos 480,0 mes "TIME "+ti_limit redraw 1 return

• 乱数制御してマップチップを描画とマップ自動描画。上下移動処理とキー入力により移動、壁衝突判定とゴールド取得処理（マップチップによって判定）。タイム管理。ステージ管理。自機管理。

• 変数の命名法は人それぞれだからあれだけど、字下げくらいはしてあってもいいんじゃないのかな？変数名にまで口出すと、おおよそプログラミングの教科書などでは推奨されない付け方だし、なんだか「読めるものなら読んでみろ」って気がしてならないのは私だけ？^^;変なところでwikiスペースを節約しなくてもその辺はCharlotteさんも理解してくれると思いますよ...。 -- kz3 2006-12-23 (土) 11:46:00
• これが昨年、秀和システム賞をとった作品だとは誰も思うまい。読みにくくてすみません。説明つけようとおもえばつけれますよ。 -- トホホッティー? 2006-12-23 (土) 12:21:21
• いや〜ソースとプログラムとは別じゃないですか？コンテストはソースの読みやすさとか競うわけじゃないし...。 -- kz3 2006-12-23 (土) 13:07:44
• とりあえず、サンプルプログラムという位置づけでいいですかね？ -- トホホッティー? 2006-12-23 (土) 13:41:10
• 簡単なルールは書いて欲しいかも・・・。 -- 黒猫白狼? 2006-12-23 (土) 18:27:34
• どうやらまだサンプルは未完成なようです。 -- kz3 2006-12-23 (土) 19:33:09
• サンプルは完成されてますが。動きが不自然に思えるところがあるかもしれないです。 -- トホホッティー? 2006-12-23 (土) 19:41:43
• aとかaaとかaaaとかまともな感覚で作れるプログラムじゃないな。どうせ変数の字数が多いとサイズが大きくなるって思って、置換でもしたんだろ。自分個人のWEBスペースならともかく人のWEBスペースに置かせてもらって『サンプルプログラム』という位置づけるなら、最初からサンプルらしく書けよ。HSPの本とかプログラミング雑誌とか他に投稿しているやつのサンプル読んでないのか？おにたま氏がこんなサンプル書いてんのか？何ひとりでひねくれたことやってんだよ。テクニック教える以前にサンプルの書き方を教えてもらえよ。あとこれが完成ってことはコンテストに投稿されてんのと同じってことだよな？font設定したあとにclsなんかやっちゃってfontの意味あんのかよ。フォント名も普通の人にはインストールされてねーものだしよ。なんでルール書いてほしいって書かれたのか考えたか？なんで未完成って思われたのか考えたか？たのむぜコンテスト受賞者。 -- 2006-12-23 (土) 20:52:36
• オリジナル編集スクリプト作ったのでご覧ください。ご指摘ありがとうございました。 -- トホホッティー? 2006-12-23 (土) 23:07:47
• ｈ -- 2011-11-30 (水) 21:21:49
• -- 2011-12-20 (火) 11:05:51
• この作者は80年代の書き方(特にBASIC)にこだわりがあるとみえる。字下げはしない、変数名は短い。 -- krozkin? 2013-05-15 (水) 20:29:17