プチコンまとめWiki (初代/mkII)

ナビゲーション

ウィキ メニュー  :  編集 - 差分 - 添付 - 新規 - 検索 - 一覧 - 新着 - ヘルプ

投稿プログラム : 暇だったから作ったレースゲー

2013年5月23日投稿 / 投稿者 : 暁 / タグ : 投稿プログラム QRコード mkII専用

概要

ただの糞ゲー。(かもしれない)

CPUとかもいないのでタイムアタックにしか使えない、友達と競ったり、自分でCPU作って遊んだりしてください(殴

ページ作成にいろんな人に手伝って貰いました、手伝ってくれたかたありがとうございます!!

画面説明

下の緑のゲージはドリフトか何かのゲージ(説明しにくいから見れば分かるかも

下の青いゲージは二周ごとにゲージが溜まり、ターボに使う

下のピンクのゲージは耐久力を示していて、壁にぶつかったりしてゲージが無くなるとクラッシュになる

遊び方

A:ドリフト

R:下の青いゲージがたまったらターボ可能

←→:向きを変えたり等

QRコード

PRG
1/22/2
prg1.pngprg2.png
MAP1MAP2
map1.pngmap2.png

プログラムリスト

  1. @START
  2. ACLS:CLEAR:BGMSTOP:PNLTYPE ”OFF”
  3. FOR I=0 TO 3
  4. HTIME(I)=99999
  5. NEXT
  6. ST=1
  7. @ST
  8. ACLS
  9. HP=50
  10. TIME=0
  11. TB=0
  12. TB2=0
  13. DS=0
  14. V=0
  15. GL=0
  16. GLS=0
  17. AN=90
  18. MV=2:MX=6:MY=6:MMV=4000
  19. SPSET 0,176,13,0,0,0
  20. SPHOME 0,8,8
  21. SPANIM 0,2,5
  22. SPOFS 0,123,99
  23. GPAGE 1
  24. GFILL 10,191−(FLOOR(V*20)),20,191,11
  25. GFILL 50,191−HP,60,191,3
  26. GBOX 9,150,21,191,15
  27. GBOX 29,91,41,191,15
  28. GBOX 49,141,61,191,15
  29. X=5:Y=8:AN=90
  30. A=AN+90−(AN>360)*360
  31. SPANGLE 0,A
  32. BGOFS 0,X,Y
  33. SYSBEEP=0
  34. LOAD”SCU0:VGM3”+STR$(ST),0
  35. SYSBEEP=1
  36. @C
  37. PNLSTR 1,1,”LAP ”+STR$(GLS)+”/5”
  38. PNLSTR 1,2,STR$(TIME)
  39. PNLSTR 20,2,”1ST ”+STR$(HTIME(0)),0
  40. PNLSTR 20,4,”2ND ”+STR$(HTIME(1)),0
  41. PNLSTR 20,6,”3RD ”+STR$(HTIME(2)),0
  42. IF TB==0 THEN TB$=”NO”:CL=13
  43. IF TB==1 THEN TB$=”OK!”:CL=4
  44. PNLSTR 1,4,”TUBO ”+TB$+” ”,CL
  45. WAIT 120
  46. BEEP 20
  47. PNLSTR 13,12,”  3  ”
  48. WAIT 60
  49. BEEP 20
  50. PNLSTR 13,12,”  2  ”
  51. WAIT 60
  52. BEEP 20
  53. PNLSTR 13,12,”  1  ”
  54. WAIT 60
  55. BEEP 20,8000
  56. PNLSTR 13,12,”     ”
  57. @A
  58. VSYNC 1
  59. GCLS
  60. GFILL 10,191−(FLOOR(V*20)),20,191,11
  61. IF TB==1 THEN GFILL 30,91,40,191,4
  62. IF TB2==1 THEN GFILL 30,191−(FLOOR(DS/3)),40,191,RND(255)
  63. GFILL 50,191−HP,60,191,3
  64. GBOX 9,150,21,191,15
  65. GBOX 29,91,41,191,15
  66. GBOX 49,141,61,191,15
  67. SPCHR 0,176,13,0,0,0
  68. BGREAD(0,FLOOR((X+123)/8),FLOOR((Y+99)/8)),C,I,I,I
  69. PNLSTR 1,1,”LAP ”+STR$(GLS)+”/5”
  70. PNLSTR 1,2,STR$(TIME)
  71. IF TB==0 THEN TB$=”NO”:CL=13
  72. IF TB==1 THEN TB$=”OK!”:CL=4
  73. PNLSTR 1,4,”TUBO ”+TB$+” ”,CL
  74. V=V−0.1
  75. MV=2
  76. IF C==942 THEN MV=1
  77. IF C==791 OR C==790 THEN MV=1
  78. TIME=TIME+1
  79. DS=DS−1
  80. IF DS<0 THEN DS=0:TB2=0
  81. IF DS>0 THEN X=X+SIN(RAD(AN))*V:Y=Y−COS(RAD(AN))*V
  82. IF BUTTON() AND 4 THEN AN=AN−MX
  83. IF BUTTON() AND 8 THEN AN=AN+MY
  84. IF BUTTON() AND 16 THEN V=V+0.15
  85. IF BUTTON() AND 512 THEN IF TB==1 THEN DS=300:TB=0:TB2=1
  86. IF AN<0 THEN AN=AN+360
  87. IF AN>360 THEN AN=AN−360
  88. IF V<0 THEN V=0
  89. IF V>MV THEN V=MV
  90. X=X+SIN(RAD(AN))*V
  91. Y=Y−COS(RAD(AN))*V
  92. IF C==781 THEN X=X−SIN(RAD(AN))*10:Y=Y+COS(RAD(AN))*10:BEEP 11,−8000:V=V−1:HP=HP−(RND(2)+1)
  93. IF C==56 AND GL==1 THEN BEEP 12:GL=0:GLS=GLS+1:IF GLS==2 OR GLS==4 THEN TB=1
  94. IF C==783 AND GL==0 THEN GL=1
  95. IF C==806 AND DS==0 THEN DS=60
  96. IF C==571 THEN X=X+SIN(RAD(AN))*V:Y=Y−COS(RAD(AN))*V
  97. IF C==570 THEN HP=HP+0.1:SPCHR 0,176,RND(16),0,0,0
  98. IF HP>50 THEN HP=50
  99. BEEP 1,V*MMV
  100. IF DS>0 THEN BEEP 0,V*MMV
  101. BGOFS 0,X,Y
  102. A=AN+90−(AN>360)*360
  103. SPANGLE 0,A
  104. IF GLS==5 THEN @CLEAR
  105. IF HP<0 THEN @GOVER
  106. GOTO @A
  107. @GO
  108. BEEP 6
  109. FOR I=100 TO 0 STEP −5
  110.  VSYNC 1
  111.  SPSCALE 0,I
  112. NEXT
  113. GOTO @ST
  114. @CLEAR
  115. PNLSTR 1,1,”LAP ”+STR$(GLS)+”/5”
  116. PNLSTR 1,2,STR$(TIME)
  117. PNLSTR 13,12,”GOAL!!”
  118. BEEP 42
  119. HTIME(3)=TIME
  120. SORT 0,4,HTIME
  121. @CLEAR2
  122. VSYNC 1
  123. CL1=0
  124. CL2=0
  125. CL3=0
  126. CL4=0
  127. IF TIME==HTIME(0) THEN CL1=RND(15):I=0
  128. IF TIME==HTIME(1) THEN CL2=RND(15):I=0
  129. IF TIME==HTIME(2) THEN CL3=RND(15):I=0
  130. IF TIME==HTIME(3) THEN CL4=RND(15):I=1
  131. PNLSTR 20,2,”1ST ”+STR$(HTIME(0))+”  ”,CL1
  132. PNLSTR 20,4,”2ND ”+STR$(HTIME(1))+”  ”,CL2
  133. PNLSTR 20,6,”3RD ”+STR$(HTIME(2))+”  ”,CL3
  134. IF I==1 THEN PNLSTR 20,8,”    ”+STR$(HTIME(3)),CL4
  135. IF BTRIG() AND 16 THEN GOTO @ST
  136. GOTO @CLEAR2
  137. @GOVER
  138. BGMSTOP
  139. SPCHR 0,248
  140. SPANIM 0,8,5
  141. PNLSTR 13,12,”CRASH!!”
  142. BEEP 13
  143. FOR I=0 TO 1
  144.  I=0
  145.  VSYNC 1
  146.  IF BTRIG() AND 16 THEN I=1
  147.  NEXT
  148. GOTO @ST

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

+  まあいろいろあってね...
  • : #regionテスト (2013/05/25 (土) 11:20:20)
  • : よし、大丈夫か、それではどうぞ (2013/05/25 (土) 11:20:47)
  • 名無しさん : ( ・∀・) イイネ!( ´∀`)暇だったからって作れるもんなのかw (2013/05/25 (土) 18:35:42)
  • : コメントが少ないことは承知していたよ・・・ (2013/05/26 (日) 16:39:52)
  • はる : 面白いです! QRを貼れてよかったですね。 (2013/05/26 (日) 22:47:32)
  • ヤッフー : うわー、神だー。(自分と比べたr) (2013/05/27 (月) 13:28:52)
  • あなたは神 : レースゲーム探していたんだ。 (2013/05/30 (木) 16:48:45)
  • atエンタ対戦囲碁 : これは糞ゲーではないよ。逆に神ゲー (2013/05/30 (木) 16:50:02)
  • : 壁にぶつがったときのやつがちょっと疑ってしまうんですけどねw神ゲーまではいかないですよw友達に糞ゲー糞ゲー言われてたんでw (2013/05/31 (金) 17:36:25)
  • : LOAD”SCU0:VGM3”+STR$(ST),0  ここしまったなぁ・・・すっかり忘れてた、VGM3をLSに変えるの、 (2013/05/31 (金) 17:39:39)
  • : ってあれ?今思ったけどタグがなんかついてる、俺つけたっけな・・・ (2013/05/31 (金) 17:50:53)
  • もろこし : このゲームの致命的な欠点を発見しましたwまずstartしたら走る!そして灰色のモノを踏んでstart地点に戻ります。するとlapが1あがりますwそれの繰り返しで3300というスコアを叩き上げましたw作者さん確認お願いします。 長文失礼しました。 (2013/06/09 (日) 14:43:25)
  • もろこし : ↑この裏技は確かだけどノーミスで行けば3369というスコアを出せたw つまり↑の裏技は殆ど意味ないですねw (2013/06/09 (日) 15:01:45)
  • プチコン初心者 : 誰かこのゲームにリプレイ機能を付けてください!どこかのこうざにやりかたが載っていたのですが、このゲームに合わせる方法がわかりません・・・誰か作ってくれませんか、それかプログラムをどこにどう組めばいいのかを教えてください。すいません、初心者なので・・・お願いします! (2013/06/09 (日) 15:34:45)
  • 名無しさん : 自分でやったら初心者から抜け出せるかもよ (2013/06/09 (日) 16:42:51)
  • プチコン初心者 : 上の方 そうですね、頑張ってやってみます!でもそのサイトを忘れてしまって・・・やり方のヒントだけでもください!お願いします!(たしかGRP?ときうのを使うんでしたっけ?) (2013/06/09 (日) 17:30:00)
  • プチコン初心者 : ↑ときうのmiss・・・ 正 とかいうもの でしたw (2013/06/09 (日) 17:40:52)
  • 名無しさん : ↑お茶目さんのところにあるよ ヒントあげたからあとは頑張ってね (2013/06/09 (日) 17:49:28)
  • プチコン初心者 : ↑の方ありがとうございます!かなり前に見た記憶かあったのですがどんなサイトだったか忘れてしまい・・・でも上の名無しさんのおかげでできるようになって1つ自信がつきました!ありがとうございました! (2013/06/09 (日) 20:42:17)
  • プチコン初心者 : 上の方のもろこしsの裏技で2854という記録をリプレイテスト中に確認しましたw 作者さん対応するべき問題なのでしょうか?これはこれで面白いと思うのですがw (2013/06/09 (日) 20:52:51)
  • 猫姫 : リプレイを発展させて、ゴースト機能にすることも、できますよね。背景スクロールとの関係が面倒そうですが。 (2013/06/10 (月) 19:14:33)
  • はる : バグ発見しました! ○=自機 □=壁 □□□ □○ □ こんな感じの場所で左の壁にほんのちょっとだけ自機をかたむけてAボタンをおすと壁をすり抜けます! でも、結構面白いです。 (2013/06/11 (火) 17:06:57)
  • はる : ↑あ、3DSでかいたらこうなっちゃうのか・・・ (2013/06/11 (火) 17:09:05)
  • はる :                                 □□□                               □○                                □ これでいけるかな?何回もごめんなさい。 (2013/06/11 (火) 17:32:12)
  • たしかに : 壁貫通バグ発覚、仕様ですか、バグですか。 (2013/06/14 (金) 00:17:35)
  • : 久しぶりに来た、えーと灰色のやつを踏んでスタートに戻ったら1lapする件ですが、自分まだまだバカなので一周して1lapという方法を上手く再現する方法がわからないのです、だからBGであーたらこーたらして適当に1lapする機能を付けて、まぁ出来たと言うわけでふ、だからバグっつうか仕様っぽいもんですね、あ、ちなみに教えて貰っても改善する気はない(QRの貼り方orzip解凍とかがわかんないため (2013/06/16 (日) 23:48:25)
  • : んで、壁貫通バグも一応仕様ということで、 (2013/06/16 (日) 23:49:58)
  • : まぁこのように頭の悪い自分がほぼ適当に作った糞ゲーなんで、まぁバグとかあっても気にしないで無視しちゃってください、または自分で直すとか(殴 (2013/06/16 (日) 23:55:27)
  • 猫姫 : チェックポイントをもう一つ増やすのはどうですか。3つのポイントを順番に踏んで、一周。 (2013/06/17 (月) 02:17:43)
  • : 良いと思いますけど...zip解凍の仕方もわからないし貼り直すことは無理っすね...すいません (2013/06/17 (月) 23:49:05)
  • : めっきり誰もこなくなった(笑) (2013/07/18 (木) 20:50:24)
  • cmk、 : PTCファイルあげてくれたらQRつくりますよ。 (2013/07/18 (木) 22:25:26)
  • 神風 : むずかしすぎるぞこれはww (2013/08/13 (火) 12:04:52)
  • GAME6の人 : すり抜けオモロwww (2013/12/08 (日) 20:56:42)
  • GAME6の人 : 通信に失敗しました。 ばっかり出るww (2013/12/08 (日) 20:58:30)
  • : 久々に見に来た、通信に失敗しました?どゆこと? (2013/12/23 (月) 13:32:00)
  • : ちょっとqrの貼り方わかったし知識もかなり増えたから更新するかな...近いうちに (2014/02/10 (月) 09:22:47)
  • : すり抜けは治せそうに無いかもだけど(殴 (2014/02/10 (月) 09:24:43)
  • エルレン : プログラムを書き換えれば「オワタ式」ができるねww (2014/06/07 (土) 21:58:05)
  • : この年にもなると、自分が過去にどれだけ恥ずかしいコメントをしていたかがようわかるな、完全に餓鬼としか思えない (2017/04/23 (日) 06:18:08)
  • : JavaやらCやらに没頭してたけど、初心に戻ってまたプチコン触りたいなぁ (2017/04/23 (日) 06:19:36)
  • はる : じゃ、触レバー? (2017/08/03 (木) 16:44:06)

PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.067 秒 | このページの最終更新 : 2017/08/03 (木) 16:44:06 (54d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30