2011年10月30日投稿 / 投稿者 : バイカウントメルビル / タグ : 投稿プログラム ゲーム アクションゲーム シミュレーションゲーム 初代対応 QRコード / 検索用→【メルビル】
草取ゲームとは、その名の通り、草取のシミュレーションゲームです。
赤毛君「あーなんか暇だなー」
お母さん「ちょっと草取頼んでもいいかしら?」
赤毛君「なんだよー今忙しいんだよ。」
お母さん「あら?いま暇だって言ったじゃない。」
赤毛君「っ・・・ちっ。しょうがないなぁー」
お母さん「あ、そうだ。そこの黄色い花は抜いちゃだめよ。」
赤毛君「あーもーわかったから!」
こうして赤毛君は草取をすることになったのである。
どうも、バイカウントメルビルというものです。
今回は草取ゲームを作ったので投稿させていただきます。
まだまだ改良するところはありますが、一応問題なく遊べるようになったので投稿します。
操作は簡単!
十字ボタンで主人公を動かし、Bボタンで草を抜きます。
黄色い花は抜かないようにしましょう。
1分間でいくつとれるかな?
プチコンmkII 向けの QR コードです。
赤いところは、コメントしてくださった方々のアイデアを新たに追加(及び変更)したところです。
前、打ち込んだ人はこの部分を変えると、新しいバージョンで遊ぶことができます。
- ’┌───────────────────────┐
- ’│ クサトリ ケ゛ーム │
- ’├───────────────────────┤
- ’│ (C) Viscount Melville │
- ’└───────────────────────┘
- ′───シタノスウシ゛ヲイシ゛ッテミヨウ!───
- S=5 ′ハヤサカ゛カワル
- CR=64 ’96ニスルトマホウツカイニナル
- WE=10 ′クサヲヌイタトキノホ゜イント
- BW=30 ′クロイクサヲヌイタトキノホ゜イント
- FL=−25 ′ハナヲヌイタトキノホ゜イント
- TMAX=60 ′セイケ゛ンシ゛カン
- BONUS=500′ホ゛ーナスホ゜イント
- ′───────────────────────
- ′HISC=
- FOR X=23 TO 31
- FOR Y=23 TO 23
- IF (X>23 AND X<31) AND (Y==0 OR Y==23) THEN BGPUT 0,X,Y,174,9,0,0
- IF (Y>0 AND Y<23) AND (X==24 OR X==31) THEN BGPUT 0,X,Y,255,9,0,0
- IF Y>0 AND Y<23 AND X==31 THEN BGPUT 0,X,Y,5,0,0,0
- NEXT
- NEXT
- BGPUT 0,24, 0,173,9,0,0
- BGPUT 0,31, 0,175,9,0,0
- BGPUT 0,24,23,237,9,0,0
- BGPUT 0,31,23,239,9,0,0
- GOSUB @MAP
- GOTO @TI
- @START
- IF SC>HISC THEN HISC=SC
- GOSUB @MAP
- SPSET 0,CR,2,0,0,2
- SPANIM 0,4,10
- X=4:Y=4
- CLS
- SC=0:BGMPLAY 20
- LOCATE 25,2 :?″РTIMEР″
- LOCATE 25,5 :?″SCOREИ″
- LOCATE 26,6 :?SC
- LOCATE 25,8 :?″HI″
- LOCATE 26,9 :?″SCORE″
- LOCATE 26,10 :?HISC
- LOCATE 25,13 :?″クサ″
- LOCATE 25,14 :?″ +″WE
- LOCATE 25,15:?″クロイクサ″
- LOCATE 25,16:?″ +″BW
- LOCATE 25,17 :?″ハナ″
- LOCATE 25,18 :?” ”FL
- LOCATE 25,20:?″ハナ″
- LOCATE 25,21:?″ヌカナカッタ″
- LOCATE 25,22:?″ホ゛ーナス″
- LOCATE 25,25:?″+″BONUS
- OLDTM=MAINCNTL
- @LOOP
- GOSUB@BT
- GOSUB@TM
- WAIT S
- GOTO@LOOP
- @BT
- B=BUTTON()
- IF B AND 1 THEN SPCHR 0,CR+12:Y=Y−8
- IF B AND 2 THEN SPCHR 0,CR+4 :Y=Y+8
- IF B AND 4 THEN SPCHR 0,CR+8 :X=X−8
- IF B AND 8 THEN SPCHR 0,CR :X=X+8
- IF B AND 32 THEN GOSUB @GCHK
- IF Y<−12 THEN Y=−12
- IF Y>172 THEN Y=172
- IF X< −4 THEN X=−4
- IF X>180 THEN X=180
- SPOFS 0,X,Y,S
- RETURN
- @GCHK
- GX=FLOOR(X/8+1)
- GY=FLOOR(Y/8+1)
- BGREAD(1,GX,GY),I,J,K,L
- IF I==37 THEN BGPUT 1,GX,GY,32,8,0,0:SC=SC+WE
- IF J==11 THEN BGPUT 1,GX,GY, 7,0,0,0:SC=SCーWE+FL
- IF J==9 THEN BGPUT 1,GX,GY, 7,0,0,0:SC=SCーWE+BW
- LOCATE 26,5:? SC″ ″
- RETURN
- @TM
- TM=TMAX−FLOOR((MAINCNTL−OLDTM)/60)
- LOCATE 26,2:? TM″ ″
- IF TM==10 THEN TALK”ハヤクシナサイ!”
- IF TM==0 GOTO @GMOV
- RETURN
- @GMOV
- F=0
- FOR X=0 TO 23
- FOR Y=0 TO 23
- BGREAD(1,X,Y),I,J,K,L
- IF I==7 THEN F=F+1
- NEXT
- NEXT
- IF F==0 THEN SC=SC+BONUS
- BGMPLAY 4
- COLOR 1
- LOCATE 8,7:?″GAMEOVER″
- LOCATE 4,9:?″アナタノトクテンハ...″SC″!!″
- LOCATE 8,12:?″マタアソンテ゛ネ!″
- WAIT 250
- @TI
- CLS
- BGMPLAY 8
- COLOR 1
- LOCATE 7,6:?″クサトリケ゛ーム″
- LOCATE 1,8:?″1フ゜ンカンニ ナルヘ゛ク オオクノ″
- LOCATE 15,9:?″クサヲ ヌコウ!″
- LOCATE 17,4:?″Бホ゛タンテ゛ クサヲ ヌクヨ!″
- LOCATE 19,1:?″キイロイ ハナハ ヌイチャタ゛メ タ゛ヨ!″
- LOCATE 22,8:?″Аヲ オシテネ!″
- COLOR 0
- @TILOOP
- IF BUTTON() AND 16 GOTO @START
- GOTO @TILOOP
- @MAP
- FOR X=0 TO 23
- FOR Y=0 TO 23
- R=RND(16):CL=8
- IF R%2==0 THEN C=37
- IF R%2==1 THEN C=9
- IF R%4==0 THEN CL=11
- IF R==0 THEN CL=9
- BGPUT 1,X,Y,C,CL,0,0
- NEXT
- NEXT
- RETURN
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・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