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

Toukou/はやうち!キーボードインベーダ の変更点


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

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

#blockdiv(class:block-info)
今日は、&counter(today);人~
これまでに、&counter(total);人~
-----------------------------------
閲覧 Thank you! (o^ω^o)
#blockdiv(end)

* プチコンでタイピングゲームを作ってみました。 [#Summary]
こんな小さなキーボードで、何のためにタイピングをするのか、気になる人もいると思いますが、↓このような意味があります。
- プチコンのキーボードに慣れる。
- キーボードの配置を覚える。
- ローマ字を覚える。

** 操作方法 [#Sousahouhou]
*** メニュー画面 [#scaddf51]
- 選択:十字ボタン
*** ゲーム中 [#m6e3afd6]
- 文字入力:キーボード
- ポーズ:ボタン
*** ポーズ中 [#q13d253e]
- 再開:Aボタン
- メニューにもどる:Bボタン

** ストボンって誰だよ。 [#c2a2135b]
ほい。[[ストボンって誰だよw>Toukou/ストボンのインベーダーゲーム。#q4f6bc83]]

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

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

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

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

[[Doors>Toukou/「Doors」あなたのプチコンを便利にするOS]]から起動してみました。
-https://www.youtube.com/watch?v=DsgGv3VT0K8&list=PLf_AFwBswN_o-z9gqzqu6X3nW6eAmUOj5 - 0:55 PRG:SKEYを起動

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

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

// 【重要】旧プチコンから mkII に転送したプログラムは、mkII で保存しなおしてから
// QR コード化すると、枚数が半分ぐらいに減ります。ぜひお試し下さい。
// 【重要】添付できるのは画像ファイルのみです。zip ファイルは解凍してください。

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

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

// 複数の QR コードを貼り付けるために表組みを用いる場合、&ref(); を使用します。
// (#ref() を表に埋め込んでしまうと、古い Internet Explorer でうまく表示されません)
|>|>|~PRG:SKEY101|
|>|>|&ref(skey101_qr_141101-150325.png,,100%);|

↑更新しました(Version1.0.1)

#vote(DLしました!ボタン[10])

評価
#vote((・∀・)イイ!![3],(・∀・)イイヨイイヨー[0],(・A・)イクナイ!![0],(゚Д゚)ゴルァ!![0],(゚∀゚)アヒャ[0],(ノ∀`)アチャー[0],(゚Д゚ )アラヤダ!![0],(゚゚)イラネ[0],(゚д゚)ウマー[0],(・∀・)ニヤニヤ[0],(゚Д゚)ハァ?[0],(・∀・)カエレ!![1],\(^o^)/オワタ[1])
#vote((・∀・)イイ!![3],(・∀・)イイヨイイヨー[0],(・A・)イクナイ!![0],(゚Д゚)ゴルァ!![0],(゚∀゚)アヒャ[0],(ノ∀`)アチャー[0],(゚Д゚ )アラヤダ!![0],(゚゚)イラネ[0],(゚д゚)ウマー[0],(・∀・)ニヤニヤ[0],(゚Д゚)ハァ?[0],(・∀・)カエレ!![1],\(^o^)/オワタ[2])

** おまけ [#p3d2adbf]
|BGF:SKFT(オススメフォント)|
|&ref(skft_qr_141028-053647.png);|
↑フォントを使ったプログラムの起動には、[[Doors>Toukou/「Doors」あなたのプチコンを便利にするOS]]が便利です。

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

* プログラムリスト [#List]
#region(&basic{ LOAD"SKEY" };)
#basic(hiragana){{
'PRG:SKEY
’--------
’┗┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┫
’┛ハヤウチ!キ−ホ゛−ト゛インヘ゛−タ゛┻
’┫┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┗

@SPEEDKEYBOARD

’セッテイ<=======================

ACLS:CLEAR:PNLTYPE”KYA”
BGMSTOP

’SAVEDATA<−−−−−−−−−−−−−−−−−−−
DIM HN$(5),HI(5)
MEM$=””SYSBEEP=FALSE
LOAD”MEM$:SKSD”,0SYSBEEP=1
IF MEM$==””THEN MEM$=”−−−−−99999”*5
FOR I=0 TO 4
 HN$(I)=MID$(MEM$,I*10,5)
 HI(I)=VAL(MID$(MEM$,I*10+5,5))/10
NEXT

’ストホ゛ンキャラテ゛−タ<−−−−−−−−−−−−−−−
SUTOCHR$=”004660000F455F000FFFFFF00FFFEFE00FFFFFF0BBBBBBBBBABAABAB00000000”
CHRSET ”BGF0U”,5,SUTOCHR$
CHRSET ”BGF0L”,5,SUTOCHR$

’KEYCLEAR<−−−−−−−−−−−−−−−−−−−
DIM K$(5)
K$(0)=”FILES”
K$(1)=”LOAD”+CHR$(34)
K$(2)=”SAVE”+CHR$(34)
K$(3)=”CONT”
K$(4)=”RUN”
GOSUB @KEYCLEAR

’KEYPRINT<−−−−−−−−−−−−−−−−−−−
KEYP$=”Д”+” ”*19 ’KEYニヒョウシ゛スルモシ゛レツ
KLOC=0 ’サ゛ヒョウ
KP$=”Е” ’モシ゛
FOR KLOC=4 TO 16 STEP 4
GOSUB @KEYPRINT:NEXT

’DATAヨミコミ<−−−−−−−−−−−−−−−−−−−
DIM KANA$(100),ROO$(100),S(10)
RESTORE @KANADATA
FOR I=0 TO 99
 READ KANA$(I)
 IF KANA$(I)==”” THEN MAX=I−1:I=99
NEXT
RESTORE @ROOMAZIDATA
FOR I=0 TO MAX
 READ ROO$(I)
NEXT


’MAINMENU<===================
CS=1
@MENU
VSYNC 1COLOR 0,0CLS:M$=”А”

?” │──┼─ ─┼─┼┐  ──┐    │   │”
?” │  │   │  │ ────┐ ──┼── │”
?” │  │   │        │   └─┐ │”
?” │┌─┼─  │        │     │  ”
?” └└─┘   │     ───┘  ───┘ │”
?
COLOR 3
?”   │         ──┼┼┼       │ ││
?” ──┼──         │         │   
?”   │   ───── │ │ │ ───── ├──┐
?” ──┼──       │ │ │       │   
?”   │         ┘ │ └       │   
?
COLOR 7
?”     │ ──  │             ┌─┼┼┐
?” ──┬─┘     │ ┌──┼┼       │   │
?”   │       │ │     ───── │───│
?”   │       │ │               │
?”   │   ────┘                 │

COLOR 0
LOCATE 2,18?”Story”
LOCATE 2,20?”GameStart”
LOCATE 2,22?”Exit”,
COLOR 9?”by キャラクタ−セイサクシ゛ョ soft”;

KLOC=1KP$=M$:GOSUB @KEYPRINT

B=BUTTON()
IF B AND 1 THEN CS=CS−1BEEP 47WAIT 10
IF B AND 2 THEN CS=CS+1BEEP 47WAIT 10
IF CS<0 THEN CS=0
IF CS>2 THEN CS=2
COLOR 4LOCATE 1,CS*2+18?”П”

IF !(B AND 16) THEN @MENU

GOSUB @SHOT

ON CS GOTO @STORY,@GAME,@END


@GAME ’<=====================
E=10EV=0BEEP 36COLOR 0,5CLS
BGMPLAY 2

@RNDKANA ’<−−−−−−−−−−−−−−−−−−
NUM=RND(MAX+1):M$=KANA$(NUM)
EV=EV−0.0125EX=20ST$=””?
CNT=MAINCNTL

@LOOP ’<−−−−−−−−−−−−−−−−−−−−−
 VSYNC 1
 KLOC=1KP$=M$GOSUB @KEYPRINT
 KLOC=FLOOR(EX):KP$=” ”GOSUB @KEYPRINT
 EX=EX+EV
 KLOC=FLOOR(EX):KP$=”Е”GOSUB @KEYPRINT
 IF FLOOR(EX)==0 THEN @GAMEOV
 IN$=INKEY$()
 ST$=ST$+IN$:?IN$;
 IF ST$==ROO$(NUM) THEN @HIT
 IF ST$!=LEFT$(ROO$(NUM),LEN(ST$)) THEN ST$=””?” м”:?:BEEP
 IF E<1 THEN @GAMECL
 IF BTRIG() THEN GOSUB @PAUSE
GOTO @LOOP

@HIT ’<−−−−−−−−−−−−−−−−−−−−−−
 S(10−E)=FLOOR((MAINCNTL−CNT)/6)/10
 ?”  ”;S(10−E);”ヒ゛ョウ”
 E=E−1
 GOSUB @SHOT
GOTO @RNDKANA

@PAUSE ’<−−−−−−−−−−−−−−−−−−−−
?”Аサイカイ/БMENU”:WAIT 10
@PAUSELOOP
B=BUTTON()
IF B AND 16 THEN WAIT 10?”サイカイシマシタ”:RETURN
IF B AND 32 THEN WAIT 10GOTO @SPEEDKEYBOARD
GOTO @PAUSELOOP

@GAMECL ’<−−−−−−−−−−−−−−−−−−−
BGMSTOP
FOR I=0TO 5BEEP 13WAIT 10+I*3NEXT
WAIT 60TALK”コウシテ フ゜チコンノヘイワワ マモラレルノテ゛アッタ”
GOSUB @KEYCLEAR:WAIT 300
BGMPLAY 8
FOR I=0TO 9SC=SC+S(I):NEXT:SC=SC/10
IF HI(4)>SC THEN GOSUB @HISCORE
?:?”★ランキンク゛ 1―5イ★”
FOR I=0 TO 4
 ?:?I+1;”イ ”;HN$(I);” ヤク”;HI(I);”ヒ゛ョウ”
NEXT
LINPUT A$:GOTO @SPEEDKEYBOARD

@HISCORE ’<−−−−−−−−−−−−−−−−−−
 HI(4)=FLOOR(SC*10)/10
 ?”ランクインシマシタ! アナタノキロク:”;SC;”ヒ゛ョウ”
 ?
 INPUT”ナマエハ”;HN$(4)
 HN$(4)=LEFT$(HN$(4)+”     ”,5)
 SORT 0,5,HI,HN$
 MEM$=””
 FOR I=0 TO 4
  MEM$=MEM$+HN$(I)+RIGHT$(”00000”+STR$(HI(I)),5)
 NEXT
 SYSBEEP=0SAVE”MEM$:SKSD”
 SYSBEEP=1IF RESULT THEN BEEP 3 ELSE BEEP 4
RETURN

@GAMEOV ’<−−−−−−−−−−−−−−−−−−−
BGMSTOP:BEEP 14WAIT 70BGMPLAY 6
WAIT 350:TALK”ストホ゛ンノマケ”
LINPUT A$:GOTO @SPEEDKEYBOARD


@STORY ’<====================
COLOR 0,5CLS:GOSUB @KEYCLEAR
RESTORE @STORYDATA
 FOR I=0 TO 1
  READ R$:TALK R$:?R$
  READ R:WAIT R
  I=R==0
 NEXT
GOTO @SPEEDKEYBOARD


@END ’<======================
COLOR 0,5CLS:GOSUB @KEYCLEAR
?”See you!”:WAIT 60BEEP 4ACLS

END ’ВВВВВВВВВВВВВВВВВВВВВВВВ


@SHOT ’ミサイルハッシャ<=============
 BEEP 10
 FOR KLOC=1 TO 20
  IF MID$(KEYP$,KLOC,1)==”Е” THEN BEEP 11
  KP$=M$:GOSUB @KEYPRINT
  VSYNC 1
  KP$=” ”GOSUB @KEYPRINT
 NEXT
RETURN

@KEYPRINT ’ル−チン<=============
 FOR I=1 TO 5
  KEYP$=SUBST$(KEYP$,KLOC,1,KP$)
  KEY I,MID$(KEYP$,(I−1)*4,4)
 NEXT
RETURN

@KEYCLEAR ’ル−チン<=============
 FOR I=0 TO 4
  KEY I+1,K$(I)
 NEXT
RETURN


’DATA<=======================

@STORYDATA
DATA”アルヒノコトタ゛ッタ”,100
DATA”フ゜チコンノキ−ホ゛−ト゛ニインヘ゛−タ゛−カ゛セメテキタ”,200
DATA”ソコテ゛ヒトリノユウシャカ゛タチアカ゛ッタ”,160
DATA”ソノナモ”,60
DATA”ストホ゛ン!”,60
DATA”ロ−マシ゛ヲニュウリョクシテ”,120
DATA”ハッシャタ゛!”,60
DATA””,0

@KANADATA
DATA ”ア”,”イ”,”ウ”,”エ”,”オ”
DATA ”カ”,”キ”,”ク”,”ケ”,”コ”
DATA ”サ”,”シ”,”ス”,”セ”,”ソ”
DATA ”タ”,”チ”,”ツ”,”テ”,”ト”
DATA ”ナ”,”ニ”,”ヌ”,”ネ”,”ノ”
DATA ”ハ”,”ヒ”,”フ”,”ヘ”,”ホ”
DATA ”マ”,”ミ”,”ム”,”メ”,”モ”
DATA ”ヤ”,”ユ”,”ヨ”
DATA ”ラ”,”リ”,”ル”,”レ”,”ロ”
DATA ”ワ”,”ヲ”,”ン”
DATA ””

@ROOMAZIDATA
DATA ”A”,”I”,”U”,”E”,”O”
DATA”KA”,”KI”,”KU”,”KE”,”KO”
DATA”SA”,”SI”,”SU”,”SE”,”SO”
DATA”TA”,”TI”,”TU”,”TE”,”TO”
DATA”NA”,”NI”,”NU”,”NE”,”NO”
DATA”HA”,”HI”,”HU”,”HE”,”HO”
DATA”MA”,”MI”,”MU”,”ME”,”MO”
DATA”YA”,”YU”,”YO”
DATA”RA”,”RI”,”RU”,”RE”,”RO”
DATA”WA”,”WO”,”N”
DATA””

'--------
'Generated by CHRED on Android  Version 0.0.5
}}
#endregion

* 更新情報 [#u65c13e2]
Version1.0.1
#basic(start=19){{
 HI(I)=VAL(MID$(MEM$,I*10+5,5))<COLOR>(red){/10}
}}
赤いところを削除してください。ランキングにバグがありました。セーブデータも削除してください。(MEM$:SKSD)
/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''Newきゃらくたぁ製作所'' : よし、3号版作ろうかな・・・? (&new{2015/04/16 (木) 22:51:15};)

#comment

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