home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 1 / FREEWARE.BIN / basic / isoge / isoge.bas next >
BASIC Source File  |  1989-10-17  |  15KB  |  351 lines
  1. 1000 '****************************************************************
  2. 1010 '**                                                            **
  3. 1020 '**   ＰＵＺＺＬＥ　ＧＡＭＥ　『ＩＳＯＧＥ』                   **
  4. 1030 '**                                                            **
  5. 1040 '**                           Programmed by 鶴田ピンチ         **
  6. 1050 '**                                                            **
  7. 1060 '****************************************************************
  8. 1070 '**********  配列設定
  9. 1080 DIM PL1%(255),PL2%(255),PL3%(255),PL4%(255),PL5%(255),PL6%(255),PL7%(255),PL8%(255),PL9%(255),PL10%(255)
  10. 1090 DIM PL11%(255),PL12%(255),PL13%(255),PL14%(255),PL15%(255),PL16%(255),PL17%(255),BPL%(255),TAMA%(255),HAND%(255)
  11. 1100 DIM M(5,5),N(5,5)
  12. 1110 '**********  メッセージ
  13. 1120 SCREEN@1:CLS
  14. 1130 LOCATE 13,10:PRINT"パターンリード中です。しばらくお待ち下さい。";
  15. 1140 '**********  パターンリード
  16. 1150 OPEN "I",#1,"PLATE11.PTN"
  17. 1160 FOR D=0 TO 255
  18. 1170     INPUT #1,PL1%(D),PL2%(D),PL3%(D),PL4%(D)
  19. 1180     IF PL1%(D)=-32768 THEN PL1%(D)=0
  20. 1190     IF PL2%(D)=-32768 THEN PL2%(D)=0
  21. 1200     IF PL3%(D)=-32768 THEN PL3%(D)=0
  22. 1210     IF PL4%(D)=-32768 THEN PL4%(D)=0
  23. 1220 NEXT
  24. 1230 CLOSE:PRINT"・";
  25. 1240 OPEN "I",#1,"PLATE22.PTN"
  26. 1250 FOR D=0 TO 255
  27. 1260     INPUT #1,PL5%(D),PL6%(D),PL7%(D),PL8%(D)
  28. 1270     IF PL5%(D)=-32768 THEN PL5%(D)=0
  29. 1280     IF PL6%(D)=-32768 THEN PL6%(D)=0
  30. 1290     IF PL7%(D)=-32768 THEN PL7%(D)=0
  31. 1300     IF PL8%(D)=-32768 THEN PL8%(D)=0
  32. 1310 NEXT
  33. 1320 CLOSE:PRINT"・";
  34. 1330 OPEN "I",#1,"PLATE33.PTN"
  35. 1340 FOR D=0 TO 255
  36. 1350     INPUT #1,PL9%(D),PL10%(D),PL11%(D),PL12%(D)
  37. 1360     IF PL9%(D)=-32768 THEN PL9%(D)=0
  38. 1370     IF PL10%(D)=-32768 THEN PL10%(D)=0
  39. 1380     IF PL11%(D)=-32768 THEN PL11%(D)=0
  40. 1390     IF PL12%(D)=-32768 THEN PL12%(D)=0
  41. 1400 NEXT
  42. 1410 CLOSE:PRINT"・";
  43. 1420 OPEN "I",#1,"PLATE44.PTN"
  44. 1430 FOR D=0 TO 255
  45. 1440     INPUT #1,PL13%(D),PL14%(D),PL15%(D),PL16%(D)
  46. 1450     IF PL13%(D)=-32768 THEN PL13%(D)=0
  47. 1460     IF PL14%(D)=-32768 THEN PL14%(D)=0
  48. 1470     IF PL15%(D)=-32768 THEN PL15%(D)=0
  49. 1480     IF PL16%(D)=-32768 THEN PL16%(D)=0
  50. 1490 NEXT
  51. 1500 CLOSE:PRINT"・";
  52. 1510 OPEN "I",#1,"PLATE55.PTN"
  53. 1520 FOR D=0 TO 255
  54. 1530     INPUT #1,PL17%(D),BPL%(D),TAMA%(D),HAND%(D)
  55. 1540     IF PL17%(D)=-32768 THEN PL17%(D)=0
  56. 1550     IF BPL%(D)=-32768 THEN BPL%(D)=0
  57. 1560 NEXT
  58. 1570 CLOSE
  59. 1580 '**********  初期設定
  60. 1590 SPRITE ON
  61. 1600 SPRITE SCREEN (0,0):SPRITE SCREEN 0
  62. 1610 DEF SPRITE 0,0,TAMA%,1
  63. 1620 DEF SPRITE 0,4,HAND%,1
  64. 1622 TTT$="00:00:01"
  65. 1625 TIME TTT$
  66. 1630 '**********
  67. 1640 MEN=1:NOKORI=5
  68. 1650 '**********  マップデータ読み込み
  69. 1655 TIME OFF
  70. 1660 FOR D1=0 TO 4
  71. 1670    FOR D2=0 TO 4
  72. 1680       READ M(D1,D2)
  73. 1690       N(D1,D2)=M(D1,D2)
  74. 1700    NEXT
  75. 1710 NEXT
  76. 1720 READ STARTX
  77. 1730 READ STARTY
  78. 1740 READ GOALX
  79. 1750 READ GOALY
  80. 1760 '**********  初期設定II
  81. 1770 TIMER=3000:MTI=500:DTIM=90:MUKI=5:IX=0:IY=1
  82. 1775 PLAY OFF
  83. 1780 CLS:PAINT(0,0),[128,48,80]
  84. 1790 LINE(33,28)-(146,141),PSET,7,BF
  85. 1795 GOSUB 5000
  86. 1800 '**********  マップの表示
  87. 1810 FOR D1=0 TO 4
  88. 1820     FOR D2=0 TO 4
  89. 1830        DD1=D1*16+50:DD2=D2*16+45
  90. 1840        MD=M(D1,D2)
  91. 1850        IF MD=0 THEN 1870
  92. 1860        ON MD GOTO 1880,1890,1900,1910,1920,1930,1940,1950,1960,1970,1980,1990,2000,2010,2020,2030,2040
  93. 1870        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),BPL%:GOTO 2050
  94. 1880        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL1%:GOTO 2050
  95. 1890        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL2%:GOTO 2050
  96. 1900        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL3%:GOTO 2050
  97. 1910        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL4%:GOTO 2050
  98. 1920        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL5%:GOTO 2050
  99. 1930        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL6%:GOTO 2050
  100. 1940        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL7%:GOTO 2050
  101. 1950        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL8%:GOTO 2050
  102. 1960        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL9%:GOTO 2050
  103. 1970        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL10%:GOTO 2050
  104. 1980        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL11%:GOTO 2050
  105. 1990        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL12%:GOTO 2050
  106. 2000        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL13%:GOTO 2050
  107. 2010        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL14%:GOTO 2050
  108. 2020        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL15%:GOTO 2050
  109. 2030        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL16%:GOTO 2050
  110. 2040        PUT@ A(DD1,DD2)-(DD1+15,DD2+15),PL17%:GOTO 2050
  111. 2050     NEXT
  112. 2060 NEXT
  113. 2070 SRX=STARTX*16+50:SRY=STARTY*16+45
  114. 2080 GAX=GOALX*16+50:GAY=GOALY*16+45
  115. 2090 PUT@ A(SRX,SRY)-(SRX+15,SRY+15),PL1%
  116. 2100 IF GOALX=-1 OR GOALX=5 THEN PUT@ A(GAX,GAY)-(GAX+15,GAY+15),PL2%:GOTO 2120
  117. 2110 PUT@ A(GAX,GAY)-(GAX+15,GAY+15),PL1%
  118. 2120 '**********  マウス設定
  119. 2130 MOUSE 5:MOUSE 0
  120. 2140 MOUSE 4,55,50,120,120
  121. 2150 MOUSE 1,80,80,0
  122. 2160 DEF SPRITE 1,4,(80,80),4,1,1
  123. 2170 SPRITE 0,4,1
  124. 2180 ON MOUSE (1) GOSUB 3100
  125. 2190 ON MOUSE (2) GOSUB 2740
  126. 2195 ON MOUSE (4) GOSUB 5500
  127. 2200 MOUSE (1) ON:MOUSE (2) ON:MOUSE (4) ON
  128. 2210 '**********  スプライト設定
  129. 2220 DEF SPRITE 1,0,(SRX,SRY),0,1,1
  130. 2230 SPRITE 0,0,1
  131. 2232 '********** タイマ設定
  132. 2234 TIME$=TTT$
  133. 2236 ON TIME GOSUB 6000
  134. 2239 TIME ON
  135. 2240 '**********  たまの移動
  136. 2250 'IDOU=1
  137. 2260 TAMX=SPRITE(0,6):TAMY=SPRITE(0,7)
  138. 2270 IF ((TAMX=GAX) AND (TAMY=GAY)) THEN 3150
  139. 2280 LX=TAMX+7:LY=TAMY+7:'*****  センター位置
  140. 2290 TMAPX=(LX-50) \ 16:TMAPY=(LY-45) \ 16
  141. 2300 ON MUKI GOSUB 2340,2390,2440,2490,2540,2590,2640,2690
  142. 2310 SPRITE 6,0,IX,IY
  143. 2320 SPRITE 6,0,IX,IY:IDOU=0:FOR T=1 TO TIMER:NEXT
  144. 2330 GOTO 2240
  145. 2340 '**********  上に移動
  146. 2350 IF POINT(LX,LY-1)=0 THEN RETURN
  147. 2360 IF POINT(LX+1,LY-1)=0 THEN IX=1:IY=-1:MUKI=2:RETURN
  148. 2370 IF POINT(LX-1,LY-1)=0 THEN IX=-1:IY=-1:MUKI=8:RETURN
  149. 2380 GOTO 3330
  150. 2390 '**********  右上に移動
  151. 2400 IF POINT(LX+1,LY-1)=0 THEN HX=0:HY=0:RETURN
  152. 2410 IF POINT(LX+1,LY)=0 THEN IX=1:IY=0:MUKI=3:HX=1:HY=0:RETURN
  153. 2420 IF POINT(LX,LY-1)=0 THEN IX=0:IY=-1:MUKI=1:HX=0:HY=-1:RETURN
  154. 2430 GOTO 3330
  155. 2440 '**********  右に移動
  156. 2450 IF POINT(LX+1,LY)=0 THEN RETURN
  157. 2460 IF POINT(LX+1,LY+1)=0 THEN IX=1:IY=1:MUKI=4:RETURN
  158. 2470 IF POINT(LX+1,LY-1)=0 THEN IX=1:IY=-1:MUKI=2:RETURN
  159. 2480 GOTO 3330
  160. 2490 '**********  右下に移動
  161. 2500 IF POINT(LX+1,LY+1)=0 THEN RETURN
  162. 2510 IF POINT(LX,LY+1)=0 THEN IX=0:IY=1:MUKI=5:RETURN
  163. 2520 IF POINT(LX+1,LY)=0 THEN IX=1:IY=0:MUKI=3:RETURN
  164. 2530 GOTO 3330
  165. 2540 '**********  下に移動
  166. 2550 IF POINT(LX,LY+1)=0 THEN RETURN
  167. 2560 IF POINT(LX-1,LY+1)=0 THEN IX=-1:IY=1:MUKI=6:RETURN
  168. 2570 IF POINT(LX+1,LY+1)=0 THEN IX=1:IY=1:MUKI=4:RETURN
  169. 2580 GOTO 3330
  170. 2590 '**********  左下に移動
  171. 2600 IF POINT(LX-1,LY+1)=0 THEN RETURN
  172. 2610 IF POINT(LX-1,LY)=0 THEN IX=-1:IY=0:MUKI=7:RETURN
  173. 2620 IF POINT(LX,LY+1)=0 THEN IX=0:IY=1:MUKI=5:RETURN
  174. 2630 GOTO 3330
  175. 2640 '**********  左に移動
  176. 2650 IF POINT(LX-1,LY)=0 THEN RETURN
  177. 2660 IF POINT(LX-1,LY-1)=0 THEN IX=-1:IY=-1:MUKI=8:RETURN
  178. 2670 IF POINT(LX-1,LY+1)=0 THEN IX=-1:IY=1:MUKI=6:RETURN
  179. 2680 GOTO 3330
  180. 2690 '**********  左上に移動
  181. 2700 IF POINT(LX-1,LY-1)=0 THEN RETURN
  182. 2710 IF POINT(LX,LY-1)=0 THEN IX=0:IY=-1:MUKI=1:RETURN
  183. 2720 IF POINT(LX-1,LY)=0 THEN IX=-1:IY=0:MUKI=7:RETURN
  184. 2730 GOTO 3330
  185. 2740 '**********  クリック位置の割り出しと移動出来るかの判定
  186. 2750 'IF IDOU=1 THEN RETURN
  187. 2752 TAMX=SPRITE(0,6):TAMY=SPRITE(0,7)
  188. 2754 LX=TAMX+7:LY=TAMY+7:'*****  センター位置
  189. 2756 TMAPX=(LX-50) \ 16:TMAPY=(LY-45) \ 16
  190. 2760 X=MOUSE(0):Y=MOUSE(1)
  191. 2770 XX=(X-50) \ 16:YY=(Y-45) \ 16 
  192. 2780 IF XX=4 THEN 2790 ELSE IF M(XX+1,YY)=0 THEN BX=XX+1:BY=YY:X=16:Y=0:GOTO 2830
  193. 2790 IF XX=0 THEN 2800 ELSE IF M(XX-1,YY)=0 THEN BX=XX-1:BY=YY:X=-16:Y=0:GOTO 2830
  194. 2800 IF YY=4 THEN 2810 ELSE IF M(XX,YY+1)=0 THEN BX=XX:BY=YY+1:X=0:Y=16:GOTO 2830
  195. 2810 IF YY=0 THEN 2820 ELSE IF M(XX,YY-1)=0 THEN BX=XX:BY=YY-1:X=0:Y=-16:GOTO 2830
  196. 2820 RETURN
  197. 2830 '**********  プレートの入替え
  198. 2840 IF ((XX=TMAPX) AND (YY=TMAPY)) THEN SPRITE 6,0,X,Y
  199. 2850 XXX=XX*16+50:YYY=YY*16+45
  200. 2860 BXX=BX*16+50:BYY=BY*16+45
  201. 2870 MD=M(XX,YY)
  202. 2880 M(BX,BY)=MD
  203. 2890 M(XX,YY)=0
  204. 2900 ON MD GOTO 2910,2920,2930,2940,2950,2960,2970,2980,2990,3000,3010,3020,3030,3040,3050,3060,3070
  205. 2910 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL1%:GOTO 3080
  206. 2920 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL2%:GOTO 3080
  207. 2930 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL3%:GOTO 3080
  208. 2940 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL4%:GOTO 3080
  209. 2950 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL5%:GOTO 3080
  210. 2960 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL6%:GOTO 3080
  211. 2970 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL7%:GOTO 3080
  212. 2980 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL8%:GOTO 3080
  213. 2990 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL9%:GOTO 3080
  214. 3000 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL10%:GOTO 3080
  215. 3010 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL11%:GOTO 3080
  216. 3020 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL12%:GOTO 3080
  217. 3030 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL13%:GOTO 3080
  218. 3040 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL14%:GOTO 3080
  219. 3050 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL15%:GOTO 3080
  220. 3060 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL16%:GOTO 3080
  221. 3070 PUT@ A(BXX,BYY)-(BXX+15,BYY+15),PL17%:GOTO 3080
  222. 3080 PUT@ A(XXX,YYY)-(XXX+15,YYY+15),BPL%
  223. 3090 RETURN
  224. 3100 '**********  マウス移動
  225. 3110 MOUX=MOUSE(9)
  226. 3120 MOUY=MOUSE(10)
  227. 3130 SPRITE 6,4,MOUX,MOUY
  228. 3140 RETURN
  229. 3150 '**********  クリア
  230. 3160 'TIMER=TIMER-150
  231. 3170 IF MEN=20 THEN 3280
  232. 3180 IF (MEN MOD 5)=0 THEN GOSUB 3210
  233. 3190 MEN=MEN+1
  234. 3200 GOTO 1650
  235. 3210 '**********  ブレークタイム
  236. 3220 MOUSE 5:SPRITE OFF:CLS
  237. 3230 LOCATE 10,5:PRINT MEN;"面クリアしました。お疲れさまです｡"
  238. 3240 LOCATE 10,10:PRINT"次の面に進みます｡キーを押してください｡"
  239. 3250 IF INPUT$(1)="" THEN 3250
  240. 3260 MOUSE 0:SPRITE ON
  241. 3270 RETURN
  242. 3280 '**********  オールクリア
  243. 3290 MOUSE 5:SPRITE OFF:CLS
  244. 3300 COLOR 3:LOCATE 10,5:PRINT"おめでとー！！全面クリアしました。"
  245. 3310 COLOR 5:LOCATE 10,10:PRINT"あんたはエライ！！！！！！！！"
  246. 3320 GOTO 3440
  247. 3330 '**********  脱線
  248. 3335 PLAY OFF:PLAY ON:PLAY"O5L24EL24EL24EO4L16B+":FOR T=1 TO 10000:NEXT:PLAY OFF
  249. 3340 NOKORI=NOKORI-1
  250. 3350 IF NOKORI<1 THEN 3420
  251. 3360 FOR D1=0 TO 4
  252. 3370     FOR D2=0 TO 4
  253. 3380        M(D1,D2)=N(D1,D2)
  254. 3390     NEXT
  255. 3400 NEXT
  256. 3405 TIME OFF
  257. 3410 GOTO 1760
  258. 3420 '**********  リプレイ
  259. 3430 MOUSE 5:SPRITE OFF:TIME OFF:CLS
  260. 3440 COLOR 7:LOCATE 10,15:INPUT"もう一度ＰＬＡＹしますか？",Z$
  261. 3450 IF Z$="Y" OR Z$="y" THEN RESTORE 10000:SPRITE ON:GOTO 1630
  262. 3460 MOUSE 5:END
  263. 5000 '********** 描画
  264. 5010 LINE(40,185)-(59,195),PSET,2,BF
  265. 5020 LINE(60,185)-(129,195),PSET,1,BF
  266. 5030 LINE(39,184)-(130,196),PSET,0,B
  267. 5040 CONNECT (40,170)-(50,170)-(50,172)-(46,172)-(46,180)-(44,180)-(44,172)-(40,172)-(40,170),5,PSET:PAINT(41,171),5
  268. 5050 LINE(52,170)-(54,180),PSET,5,BF
  269. 5060 CONNECT(56,170)-(58,170)-(61,174)-(64,170)-(66,170)-(66,180)-(64,180)-(64,173)-(61,180)-(58,173)-(58,180)-(56,180)-(56,170),5,PSET:PAINT(61,175),5:PAINT(57,171),5
  270. 5070 CONNECT(68,170)-(78,170)-(78,172)-(70,172)-(70,174)-(75,174)-(75,176)-(70,176)-(70,178)-(78,178)-(78,180)-(68,180)-(68,170),5,PSET:PAINT(69,171),5
  271. 5100 SYMBOL(170,45),"パズルゲーム",1,1,[32,32,128]
  272. 5110 SYMBOL(200,80),"ＩＳＯＧＥ",1,1,[32,128,32]
  273. 5120 SYMBOL(160,120),"Ｐｒｅｓｅｎｔｅｄ",1,1,[32,128,160]
  274. 5130 SYMBOL(260,140),"Ｂｙ",1,1,[32,128,160]
  275. 5140 SYMBOL(220,160),"鶴田ピンチ",1,1,[255,128,128]
  276. 5210 RETURN
  277. 5500 '********** スピードアップ
  278. 5510 TIMER=TIMER-MTI
  279. 5520 IF TIMER=<500 THEN MTI=-MTI
  280. 5525 IF TIMER=>3000 THEN MTI=-MTI
  281. 5530 RETURN
  282. 6000 '********** 時間減らす
  283. 6010 '
  284. 6020 '
  285. 6022 DTIM=DTIM-1
  286. 6024 LINE(DTIM+40,185)-(DTIM+40,195),PSET,[128,48,80]
  287. 6025 IF DTIM<=20 THEN PLAY ON:PLAY "O5L16EL16C"
  288. 6030 IF DTIM=0 THEN GOTO 3330
  289. 6040 TIME$=TTT$
  290. 6050 RETURN
  291. 10000 '***** マップデータ
  292. 10010 DATA 3 , 6 , 8 , 14 , 12 , 5 , 15 , 17 , 3 , 15 , 9 , 1 , 13 , 5 , 13 , 0 , 5 , 4 , 1 , 4 , 1 , 9 , 6 , 3 , 17 
  293. 10020 DATA 0 ,-1 , 4 , 5 
  294. 10030 '***** マップデータ
  295. 10040 DATA 4 , 3 , 3 , 3 , 2 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 3 , 1 , 1 , 1 , 1 , 3 , 3 , 3 , 3 , 3 , 0 
  296. 10050 DATA 3 ,-1 ,-1 , 4 
  297. 10060 '***** マップデータ
  298. 10070 DATA 9 , 3 , 3 , 2 , 16 , 0 , 14 , 12 , 13 , 4 , 2 , 8 , 7 , 13 , 15 , 14 , 13 , 4 , 16 , 2 , 8 , 14 , 1 , 17 , 14 
  299. 10080 DATA 4 ,-1 , 4 , 5 
  300. 10090 '***** マップデータ
  301. 10100 DATA 1 , 13 , 3 , 6 , 2 , 17 , 4 , 11 , 3 , 4 , 5 , 1 , 10 , 4 , 15 , 3 , 15 , 6 , 9 , 14 , 4 , 0 , 5 , 10 , 2 
  302. 10110 DATA 0 ,-1 , 5 , 0 
  303. 10120 '***** マップデータ
  304. 10130 DATA 12 , 4 , 12 , 13 , 2 , 13 , 3 , 13 , 3 , 15 , 0 , 17 , 6 , 4 , 15 , 2 , 10 , 11 , 15 , 13 , 3 , 1 , 1 , 1 , 14 
  305. 10140 DATA 1 ,-1 , 4 , 5 
  306. 10150 '***** マップデータ
  307. 10160 DATA 0 , 14 , 17 , 13 , 2 , 4 , 9 , 15 , 7 , 2 , 13 , 15 , 15 , 15 , 13 , 3 , 12 , 15 , 8 , 2 , 2 , 14 , 16 , 13 , 2 
  308. 10170 DATA 2 ,-1 , 2 , 5 
  309. 10180 '***** マップデータ
  310. 10190 DATA 1 , 3 , 12 , 2 , 17 , 14 , 15 , 3 , 16 , 12 , 14 , 2 , 6 , 0 , 2 , 3 , 10 , 17 , 8 , 3 , 16 , 8 , 11 , 5 , 1 
  311. 10200 DATA 3 ,-1 , 0 , 5 
  312. 10210 '***** マップデータ
  313. 10220 DATA 3 , 1 , 1 , 14 , 14 , 2 , 14 , 14 , 14 , 14 , 2 , 14 , 14 , 14 , 14 , 2 , 14 , 14 , 14 , 14 , 0 , 14 , 14 , 14 , 13 
  314. 10230 DATA 0 ,-1 ,-1 , 0 
  315. 10240 '***** マップデータ
  316. 10250 DATA 4 , 17 , 17 , 17 , 3 , 14 , 4 , 1 , 3 , 13 , 2 , 15 , 0 , 15 , 2 , 14 , 3 , 1 , 4 , 13 , 3 , 16 , 16 , 16 , 4 
  317. 10260 DATA 2 ,-1 , 2 , 5 
  318. 10270 '***** マップデータ
  319. 10280 DATA 9 , 1 , 1 , 1 , 1 , 0 , 4 , 15 , 11 , 17 , 10 , 15 , 4 , 15 , 14 , 4 , 3 , 12 , 16 , 2 , 13 , 9 , 1 , 1 , 4 
  320. 10290 DATA 4 ,-1 ,-1 , 2 
  321. 10300 '***** マップデータ
  322. 10310 DATA 15 , 3 , 1 , 4 , 15 , 3 , 15 , 17 , 15 , 4 , 0 , 14 , 15 , 13 , 2 , 4 , 15 , 16 , 15 , 3 , 15 , 4 , 1 , 3 , 15 
  323. 10320 DATA 1 ,-1 , 3 , 5 
  324. 10330 '***** マップデータ
  325. 10340 DATA 17 , 14 , 1 , 13 , 17 , 12 , 4 , 15 , 3 , 12 , 1 , 13 , 0 , 14 , 2 , 11 , 3 , 15 , 4 , 11 , 16 , 14 , 1 , 13 , 16 
  326. 10350 DATA 2 ,-1 , 2 , 5 
  327. 10360 '***** マップデータ
  328. 10370 DATA 9 , 7 , 17 , 16 , 1 , 14 , 16 , 14 , 9 , 17 , 15 , 8 , 8 , 10 , 4 , 4 , 2 , 15 , 2 , 11 , 0 , 4 , 13 , 15 , 13 
  329. 10380 DATA 4 ,-1 , 4 , 5 
  330. 10390 '***** マップデータ
  331. 10400 DATA 15 , 1 , 15 , 1 , 15 , 2 , 15 , 2 , 15 , 2 , 15 , 1 , 0 , 1 , 15 , 2 , 15 , 2 , 15 , 2 , 15 , 1 , 15 , 1 , 15 
  332. 10410 DATA 2 ,-1 , 2 , 5 
  333. 10420 '***** マップデータ
  334. 10430 DATA 13 , 0 , 15 , 4 , 14 , 2 , 3 , 9 , 16 , 3 , 16 , 12 , 1 , 15 , 1 , 2 , 4 , 4 , 13 , 17 , 14 , 17 , 9 , 11 , 3 
  335. 10440 DATA 0 ,-1 , 4 , 5 
  336. 10450 '***** マップデータ
  337. 10460 DATA 1 , 1 , 1 , 1 , 1 , 10 , 1 , 1 , 1 , 17 , 13 , 1 , 0 , 1 , 2 , 9 , 1 , 1 , 1 , 16 , 1 , 1 , 1 , 1 , 1 
  338. 10470 DATA 2 ,-1 , 5 , 2 
  339. 10480 '***** マップデータ
  340. 10490 DATA 3 , 4 , 3 , 4 , 3 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 3 , 4 , 3 , 4 , 0 
  341. 10500 DATA 0 ,-1 , 1 ,-1 
  342. 10510 '***** マップデータ
  343. 10520 DATA 13 , 14 , 13 , 14 , 13 , 14 , 13 , 14 , 13 , 14 , 13 , 14 , 13 , 14 , 13 , 14 , 13 , 14 , 13 , 14 , 13 , 14 , 13 , 0 , 13 
  344. 10530 DATA 2 ,-1 , 0 , 5 
  345. 10540 '***** マップデータ
  346. 10550 DATA 2 , 2 , 0 , 2 , 3 , 2 , 2 , 2 , 2 , 2 , 3 , 14 , 4 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 4 
  347. 10560 DATA 2 ,-1 , 2 , 5 
  348. 10570 '***** マップデータ
  349. 10580 DATA 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 15 , 0 , 15 , 15 , 15 
  350. 10590 DATA 4 ,-1 ,-1 , 4 
  351.