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

Toukou/SEバッティング の変更点

パンくずリスト


#title(投稿プログラム : SEバッティング)
#contents
// ↑この2行は削除しないでください。
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
//------------------------------------------------------------------------------
// ・投稿年月日は、このページを投稿しようとしている今日の日付を半角数字で入力してください。
//   この日付は、投稿プログラムを自動的に年月日順に並べる際に使用されます。
// ↓↓↓
2013年02月28日投稿
// ↑↑↑
//------------------------------------------------------------------------------
// ・投稿者名は、将来的に投稿プログラム一覧に表示するために使用します。
// ・「名無しさん」のままにしておくと、匿名の方からの投稿として扱われます。
// ↓↓↓
/ 投稿者 : YHY
// ↑↑↑
//------------------------------------------------------------------------------
// ・適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。
// ↓↓↓
/ &tag(投稿プログラム,ゲーム,スポーツ,ミニゲーム,QRコード);
// ↑↑↑
// ↑↑↑
//------------------------------------------------------------------------------
// ここに概要とか書きます。
// ・** や *** で始まる行は子見出しとなります。* の数で深さが決まります。
// ・[#英数字] はページ内リンクに使用されるアンカーですが、
//   書かなかったり、消したりしてもかまいません。ない場合はランダムな文字列が自動付与されます。

