Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '--------------------------------
- 'SAVE "PRG3:MAP17"
- '2016/04/07 20:04:00
- '--------------------------------
- 'マップばんごう
- COMMON DEF __GETNO()
- RETURN 17
- END
- 'はいけいばんごう 1つ
- COMMON DEF __GETBACKBG()
- RETURN &H423B
- END
- 'バクダンでこわせるかべ
- ' ブロックHP
- ' つぼ
- '
- '
- '
- '
- 'FEDCBA9876543210
- '
- ' むきせっしょく
- ' むきせっしょく
- ' むきせっしょく
- ' むきせっしょく
- ' はしご
- ' こわれるブロック
- ' みず
- ' ダメージ
- '===よくつかうやつ===
- 'はしご &H0010
- 'はしごゆか &H0012
- 'ブロック &H000F
- 'ひびわれ &H300F
- 'おとしあな &H002F
- 'みず &H0040
- 'ダメージ &H0080
- 'ようがん &H00C0
- 'BGテーブル
- COMMON DEF __GETBGTBL _T%[],_A%[]
- PUSH _T%,&H0000:PUSH _A%,&H0000 '&H00:0
- PUSH _T%,&H4268:PUSH _A%,&H000F '&H01:616
- PUSH _T%,&H024A:PUSH _A%,&H000F '&H02:586
- PUSH _T%,&H4269:PUSH _A%,&H000F '&H03:617
- PUSH _T%,&H0268:PUSH _A%,&H000F '&H04:616
- PUSH _T%,&H0249:PUSH _A%,&H000F '&H05:585
- PUSH _T%,&H02A8:PUSH _A%,&H000F '&H06:680
- PUSH _T%,&H0269:PUSH _A%,&H000F '&H07:617
- PUSH _T%,&H4249:PUSH _A%,&H000F '&H08:585
- PUSH _T%,&H026A:PUSH _A%,&H000F '&H09:618
- PUSH _T%,&H001E:PUSH _A%,&H0000 '&H0A:30
- PUSH _T%,&H0216:PUSH _A%,&H0000 '&H0B:534
- PUSH _T%,&H0380:PUSH _A%,&H0012 '&H0C:896
- PUSH _T%,&H030B:PUSH _A%,&H000F '&H0D:779
- PUSH _T%,&H0369:PUSH _A%,&H0010 '&H0E:873
- PUSH _T%,&H026B:PUSH _A%,&H000F '&H0F:619
- PUSH _T%,&H424B:PUSH _A%,&H000F '&H10:587
- PUSH _T%,&H009F:PUSH _A%,&HF00F '&H11:159
- PUSH _T%,&H0288:PUSH _A%,&H300F '&H12:648
- PUSH _T%,&H426B:PUSH _A%,&H000F '&H13:619
- PUSH _T%,&H024B:PUSH _A%,&H000F '&H14:587
- PUSH _T%,&H036B:PUSH _A%,&H0000 '&H15:875
- PUSH _T%,&H001C:PUSH _A%,&H0000 '&H16:28
- PUSH _T%,&H426A:PUSH _A%,&H000F '&H17:618
- END
- 'マップようカラー
- COMMON DEF __GETMAPCOL _T%[]
- PUSH _T%,&HFF13182E
- PUSH _T%,&HFF4A2F1E
- PUSH _T%,&HFF685A47
- PUSH _T%,&HFF6C6755
- PUSH _T%,&HFF4A2F1E
- PUSH _T%,&HFF6F6857
- PUSH _T%,&HFF746D5F
- PUSH _T%,&HFF6C6755
- PUSH _T%,&HFF6F6857
- PUSH _T%,&HFF645845
- PUSH _T%,&HFF1E871E
- PUSH _T%,&HFF7D8073
- PUSH _T%,&HFF35332E
- PUSH _T%,&HFF3A3F2B
- PUSH _T%,&HFF383838
- PUSH _T%,&HFF706756
- PUSH _T%,&HFF6F6453
- PUSH _T%,&HFF5A595B
- PUSH _T%,&HFF4F3729
- PUSH _T%,&HFF706756
- PUSH _T%,&HFF6F6453
- PUSH _T%,&HFF232324
- PUSH _T%,&HFF4AA427
- PUSH _T%,&HFF645845
- END
- 'マップ
- COMMON DEF __GETMAP$ _C$[]
- 'BGIDX 00------------------10------------------20--------
- ' 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4
- PUSH _C$,"01020302040205030506060703060202010202020107070202" '0
- PUSH _C$,"02030502000000000003080900000000000000020302020102" '1
- PUSH _C$,"02050403000000000007010000000000000000000201070707" '2
- PUSH _C$,"05020202000000000006070000000000000000000000030202" '3
- PUSH _C$,"02040202000000000009090000000000000000000007070700" '4
- PUSH _C$,"0201000000000000000009000A0A0A0A0A00000B0007000000" '5
- PUSH _C$,"0500000000000000000006070807080708070C070700000000" '6
- PUSH _C$,"020000000000000000000000000D00000D000E000000000000" '7
- PUSH _C$,"010000000000000000000000050504060F000E000000001002" '8
- PUSH _C$,"00110000000000000000000505000012120802000000100202" '9
- PUSH _C$,"02130C00000000000000000005000200121202140000070102" '10
- PUSH _C$,"020F0E00000503140000000000001002001209000014090407" '11
- PUSH _C$,"01050E00050604051400150000001602140000001409090707" '12
- PUSH _C$,"020305050F03050F050F050102020202000000141717030202" '13
- PUSH _C$,"02070701090709070409090904090109050902040909020402" '14
- END
- 'アカスイッチ
- DEF REDSW(X%[],Y%[])
- X%[0]=14:Y%[0]=12
- RETURN 1-1
- END
- 'このぎょうをぜったいにけさないこと! ここまでプログラムによるせいせい
- 'どうくつマップいち
- COMMON DEF __GETSMAPPOS OUT X%,Y%
- X%=1
- Y%=0
- END
- 'りんせつマップばんごう
- COMMON DEF __GETMVMAP(_P%)
- IF _P%==1 THEN RETURN -1 'うえ
- IF _P%==2 THEN RETURN 18 'した
- IF _P%==4 THEN RETURN 10 'ひだり
- IF _P%==8 THEN RETURN 16 'みぎ
- END
- COMMON DEF __STARTPOS OUT _X%,_Y%
- _X%=24
- _Y%=7
- END
- 'マップせいせいかんりょうごしょり
- COMMON DEF __START
- GDFFRCLR
- 'せきばん
- {X:"__MONOLITH",19,5}
- 'ホネ
- {X:"__HONE",10,12}
- 'ワナ
- {X:"__TRAP",14,12}
- 'カベそうちイベント
- IF {F.BIT:1} THEN KAIDAN FALSE
- {F.FRSET:1,&H09}
- {X:"__SWITCH",12,5}
- {X:"__SWITCH",13,5}
- {X:"__SWITCH",14,5}
- {X:"__SWITCH",15,5}
- {X:"__SWITCH",16,5}
- 'アイテム
- IF {F.BIT:0}==0 THEN
- {ITEM:"__GETITEM",6,10,cI_BBAG}
- ENDIF
- 'いわ
- IF {F.BIT:2} THEN
- {BG.CLR:1,9}
- ELSE
- {B:"__IWA",1,9}
- ENDIF
- END
- 'BGM
- COMMON DEF __GETBGM()
- IF {ESCAPE} THEN
- RETURN cBGM_ESC
- ENDIF
- RETURN cBGM_CAVE
- END
- '============================================
- 'ビットフラグ
- '============================================
- '0:バクダンぶくろ
- '1:かくしかいだん
- '2:いわ
- '3:
- '4:
- '5:
- '6:
- '7:
- '============================================
- 'イベントていぎ
- '============================================
- COMMON DEF __MONOLITH(X%,Y%)
- {MSG:" - WALL CONTROLLER -"}
- {T}
- END
- COMMON DEF __HONE(X%,Y%)
- M$= "I'm finished..|"
- M$=M$+"Shouldn't have pressed"
- M$=M$+"that switch recklessly..|"
- '-------------------
- M$=M$+"Take my Bomb Bag|"
- M$=M$+"May I rest in pieces..|"
- {MSG:M$}
- {T}
- END
- DEF KAIDAN EF%
- FOR I%=11 TO 14
- N%=(I%==11)*2
- IF EF% THEN {EF.BOMB:6,I%}
- {BG.PUT:&H0E-N%,&H0010+N%,6,I%}
- IF EF% THEN WAIT 8
- NEXT
- END
- COMMON DEF __TRAP(X%,Y%)
- {BG.SWRON:X%,Y%}
- IF {F.FRGET:0}==5 THEN
- 'かくしかいだん しゅつげん
- IF {F.BIT:1}==0 THEN
- {F.BITON:1}
- {SE.OK}
- KAIDAN TRUE
- ENDIF
- {F}
- ENDIF
- 'スイッチがただしくないと トラップはつどう
- {SE:121}
- WAIT 38
- {SE:121}
- {MSG:" !!!"}
- FOR I%=4 TO 8
- {EF.BOMB:I%,0}
- {BG.PUT:0,0,I%,0}
- WAIT 8
- NEXT
- WAIT 30
- {E.SLMRED:"__EMYGEN",4,0}
- {E.BAT:"__EMYGEN",5,0}
- {E.BAT:"__EMYGEN",6,0}
- {E.BAT:"__EMYGEN",7,0}
- {E.SLMRED:"__EMYGEN",8,0}
- {F}
- END
- 'パズルスイッチ
- COMMON DEF __SWITCH(X%,Y%)
- B%=1<<(X%-12)
- F%={F.FRGET:0}
- IF F% AND B% THEN
- {BG.SWOFF:X%,Y%}
- ELSE
- {BG.SWON:X%,Y%}
- ENDIF
- {F.FRSET:0,F% XOR B%}
- B%=X%-12
- F%={F.FRGET:1}
- V%=F% XOR ((&H38>>B%)AND 31)
- {F.FRSET:1,V%}
- FOR I%=0 TO 4
- IF (V% AND 1)!=(F% AND 1) THEN
- P%=(V% AND 1)*&H0D
- {EF.BOMB:16-I%,7}
- {BG.PUT:P%,&H0F*P%,16-I%,7}
- WAIT 15
- ENDIF
- V%=V%>>1
- F%=F%>>1
- NEXT
- 'かんりょうはんてい
- IF {F.FRGET:1}==0 THEN
- '{F.BITON:1}
- {SE.OK}
- FOR I%=12 TO 16
- {X.RM:I%,5}
- NEXT
- ENDIF
- {T}
- END
- COMMON DEF __GETITEM(X%,Y%)
- {F.BITON:0}
- {IGET:cI_BBAG,"It's a Bomb Bag!Use bombs to demolish rocksor deal damage to enemies!"}
- {F}
- END
- COMMON DEF __IWA(X%,Y%)
- {F.BITON:2}
- {F}
- END
- COMMON DEF __EMYGEN S%
- X%=4+RND(5)
- IF RND(2)==0 THEN
- {E.BAT:"__EMYGEN",X%,0}
- ELSE
- {E.SLMRED:"__EMYGEN",X%,0}
- ENDIF
- {EF.BOMB:X%,0}
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement