Advertisement
Guest User

Untitled

a guest
Mar 28th, 2017
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. '--------------------------------
  2. 'SAVE "PRG3:MAP17"
  3. '2016/04/07 20:04:00
  4. '--------------------------------
  5. 'マップばんごう
  6. COMMON DEF __GETNO()
  7.  RETURN 17
  8. END
  9. 'はいけいばんごう  1
  10. COMMON DEF __GETBACKBG()
  11.  RETURN &H423B
  12. END
  13.  
  14. 'バクダンでこわせるかべ
  15. ' ブロックHP
  16. '  つぼ  
  17. '    
  18. '    
  19. '
  20. '
  21. 'FEDCBA9876543210
  22. '        
  23. '        むきせっしょく
  24. '        むきせっしょく
  25. '        むきせっしょく
  26. '        むきせっしょく
  27. '        はしご
  28. '        こわれるブロック
  29. '        みず
  30. '        ダメージ
  31.  
  32. '===よくつかうやつ===
  33. 'はしご    &H0010
  34. 'はしごゆか  &H0012
  35. 'ブロック   &H000F
  36. 'ひびわれ   &H300F
  37. 'おとしあな  &H002F
  38. 'みず     &H0040
  39. 'ダメージ   &H0080
  40. 'ようがん   &H00C0
  41.  
  42. 'BGテーブル
  43. COMMON DEF __GETBGTBL _T%[],_A%[]
  44.  PUSH _T%,&H0000:PUSH _A%,&H0000 '&H00:0
  45.  PUSH _T%,&H4268:PUSH _A%,&H000F '&H01:616
  46.  PUSH _T%,&H024A:PUSH _A%,&H000F '&H02:586
  47.  PUSH _T%,&H4269:PUSH _A%,&H000F '&H03:617
  48.  PUSH _T%,&H0268:PUSH _A%,&H000F '&H04:616
  49.  PUSH _T%,&H0249:PUSH _A%,&H000F '&H05:585
  50.  PUSH _T%,&H02A8:PUSH _A%,&H000F '&H06:680
  51.  PUSH _T%,&H0269:PUSH _A%,&H000F '&H07:617
  52.  PUSH _T%,&H4249:PUSH _A%,&H000F '&H08:585
  53.  PUSH _T%,&H026A:PUSH _A%,&H000F '&H09:618
  54.  PUSH _T%,&H001E:PUSH _A%,&H0000 '&H0A:30
  55.  PUSH _T%,&H0216:PUSH _A%,&H0000 '&H0B:534
  56.  PUSH _T%,&H0380:PUSH _A%,&H0012 '&H0C:896
  57.  PUSH _T%,&H030B:PUSH _A%,&H000F '&H0D:779
  58.  PUSH _T%,&H0369:PUSH _A%,&H0010 '&H0E:873
  59.  PUSH _T%,&H026B:PUSH _A%,&H000F '&H0F:619
  60.  PUSH _T%,&H424B:PUSH _A%,&H000F '&H10:587
  61.  PUSH _T%,&H009F:PUSH _A%,&HF00F '&H11:159
  62.  PUSH _T%,&H0288:PUSH _A%,&H300F '&H12:648
  63.  PUSH _T%,&H426B:PUSH _A%,&H000F '&H13:619
  64.  PUSH _T%,&H024B:PUSH _A%,&H000F '&H14:587
  65.  PUSH _T%,&H036B:PUSH _A%,&H0000 '&H15:875
  66.  PUSH _T%,&H001C:PUSH _A%,&H0000 '&H16:28
  67.  PUSH _T%,&H426A:PUSH _A%,&H000F '&H17:618
  68. END
  69. 'マップようカラー
  70. COMMON DEF __GETMAPCOL _T%[]
  71.  PUSH _T%,&HFF13182E
  72.  PUSH _T%,&HFF4A2F1E
  73.  PUSH _T%,&HFF685A47
  74.  PUSH _T%,&HFF6C6755
  75.  PUSH _T%,&HFF4A2F1E
  76.  PUSH _T%,&HFF6F6857
  77.  PUSH _T%,&HFF746D5F
  78.  PUSH _T%,&HFF6C6755
  79.  PUSH _T%,&HFF6F6857
  80.  PUSH _T%,&HFF645845
  81.  PUSH _T%,&HFF1E871E
  82.  PUSH _T%,&HFF7D8073
  83.  PUSH _T%,&HFF35332E
  84.  PUSH _T%,&HFF3A3F2B
  85.  PUSH _T%,&HFF383838
  86.  PUSH _T%,&HFF706756
  87.  PUSH _T%,&HFF6F6453
  88.  PUSH _T%,&HFF5A595B
  89.  PUSH _T%,&HFF4F3729
  90.  PUSH _T%,&HFF706756
  91.  PUSH _T%,&HFF6F6453
  92.  PUSH _T%,&HFF232324
  93.  PUSH _T%,&HFF4AA427
  94.  PUSH _T%,&HFF645845
  95. END
  96. 'マップ
  97. COMMON DEF __GETMAP$ _C$[]
  98.  'BGIDX    00------------------10------------------20--------
  99.  '          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
  100.  PUSH _C$,"01020302040205030506060703060202010202020107070202" '0
  101.  PUSH _C$,"02030502000000000003080900000000000000020302020102" '1
  102.  PUSH _C$,"02050403000000000007010000000000000000000201070707" '2
  103.  PUSH _C$,"05020202000000000006070000000000000000000000030202" '3
  104.  PUSH _C$,"02040202000000000009090000000000000000000007070700" '4
  105.  PUSH _C$,"0201000000000000000009000A0A0A0A0A00000B0007000000" '5
  106.  PUSH _C$,"0500000000000000000006070807080708070C070700000000" '6
  107.  PUSH _C$,"020000000000000000000000000D00000D000E000000000000" '7
  108.  PUSH _C$,"010000000000000000000000050504060F000E000000001002" '8
  109.  PUSH _C$,"00110000000000000000000505000012120802000000100202" '9
  110.  PUSH _C$,"02130C00000000000000000005000200121202140000070102" '10
  111.  PUSH _C$,"020F0E00000503140000000000001002001209000014090407" '11
  112.  PUSH _C$,"01050E00050604051400150000001602140000001409090707" '12
  113.  PUSH _C$,"020305050F03050F050F050102020202000000141717030202" '13
  114.  PUSH _C$,"02070701090709070409090904090109050902040909020402" '14
  115. END
  116.  
  117. 'アカスイッチ
  118. DEF REDSW(X%[],Y%[])
  119.  X%[0]=14:Y%[0]=12
  120.  RETURN 1-1
  121. END
  122.  
  123. 'このぎょうをぜったいにけさないこと! ここまでプログラムによるせいせい
  124.  
  125. 'どうくつマップいち
  126. COMMON DEF __GETSMAPPOS OUT X%,Y%
  127.  X%=1
  128.  Y%=0
  129. END
  130.  
  131. 'りんせつマップばんごう
  132. COMMON DEF __GETMVMAP(_P%)
  133.  IF _P%==1 THEN RETURN -1 'うえ
  134.  IF _P%==2 THEN RETURN 18 'した
  135.  IF _P%==4 THEN RETURN 10 'ひだり
  136.  IF _P%==8 THEN RETURN 16 'みぎ
  137. END
  138.  
  139. COMMON DEF __STARTPOS OUT _X%,_Y%
  140.  _X%=24
  141.  _Y%=7
  142. END
  143.  
  144. 'マップせいせいかんりょうごしょり
  145. COMMON DEF __START
  146.  GDFFRCLR
  147.  
  148.  'せきばん
  149.  {X:"__MONOLITH",19,5}
  150.  
  151.  'ホネ
  152.  {X:"__HONE",10,12}
  153.  
  154.  'ワナ
  155.  {X:"__TRAP",14,12}
  156.  
  157.  'カベそうちイベント
  158.  IF {F.BIT:1} THEN KAIDAN FALSE
  159.  {F.FRSET:1,&H09}
  160.  {X:"__SWITCH",12,5}
  161.  {X:"__SWITCH",13,5}
  162.  {X:"__SWITCH",14,5}
  163.  {X:"__SWITCH",15,5}
  164.  {X:"__SWITCH",16,5}
  165.  
  166.  'アイテム
  167.  IF {F.BIT:0}==0 THEN
  168.   {ITEM:"__GETITEM",6,10,cI_BBAG}
  169.  ENDIF
  170.  
  171.  'いわ
  172.  IF {F.BIT:2} THEN
  173.   {BG.CLR:1,9}
  174.  ELSE
  175.   {B:"__IWA",1,9}
  176.  ENDIF
  177.  
  178. END
  179.  
  180. 'BGM
  181. COMMON DEF __GETBGM()
  182.  IF {ESCAPE} THEN
  183.   RETURN cBGM_ESC
  184.  ENDIF
  185.  RETURN cBGM_CAVE
  186. END
  187.  
  188. '============================================
  189. 'ビットフラグ
  190. '============================================
  191. '0:バクダンぶくろ
  192. '1:かくしかいだん
  193. '2:いわ
  194. '3:
  195. '4:
  196. '5:
  197. '6:
  198. '7:
  199. '============================================
  200. 'イベントていぎ
  201. '============================================
  202.  
  203. COMMON DEF __MONOLITH(X%,Y%)
  204.  {MSG:"      - WALL CONTROLLER -"}
  205.  {T}
  206. END
  207.  
  208. COMMON DEF __HONE(X%,Y%)
  209.  M$=   "I'm finished..|"
  210.  M$=M$+"Shouldn't have pressed"
  211.  M$=M$+"that switch recklessly..|"
  212.  '-------------------
  213.  M$=M$+"Take my Bomb Bag|"
  214.  M$=M$+"May I rest in pieces..|"
  215.  {MSG:M$}
  216.  {T}
  217. END
  218.  
  219. DEF KAIDAN EF%
  220.  FOR I%=11 TO 14
  221.   N%=(I%==11)*2
  222.   IF EF% THEN {EF.BOMB:6,I%}
  223.   {BG.PUT:&H0E-N%,&H0010+N%,6,I%}
  224.   IF EF% THEN WAIT 8
  225.  NEXT
  226. END
  227.  
  228. COMMON DEF __TRAP(X%,Y%)
  229.  {BG.SWRON:X%,Y%}
  230.  
  231.  IF {F.FRGET:0}==5 THEN
  232.   'かくしかいだん しゅつげん
  233.   IF {F.BIT:1}==0 THEN
  234.    {F.BITON:1}
  235.    {SE.OK}
  236.    KAIDAN TRUE
  237.   ENDIF
  238.   {F}
  239.  ENDIF
  240.  
  241.  'スイッチがただしくないと トラップはつどう
  242.  {SE:121}
  243.  WAIT 38
  244.  {SE:121}
  245.  {MSG:"              !!!"}
  246.  FOR I%=4 TO 8
  247.   {EF.BOMB:I%,0}
  248.   {BG.PUT:0,0,I%,0}
  249.   WAIT 8
  250.  NEXT
  251.  WAIT 30
  252.  
  253.  {E.SLMRED:"__EMYGEN",4,0}
  254.  {E.BAT:"__EMYGEN",5,0}
  255.  {E.BAT:"__EMYGEN",6,0}
  256.  {E.BAT:"__EMYGEN",7,0}
  257.  {E.SLMRED:"__EMYGEN",8,0}
  258.  {F}
  259. END
  260.  
  261. 'パズルスイッチ
  262. COMMON DEF __SWITCH(X%,Y%)
  263.  B%=1<<(X%-12)
  264.  F%={F.FRGET:0}
  265.  IF F% AND B% THEN
  266.   {BG.SWOFF:X%,Y%}
  267.  ELSE
  268.   {BG.SWON:X%,Y%}
  269.  ENDIF
  270.  {F.FRSET:0,F% XOR B%}
  271.  
  272.  B%=X%-12
  273.  F%={F.FRGET:1}
  274.  V%=F% XOR ((&H38>>B%)AND 31)
  275.  {F.FRSET:1,V%}
  276.  FOR I%=0 TO 4
  277.   IF (V% AND 1)!=(F% AND 1) THEN
  278.    P%=(V% AND 1)*&H0D
  279.    {EF.BOMB:16-I%,7}
  280.    {BG.PUT:P%,&H0F*P%,16-I%,7}
  281.    WAIT 15
  282.   ENDIF
  283.   V%=V%>>1
  284.   F%=F%>>1
  285.  NEXT
  286.  
  287.  'かんりょうはんてい
  288.  IF {F.FRGET:1}==0 THEN
  289.   '{F.BITON:1}
  290.   {SE.OK}
  291.   FOR I%=12 TO 16
  292.    {X.RM:I%,5}
  293.   NEXT
  294.  ENDIF
  295.  {T}
  296. END
  297.  
  298. COMMON DEF __GETITEM(X%,Y%)
  299.  {F.BITON:0}
  300.  {IGET:cI_BBAG,"It's a Bomb Bag!Use bombs to demolish rocksor deal damage to enemies!"}
  301.  {F}
  302. END
  303.  
  304. COMMON DEF __IWA(X%,Y%)
  305.  {F.BITON:2}
  306.  {F}
  307. END
  308.  
  309. COMMON DEF __EMYGEN S%
  310.  X%=4+RND(5)
  311.  IF RND(2)==0 THEN
  312.   {E.BAT:"__EMYGEN",X%,0}
  313.  ELSE
  314.   {E.SLMRED:"__EMYGEN",X%,0}
  315.  ENDIF
  316.  {EF.BOMB:X%,0}
  317. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement