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

投稿プログラム : ドアまで忍者!

パンくずリスト

2012年08月15日投稿 / 投稿者 : 中1プログラマー? / タグ : 投稿プログラム ゲーム QRコード mkII専用

申し上げなければいけないこと

修正版を出す前は、かなり操作しにくく、

誠に申し訳ありませんでした。

修正部分 3行目 W=10T=100

W=5T=100

若干操作しにくいですが、お好みに変えて頂いて構いません。

遊び方

Aボタンで前に進み、Bボタンで後ろに戻ります。

使用上のご注意

とっても難しいです。全5ステージ(多分。)です。

難しすぎてやる気が失せると思います。

DSi、または3DS、3DSLLにやつあたりしないようにお願いします。

難しすぎると思ったら簡単バージョンをご用意致しましたので

そちらをどうぞ。

ゲーム目的

ドアまで制限時間以内にたどり着かなければなりません。

しかし、そこには、敵(くせもの)が監視しています。

四角い壁に隠れつつ、ゴールを目指して下さい。

最後に

忍者の時代にドア?と思わないで下さい。

そう思う方は、「ふすま」とお考え下さい。

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

すいません。ありません。

QR コード

修正版を出しました。前回より操作しやすいと思いますので、

修正版前を持っている方は、お願いします。

PRG:TSTRS
1/1
qr00.png

簡単バージョンです。

RND128さんと、名無しさんのアドバイスのもと、

作らせて頂きました。

PRG:TSTRSK
1/1
qr0k.png

プログラムリスト

修正版です。

  1. @STRT
  2. CLEAR:BGP=13
  3. W=5:T=100
  4. S=1
  5. @START
  6. CLS
  7. BGMPLAY BGP
  8. JX=2:JY=19
  9. TX=4:TY=1
  10. @MAIN
  11. ?”  Щ    Р”;T 
  12. ?” ┿ ┿        
  13. ?”       ステ−シ゛
  14. ?” ┿ ┿     ”;S
  15. ?”            
  16. ?” ┿ ┿        
  17. ?”            
  18. ?” ┿ ┿        
  19. ?”            
  20. ?” ┿ ┿        
  21. ?”            
  22. ?” ┿ ┿        
  23. ?”            
  24. ?” ┿ ┿        
  25. ?”            
  26. ?” ┿ ┿        
  27. ?”            
  28. ?” ┿ ┿        
  29. ?”            
  30. ?” ┿┿┿        
  31. TK=RND(2)+1
  32. IF BUTTON()==16 THEN JY=JY−1
  33. IF BUTTON()==32 THEN JY=JY+1
  34. IF JY>=18 THEN JY=18
  35. IF TK==1 THEN TY=TY+RND(2)
  36. IF TK==2 THEN TY=TY−RND(2)
  37. TY2=TY+2:TY3=TY+4:TY4=TY+6
  38. LOCATE TX,TY ?”Н”
  39. LOCATE TX,TY2 ?”Н”
  40. LOCATE TX,TY3 ?”Н”
  41. LOCATE TX,TY4 ?”Н”
  42. LOCATE JX,JY ?”г”
  43. IF TY<=0 THEN TY=0
  44. IF TY4>=18 THEN TY4=18
  45. IF TY==JY THEN GOSUB @SIN
  46. IF TY2==JY THEN GOSUB @SIN
  47. IF TY3==JY THEN GOSUB @SIN
  48. IF TY4==JY THEN GOSUB @SIN
  49. IF JY==0 THEN GOTO @CL
  50. IF T==0 THEN @GV
  51. T=T−1
  52. WAIT W:CLS:GOTO @MAIN
  53. ’−−−
  54. @SIN
  55. IF JY==0 THEN GOTO @GV
  56. IF JY==2 THEN GOTO @GV
  57. IF JY==4 THEN GOTO @GV
  58. IF JY==6 THEN GOTO @GV
  59. IF JY==8 THEN GOTO @GV
  60. IF JY==10 THEN GOTO @GV
  61. IF JY==12 THEN GOTO @GV
  62. IF JY==14 THEN GOTO @GV
  63. IF JY==16 THEN GOTO @GV
  64. IF JY==18 THEN GOTO @GV
  65. RETURN
  66. ’−−−
  67. @GV
  68. BGMPLAY 6
  69. WAIT 30
  70. @VK
  71. IF BUTTON()==16 THEN @STRT
  72. GOTO @VK
  73. ’−−−
  74. @CL
  75. WAIT 40
  76. CLS
  77. BGMPLAY 5
  78. T=T+50:S=S+1
  79. IF S>=3 THEN T=T+30
  80. IF S>=4 THEN T=T+40
  81. IF S>=5 THEN T=T+50
  82. IF S>=6 THEN T=T+60
  83. IF S>=7 THEN T=T+70
  84. IF S>=8 THEN T=T+80
  85. IF S>=9 THEN T=T+90
  86. IF S>=10 THEN T=T+100
  87. ?”А ステ−シ゛”;S”ヘ”
  88. ?”
  89. ?”Б ヤメル
  90. @CG
  91. IF W==1 THEN @KCL
  92. IF BUTTON()==16 THEN W=W−1:BGP=BGP+1:GOTO @START
  93. IF BUTTON()==32 THEN END
  94. GOTO @CG
  95. ’−−−
  96. @KCL
  97. CLS
  98. ?”100%クリア オメテ゛トウ!”
  99. BGMPLAY 9
  100. @OM
  101. IF BUTTON()==16 THEN END
  102. GOTO @OM

