Toukou/山岳観光ソフトの変更点

パンくずリスト

追加された行はこの色です。
削除された行はこの色です。
Toukou/山岳観光ソフトへ行く。
変更を無効にして元に戻す
Toukou/山岳観光ソフトの差分を削除
#title(投稿プログラム : 山岳観光ソフト)
#contents
// ↑この2行は削除しないでください。

2014年12月20日投稿/ 投稿者 : CRT/ &tag(投稿プログラム,QRコード,mkII専用,シミュレーション);

#blockdiv(class:block-info)
SIZE(14){     ぺージを見て頂き、ありがとうございます。 } &br;
SIZE(12){   今日のアクセス：&counter(today);  トータル：&counter(total); }
#blockdiv(end)
//--------------------------------------
*  概要 [#h9554192]
SIZE(28){   目の前に広がる、立体的な地形。 } &br;
#ref(IMG_5088.JPG)
SIZE(32){ バージョンアップでカスタマイズも簡単に！ } &br;
#ref(IMG_5151.JPG)
#region(こんな新機能も！)
#ref(IMG_5148.JPG)
#endregion
この「山岳観光ソフト」は、マップを立体的に表示し、~
フィールドを自由に移動して景色を楽しむ(?)という物です。~
また、設定を変えることで様々なパターンを使用することができます。~
//--------------------------------------
* 遊び方 [#k42eb91e]
あくまでも''「観光ソフト」''なので、今のところ敵と戦ったり、~
アイテムを作って岩盤を掘削するようなことはできませんが、~
突然緑色の物体が現れて爆発するような事も無いので安心です。~
フィールドを自由に歩いて冒険気分を味わいましょう。
//--------------------------------------
タイトル画面で指定のボタンを押すことで、次のようなモードを実行できます。&br;
**簡単モードで冒険 [#yeab7d6d]
通常モードです。フィールドを歩いて観光します。
//----------------
***操作方法 [#n48514fe]
操作方法はプレイ中の下画面にも表示されています。
| 十字ボタン | 移動や回転をします。1歩で１～２秒程かかります。 |
| A/Yボタン  | 左右の幅を調整します。大きいほど視界が広がります。 |
| X/Bボタン  | 前後の奥行きを調整します。大きいほど奥まで見通せます。 |
| Lボタン 　 | BGMを止めます。 |
| Rボタン 　 | プログラムを終了します。 |
※操作モードによって、十字ボタンの操作は変わります。
***マップ [#lf4eefb7]
下画面には視界の範囲を示すマップも表示されています。~
初期設定では処理速度の関係から比較的狭めに設定されていますが、~
自分で調整して広くすることもできます。~
紫の「●」が現在地を示しています。
//--------------------------------------
**設定後に始める [#f9dacb01]
様々なオプションを選んでから観光できます。オプションには~
次のような項目があり、効果は以下の通りです。
#region(見てみる)
|１ブロックあたりの大きさ|１マスの長さをピクセル単位で設定できます。極端な値を使うと画面に塗り残しができる事があります。|
|高画質描画の使用|「ON」にすると、遠くのものほど色が薄くなり、よりリアルな見た目になります。|
|高速描画の採用|奥のブロックを描く作業を単純にし、描画の高速化を図ります。バグを軽減する効果もあります。|
|キャラクターの配置|何も置かない「OFF」の他に、２パターンあります。［TYPE1］は専用のキャラ「YM-PERS」を使用するのでキャラの保存が必要ですが、［TYPE2］ではプチコン標準のキャラを使用できます。|
|お　て　ん　き|高画質描画の使用を「ON」にしている時のみ設定可能で、空の色を変えることができます。項目の横に天気の名前と空の色のサンプルが表示されるので、それを参考に選びます。|
|ワイヤーフレームの採用|ワイヤーフレームっぽい感じで描画されます。「高速描画」との併用はできないので気を付けましょう。|
|この設定で観光を始める|設定した項目を反映して観光を始めます。|
|スタート位置を決めて始める|マップの全体図が表示され、任意のスタート位置を選ぶことができます。全体図を見たくない方にはおすすめしません。|
#endregion
//--------------------------------------
**操作のモードを選択 [#d3b4bc44]
今回の更新から、操作のモードを選べるようになりました。
操作モードは２種類あり、詳細は以下の通りです。
|TYPE1|アングルを変えず、平行移動します。|
|TYPE2|十字ボタンの左右で回転し、上下で前進、後退します。|
**やっぱり始めない [#hd9e51ae]
プログラムを終了します。
//#region(ちなみに)
//STARTボタンでバージョン履歴を表示します。
//#endregion
//--------------------------------------
*注意 [#n62d2206]
#blockdiv(class:block-info)
-通常モードでプレイ中、視界の奥行きを大きくすると描画にバグが発生しやすくなります。~
これは設定モードで「高速描画」をONにすることで軽減することができます。~
-特定の条件下では、まれに海に落ちたり騒音が鳴ってバグマップが表示されることがあります。~
これは視界の広さを狭くし、上を向くことで多分直りますが、そこが沖合だった場合は…
-1008行目のデータ文に誤字が見つかりました。プレイ自体に支障は出ませんが、~
気になる方は中身の「ザブン」を「ジブン」に直してください。
-設定後に始めたときに奥行きがゲージをはみ出るのは仕様です。
#blockdiv(end)
//--------------------------------------
*作品更新履歴 [#v1c908a6]
-2014.12/18　ver.8~
当サイトにて投稿されました。バージョンは制作開始から無計画につけていたため、~
投稿できるレベルになった頃には妙に高くなってしまいました。~
-2014.12/20　ver.9~
設定モード、タイトル画面の操作性を改善したほか、観光を始める位置を選べる~
機能等を追加しました。また、向いている方向を変える事ができる操作モードを~
追加しました。
-2015.1/25
ver.10の制作に着手しました。ver.10以降はプチコン３号で配信する予定です。
//--------------------------------------
* プログラムリスト [#List]
#region(新バージョンを開く)
#basic{{
'───────────────────────────
'  ┼┼┿┿┿ ┏╋━┻ ┛○┗ ┏   ┏┏━ ┓ 
'  ││YM9  ┨ ┻ ┛┗┏┣━┛┛┛┏┣━┨  
' й││┐   ┗ ┫┻ ┫ ┗  ┠┠━┳━┃┻  
'к┌┼┼┐л  フ゜ロク゛ラムニ チュウイ!!!   
'з└└┼┘и  キワメテサ゛ツナフ゛フ゛ンヤ ムリヤリ
'лййййк  ナフ゛フ゛ンカ゛アリマス。スミマセン。
'───────────────────────────
ACLS:CLEAR:COLOR 0
PNLTYPE "OFF"
BGPAGE 1
BGFILL 1,0,0,32,23,15,1,0,0
BGFILL 1,0,13,32,23,709,8,0,0
BREPEAT 0,30,5
BREPEAT 1,30,5
BREPEAT 2,30,5
BREPEAT 3,30,5
CHRSET "SPU1",252,"0000000200000002000000220000002200000022000002220000022200002221"
CHRSET "SPU1",253,"2000000020000000220000002200000022000000222000002220000012220000"
CHRSET "SPU1",254,"0000FFF100000FFF00000FFF000000FF000000FF000000FF0000000F0000000F"
CHRSET "SPU1",255,"1FFF0000FFF00000FFF00000FF000000FF000000FF000000F0000000F0000000"
'---ハイレツセンケ゛ン---
WOD=13 'オクユキハハ゛タ゛ンスウケ゛ンカイ
DIM X(WOD) '{0,Y(n)}ノトキノ 
DIM Y(WOD) '1マスノナカ゛サ:L(n)
DIM L(WOD) 'Xサ゛ヒョウ  :X(n)
DIM CZ$(100)'フウケイヨミコミシテン 
DIM CC$(100)
DIM S(10)
'───────────────────────────
@TITLEWRITE
BGPAGE 0
BGCLR 0
BGCLR 1
BGPAGE 1
SPCLR 0:CLS:SPCLR 
LOCATE 0,10:COLOR 0
B$="SELECT TO START"
'------タイトル-----
?" ┰ ┝├┬┐┌─┐ サンカ゛クカンコウソフト シケンハ゛ン"
?" ┥│┸│││└─┤   VER.Beta-9-4.0   "
?"  ┴─┘└└──┘ DEVELOPED BY ●CRT● "
?"  Y  M  9                     "
SPSET 2,64,4,0,0,0
SPOFS 2,120,44:SPANIM 2,4,10
LOCATE 7,21:?" (Пテ゛センタク、Аテ゛キメル)
BGMPLAY "T240:0@128[ADAD]:1V80@128[CCG]
COLOR 5:A=0:S=0
'---------------------------
@START
VSYNC 1

GOSUB @ST_BTCHK
GOSUB @ST_CSSCR
GOSUB @ST_CSR
GOSUB @ST_SPOFS

GOTO @START
'---------------------------
@ST_BTCHK 'ホ゛タンハンテイ
B=BUTTON(1)

IF B==1 THEN S=S-1:BEEP 2
IF B==2 THEN S=S+1:BEEP 2
IF B==16THEN BGMSTOP :BEEP 3:ON S GOTO @INIT_1,@SETTING,@OPER_SET,@END01
IF B==1024 THEN GOTO @CREDIT

RETURN
'---------------
@ST_CSSCR 'スクリ-ンイト゛ウ
COLOR 5

A=A+1:IF A>20*10 THEN A=0
IF A%10==0 THEN RESTORE @DATA_TY:FOR I=0 TO 3:READ A$:LOCATE 10,I+4:? MID$(A$,A/10,12):NEXT
IF A%10==0 THEN COLOR RND(16):PNLSTR 8,12,"SELECT TO START!"

RETURN
'---------------
@ST_SPOFS 'イミノナイイト゛ウ
RETURN
'---------------
@ST_CSR 'ケイキ

IF S<0 THEN S=3
IF S>3 THEN S=0
COLOR 5
LOCATE 10,14:?"●ソウサ:TYPE-"+STR$(OPPATARN+1)+"●"
IF S==0 THEN COLOR 7 ELSE COLOR 0
LOCATE 8,16:?"●カンタンモ-ト゛テ゛ホ゛ウケン●"
IF S==1 THEN COLOR 7 ELSE COLOR 0
LOCATE 8,17:?"● セッテイコ゛ニ ハシ゛メル ●"
IF S==2 THEN COLOR 7 ELSE COLOR 0
LOCATE 8,18:?"●ソウサノ モ-ト゛ヲ センタク●"
IF S==3 THEN COLOR 7 ELSE COLOR 0
LOCATE 8,19:?"● ヤッハ゜リ ハシ゛メナイ  ●"

RETURN
'---------------
@END01
COLOR 0:CLS:SPCLR:END
'───────────────────────────
@OPER_SET 'ソウサホウホウノセンタク
CLS:SPCLR 
LOCATE 5,4
?"ソウサノタイフ゜ヲエラフ゛コトカ゛テ゛キマス!"
LOCATE 7,19
?"(←→テ゛センタク、 Аテ゛ケッテイ)"
RESTORE @DATA_OPEP
FOR I=0 TO 9
LOCATE 5,I+6:READ A$:?A$;
NEXT
FOR I=10 TO 19
LOCATE 17,I+6-10:READ A$:?A$;
NEXT

@OPE_LOOP
VSYNC 1
GOSUB @OPE_CSR
GOSUB @OPE_SEL

GOTO @OPE_LOOP
'---------------
@OPE_CSR

RESTORE @DATA_OPEP
IF SEL==0 THEN COLOR 7 ELSE COLOR 0
FOR I=0 TO 9
LOCATE 5,I+6:READ A$:?A$;
NEXT

IF SEL==1 THEN COLOR 7 ELSE COLOR 0
FOR I=10 TO 19
LOCATE 17,I+6-10:READ A$:?A$;
NEXT

RETURN
'---------------
@OPE_SEL
B=BUTTON(1)
IF B==4 THEN BEEP 2:SEL=SEL+1
IF B==8 THEN BEEP 2:SEL=SEL-1
IF SEL>1 THEN SEL=0
IF SEL<0 THEN SEL=1
IF B==32 THEN BEEP 4:GOTO @TITLEWRITE
IF B==16 THEN BEEP 3:OPPATARN=SEL:GOTO @TITLEWRITE
RETURN
'───────────────────────────
@SETTING 'セッテイ
GPAGE 0,0,0:SPCLR 
S=0:FOR I=0 TO 6:S(S)=0:NEXT
S(0)=80

TEST=1:GOSUB @COLSETHD:TEST=0
CO$="[アサ]"

BGMPLAY "@255V70:0[BGRR]:1@128[DR>C<R]
@SETLOOP
VSYNC 1
GOSUB @SET_BCK
GOSUB @SET_CSR

GOTO @SETLOOP
'---------------
@SET_BCK
B=BUTTON(1)
IF B==1 THEN S=S-1:BEEP 2
IF B==2 THEN S=S+1:BEEP 2
IF B==16 THEN GOSUB @SCHANGE
IF B==32 THEN BEEP 4:GCLS :GOSUB @TITLEWRITE
RETURN
'-------
@SCHANGE
IF S==0 THEN BEEP 38:GOSUB @SET_L:RETURN
IF S==3 THEN BEEP 38:GOSUB @SET_P:RETURN
IF S==4 THEN GOSUB @SET_W:RETURN
IF S>=6 THEN GOSUB @FUNCSET
S(S)=S(S)+1:BEEP 38
IF S(S)>1 THEN S(S)=0
RETURN
'---------------
@SET_CSR 'ケイキ

IF S<0 THEN S=0
IF S>7 THEN S=7

RESTORE @SETEXA 
FOR I=0 TO S
READ A$:READ B$
NEXT

CLS

LOCATE 1,21:? A$
LOCATE 1,22:? B$

LOCATE 0,6
IF S==0 THEN COLOR 7 ELSE COLOR 0
?"    ● 1フ゛ロックアタリノ オオキサ :
IF S==1 THEN COLOR 7 ELSE COLOR 0
?"    ● コウカ゛シツヒ゛ョウカ゛ノシヨウ:
IF S==2 THEN COLOR 7 ELSE COLOR 0
?"    ● コウソクヒ゛ョウカ゛ノサイヨウ :
IF S==3 THEN COLOR 7 ELSE COLOR 0
?"    ● キャラクタ-ノ ハイチ     :
IF S==4 THEN COLOR 7 ELSE COLOR 0
IF S(1)==0 THEN COLOR 14
?"    ● オ テ ン キ         :
IF S==5 THEN COLOR 7 ELSE COLOR 0
IF S(2)==1 THEN COLOR 14:S(5)=0
?"    ● ワイヤ-フレ-ムノ サイヨウ  :
IF S==6 THEN COLOR 3 ELSE COLOR 14
?"    ● コノセッテイテ゛カンコウヲハシ゛メル ●
IF S==7 THEN COLOR 3 ELSE COLOR 14
?"    ●スタ-トイチヲキメテカンコウヲハシ゛メル●
LOCATE 4,6+S:COLOR 7:?"●"
LOCATE 23,6 :COLOR 4:?"[";S(0);"]"
LOCATE 23,7 :IF S(1)==1 THEN COLOR 13:?"[ON]"ELSE COLOR 11:?"[OFF]"
LOCATE 23,8 :IF S(2)==1 THEN COLOR 13:?"[ON]"ELSE COLOR 11:?"[OFF]"
LOCATE 23,9 :IF S(3)==1 THEN COLOR 13:?"[TYPE1]"ELSE COLOR 11:?"[OFF]"
LOCATE 23,9 :IF S(3)==2 THEN COLOR 12:?"[TYPE2]"
LOCATE 23,10:COLOR C0:? CO$:
LOCATE 23,11:IF S(5)==1 THEN COLOR 13:?"[ON]"ELSE COLOR 11:?"[OFF]"

GFILL 21*8,10*8,22*8,11*8-1,102

LOCATE 0,18:COLOR 0
?"─"*32;
?" Пテ゛センタク、Аテ゛ON/OFFキリカエ
RETURN
'───────────────────────────
@SET_L 'Lノセッテイ
LOCATE 0,20:COLOR 0
PRINT "(コノフ゜ロク゛ラムテ゛ハ 80&#12316;120ヲショウレイシマス)
INPUT "1フ゛ロックアタリノ オオキサハ(60&#12316;250)";S(0)
IF S(0)<60  THEN S(0)=60
IF S(0)>250 THEN S(0)=250
BEEP 12:WAIT 2
RETURN
'---------------------------
@SET_W 'WEATHERノセッテイ
IF S(1)==0 THEN BEEP :EL2=1:RETURN
EL2=0:BEEP 48

S(S)=S(S)+1
IF S(S)>7 THEN S(S)=0

WEATHNO=S(S)

TEST=1:GOSUB @COLSETHD:TEST=0

RESTORE @SKYCOLOR
FOR I=0 TO S(S)
READ C$:C0=VAL(C$)
READ D$:CO$="["+D$+"]"
NEXT
RETURN
'---------------------------
@SET_P 'ヒトノセッテイ
S(S)=S(S)+1
IF S(S)>2 THEN S(S)=0
RETURN
'---------------------------
@FUNCSET 'ヘンスウヲセッテイ
SETL=1:GCLS 
IF S(1)==1 THEN HULLHD=1:GOSUB @COLSETHD ELSE FULLHD=0
IF S(2)==1 THEN HIPER=1:HIPERMIN=6 ELSE HIPER=0
IF S(3)>=1 THEN PERSON=S(3):GOSUB @CHRLOAD

WEATHNO=S(4)
FRAME=S(5)

IF S==6 THEN GOTO @INIT_2
IF S==7 THEN GOSUB @TELEPORT:GOTO @INIT_2
END
'───────────────────────────
@CHRLOAD 'ヒトノヨミコミ
LOCATE 0,19:?" "*32;
LOCATE 0,19
IF PERSON==2 THEN SPSET 0,68,4,0,0,0:SPOFS 0,-40,100:SPSCALE 0,200:RETURN

SYSBEEP=0:LOAD "COL1:0012",0:LOAD"SPU0:YM_PERS",0:SYSBEEP=1
IF RESULT==0 THEN BEEP 4:COLOR 11:?"キャラヲ ヨミコメマセンテ゛シタ":PERSON=0:WAIT 60
IF PERSON==1 THEN SPSET 0,0,2,0,0,0,16,32:SPOFS 0,-40,100:SPSCALE 0,200
RETURN
'───────────────────────────
@INIT_1 'スタンタ゛-トニ キト゛ウ
HULLHD=0:PERSON=0
SPCLR 
@INIT_2 'イレキ゛ュラ-ニ キト゛ウ
BGPAGE 0
BGCLR 0
BGCLR 1
BGPAGE 1
CLS:COLOR 0
LOCATE 0,18
'------
IF HULLHD==0 THEN GOSUB @COLSETUS

GOSUB @ZAHHSET

IF SETP==1 THEN MX=MX0:MY=MY0:SPCLR 1
IF SETL==1 THEN L=S(0)

GOSUB @DATAWRITE
GOSUB @PNLWRITE

GOTO @LOOP
'───────────────────────────
@COLSETUS 'イッハ゜ンテキナイロセット

COLSET "GRP",101,"0088FF"
    FOR I=1 TO 50
    A$=HEX$(I,2)+HEX$(I*5,2)+HEX$(I*2,2)
    COLSET "GRP",I,A$
    NEXT

'1-4:フ゛ロック 5:ソラ 6:スナ 7:ウミ

CO1=15:CO2=20  '<<
CO3=50:CO4=30  '<<
CO5=101:CO6=77 '<<
CO7=242:CO8=251'<<

RETURN
'───────────────────────────
@ZAHHSET
'---ヘンスウセツメイ----
'(CX,CY):ショウシツテン
'(X1,Y1):サ゛ヒョウ  
'L:1フ゛ロックノハハ゛   
'(MX,MY):シ゛フ゛ンイチ
'WO:シカイノオクユキ    
'W :シカイノハハ゛     
'---------------
MX0=MX:MY0=MY   
CX=128:CY=80 '<<
L=80         '<<
MX=8:MY=10   '<<
WO=4:W=7     '<<

RETURN
'───────────────────────────
@DATAWRITE
'───テ゛-タセイセイ────
'L(N),X(N)テ゛オクユキ
'ニヨルヘンケイヲオコナイマス。
'---------------
RESTORE @DATA_Y
    FOR N=1 TO 10
    READ Y(N)
    L(N)=(L*(Y(N)-CY)/(CY-Y(1)))*-1
    X(N)= L*(Y(N)-CY)/(2*(CY-Y(1)))+CX
    NEXT
'---ショキヒ゛ョウカ゛---
WAIT 1
B=0
GPAGE 0,3,0
GCLS:CLS
LOCATE 12,12
?"●WAIT..."

CNT=MAINCNTL
GOSUB @GRPWRITE
IF HIPER==1 THEN WOMAX=WOD-2 ELSE WOMAX=7
IF FRAME==1 THEN WOMAX=WOD-2 

CLS
BGMPLAY "T60:0@74V70<[CGEF2BE2]:1V60@71[EDCA]:2@128V100[C16C16R16C16RER]
RETURN
'───────────────────────────
@PNLWRITE 'シタカ゛メンノセイサク
COLOR 0
PNLSTR 15,0,"MAP"
COLOR 13:PNLSTR 0,0,"┿":COLOR 0
FOR I=1 TO 12
PNLSTR 9,I,"и             з"
NEXT
COLOR 10
PNLSTR 16,I-2,"●"
PNLSTR 15,I-1,"YOU"
COLOR 0
PNLSTR 0,I  ,"жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж"
PNLSTR 6,I+1,"АкХ:サユウノシカイノハハ゛ヲカエル
PNLSTR 6,I+2,"ФкБ:ミエルオクユキヲ カエル
PNLSTR 6,I+3,"  П:ヘイコウイト゛ウ
PNLSTR 6,I+4,"Ккн:BGMヲ ケスкEND
COLOR 7
PNLSTR 1,I+6,"*ミエルオクユキカ゛オオキスキ゛ルトハ゛ク゛カ゛ハッセイシマ
PNLSTR 1,I+7," ス。コウソクヒ゛ョウカ゛モ-ト゛テ゛ハ゛ク゛ヲヘラセマス。
PNLSTR 1,I+8,"*シカイソウサノシッハ゜イテ゛ウミニオチタリ、ハ゛ク゛マッ"
PNLSTR 1,I+9," フ゜カ゛ヨミコマレル コトカ゛アルノテ゛コ゛チュウイヲ!"
BGFILL 1,10,1,22,12,610,12,0,0
COLOR 0

'---アニメモトケッテイ---
IF PERSON ==1 THEN SP_U=0:SP_D=8:SP_R=16:SP_C=0:SP_CO=2
IF PERSON ==2 THEN SP_U=76:SP_D=68:SP_R=72:SP_C=32:SP_CO=4

IF PERSON>=1 THEN SPOFS 0,112,110+SP_C

SPSET 3,127,0,0,0,0
SPHOME 3,8,8
SPOFS 3,235,20

RETURN
'───────────────────────────
@LOOP
VSYNC 1:B=0
IF OPPATARN==1 THEN GOSUB @BTCHK2 ELSE GOSUB @BTCHK
GOSUB @CSRCULC
IF PERSON >=1 THEN GOSUB @SPOFS
IF TCHTIME==1 THEN GOSUB @END
BT1=0:BT2=0
IF B>0 THEN CNT=MAINCNTL:GOSUB @GRPCHK
GOTO @LOOP
'───────────────────────────
@END
IF TCHY<8 THEN BGMSTOP :END
RETURN
'---------------------------
@BTCHK 'ホ゛タンサホ゜-ト
B=BUTTON(1):CLK=0
IF B==1 THEN MY=MY-1:
IF B==2 THEN MY=MY+1:
IF B==4 THEN MX=MX-1:
IF B==8 THEN MX=MX+1:
IF B==128 THEN BEEP 3:W=W-2:CLK=1
IF B==16  THEN BEEP 3:W=W+2:CLK=1
IF B==32  THEN BEEP 4:WO=WO-1:CLK=1
IF B==64  THEN BEEP 4:WO=WO+1:CLK=1
IF B==256 THEN BGMSTOP:BEEP 4:RETURN
IF B==512 THEN BGMSTOP:BEEP 4:END

IF MY<WO THEN MY=WO:BEEP 1
IF MX<FLOOR(W/2)+1 THEN MX=FLOOR(W/2)+1:BEEP 1
IF MY>64 THEN MY=64:BEEP 1
IF MX>64 THEN MX=64:BEEP 1
IF W>13 THEN W=13:  BEEP 1
IF W<3  THEN W=3:   BEEP 1
IF WO<2 THEN WO=2
IF WO>WOMAX THEN WO=WOMAX
RETURN
'---------------------------
@BTCHK2 'ホ゛タンサホ゜-ト2
B=BUTTON(1):CLK=0
IF B==1 THEN GOSUB @MOCHANGE
IF B==2 THEN GOSUB @MOCHANGE2
IF B==4 THEN MA=MA-1:
IF B==8 THEN MA=MA+1:
IF B==128 THEN BEEP 3:W=W-2:CLK=1
IF B==16  THEN BEEP 3:W=W+2:CLK=1
IF B==32  THEN BEEP 4:WO=WO-1:CLK=1
IF B==64  THEN BEEP 4:WO=WO+1:CLK=1
IF B==256 THEN BGMSTOP:BEEP 4:RETURN
IF B==512 THEN BGMSTOP:BEEP 4:END

IF MA>3 THEN MA=0
IF MA<0 THEN MA=3
MYANGLE=MA

IF MY<WO THEN MY=WO:BEEP 1
IF MX<FLOOR(W/2)+1 THEN MX=FLOOR(W/2)+1:BEEP 1
IF MY>64 THEN MY=64:BEEP 1
IF MX>64 THEN MX=64:BEEP 1
IF W>13 THEN W=13:  BEEP 1
IF W<3  THEN W=3:   BEEP 1
IF WO<2 THEN WO=2
IF WO>WOMAX THEN WO=WOMAX
RETURN
'---------------------------
@MOCHANGE 'シタウケ

IF MYANGLE==0 THEN MY=MY-1
IF MYANGLE==2 THEN MY=MY+1
IF MYANGLE==3 THEN MX=MX-1
IF MYANGLE==1 THEN MX=MX+1

RETURN
'---------------------------
@MOCHANGE2 'シタウケ

IF MYANGLE==0 THEN MY=MY+1
IF MYANGLE==2 THEN MY=MY-1
IF MYANGLE==3 THEN MX=MX+1
IF MYANGLE==1 THEN MX=MX-1

RETURN
'---------------------------
@SPOFS 'スフ゜ライトノイト゛ウ
IF B==1 THEN SPCHR 0,SP_U:SPANIM 0,4,8
IF B==2 THEN SPCHR 0,SP_D:SPANIM 0,4,8
IF B==4 THEN SPCHR 0,SP_R,SP_CO,0,0,1:SPANIM 0,4,8
IF B==8 THEN SPCHR 0,SP_R,SP_CO,1,0,1:SPANIM 0,4,8

IF CNT>0 THEN SPANIM 0,1,10
IF OPPATARN==1 THEN GOSUB @SPOFS2

CNT=0
RETURN
'------------
@SPOFS2 'シタウケ
IF CNT>0 THEN SPANIM 0,1,10 ELSE RETURN
IF BT1==1 THEN SPCHR 0,SP_U,SP_CO,1,0,1
IF BT1==2 THEN SPCHR 0,SP_D,SP_CO,1,0,1
RETURN
'---------------------------
@GRPCHK 'カヘ゛メリコミホ゛ウシ    
        'I:ヘンスウノ コ゛ミハ゛コ 
BGREAD(0,16,10),CU,I,I,I
BGREAD(0,16,12),CD,I,I,I
BGREAD(0,15,11),CL,I,I,I
BGREAD(0,17,11),CR,I,I,I

'トクシュナユカヲショリ
IF CU==6  THEN CU=32
IF CD==6  THEN CD=32
IF CL==6  THEN CL=32
IF CR==6  THEN CR=32
IF CU==590THEN CU=32
IF CD==590THEN CD=32
IF CL==590THEN CL=32
IF CR==590THEN CR=32

IF B==1 THEN GOSUB @GC_U:BT1=1:RETURN
IF B==2 THEN GOSUB @GC_D:BT2=1:RETURN
IF B==4 THEN GOSUB @GC_L:BT1=1:RETURN
IF B==8 THEN GOSUB @GC_R:BT1=1:RETURN

GOSUB @GRPWRITE
RETURN

@GC_U '---ハンテイシタウケ---
IF OPPATARN==1 THEN GOSUB @GC_U2:RETURN
IF CU!=32 THEN BEEP 1:MY=MY+1:RETURN
BEEP :GOSUB @GRPWRITE:RETURN
@GC_D '---ハンテイシタウケ---
IF OPPATARN==1 THEN GOSUB @GC_D2:RETURN
IF CD!=32 THEN BEEP 1:MY=MY-1:RETURN
BEEP :GOSUB @GRPWRITE:RETURN
@GC_L '---ハンテイシタウケ---
SPANGLE 3,MYANGLE*90,30,-1
IF OPPATARN==1 THEN BEEP :GOSUB @GRPWRITE:RETURN
IF CL!=32 THEN BEEP 1:MX=MX+1:RETURN
BEEP :GOSUB @GRPWRITE:RETURN
@GC_R '---ハンテイシタウケ---
SPANGLE 3,MYANGLE*90,30,1
IF OPPATARN==1 THEN BEEP :GOSUB @GRPWRITE:RETURN
IF CR!=32 THEN BEEP 1:MX=MX-1:RETURN
BEEP :GOSUB @GRPWRITE:RETURN
@GC_U2 '--ハンテイシタウケ---
IF CU==32 THEN BEEP :GOSUB @GRPWRITE:RETURN
BEEP 1
IF MYANGLE==0 THEN MY=MY+1
IF MYANGLE==1 THEN MX=MX-1
IF MYANGLE==2 THEN MY=MY-1
IF MYANGLE==3 THEN MX=MX+1
RETURN
@GC_D2 '--ハンテイシタウケ---
IF CD==32 THEN BEEP :GOSUB @GRPWRITE:RETURN
BEEP 1
IF MYANGLE==0 THEN MY=MY-1
IF MYANGLE==1 THEN MX=MX+1
IF MYANGLE==2 THEN MY=MY+1
IF MYANGLE==3 THEN MX=MX-1
RETURN
'---------------------------
@CSRCULC 'ケイキルイ
LOCATE 0,0:?" (";MX;",";MY;")   "
LOCATE 0,1:?" ├─┼─┼─┼─┼─┤W:";W;"  "
LOCATE 0,2:?" ├────┤     O:";WO;"  "
LOCATE 0,3:?" ";FPS;"フレ-ム/1ヒ゛ョウカ゛   "
LOCATE W-2,1:?"●"
LOCATE WO-1,2:?"●"
LOCATE 25,2:?"ムキ:";
COLOR 1
LOCATE 29,1:?"U";
LOCATE 28,2:?"L R";
LOCATE 29,3:?"D";
COLOR 0
IF OPPATARN==1 THEN GOSUB @CSRCULC2
RETURN
'-------
@CSRCULC2 'ケイキルイシタウケ

RETURN
'───────────────────────────
@GRPWRITE
IF CLK==1 THEN BGCLR 0
IF HULLHD==1 THEN CO5=101:CO2=11
'--タイキヨウク゛ラフィックヲカキコム--
GPAGE 0
GCOPY 3,0,0,255,191,0,0,0
GPAGE 0,3,0 '╂┿
'------ソラノヒ゛ョウカ゛------
IF HULLHD==0 THEN GFILL 0,0,255,191-CY,CO5:GFILL 0,191-CY,255,191,CO2 
IF HULLHD==1 THEN GOSUB @SKY_EL
'---------------------
LOCATE 0,0:A=0:
RESTORE @DATA_C

'カイテンショリ
ON MYANGLE GOSUB @G_SPIN0,@G_SPIN1,@G_SPIN2,@G_SPIN3
GOSUB @G_WRITEPRE:RETURN
'───────────────────────────
@SQWRITE
'─チョウテンエンサ゛ン─
'    E┌─┐F   
'    к│к│    
'  A┌─┐B┘    
'   │G│к H   
'  C└─┘D     
'────────────
HD=HULLHD
IF HD==1 THEN CO1=0+Y1:CO2=WOD+Y1:CO3=WOD*2+Y1:CO4=WOD*3+Y1:CO6=WOD*5+Y1:CO7=WOD*6+Y1:CO8=WOD*7+Y1
'----MAP-----
IF H==0 THEN BGA=32:C=8
IF H>=1 THEN BGA=57:C=8
IF H>=3 THEN BGA=56:C=8
IF H>=5 THEN BGA=13:C=8
IF A$=="╂" THEN BGA=6  :C=8
IF A$=="┿" THEN BGA=320:C=5
IF A$=="□" THEN BGA=590:C=11
BGPUT 0,16+X1,12-Y1,BGA,C,0,0
IF LAST==1 THEN RETURN
'----↑フルHD---
C1=X(Y1)+X1*L(Y1) :C2=Y(Y1)
D1=C1+L(Y1)-1     :D2=C2
A1=C1             :A2=C2+H*L(Y1)
B1=D1             :B2=A2
G1=X(Y1+1)+X1*L(Y1+1):G2=Y(Y1+1)
H1=G1+L(Y1+1)-1   :H2=G2
E1=G1             :E2=G2+H*L(Y1+1)
F1=H1             :F2=E2
'---------------------------
'サ゛ヒョウキ゛ャクテン-
A2=191-A2:B2=191-B2
C2=191-C2:D2=191-D2
E2=191-E2:F2=191-F2
G2=191-G2:H2=191-H2
'---トクシュヘイメンヒ゛ョウカ゛---
IF A$=="┿" THEN CO=CO7:GOSUB @PT_7:RETURN
IF A$=="╂" THEN CO=CO6:GOSUB @PT_7:RETURN
IF A$=="□" THEN CO=CO8:GOSUB @PT_7:RETURN
IF H==0 THEN RETURN 'ヘイメンムシ
'-イロヌリシ゛ュンヒ゛-
GPAGE 1
GOSUB @GPATARN
'---セイショコヒ゜-トクリア---
GPAGE 0
GCOPY 1,0,0,255,191,0,0,0
GPAGE 1
GCLS:RETURN
'───────────────────────────
'----イロヌリハ゛アイワケ----
'   1□┰  5□  2┝□   
'                  
'   3□┸  6┿  4┥□   
'------------------
@GPATARN
R=0:AR=0
IF HIPER==1 THEN GOSUB @PT_0
IF A1< E1 THEN P=0
IF A1>=E1 THEN P=1
IF A2< E2 THEN Q=0
IF A2>=E2 THEN Q=1
IF E1<CX THEN R=R+1
IF B1>CX THEN R=R+1
A=P+Q*2           'イッハ゜ン
IF AR==1 THEN A=4 'カ゛イサン
ON A GOSUB @PT_1,@PT_2,@PT_3,@PT_4,@PT_5
RETURN
'------------------
@PT_0 'オクスキ゛ルオフ゛シ゛ェクトハンテイ
IF Y1>=HIPERMIN THEN AR=1
RETURN
'------------------
@PT_1 '□┰
IF R==2 THEN GOSUB @PT_5:RETURN
GOSUB @MG
GOSUB @FW
RETURN
'------------------
@PT_2 '┝□
IF R==2 THEN GOSUB @PT_5:RETURN
GOSUB @HD
GOSUB @FW
RETURN
'------------------
@PT_3 '□┸
IF R==2 THEN GOSUB @PT_6:RETURN
GOSUB @UE
GOSUB @MG
GOSUB @FW
RETURN
'------------------
@PT_4 '┥□
IF R==2 THEN GOSUB @PT_6:RETURN
GOSUB @HD
GOSUB @UE
GOSUB @FW
RETURN
'------------------
@PT_5 '□
GOSUB @FW
RETURN
'------------------
@PT_6 '┿
GOSUB @UE
GOSUB @FW
RETURN
'------------------
@PT_7 '─
GPAGE 1
GOSUB @DN
GPAGE 0
GCOPY 1,0,0,255,191,0,0,0
GPAGE 1:GCLS
RETURN
'----ヒ゛ョウカ゛シタウケ----
@MG  'ミキ゛カ゛ワ
GLINE F1,F2,B1,B2,CO1
GLINE D1,D2,H1,H2,CO1
GLINE H1,H2,F1,F2,CO1
GLINE B1,B2,D1,D2,CO1
IF FRAME==0 THEN GOSUB @N_M0
RETURN
'-----------
@UE  'ウエ
GLINE A1,A2,B1,B2,CO2
GLINE B1,B2,F1,F2,CO2
GLINE F1,F2,E1,E2,CO2
GLINE E1,E2,A1,A2,CO2
IF FRAME==0 THEN GOSUB @N_U0
RETURN
'-----------
@HD  'ヒタ゛リ
GLINE E1,E2,A1,A2,CO3
GLINE A1,A2,C1,C2,CO3
GLINE C1,C2,G1,G2,CO3
GLINE G1,G2,E1,E2,CO3
IF FRAME==0 THEN GOSUB @N_H0
RETURN
'-----------
@FW  'マエ
GBOX A1,A2,D1,D2,CO4
IF FRAME==0 THEN GFILL A1,A2,D1,D2,CO4
RETURN
'-----------
@DN  'シタ(トクシュ)
IF Y1>9 THEN GLINE C1,C2,D1,D2,CO:RETURN
GLINE C1,C2,D1,D2,CO
GLINE D1,D2,H1,H2,CO
GLINE H1,H2,G1,G2,CO
GLINE G1,G2,C1,C2,CO
IF D2-H2<2 THEN RETURN
IF FRAME==0 THEN GPAINT (H1+G1)/2,H2+1,CO
RETURN
'-----------
@N_U0 'ウエノシタウケ 
IF E2>A2 THEN GPAINT (E1+F1)/2,E2-1,CO2
IF E2<A2 THEN GPAINT (E1+F1)/2,E2+1,CO2
RETURN
@N_M0 'ミキ゛ノシタウケ
IF F1<B1 THEN GPAINT F1+1,(H2+F2)/2,CO1
IF F1>B1 THEN GPAINT F1-1,(H2+F2)/2,CO1
RETURN
@N_H0 'ヒタ゛リノシタウケ
IF E1<A1 THEN GPAINT E1+1,(G2+E2)/2,CO3
IF E1>A1 THEN GPAINT E1-1,(G2+E2)/2,CO3
RETURN
'───────────────────────────
@COLSETHD 'コウカ゛シツカ゛メンカラ-
'-オテンキニシタカ゛ッテ ソラヲケッテイ---
' <ウェサ゛-ナンハ゛->
IF WEATHNO==0 THEN C5R=0:C5G=136:C5B=255
IF WEATHNO==1 THEN C5R=0:C5G=255:C5B=255
IF WEATHNO==2 THEN C5R=150:C5G=150:C5B=150
IF WEATHNO==3 THEN C5R=255:C5G=255:C5B=255
IF WEATHNO==4 THEN C5R=255:C5G=80:C5B=60
IF WEATHNO==5 THEN C5R=0:C5G=0:C5B=150
IF WEATHNO==6 THEN C5R=0:C5G=0:C5B=0
IF WEATHNO==7 THEN C5R=200:C5G=200:C5B=50

'(フ゜レヒ゛ュ-)
IF TEST==1 THEN COLSET "GRP",102,HEX$(C5R,2)+HEX$(C5G,2)+HEX$(C5B,2):RETURN
'---イロセッテイ(10シンスウ)---

C1R=30 :C1G=75 :C1B=30 
C2R=60 :C2G=100:C2B=60 
C3R=100:C3G=250:C3B=100
C4R=60 :C4G=150:C4B=60 
C6R=230:C6G=230:C6B=80
C7R=0  :C7G=20 :C7B=230
C8R=100:C8G=100:C8B=100

SC=1.0 'トウカリツ(0<S<=1)
'------イロサクセイ--------
FOR I=1 TO WOD
R1=C1R+((C5R-C1R)/WOD)*I*SC
G1=C1G+((C5G-C1G)/WOD)*I*SC
B1=C1B+((C5B-C1B)/WOD)*I*SC
R2=C2R+((C5R-C2R)/WOD)*I*SC
G2=C2G+((C5G-C2G)/WOD)*I*SC
B2=C2B+((C5B-C2B)/WOD)*I*SC
R3=C3R+((C5R-C3R)/WOD)*I*SC
G3=C3G+((C5G-C3G)/WOD)*I*SC
B3=C3B+((C5B-C3B)/WOD)*I*SC
R4=C4R+((C5R-C4R)/WOD)*I*SC
G4=C4G+((C5G-C4G)/WOD)*I*SC
B4=C4B+((C5B-C4B)/WOD)*I*SC
R6=C6R+((C5R-C6R)/WOD)*I*SC
G6=C6G+((C5G-C6G)/WOD)*I*SC
B6=C6B+((C5B-C6B)/WOD)*I*SC
R7=C7R+((C5R-C7R)/WOD)*I*SC
G7=C7G+((C5G-C7G)/WOD)*I*SC
B7=C7B+((C5B-C7B)/WOD)*I*SC
R8=C8R+((C5R-C8R)/WOD)*I*SC
G8=C8G+((C5G-C8G)/WOD)*I*SC
B8=C8B+((C5B-C8B)/WOD)*I*SC
COLSET "GRP",WOD*0+I,HEX$(R1,2)+HEX$(G1,2)+HEX$(B1,2)
COLSET "GRP",WOD*1+I,HEX$(R2,2)+HEX$(G2,2)+HEX$(B2,2)
COLSET "GRP",WOD*2+I,HEX$(R3,2)+HEX$(G3,2)+HEX$(B3,2)
COLSET "GRP",WOD*3+I,HEX$(R4,2)+HEX$(G4,2)+HEX$(B4,2)
COLSET "GRP",WOD*5+I,HEX$(R6,2)+HEX$(G6,2)+HEX$(B6,2)
COLSET "GRP",WOD*6+I,HEX$(R7,2)+HEX$(G7,2)+HEX$(B7,2)
COLSET "GRP",WOD*7+I,HEX$(R8,2)+HEX$(G8,2)+HEX$(B8,2)
NEXT
RETURN
'---------------------------
@SKY_EL 'ソラ HD
GFILL 0,0,255,191,CO5
FOR I=WOD-2 TO 1 STEP -1
GFILL 0,191-Y(I),255,191,WOD+I
NEXT
RETURN
'---------------------------
@CREDIT 'クレシ゛ット
BGMSTOP 
BEEP 11:LOCATE 0,23:COLOR 9
SPCHR 2,92,4,1,0,0:SPANIM 2,1,10:WAIT 10
SPOFS 2,128,-16,15
RESTORE @DATA_CRE
FOR I=0 TO 22
VSYNC 2
READ A$:? A$
NEXT
FOR I=0 TO 11
VSYNC 2
READ A$:PNLSTR 0,I,A$
NEXT
BGMPLAY ":0@11T240[E2EDE2RRDEDC>B2RR]:1@12[DECD]:2@128[CRRRDRRR]"
@LOOP02
IF BUTTON(1)==32 THEN BEEP 4:WAIT 2:CLS:GOTO @TITLEWRITE
GOTO @LOOP02
'───────────────────────────
'テ゛-タケイトウ
'───────────────────────────
@DATA_Y 'スウレツ
DATA 0,42,53,58,61,63,64,65,65,66,67,68
'ббб 1-2 -3 -4 -5 -6 -7 -8 -9 -10
'-------
@DATA_TY 'タイトルノヤマ
DATA " ┝┰  ┝┰┝┰    ┝┰       ┝┰  ┝┰┝┰  "
DATA "┝┿┿┰┝┿┿┿┿┰  ┝┿┿┰┝┰   ┝┿┿┰┝┿┿┿┿┰ "
DATA "┿┿┿┿┿┿┿┿┿┿┰┝┿┿┿┿┿┿┰ ┝┿┿┿┿┿┿┿┿┿┿┰"
DATA "╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂"
'-------
@DATA_C 'マッフ゜テ゛-タ
'─────────────────────────────────────────────────────────────────────────
'      [ ココヲイシ゛ルコトテ゛ マッフ゜ヲヘンコウスルコトカ゛テ゛キマス! ]
'      0-9:チケイ  ┿ウミ  ╂スナハマ  □ハシ                                           
'          СТТТТСТ10ТСТТТТСТ20ТСТТТТСТ30ТСТТТТСТ40ТСТТТТСТ50ТСТТТТСТ60ТСТ│ヘンコウ↓
'────────────────────────────────────────────────────────────────────────┤フカノウ!
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿11┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿1┿┿┿1┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿1221┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿11┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿121┿121┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿123321┿┿┿┿┿┿1┿┿┿┿┿┿┿12211╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿1┿┿┿1┿┿┿┿┿┿┿┿┿╂╂╂╂╂┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿1221┿┿┿┿┿┿212┿┿┿┿┿1211╂┿┿┿┿┿┿┿┿1┿┿┿┿┿┿□□┿┿┿┿┿┿┿┿┿╂╂╂╂╂00╂┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿11╂┿┿┿┿╂12321╂┿┿┿11╂┿┿┿┿┿┿┿┿┿121┿┿┿┿┿□□4┿□┿4□┿□4321100╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿1╂╂┿╂╂1234321╂╂╂11┿┿┿┿┿╂╂╂╂┿01□┿┿□┿┿□□3□□□4□□□320000121┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿121╂┿╂0012321000121╂╂╂╂╂╂000□00□□□□□□□13□□□□□□□31011121┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿11╂0□00001210011221110000001┿10□□□□□□123□□□43334000001┿┿11╂┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿1210┿┿┿000100122111000000012┿21000╂┿┿1243□3421001210╂┿┿1210╂┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿10000┿┿00000011000000000123┿┿2100╂┿┿12210121000010╂┿┿12210╂┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿╂00000┿┿00000000000110000122┿10000000110001000000╂┿┿┿111001┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿╂00000□01000000001221100011┿00100000000000000100╂┿┿┿╂00011┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿╂0000┿12100011112343210000□01311132100000001210╂┿┿┿╂□╂01┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿╂1000┿┿1001222221234321000┿134323430010000123210╂┿┿┿□┿╂┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿343334000┿╂012344323455432100┿222222222╂2200001210044┿┿□┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿31┿┿13000□□12223321234543200┿┿╂╂1╂╂╂╂╂1╂╂╂20000100234┿┿□┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿3□□□□3000╂┿╂111221012343210┿┿12╂21╂12╂111╂101100012344┿□┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿╂3□□□□30000┿┿┿┿┿11┿□□□123210□╂╂1╂1╂╂╂1╂╂╂╂╂212210001233╂□╂4┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿╂4□433400000111┿┿┿┿□┿┿┿12100┿1╂╂╂╂╂2╂1╂121╂223432100122000╂┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿╂1□2100000000121┿┿┿□┿┿110000┿1333333╂21╂21╂234543210001000╂┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿╂╂1000010000000100000000000┿┿111╂╂╂╂╂╂╂1╂╂34565432100000╂┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿╂00030320000000000000000000┿┿┿13□333333□33345654321001╂┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿╂001012100000000000000110000┿┿┿□╂╂┿┿┿┿□┿12345432100121┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿╂00303100001000001000122110000┿□┿┿┿┿┿┿□┿┿12343210012321┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿□□□□000000011210001210122320000000┿┿┿┿┿┿0┿┿┿12321001234321┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿╂00000┿┿┿10000011001243╂340000000┿┿0021┿┿121000012321┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿□┿┿┿□┿┿00000000121╂123┿□┿311110000000100001000000121┿┿┿╂0┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿╂╂110000001110012╂╂╂333□□□34332100000000000000001001┿┿┿╂01┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿╂╂1221110012321123╂23344□□□4533322100000000000001210□□□□□01┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿╂╂12343321133433223╂3233234565432210000001101101011╂╂┿┿┿┿┿╂┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿╂1╂34454432334554333□3122╂2345432110000001221221211╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿╂12╂45544543445665432□┿┿11┿123432210000001233232221╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿╂12╂╂55433454456654321□┿┿┿┿┿┿12322100100002344321110╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿12╂╂55432344567654321┿□┿┿┿┿┿┿┿122100121110123221□□□□□□┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿12╂4543212345654321┿┿┿□□□□□□□□╂╂╂╂023211┿□┿┿┿┿┿┿□┿┿┿┿3┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿╂1╂343211123454321┿┿┿┿┿┿┿□┿┿┿┿┿┿┿□┿┿┿┿┿┿┿000000□□╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿╂1╂232100112343210╂┿┿┿┿┿┿□┿┿┿╂121╂╂╂11221100000□□╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿╂╂1210012212321000╂╂╂╂┿┿□┿┿╂╂12210000110000011□□□□□□□□□□□╂┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿╂╂100001101110001100╂╂╂╂╂╂╂12321100000000112211□□□□□□□□□╂┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿╂╂00000000000012321001222123432100022001123321╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿╂0000┿┿001122321001211╂╂╂╂╂╂╂╂0002200011221╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿11000┿┿001223321000110╂╂123432100000000011╂╂╂┿┿┿┿┿5┿┿┿5┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿122100000001122100000000123454321000╂╂╂╂╂╂╂╂┿┿┿┿┿┿┿╂┿┿┿╂┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿122110000000110000000012345532100╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿111210000000000000000012344110╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿123210001110011100╂╂╂╂╂╂0121╂╂╂┿┿┿┿┿┿┿┿┿┿╂╂╂╂╂╂□□┿┿┿□□┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿7┿12732100123211211╂╂┿┿┿┿┿╂╂□╂┿┿┿┿┿┿┿┿┿┿┿┿┿╂000002□□□□□□□╂┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿54444451┿□┿112322321╂┿┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿┿┿╂100002322□□□22╂┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿51□1□15000┿┿┿┿┿┿1211╂╂┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿┿╂1210023433□□□33╂┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿53□□□350001╂╂╂╂┿┿┿┿11╂┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿╂12321002322□□□22╂┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿5┿┿□┿┿500121000╂╂╂┿┿┿╂┿┿┿┿┿┿┿□┿┿┿┿411┿┿┿┿123432101211□□□11╂┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿5┿┿□┿┿500010000100╂╂┿┿┿┿┿┿┿┿9□9┿┿┿┿┿┿┿┿┿┿╂1232100010000000╂┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿543╂3450000010000000╂╂┿┿┿┿┿┿┿□┿┿┿3┿┿┿3┿┿┿┿╂000000000000001╂┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿╂00000000012112100000□□□□□□□□□□□□□□□□□□□□□□000100000000121┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿╂□□□□□□□□□322321000╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿╂╂╂121╂╂□╂╂╂╂╂1┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿□┿┿┿┿┿□□□╂╂╂22210╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿1┿7┿□┿7┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿1┿□┿┿┿┿┿□□□3╂╂321╂╂┿┿┿┿┿┿┿┿╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿544□445┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿121╂┿┿┿┿┿┿┿┿╂╂╂╂┿┿┿┿┿┿┿┿┿┿┿12╂21┿┿┿┿414┿┿┿┿┿┿┿┿┿4┿┿□┿┿4┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿121╂╂1┿┿┿┿┿┿┿┿┿╂╂╂┿┿┿┿┿┿┿┿┿123╂321┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿4□□□□□4┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿1╂╂121┿┿┿┿┿┿┿┿┿╂╂╂┿┿□□□╂╂1232╂21╂┿┿1┿┿┿1┿┿┿┿┿┿┿┿4┿┿□┿┿4┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿╂╂1┿┿┿┿┿┿┿┿┿┿╂╂╂╂□□┿┿┿╂╂121╂╂╂╂□□□□□□□┿┿┿┿┿┿┿┿521╂125┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿╂╂╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿2┿╂╂╂┿2┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿1┿┿┿┿┿1┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
'ヘンコウフカノウ
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
'─────────────────────────────────────────────────────────────────────────

@DATA_CRE 'クレシ゛ットテ゛-タ
DATA " ──────────────────────────────"
DATA " ┿╂ ハ゛- シ゛ョ ン リ レ キ (Бテ゛モト゛ル)╂┿"
DATA " ──────────────────────────────"
DATA " Version УDetail               "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-0    Уチョクホウタイヲカコウトスルカ゛シッハ゜イ"
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-1    Уチョクホウタイカ゛カケルヨウニナル    "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-3    Уフクスウクミアワセ、チケイサクセイカノウニ"
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-4    Уシュシ゛ンコウノイト゛ウカ゛カノウニナル "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-5-1.0Уタイトルカ゛メンカ゛シ゛ッソウサレル   "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-5-2.0Уヒ゛ョウカ゛ソクト゛カ゛3ハ゛イニアッフ゜"
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-6    УBGM、セッテイモ-ト゛ヲシ゛ッソウ   "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-7    Уカ゛メンニマッフ゜トハンテイヲシ゛ッソウ "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-8    Уオフ゛シ゛ェクトヲオオハハ゛カクチョウ  "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"

DATA ""
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-9-1.0Уタイトルメニュ-トヘンシュウヲツカイヤスク"
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-9-2.0Уソラノイロヲヘンコウスルキノウヲツイカ  "
DATA " ┿┿NOW┿┿┿СТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-9-4.0Уイト゛ウホウシキカ゛エラヘ゛ルヨウニナル "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA "         У"
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA "         У  (Бテ゛モト゛ル)"
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA ""
DATA ""
DATA ""
DATA ""

@SETEXA 'セツメイ
DATA "フ゛ロックノオオキサヲ カエルコトカ゛テ゛キマス。"
DATA ""
DATA "ONニスルト、ヨリリアルナケシキニテ゛キマス。"
DATA ""
DATA "トオクノモノヲカクトキ、ハ゛ク゛ヲヘラシマス。"
DATA ""
DATA "カ゛メンニフ゜レイヤ-キャラヲハイチシマス。"
DATA "TYPE1:センヨウキャラкTYPE2:フ゜リセット"
DATA "ソラノイロヲ カエルコトカ゛テ゛キマス"
DATA "(コウカ゛シツモ-ト゛ヲONニシナイト ツカエマセン)"
DATA "ワイヤ-フレ-ムッホ゜イカンシ゛ニヒ゛ョウカ゛シマス。"
DATA "(コウソクヒ゛ョウカ゛ヲONニスルトシヨウテ゛キマセン。)"
DATA "カンコウヲ ハシ゛メマス。"
DATA "イッテラッシャイ!"
DATA "チス゛シ゛ョウノ スキナテンカラシュッハ゜ツテ゛キマス。"
DATA "サ゛フ゛ンテ゛マワリタイ ヒトニハ オススメ シマセン。"
DATA ""
DATA ""

@SKYCOLOR 'ソラノイロ
DATA "0","アサ"
DATA "0","カイセイ"
DATA "0","クモリ"
DATA "0","キリ"
DATA "0","ユウカ゛タ"
DATA "0","ヨル"
DATA "0","ヤミ"
DATA "0","コウサ"

@DATA_OPE 'オヘ゜レ-ションアイコン
DATA "● 1フ゛ロックアタリノ オオキサ :
DATA "● コウカ゛シツヒ゛ョウカ゛ノシヨウ:
DATA "● コウソクヒ゛ョウカ゛ノサイヨウ :
DATA "● キャラクタ-ノ ハイチ     :
DATA "● オ テ ン キ         :
DATA "● ワイヤ-フレ-ムノ サイヨウ  :
DATA "● コノセッテイテ゛カンコウヲハシ゛メル ●
DATA "●スタ-トイチヲキメテカンコウヲハシ゛メル●
DATA ""
DATA ""

@DATA_OPEP 'オヘ゜レ-ションアイコン
DATA "┌─────────┐"
DATA "│  ↓オクヘ   │"
DATA "│  ┿      │"
DATA "│→┿┿┿←サユウヘ│"
DATA "│  ┿      │"
DATA "│  ↑テマエヘ  │"
DATA "│─────────│"
DATA "│┿ TYPE1 ┿│"
DATA "│┿カイテン ナシ┿│"
DATA "└─────────┘"
DATA "┌─────────┐"
DATA "│  ↓セ゛ンシン │"
DATA "│  ┿      │"
DATA "│→┿┿┿←カイテン│"
DATA "│  ┿      │"
DATA "│  ↑コウタイ  │"
DATA "│─────────│"
DATA "│┿ TYPE2 ┿│"
DATA "│┿カイテン アリ┿│"
DATA "└─────────┘"
'───────────────────────────
@TELEPORT
CLS:BGMSTOP:COLOR 0:A$=""
?"スタ-トスルイチヲ キメテクタ゛サイ"
BGPAGE 0:BEEP 34
BGFILL 0,0,0,32,2,709,9,0,0
RESTORE @DATA_C
FOR Y=0 TO 63
READ A$
FOR X=0 TO 63
B$=MID$(A$,X,1)
H=VAL(B$)
IF H==0 THEN BGA=32:C=8
IF H>=1 THEN BGA=57:C=8
IF H>=3 THEN BGA=56:C=8
IF H>=5 THEN BGA=13:C=8
IF B$=="╂" THEN BGA=6  :C=8
IF B$=="┿" THEN BGA=320:C=5
IF B$=="□" THEN BGA=590:C=11
BGPUT 1,X,Y,BGA,C,0,0
NEXT
NEXT
@BGSELECT
SPSET 1,68,4,0,0,2
SPHOME 1,8,8
MS=2:AX=120:AY=80
AM=8 'イト゛ウワクノ セッテイ
AXM=255-AM*8
AYM=191-AM*8
AXS=AM*8:AYS=AM*8:WAIT 30
BGMPLAY "@4:0[DEGFC2RR]:1@128[>DC<RRGFRR]:2@11>[B1<C2RR]
'───────────────────────────
@MAINLOOP
VSYNC 1
GOSUB @MYMOVE
GOSUB @OBJOFS
GOSUB @OBJCHK

GOTO @MAINLOOP
'───────────────────────────
@MYMOVE 'シ゛キノ イト゛ウ
B=BUTTON(0)
IF B AND 1 THEN AY=AY-MS
IF B AND 2 THEN AY=AY+MS
IF B AND 4 THEN AX=AX-MS
IF B AND 8 THEN AX=AX+MS
IF B == 16 THEN GOSUB @OBJCHK2
IF B == 32 THEN BEEP 4:GOSUB @TITLEWRITE

IF AY<AYS THEN AY=AY+MS:BGY=BGY-MS:BPY=BPY-MS
IF AY>AYM THEN AY=AY-MS:BGY=BGY+MS:BPY=BPY+MS
IF AX<AXS THEN AX=AX+MS:BGX=BGX-MS:BPX=BPX-MS
IF AX>AXM THEN AX=AX-MS:BGX=BGX+MS:BPX=BPX+MS

IF BGY<0   THEN BGY=0  :AY=AY-MS
IF BGY>328 THEN BGY=328:AY=AY+MS
IF BGX<0   THEN BGX=0  :AX=AX-MS
IF BGX>255 THEN BGX=255:AX=AX+MS

IF AX<0   THEN AX=0
IF AX>255 THEN AX=255
IF AY<0   THEN AY=0
IF AY>191 THEN AY=191

MX=BGX+AX:MY=BGY+AY

RETURN
'───────────────────────────
@OBJOFS 'オフ゛シ゛ェクトノイト゛ウ
BGOFS 1,BGX,BGY
SPOFS 1,AX,AY
LOCATE 0,2:?"(";FLOOR(MX/8);",";FLOOR(MY/8);")"
RETURN
'───────────────────────────
@OBJCHK 'オフ゛シ゛ェクトノサイシュウカクニン 
BGREAD(1,MX/8,MY/8),CR,I,I,I
LOCK=1:EL=0
COLOR 4:LOCATE 0,1:?" Аテ゛スタ-トテ゛キマス              ":COLOR 0

IF MX<0  THEN EL=1
IF MX>63*8 THEN EL=1
IF MY<0  THEN EL=1
IF MY>63*8 THEN EL=1

IF CR==32 THEN LOCK=0
IF CR==6  THEN LOCK=0
IF CR==590THEN LOCK=0
IF LOCK==1 THEN LOCATE 0,1:COLOR 7 :?"ソコカラスタ-トスルコトハ テ゛キマセン!":COLOR 0
IF   EL==1 THEN LOCATE 0,1:COLOR 13:?"ソコハ ケンカ゛イテ゛ス!!       ":COLOR 0
RETURN
'───────────────────────────
@OBJCHK2 'オフ゛シ゛ェクトノサイシュウカクニン 
IF EL==1 THEN LOCK=1
IF LOCK==0 THEN SETP=1:MX=FLOOR(MX/8):MY=FLOOR(MY/8):GOTO @INIT_2
BEEP 1
RETURN
'───────────────────────────
'ハ゛-シ゛ョンアッフ゜フ゜ロク゛ラム
'APPEND シタママナノハ カンヘ゛ンシテクタ゛サイ
'---------------------------
@G_SPIN0 'ウエホウコウヨミトリ
    FOR I=0 TO WO:CZ$(I)="":NEXT
    FOR I=0 TO MY-WO-1:READ A$:NEXT
    FOR I=-1 TO WO
    READ A$:CZ$(WO-I)=MID$(A$,MX-FLOOR(W/2),W)
    NEXT
RETURN
'---------------------------
@G_SPIN1 'ミキ゛ホウコウヨミコミ
    FOR I=0 TO MY-FLOOR(W/2)-1:READ A$:NEXT
    FOR I=0 TO W-1
    READ A$:CC$(I)=MID$(A$,MX-1,WO+1)
    NEXT
'---モシ゛レツハンテンタテワリショリ---
    FOR I=0 TO WO:CZ$(I)="":NEXT
    FOR I=0 TO WO
        FOR I2=0 TO W-1 STEP 1
        A$=MID$(CC$(I2),I,1)
        CZ$(I)=CZ$(I)+A$
        NEXT
    NEXT
RETURN
'---------------------------
@G_SPIN2 'シタホウコウヨミトリ
    FOR I=0 TO WO:CZ$(I)="":NEXT
    FOR I=0 TO MY-2:READ A$:NEXT
    FOR I=1 TO WO+1
    READ A$:CC$(I-1)=MID$(A$,MX-FLOOR(W/2),W)
    NEXT
I=WO
@G_S_0
 B$=CC$(I):GOSUB @LCTURN
 CZ$(I)=C$
 I=I-1
IF I>=0 THEN GOTO @G_S_0

RETURN
'---------------------------
@G_SPIN3 'ヒタ゛リホウコウヨミトリ
    FOR I=0 TO MY-FLOOR(W/2)-1:READ A$:NEXT
    FOR I=0 TO W-1
    READ A$
    IF MX-WO+1<0 THEN BEEP 30:CC$(I)="0" ELSE CC$(I)=MID$(A$,MX-WO+1,WO+1)
    NEXT
'---モシ゛レツハンテンタテワリショリ---
    FOR I=0 TO WO:CZ$(I)="":NEXT
    FOR I=0 TO WO
        FOR I2=W-1 TO 0 STEP -1
        A$=MID$(CC$(I2),I,1)
        CZ$(WO-I)=CZ$(WO-I)+A$
        NEXT
    NEXT
RETURN
'---------------------------
@LCTURN 'モシ゛レツハンテン

LCC=LEN(B$):C$=""
FOR IK=LCC TO 0 STEP -1
C$=C$+MID$(B$,IK,1)
NEXT

RETURN
'───────────────────────────
@G_WRITEPRE
ILO=0 'ヒ゛ョウカ゛カイスウ
SX=FLOOR(W/2) 'ヒ゛ョウカ゛キテン
X=SX   '    ハンエイ   │
Y=WO   '┝──────────┘
LAST=0 'サイシュウキ゛ョクヲシメス
ENDER=0
'---------------------------
@G_WRITELOOP 'GRPLOOPノタ゛イタイ
GOSUB @G_GRPDECD
GOSUB @G_DEFFUNC
IF ENDER==1 THEN RETURN
GOTO @G_WRITELOOP
'───────────────────────────
@G_GRPDECD 'カクサ゛ヒョウセイテイ
X1=X:Y1=Y

A=FLOOR(W/2)+X1
IF A<=-1 THEN RETURN
IF Y<=-1 THEN RETURN
A$=MID$(CZ$(Y1),A,1)
IF A$=="-" THEN RETURN
H=VAL(A$)

'--↓--
GOSUB @SQWRITE
'--↑--

RETURN
'---------------------------
@G_DEFFUNC 'ヘンスウヲ ソウサ

ILO=ILO+1
IF ILO%2==0 THEN S=1
IF ILO%2==1 THEN S=0

IF X==0 THEN Y=Y-1:ILO=0:X=SX*-1
IF Y==0 THEN LAST=1
IF Y<0  THEN GOSUB @G_COPYEND:RETURN

IF S==0 THEN X=X*-1     '+→-
IF S==1 THEN X=(X+1)*-1 '-→+

RETURN
'---------------------------
@G_COPYEND 'コヒ゜-シテシュウリョウ
ENDER=1
GPAGE 0,0,3:FPS=MAINCNTL-CNT
RETURN
'───────────────────────────

}}
#endregion

//こちらは''旧バージョンの物''なので、差し換えて下さる方がいると嬉しいです。
//#region(開く)
#region(旧バージョンを開く)
#basic{{
'───────────────────────────
'  ┼┼┿┿┿ ┏╋━┻ ┛○┗ ┏   ┏┏━ ┓ 
'  ││YM8  ┨ ┻ ┛┗┏┣━┛┛┛┏┣━┨  
' й││┐   ┗ ┫┻ ┫ ┗  ┠┠━┳━┃┻  
'к┌┼┼┐л  フ゜ロク゛ラムニ チュウイ!!!   
'з└└┼┘и  キワメテサ゛ツナフ゛フ゛ンヤ ムリヤリ
'лййййк  ナフ゛フ゛ンカ゛アリマス。スミマセン。
'───────────────────────────
ACLS:CLEAR:COLOR 0
PNLTYPE "OFF"
BGPAGE 1
BGFILL 1,0,0,32,23,15,1,0,0
BGFILL 1,0,13,32,23,709,8,0,0
BREPEAT 0,30,5
BREPEAT 1,30,5
BREPEAT 2,30,5
BREPEAT 3,30,5
@TITLEWRITE
BGPAGE 0:BGCLR 1:BGCLR 0:BGPAGE 1:SPCLR 0:CLS
LOCATE 0,10:COLOR 0
'------タイトル-----
?" ┰ ┝├┬┐┌─┐ サンカ゛クカンコウソフト シケンハ゛ン"
?" ┥│┸│││├─┤   VER.Beta-8-2.1   "
?"  ┴─┘└└┴─┘ DEVELOPED BY ●CRT● "
?"  Y  M  8                     "
BGMPLAY "T240:0@128[ADAD]:1V80@128[CCG]
LOCATE 8,16:?"А:カンタンモ-ト゛テ゛ハシ゛メル"
LOCATE 8,17:?"Б:セッテイコ゛ニハシ゛メル"
LOCATE 8,18:?"Ф:ヤッハ゜リ ハシ゛メナイ"
COLOR 5:A=0
@START
A=A+1:IF A>20*10 THEN A=0
VSYNC 1:B=BUTTON(1)
IF B==64 THEN BEEP 4:BGMSTOP :END
IF B==32 THEN SET=1:GOTO @INIT
IF B==16 THEN SET=0:GOTO @INIT
IF B==256 THEN GOTO @TELEPORT
IF B==1024 THEN GOTO @CREDIT
IF A%10==0 THEN RESTORE @DATA_TY:FOR I=0 TO 3:READ A$:LOCATE 10,I+4:? MID$(A$,A/10,12):NEXT
GOTO @START
'---------------
@INIT
BGPAGE 0:BGCLR 1:BGCLR 0:BGPAGE 1:SPCLR 0:CLS
LOCATE 0,18
BGMSTOP :BEEP 38

FRAME=0 '←コレヲ1ニスルト...

'---ハイレツセンケ゛ン---
WOD=13 'オクユキハハ゛タ゛ンスウケ゛ンカイ
DIM X(WOD) '{0,Y(n)}ノトキノ 
DIM Y(WOD) '1マスノナカ゛サ:L(n)
DIM L(WOD) 'Xサ゛ヒョウ  :X(n)
DIM CZ$(100)'フウケイヨミコミシテン 
'---カラ-ケッテイ-----
'     [C2]      
'      ウエ       
'ヒタ゛リ┝╂╂╂┰ ミキ゛  
'[C3]┿╂╂╂┿[C1]  
'    ┿╂╂╂┿      
'      マエ       
'     [C4]      
COLSET "GRP",101,"0088FF"
FOR I=1 TO 50:A$=HEX$(I,2)+HEX$(I*5,2)+HEX$(I*2,2):COLSET "GRP",I,A$:NEXT
'---------------
'1-4:フ゛ロック 5:ソラ 6:スナ 7:ウミ
CO1=15:CO2=20  '<<
CO3=50:CO4=30  '<<
CO5=101:CO6=77 '<<
CO7=242:CO8=251'<<
?"":?""
IF SET==1 THEN PRINT "(クウキエンキンホウカ゛サイヨウサレマス)
IF SET==1 THEN INPUT "コウカ゛シツヒ゛ョウカ゛ヲ シマスカ(YES:1)";HULLHD
IF HULLHD>1 THEN HULLHD=0
IF HULLHD==TRUE THEN GOSUB @COLSETHD
'───────────────
'---ヘンスウセツメイ----
'(CX,CY):ショウシツテン
'(X1,Y1):サ゛ヒョウ  
'L:1フ゛ロックノハハ゛   
'(MX,MY):シ゛フ゛ンイチ
'WO:シカイノオクユキ    
'W :シカイノハハ゛     
'---------------
CX=128:CY=80 '<<
L=80         '<<
IF SETP==0 THEN MX=8:MY=10
WO=4:W=7     '<<
'---------------
IF SET==1 THEN PRINT "(コノフ゜ロク゛ラムテ゛ハ 80&#12316;120ヲショウレイシマス)
IF SET==1 THEN INPUT "1フ゛ロックアタリノ オオキサハ(40&#12316;250)";L
IF SET==1 THEN PRINT "(オクノモノカ゛カ゛イサンテ゛カカレ、ハ゛ク゛カ゛ヘリマス)
IF SET==1 THEN INPUT "コウソクヒ゛ョウカ゛ヲサイヨウシマスカ(YES:1)";H
IF SET==1 THEN PRINT "(オマケヲホソ゛ンスレハ゛テ゛キマス)"
IF SET==1 THEN INPUT "ウエカ゛メンニキャラクタ-ヲオキマスカ(YES:1)";PERSON
IF PERSON==1 THEN SYSBEEP=0:LOAD"SPU0:YM_PERS",0:LOAD "COL1:0012",0:SYSBEEP=1
IF RESULT==0 THEN BEEP 4:COLOR 11:?"キャラヲ ヨミコメマセンテ゛シタ":PERSON=0:WAIT 60
IF L<40 THEN L=80
IF L>250 THEN L=250
IF PERSON==1 THEN SPSET 0,0,2,0,0,0,16,32:SPOFS 0,-40,100:SPSCALE 0,200
COLOR 0:HIPER=H
HIPERMIN=6   '<<
'HIPER:↑ヨリオクテ゛カ゛イサン
'───テ゛-タセイセイ────
'L(N),X(N)テ゛オクユキ
'ニヨルヘンケイヲオコナイマス。
'---------------
RESTORE @DATA_Y
FOR N=1 TO 10
READ Y(N)
L(N)=(L*(Y(N)-CY)/(CY-Y(1)))*-1
X(N)= L*(Y(N)-CY)/(2*(CY-Y(1)))+CX
NEXT
'---ショキヒ゛ョウカ゛---
WAIT 1:B=0:GPAGE 0,3,0:GCLS:CLS
LOCATE 12,12:?"●WAIT..."
CNT=MAINCNTL:GOSUB @GRPWRITE
IF HIPER==1 THEN WOMAX=WOD-2 ELSE WOMAX=7
CLS:BGMPLAY "T60:0@74V70<[CGEF2BE2]:1V60@71[EDCA]:2@128V100[C16C16R16C16RER]
'───────────────────────────
COLOR 0
PNLSTR 15,0,"MAP"
COLOR 13:PNLSTR 0,0,"┿":COLOR 0
FOR I=1 TO 12
PNLSTR 9,I,"и             з"
NEXT
COLOR 10
PNLSTR 16,I-2,"●"
PNLSTR 15,I-1,"YOU"
COLOR 0
PNLSTR 0,I  ,"жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж"
PNLSTR 6,I+1,"АкХ:サユウノシカイノハハ゛ヲカエル
PNLSTR 6,I+2,"ФкБ:ミエルオクユキヲ カエル
PNLSTR 6,I+3,"  П:ヘイコウイト゛ウ
PNLSTR 6,I+4,"Ккн:BGMヲ ケスкEND
COLOR 7
PNLSTR 1,I+6,"*ミエルオクユキヲミタ゛リニカエルト カナリノハ゛ク゛カ゛
PNLSTR 1,I+7," ハッセイシマス。コウソクヒ゛ョウカ゛モ-ト゛ヲツカエハ゛
PNLSTR 1,I+8," ハ゛ク゛ヲ ケイケ゛ンテ゛キマス。
PNLSTR 1,I+9,"*シカイソウサノシッハ゜イテ゛ハンテイカ゛クルウコトモ.."
BGFILL 1,10,1,22,12,610,12,0,0
COLOR 0
IF PERSON==1 THEN SPOFS 0,112,110
'---------------------------
@LOOP
VSYNC 1:B=0
GOSUB @BTCHK
GOSUB @CSRCULC
IF PERSON ==1 THEN GOSUB @SPOFS
IF TCHTIME==1 THEN GOSUB @END
IF B>0 THEN CNT=MAINCNTL:GOSUB @GRPCHK
GOTO @LOOP
'---------------------------
@END
IF TCHY<8 THEN BGMSTOP :END
RETURN
'---------------------------
@BTCHK 'ホ゛タンサホ゜-ト
B=BUTTON(1):CLK=0
IF B==1 THEN MY=MY-1:
IF B==2 THEN MY=MY+1:
IF B==4 THEN MX=MX-1:
IF B==8 THEN MX=MX+1:
IF B==128 THEN BEEP 3:W=W-2:CLK=1
IF B==16  THEN BEEP 3:W=W+2:CLK=1
IF B==32  THEN BEEP 4:WO=WO-1:CLK=1
IF B==64  THEN BEEP 4:WO=WO+1:CLK=1
IF B==256 THEN BGMSTOP:BEEP 4:RETURN
IF B==512 THEN BGMSTOP:BEEP 4:END

IF MY<WO THEN MY=WO:BEEP 1
IF MX<FLOOR(W/2)+1 THEN MX=FLOOR(W/2)+1:BEEP 1
IF MY>64 THEN MY=64:BEEP 1
IF MX>64 THEN MX=64:BEEP 1
IF W>13 THEN W=13:  BEEP 1
IF W<3  THEN W=3:   BEEP 1
IF WO<2 THEN WO=2
IF WO>WOMAX THEN WO=WOMAX
RETURN
'---------------------------
@SPOFS 'スフ゜ライトノイト゛ウ
IF B==1 THEN SPCHR 0,0:SPANIM 0,4,8
IF B==2 THEN SPCHR 0,8:SPANIM 0,4,8
IF B==4 THEN SPCHR 0,16,2,0,0,1:SPANIM 0,4,8
IF B==8 THEN SPCHR 0,16,2,1,0,1:SPANIM 0,4,8

IF CNT>0 THEN SPANIM 0,1,10
CNT=0
RETURN
'---------------------------
@GRPCHK 'カヘ゛メリコミホ゛ウシ    
        'I:ヘンスウノ コ゛ミハ゛コ 
BGREAD(0,16,10),CU,I,I,I
BGREAD(0,16,12),CD,I,I,I
BGREAD(0,15,11),CL,I,I,I
BGREAD(0,17,11),CR,I,I,I
'トクシュナユカヲショリ
IF CU==6  THEN CU=32
IF CD==6  THEN CD=32
IF CL==6  THEN CL=32
IF CR==6  THEN CR=32
IF CU==590THEN CU=32
IF CD==590THEN CD=32
IF CL==590THEN CL=32
IF CR==590THEN CR=32

IF B==1 THEN GOSUB @GC_U:RETURN
IF B==2 THEN GOSUB @GC_D:RETURN
IF B==4 THEN GOSUB @GC_L:RETURN
IF B==8 THEN GOSUB @GC_R:RETURN

GOSUB @GRPWRITE
RETURN

@GC_U '---ハンテイシタウケ---
IF CU!=32 THEN BEEP 1:MY=MY+1:RETURN
BEEP :GOSUB @GRPWRITE:RETURN
@GC_D '---ハンテイシタウケ---
IF CD!=32 THEN BEEP 1:MY=MY-1:RETURN
BEEP :GOSUB @GRPWRITE:RETURN
@GC_L '---ハンテイシタウケ---
IF CL!=32 THEN BEEP 1:MX=MX+1:RETURN
BEEP :GOSUB @GRPWRITE:RETURN
@GC_R '---ハンテイシタウケ---
IF CR!=32 THEN BEEP 1:MX=MX-1:RETURN
BEEP :GOSUB @GRPWRITE:RETURN
'---------------------------
@CSRCULC 'ケイキルイ
LOCATE 0,0:?" (";MX;",";MY;")   "
LOCATE 0,1:?" ├─┼─┼─┼─┼─┤W:";W;"  "
LOCATE 0,2:?" ├────┤     O:";WO;"  "
LOCATE 0,3:?" ";FPS;"フレ-ム/1ヒ゛ョウカ゛   "
LOCATE W-2,1:?"●"
LOCATE WO-1,2:?"●"
RETURN
'───────────────────────────
@GRPWRITE
IF CLK==1 THEN BGCLR 0
IF HULLHD==1 THEN CO5=101:CO2=11
'--タイキヨウク゛ラフィックヲカキコム--
GPAGE 0
GCOPY 3,0,0,255,191,0,0,0
GPAGE 0,3,0 '╂┿
'------ソラノヒ゛ョウカ゛------
IF HULLHD==0 THEN GFILL 0,0,255,191-CY,CO5:GFILL 0,191-CY,255,191,CO2 
IF HULLHD==1 THEN GOSUB @SKY_EL
'---------------------
LOCATE 0,0:A=0:
RESTORE @DATA_C
FOR I=0 TO MY+1
READ A$
IF I>MY-WO THEN CZ$(A)=MID$(A$,FLOOR(MX-W/2),W):A=A+1
NEXT
'---------------------------
'ハ゛ク゛ホ゛ウシкケイサンシ゛ュンシ゛ョケッテイ
KX=W:KY=0:ILO=0:SR=1:RAST=0 

@GRPLOOP 'ヒト゛イスハ゜ケ゛ッテイヲタンノウ!
A$=MID$(CZ$(KY),KX,1)
H=VAL(A$)
X1=1+FLOOR(KX-W/2):Y1=FLOOR(WO-KY)
IF SR==0 THEN GOSUB @SQWRITE
IF ILO%2==0 THEN KX=KX-(W-ILO) ELSE KX=KX+(W-ILO)
ILO=ILO+1:CNA=W-ILO:SR=0
IF ILO>W THEN KX=W:ILO=0:KY=KY+1:SR=1
IF KY> WO THEN GPAGE 0,0,3:FPS=MAINCNTL-CNT:RETURN
IF KY==WO THEN RAST=1
GOTO @GRPLOOP
'───────────────────────────
@SQWRITE
'─チョウテンエンサ゛ン─
'    E┌─┐F   
'    к│к│    
'  A┌─┐B┘    
'   │G│к H   
'  C└─┘D     
'────────────
HD=HULLHD
IF HD==1 THEN CO1=0+Y1:CO2=WOD+Y1:CO3=WOD*2+Y1:CO4=WOD*3+Y1:CO6=WOD*5+Y1:CO7=WOD*6+Y1:CO8=WOD*7+Y1
'----MAP-----
IF H==0 THEN BGA=32:C=8
IF H>=1 THEN BGA=57:C=8
IF H>=3 THEN BGA=56:C=8
IF H>=5 THEN BGA=13:C=8
IF A$=="╂" THEN BGA=6  :C=8
IF A$=="┿" THEN BGA=320:C=5
IF A$=="□" THEN BGA=590:C=11
BGPUT 0,16+X1,12-Y1,BGA,C,0,0
IF RAST==1 THEN RETURN
'----↑フルHD---
C1=X(Y1)+X1*L(Y1) :C2=Y(Y1)
D1=C1+L(Y1)-1     :D2=C2
A1=C1             :A2=C2+H*L(Y1)
B1=D1             :B2=A2
G1=X(Y1+1)+X1*L(Y1+1):G2=Y(Y1+1)
H1=G1+L(Y1+1)-1   :H2=G2
E1=G1             :E2=G2+H*L(Y1+1)
F1=H1             :F2=E2
'---------------------------
'サ゛ヒョウキ゛ャクテン-
A2=191-A2:B2=191-B2
C2=191-C2:D2=191-D2
E2=191-E2:F2=191-F2
G2=191-G2:H2=191-H2
'---トクシュヘイメンヒ゛ョウカ゛---
IF A$=="┿" THEN CO=CO7:GOSUB @PT_7:RETURN
IF A$=="╂" THEN CO=CO6:GOSUB @PT_7:RETURN
IF A$=="□" THEN CO=CO8:GOSUB @PT_7:RETURN
IF H==0 THEN RETURN 'ヘイメンムシ
'-イロヌリシ゛ュンヒ゛-
GPAGE 1
GOSUB @GPATARN
'---セイショコヒ゜-トクリア---
GPAGE 0
GCOPY 1,0,0,255,191,0,0,0
GPAGE 1
GCLS:RETURN
'───────────────────────────
'----イロヌリハ゛アイワケ----
'   1□┰  5□  2┝□   
'                  
'   3□┸  6┿  4┥□   
'------------------
@GPATARN
R=0:AR=0
IF HIPER==1 THEN GOSUB @PT_0
IF A1< E1 THEN P=0
IF A1>=E1 THEN P=1
IF A2< E2 THEN Q=0
IF A2>=E2 THEN Q=1
IF E1<CX THEN R=R+1
IF B1>CX THEN R=R+1
A=P+Q*2           'イッハ゜ン
IF AR==1 THEN A=4 'カ゛イサン
ON A GOSUB @PT_1,@PT_2,@PT_3,@PT_4,@PT_5
RETURN
'------------------
@PT_0 'オクスキ゛ルオフ゛シ゛ェクトハンテイ
IF Y1>=HIPERMIN THEN AR=1
RETURN
'------------------
@PT_1 '□┰
IF R==2 THEN GOSUB @PT_5:RETURN
GOSUB @MG
GOSUB @FW
RETURN
'------------------
@PT_2 '┝□
IF R==2 THEN GOSUB @PT_5:RETURN
GOSUB @HD
GOSUB @FW
RETURN
'------------------
@PT_3 '□┸
IF R==2 THEN GOSUB @PT_6:RETURN
GOSUB @UE
GOSUB @MG
GOSUB @FW
RETURN
'------------------
@PT_4 '┥□
IF R==2 THEN GOSUB @PT_6:RETURN
GOSUB @HD
GOSUB @UE
GOSUB @FW
RETURN
'------------------
@PT_5 '□
GOSUB @FW
RETURN
'------------------
@PT_6 '┿
GOSUB @UE
GOSUB @FW
RETURN
'------------------
@PT_7 '─
GPAGE 1
GOSUB @DN
GPAGE 0
GCOPY 1,0,0,255,191,0,0,0
GPAGE 1:GCLS
RETURN
'----ヒ゛ョウカ゛シタウケ----
@MG  'ミキ゛カ゛ワ
GLINE F1,F2,B1,B2,CO1
GLINE D1,D2,H1,H2,CO1
GLINE H1,H2,F1,F2,CO1
GLINE B1,B2,D1,D2,CO1
IF FRAME==0 THEN GOSUB @N_M0
RETURN
'-----------
@UE  'ウエ
GLINE A1,A2,B1,B2,CO2
GLINE B1,B2,F1,F2,CO2
GLINE F1,F2,E1,E2,CO2
GLINE E1,E2,A1,A2,CO2
IF FRAME==0 THEN GOSUB @N_U0
RETURN
'-----------
@HD  'ヒタ゛リ
GLINE E1,E2,A1,A2,CO3
GLINE A1,A2,C1,C2,CO3
GLINE C1,C2,G1,G2,CO3
GLINE G1,G2,E1,E2,CO3
IF FRAME==0 THEN GOSUB @N_H0
RETURN
'-----------
@FW  'マエ
GBOX A1,A2,D1,D2,CO4
IF FRAME==0 THEN GFILL A1,A2,D1,D2,CO4
RETURN
'-----------
@DN  'シタ(トクシュ)
GLINE C1,C2,D1,D2,CO
GLINE D1,D2,H1,H2,CO
GLINE H1,H2,G1,G2,CO
GLINE G1,G2,C1,C2,CO
IF D2-H2<2 THEN RETURN
IF FRAME==0 THEN GPAINT (H1+G1)/2,H2+1,CO
RETURN
'-----------
@N_U0 'ウエノシタウケ 
IF E2>A2 THEN GPAINT (E1+F1)/2,E2-1,CO2
IF E2<A2 THEN GPAINT (E1+F1)/2,E2+1,CO2
RETURN
@N_M0 'ミキ゛ノシタウケ
IF F1<B1 THEN GPAINT F1+1,(H2+F2)/2,CO1
IF F1>B1 THEN GPAINT F1-1,(H2+F2)/2,CO1
RETURN
@N_H0 'ヒタ゛リノシタウケ
IF E1<A1 THEN GPAINT E1+1,(G2+E2)/2,CO3
IF E1>A1 THEN GPAINT E1-1,(G2+E2)/2,CO3
RETURN
'───────────────────────────
@COLSETHD 'コウカ゛シツカ゛メンカラ-
'---イロセッテイ(10シンスウ)---
C1R=30 :C1G=75 :C1B=30 
C2R=60 :C2G=100:C2B=60 
C3R=100:C3G=250:C3B=100
C4R=60 :C4G=150:C4B=60 
C5R=0  :C5G=136:C5B=255
C6R=230:C6G=230:C6B=80
C7R=0  :C7G=20 :C7B=230
C8R=100:C8G=100:C8B=100
S=0.9 'トウカリツ(0<S<=1)
'------イロサクセイ--------
FOR I=1 TO WOD
R1=C1R+((C5R-C1R)/WOD)*I*S
G1=C1G+((C5G-C1G)/WOD)*I*S
B1=C1B+((C5B-C1B)/WOD)*I*S
R2=C2R+((C5R-C2R)/WOD)*I*S
G2=C2G+((C5G-C2G)/WOD)*I*S
B2=C2B+((C5B-C2B)/WOD)*I*S
R3=C3R+((C5R-C3R)/WOD)*I*S
G3=C3G+((C5G-C3G)/WOD)*I*S
B3=C3B+((C5B-C3B)/WOD)*I*S
R4=C4R+((C5R-C4R)/WOD)*I*S
G4=C4G+((C5G-C4G)/WOD)*I*S
B4=C4B+((C5B-C4B)/WOD)*I*S
R6=C6R+((C5R-C6R)/WOD)*I*S
G6=C6G+((C5G-C6G)/WOD)*I*S
B6=C6B+((C5B-C6B)/WOD)*I*S
R7=C7R+((C5R-C7R)/WOD)*I*S
G7=C7G+((C5G-C7G)/WOD)*I*S
B7=C7B+((C5B-C7B)/WOD)*I*S
R8=C8R+((C5R-C8R)/WOD)*I*S
G8=C8G+((C5G-C8G)/WOD)*I*S
B8=C8B+((C5B-C8B)/WOD)*I*S
COLSET "GRP",WOD*0+I,HEX$(R1,2)+HEX$(G1,2)+HEX$(B1,2)
COLSET "GRP",WOD*1+I,HEX$(R2,2)+HEX$(G2,2)+HEX$(B2,2)
COLSET "GRP",WOD*2+I,HEX$(R3,2)+HEX$(G3,2)+HEX$(B3,2)
COLSET "GRP",WOD*3+I,HEX$(R4,2)+HEX$(G4,2)+HEX$(B4,2)
COLSET "GRP",WOD*5+I,HEX$(R6,2)+HEX$(G6,2)+HEX$(B6,2)
COLSET "GRP",WOD*6+I,HEX$(R7,2)+HEX$(G7,2)+HEX$(B7,2)
COLSET "GRP",WOD*7+I,HEX$(R8,2)+HEX$(G8,2)+HEX$(B8,2)
NEXT
RETURN
'---------------------------
@SKY_EL 'ソラ HD
GFILL 0,0,255,191,CO5
FOR I=WOD-2 TO 1 STEP -1
GFILL 0,191-Y(I),255,191,WOD+I
NEXT
RETURN
'---------------------------
@CREDIT 'クレシ゛ット
BGMSTOP 
BEEP 3:LOCATE 0,23:COLOR 9
RESTORE @DATA_CRE
FOR I=0 TO 22
VSYNC 2
READ A$:? A$
NEXT
@LOOP02
IF BUTTON(1)==32 THEN BEEP 4:WAIT 2:CLS:GOTO @TITLEWRITE
GOTO @LOOP02
'───────────────────────────
'テ゛-タケイトウ
'───────────────────────────
@DATA_Y 'スウレツ
DATA 0,42,53,58,61,63,64,65,65,66,66,66
'ббб 1-2 -3 -4 -5 -6 -7 -8 -9 -10
'-------
@DATA_TY 'タイトルノヤマ
DATA " ┝┰  ┝┰┝┰    ┝┰       ┝┰  ┝┰┝┰  "
DATA "┝┿┿┰┝┿┿┿┿┰  ┝┿┿┰┝┰   ┝┿┿┰┝┿┿┿┿┰ "
DATA "┿┿┿┿┿┿┿┿┿┿┰┝┿┿┿┿┿┿┰ ┝┿┿┿┿┿┿┿┿┿┿┰"
DATA "╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂"
'-------
@DATA_C 'マッフ゜テ゛-タ
'      0-9, ┿ウミ  ╂スナハマ  □ハシ
'          СТТТТСТ10ТСТТТТСТ20ТСТТТТСТ30ТСТТТТСТ40ТСТТТТСТ50ТСТТТТСТ60ТУ
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿11┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿1┿┿┿1┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿1221┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿11┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿121┿121┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿123321┿┿┿┿┿┿1┿┿┿┿┿┿┿12211╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿1┿┿┿1┿┿┿┿┿┿┿┿┿╂╂╂╂╂┿┿┿┿┿┿
DATA "┿┿┿1221┿┿┿┿┿┿212┿┿┿┿┿1211╂┿┿┿┿┿┿┿┿1┿┿┿┿┿┿□□┿┿┿┿┿┿┿┿┿╂╂╂╂╂00╂┿┿┿┿┿┿┿┿
DATA "┿┿┿┿11╂┿┿┿┿╂12321╂┿┿┿11╂┿┿┿┿┿┿┿┿┿121┿┿┿┿┿□□4┿□┿4□┿□4321100╂┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿1╂╂┿╂╂1234321╂╂╂11┿┿┿┿┿╂╂╂╂┿01□┿┿□┿┿□□3□□□4□□□320000121┿┿┿┿┿┿┿┿
DATA "┿┿┿┿121╂┿╂0012321000121╂╂╂╂╂╂000□00□□□□□□□13□□□□□□□31011121┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿11╂0□00001210011221110000001┿10□□□□□□123□□□43334000001┿┿11╂┿┿┿┿┿
DATA "┿┿┿┿1210┿┿┿000100122111000000012┿21000╂┿┿1243□3421001210╂┿┿1210╂┿┿┿┿
DATA "┿┿┿┿┿10000┿┿00000011000000000123┿┿2100╂┿┿12210121000010╂┿┿12210╂┿┿┿┿
DATA "┿┿┿┿┿╂00000┿┿00000000000110000122┿10000000110001000000╂┿┿┿111001┿┿┿┿
DATA "┿┿┿┿┿┿╂00000□01000000001221100011┿00100000000000000100╂┿┿┿╂00011┿┿┿┿
DATA "┿┿┿┿┿┿┿╂0000┿12100011112343210000□01311132100000001210╂┿┿┿╂□╂01┿┿┿┿┿
DATA "┿┿┿┿┿┿┿╂1000┿┿1001222221234321000┿134323430010000123210╂┿┿┿□┿╂┿┿┿┿┿┿
DATA "┿┿┿┿343334000┿╂012344323455432100┿222222222╂2200001210044┿┿□┿┿┿┿┿┿┿┿
DATA "┿┿┿┿31┿┿13000□□12223321234543200┿┿╂╂1╂╂╂╂╂1╂╂╂20000100234┿┿□┿┿┿┿┿┿┿┿
DATA "┿┿┿┿3□□□□3000╂┿╂111221012343210┿┿12╂21╂12╂111╂101100012344┿□┿┿┿┿┿┿┿┿
DATA "┿┿┿╂3□□□□30000┿┿┿┿┿11┿□□□123210□╂╂1╂1╂╂╂1╂╂╂╂╂212210001233╂□╂4┿┿┿┿┿┿
DATA "┿┿┿╂4□433400000111┿┿┿┿□┿┿┿12100┿1╂╂╂╂╂2╂1╂121╂223432100122000╂┿┿┿┿┿┿
DATA "┿┿┿╂1□2100000000121┿┿┿□┿┿110000┿1333333╂21╂21╂234543210001000╂┿┿┿┿┿┿
DATA "┿┿┿┿╂╂1000010000000100000000000┿┿111╂╂╂╂╂╂╂1╂╂34565432100000╂┿┿┿┿┿┿┿
DATA "┿┿┿┿┿╂00030320000000000000000000┿┿┿13□333333□33345654321001╂┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿╂001012100000000000000110000┿┿┿□╂╂┿┿┿┿□┿12345432100121┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿╂00303100001000001000122110000┿□┿┿┿┿┿┿□┿┿12343210012321┿┿┿┿┿┿┿
DATA "┿┿┿┿□□□□000000011210001210122320000000┿┿┿┿┿┿0┿┿┿12321001234321┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿╂00000┿┿┿10000011001243╂340000000┿┿0021┿┿121000012321┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿□┿┿┿□┿┿00000000121╂123┿□┿311110000000100001000000121┿┿┿╂0┿┿┿
DATA "┿┿┿┿┿┿┿╂╂110000001110012╂╂╂333□□□34332100000000000000001001┿┿┿╂01┿┿┿
DATA "┿┿┿┿┿┿╂╂1221110012321123╂23344□□□4533322100000000000001210□□□□□01┿┿┿
DATA "┿┿┿┿┿╂╂12343321133433223╂3233234565432210000001101101011╂╂┿┿┿┿┿╂┿┿┿┿
DATA "┿┿┿┿╂1╂34454432334554333□3122╂2345432110000001221221211╂╂┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿╂12╂45544543445665432□┿┿11┿123432210000001233232221╂╂┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿╂12╂╂55433454456654321□┿┿┿┿┿┿12322100100002344321110╂┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿12╂╂55432344567654321┿□┿┿┿┿┿┿┿122100121110123221□□□□□□┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿12╂4543212345654321┿┿┿□□□□□□□□╂╂╂╂023211┿□┿┿┿┿┿┿□┿┿┿┿3┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿╂1╂343211123454321┿┿┿┿┿┿┿□┿┿┿┿┿┿┿□┿┿┿┿┿┿┿000000□□╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿╂1╂232100112343210╂┿┿┿┿┿┿□┿┿┿╂121╂╂╂11221100000□□╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿╂╂1210012212321000╂╂╂╂┿┿□┿┿╂╂12210000110000011□□□□□□□□□□□╂┿┿┿┿┿┿┿
DATA "┿┿┿┿╂╂100001101110001100╂╂╂╂╂╂╂12321100000000112211□□□□□□□□□╂┿┿┿┿┿┿┿
DATA "┿┿┿┿┿╂╂00000000000012321001222123432100022001123321╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿╂0000┿┿001122321001211╂╂╂╂╂╂╂╂0002200011221╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿11000┿┿001223321000110╂╂123432100000000011╂╂╂┿┿┿┿┿5┿┿┿5┿┿┿┿┿┿┿
DATA "┿┿┿┿┿122100000001122100000000123454321000╂╂╂╂╂╂╂╂┿┿┿┿┿┿┿╂┿┿┿╂┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿122110000000110000000012345532100╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿111210000000000000000012344110╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿123210001110011100╂╂╂╂╂╂0121╂╂╂┿┿┿┿┿┿┿┿┿┿╂╂╂╂╂╂□□┿┿┿□□┿┿┿┿┿┿
DATA "┿┿┿┿┿7┿12732100123211211╂╂┿┿┿┿┿╂╂□╂┿┿┿┿┿┿┿┿┿┿┿┿┿╂000002□□□□□□□╂┿┿┿┿┿
DATA "┿┿┿┿54444451┿□┿112322321╂┿┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿┿┿╂100002322□□□22╂┿┿┿┿┿
DATA "┿┿┿┿51□1□15000┿┿┿┿┿┿1211╂╂┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿┿╂1210023433□□□33╂┿┿┿┿┿
DATA "┿┿┿┿53□□□350001╂╂╂╂┿┿┿┿11╂┿┿┿┿┿┿┿□┿┿┿┿┿┿┿┿┿┿┿╂12321002322□□□22╂┿┿┿┿┿
DATA "┿┿┿┿5┿┿□┿┿500121000╂╂╂┿┿┿╂┿┿┿┿┿┿┿□┿┿┿┿411┿┿┿┿123432101211□□□11╂┿┿┿┿┿
DATA "┿┿┿┿5┿┿□┿┿500010000100╂╂┿┿┿┿┿┿┿┿9□9┿┿┿┿┿┿┿┿┿┿╂1232100010000000╂┿┿┿┿┿
DATA "┿┿┿┿543╂3450000010000000╂╂┿┿┿┿┿┿┿□┿┿┿3┿┿┿3┿┿┿┿╂000000000000001╂┿┿┿┿┿
DATA "┿┿┿┿┿╂00000000012112100000□□□□□□□□□□□□□□□□□□□□□□000100000000121┿┿┿┿┿
DATA "┿┿┿┿┿┿╂□□□□□□□□□322321000╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿╂╂╂121╂╂□╂╂╂╂╂1┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿□┿┿┿┿┿□□□╂╂╂22210╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿1┿7┿□┿7┿┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿1┿□┿┿┿┿┿□□□3╂╂321╂╂┿┿┿┿┿┿┿┿╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿544□445┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿121╂┿┿┿┿┿┿┿┿╂╂╂╂┿┿┿┿┿┿┿┿┿┿┿12╂21┿┿┿┿414┿┿┿┿┿┿┿┿┿4┿┿□┿┿4┿┿┿┿┿┿┿┿┿
DATA "┿┿┿121╂╂1┿┿┿┿┿┿┿┿┿╂╂╂┿┿┿┿┿┿┿┿┿123╂321┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿4□□□□□4┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿1╂╂121┿┿┿┿┿┿┿┿┿╂╂╂┿┿□□□╂╂1232╂21╂┿┿1┿┿┿1┿┿┿┿┿┿┿┿4┿┿□┿┿4┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿╂╂1┿┿┿┿┿┿┿┿┿┿╂╂╂╂□□┿┿┿╂╂121╂╂╂╂□□□□□□□┿┿┿┿┿┿┿┿521╂125┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿╂╂╂╂╂┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿2┿╂╂╂┿2┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿1┿┿┿┿┿1┿┿┿┿┿┿┿┿┿
DATA "┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿┿
'571

@DATA_CRE 'クレシ゛ットテ゛-タ
DATA " ──────────────────────────────"
DATA " ┿╂ ハ゛- シ゛ョ ン リ レ キ (Бテ゛モト゛ル)╂┿"
DATA " ──────────────────────────────"
DATA " Version УDetail               "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-0    Уチョクホウタイヲカコウトスルカ゛シッハ゜イ"
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-1    Уチョクホウタイカ゛カケルヨウニナル    "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-3    Уフクスウクミアワセ、チケイサクセイカノウニ"
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-4    Уシュシ゛ンコウノイト゛ウカ゛カノウニナル "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-5-1.0Уタイトルカ゛メンカ゛シ゛ッソウサレル   "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-5-2.0Уヒ゛ョウカ゛ソクト゛カ゛3ハ゛イニアッフ゜"
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-6    УBGM、セッテイモ-ト゛ヲシ゛ッソウ   "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-7    Уカ゛メンニマッフ゜トハンテイヲシ゛ッソウ "
DATA " ┿┿NOW┿┿┿СТТТТТТТТТТТТТТТТТТТТТ"
DATA " YM-8    Уオフ゛シ゛ェクトヲオオハハ゛カクチョウ  "
DATA " ТТТТТТТТСТТТТТТТТТТТТТТТТТТТТТ"

'───────────────────────────
@TELEPORT
CLS:BGMSTOP:COLOR 0
?"スタ-トスルイチヲ キメテクタ゛サイ"
BGPAGE 0:BEEP 34
BGFILL 0,0,0,32,2,709,9,0,0
FOR Y=0 TO 63
READ A$
FOR X=0 TO 63
B$=MID$(A$,X,1)
H=VAL(B$)
IF H==0 THEN BGA=32:C=8
IF H>=1 THEN BGA=57:C=8
IF H>=3 THEN BGA=56:C=8
IF H>=5 THEN BGA=13:C=8
IF B$=="╂" THEN BGA=6  :C=8
IF B$=="┿" THEN BGA=320:C=5
IF B$=="□" THEN BGA=590:C=11
BGPUT 1,X,Y,BGA,C,0,0
NEXT
NEXT
@BGSELECT
SPSET 0,68,2,0,0,0
SPHOME 0,8,8
MS=2:AX=120:AY=80
AM=8 'イト゛ウワクノ セッテイ
AXM=255-AM*8
AYM=191-AM*8
AXS=AM*8:AYS=AM*8
'───────────────────────────
@MAINLOOP
VSYNC 1
GOSUB @MYMOVE
GOSUB @OBJOFS
GOSUB @OBJCHK

GOTO @MAINLOOP
'───────────────────────────
@MYMOVE 'シ゛キノ イト゛ウ
B=BUTTON(0)
IF B AND 1 THEN AY=AY-MS
IF B AND 2 THEN AY=AY+MS
IF B AND 4 THEN AX=AX-MS
IF B AND 8 THEN AX=AX+MS
IF B == 16 THEN GOSUB @OBJCHK2
IF B == 32 THEN BEEP 4:GOSUB @TITLEWRITE

IF AY<AYS THEN AY=AY+MS:BGY=BGY-MS:BPY=BPY-MS
IF AY>AYM THEN AY=AY-MS:BGY=BGY+MS:BPY=BPY+MS
IF AX<AXS THEN AX=AX+MS:BGX=BGX-MS:BPX=BPX-MS
IF AX>AXM THEN AX=AX-MS:BGX=BGX+MS:BPX=BPX+MS

MX=BGX+AX:MY=BGY+AY

RETURN
'───────────────────────────
@OBJOFS 'オフ゛シ゛ェクトノイト゛ウ
BGOFS 1,BGX,BGY
SPOFS 0,AX,AY
LOCATE 0,2:?"(";FLOOR(MX/8);",";FLOOR(MY/8);")"
RETURN
'───────────────────────────
@OBJCHK 'オフ゛シ゛ェクトノサイシュウカクニン 
BGREAD(1,MX/8,MY/8),CR,I,I,I
LOCK=1:EL=0
COLOR 4:LOCATE 0,1:?" Аテ゛スタ-トテ゛キマス              ":COLOR 0

IF MX<0  THEN EL=1
IF MX>63*8 THEN EL=1
IF MY<0  THEN EL=1
IF MY>63*8 THEN EL=1

IF CR==32 THEN LOCK=0
IF CR==6  THEN LOCK=0
IF CR==590THEN LOCK=0
IF LOCK==1 THEN LOCATE 0,1:COLOR 7 :?"ソコカラスタ-トスルコトハ テ゛キマセン!":COLOR 0
IF   EL==1 THEN LOCATE 0,1:COLOR 13:?"ソコハ ケンカ゛イテ゛ス!!       ":COLOR 0
RETURN
'───────────────────────────
@OBJCHK2 'オフ゛シ゛ェクトノサイシュウカクニン 
IF EL==1 THEN LOCK=1
IF LOCK==0 THEN SETP=1:MX=FLOOR(MX/8):MY=FLOOR(MY/8):GOTO @INIT
BEEP 1
RETURN
'───────────────────────────


'END
}}
#endregion
* QR コード [#QR]
プチコンmkII 向けの QR コードです。
**本体 [#s9a52727]
「山岳観光ソフト」本体です。~
''最終更新:VER-9.4:2014/12/20'' ~
#blockdiv(class:block-info)
#ref(YM9CQR.png)
#blockdiv(end)

#region(旧バージョン)
''これは旧バージョンの物です。''
#blockdiv(class:block-info)
#ref(YM8BQR.png)
#blockdiv(end)
#endregion
**付属キャラ [#ud773589]
設定モードで専用のキャラクターを使いたい方は読み込んでください。~
旧バージョンで読み込んだ方は、再度読み込む必要はありません。~
端についている"COL:0012"の読み込みもお忘れなく。~
#blockdiv(class:block-info)
#ref(YMPERSQR.png)
#blockdiv(end)
//--------------------------------------
*アンケート [#w536e6f1]
遊んで下さった方に感謝。
#vote(保存しました![23])
Q1:「山岳観光ソフト」を評価するなら?
#vote(凄い！[2.3789787878979E+184][4])
#vote(凄い！[2.3789787878979E+184][5])
//-----------------------------------------------------------------------
* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''天郷思音'' : すごい。そのうえmkIIとはすごい。1票いれとこう。 (&new{2014/12/18 (木) 15:23:17};)
- ''かずえもん'' : 天郷思音さんと同じでmkllでコレはすごいと思います！ (&new{2014/12/18 (木) 16:05:26};)
- ''名無しさん'' : アナタカミサマ、スゴクサイコウ (&new{2014/12/18 (木) 16:55:52};)
- ''天郷思音'' : ただ横向くとかできないみたいなのが難。あとキャラはプチコンに最初から入っているやつも使えるといいかも。 (&new{2014/12/18 (木) 17:12:44};)
- ''CRT(投稿者)'' : 天郷思音さん、ご指摘ありがとうございます。次の更新で取り入れてみようと思います！ (&new{2014/12/18 (木) 21:04:36};)
- ''マリオBGMの作成者'' : マインクラフト作れそうだね！！ バージョンアップにご期待します！！ (&new{2014/12/19 (金) 00:35:12};)
- ''名無しさん'' : 1008行目ザブン？ (&new{2014/12/20 (土) 14:09:06};)
- ''CRT(投稿者)'' : すみません、「ジブン」を打ち間違えました。気になるようでしたら、直してください。 (&new{2014/12/20 (土) 15:00:18};)
- ''名無しさん'' : 更新内容が欲しい (&new{2014/12/21 (日) 10:33:36};)
- ''Citrine'' : 勝手ながら、新バージョンのプログラムリストを追加させていただきました (&new{2014/12/21 (日) 22:27:41};)
- ''天郷思音'' : あれO:11までできるけどゲージはみ出てる (&new{2014/12/24 (水) 17:10:17};)
- ''天郷思音'' : 設定して始める場合のみ起こる。簡単モードだと7が限界。 (&new{2014/12/24 (水) 17:17:50};)
- ''CRT(投稿者)'' : ご指摘ありがとうございます。それは仕様で、高速描画モードを選択することで使用できます。ところが、編集中のミスでゲージの長さを調整する部分を削除してしまっていたようです。 (&new{2014/12/25 (木) 16:53:50};)
- ''CRT(投稿者)'' : 説明の文字と一緒に修正しようと思います。 (&new{2014/12/25 (木) 16:55:21};)
- ''名無しさん'' : マイクラ期待 (&new{2014/12/30 (火) 08:49:22};)
- ''名無しさん'' : うごから (&new{2015/05/22 (金) 17:26:10};)

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

Toukou/山岳観光ソフト の変更点

パンくずリスト

Toukou/山岳観光ソフトの変更点
