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

Toukou/ufoshot の変更点

パンくずリスト


#title(投稿プログラム : UFO SHOT)
#contents
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
//------------------------------------------------------------------------------
// ・投稿年月日は、このページを投稿しようとしている今日の日付を半角数字で入力してください。
//   この日付は、投稿プログラムを自動的に年月日順に並べる際に使用されます。
// ↓↓↓
2012年4月2日投稿
// ↑↑↑
//------------------------------------------------------------------------------
// ・投稿者名は、将来的に投稿プログラム一覧に表示するために使用します。
// ・「名無しさん」のままにしておくと、匿名の方からの投稿として扱われます。
// ↓↓↓
/ 投稿者 : いのっち
// ↑↑↑
//------------------------------------------------------------------------------
// ・適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。
// ★次に該当するプログラムは、特定のタグを設定するようご協力お願いします。
//   これらを設定すると、将来的に投稿プログラム一覧に目立つマークが付くようになる予定です。
// ・短いプログラム → 「1行プログラム」「数行プログラム」「1画面プログラム」タグのいずれか1つ
// ・初代プチコンでも動作するプログラム → 「初代対応」タグ
// ・mkII 以降専用のプログラム → 「mkII専用」タグ
// ・QRコードを掲載している → 「QRコード」タグ
// ・該当するなら「ゲーム」「実用ツール」「音楽」タグのいずれか
// ↓↓↓
/ &tag(投稿プログラム,ゲーム,シューティングゲーム,QRコード,初代対応);
// ↑↑↑

//------------------------------------------------------------------------------
// ここに概要とか書きます。** や *** で始まる行は子見出しとなります。
// [#英数字] はページ内リンクに使用されるアンカーですが、
// 書かなかったり、消したりしてもかまいません。
// ない場合、自動でランダムな文字列が再付与されます。

