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

Toukou/「Doors」あなたのプチコンを便利にするOS の変更点


#title(投稿プログラム : プチコンOS Doors)
#region(目次)
#contents
#endregion
//------------------------------------------------------------------------------
// ↓↓↓
2014年11月16日投稿
// ↑↑↑
//------------------------------------------------------------------------------
// ↓↓↓
/ 投稿者 : キャラクター製作所
// ↑↑↑
//------------------------------------------------------------------------------
// ↓↓↓
/ &tag(投稿プログラム,QRコード,mkII専用,OSもどき,ラジコンヘリ);
// ↑↑↑
//------------------------------------------------------------------------------

#blockdiv(class:block-info)
今日は、&counter(today);人~
これまでに、&counter(total);人~
-----------------------------------
2014/11/18に1000人達成!!!

2015/01/11に2000人達成!!!
-----------------------------------
閲覧 Thank you! (o^ω^o)
#blockdiv(end)

* あなたのプチコンを便利にするOS「Doors」 [#Summary]
Doorsは、便利性を追求した、OSです。プチコンmk2の第二メニュー画面として活用してもらえると光栄です。

みなさんの要望をもとに、ドアーズを更新したいと思います。

#region(前のバージョン→Doors1.0)

* Doors1.0 [#kd1801d2]
&basic{ DoorsЩ };の第一号です。2014/10/13

**Doorsメニュー [#g6b7c95d]
タッチで操作します。

** 時計機能 [#n7bcd127]
Doors1.0は、もともと時計のプログラムで、便利機能をつけたし、OSになりました。
上画面は、時計になっています。

*** 読み上げ機能 [#na770dfb]
何かボタンを押してみましょう。秒針の先についているストボンが、時計を読み上げてくれるかもしれません。
- まげさんのプログラムを使用させていただきました。

*** ストボンって誰だよw [#i9781091]
その件については、ここに書いてあります。
- [[ストボンって誰だよw>Toukou/ストボンのインベーダーゲーム。#q4f6bc83]]

** BGMPlayer [#f1ccd6f7]
- 曲番号(数字)を入力
-- 曲を再生します。
- &basic{ END };と入力
-- 曲を停止します。
- 何も入力しないで&basic{ Enter };
-- キャンセル

** フォント変更 [#ke1b264d]
- ファイル名を入力
-- フォント変更
- 何も入力しないで&basic{ Enter };
-- キャンセル
***フォントデータ [#lc46af08]
SmileBoomのホームページで公開されてます。
- [[プレゼント素材>置き換えフォント:http://smileboom.com/special/ptcm2/co_present/html_present02.php]]

**プログラム起動 [#v9e13520]
- ファイル名を入力
-- フォント変更
- 何も入力しないで&basic{ Enter };
-- キャンセル

** シャットダウン [#i8ab24b1]
- &basic{ Y };と入力
-- シャットダウン(プログラムを終了します。)
- &basic{ Y };以外
-- キャンセル

** 再起動 [#oe3c6bbd]
- 再起動すると、BGMは止まり、時計の文字盤にフォントが適用されます。

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

* スクリーンショット・動画 [#v67b0607]
#youtube(DsgGv3VT0K8,size=m)
// #nicovideo(sm13684820)

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

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

|>|>|~PRG:DOORS1|
|~1/3|~2/3|~3/3|
|&ref(1.0_qr0.png,,170%);|&ref(1.0_qr1.png,,170%);|&ref(1.0_qr2.png,,170%);|

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

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

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

* プログラムリスト [#List]
#region(&basic{ LOAD"DOORS1" };)
#basic{{
’┌────────────────┐
’│フ゜チコンOS DOORS1.0│
’└────────────────┘

@PRGSTART
CLEAR ’ショキカ
ACLS:PNLTYPE”OFF” ’カ゛メン

’モシ゛ハ゛ン
FOR I=0 TO 255
 CHRREAD(”BGF0”,I),C$
 CHRSET ”SPU”+STR$(FLOOR(I/64)),(I*4)%256,C$
NEXT
FOR I=1 TO 9
 SPSET I,ASC(STR$(I)),14,0,0,0,8,8
 SPHOME I,4,4
 SPOFS I,127−COS(RAD(I*30+90))*67,95−SIN(RAD(I*30+90))*67,30
NEXT
FOR I=0 TO 2
 SPSET I*2+10,ASC(”1”),14,0,0,0,8,8
 SPHOME I*2+10,4,4
 SPOFS I*2+10,(127−COS(RAD(I*30+30))*67)−3,95−SIN(RAD(I*30+30))*67,30
 SPSET I*2+11,ASC(STR$(I)),14,0,0,0,8,8
 SPHOME I*2+11,4,4
 SPOFS I*2+11,(127−COS(RAD(I*30+30))*67)+5,95−SIN(RAD(I*30+30))*67,30
NEXT

’SUTOBON
CHRSET ”SPU0”,0,”004660000D455D000DDDDDD00DDDEDE00DDDDDD0FFFFCCCCBBBBBBBB00000000”
SPSET 0,0,4,0,0,0,8,8
SPHOME 0,4,4

’===========================

BGMPLAY”@147L8CDEDEF”

’================
  @MAIN ’メインル−フ゜
’================
VSYNC 2:CLS:GPAGE 0:GCLS

TMREAD(TIME$),H,M,S ’シ゛カン
IF BEEP$!=TIME$ THEN BEEP 9,−1300,47
BEEP$=TIME$

COLOR 14,2:LOCATE 11,15
IF H>12 THEN H=H−12:?”PM ”; ELSE ?”AM ”;
?H;”:”;”0”*(M<10);M;” ”;”0”*(S<10);S

’カクト゛
H=(H*30+M*6/12)+90
M=M*6+90
S=S*6+90
IF H>360 THEN H=H−360
IF H<0 THEN H=H+360
IF M>360 THEN M=M−360
IF M<0 THEN M=M+360
IF S>360 THEN S=S−360
IF S<0 THEN S=S+360

’サ゛ヒョウ
HX=127−COS(RAD(H))*35
HY=95−SIN(RAD(H))*35
MX=127−COS(RAD(M))*65
MY=95−SIN(RAD(M))*65
SX=127−COS(RAD(S))*67
SY=95−SIN(RAD(S))*67

’ヒョウシ゛
GCIRCLE 127,95,80,4
GCIRCLE 127,95,85,4
GPAINT 127,95+81,4

GLINE 127,95,HX,HY,14
GLINE 127,95,MX,MY,14
GLINE 127,95,SX,SY,10

GFILL 11*8−1,15*8−1,(11+10+((H>=30)+(H<=90)==2))*8−1,16*8−1,15

’SUTOBON
SPOFS 0,SX,SY
SPANGLE 0,S−90

IF BTRIG() THEN GOSUB @TALK

GOSUB @OS

GOTO @MAIN ’ル−フ゜


@TALK ’↓マケ゛サンノ シ゛コクヲシャヘ゛ルPRG

’ショキセッテイ<−−−−−−−−−−−−−−−−−−
AP=1
H$=”レ’−,イチ’,ニ’,サ’ン%,ヨ’,コ゛’,ロク’,シチ’,ハチ’,ク’”
MH$=”,,ニ’,サ’ン%,ヨ’ン%,コ゛”
M$=”,イ’ッフ゜ン,ニ’フン,サ’ン%フ゜ン,ヨ’ン%フン,コ゛’フン,ロ’ッフ゜ン,ナナ’フン,ハ’ッフ゜ン,キュ’−フン”

’シ゛カン トリタ゛シ<−−−−−−−−−−−−−−−
TMREAD(TIME$),H,M,S
’INPUT ”ナンシ゛”;H:INPUT ”ナンフン”;M

’アイサツ<−−−−−−−−−−−−−−−−−−−−−
              A$=”コンハ゛ンワ”
IF H<=16 THEN A$=”コンニチワ”
IF H<=10 THEN A$=”オハヨウ”

’12h/24h?<−−−−−−−−−−−−−−−−−
AP$=””
IF AP==0 THEN @APSKIP
IF H<12 THEN AS=0:AP$=”コ゛’セ゛ン ” ELSE AS=1:H=H−12:AP$=”コ゛’コ゛ ”
’?MID$(”AP”,AS,1);”M”; 

’シ゛コク ヒョウシ゛<−−−−−−−−−−−−−−−
@APSKIP
’?H;”:”;
’IF M<10 THEN ?0;
’?M:?

’シ゛ ケイサン<−−−−−−−−−−−−−−−−−−
HP$=””:HC=0
IF H>=20 THEN HP$=”ニ’”:HC=10
IF H>=10 THEN HP$=HP$+”シ゛ュ’−”:HC=HC+10
H=H−HC
ITEM=H:ITEM$=H$:GOSUB @ITEM
IF HC>0 AND H==0 THEN ITEM$=””
HP$=HP$+ITEM$+”シ゛”

’フン ケイサン<−−−−−−−−−−−−−−−−−−
MP$=””
IF M<10 THEN @MSKIP
ITEM=FLOOR(M/10):ITEM$=MH$:GOSUB @ITEM
MP$=ITEM$+”シ゛ュ−”
IF M%10==0 THEN MP$=ITEM$+”シ゛ュ’ッフ゜ン”
MP$=MP$+””
M=M−FLOOR(M/10)*10
@MSKIP
ITEM=M:ITEM$=M$:GOSUB @ITEM
MP$=MP$+ITEM$
IF MP$==”” THEN MP$=”チョ−ト゛”

’ハッセイ<−−−−−−−−−−−−−−−−−−−−−
TALK ”@V80”+A$+” タタ゛イマ ”+AP$+HP$+” ”+MP$+”タ゛ヨ’!”
RETURN


’アイテム トリタ゛シ ル−チン<−−−−−−−−−−
@ITEM
_ITP=0:_ITEM$=””
FOR _ITX=0 TO LEN(ITEM$)
_ITC$=MID$(ITEM$,_ITX,1)
_ITP=_ITP+(_ITC$==”,”)
_ITEM$=_ITEM$+MID$(_ITC$,(_ITP!=ITEM)+(_ITC$==”,”),1)
NEXT _ITX
ITEM$=_ITEM$
RETURN


’↑ココマテ゛


@OS
GPAGE 1:GCLS 10:COLOR 0
PNLSTR 2,1,”ЩDOORSニヨウコソ ”+DATE$
PNLSTR 3,3,”♪BGMPLAY”
PNLSTR 3,5,”┷FONTヨミコミ”
PNLSTR 3,7,”ВPRGRUN”
PNLSTR 3,9,”мシャットタ゛ウン”
PNLSTR 3,11,”бサイキト゛ウ”
IF TCHST THEN GOSUB @TCHCHK
RETURN

@TCHCHK
COLOR 1:?
IF FLOOR(TCHY/8)==3 THEN @BGMPLAY
IF FLOOR(TCHY/8)==5 THEN @FONTLOAD
IF FLOOR(TCHY/8)==7 THEN @PRGRUN
IF FLOOR(TCHY/8)==9 THEN @END
IF FLOOR(TCHY/8)==11 THEN @PRGSTART
RETURN

@BGMPLAY
LINPUT”キョクハ゛ンコ゛ウヲニュウリョク”;BGM$
IF BGM$==”” THEN RETURN
IF BGM$==”END” THEN BGMSTOP:RETURN
IF VAL(BGM$)>29 THEN ?”キョクカ゛アリマセン”:WAIT 180RETURN
IF VAL(BGM$)<0 THEN ?”キョクカ゛アリマセン”:WAIT 180RETURN
BGMPLAY VAL(BGM$)
RETURN

@FONTLOAD
LINPUT”FILEメイヲニュウリョク”;FONT$
IF FONT$==”” THEN RETURN
SYSBEEP=0
LOAD”BGF0U:”+FONT$,0
LOAD”BGF0L:”+FONT$,0
SYSBEEP=1
RETURN

@PRGRUN
LINPUT”PRGメイヲニュウリョク”;PRG$
IF PRG$==”” THEN RETURN
ACLS:EXEC PRG$
RETURN

@END
LINPUT”シャットタ゛ウンシマスカ?(Y/N)”;A$
IF A$==”Y” THEN ACLS:CLEAR:BEEP 4:WAIT 60:END
RETURN

}}
#endregion

* 要望、感想、苦情、アドバイスなどなど。 [#se9d52bd]
こんなの作ってーっていう要望も、お待ちしてまーす(^_^)/
- ''まげ'' : 起動時の、文字盤アニメにグッときました♪ 画面のどこかに、どうすれば時刻をしゃべるかの説明文があるほうが親切かもしれませんね。 (&new{2014/10/13 (月) 21:10:47};)
- ''hnakai'' : 一般的に、スクリーンショットを載せるとDL率が上がりますよー (&new{2014/10/13 (月) 21:58:40};)
- ''キャラクター製作所'' : アドバイスありがとうございます!お二人ともリスペクトっす! (&new{2014/10/13 (月) 22:41:01};)
- ''魔神'' : オープニングがいいですね。 (&new{2014/10/14 (火) 17:41:19};)
- ''魔神'' : オープニングがいいですね。 (&new{2014/10/14 (火) 17:41:30};)
- ''Gbt'' : タッチ操作がいい感じですね。 (&new{2014/10/16 (木) 19:36:19};)
- ''キャラクター製作所'' : 皆さんコメントありがとうございます(v^-゚) (&new{2014/10/19 (日) 09:55:04};)
- ''キャラクター製作所'' : あのぉ〜実は僕、学生なので、スクリーンショットを撮ってるひまがなくてこまってます。誰か撮って載せてくれると嬉しいです。 (&new{2014/10/19 (日) 10:01:12};)
- ''名無しさん'' : こんなん作ってる暇あるならスクショとれるでしょ。 (&new{2014/10/27 (月) 16:48:38};)
- ''キャラクター製作所'' : ↑そうですね。ごめんなさい。 (&new{2014/10/28 (火) 05:42:45};)
- ''0918nobita'' : まげさんと同じく、起動時のアニメーションがとても良いと思いました。一定の時刻になったら画面に異変がおきたり、アラームを設定できるようにしたらもっと良くなると思いますよ! (&new{2014/10/27 (月) 21:14:20};)
- ''キャラクター製作所'' : スクショのせたZE\( ~∇~)/ (&new{2014/11/01 (土) 08:20:26};)
- ''キャラクター製作所'' : 次のDoorsは、Android風だZE☆と(^。^)つ (&new{2014/11/03 (月) 11:56:21};)
- ''ぬぬ'' : いい感じだZE! (&new{2014/11/15 (土) 09:53:28};)
- ''キャラクター製作所'' : ドアーズツーできたZE!!テスト前日だZE オワタ────\(^o^)/────!!! 後で載せるZE☆ (&new{2014/11/16 (日) 15:01:22};)

#comment

#endregion

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

* Doors2.0 [#f8258285]
SIZE(40){ Doors2(ツー)来た ────(゜∀゜)────!!! }

Android風にリメイク、進化したCOLOR(#333399){ &basic{ DoorsЩ }; }

2014/11/16 投稿

** 2(ツー)は、ここが進化した! [#n5a4fd0c]
大きなタッチしやすいアイコン
|&ref(DOICO_PRGRUN.jpg,,170%);|プログラムを起動します。|
|&ref(DOICO_FONTLOAD.jpg,,170%);|フォント(BGF)を読み込みます。|
|&ref(DOICO_BGMPLAY.jpg,,170%);|BGMを再生します。|
|>|[[マリオBGM>Toukou/マリオBGM]]より、ウォーターランドとヨッシーバレーの2曲を収録!|
|&ref(DOICO_TIMETALK.jpg,,170%);|時刻だけでなく、日付も読み上げてくれます。|
|>|まげさんの、[[TIMETALK>Toukou/時刻をしゃべる]]と[[DATETALK>Toukou/日付をしゃべる]]を使用させてもらっています。|
|&ref(DOICO_OFF.jpg,,170%);|シャットダウンします。|
|&ref(DOICO_REVEASE.jpg,,170%);|再起動します。|
|&ref(DOICO_LOOK.jpg,,170%);|ロックします。ロックすると、操作が効かなくなるので、誤作動を防げます。|

|~右下にあるやつ。|ヘリコプターのラジコンです。タッチすると説明を表示します。|
|>|一応、キャラクター製作所の新キャラクターです。でも名前は決まっていません。考えてほしいです。|

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

|>|>|~PRG:DOORS2|
|~1/10|~2/10|~3/10|
|&ref(2.0_qr0.png,,170%);|&ref(2.0_qr1.png,,170%);|&ref(2.0_qr2.png,,170%);|
|~4/10|~5/10|~6/10|
|&ref(2.0_qr3.png,,170%);|&ref(2.0_qr4.png,,170%);|&ref(2.0_qr5.png,,170%);|
|~7/10|~8/10|~9/10|
|&ref(2.0_qr6.png,,170%);|&ref(2.0_qr7.png,,170%);|&ref(2.0_qr8.png,,170%);|
|~10/10|||
|&ref(2.0_qr9.png,,170%);|||

** アイコンデータ [#h8662c6b]
#blockdiv(class:block-info-color, background-color:yellow, border-color:red, border-width:2px, color:red)
注意 : これがないと使えません。ご注意ください。
#blockdiv(end)

|>|~CHR:DOICO|
|~1/2|~2/2|
|&ref(Doorsicon_qr0.png,,170%);|&ref(Doorsicon_qr1.png,,170%);|

** 投票コーナー [#b4e14b4a]

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

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

* プログラムリスト [#f896a980]
#region(&basic{ LOAD"DOORS2" };)
#basic{{
’┌┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┐
’┤フ゜チコンOS      ┗┏┓  ├
’┤┣┫ ┠ ┳┓┳┳┓┳┠   ┛  ├
’┤┛┻┻ ┛┛┻┻━ ┫┓  ┗   ├
’┤┯┗┃┠━┫┗┻  ┠┗ ┨┠┓.0├
’┤byキャラクタ−SEISAKUZYO├
’└┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┘

@DOORS2 ’<===================

ACLS:CLEAR:PNLTYPE”OFF”


’┝┿╂ セッテイ ╂┿┸

VISIBLE 1,1,1,1,0,1

?”1/5 アイコンヨミコミチュウ...”:WAIT 10CLS
SYSBEEP=0LOAD”SPS0L:DOICO”,0
SPPAGE 1FOR I=0 TO 6
SPSET I,I*4,0,0,0,1,32,32NEXT

?”2/5 COINヨミコミチュウ...”:WAIT 10
LOAD”MEM$:COIN”,0SYSBEEP=1
COIN=VAL(MEM$):CLS

?”2/5 ラシ゛コンヘリセットチュウ...”:WAIT 10
SPSET 31,32,5,0,0,1SPHOME 31,8,8
RX=10RY=175RA=90RG=0.1CLS

?”3/5 ニシ゛ノコナセットチュウ...”:WAIT 10
DIM F(100),X(100),VX(100),Y(100),VY(100),CO(100)
CLS

?”4/5 SUTOBONキャラセットチュウ...”:WAIT 10

@SUTOCHR
DATA”004660000F455F000FFFFFF”
DATA”00FFFEFE00FFFFFF0BBBBBB”
DATA”BBBABAABAB00000000”

RESTORE @SUTOCHR
FOR I=0TO 2READ R$:S$=S$+R$
NEXT:CHRSET ”BGF”,5,S$:CLS

?”5/5 ЩDoors2 ヲ キト゛ウシテイマス...”
WAIT 60VISIBLE 1,1,1,1,1,1

TMREAD(TIME$),H,M,LTM

FOR I=0TO 3
 SPOFS I,22+60*I,30,40
NEXT:FOR I=0TO 2
 SPOFS 4+I,32+80*I,100,40
NEXT

 CKB=TRUE:BGMSTOP
 CLS:BGMPLAY”@3L16CDEDEF”

@LOOP ’<=====================

’┝┿╂ MAINLOOP ╂┿┸

 GPAGE 0GCLS:GOSUB @ACLOCK
 GPAGE 1GCLS
 
 FPS=FPS+1IF MAINCNTL−CNT>59THEN LOCATE 26,1?”fps”FPS,:FPS=0CNT=MAINCNTL
 LOCATE 0,23?”Д”,DATE$,”Р”;TIME12$,
 
FOR I=1 TO LOOK==0
 GOSUB @OS
 GOSUB @RC
NEXT
 
 IF LOOK THEN GOSUB @LOOK
 
 FOR I=0TO 99
  
  FOR B=1TO F(I)==0:X(I)=2
   VX(I)=RND(2500)/1000
   Y(I)=191VY(I)=−RND(13)/10−5
   CO(I)=RND(15)+1
   F(I)=RND(50)==0
  NEXT
  
  VY(I)=VY(I)+0.1
  X(I)=X(I)+VX(I)
  Y(I)=Y(I)+VY(I)
  X1=X(I)−1:Y1=Y(I)−1
  X2=X(I)+1:Y2=Y(I)+1
  C=CO(I):GPAGE 0
  GFILL X1,Y1,X2,Y2,C:GPAGE 1
  GFILL X1,Y1−191,X2,Y2−191,C
  IF Y(I)>=382 THEN F(I)=0
  IF SPHITRC(31,X(I),Y(I)−191,1,1) THEN F(I)=0SPCHR 31,33COIN=COIN+1GET=GET+10
 NEXT

VSYNC 0GOTO @LOOP


@RC ’<=======================

’┝┿╂ ラシ゛コンヘリ ╂┿┸

IF GET THEN PNLSTR 0,0,”COIN:”+STR$(COIN)GET=GET−1 ELSE SPCHR 31,32
B=BUTTON()
RA=RA−((B AND 4)>=1)*5
RA=RA+((B AND 8)>=1)*5
RA=RA−SGN(RA−90)*2
IF RA>181 THEN RA=180
IF RA<0 THEN RA=0
P=0.07+((B AND 16)>=1)/2−((B AND 32)>=1)/7
IF ABS(RA−90)<2 THEN RA=90
VX=VX−VX*0.02VY=VY−VY*0.02
VY=VY−SIN(RAD(RA))*P+RG:RY=RY+VY
VX=VX−COS(RAD(RA))*P:RX=RX+VX
FOR I=1TO RY>175
RY=175RA=90IF VY>3 THEN BEEP 13
VY=−VY*0.2VX=VX−VX*0.5:NEXT
IF RY<0 THEN RY=0VY=−VY*0.5
IF RX<0 THEN RX=0VX=−VX*0.5
IF RX>255 THEN X=255VX=−VX*0.5
SPOFS 31,RX,RY:SPANGLE 31,RA−90
RETURN


@ACLOCK ’<===================

’┝┿╂ アナロク゛ト゛ケイ ╂┿┸

TMREAD(TIME$),H,M,S ’シ゛カン
IF CKB THEN IF BEEP$!=TIME$ THEN BEEP 9,−1300,15
BEEP$=TIME$

’↓シ゛ト゛ウロック
 ’IF S−LTM>1 THEN LOOK=TRUE
LTM=S

IF H>12 THEN H=H−12:TIME12$=”PM ” ELSE TIME12$=”AM ”
TIME12$=TIME12$+STR$(H)+”:”+”0”*(M<10)+STR$(M)+” ”+”0”*(S<10)+STR$(S)

’カクト゛
H=(H*30+M*6/12)+90
M=M*6+90
S=S*6+90
IF H>360 THEN H=H−360
IF H<0 THEN H=H+360
IF M>360 THEN M=M−360
IF M<0 THEN M=M+360
IF S>360 THEN S=S−360
IF S<0 THEN S=S+360

’サ゛ヒョウ
HX=127−COS(RAD(H))*35
HY=95−SIN(RAD(H))*35
MX=127−COS(RAD(M))*65
MY=95−SIN(RAD(M))*65
SX=127−COS(RAD(S))*67
SY=95−SIN(RAD(S))*67

’ヒョウシ゛
GPAGE 0
GFILL 127−70−1,95−1,127−70+1,95+1,15
GFILL 127+70−1,95−1,127+70+1,95+1,15
GFILL 127−1,95−70−1,127+1,95−70+1,15
GFILL 127−1,95+70−1,127+1,95+70+1,15

GLINE 127,95,HX,HY,15
GLINE 127,95,MX,MY,15
GLINE 127,95,SX,SY,10

RETURN


@OS ’<=======================

’┝┿╂ OSノキノウ ╂┿┸

IF TCHST THEN I=0GOSUB @TCHCHK
RETURN

@TCHCHK
IF SPHITRC(I,TCHX,TCHY,1,1) THEN ON I GOTO @PRGRUN,@FONTLOAD,@BGMPLAY,@TALK,@END,@REVASE,@LOOK
IF SPHITRC(31,TCHX,TCHY,1,1) THEN @RCINFO
I=I+1IF I<7 THEN @TCHCHK
RETURN

@BGMPLAY
CLS:COLOR 1,11LOCATE 0,23?
?”BGMPLAY”;:COLOR 1,15?
?:?CHR$(34)*2;”  :モト゛ル”
?”1―29:フ゜リセットBGMPLAY”
?”64W :SUPER MARIO 64 WATER LAND”
?”MKY :MARIO KART 64 ヨッシ−ハ゛レ−”
?”END :テイシ”
?:LINPUT”キョクハ゛ンコ゛ウヲニュウリョク”;BGM$
IF BGM$==”” THEN COLOR 0,0CLS:RETURN
IF BGM$==”64W” THEN BGMSTOP:CKB=0COLOR 0,0CLS:GOTO @64W
IF BGM$==”MKY” THEN BGMSTOP:CKB=0COLOR 0,0CLS:GOTO @MKY
IF BGM$==”END” THEN CKB=1BGMSTOP:COLOR 0,0CLS:RETURN
IF VAL(BGM$)>29 THEN ?”キョクカ゛アリマセン”:WAIT 180COLOR 0,0CLS:RETURN
IF VAL(BGM$)<0 THEN ?”キョクカ゛アリマセン”:WAIT 180COLOR 0,0CLS:RETURN
BGMSTOP
CKB=0BGMPLAY VAL(BGM$)
COLOR 0,0CLS:RETURN

@FONTLOAD
CLS:COLOR 1,11LOCATE 0,23?
?”BGFヨミコミ”;:COLOR 1,15?
?:?CHR$(34)*2;”:モト゛ル”
?:LINPUT”FILEメイヲニュウリョク”;FONT$
IF FONT$==”” THEN COLOR 0,0CLS:RETURN
SYSBEEP=0
LOAD”BGF0U:”+FONT$,0
LOAD”BGF0L:”+FONT$,0
SYSBEEP=1CHRSET ”BGF”,5,S$
COLOR 0,0CLS:RETURN

@PRGRUN
CLS:COLOR 1,11LOCATE 0,23?
?”PRGRUN”;:COLOR 1,15?
?:?CHR$(34)*2;”:モト゛ル”
?:LINPUT”PRGメイヲニュウリョク”;PRG$
IF PRG$==”” THEN COLOR 0,0CLS:RETURN
ACLS:?”COINホソ゛ンチュウ...”
MEM$=STR$(COIN)
SAVE”MEM$:COIN”:CLS:WAIT 30
?”シ゛ッコウチュウ...”:WAIT 100
CHRINIT ”SPS0L”ACLS:EXEC PRG$
GOTO @DOORS2

@END
CLS:COLOR 1,11LOCATE 0,23?
?”テ゛ンケ゛ンヲキル”;:COLOR 1,15?
?:LINPUT”シャットタ゛ウンシマスカ?(Y/N)”;A$
IF A$!=”Y” THEN COLOR 0,0CLS:RETURN
ACLS:?”COINホソ゛ンチュウ...”
MEM$=STR$(COIN)SAVE”MEM$:COIN”
CLEAR:WAIT 60CLS
BEEP 4:WAIT 60:END

@REVASE
ACLS:?”COINホソ゛ンチュウ...”
MEM$=STR$(COIN)
SAVE”MEM$:COIN”:CLS:WAIT 60
GOTO @DOORS2

@RCINFO
CLS:COLOR 1,11LOCATE 0,23?
?”R/Cヘリノソウサホウホウ”;:COLOR 1,15?
?
?”    ↑       Ф ”
?”ミキ゛← →ヒタ゛リ Х Аシ゛ョウショウ”
?”    ↓       Бカコウ”
?
?”コノコハ,ストホ゛ンノニシ゛ノコナカ゛タ゛イスキテ゛ス。”
?”ПАБテ゛ソウサシテ,タヘ゛サセテアケ゛テネッ!”
?
?”COINカ゛モラエルヨ――(COINGAMEテ゛ツカエルヨ)”
LINPUT A$
COLOR 0,0CLS:RETURN

@LOOK
LOOK=TRUE:PNLSTR 5,20,”スライト゛テ゛ロックカイシ゛ョ→”
SPOFS 6,0,150,20
FOR I=1TO TCHST
 IF SPHITRC(6,TCHX,TCHY,1,1) THEN @UNLOOK
NEXT:RETURN

@UNLOOK
SPOFS 6,TCHX−16,150
IF TCHX>240 THEN CLS:SPOFS 6,192,100,20LOOK=0RETURN
IF !TCHST THEN RETURN
GOTO @UNLOOK


@TALK ’マケ゛サンノPRG<============

 SPOFS 3,202+1,30+1

’ショキセッテイ<−−−−−−−−−−−−−−−−−−
MT$=”,イチ’,ニ,サ’ン,シ,コ゛,ロク,シチ,ハチ,ク’,シ゛ュ−,シ゛ュ−イチ,シ゛ュ−ニ”
DY$=”,ツイタチ,フツ,ミッ,ヨッ,イツ,ムイ,ナノ,ヨ−,ココノ,ト−”
YB$=”ニチ,ケ゛ツ,カ,スイ,モク,キン,ト゛”

’ニチシ゛ トリタ゛シ<−−−−−−−−−−−−−−−
DTREAD(DATE$),YR,MT,DY
’INPUT ”ナンカ゛ツ”;MT:INPUT ”ナンニチ”;DY

’ヒツ゛ケ ヒョウシ゛<−−−−−−−−−−−−−−−
’? YR;”/”;MT;”/”;DY:?

’ツキ ケイサン<−−−−−−−−−−−−−−−−−−
ITEM=MT:ITEM$=MT$:GOSUB @ITEM
TMT$=ITEM$+”カ゛ツ ”

’ニチ ケイサン<−−−−−−−−−−−−−−−−−−
IF DY<11 THEN @DSKIP
DYP$=””
IF DY>20 THEN DYP$=”ニ’”
IF DY>29 THEN DYP$=”サ’ン”
ITEM=DY−FLOOR(DY/10)*10:ITEM$=MT$:GOSUB @ITEM
TDY$=DYP$+”シ゛ュ−’”+ITEM$+”ニ’チ”
IF ITEM==4 THEN TDY$=DYP$+”シ゛ュ−ヨッカ”
IF DY==20 THEN TDY$=”ハツ%カ”
GOTO @DNEXT
@DSKIP
ITEM=DY:ITEM$=DY$:GOSUB @ITEM
IF DY==1 THEN DYP$=”” ELSE DYP$=”カ”
TDY$=ITEM$+DYP$
@DNEXT

’ヨウヒ゛ ケイサン<−−−−−−−−−−−−−−−−
YY=YR:YM=MT:YD=DY
YY=YY−(YM<3)
YM=YM+(YM<3)*12
YB=(YY+(0 OR YY/4)−(0 OR YY/100)+(0 OR YY/400)+FLOOR((13*YM+8)/5)+YD)%7
ITEM=YB:ITEM$=YB$:GOSUB @ITEM
TYB$=ITEM$+”ヨ−ヒ゛”


’ショキセッテイ<−−−−−−−−−−−−−−−−−−
AP=1
H$=”レ’−,イチ’,ニ’,サ’ン%,ヨ’,コ゛’,ロク’,シチ’,ハチ’,ク’”
MH$=”,,ニ’,サ’ン%,ヨ’ン%,コ゛”
M$=”,イ’ッフ゜ン,ニ’フン,サ’ン%フ゜ン,ヨ’ン%フン,コ゛’フン,ロ’ッフ゜ン,ナナ’フン,ハ’ッフ゜ン,キュ’−フン”

’シ゛カン トリタ゛シ<−−−−−−−−−−−−−−−
TMREAD(TIME$),H,M,S
’INPUT ”ナンシ゛”;H:INPUT ”ナンフン”;M

’12h/24h?<−−−−−−−−−−−−−−−−−
AP$=””
IF AP==0 THEN @APSKIP
IF H<12 THEN AS=0:AP$=”コ゛’セ゛ン ” ELSE AS=1:H=H−12:AP$=”コ゛’コ゛ ”
’?MID$(”AP”,AS,1);”M”; 

’シ゛コク ヒョウシ゛<−−−−−−−−−−−−−−−
@APSKIP
’?H;”:”;
’IF M<10 THEN ?0;
’?M:?

’シ゛ ケイサン<−−−−−−−−−−−−−−−−−−
HP$=””:HC=0
IF H>=20 THEN HP$=”ニ’”:HC=10
IF H>=10 THEN HP$=HP$+”シ゛ュ’−”:HC=HC+10
H=H−HC
ITEM=H:ITEM$=H$:GOSUB @ITEM
IF HC>0 AND H==0 THEN ITEM$=””
HP$=HP$+ITEM$+”シ゛”

’フン ケイサン<−−−−−−−−−−−−−−−−−−
MP$=””
IF M<10 THEN @MSKIP
ITEM=FLOOR(M/10):ITEM$=MH$:GOSUB @ITEM
MP$=ITEM$+”シ゛ュ−”
IF M%10==0 THEN MP$=ITEM$+”シ゛ュ’ッフ゜ン”
MP$=MP$+””
M=M−FLOOR(M/10)*10
@MSKIP
ITEM=M:ITEM$=M$:GOSUB @ITEM
MP$=MP$+ITEM$
IF MP$==”” THEN MP$=”チョ−ト゛”

’ハッセイ<−−−−−−−−−−−−−−−−−−−−−
TALK ”@V80キョウワ ”+TMT$+TDY$+” ”+TYB$+”____イマ ”+AP$+HP$+” ”+MP$+”タ゛ヨ!”

 SPOFS 3,202,30,5

RETURN


’アイテム トリタ゛シ ル−チン<−−−−−−−−−−
@ITEM
_ITP=0:_ITEM$=””
FOR _ITX=0 TO LEN(ITEM$)
_ITC$=MID$(ITEM$,_ITX,1)
_ITP=_ITP+(_ITC$==”,”)
_ITEM$=_ITEM$+MID$(_ITC$,(_ITP!=ITEM)+(_ITC$==”,”),1)
NEXT _ITX
ITEM$=_ITEM$
RETURN


’↑ココマテ゛======================





@64W ’oyサンノ マリオBGMヨリ<========

@SOUNDINIT
RESTORE @DELTA:READ DELTA1$,DELTA2$:MOJI$=DELTA1$+DELTA2$
BGMPRG 224,127,0,0,127,MOJI$
BGMSETD 240,@BGM1
BGMSETD 241,@BGM2

BGMPLAY 1,240,127
BGMPLAY 2,241,0

RETURN

@DELTA ’╂╂╂ファミコンサンカクハ
DATA FFFF111122223333444455556F6F7F7F7F7F6F6F55554444333322221111FFFF
DATA FFFFEEEEDDDDCCCCBBBBAAAA99998F8F8F8F9999AAAABBBBCCCCDDDDEEEEFFFF

@BGM1 ’╂╂╂BGM
DATA ”:0 V127 T60 @0 L16 Q7
DATA ”@E127,0,0,30 O3
’1
DATA ”[RRRA&AB&B<D
’2
DATA ”G&GR<G&G&G&G&G
’3
DATA ”>>RRRA&AB&B<D
’4
DATA ”G&G<RG&G&G&G&G
’5
DATA ”O3 RRRA&AB&B<D
’6
DATA ”G&GR<G&G&G&G&G
’7
DATA ”>>RRRA&AB&B<D
’8
DATA ”G&G<RG&G&G&G&G
’9
DATA ”O3 RRRA&AA#&A#<D
’10
DATA ”G&GR<G&G&G&G&G
’11
DATA ”O3 RRRA&A<C&CD
’12
DATA ”G&GR<G&G&G&G&G
’┿
’13
DATA ”O4 RDGAB<C>BA
’14
DATA ”G&GD&DC&CG&G
’15
DATA ”D&D&D>G&G&G&GG
’16
DATA ”O4 RRRRRC&CC
’17
DATA ”>B<DG&G&G>A&AB
’18
DATA ”O4 RRRD&DG&G&G
’19
DATA ”RDGAB<C>BA
’20
DATA ”G&GD&DC&CG&G
’21
DATA ”D&D&D O3 G&GG&GG
’22
DATA ”O4 RRRC&CC&CC
’23
DATA ”O3 A<DG&G&G>A&AB
’24
DATA ”O3 RRRB&B&B&B&B
’25
DATA ”O4 RRRG<EDCE
’26
DATA ”O5 D&D&D>G&G&G&G&G
’27
DATA ”O4 RRRE<DC>B<C
’28
DATA ”O4 B&B&BG&G&G&G&G
’29
DATA ”O4 RRRG<EDCE
’30
DATA ”O5 D&D&D>G&G&G&G&G
’31
DATA ”O5 RRRRCDC>B
’32
DATA ”O4 RRG&GE&E&E&E
’33
DATA ”O4 RDGAB<C>BA
’34
DATA ”O4 G&GD&DC&CG&G
’35
DATA ”O4 D&D&DG&G&G&GG
’36
DATA ”O4 RRRRRRRC
’37
DATA ”O3B<DG&G&G>A&AB
’38
DATA ”O4 RRRD&D&D&D&D
’39
DATA ”O4 RDGAB<C>BA
’40
DATA ”O4 G&GD&DC&CG&G
’41
DATA ”O4 D&D&D>G&G<C&C>A#
’42
DATA ”O4 RRRRRC&CC
’43
DATA ”O3 B<DG&G&GA&AB
’44
DATA ”O4 RRRRRG&G&G
’45
DATA ”O4 RRRF&FFFF
’46
DATA ”O4 RFFFRFFF
’47
DATA ”O4 RRRGRGRG
’48
DATA ”O4 RGGGGGGG
’49
DATA ”O4 RRRG&GG&GG
’50
DATA ”RA&AA&AA&A&A]





DATA ”:2 V127 @0 L16 Q7
DATA ”@E127,0,0,30
DATA ”O2
’1
DATA ”[G<DG&G&G&G&G&G
’2
DATA ”<D&DR<D&D&D&D&D
’3
DATA ”>>>F<CF&F&F&F&F&F
’4
DATA ”<D&D<RD&D&D&D&D
’5
DATA ”O2 G<DG&G&G&G&G&G
’6
DATA ”<D&DR<D&D&D&D&D
’7
DATA ”>>>F<CF&F&F&F&F&F
’8
DATA ”<D&D<RD&D&D&D&D
’9
DATA ”O2 D#A#<D#&D#&D#&D#&D#&D#
’10
DATA ”<D&DR<D&D&D&D&D
’11
DATA ”O2 F<CF&F&F&F&F&F
’12
DATA ”<D&DR<D&D&D&D&D
’┿
’13
DATA ”O2 G<D<G&G&G&GGD
’14
DATA ”>F<CF&F&F&F&F&F
’15
DATA ”O2 D#A#<D#&D#&D#&D#D#&D#
’16
DATA ”O2 F<CF&F&F&FCF
’17
DATA ”>G<DG&G&G&G&G&G
’18
DATA ”O2 G<D<G&G&G&G&G&G
’19
DATA ”O2 G<D<G&G&G&GGD
’20
DATA ”>F<CF&F&F&F&F&F
’21
DATA ”O2 D#A#<D#&D#&D#&D#D#&D#
’22
DATA ”O2 F<C&CF&FC&C&C
’23
DATA ”O2 G<D&DG&GD&D&D
’24
DATA ”O2 G<DG&G&G&G&G&G
’25
DATA ”O3 CG<C&C&C&C&C&C
’26
DATA ”O2 B<GB&B&BGB&B
’27
DATA ”O2 A<FA&A&A&AF&F
’28
DATA ”O2 G<DG&G&G&GD&D
’29
DATA ”O3 CG<C&C&C&C&C&C
’30
DATA ”O2 B<GB&B&B&BB&B
’31
DATA ”O2 A#<GA#&A#&A#&A#A#&A#
’32
DATA ”O2 A<A&A&ADA&A&A
’33
DATA ”O2 G<D&D&D&D&DGD
’34
DATA ”O2 F<CF&F&FDF&F
’35
DATA ”O2 D#A#D#&D#&D#&D#A#&A#
’36
DATA ”O2 F<CF&F&F&FC&C
’37
DATA ”O2 G<DG&G&G&GG&G
’38
DATA ”O2 G&G<D&D&D&D&D&D
’39
DATA ”O2 G<D&D&D&D&DGD
’40
DATA ”O2 F<CF&F&FC&C&C
’41
DATA ”O2 D#A#<D#&D#&D#&D#D#&D#
’42
DATA ”O2 F<CF&FRRC&C
’43
DATA ”O2 G<DG&G&G&GG&G
’44
DATA ”O3 RRRRRB&B&B
’45
DATA ”O3 RRRA&AAAA
’46
DATA ”O3 RAAARAAA
’47
DATA ”O3 RRRA#RA#RA#
’48
DATA ”O3 A#A#A#A#A#A#A#A#
’49
DATA ”O4 RRRC&CC&CC
’50
DATA ”O4 RC&CC&CC&C&C]










DATA ”:3 V127 @0 L16 Q7
DATA ”@E127,0,0,30 O2
’1
DATA ”[RRRRRRRR
’2
DATA ”G<DG&G&G&G&G&G
’3
DATA ”RRRRRRRR
’4
DATA ”>F<CF&F&F&FC&C
’5
DATA ”O2 RRRRRRRR
’6
DATA ”G<DG&G&G&G&G&G
’7
DATA ”RRRRRRRR
’8
DATA ”>F<CF&F&F&FC&C
’9
DATA ”RRRRRRRR
’10
DATA ”O2 D#A#<D#&D#&D#&D#&D#&D#
’11
DATA ”RRRRRRRR
’12
DATA ”O2 F<CF&F&F&FC&C
’┿
’13
DATA ”RRRRRRRR
’14
DATA ”RRRRRRRR
’15
DATA ”RRRRRRRR
’16
DATA ”RRRRRRRR
’17
DATA ”RRRRRRRR
’18
DATA ”RRRRRRRR
’19
DATA ”RRRRRRRR
’20
DATA ”RRRRRRRR
’21
DATA ”RRRRRRRR
’22
DATA ”RRRRRRRR
’23
DATA ”RRRRRRRR
’24
DATA ”RRRRRRRR
’25
DATA ”RRRRRRRR
’26
DATA ”RRRRRRRR
’27
DATA ”RRRRRRRR
’28
DATA ”RRRRRRRR
’29
DATA ”RRRRRRRR
’30
DATA ”RRRRRRRR
’31
DATA ”RRRRRRRR
’32
DATA ”RRRRRRRR
’33
DATA ”RRRRRRRR
’34
DATA ”RRRRRRRR
’35
DATA ”RRRRRRRR
’36
DATA ”RRRRRRRR
’37
DATA ”RRRRRRRR
’38
DATA ”RRRRRRRR
’39
DATA ”RRRRRRRR
’40
DATA ”RRRRRRRR
’41
DATA ”RRRRRRRR
’42
DATA ”RRRRRRRR
’43
DATA ”RRRRRRRR
’44
DATA ”O2 G<DG&G&G&G&G&G
’45
DATA ”O2 F<CF&F&F&F&F&F
’46
DATA ”O2 F&F&F&F<C&CF&F
’47
DATA ”O2 D#A#<D#&D#&D#&D#D#&D#
’48
DATA ”O2 D#&D#&D#&D#&D#&D#&D#&D#
’49
DATA ”O2 DA<D&D&D&DD&D
’50
DATA ”O2 DA<D&D&D&DD&D]
’ET
DATA 0

@BGM2

DATA ”:0 V127 T60 @0 L16 Q7
DATA ”@E127,0,0,12 O4
DATA ”B&B&B&B&B&B&B&B
DATA ”G&G&G&GD&D&D&D
DATA ”C&C&C&C&C&C&C&C
DATA ”G&G&G&GB&B&B&B
DATA ”G&G&G&G&G&G&G&G&
DATA ”G&G&G&G&GAGF&
DATA ”F&F&F&F&F&F&F&F
DATA ”D&D&D&D&D&D&D&D
DATA ”>D&D&D&D&D&D&D&D
DATA ”>A#&A#&A#&A#F&F&F&F
DATA 0





@MKY ’oyサンノ マリオBGMヨリ<========

BGMSETD 240,@MKYD

BGMPLAY 1,240,127
RETURN


@MKYD ’╂╂╂BGM
DATA ”:0 V90 T148 @13 L16 Q7
DATA ”@E127,0,0,125 O5
DATA ”B8&B16B4&B16G8&G16G4&G16
DATA ”F16F8F16E8D#8D4&D16RRR
DATA ”[[R1]16

’’5
DATA ”F8F8A8<C8>A#A#8A#A8A8
DATA ”G8G8FG8A2R
DATA ”F8F8A8<C8>A#A#8A#A8A8
DATA ”G8G8FG8A2R

’6
DATA ”G#A8F8G#A8F2
DATA ”G#A8F8G#A8&A<C8C4&C>
DATA ”G#A8F8G#A8F2
DATA ”G#A8F8FA2&A8

’7
DATA ”R<D8D>A#8A#8<C8C8>A8A8
DATA ”A#8A8G8FA2R
DATA ”R<D8D>A#8A#8<C8C8>A8A8
DATA ”A#8A8G8FA2R

’8
DATA ”<RD8DF8&FDC8C8F8&FC
DATA ”>A#8A#8<D8>A#A2R
DATA ”<D8D8F8&FDC8C8C4
DATA ”>A#A#8A#8R>A#D<DRDRD4

’9
DATA ”BB8B8D>BG<DRDRD4]

DATA ”:1 V90 @17 L16 Q7
DATA ”@E127,0,0,125 O5
DATA ”E8&E16E4&E16>B8&B16B4&B16
DATA ”B16B8B16<C8C#8D4&D16RRR


DATA ”[[R1]16

’’5
DATA ”>A8A8<C8E8DD8DC8C8
DATA ”>A#8A#8AA8<C2R
DATA ”>A8A8<C8E8DD8DC8C8
DATA ”>A#8A#8AA8<C2R

’6
DATA ”>B<C8>A8B<C8>A2
DATA ”B<C8>A8B<C8&CC8C4&C
DATA ”>B<C8>A8B<C8>A2
DATA ”B<C8>A8A<C2&C8

’7
DATA ”RF8FD8D8E8E8C8C8
DATA ”D8C8>A#8A<C2R
DATA ”RF8FD8D8E8E8C8C8
DATA ”D8C8>A#8A<C2R

’8
DATA ”RF8FA#8&A#FF8F8A#8&AF
DATA ”D8D8F8DC2R
DATA ”F8F8A8&AFE8E8E4
DATA ”DD8D8>A#FDA#A#8A#4&A#

’9
DATA ”<DD8D8>BGDBB8B4&B]

DATA ”:2 V127 @96 L16 Q7
DATA ”@E120,0,0,120 O2
DATA ”G8&G16G16RRRR>G8&G16<G16RRRR
DATA ”>G8&G16<GARA#RBRRRRRRR

’1
DATA ”[<C4>G4<C4>G4
DATA ”<C4>G4<C4>G4
DATA ”<C4>G4<C4>G4
DATA ”G4D4G4D4

’2
DATA ”<C4>G4<C4>G4
DATA ”F4C4F4C4
DATA ”G4D4G4D4
DATA ”G4D4GRG8A8B8

’3
DATA ”<C4>G4<C4>G4
DATA ”<C4>G4<C4>G4
DATA ”<C4>G4<C4>G4
DATA ”G4D4G4D4

’4
DATA ”<C4>G4<C4>G4
DATA ”F4C4F4C4
DATA ”G4D4G4D4
DATA ”<C4>G4CRC8D8E8

’’5
DATA ”F4C4F4C4
DATA ”F4C4F4C4
DATA ”F4C4F4C4
DATA ”F4C4F4C4

’6
DATA ”F4C4F4C4
DATA ”F4C4F4C4
DATA ”F4C4F4C4
DATA ”F4C4FRF8G8A8

’7
DATA ”A#4F4A4F4
DATA ”G4C4FRF8G8A8
DATA ”A#4F4A4<D4
DATA ”C4>C4FRF8G8A8

’8
DATA ”A#4F4A4F4
DATA ”G4C4FRF8G8A8
DATA ”A#4F4A4F4
DATA ”G8&GGRRRR>G8&GGRRRR<
DATA ”G8&GGRRRR>G8&GGRRRR]


DATA ”:3 V70 @128 L16 Q7
DATA ”O5 RRRRCC8&CRRRRCC8&C
DATA ”RRRRRRRRRRC4RR
’1
DATA ”[[R1]7
DATA ”RRRRRRRRRRCRC4
DATA ”[R1]23
DATA ”RRRRRCRC4R4R
DATA ”RRRRRCRCR2]

DATA ”:4 V80 @128 L16 Q7
DATA ”R1R1O2
DATA ”[RRBR]

DATA ”:5 V80 @1 L16 Q7
DATA ”@E120,0,0,120 O5
DATA ”GRRGRRRRDRRDRRRR
DATA ”DRRDERERFRRRRRRR

’1
DATA ”[[RRR>GE<C>EG<C>EG<C>EG<C>E
DATA ”G<C>EG<C>EG<C>EG<C>EG<C>EG
DATA ”EG<C>GE<C>EG<C>EG<C>EG<C>F
DATA ”G<C#D>G<C#D>G<C#D>G<C#D>G<C#D>G

’2
DATA ”EG<C>EG<C>GE<C>GE<C>GE<C>E
DATA ”F<C>GG#<C>AG#<C>AG#<C>AG#<C>A<C>
DATA ”FG<C>FG<C>GF<C>GF<C>GF<C>G
DATA ”FB<D>BG<D>BF<CRRRRRRR]2

’’5
DATA ”>FA<C>AF<C>FA<C>AF<C>FA<C>A
DATA ”F<C>FA<C>AF<C>FA<C>AF<C>FA
DATA ”<C>AF<C>FA<C>AF<C>FA<C>AF<C>
DATA ”AF<C>AF<C>FA<C>AF<C>AF<C>F

’6
DATA ”A<C>AF<C>AF<C>FA<C>AF<C>A<C>
DATA ”FA<C>AF<C>FA<C>FA<C>AF<C>F
DATA ”A<C>FA<C>AF<C>AF<C>FA<C>AF
DATA ”<C>AF<C>FA<C>FA<C>AF<C>FA<C>

’7
DATA ”FA#<D>A#F<D>A#F<C>FA<C>AF<C>F
DATA ”EGA#GEA#GEAFCAFCAF
DATA ”DFA#F<D>A#FD<C>AF<C>FA<C>A
DATA ”EGA#GEA#GEAFCAFCAF

’8
DATA ”DFA#F<D>A#FD<C>AF<C>FA<C>A
DATA ”EGA#GEA#GEAFCAFCAF
DATA ”DFA#F<D>A#FD<C>AF<C>FA<C>A
DATA ”R<DRDRD>A#FR<DRDRRRR

’9
DATA ”DDRDRD>BG<RDRDRRRR]

DATA ”:6 V70 @41 L16 Q7
DATA ”@E110,0,0,120 O5
DATA ”R1R1

’1
DATA ”[D#E<C>DGG8CRCDCD#RE8&
DATA ”E2&E4R4
DATA ”D#E<C>DGG8CRCDCD#RRD&
DATA ”D2&D4R4

’2
DATA ”D#E<C>DGG8CRCDRDC8&C
DATA ”FRFRFDRC4&C8&CRR
’DATA ”FRRRFDRC4&C8&CRR
DATA ”D#EGD#EGD#EGRGRGARG&
’DATA ”D#EGD#EGD#EGRRRGARG&
DATA ”G2R2

’3
DATA ”D#E<C>DGG8CRCDCD#RE8&
DATA ”E2&E4R4
DATA ”D#E<C>DGG8CRCDCD#RRD&
DATA ”D2&D4R4

’4
DATA ”D#E<C>DGG8CRCDRDC8&C
DATA ”FFRRFDRC4&C8&CRR
DATA ”D#EGD#EGD#EGGRF#FDRC&
DATA ”C2R2

DATA ”[R1]17]

DATA ”:7 V60 @41 L16 Q7
DATA ”@E120,0,0,120 O5
DATA ”R1R1

’1
DATA ”[RRGDD#E8>GRGAG<CRC8&
DATA ”C2&C4R4
DATA ”RRGDD#E8>GRGAG<CRR>G&
DATA ”G2&G4R4<

’2
DATA ”RRGDD#E8>GRGAGAG8&G
DATA ”ARARAFRF4&F8&FRR
DATA ”A#B<D>A#B<D>A#B<DRDRDDRD&
DATA ”D2R2

’3
DATA ”RRGDD#E8>GRGAG<CRC8&
DATA ”C2&C4R4
DATA ”RRGDD#E8>GRGAG<CRR>G&
DATA ”G2&G4R4

’4
DATA ”RR<GDD#E8>GRGAGAG8&G
DATA ”ARARAFRF4&F8&FRR
DATA ”A#B<D>A#B<D>A#B<DRRC#C>GRG&
DATA ”G2R2

DATA ”[R1]17]

DATA ”:8 V127 @128 L16 Q7
DATA ”R1 O3
DATA ”R2R8F#8F#8F#8

DATA ”[[R1]7
DATA ”R2R8F#8F#8F#8
DATA ”[R1]7
DATA ”R2R8F#8F#8F#8

’’5
DATA ”[R1]7
DATA ”R2R8F#8F#8F#8
’DATA ”[R1]7
DATA ”V100[[RRF#F#]4]7

DATA ”V127R2R8F#8F#8F#8
DATA ”R2R8F#8F#8F#8]
DATA 0




}}
#endregion

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

*更新予定 [#u72ec2bc]
#region(Doors3.0)
リクエストがあればmk2でも更新します!
#endregion

#region(CHAOS v1.0)
New3DSゲットしましたっ!

[[MKsoft>3gou:Toukou/MKsoft本部]]のメンバー(魔神さん,イェァさん)と、

新しいOSを共同制作中です!
#endregion
#region(MKsoft CHAOS V2.0)
[[つ、ついに、マルチタスク対応になりました!>3gou:Toukou/MKsoft CHAOS]]

もちろん、魔神さん,イェァさん、そして新メンバーの雨月めのうさんのアプリも入っていますっ!
#endregion

* その他のキャラクター製作所soft [#ud07e54a]
[[はやうち!キーボードインベーダ>Toukou/はやうち!キーボードインベーダ]]
- タイピングゲームです。Doorsでおまけフォントが使えます。

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

* 要望、感想、苦情、アドバイスなどなど。 [#Comments]
- ''キャラクター製作所'' : ドアーズツーできたZE!!テスト前日だZE オワタ────\(^o^)/────!!! 後で載せるZE☆ (&new{2014/11/16 (日) 15:01:22};)
- ''魔神'' : 10枚目のQRが読み込めません (&new{2014/11/16 (日) 18:19:10};)
- ''キャラクター製作所'' : なおしたよ。やってみて。 (&new{2014/11/16 (日) 18:40:02};)
- ''魔神'' : ヘリコプターに音を着けたらいいと思う。あとは、全てパーフェクトです。 (&new{2014/11/16 (日) 18:48:15};)
- ''キャラクター製作所'' : BGMの妨げにならないようにと思って・・・あ、もしよかったら改造してみてください。 (&new{2014/11/16 (日) 19:08:53};)
- ''魔神'' : でも、僕は、小5なので改造は、ちょっと・・・ (&new{2014/11/16 (日) 21:27:09};)
- ''マリオBGMの作成者'' : ありがとうございます。使ってくれて、すごくうれしいです!!! (&new{2014/11/16 (日) 23:28:20};)
- ''キャラクター製作所'' : ウォーターランドのピアノの音色とても気に入ってます(^-^)/癒されます。 (&new{2014/11/17 (月) 13:12:51};)
- ''キャラクター製作所'' : ↑↑↑改造方法は、今度気が向いたら載せますね。あ、ちなみに僕は、中1です。 (&new{2014/11/17 (月) 13:16:09};)
- ''マリオBGMの作成者'' : 僕は中3です。受験勉強で忙しくてなかなか出来ない。 (&new{2014/11/18 (火) 07:03:59};)
- ''キャラクター製作所'' : 中三だったんですか!(^^)! (&new{2014/11/18 (火) 13:29:02};)
- ''キャラクター製作所'' : ところで、マリオBGMの作成者さんは、3号買うんですか? (&new{2014/11/18 (火) 13:36:38};)
- ''魔神'' : マリオBGMの作成者さんでは、ありませんが、僕は、3号を買います (&new{2014/11/18 (火) 17:21:12};)
- ''マリオBGMの作成者'' : 受験終わってからかなー (&new{2014/11/18 (火) 17:42:10};)
- ''名無しさん'' : コインゲームってどこにあるの? (&new{2014/11/21 (金) 20:26:49};)
- ''魔神'' : アプリ選択下画面の左下です (&new{2014/11/22 (土) 07:18:11};)
- ''名無しさん'' : すみません見つかりません(T ^ T) (&new{2014/11/22 (土) 09:32:15};)
- ''魔神'' : よ〜く探してください (&new{2014/11/22 (土) 17:00:07};)
- ''魔神'' : 十字キーで左下のヘリコプターが動かせカラフルな四角をとるのがコインゲームです。 (&new{2014/11/22 (土) 17:01:19};)
- ''名無しさん'' : あっわかりました。お騒がせしました。m(_ _)m (&new{2014/11/22 (土) 18:08:03};)
- ''キャラクター製作所'' : あれ、(´・ω・`)しばらく来てないうちに色々やってたんだね。 (&new{2014/11/23 (日) 10:57:31};)
- ''キャラクター製作所'' : ちなみにコインゲームってのは、ヘリコプターで集めたコインが使える別のプログラムのことなんだけど・・・説明わかりずらくってごめんなさいm(_ _)m (&new{2014/11/23 (日) 11:02:07};)
- ''キャラクター製作所'' : あ、COINGAMEってタグつけてくれれば、自分でつくってもいいですよ!まだコインゲーム作ってないのでw (&new{2014/11/23 (日) 11:05:41};)
- ''キャラクター製作所'' : コインは、MEM$:COINに保存されています。長文失礼いたしました。 (&new{2014/11/23 (日) 11:08:23};)
- ''キャラクター製作所'' : DoorsToolに入れてほしいツール募集中! (&new{2014/12/06 (土) 11:12:17};)
- ''魔神'' : お絵かき、メモ (&new{2014/12/06 (土) 12:46:19};)
- ''マリオBGMの作成者'' : 何かコインゲームがあるといいかも。 (&new{2014/12/06 (土) 15:58:18};)
- ''Newきゃらくたぁ製作所'' : 結局、コインゲームを作ることなく、mk2使わなくなっちゃったな・・・。 (&new{2015/03/21 (土) 17:14:54};)
- ''Newきゃらくたぁ製作所'' : https://miiverse.nintendo.net/posts/AYIHAAAEAAA5VHwoNAqH4g (&new{2015/03/21 (土) 17:15:22};)
- ''名無しさん'' : ↑×6 他にも別のプログラムで使える変数があるなら、仕様みたいな感じでリストがあるといいかも。 (&new{2015/06/07 (日) 15:49:33};)
- ''Newきゃらくたぁ製作所'' : ↑コインしかないです・・・。 (&new{2015/08/17 (月) 11:33:34};)

#comment

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