今更なんですが・・・

今更なんですが、文字変数(A$など)をSAVEしたり、LOADしたりする方法は、ありますか?

お願いします!

  • hatena : セーブデータのファイル名はXXXXXXXXとします。
    セーブはMEM$=A$:SAVE”MEM:XXXXXXXX”
    ロードはMEM$=””:LOAD”MEM:XXXXXXXX”:A$=MEM$
    (2012/08/28 (火) 20:36:09)
  • 中1 : 有難うございます!会社プロジェクトは、100%と書きましたが、「あれ!?文字変数をどうやってMEMに?」って思ってました。改めまして有難うございます! (2012/08/29 (水) 17:39:47)
  • hatena : 質問はなるべく掲示板でやった方が良いかも。 (2012/08/29 (水) 19:33:03)
  • 中1プログラマー? : 今やってみたのですが、文字をセーブして、ロードすると、数字になってしまいました!どうすればいいですか? (2012/09/08 (土) 14:43:15)
  • : strやりませんでしたか? (2012/09/09 (日) 00:56:38)
  • 中1プログラマー? : hatenaさんから教えてもらったのをやってみましたが、うまくいきません。 (2012/09/09 (日) 11:21:44)
  • 中1プログラマー? : すみません、タイピングミスだったようです。ご迷惑をおかけしました。 (2012/09/09 (日) 11:30:02)

ドアまで忍者!に関してのコメント

今日から(9/2)コメントで「中1」ではなく「中1プログラマー?」とさせて頂きます。

ご了承ください。

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

  • hatena : 102行か。中1さんへ。このページにプログラムリストを載せても良いですか。 (2012/08/15 (水) 16:49:24)
  • 中1 : 修正版を出すので、もう少し待ってもらってもよろしいでしょうか。 (2012/08/15 (水) 16:50:53)
  • 中1 : hatenaさんへ 修正版を出しました。宜しければプログラムリストをお願いします。 (2012/08/15 (水) 16:58:55)
  • 早くプログラムリスト入れないとおれがやるぞ : ←の通り (2012/08/15 (水) 17:19:48)
  • 中1 : プログラムリスト有難うございます。 (2012/08/15 (水) 17:52:05)
  • .EXE(腐ったので汚名復活) : 中1様のでしたか! すごいですね! P S (プレイステーションじゃないよ)クソコンビニ無双2出すかも (2012/08/15 (水) 19:01:50)
  • 中1 : あんまり自己嫌悪にならないで下さい。「中1」で結構です。 (2012/08/15 (水) 20:15:30)
  • .EXE(Wow) : 了解 (2012/08/16 (木) 08:27:15)
  • 名無しさん : 中一 もっといい次回作を期待 (2012/08/16 (木) 10:46:17)
  • タイクーン : こりゃー期待できる (2012/08/16 (木) 13:24:52)
  • 中1 : ↑↑今回あまりうまく出来ませんでした。(短時間で作ったので)次回頑張ります。 (2012/08/16 (木) 14:17:02)
  • .EXE(わたしは4才です?) : いい感じですよ。 (2012/08/16 (木) 16:56:57)
  • 中1 : 有難うございます。 (2012/08/16 (木) 19:18:00)
  • .EXE(わたしは4才です?) : あなたをコンビニ無双2に出演させたいです (2012/08/16 (木) 20:21:37)
  • 中1 : と、言いますと? (2012/08/16 (木) 22:21:45)
  • : grpで (2012/08/16 (木) 22:28:05)
  • 中1 : grp・・・「プログラム」ですか? (2012/08/16 (木) 23:21:29)
  • : なんでもないです。 (2012/08/16 (木) 23:31:03)
  • Lv100 : GRPはグラフィックのことですね。 (2012/08/17 (金) 00:06:50)
  • 中1 : あ、そういう意味ですか!CHRやGRPなど使ったことがほとんど無いので・・・。 (2012/08/17 (金) 19:24:00)
  • ウイング : 迷路式だったらよかったのに (2012/08/17 (金) 19:35:18)
  • 中1 : 残念ながら迷路式は壁の中に入らないようにするプログラムがIF〜THENしか思いつかなく、大変そうです。壁に入らない良いプログラムの組み方はありますか? (2012/08/18 (土) 13:38:14)
  • 中1 : 「申し上げなければいけないこと」でBASICにしてくれた人がいるようです。有難うございます。 (2012/08/18 (土) 17:14:21)
  • Lv100 : BACIC→BASICね。 (2012/08/18 (土) 18:36:17)
  • hatena : ↑↑フォントの事なら私がいじりましたが。 (2012/08/18 (土) 19:02:53)
  • 中1 : ↑↑あれ?タイピングミス!直します。 (2012/08/18 (土) 20:29:40)
  • なーゆ : 普通バージョンも、簡単バージョンも無理ゲー (2012/09/01 (土) 15:23:06)
  • 名無しさん : 大変失礼だがLOCATE命令をご存じで? (2012/09/01 (土) 15:42:58)
  • 中1 : ↑LOCATE命令は、勿論。プログラムリストにありませんか? (2012/09/01 (土) 16:48:07)
  • 中1 : ↑↑↑かと言ってDSを真っ二つにしないように・・・。 (2012/09/01 (土) 16:49:17)
  • 中1プログラマー? : というコメントでの名前にさせて頂きました。改めまして宜しくお願いします。 (2012/09/02 (日) 17:30:28)
  • 名無しさん : 中二になったら改名? (2012/09/02 (日) 18:20:35)
  • hatena : ↑*5 このプログラムの38行から42行に5つLOCATE命令がありますよ。 (2012/09/02 (日) 19:28:12)
  • 中1プログラマー? : ↑↑「中2プログラマー?」となると思います。(ストレートです。つまり、年齢丸分かりですね。私は構いませんが・・・。) (2012/09/02 (日) 20:15:30)
  • tamagosan : リスト見やすい!! 本当に私と同じ歳?(中1) (2012/09/08 (土) 15:29:33)
  • 中1プログラマー? : 勿論です。(今日第2回定期考査終わった!)リストが見やすいとは嬉しいです。でも、tamagosan さんのプログラムには恐れ入ります・・・。宜しければ上の文字変数MEM$について教えて頂けると有難いです・・・。 (2012/09/08 (土) 23:22:19)
  • : ロード毎に他の変数に移し替えてますか? (2012/09/09 (日) 00:58:22)
  • 中1プログラマー? : LOAD毎に変数は変えていないです。 (2012/09/09 (日) 11:20:38)

