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

投稿プログラム : 跳んで遊ぶだけのプログラム

2012年03月25日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム QRコード mkII専用

説明

ただ跳んで遊ぶだけのプログラムです。

床埋まりバグ

  1. 壁に張り付きます。
  2. ジャンプします。(このとき壁のほうに十字ボタンの入力を忘れずに)
  3. そして、着地する瞬間に十字ボタンを離してください。
  4. そしてジャンプすればめり込みます。

移動速度は-8ピクセルです。(右方向移動時)

スクリーンショット・動画

無いです

QR コード

プチコンmkII 向けの QR コードです。

1/42/4
qr0.pngqr1.png
3/44/4
qr2.pngqr3.png

セーブ&ロードとリプレイ機能を付けた。

1/62/63/6
qr0_.pngqr1_.pngqr2_.png
4/65/66/6
qr3_.pngqr4_.pngqr5_.png

プログラムリスト

  1. ’┌───────┐
  2. ’│RPGモト゛キ│
  3. ’└───────┘
  4. ’ver0.84
  5. ’0 ~3  フ゜レイヤ−
  6. ’4 ~44 テキ
  7. ’45~99 アイテム
  8. CLS:CLEAR
  9. VISIBLE 1,1,0,0,0,0
  10. GV=0.4:ET=30
  11. DIM PX(4),PY(4),PF(4)
  12. DIM SX(4),SY(4)
  13. DIM PHP(4),RNG(4)
  14. DIM AMX(4),AMN(4)
  15. DIM SMX(4),SMN(4)
  16. DIM STR(4),DEX(4),MAG(4)
  17. DIM PNL(32,24)
  18. DIM GAME(16)
  19. FOR I=0 TO 255
  20.  COLINIT”BG” ,I
  21.  COLINIT”SP” ,I
  22.  COLINIT”GRP”,I
  23. NEXT
  24. ?”カラ−ショキカ カンリョウ”
  25. SPPAGE 1:CHRINIT ”SPS0”
  26. SPPAGE 0
  27. FOR I=0 TO 7
  28. ’IF I<=3 THEN CHRINIT”BGU”+STR$(I)
  29.  IF 1    THEN CHRINIT”SPU”+STR$(I)
  30. NEXT
  31. ?”キャラショキカ カンリョウ”
  32. FOR P=0 TO 1
  33.  GPAGE 1−P :GCLS 0
  34.  SPPAGE 1−P:SPCLR
  35.  GPAGE 1−P
  36.  BGCLIP 0,0,31,23
  37.  FOR L=0 TO 1
  38.   ICONCLR L+P*2
  39.   BGOFS L,0,0
  40.   FOR H=0 TO 60
  41.    FOR V=0 TO 60
  42.     BGPUT L,H,V,0,0,0,0
  43.    NEXT V
  44.   NEXT H
  45.  NEXT L
  46. NEXT P
  47. ?”スクリ−ンショキカ カンリョウ”
  48. FOR I=0 TO 3
  49.  PX(I)=64+I*32
  50.  PY(I)=120
  51.  PF(I)=RND(2)+2
  52.  READ C
  53.  SPSET I,64+(PF(I) AND 1)*8,C,0,0,1
  54.  SPANIM I,4,9
  55.  SPOFS I,PX(I),PY(I)
  56. NEXT
  57. ?”ヘンスウノテイキ゛ カンリョウ”
  58. FOR J=0 TO 23
  59.  READ D$
  60.  FOR I=0 TO 31
  61.   PNL(I,J)=MID$(D$,I,1)!=”0”
  62.  NEXT
  63. NEXT
  64. SYSBEEP=0
  65. SYSBEEP=1
  66. GOSUB@BGD
  67. @LOOP
  68.  VSYNC 1
  69.  GOSUB@BTN
  70.  GOSUB@PLAYER
  71. GOTO@LOOP
  72. @BTN
  73.  BT=BUTTON():B=BUTTON()
  74.  IF LEN(PUT$)<256 THEN K$=INKEY$()
  75.  IF K$==CHR$(13) THEN K$=””:GOSUB@KEYBUT:PUT$=””
  76.  PUT$=PUT$+K$
  77. RETURN
  78. @KEYBUT
  79.  BEEP
  80. RETURN
  81. @PLAYER
  82. FOR I=0 TO 3
  83.  IF I!=0 THEN GOSUB@COM
  84.  IF BT AND 4 THEN PF(I)=PF(I) OR  1
  85.  IF BT AND 8 THEN PF(I)=PF(I) AND −2
  86.  PX(I)=PX(I)+SX(I)
  87.  PY(I)=PY(I)+SY(I)
  88.  IF(BT AND 16)!=0 AND(PF(I) AND 2)==0 THEN SY(I)=−2.3:PF(I)=PF(I)OR 2
  89.  SX(I)=SX(I)+SGN((BT AND 12)−6)*((BT AND 12)!=0)/(4*(1+((PF(I)AND 2)!=0)))
  90.  SX(I)=SX(I)−SGN(SX(I))*((PF(I) AND 2)==0AND(BT AND 12)==0)/8
  91.  FOR L=1 TO (PF(I) AND 2)!=0
  92.   SY(I)=SY(I)+GV/(2+((BT AND 16)!=0)*2)
  93.   IF SY(I)>6 THEN SY(I)=6
  94.  NEXT
  95.  H=0OR PX(I)/8:V=0OR PY(I)/8
  96.  IF PX(I)<0   THEN PX(I)=0  :SX(I)=0
  97.  IF PX(I)>239 THEN PX(I)=239:SX(I)=0
  98.  F(0)=1:F(1)=0
  99.  FOR X=0 TO 2
  100.   FOR Y=0 TO 2
  101.    IF H+X<0 OR H+X>31 THEN @PS_00
  102.    IF V+Y<0 OR V+Y>23 THEN @PS_00
  103. ’   IF SY(I)<0 AND PNL(X+H,Y+V)!=0 AND Y==0 THEN SY(I)=ABS(SY(I)):PY(I)=(V+1)*8
  104. ’   IF SY(I)>0 AND PNL(X+H,Y+V)!=0 AND Y==2 THEN PF(I)=PF(I) AND −3:SY(I)=0:PY(I)=(V)*8
  105. ’   H=0OR PX(I)/8:V=0OR PY(I)/8
  106.    F=SX(I)<0 AND PNL(X+H,Y+V)!=0 AND Y<2 AND F(1)==0 AND X==0
  107.    IF F THEN CJC(I)=RND(50):SX(I)=0:F(1)=1:PX(I)=(H+X+1)*8
  108.    F=SX(I)>0 AND PNL(X+H,Y+V)!=0 AND Y<2 AND F(1)==0 AND X==2
  109.    IF F THEN CJC(I)=RND(50):SX(I)=0:F(1)=1:PX(I)=(H+X−2)*8−0.125
  110.    H=0OR PX(I)/8:V=0OR PY(I)/8
  111.    IF SY(I)<0 AND PNL(X+H,Y+V)!=0 AND Y==0 THEN SY(I)=ABS(SY(I)):PY(I)=(V+1)*8:CJC(I)=CJC(I)
  112.    IF SY(I)>0 AND PNL(X+H,Y+V)!=0 AND Y==2 THEN PF(I)=PF(I) AND −3:SY(I)=0:PY(I)=(V)*8CJC(I)=CJC(I)
  113.    IF (PF(I) AND 2)!=0 OR PNL(X+H,Y+V)!=0 AND Y==2 THEN F(0)=0
  114.    @PS_00
  115.   NEXT
  116.  NEXT
  117.  IF F(0) AND V+2>=0 THEN SY(I)=0:PF(I)=PF(I) OR 2
  118.  IF ABS(SX(I))>2 THEN SX(I)=SGN(SX(I))*2
  119.  SPOFS I,PX(I)+0.5,PY(I)+0.5
  120.  SPCHR I,64+(PF(I) AND 1)*8
  121. NEXT
  122. RETURN
  123. @COM
  124. BT=0:Q=0
  125. IF PX(0)+8<PX(I) THEN BT=4:Q=1
  126. IF PX(0)−8>PX(I) THEN BT=8:Q=1
  127. IF Q==0 AND RND(16)==0 THEN BCR(I)=RND(31)−15
  128. IF BCR(I) THEN BCR(I)=BCR(I)−SGN(BCR(I)):BT=4+(BCR(I)>0)*4
  129. IF RND(32)==0 THEN CJC(I)=RND(50)
  130. CJC(I)=CJC(I)−(CJC(I)>0)
  131. IF CJC(I) THEN BT=BT OR 16
  132. RETURN
  133. @BGD_
  134. VISIBLE 1,1,0,0,0,0
  135. CLS:LOCATE 17,21?”Now loading・・・”;
  136. FOR H=0 TO 31
  137.  FOR V=0 TO 23
  138.   C$=STR$(0OR (V+H*24)/768*100)+”%”
  139.   LOCATE 30−LEN(C$),22:?C$;
  140.   GFILL H*8,V*8,H*8+7,V*8+7,PNL(H,V)
  141.  NEXT V
  142. NEXT H
  143. CLS
  144. VISIBLE 1,1,1,0,1,1
  145. RETURN
  146. @BGD
  147. VISIBLE 1,1,0,0,0,0
  148. CLS:LOCATE 17,21?”Now loading・・・”;
  149. FOR H=0 TO 31
  150.  FOR V=0 TO 23
  151.   D=1:D_=0
  152.   C$=STR$(0OR (V+H*24)/768*100)+”%”
  153.   LOCATE 30−LEN(C$),22:?C$;
  154.   IF PNL(H,V)==0 THEN @PS_01
  155.   FOR R=0 TO 8
  156.    F_=H+R%3−1<0 OR H+R%3−1>31 OR V+R/3−1<0 OR V+(0OR R/3)−1>23 OR R==4
  157.    IF F_==0 THEN F_=F_ AND PNL(H,V)!=0
  158.    FOR F=F_ TO 0
  159.     IF PNL(H+R%3−1,V+R/3−1) THEN D_=D_ OR D
  160.    NEXT F
  161.    D=D+D*(R!=4)
  162.   NEXT R
  163.   @PS_01
  164.   BGPUT 0,H,V,(D_+256)*PNL(H,V),0,0,0
  165.  NEXT V
  166. NEXT H
  167. CLS
  168. VISIBLE 1,1,1,0,1,1
  169. RETURN
  170. DATA 2,0,7,5
  171. @MAPDATA
  172. DATA”00000000000000000000000000000000”
  173. DATA”00000000000000000000000000000000”
  174. DATA”00000000000000000000000000000000”
  175. DATA”00000000000000000000000000000000”
  176. DATA”00000000000000000000000000000000”
  177. DATA”00000000000000000000000000000000”
  178. DATA”00000000000000000000000000000000”
  179. DATA”00000000000000000000000000000000”
  180. DATA”00000000000000000000000000000000”
  181. DATA”00000000000000000000000000000000”
  182. DATA”00000000000000000000000000000000”
  183. DATA”00000000000000000000000000000000”
  184. DATA”00000000000000000000000000000000”
  185. DATA”00000000000000000000000000000000”
  186. DATA”00000000000000000000000000000000”
  187. DATA”00000000000000000000000000000000”
  188. DATA”00000000000000000000000000000000”
  189. DATA”10000000000000000000000000000001”
  190. DATA”10000000000000000000000000000001”
  191. DATA”10000000000000000000000000000001”
  192. DATA”11000000000000000000000000000011”
  193. DATA”11111000000000000000000000011111”
  194. DATA”11111111111111111111111111111111”
  195. DATA”11111111111111111111111111111111”

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

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

  • ロジウム : スマ〇ラみたいな感じがしますね。 (2012/03/25 (日) 08:06:45)
  • 名無しさん : 無重力っぽい (2012/03/25 (日) 10:58:53)
  • 名無しさん : わ!バグッタ (2012/03/25 (日) 11:06:23)
  • 名無しさん : 3人が地面の下… (2012/03/25 (日) 11:06:54)
  • hatena : 合ってるかわかりませんが一応プログラムリストを載せました。 (2012/03/25 (日) 19:55:49)
    • 投稿者 : hatenaさん、ありがとうございます。 (2012/03/25 (日) 23:04:37)
  • hatena : 180行から下を書き換えるとステージが作れますね。 (2012/03/25 (日) 19:57:13)
  • ロジウム : Aボタンジャンプを↑ボタンジャンプに変えたいのですが、やってみたらステージが変な感じになったんですが… (2012/03/25 (日) 20:28:55)
  • 名無し : ゴールとかつくれるかね? (2012/04/03 (火) 14:43:37)
  • 名無しさん : 暇な時に!? (2012/04/06 (金) 17:42:00)
  • 名無しさん : オオ 操作記憶ができる 凄い (2012/04/06 (金) 19:03:13)
  • ウイングの友達 : バトルしたいな・・・。 (2012/05/05 (土) 11:53:32)
  • キービィ : 地面に埋まると十字操作の左右が逆にw (2012/07/25 (水) 12:46:01)
  • ガス : どうやんだ? (2013/06/01 (土) 20:27:09)
  • 名無しさん : 床埋まりバグは間違いのようだな (2013/06/01 (土) 20:45:04)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.033 秒 | このページの最終更新 : 2013/06/01 (土) 20:45:04 (2239d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30