* 概要 [#Summary]
-「妄想コント○ーラ」をイメージして作成した、SE(効果音)だけのバッティングゲームです。~
無駄に長いプログラムですが、楽しんで頂ければ幸いです。~
-2013.03.01 こっそり修正。大きな変化はないので、更新はお好みでお願いします。

* 操作方法 [#Sousa]
-タイミング良くAボタンを押すだけです。~
ジャストタイミングでホームラン。早めでレフト方向、遅めでライト方向に球が飛びます。~
ファールはヒットよりもタイミングがズレています。上手く調節して下さい。

** その他 [#Komidashi]
-球速120km/hだと、丁度1秒後にボタンを押せばホームランになります。~
-打率は累計を取って算出しています。その為、回数が少ないと正確な値が出ません。~
-打撃戦でホームランを打つと、出塁している走者の分だけ点が多く入ります。~
ヒットの場合、出塁数が3の時に打たないと点が入りません。(長打という概念が無いため)~
-裏テーマとして「プリセット効果音のみで野球っぽく」というのがあります。~
-難しい事は何もしていないので、ACLSやWAITを置き換えれば初代プチコンでも動くと思います。~
-怪しい挙動等ありましたら、下記の「CHECKER FLAG」でご指摘して頂ければ助かります。~

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

* スクリーンショット・動画 [#ScreenShots]
// 動作しているところを撮影した写真や動画があれば貼り付けてください。

// ページを作成すると、画像の添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// 画像をアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(添付ファイル名)

#ref(seb001.jpg)

/////////////////////////////////
// QR コードがない場合は、この部分は削除してください

* QR コード [#QR]
プチコンmkII 向けの QR コードです。

// ページを作成すると、QR コードの添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// QR コードをアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(アップロードしたファイル名)

// 複数の QR コードを貼り付けるために表組みを用いる場合、&ref(); を使用します。
// (#ref() を表に埋め込んでしまうと、古い Internet Explorer でうまく表示されません)

|>|>|~PRG:YHYSEBJ2|
|~1/2|~2/2|
|&ref(qr311.png);|&ref(qr312.png);|

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

* プログラムリスト [#List]
#region(137行)
#basic{{
'サクシャ:YHY
'2013.03.01 Ver.1.1

CLEAR
@TIT
ACLS:BEEP 2
?
? "<<<SE バッティング>>>
?
? "SE(コウカオン)ヲ タヨリニ
? "タイミングヨク Аヲ オシテクダサイ.
?
? "<ゲ-ム センタク>
? "ホ-ムラン キョウソウ : PUSH А
? "フリ- バッティング: PUSH Б
? "ダゲキ セ ン   : PUSH Х
?
H=0:B=0:M=0
@LP
IF BUTTON(0)==16  GOTO @MD1
IF BUTTON(0)==32  GOTO @MD2
IF BUTTON(0)==128 GOTO @MD3
GOTO @LP

@MD1
M=1
? "<スピ-ド センタク>
? "090km/h →   PUSH Ф
? "120km/h →→  PUSH Х
? "150km/h →→→ PUSH Б
@LP1
IF BUTTON(0)==64  THEN A=3:GOTO @M1_NEX
IF BUTTON(0)==128 THEN A=2:GOTO @M1_NEX
IF BUTTON(0)==32  THEN A=1:GOTO @M1_NEX
GOTO @LP1
@M1_NEX
?

@MD2
GOSUB @SET
FOR I=1 TO 5
IF M!=1 THEN A=RND(3)+1
GOSUB @PIT
IF M==1 AND F==4 THEN H=H+1
IF M!=1 AND F>2  THEN H=H+1
WAIT 120
?
NEXT
IF M==1 THEN ? "アナタノ ホ-ムランハ ";H;"ホン デス.
IF M!=1 THEN GOSUB @AVE
GOTO @RET

@AVE
H1=H1+H:H2=H2+1
IF H1!=0 THEN H=H1/H2*2
H$=STR$(H)
H$=LEFT$(H$,4)
? "アナタノ ダリツハ ";H$;"ワリ デス.
RETURN

@MD3
GOSUB @SET
FOR I=1 TO 10
A=RND(3)+1
GOSUB @PIT
WAIT 6
GOSUB @SCR
WAIT (RND(3)+1)*60
?
NEXT
? "アナタノ トクテンハ ";H;"テン デス.
GOTO @RET

@SCR
IF F==4 THEN H=H+B+1:B=0
IF F==3 THEN B=B+1
IF B>3 THEN B=3:H=H+1
? "シュツルイ г=";B
RETURN

@SET
? "ジュンビチュウ.
?
WAIT 60
RETURN

@RET
? "Фデ タイトルニ モドリマス.
BEEP 2
@LP2
IF BUTTON(0)==64 GOTO @TIT
GOTO @LP2

@PIT
? "ピッチャ- ナゲマシタ!
BEEP 6,-12256+(4-A)*6128
C=0:F=0
FOR J=1 TO A*35
WAIT 1
C=C+1
IF F>0 GOTO @S_NEX
IF BUTTON(2)==16 THEN GOSUB @CHE
@S_NEX
NEXT
IF F>1 GOTO @S_NEX2
? "ストライク! : ";55+(4-A)*30+RND(10);"km/h
BEEP 4
@S_NEX2
RETURN

@CHE
F=1
IF C==A*30 GOTO @HR
IF F<4 AND C>=A*28.5 AND C<=A*31.5 GOTO @HIT
IF F<3 AND C>=A*28   AND C<=A*32   GOTO @FL ELSE BEEP 10
RETURN

@HR
? "ИИИ ホ-ムラン!! ИИИ"
BEEP 32
F=4
RETURN

@HIT
A$="センタ-"
IF C<A*29.5 THEN BEEP 8,0,64,0   :A$="レフト"
IF C>A*30.5 THEN BEEP 8,0,127,127:A$="ライト" ELSE BEEP 8
? A$;" ホウコウニ ヒット."
F=3
RETURN

@FL
A$="ミギ"
IF C<A*30 THEN BEEP 8,4048,64,0:A$="ヒダリ" ELSE BEEP 8,4048,127,127
? "ファール! ";A$;"ニ ソレマシタ."
F=2
RETURN
}}
#endregion

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

** 更新履歴 [#Kousin]
-2013.02.28 投稿。
-2013.03.01 Ver.1.1 ファールを追加。SEを左右に振り分け。打率を下2桁まで表示。

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

* ご感想をどうぞ (5段階評価) [#toukou]
#vote(面白い[3],  ↑  [0],ふつう[2],  ↓  [2],つまらない[8])
#vote(面白い[3],  ↑  [0],ふつう[2],  ↓  [2],つまらない[9])

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

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''YHY'' : 投稿完了。1/60秒毎のタイミングで上手く処理出来ていると良いのですが…。 (&new{2013/02/28 (木) 19:09:06};)
- ''YHY'' : …更新完了。気のせいか左からのSEの方が大きく聞こえる為、音量を下げています。 (&new{2013/03/01 (金) 19:46:33};)
- ''名無しさん'' : おつかれ (&new{2013/03/03 (日) 15:09:42};)

#comment

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