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

投稿プログラム : 草取ゲーム

パンくずリスト

2011年10月30日投稿 / 投稿者 : バイカウントメルビル / タグ : 投稿プログラム ゲーム アクションゲーム シミュレーションゲーム 初代対応 QRコード / 検索用→【メルビル】

概要

草取ゲームとは、その名の通り、草取のシミュレーションゲームです。

ストーリー

赤毛君「あーなんか暇だなー」
お母さん「ちょっと草取頼んでもいいかしら?」
赤毛君「なんだよー今忙しいんだよ。」
お母さん「あら?いま暇だって言ったじゃない。」
赤毛君「っ・・・ちっ。しょうがないなぁー」
お母さん「あ、そうだ。そこの黄色い花は抜いちゃだめよ。」
赤毛君「あーもーわかったから!」
こうして赤毛君は草取をすることになったのである。

今回の投稿について

どうも、バイカウントメルビルというものです。
今回は草取ゲームを作ったので投稿させていただきます。
まだまだ改良するところはありますが、一応問題なく遊べるようになったので投稿します。

操作説明

操作は簡単!
十字ボタンで主人公を動かし、Bボタンで草を抜きます。
黄色い花は抜かないようにしましょう。
1分間でいくつとれるかな?

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

QR コード

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

1/32/33/3
qr0.pngqr1.pngqr2.png

プログラムリスト