* 遊び方 [#Summary]
-遊び方は簡単です。自機を動かして画面下に降りてくるUFOを撃ち落とすだけです。
-制限時間以内に20機以上撃ち落とせば1レベルクリアです。
-UFOにぶつかると残機が1つ減ります。
-残機がすべてなくなるか、制限時間以内にきていのUFOを撃ち落とさなかったら、ゲームオーバーです。
** 操作方法 [#Control]
-十字ボタンの右/左 自機移動
-Aボタン ビーム発射
-スタートボタン ポーズ/ポーズ解除
**その他 [#Etc]
-初めて作りました。クソゲーかもしれません。
-バグがあるかもしれませんが、大目に見てください。
-参考ゲームはスペースインベーダーです。
-次回は簡単なアクションゲームを投稿する予定です。
/////////////////////////////////

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

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

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

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

* QR コード [#QR]
プチコンmkII 向けの QR コードです。
|~1/3|~2/3|~3/3|
|&ref(ufoshot qr0.png,,200%);|&ref(ufoshot qr1.png,,200%);|&ref(ufoshot qr2.png,,200%);|

// 【重要】旧プチコンから mkII に転送したプログラムは、mkII で保存しなおしてから
// QR コード化すると、枚数が半分ぐらいに減ります。ぜひお試し下さい。

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

// QR コードを大きくしたい場合は、倍率指定ができます。コンマは必ず 2 つ指定してください。
// ブラウザによっては補完がかかってボケますが、それでも問題なく読み込み可能です。
// #ref(アップロードしたファイル名,,200%)

// 複数の QR コードを貼り付けるために表組みを用いる場合、&ref(); を使用します。
// (#ref() を表に埋め込んでしまうと、古い Internet Explorer でうまく表示されません)
// |~1/2|~2/2|
// |&ref(添付ファイル名);|&ref(添付ファイル名,,200%);|

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

* プログラムリスト [#List]
#basic{{
CLS:CLEAR:BGMSTOP:WAIT 20
@TITLE
LOCATE 9,6:?"イノッチクン ノ"
LOCATE 11,8:?"UFO SHOT!"
LOCATE 9,15:?"PUSH START!!"
LOCATE 6,20:?" (C)2012/4/2 イノッチ"
@LOOP1
B=BUTTON()
IF B AND 1024 THEN GOTO @SETTING
GOTO @LOOP1
@SETTING
CLS:CLEAR:TM=1500:LF=3:LV=1:TJ=30:DIM EX(20),EY(20)
EMAX=LV:FOR I=0 TO 2+EMAX:GOSUB @EINIT
NEXT I:WAIT 20
MX=5:MY=21:LOCATE 0,22
FOR I=0 TO 31:?"=";:NEXT:BGMPLAY 0
@START
BGMPLAY 0

@MLOOP
LOCATE 2,23:?"SC: "SC;
LOCATE 11,23:?"TIME";TM;" ";
LOCATE 21,23:?"Г:"LF;
LOCATE 25,23:?"LV:"LV;
GOSUB @EMOVE:GOSUB @MMV
GOSUB @SHT:WAIT 6:TM=TM-1
IF TM<0 AND TJ>=20 THEN GOSUB @STCLR
IF LF<1 OR (TM<1 AND TJ<=19) THEN CLS:GOTO @GOVER
GOTO @MLOOP

@EINIT
EX(I)=RND(29):EY(I)=RND(6)
RETURN

@MMV
K=BUTTON():IF K AND 0 THEN RETURN
IF K AND 1024 THEN @PAUSE
LOCATE MX,MY:?" ";
MX=MX+(K AND 8)/8-(K AND 4)/4
IF MX<1 THEN MX=0
IF MX>30 THEN MX=31
LOCATE MX,MY:?"Г";:FOR I=0 TO 2+LV
IF MX>=EX(I) AND MX<=EX(I)+2 AND EY(I)>MY THEN GOSUB @MISS
NEXT:RETURN

@SHT
IF K AND 16 THEN IF FL==0 THEN FL=1:SX=MX:SY=MY-1:BEEP 10
IF FL==0 THEN RETURN
GOSUB @KESU:SY=SY-1
LOCATE SX,SY:?"│";:GOSUB @HIT
IF SY<1 THEN GOSUB @KESU:SY=50:FL=0
RETURN
@KESU
LOCATE SX,SY:?" ";:RETURN

@EMOVE
FOR I=0 TO 2+EMAX
LOCATE EX(I),EY(I)? "   ";
DIR=RND(3)
EX(I)=EX(I)-(DIR AND 1)+(DIR AND 2)/2
EY(I)=EY(I)+(DIR AND 3)/3
IF EX(I)>29 THEN EX(I)=0
IF EX(I)<1 THEN EX(I)=28
IF EY(I)>22 THEN EY(I)=0
LOCATE EX(I),EY(I):?"=●=";
NEXT:GOSUB @HIT:RETURN

@HIT
FOR I=0 TO 2+EMAX
 IF SX>=EX(I) AND SX<=EX(I)+2 AND SY>EY(I)-1 AND SY<EY(I) THEN GOSUB @HIT2
NEXT:RETURN

@HIT2
LOCATE SX,SY:?" ";:TJ=TJ+1:BEEP 11
SC=SC+1:LOCATE EX(I),EY(I):?"   ";
FL=0:SY=99:GOSUB @EINIT:RETURN

@MISS
BEEP 13:FOR I=0 TO 15:COLOR RND (15):WAIT 5
LOCATE MX,MY:?"***";:NEXT:LF=LF-1
COLOR 15:LOCATE MX-1,MY:?"    ";:IF LF<1 THEN GF=1
MX=9:RETURN
@GOVER
BGMPLAY 6:LOCATE 10,10:?"GAME OVER"
LOCATE 10,15:?" SCCRE:"SC:WAIT 400:
GOTO @TITLE

@STCLR
BGMPLAY 4:LOCATE 10,10:?"CLEAR!!":EMAX=EMAX+1:LV=LV+1:TM=1500
IF LV>10 THEN EMAX=10
TJ=0:FOR I=0 TO 2+LV:GOSUB @EINIT:NEXT
WAIT 190:CLS:LOCATE 0,22
FOR I=0 TO 31:?"=";:NEXT:GOTO @START

@PAUSE
WAIT 15:BEEP
@LOOP
B=BUTTON():IF B==0 GOTO @LOOP
IF B==1024 THEN WAIT 15:RETURN
}}
/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''hatena'' : いのっちさん。プログラムリストをコメント行として載せておきました。 (&new{2012/04/04 (水) 13:50:35};)
- ''名無しさん'' : pushってどこをpushするの? (&new{2012/04/06 (金) 21:56:36};)
- ''hatena'' : startボタンじゃないの。だって&basic{PUSH START};って書いてあるし。 (&new{2012/04/07 (土) 13:58:10};)
- ''人間'' : てっきりボタン押したらスタートって思った (&new{2012/04/09 (月) 15:11:38};)
- ''いのっち'' : かなり遅れましたけど、hanetaさん、プログラムリストありがとうございます。 (&new{2012/04/14 (土) 15:22:48};)
- ''いのっち'' : hanetaじゃなくって、hatenaだった。hatenaさんすいませんでした。 (&new{2012/04/14 (土) 15:45:19};)
- ''EXE'' : ただいま ufoshot 改造中... (&new{2012/04/29 (日) 19:36:14};)
- ''hata0401'' : 結構遊べますね (&new{2012/06/10 (日) 21:37:52};)
- ''hata0401'' : 最初、「ウフォショット」かと思ってたよwww (&new{2012/06/10 (日) 21:39:22};)
- ''yama'' : むずい (&new{2012/07/25 (水) 16:54:56};)
- ''ウイング'' : すごい (&new{2012/07/25 (水) 18:34:51};)
- ''sあ'' : hata0401のまちがいがすごいww こっちも「ウフォショット」かと思ってたよwww(UFOがUHOに見えたww) (&new{2013/04/02 (火) 16:23:47};)
- ''しお姉'' : 「ウフォショット」が「ウショフォント」に見えた。 (&new{2013/04/02 (火) 18:19:46};)
- ''名無しさん'' : ウフォいいショット(意味深) (&new{2013/04/02 (火) 18:28:13};)
- ''シトリン'' : アッー!カキッー! (&new{2013/04/03 (水) 01:06:32};)
- ''wR'' : しお姉と名無しさんの発想すごいwww (&new{2013/04/03 (水) 01:25:49};)

#comment

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