2012年03月25日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム QRコード mkII専用
ただ跳んで遊ぶだけのプログラムです。
移動速度は-8ピクセルです。(右方向移動時)
無いです
プチコンmkII 向けの QR コードです。
セーブ&ロードとリプレイ機能を付けた。
- ’┌───────┐
- ’│RPGモト゛キ│
- ’└───────┘
- ’ver0.84
- ’0 ~3 フ゜レイヤ−
- ’4 ~44 テキ
- ’45~99 アイテム
- CLS:CLEAR
- VISIBLE 1,1,0,0,0,0
- GV=0.4:ET=30
- DIM PX(4),PY(4),PF(4)
- DIM SX(4),SY(4)
- DIM PHP(4),RNG(4)
- DIM AMX(4),AMN(4)
- DIM SMX(4),SMN(4)
- DIM STR(4),DEX(4),MAG(4)
- DIM PNL(32,24)
- DIM GAME(16)
- FOR I=0 TO 255
- COLINIT”BG” ,I
- COLINIT”SP” ,I
- COLINIT”GRP”,I
- NEXT
- ?”カラ−ショキカ カンリョウ”
- SPPAGE 1:CHRINIT ”SPS0”
- SPPAGE 0
- FOR I=0 TO 7
- ’IF I<=3 THEN CHRINIT”BGU”+STR$(I)
- IF 1 THEN CHRINIT”SPU”+STR$(I)
- NEXT
- ?”キャラショキカ カンリョウ”
- FOR P=0 TO 1
- GPAGE 1−P :GCLS 0
- SPPAGE 1−P:SPCLR
- GPAGE 1−P
- BGCLIP 0,0,31,23
- FOR L=0 TO 1
- ICONCLR L+P*2
- BGOFS L,0,0
- FOR H=0 TO 60
- FOR V=0 TO 60
- BGPUT L,H,V,0,0,0,0
- NEXT V
- NEXT H
- NEXT L
- NEXT P
- ?”スクリ−ンショキカ カンリョウ”
- FOR I=0 TO 3
- PX(I)=64+I*32
- PY(I)=120
- PF(I)=RND(2)+2
- READ C
- SPSET I,64+(PF(I) AND 1)*8,C,0,0,1
- SPANIM I,4,9
- SPOFS I,PX(I),PY(I)
- NEXT
- ?”ヘンスウノテイキ゛ カンリョウ”
- FOR J=0 TO 23
- READ D$
- FOR I=0 TO 31
- PNL(I,J)=MID$(D$,I,1)!=”0”
- NEXT
- NEXT
- SYSBEEP=0
- SYSBEEP=1
- GOSUB@BGD
- @LOOP
- VSYNC 1
- GOSUB@BTN
- GOSUB@PLAYER
- GOTO@LOOP
- @BTN
- BT=BUTTON():B=BUTTON()
- IF LEN(PUT$)<256 THEN K$=INKEY$()
- IF K$==CHR$(13) THEN K$=””:GOSUB@KEYBUT:PUT$=””
- PUT$=PUT$+K$
- RETURN
- @KEYBUT
- BEEP
- RETURN
- @PLAYER
- FOR I=0 TO 3
- IF I!=0 THEN GOSUB@COM
- IF BT AND 4 THEN PF(I)=PF(I) OR 1
- IF BT AND 8 THEN PF(I)=PF(I) AND −2
- PX(I)=PX(I)+SX(I)
- PY(I)=PY(I)+SY(I)
- IF(BT AND 16)!=0 AND(PF(I) AND 2)==0 THEN SY(I)=−2.3:PF(I)=PF(I)OR 2
- SX(I)=SX(I)+SGN((BT AND 12)−6)*((BT AND 12)!=0)/(4*(1+((PF(I)AND 2)!=0)))
- SX(I)=SX(I)−SGN(SX(I))*((PF(I) AND 2)==0AND(BT AND 12)==0)/8
- FOR L=1 TO (PF(I) AND 2)!=0
- SY(I)=SY(I)+GV/(2+((BT AND 16)!=0)*2)
- IF SY(I)>6 THEN SY(I)=6
- NEXT
- H=0OR PX(I)/8:V=0OR PY(I)/8
- IF PX(I)<0 THEN PX(I)=0 :SX(I)=0
- IF PX(I)>239 THEN PX(I)=239:SX(I)=0
- F(0)=1:F(1)=0
- FOR X=0 TO 2
- FOR Y=0 TO 2
- IF H+X<0 OR H+X>31 THEN @PS_00
- IF V+Y<0 OR V+Y>23 THEN @PS_00
- ’ 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
- ’ 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
- ’ H=0OR PX(I)/8:V=0OR PY(I)/8
- F=SX(I)<0 AND PNL(X+H,Y+V)!=0 AND Y<2 AND F(1)==0 AND X==0
- IF F THEN CJC(I)=RND(50):SX(I)=0:F(1)=1:PX(I)=(H+X+1)*8
- F=SX(I)>0 AND PNL(X+H,Y+V)!=0 AND Y<2 AND F(1)==0 AND X==2
- IF F THEN CJC(I)=RND(50):SX(I)=0:F(1)=1:PX(I)=(H+X−2)*8−0.125
- H=0OR PX(I)/8:V=0OR PY(I)/8
- 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)
- 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)
- IF (PF(I) AND 2)!=0 OR PNL(X+H,Y+V)!=0 AND Y==2 THEN F(0)=0
- @PS_00
- NEXT
- NEXT
- IF F(0) AND V+2>=0 THEN SY(I)=0:PF(I)=PF(I) OR 2
- IF ABS(SX(I))>2 THEN SX(I)=SGN(SX(I))*2
- SPOFS I,PX(I)+0.5,PY(I)+0.5
- SPCHR I,64+(PF(I) AND 1)*8
- NEXT
- RETURN
- @COM
- BT=0:Q=0
- IF PX(0)+8<PX(I) THEN BT=4:Q=1
- IF PX(0)−8>PX(I) THEN BT=8:Q=1
- IF Q==0 AND RND(16)==0 THEN BCR(I)=RND(31)−15
- IF BCR(I) THEN BCR(I)=BCR(I)−SGN(BCR(I)):BT=4+(BCR(I)>0)*4
- IF RND(32)==0 THEN CJC(I)=RND(50)
- CJC(I)=CJC(I)−(CJC(I)>0)
- IF CJC(I) THEN BT=BT OR 16
- RETURN
- @BGD_
- VISIBLE 1,1,0,0,0,0
- CLS:LOCATE 17,21?”Now loading・・・”;
- FOR H=0 TO 31
- FOR V=0 TO 23
- C$=STR$(0OR (V+H*24)/768*100)+”%”
- LOCATE 30−LEN(C$),22:?C$;
- GFILL H*8,V*8,H*8+7,V*8+7,PNL(H,V)
- NEXT V
- NEXT H
- CLS
- VISIBLE 1,1,1,0,1,1
- RETURN
- @BGD
- VISIBLE 1,1,0,0,0,0
- CLS:LOCATE 17,21?”Now loading・・・”;
- FOR H=0 TO 31
- FOR V=0 TO 23
- D=1:D_=0
- C$=STR$(0OR (V+H*24)/768*100)+”%”
- LOCATE 30−LEN(C$),22:?C$;
- IF PNL(H,V)==0 THEN @PS_01
- FOR R=0 TO 8
- 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
- IF F_==0 THEN F_=F_ AND PNL(H,V)!=0
- FOR F=F_ TO 0
- IF PNL(H+R%3−1,V+R/3−1) THEN D_=D_ OR D
- NEXT F
- D=D+D*(R!=4)
- NEXT R
- @PS_01
- BGPUT 0,H,V,(D_+256)*PNL(H,V),0,0,0
- NEXT V
- NEXT H
- CLS
- VISIBLE 1,1,1,0,1,1
- RETURN
- DATA 2,0,7,5
- @MAPDATA
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”00000000000000000000000000000000”
- DATA”10000000000000000000000000000001”
- DATA”10000000000000000000000000000001”
- DATA”10000000000000000000000000000001”
- DATA”11000000000000000000000000000011”
- DATA”11111000000000000000000000011111”
- DATA”11111111111111111111111111111111”
- DATA”11111111111111111111111111111111”
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.136 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:17 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30