赤いところは、コメントしてくださった方々のアイデアを新たに追加(及び変更)したところです。
前、打ち込んだ人はこの部分を変えると、新しいバージョンで遊ぶことができます。

  1. ’┌───────────────────────┐
  2. ’│       クサトリ ケ゛ーム       │
  3. ’├───────────────────────┤
  4. ’│ (C) Viscount Melville │
  5. ’└───────────────────────┘
  6. ′───シタノスウシ゛ヲイシ゛ッテミヨウ!───
  7. S=5      ′ハヤサカ゛カワル
  8. CR=64    ’96ニスルトマホウツカイニナル
  9. WE=10    ′クサヲヌイタトキノホ゜イント
  10. BW=30    ′クロイクサヲヌイタトキノホ゜イント 
  11. FL=−25   ′ハナヲヌイタトキノホ゜イント
  12. TMAX=60  ′セイケ゛ンシ゛カン
  13. BONUS=500′ホ゛ーナスホ゜イント
  14. ′───────────────────────
  15. ′HISC=
  16. FOR X=23 TO 31
  17.  FOR Y=23 TO 23
  18.   IF (X>23 AND X<31) AND (Y==0  OR Y==23) THEN BGPUT 0,X,Y,174,9,0,0
  19.   IF (Y>0  AND Y<23) AND (X==24 OR X==31) THEN BGPUT 0,X,Y,255,9,0,0
  20.   IF Y>0 AND Y<23 AND X==31 THEN BGPUT 0,X,Y,5,0,0,0
  21.  NEXT
  22. NEXT
  23. BGPUT 0,24, 0,173,9,0,0
  24. BGPUT 0,31, 0,175,9,0,0
  25. BGPUT 0,24,23,237,9,0,0
  26. BGPUT 0,31,23,239,9,0,0
  27. GOSUB @MAP
  28. GOTO @TI
  29. @START
  30. IF SC>HISC THEN HISC=SC
  31. GOSUB @MAP
  32. SPSET 0,CR,2,0,0,2
  33. SPANIM 0,4,10
  34. X=4:Y=4
  35. CLS
  36. SC=0:BGMPLAY 20
  37. LOCATE 25,2 :?″РTIMEР″
  38. LOCATE 25, :?″SCOREИ″
  39. LOCATE 26, :?SC
  40. LOCATE 25, :?″HI″
  41. LOCATE 26, :?″SCORE″
  42. LOCATE 26,10 :?HISC
  43. LOCATE 25,13 :?″クサ″
  44. LOCATE 25,14 :?″ +″WE
  45. LOCATE 25,15:?″クロイクサ″ 
  46. LOCATE 25,16:?″ +″BW 
  47. LOCATE 25,17 :?″ハナ″
  48. LOCATE 25,18 :?” ”FL
  49. LOCATE 25,20:?″ハナ″
  50. LOCATE 25,21:?″ヌカナカッタ″
  51. LOCATE 25,22:?″ホ゛ーナス″
  52. LOCATE 25,25:?″+″BONUS
  53. OLDTM=MAINCNTL
  54. @LOOP
  55. GOSUB@BT
  56. GOSUB@TM
  57. WAIT S
  58. GOTO@LOOP
  59. @BT
  60. B=BUTTON()
  61. IF B AND 1 THEN SPCHR 0,CR+12:Y=Y−8
  62. IF B AND 2 THEN SPCHR 0,CR+4 :Y=Y+8
  63. IF B AND 4 THEN SPCHR 0,CR+8 :X=X−8
  64. IF B AND 8 THEN SPCHR 0,CR   :X=X+8
  65. IF B AND 32 THEN GOSUB @GCHK
  66. IF Y<−12 THEN Y=−12
  67. IF Y>172 THEN Y=172
  68. IF X< −4 THEN X=−4
  69. IF X>180 THEN X=180
  70. SPOFS 0,X,Y,S
  71. RETURN
  72. @GCHK
  73. GX=FLOOR(X/8+1)
  74. GY=FLOOR(Y/8+1)
  75. BGREAD(1,GX,GY),I,J,K,L
  76. IF I==37 THEN BGPUT 1,GX,GY,32,8,0,0:SC=SC+WE
  77. IF J==11 THEN BGPUT 1,GX,GY, 7,0,0,0:SC=SCーWE+FL
  78. IF J==9 THEN BGPUT 1,GX,GY, 7,0,0,0:SC=SCーWE+BW 
  79. LOCATE 26,:? SC″ ″
  80. RETURN
  81. @TM
  82. TM=TMAX−FLOOR((MAINCNTL−OLDTM)/60)
  83. LOCATE 26,2:? TM″ ″
  84. IF TM==10 THEN TALK”ハヤクシナサイ!”
  85. IF TM==0 GOTO @GMOV
  86. RETURN
  87. @GMOV
  88. F=0
  89. FOR X=0 TO 23
  90.  FOR Y=0 TO 23
  91.   BGREAD(1,X,Y),I,J,K,L
  92.   IF I==7 THEN F=F+1
  93.  NEXT
  94. NEXT
  95. IF F==0 THEN SC=SC+BONUS
  96. BGMPLAY 4
  97. COLOR 1
  98. LOCATE 8,7:?″GAMEOVER″
  99. LOCATE 4,9:?″アナタノトクテンハ...″SC″!!″
  100. LOCATE 8,12:?″マタアソンテ゛ネ!″
  101. WAIT 250
  102. @TI
  103. CLS
  104. BGMPLAY 8
  105. COLOR 1
  106. LOCATE 7,6:?″クサトリケ゛ーム″
  107. LOCATE 1,8:?″1フ゜ンカンニ ナルヘ゛ク オオクノ″
  108. LOCATE 15,9:?″クサヲ ヌコウ!″
  109. LOCATE 17,4:?″Бホ゛タンテ゛ クサヲ ヌクヨ!″
  110. LOCATE 19,1:?″キイロイ ハナハ ヌイチャタ゛メ タ゛ヨ!″
  111. LOCATE 22,8:?″Аヲ オシテネ!″
  112. COLOR 0
  113. @TILOOP
  114. IF BUTTON() AND 16 GOTO @START
  115. GOTO @TILOOP
  116. @MAP
  117. FOR X=0 TO 23
  118.  FOR Y=0 TO 23
  119.   R=RND(16):CL=8
  120.   IF R%2==0 THEN C=37
  121.   IF R%2==1 THEN C=9
  122.   IF R%4==0 THEN CL=11
  123.   IF R==0 THEN CL=9
  124.   BGPUT 1,X,Y,C,CL,0,0
  125.  NEXT
  126. NEXT
  127. RETURN

ご感想をどうぞ (投票)

