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

Toukou/モグラタタキゲーム Ver.1.3 の変更点


#title(投稿プログラム : モグラタタキゲーム Ver.1.3)
#contents
/////////////////////////////////
// 適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
// タグをつけると、同じタグが付いたページを検索することができます。  

2014年01月16日投稿
/ 投稿者 : Tachesci
/ &tag(投稿プログラム,ゲーム);

/////////////////////////////////
// ここに概要とか書きます。

* 概要 [#qadeb7be]
もぐらたたきを作りました。暇潰しで作ったものですが、私としては結構頑張った方だと思います。

**操作方法 [#efed5ca0]
F1~F5:もぐらを叩く~
START:2回押しで終了~
SELECT:強制終了

*注意 [#d27c0157]
このゲームには裏技があります。プログラムリストを見ればわかると思います。

// ページを作成すると、画像の添付ができるようになります。(作成する前はできません)
// 画像を添付したら、以下の書式でページ内に貼り付けられます。
// #ref(添付ファイル名)

// 以下の書式で、動画を貼り付けられます。
// #youtube(0HWX7kovgY8)
// #nicovideo(sm13684820)

/////////////////////////////////

* プログラムリスト [#z25b0ccf]
#basic{{
ACLS
PRINT "もぐらたたきげーむ Ver.1.3"
PRINT "(C)2013-2014 TACHESCI's GAMES"
PRINT "HI-SCORE"
PRINT HI
PRINT "SCORE"
PRINT SCORE
PRINT "START*2:END"
PRINT "SELECT:BREAK"
PRINT
SCORE=0
D=0
TWO=0

@A
A=RND(5)+1
FOR B=1TO 5
KEY B," "
NEXT
KEY A,"\^^/"
FOR C=1TO 200-D
WAIT 1
A$=INKEY$()
GOSUB @B
NEXT
GOTO @A

@B
OWATA=BUTTON(1)
IF A$=="/" THEN GOTO @C
IF A$==" " THEN GOTO @D
IF OWATA==1024 THEN GOSUB @E
RETURN

@C
KEY A,"\**/"
WAIT 10
IF D<170 THEN D=D+5
SCORE=SCORE+D
IF HI<=SCORE THEN HI=SCORE
LOCATE 0,3
PRINT "           "
LOCATE 0,3
PRINT HI
LOCATE 0,5
PRINT "           "
LOCATE 0,5
PRINT SCORE
GOTO @A

@D
LOCATE 0,9
PRINT "GAME OVER"
KEY 1,"FILES"
KEY 2,"LOAD"+CHR$(&H22)
KEY 3,"SAVE"+CHR$(&H22)
KEY 4,"CONT"
KEY 5,"RUN"
END

@E
IF TWO==1 THEN GOTO @D
IF TWO==0 THEN TWO=1
RETURN
}}

*QRコード [#i21d8045]
&ref(TAC_WAM.PNG);

*カウンタ [#j74f08ba]
今日:&counter(today);人~
今まで:&counter(total);人

/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

*コメント [#t897b3cb]
- ''名無しさん'' : おうあくしろよ (&new{2014/01/16 (木) 15:48:06};)
- ''Tachesci'' : どういう意味ですか? (&new{2014/01/16 (木) 17:00:00};)
- ''名無しさん'' : ↑ http://dic.nicovideo.jp/a/%E3%81%82%E3%81%8F%E3%81%97%E3%82%8D%E3%82%88 (&new{2014/01/16 (木) 19:27:17};)
- ''かつみ'' : これからも頑張ってください!(うごメモで知りあったかつみです) (&new{2014/01/16 (木) 21:02:36};)
- ''じゃけん'' : GC版パ●プロ君の矢部君がたまにやってくるあれか (&new{2014/01/16 (木) 21:31:53};)
- ''キービィ'' : PRINTは?に短縮可…ってのは分かるか。 (&new{2014/01/17 (金) 08:35:17};)
- ''Tachesci'' : 名無しさん&#187;そういうことなのですね。ありがとうございます。 (&new{2014/01/17 (金) 16:47:36};)
- ''Tachesci'' : かつみさん&#187;ありがとうございます。 (&new{2014/01/17 (金) 16:48:07};)
- ''Tachesci'' : キービィさん&#187;知っています。ですが、?の短縮は嫌いです。 (&new{2014/01/17 (金) 16:49:12};)
- ''Tachesci'' : じゃけんさん&#187;すみません。よくわかりません。 (&new{2014/01/17 (金) 16:50:05};)
- ''Tachesci'' : キービィさん(追記)&#187;PRINTを短縮するとプログラムが見辛くなるので。それと私は英語が好きですし。 (&new{2014/01/17 (金) 16:51:24};)
- ''ku'' : プログラムリストが見易い方が良い・英語が好きと言いなら、変数名を分かりやすく変えた方が良いのでは? (&new{2014/01/18 (土) 15:28:36};)
- ''名無しさん'' : 作者本人が好んでやってるんだからいいんだよ。QRコードは欲しいけどね。 (&new{2014/01/18 (土) 19:23:02};)
- ''J'' : つ QR (&new{2014/01/18 (土) 21:09:40};)
- ''今は名無し'' : DLしました (&new{2014/01/19 (日) 12:04:10};)
- ''矢部君'' : おいらに負けたら1週間負け犬って呼ばせてもらうでやんス (&new{2014/01/20 (月) 21:14:44};)
- ''Tachesci'' : 言われてみれば変数名とラベルは変数名とラベルが見辛いですね…。 (&new{2014/01/21 (火) 06:37:25};)
- ''Tachesci'' : QRコード貼っていただきありがとうございます。 (&new{2014/01/21 (火) 06:38:07};)
- ''ku'' : プログラムリストが見易い方が良い・英語が好きと言いなら、変数名を分かりやすく変えた方が良いのでは? (&new{2014/01/21 (火) 19:31:40};)
- ''矢部君 '' : おいらに負けたら1週間負け犬って呼ばせてもらうでやんス (&new{2014/01/21 (火) 19:32:03};)
- ''kei'' : tachesci (&new{2014/03/05 (水) 20:32:00};)
- *プライベートな内容を含むため削除されました* (&new{2014/03/05 (水) 20:33:32};)
- ''Tachesci'' : keiさん&#187;お久しぶりです。お元気でしたか。 (&new{2014/03/07 (金) 00:06:52};)
- ''Tachesci'' : keiさん(追記)&#187;ついでにスペル違いますよ。覚えにくくて申し訳ないですが。 (&new{2014/03/07 (金) 00:07:44};)

#comment

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