バグ、こうしたら良いなどありましたら書き込んで下さい。

  • とある名無しの日本人 : Please use the SPRITE. (2012/08/15 (水) 16:42:21)
  • 中1 : 修正版を出しました。申し訳ありませんでした。 (2012/08/15 (水) 16:56:15)
  • 中1 : 修正版を出したので修正版前のコメントは、失礼ながら削除させて頂きました。 (2012/08/15 (水) 16:57:45)
  • RND128 : 79~86行目は
    FOR I=3 TO 10
    IF S>=I THEN T=T+I*10
    NEXT
    で短縮可能ですよ〜 (2012/08/19 (日) 08:47:02)
  • 中1 : そうなんですか!FOR〜NEXTは、知らないもので・・・。勉強になります。 (2012/08/19 (日) 11:22:02)
  • RND128 : ついでにもうひとつ、55~64行目は
    IF JY%2==0 GOTO @GV
    あるいは、mkII専用として
    IF !(JY%2) GOTO @GV
    ができますよ〜 (2012/08/19 (日) 12:26:40)
  • 中1 : 有難うございます。短縮のやり方勉強になります。 (2012/08/19 (日) 12:33:08)
  • 名無しさん : くせものも人にして、プレイヤーの色を変えればいいと思う (2012/08/19 (日) 17:42:34)
  • 名無しさん : FOR〜NEXT知らないとかよくゲーム作れたな (2012/08/19 (日) 20:30:10)
  • 中1 : そうですね・・・。 (2012/08/19 (日) 20:37:38)
  • ウイング : でもfor使うより変数とかif文使う法ほうが楽 (2012/08/19 (日) 20:48:32)
  • 中1 : 楽ですね。しかし、今のところIF〜THEN文ですがFOR〜NEXT文を学習します。 (2012/08/19 (日) 21:37:37)
  • 名無しさん : 俺も最初はFOR文知らなくて同じようなBGPUTを何百行も並べたり苦行かとおもった (2012/08/29 (水) 18:58:18)
  • 中1 : 頑張って学習します・・・。 (2012/08/29 (水) 19:55:16)
  • 名無しさん : ifが楽って…forとifって全然ちゃうじゃん (2012/08/29 (水) 19:58:08)
  • 名無しさん : ifが楽って…forとifって全然ちゃうじゃん (2012/08/29 (水) 19:59:31)
  • RND128 : 関係ないけど、FOR TO NEXTを使用したIF文
    FOR _=1 TO (IF)
    (THEN)
    NEXT:FOR _=_−1 TO 0
    (ELSE)
    NEXT
    知ってはったらすいません (2012/08/31 (金) 00:24:14)
  • 名無しさん : FOR TO STEP NEXTじゃね (2012/08/31 (金) 00:27:27)
  • hata0401 : MUZUI (2012/09/01 (土) 15:16:29)

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