#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歩で1〜2秒程かかります。 | | A/Yボタン | 左右の幅を調整します。大きいほど視界が広がります。 | | X/Bボタン | 前後の奥行きを調整します。大きいほど奥まで見通せます。 | | Lボタン | BGMを止めます。 | | Rボタン | プログラムを終了します。 | ※操作モードによって、十字ボタンの操作は変わります。 ***マップ [#lf4eefb7] 下画面には視界の範囲を示すマップも表示されています。~ 初期設定では処理速度の関係から比較的狭めに設定されていますが、~ 自分で調整して広くすることもできます。~ 紫の「●」が現在地を示しています。 //-------------------------------------- **設定後に始める [#f9dacb01] 様々なオプションを選んでから観光できます。オプションには~ 次のような項目があり、効果は以下の通りです。 #region(見てみる) |1ブロックあたりの大きさ|1マスの長さをピクセル単位で設定できます。極端な値を使うと画面に塗り残しができる事があります。| |高画質描画の使用|「ON」にすると、遠くのものほど色が薄くなり、よりリアルな見た目になります。| |高速描画の採用|奥のブロックを描く作業を単純にし、描画の高速化を図ります。バグを軽減する効果もあります。| |キャラクターの配置|何も置かない「OFF」の他に、2パターンあります。[TYPE1]は専用のキャラ「YM-PERS」を使用するのでキャラの保存が必要ですが、[TYPE2]ではプチコン標準のキャラを使用できます。| |お て ん き|高画質描画の使用を「ON」にしている時のみ設定可能で、空の色を変えることができます。項目の横に天気の名前と空の色のサンプルが表示されるので、それを参考に選びます。| |ワイヤーフレームの採用|ワイヤーフレームっぽい感じで描画されます。「高速描画」との併用はできないので気を付けましょう。| |この設定で観光を始める|設定した項目を反映して観光を始めます。| |スタート位置を決めて始める|マップの全体図が表示され、任意のスタート位置を選ぶことができます。全体図を見たくない方にはおすすめしません。| #endregion //-------------------------------------- **操作のモードを選択 [#d3b4bc44] 今回の更新から、操作のモードを選べるようになりました。 操作モードは2種類あり、詳細は以下の通りです。 |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以降はプチコン3号で配信する予定です。 //-------------------------------------- * プログラムリスト [#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〜120ヲショウレイシマス) INPUT "1フ゛ロックアタリノ オオキサハ(60〜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〜120ヲショウレイシマス) IF SET==1 THEN INPUT "1フ゛ロックアタリノ オオキサハ(40〜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
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.028 秒 | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30