選択肢 投票
すごい! 77  
面白いです! 9  
まあいいと思う 5  
微妙…… 5  
もう少し変えた方がいいかも 8  
参考になりました! 17  

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

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

  • 名無しさん : 22行目はX=31ではなくてX==31ではないんですか? (2011/10/31 (月) 20:34:53)
  • 名無しさん : 22 (2011/10/31 (月) 20:42:20)
  • バイカウントメルビル(投稿者) : ありがとうございます!直しておきました(汗) (2011/10/31 (月) 20:52:15)
  • 名無しさん : 70行目のANDを==にしたら難しいw (2011/11/01 (火) 11:42:41)
  • 名無しさん : 106ぎょうはてなが抜けてる (2011/11/01 (火) 17:53:03)
  • バイカウントメルビル(投稿者) : はてな入れときました!報告ありがとうございます。ところでいったいここは何があったんですかww (2011/11/01 (火) 20:29:00)
  • 10才くん : かくとなんかエラー (2011/11/02 (水) 21:28:04)
  • バイカウントメルビル : 何行目ですか? (2011/11/03 (木) 00:52:53)
  • 名無し君 : 48行目は「LOCATE 26,15:?"+";WE」、50行目は「LOCATE 26,18:?"-";FL」、54行目は「LOCATE 27,23:?"+";BONUS」がいいと思います。 (2011/11/03 (木) 09:06:58)
  • バイカウントメルビル(投稿者) : 確かにそうですね。後から変えることを考えたのでそこを忘れていました。ありがとうございました。 (2011/11/03 (木) 15:47:18)
  • 名無しさん : RETURN without GOSUB 135, RETURN (2011/12/04 (日) 08:58:08)
  • 名無しさん : ↑ってなるんだけど (2011/12/04 (日) 09:00:05)
  • 名無しさん : あ、GOTO @MAPと、かいてしまった。 (2011/12/04 (日) 09:13:46)
  • 名無しさん : おもしろそう! (2011/12/29 (木) 20:34:23)
  • 名無しさん : 楽しそうだけど・・・ (2012/03/11 (日) 09:18:41)
  • 名無しさん : 打つの大変 (2012/03/11 (日) 09:21:45)
  • 名無しさん : でも頑張る(>_<) (2012/03/11 (日) 10:13:28)
  • 名無しさん : カタカタカタカタカタカタ(・・・) (2012/03/11 (日) 10:23:09)
  • 名無しさん : できねえ!!!!!!!!!!!! (2012/03/11 (日) 11:17:20)
  • バイカウントメルビル : エラーですか?どんなエラーが出ていますか? (2012/03/11 (日) 15:02:03)
  • 名無しさん : suntax berror Syntax error(1) 多分写しまちがいだと・・・ (2012/03/11 (日) 18:16:13)
  • 名無しさん : よくわかりません(プチコンの文法) (2012/03/11 (日) 18:17:26)
  • ウイング : 名前かえました。9~11に、ここに書き込んだ名無しです (2012/03/11 (日) 18:19:41)
  • ウイング : 早くこのゲームやりたいな・・・・・・・・・ (2012/03/11 (日) 18:20:33)
  • ウイング : プログラムに間違いはありませんでした (2012/03/11 (日) 18:35:32)
  • ウイング : バイカウントメルビルさん!プログラム打った後のことを教えて下さい! (2012/03/11 (日) 18:37:20)
  • ウイング : {RUN}をおしてもエラーで・・・・ (2012/03/11 (日) 19:00:11)
  • バイカウントメルビル : を間違えてませんか?似ている文字もあるので注意して見てください。 (2012/03/11 (日) 22:01:49)
  • ウイング : ありがとうございます!! このゲームおもしろいです! (2012/03/12 (月) 17:25:33)
  • バイカウントメルビル : ありがとうございます!よかったです(^_^) (2012/03/12 (月) 18:21:06)
  • ウイング : RPGがやりたいな~(つくってください) (2012/03/13 (火) 18:16:49)
  • バイカウントメルビル : おおっ、RPGですか。今まで本気で作ったことなかったので、mkIIが来たら頑張ってみようと思います。(あきらめるかもだけど笑) (2012/03/13 (火) 19:42:07)
  • マッハ : 初コメですwww まだそういう(プチコン)技能を持っていないので、作ることは無理ですが、宜しくお願いします!Oと0の違いがわからないのですが、どうすればいいか教えてください! (2012/03/13 (火) 21:38:00)
  • バイカウントメルビル : 数字の0は斜めに線が入っていて、ラテン文字のOは線が入っていません。 (2012/03/13 (火) 21:48:07)
  • マッハ : じゃあ、ここのコードは?ここのやつはなんとなくで判断するしかないのですか? (2012/03/13 (火) 22:19:20)
  • バイカウントメルビル : ここに書いてある斜め線なしの丸いやつはみんなラテン文字Oです (2012/03/13 (火) 22:24:31)
  • マッハ : ありがとうございます!とても勉強になりました! (2012/03/13 (火) 22:40:04)
  • ウイング : ちなみに、バイカウントメルビルさんって何歳ですか。 (2012/03/15 (木) 20:11:08)
  • バイカウントメルビル : 削除(2012/03/15 (木) 20:26:44)
  • ウイング : プログラム等の勉強をされているのですか? (2012/03/16 (金) 15:33:07)
  • ウイング : ちなみに、11です (2012/03/16 (金) 15:34:07)
  • バイカウントメルビル : ほほう・・・やはりそのくらいでしたか。 (2012/03/17 (土) 08:03:43)
  • バイカウントメルビル : 特にこれといってやってません。プチコンとかしかやってないです。学校でも教えてくれないし(涙) (2012/03/17 (土) 08:05:08)
  • バイカウントメルビル : そういう授業があったら1日中やっていたいんですけどね (2012/03/17 (土) 08:06:04)
  • バイカウントメルビル : ちなみに初めてプログラムを作ったのは3年生の時で、初めてゲーム (脱出ゲームを作ったのはウイングさんと同じ11歳の時でした。(2012/03/17 (土) 08:08:32)
  • ウイング : わざわざご丁寧にありがとうございました (2012/03/17 (土) 09:48:22)
  • もじゃ : QRつっくて (2012/03/22 (木) 15:23:52)
  • お茶犬 : ↑前に入力したからQRコードアップしてあげようと思ったけど、プチコンmk2持ってないw (2012/03/22 (木) 15:27:15)
  • バイカウントメルビル : QRコード作ったけど貼り付け方が分かんない(´・ω・`) (2012/03/22 (木) 18:43:29)
  • qa : l&ref(タイトル名_QR.png,,200%)ってしたら良かったと思う。······確かですので間違っていたらごめんなさい。 (2012/03/22 (木) 20:46:28)
  • qa : ちなみに僕今年13。 (2012/03/22 (木) 20:48:06)
  • プチコンまとめWiki管理人 : 「プログラム投稿のルール」の一番下「画像の添付」に書かれている方法でやってみてください。いろいろな貼り付け方は、新しい投稿テンプレートのコメントに書いています。 (2012/03/22 (木) 21:12:09)
  • バイカウントメルビル : みなさんありがとうございました!できました! (2012/03/24 (土) 22:42:21)
  • qa : このwikiで初めてお礼言われた~めっちゃ嬉しい! (2012/03/25 (日) 00:58:57)
  • 名無し(16才君) : 小中学生で、やっているのを見ると 昔を懐かしんでしまうw ファミリーBASICよくやったな (2012/03/25 (日) 08:05:05)
  • ぷぎru : アイデアで花を抜いたら根っこにランダムで、球根がついてくるなんてどうでしょう (2012/03/27 (火) 08:30:49)
  • ぷぎru : ↑TIMEではなく赤毛君の母のイライラ度にして、TALK命令でMAX(イライラ)になったら声を鳴らしたり… (2012/03/27 (火) 08:32:52)
  • ぷぎru : 球根…母のイライラ度を下げる。しかし狙いすぎて自滅することもある。要するに運が必要。 (2012/03/27 (火) 08:35:11)
  • お茶犬 : 拡大鏡はミ田++キーでもいいですよ。 (2012/03/27 (火) 09:52:03)
  • ロジウム : Ctrl+マウスホイールで単純な拡大ならできますよ。 (2012/03/27 (火) 10:01:25)
  • お茶犬 : ↑ただそれだとぼやける (2012/03/27 (火) 11:46:36)
  • ロジウム : 多少ぼやけてもサイズがあれば読み取れますよ。 (2012/03/27 (火) 12:38:07)
  • バイカウントメルビル : みなさんありがとうございますm(__)m (2012/03/28 (水) 00:54:43)
  • 10さいくん : アイデア くさのいろがくろのヤツをとると高得点なんかどうでしょう (2012/03/29 (木) 14:03:58)
  • 10さいくん : なんたになったwwwww (2012/03/29 (木) 14:05:47)
  • 名無しさん : ↑↑???? (2012/03/29 (木) 14:32:56)
  • 名無しさん : おもしろかった (2012/04/03 (火) 14:14:05)
  • 名無しさん : 追記「アイデアは、mk2でoo秒たったら talk゛はやくしなさい!と言う」 (2012/04/03 (火) 14:17:11)
  • 名無しさん : タグのシュミレーションは間違いで、正しくはシミュレーション(simulation)ですよ。 (2012/04/08 (日) 17:54:45)
  • 名無しさん : そのくらいのアイデアくらい実装しなよと思うがプログラムできない人もいるんだった。 (2012/04/10 (火) 16:16:28)
  • バイカウントメルビル : わーっ(汗)す、すみません!最近こちらに来れなかったもので・・・なるべく早く実装しますね! (2012/04/10 (火) 18:52:25)
  • バイカウントメルビル : 実装しておきましたm(__)m (2012/04/10 (火) 19:32:45)
  • 翁鶏 : 黒い草の変数名==ポ●モンw (2012/04/10 (火) 21:38:40)
  • バイカウントメルビル : BlackWeedの略ですw私も思ったのですが、いい変数名が思いつかず(えっ)、けっきょくBWにしてしまいましたw (2012/04/11 (水) 00:27:24)
  • バイカウントメルビル : あと、くろいくさと言っておきながら黒くないですね(^_^;)ホウレンソウみたいな色ですね (2012/04/11 (水) 00:28:09)
  • 翁鶏 : QR対応してますか? (2012/04/11 (水) 18:51:58)
  • バイカウントメルビル : 対応してません(>_<)実は自分でもこのバージョンのやつ持ってない(削除した)のでまた打ち込まなきゃなんですよね・・・めんどくs(蹴 (2012/04/11 (水) 20:11:02)
  • 名無しさん : ちょっと見たけど 93行目はPRINTかTALKがいるのでは? (2012/04/13 (金) 16:16:46)
  • バイカウントメルビル : 忘れてました!すみません(^_^;) (2012/04/13 (金) 18:10:19)
  • 名無しさん : TALKでしゃべらせるところが考えてた通りでびっくりしたwww (2012/04/13 (金) 22:36:12)
  • ウイング : これは面白い (2012/04/15 (日) 18:51:16)
  • ソイソース : @GCHK内に、黒い草抜いた時の条件文が存在しませんよ (2012/04/16 (月) 22:56:06)
  • ソイソース : IF J==9 THEN BGPUT 1,GX,GY, 7,0,0,0:SC=SCーWE+BW が、いるのでは? (2012/04/16 (月) 23:00:19)
  • ソイソース : あ、一応上に載ってるプログラムリストの話です。 (2012/04/16 (月) 23:03:43)
  • バイカウントメルビル : 書いておきましたm(__)m (2012/04/17 (火) 00:33:43)
  • ウイングの友達 : 学校でプチコンの授業があったらいいですよね~ (2012/05/05 (土) 11:37:29)
  • 名無しさん : ↑BASICの授業ならある。BASIC98とか使ったりする。 (2012/06/14 (木) 19:42:28)
  • あいうえお : QRコード拡大しました。 (2012/07/09 (月) 21:25:42)
  • 名無しさん : 何もしなくても500ポイント (2012/07/24 (火) 18:36:38)
  • 名無しさん : ↑何で抜かないの!? 何もしなくても花を抜かなかったボーナス入るからさ☆ (2012/08/14 (火) 14:52:16)
  • あいうえお : 赤い花を抜くと-40ポイント (2012/08/27 (月) 18:32:31)
  • 名無しさん : できない (2012/10/28 (日) 15:17:58)
  • 名無しさん : なんでqrがプログラムリストの奴と同じじゃないの (2012/11/06 (火) 01:06:48)
  • あいうえお : なにもしないでいても確か花ぬかなかったボーナスついたようなきが・・・ (2012/12/31 (月) 15:37:54)
  • キャラクター製作所 : コメント多いな・・・うらやましいな。僕、中1です。てか、庭広すぎだろww (2014/11/02 (日) 22:32:24)

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