Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/02/10 21:34:01

MixJuice GET URL : kidspod.club/mj/461

縄跳びさっちゃんぷらす

「縄跳びさっちゃん」にキャラクターグラフィックが付きました!

改変元の「縄跳びさっちゃんゲーム」はこちら
http://kidspod.club/program/?id=3

【権利表記】
「縄跳びさっちゃん」は「クリエイティブ・コモンズ 表示 4.0 国際ライセンス」の下に提供されています。
http://pcn.club/sp/diprogram/

CC BY PCN

【更新履歴】
2018/02/10 初版公開
2018/02/27 コード最適化
2018/12/17 コード最適化、ちらつき低減、コメントで権利表記埋め込み
2018/12/17 アドレス値の間違いを修正(Thanks to Ruria Amanagi様@IchigoJam-FAN)

【ソースコード解説】(改変箇所のみ)
《変数》
I,J : Iterator, ループ変数
T, : Temporary, 一時変数(キャラクターの文字列定義に使用)

《PCGパターン》
キャラクターは縦 4 文字、横 2 文字の合計 8 文字で表現しています。
#E0 ~ #E7 : ジャンプ中のキャラクター
#E8 ~ #EF : 通常の状態のキャラクター

#780 ~ : ジャンプ中のキャラクターの文字列
#795 ~ : 通常の状態のキャラクターの文字列

《コード》
5 : タイトル
10 ~ 40 : ジャンプ中のキャラクターパターン定義
50 ~ 80 : 通常の状態のキャラクターパターン定義
90 : キャラクターの文字列定義
100 : 以下のソースコードは「縄跳びさっちゃん」のソースコードを基にしていることを示すコメント
110 ~ 230 : 「縄跳びさっちゃん」のソースコード(以下、改変箇所のみ記載)
 全体 : Yのデフォルト値を 22 から 18 へ変更(キャラクターの背が高さの分を減少)
 190 : さっちゃんのキャラクター描画処理に置換

  • 1
  • 2
  • 3
  • 4
  • 5
  • 1
  • 2
  • 3
  • 4
  • 5

SOURCE CODE

5 'Nawatobi Sacchan Plus
10 POKE #700,15,16,31,31,63,255,127,255,0,0,248,254,254,239,247,251
20 POKE #710,207,119,107,87,72,176,160,87,203,187,77,165,69,130,106,20
30 POKE #720,163,223,92,55,47,31,127,207,19,243,22,236,244,244,248,252
40 POKE #730,53,72,40,27,4,4,2,1,250,145,138,108,144,144,188,206
50 POKE #740,15,16,31,31,63,255,127,255,0,0,248,254,254,239,247,251
60 POKE #750,226,93,98,72,72,136,160,87,59,221,61,151,134,132,86,43
70 POKE #760,35,23,28,15,55,111,111,255,23,241,16,248,236,246,247,255
80 POKE #770,233,73,137,246,9,9,31,62,39,19,18,254,32,32,240,248
90 FOR I=0 TO 1:FOR J=0 TO 3:T=#E0+I*8+J*2:POKE #780+I*21+J*5,T,T+1,31,28,28:NEXT:NEXT
100 'The following code is based on "Nawatobi Sacchan" - CC BY PCN
110 Y=18:V=99:X=15:U=5:S=0
120 IF V!=99 Y=Y+V:V=V+1
130 IF Y>18 Y=18:V=99:S=S+1
140 X=X+U
150 IF X>15 U=U-1
160 IF X<15 U=U+1
170 IF INKEY()=32 V=-3
180 CLS
190 LC 15,Y:?STR$(#780+(V=99)*21,17);
200 LC X,22:?"-";
210 LC 0,0:?"SCORE:";S
220 IF Y=18 AND X=15 END
230 WAIT 5 : GOTO 120

COMMENT

Kidspod運営チーム
Kidspod運営チーム2018/02/23 17:57:35

「縄跳びさっちゃん」の改造、ありがとうございます! ものすごくかわいらしくなりましたね。やはりグラフィックは素敵な方が面白い!