home *** CD-ROM | disk | FTP | other *** search
/ SeeIn AO / ALICE-CD.BIN / ‚g‚s‚l‚k / update / tt_fix.lzh / TT_FIX / SRC_FIX.LZH / SUBCALL.ADV < prev   
Text File  |  1998-01-06  |  22KB  |  903 lines
  1. ;
  2. ;  ô¼É_ôsÄs for System3.5  "âTâuâRü[âï"
  3. ;
  4.  
  5. ;=======================================================
  6. ;é`âRâ}âôâhè╓Éö(âLü[ôⁿù═æ╥é┐)
  7. ; in  : none
  8. ; out : none
  9. ;
  10. **A:
  11.   US RND,2:
  12.   {K_DAT\0:~K_CLR:}
  13.   {Y12_DAT=0:
  14.     {KEYMES_FLG\0:
  15.       ZC 1,14:
  16.       T 224,374:
  17.       'égéëéöü@éüéÄéÖü@éïéàéÖ'
  18.       ZC 1,15:
  19.     }
  20.     {Y52_DAT=0:
  21.       {K_DAT\0:!RND:1!<@RND\0:IK 6:>}
  22.       A
  23.     }
  24.     {Y52_DAT\0:~WAITK 50:Y1,0:}
  25.   }
  26.   {Y12_DAT\0:~WAITK 50:Y1,0:}
  27.   !K_DAT:0!
  28.   UG RND,2:
  29.   %0:
  30.  
  31. ;=======================================================
  32. ;éfâRâ}âôâhè╓Éö(ébéfé╠Æ╩ÅφôWèJ)
  33. ; in  : F01=CGö╘ìå
  34. ; out : none
  35. ;
  36. **GA F01:
  37.   US D01,1:
  38.   !D01:0!
  39.   <@(Y10_DAT[D01]\F01)*(Y10_DAT[D01]\0):!D01:D01+1!>
  40.   {Y10_DAT[D01]=F01:PC 1:}
  41.   G F01:
  42.   PC 7:
  43.   UG D01,1:
  44.   %0:
  45.  
  46. ;=======================================================
  47. ;éfâRâ}âôâhè╓Éö(ébéfé╠éréoôWèJ)
  48. ; in  : F01=CGö╘ìå,F02=SP╩▀┌»─ö╘ìå
  49. ; out : none
  50. ;
  51. **GB F01,F02:
  52.   US D01,1:
  53.   !D01:0!
  54.   <@(Y10_DAT[D01]\F01)*(Y10_DAT[D01]\0):!D01:D01+1!>
  55.   {Y10_DAT[D01]=F01:PC 1:}
  56.   ZC 0,2:
  57.   G F01,F02:
  58.   ZC 0,1:
  59.   PC 7:
  60.   UG D01,1:
  61.   %0:
  62.  
  63. ;=======================================================
  64. ;éfâRâ}âôâhè╓Éö(ébéfé╠ô┴ÄΩôWèJ)
  65. ; in  : F01=CGö╘ìå
  66. ; out : none
  67. ;
  68. **GC F01:
  69.   US D01,1:
  70.   !D01:0!
  71.   <@(Y10_DAT[D01]\F01)*(Y10_DAT[D01]\0):!D01:D01+1!>
  72.   {Y10_DAT[D01]=F01:PC 1:}
  73.   ZC 0,2:
  74.   G F01:
  75.   ZC 0,1:
  76.   PC 7:
  77.   UG D01,1:
  78.   %0:
  79.  
  80. ;=======================================================
  81. ;éxéTâRâ}âôâhè╓Éö(ébéfé╠âüâéâèâIâô)
  82. ; in  : F01=╩▀╫╥░└
  83. ; out : none
  84. ;
  85. **Y5 F01:
  86.   PC 0:
  87.   G F01:
  88.   PC 7:
  89.   %0:
  90.  
  91. ;=======================================================
  92. ;éxéVâRâ}âôâhè╓Éö(ëµû╩é╠âNâèâA)
  93. ; in  : F01=╩▀╫╥░└
  94. ; out : none
  95. ;
  96. **Y7 F01:
  97.   !F06:╠¬░─▐!
  98.   {F01=0:
  99.     WZ 0,0:{F06\0:~Y40 2:}
  100.     EC 1:
  101.     {WAKU_FLG\0:~Y9 1:~Y9 0:}
  102.     {F06\0:~Y40 1:}WZ 0,1:
  103.     %0:
  104.   }
  105.   {F01=1:
  106.     {F06\0:WZ 0,0:~Y40 2:}
  107.     EC 0:
  108.     {F06\0:~Y40 1:WZ 0,1:}
  109.     %0:
  110.   }
  111.   {F01=2:
  112.     {F06\0:WZ 0,0:~Y40 2:}
  113.     EC 2:
  114.     {F06\0:~Y40 1:WZ 0,1:}
  115.     %0:
  116.   }
  117.   %0:
  118.  
  119. ;=======================================================
  120. ;éxéXâRâ}âôâhè╓Éö(âXâeü[â^âXé╠ò\Īè╓ÿA)
  121. ; in  : F01=╩▀╫╥░└(0=╜├░└╜,1=▄╕,2=╕╪▒)
  122. ; out : none
  123. ;
  124. **Y9 F01:
  125.   US D01,4:
  126.   !F06:╠¬░─▐!
  127.   {F06\0:WZ 0,0:~Y40 2:}
  128.   B10,D01,D02:
  129.   {F01=0:                       ;âXâeü[â^âXé╠ò\Ī
  130.     ZH 1:
  131.     !D03:HP!!D04:HPM!
  132.     {D03>999:!D03:999!}{D04>999:!D04:999!}
  133.     \COLOR:
  134.     CF 560,220,25,16,10:
  135.     T 560,220:{D03<100:'éO'}{D03<10:'éO'}H0,D03:
  136.     ZC 1,15:
  137.     CF 592,220,25,16,10:
  138.     T 592,220:{D04<100:'éO'}{D04<10:'éO'}H0,D04:
  139.     !D03:ST!!D04:STM!
  140.     {D03>999:!D03:999!}{D04>999:!D04:999!}
  141.     \COLOR:
  142.     CF 560,240,25,16,10:
  143.     T 560,240:{D03<100:'éO'}{D03<10:'éO'}H0,D03:
  144.     ZC 1,15:
  145.     CF 592,240,25,16,10:
  146.     T 592,240:{D04<100:'éO'}{D04<10:'éO'}H0,D04:
  147.     CF 576,260,41,16,10:
  148.     T 576,260:{GOLD<10000:'éO'}{GOLD<1000:'éO'}
  149.     {GOLD<100:'éO'}{GOLD<10:'éO'}H0,GOLD:
  150.     ZH 0:
  151.   }
  152.   {F01=1:                       ;ÿgé╠ò`ëµ
  153.     CB 511,214,114,72,10:
  154.     CB 512,215,112,70,15:
  155.     CB 513,216,110,68,15:
  156.     CB 514,217,108,66,10:
  157.     CB 515,218,106,64,15:
  158.     CB 516,219,104,62,10:
  159.     ZC 1,14:
  160.     T 520,220:'æ╠ù═'
  161.     T 520,240:'ïCù═'
  162.     ZH 1:
  163.     T 584,220:'ü^'
  164.     T 584,240:'ü^'
  165.     ZC 1,12:
  166.     T 520,260:'éféÅéîéä'
  167.     ZC 1,15:
  168.     ZH 0:
  169.     !WAKU_FLG:1!
  170.   }
  171.   {F01=2:                       ;ÿgé╠Å┴ïÄ
  172.     CF 511,214,114,72,10:
  173.     !WAKU_FLG:0!
  174.   }
  175.   T D01,D02:
  176.   {F06\0:~Y40 1:WZ 0,1:}
  177.   UG D01,4:
  178.   %0:
  179.  
  180. *COLOR:
  181.   {D03=D04:ZC 1,15:}            ;100%     öÆ
  182.   {D03<D04:ZC 1,13:}            ;50ü`99%  ù╬
  183.   {D03<(D04/2):ZC 1,12:}        ;25ü`49%  ë⌐
  184.   {D03<(D04/4):ZC 1,11:}        ;01ü`24%  É╘
  185.   \0:
  186.  
  187. ;=======================================================
  188. ;éxéPéOâRâ}âôâhè╓Éö(ÄwÆΦébéfö╘ìåé╠âpâîâbâgé≡ôWèJé╡é╚éó)
  189. ; in  : F01=CGö╘ìå
  190. ; out : none
  191. ;
  192. **Y10 F01:
  193.   US D01,1:
  194.   !D01:0!
  195.   <@(Y10_DAT[D01]\F01)*(Y10_DAT[D01]\0):!D01:D01+1!>
  196.   {Y10_DAT[D01]=0:!Y10_DAT[D01]:F01!}
  197.   UG D01,1:
  198.   %0:
  199.  
  200. ;=======================================================
  201. ;éxéPéQâRâ}âôâhè╓Éö(âLü[ôⁿù═æ╥é┐é╠É╪éΦæ╓éª)
  202. ; in  : F01=╩▀╫╥░└
  203. ; out : none
  204. ;
  205. **Y12 F01:
  206.   !Y12_DAT:F01!
  207.   %0:
  208.  
  209. ;=======================================================
  210. ;éxéQéTâRâ}âôâhè╓Éö(æIæ≡Äêé╠ì└òWÉ▌ÆΦ)
  211. ; in  : F01=╩▀╫╥░└
  212. ; out : none
  213. ;
  214. **Y25 F01:
  215.   {F01=0:!F02:0!%0:}
  216.   {F02=0:!F03:F01*8!}
  217.   {F02=1:!F04:F01*20!}
  218.   {F02=2:!F05:F01*8-F03!}
  219.   {F02=3:!F06:F01*20-F04!B1,1,F03,F04,F05,F06,1:B2,1,1,0,0,0,0:}
  220.   !F02:F02+1!
  221.   %0:
  222.  
  223. ;=======================================================
  224. ;éxéQéUâRâ}âôâhè╓Éö(âüâbâZü[âWé╠ì└òWÉ▌ÆΦ)
  225. ; in  : F01=╩▀╫╥░└
  226. ; out : none
  227. ;
  228. **Y26 F01:
  229.   {F01=0:!F02:0!%0:}
  230.   {F02=0:!F03:F01*8!}
  231.   {F02=1:!F04:F01*20!}
  232.   {F02=2:!F05:F01*8-F03!}
  233.   {F02=3:!F06:F01*20-F04!B3,1,F03,F04,F05,F06,0:B4,1,0,0,0,0,0:}
  234.   !F02:F02+1!
  235.   %0:
  236.  
  237. ;=======================================================
  238. ;éxéQéVâRâ}âôâhè╓Éö(ôGégéoâQü[âWé╠ò\Ī)
  239. ; in  : F01=╩▀╫╥░└
  240. ; out : none
  241. ;
  242. **Y27 F01:
  243.   US D02,1:
  244.   !F06:╠¬░─▐!
  245.   !D01:F01!
  246.   !D02:MONS_MAX!
  247.   WZ 0,0:{F06\0:~Y40 2:}
  248.   {MONS_MAX=0:@Y27EX:}
  249.   CF 191,263,298,10,18:
  250.   {D01=0:@Y27EX:}
  251.   <@(D01*298)=65535:!D01:D01/2!!D02:D02/2!>
  252.   CF 191,263,D01*298/D02,10,19:
  253. *Y27EX:
  254.   {F06\0:~Y40 1:}WZ 0,1:
  255.   UG D02,1:
  256.   %0:
  257.  
  258. ;=======================================================
  259. ;éxéQéWâRâ}âôâhè╓Éö(âéâôâXâ^ü[ì┼æσÆlé╠É▌ÆΦ)
  260. ; in  : F01=╩▀╫╥░└
  261. ; out : none
  262. ;
  263. **Y28 F01:
  264.   !MONS_MAX:F01!
  265.   ~Y27 F01:
  266.   %0:
  267.  
  268. ;=======================================================
  269. ;éxéQéXâRâ}âôâhè╓Éö(ëµû╩é╠âtâëâbâVâà)
  270. ; in  : F01=╩▀╫╥░└
  271. ; out : none
  272. ;
  273. **Y29 F01:
  274.   US D01,1:
  275.   CK 3,0,0,504,298,224+8,32+8,8,0:
  276.   ~WAIT 3:
  277.   CK 3,0,0,504,298,32+8,224+8,8,0:
  278.   ~WAIT 1:
  279.   <D01,8,15,1,1:
  280.     CK 3,0,0,504,298,224+D01,32+D01,1,0:
  281.     ~WAIT 1:
  282.     CK 3,0,0,504,298,32+D01,224+D01,1,0:
  283.   >
  284.   UG D01,1:
  285.   %0:
  286.  
  287. ;=======================================================
  288. ;éxéRéOâRâ}âôâhè╓Éö(â}âbâvâfü[â^é╠ô╟é▌ì₧é▌)
  289. ; in  : F01=╩▀╫╥░└
  290. ; out : none
  291. ;
  292. **Y30 F01:
  293.   US RND,5:
  294.   !╔║╪:40!
  295.   #Y32_TBL,3:
  296.   
  297.   DF MAP_DAT4,105*105,0:
  298.   VR 1,1,MAP_DAT4:
  299.   
  300.   LL 0,F01,MAP_DAT1,50*100:     ;â}âbâvâfü[â^é╠ôWèJ(ë║ê╩âoâCâg)
  301.   !D03:0!
  302.   <D02,0,99,1,1:
  303.     <D01,0,99,1,2:
  304.       !D04:MAP_DAT1[D03]&0xFF!
  305.       !MAP_DAT2[100*D02+D01]:D04!
  306.       F3,RND,D04:
  307.       !MAP_DAT4[105*(D02+5)+(D01+5)]:RND!
  308.       !D03:D03+1!
  309.     >
  310.   >
  311.   
  312.   LL 0,F01,MAP_DAT1,50*100:     ;â}âbâvâfü[â^é╠ôWèJ(Åπê╩âoâCâg)
  313.   N/ MAP_DAT1,256,50*100:
  314.   !D03:0!
  315.   <D02,0,99,1,1:
  316.     <D01,1,99,1,2:
  317.       !D04:MAP_DAT1[D03]&0xFF!
  318.       !MAP_DAT2[100*D02+D01]:D04!
  319.       F3,RND,D04:
  320.       !MAP_DAT4[105*(D02+5)+(D01+5)]:RND!
  321.       !D03:D03+1!
  322.     >
  323.   >
  324.   
  325.   VR 0,3,MAP_DAT4:
  326.   UG RND,5:
  327.   %0:
  328.  
  329. ;=======================================================
  330. ;éxéRéPâRâ}âôâhè╓Éö(â}âbâvèOâåâjâbâgé╠ôoÿ^)
  331. ; in  : F01=╩▀╫╥░└
  332. ; out : none
  333. ;
  334. **Y31 F01:
  335.   !Y31_DAT:F01!
  336.   %0:
  337.  
  338. ;=======================================================
  339. ;éxéRéQâRâ}âôâhè╓Éö(â}âbâvê┌ô«é╠âüâCâôÅêù¥)
  340. ; in  : F01=╩▀╫╥░└
  341. ; out : none
  342. ;
  343. **Y32 F01:
  344.   US D01,6:
  345.   !K_DAT:1!
  346.   
  347.   {F01\0:PC 6:G37:PC 7:\PRINT:} ;Åëè·ò`ëµ
  348.   !RND:255!
  349.   <@RND=255:
  350.     #Y32_TBL,3:
  351.     <@1:
  352. *K_TOP:
  353.       VG 0,4,X+5,Y+5:!D02:RND!
  354.       
  355.       {D02=0:                   ;âLü[ôⁿù═æ╥é┐
  356.         IK 6:
  357.         <@(RND\1)*(RND\2)*(RND\4)*(RND\8)*(RND\16)*(RND\32)*(RND\64):IK 6:>
  358.         !D01:RND!
  359.         
  360.         IM D03,D04:             ;â}âEâXôⁿù═é╠ö╗ÆΦ
  361.         {(RND=16)*(31<D03)*(31<D04)*(D03<209)*(D04<209):
  362.           !D01:D03!!D06:D04!
  363.           !D03:(D03-32)/16+X!!D04:(D04-32)/16+Y!
  364.           
  365.           !D05:0!
  366.           VH 0,X+5,Y+5,1,1,20:  ;òαÉöâyâCâôâgé╡é─ùLî°ö═ê═é╚éτê┌ô«ôoÿ^
  367.           {(D03<105)*(D04<105):
  368.             VG 0,4,D03,D04:!D05:RND!
  369.           }
  370.           
  371.           {(D05=0)+(D05=255):~K_CLR:;îⁿé½é╠ò╧ìX
  372.             !D05:D01!!D01:0!
  373.             {D05<120:!D03:0!!D05:120-D05!}
  374.             {D05>119:!D03:1!!D05:D05-120!}
  375.             {D06<120:!D04:0!!D06:120-D06!}
  376.             {D06>119:!D04:1!!D06:D06-120!}
  377.             {D05>D06:
  378.               {D03=0:!D01:4!}{D03\0:!D01:8!}}
  379.             {D05<(D06+1):
  380.               {D04=0:!D01:1!}{D04\0:!D01:2!}}
  381.             @Y32NX:}
  382.           
  383.           <@D05\0:              ;âïü[âgôoÿ^(âSü[âïé⌐éτâXâ^ü[âgé╓ì┼ÆZïùùú)
  384.             VG 0,4,D03,D04:!D05:RND!
  385.             VS 0,4,D03,D04,D05+100:
  386.             !D05:D05-1!!D06:0!
  387.             {D06=0:VG 0,4,D03,D04-1:{RND=D05:!D04:D04-1!!D06:1!}}
  388.             {D06=0:VG 0,4,D03,D04+1:{RND=D05:!D04:D04+1!!D06:1!}}
  389.             {D06=0:VG 0,4,D03-1,D04:{RND=D05:!D03:D03-1!!D06:1!}}
  390.             {D06=0:VG 0,4,D03+1,D04:{RND=D05:!D03:D03+1!!D06:1!}}
  391.           >
  392.           !D02:100!
  393.         }
  394.       }
  395.       {D02\0:                       ;ò√îⁿâLü[é≡ò╘é╖
  396.         !D02:D02+1!!D06:0!
  397.         {D06=0:VG 0,4,X+5,Y+4:{RND=D02:!D01:1!!D06:1!}}
  398.         {D06=0:VG 0,4,X+5,Y+6:{RND=D02:!D01:2!!D06:1!}}
  399.         {D06=0:VG 0,4,X+4,Y+5:{RND=D02:!D01:4!!D06:1!}}
  400.         {D06=0:VG 0,4,X+6,Y+5:{RND=D02:!D01:8!!D06:1!}}
  401.         {D06=0:~K_CLR:@K_TOP:}
  402.       }
  403. *Y32NX:
  404.       {(D01=1)*(0<Y):           ;Åπò√îⁿ
  405. ;;      !Y:Y-1!
  406.         VG 0,3,X+5,Y+4:{RND=0:!Y:Y-1!}
  407.         !RND:255!
  408.         {╤╖=6:!╤╖:7!@Y32EX1:}{╤╖\6:!╤╖:6!@Y32EX1:}
  409.       }
  410.       {(D01=2)*(Y<98):          ;ë║ò√îⁿ
  411. ;;      !Y:Y+1!
  412.         VG 0,3,X+5,Y+6:{RND=0:!Y:Y+1!}
  413.         !RND:255!
  414.         {╤╖=2:!╤╖:3!@Y32EX1:}{╤╖\2:!╤╖:2!@Y32EX1:}
  415.       }
  416.       {(D01=4)*(0<X):           ;ì╢ò√îⁿ
  417. ;;      !X:X-1!
  418.         VG 0,3,X+4,Y+5:{RND=0:!X:X-1!}
  419.         !RND:255!
  420.         {╤╖=0:!╤╖:1!@Y32EX1:}{╤╖\0:!╤╖:0!@Y32EX1:}
  421.       }
  422.       {(D01=8)*(X<98):          ;ëEò√îⁿ
  423. ;;      !X:X+1!
  424.         VG 0,3,X+6,Y+5:{RND=0:!X:X+1!}
  425.         !RND:255!
  426.         {╤╖=4:!╤╖:5!@Y32EX1:}{╤╖\4:!╤╖:4!@Y32EX1:}
  427.       }
  428.       {D01=16:!RND:11!@Y32EX1:}
  429.       {(D01=32)+(D01=64):!RND:0!@Y32EX1:}
  430.     >
  431. *Y32EX1:
  432.     ZT 1,0:
  433.     \PRINT:
  434.     Y1,1:
  435. ;;  Y1,0:'éwüü'H0,X:'ü@éxüü'H0,Y:
  436.     
  437.     #Y32_TBL,4:
  438.     !D01:RND!                   ;âCâxâôâgâtâëâO
  439.     F3,RND,MAP_DAT2[100*Y+X]:
  440.     {RND=0:!RND:D01!}
  441.     
  442.     !D01:RND!!╩»╛▓╪┬2:╩»╛▓╪┬!   ;âGâôâJâEâôâg
  443.     {(D01=255)*(╩»╛▓╪┬2\0)*(╔║╪\0):
  444.       Y4,2000:
  445.       !RND:RND+100!
  446.       {RND>2000:!RND:RND-2000!}
  447.       !╩»╛▓╪┬2:╩»╛▓╪┬2+╩»╛▓╪┬2/3!
  448.       {RND<╩»╛▓╪┬2:!D01:10!}
  449.     }
  450.     {RND\255:!RND:D01!}
  451.     
  452.     ZT 5,D01:                   ;âEâFâCâg
  453.     <@D01<Y41_DAT:ZT 5,D01:>
  454.   >
  455. *Y32EX2:
  456.   UG D01,6:
  457.   %0:
  458.  
  459. *PRINT:                         ;â}âbâvé╠ò`ëµè╓ÿA
  460.   US RND,5:
  461.   
  462.   #Y32_TBL,1:
  463.   {F01=0:                       ;â}âbâvé╠ò`ëµ(èOÿgé╠é▌)
  464.     <D02,0,10,1,10:
  465.       <D01,0,10,1,1:
  466.         {((X+D01)<105)*((Y+D02)<105):
  467.           !D03:0!
  468.           {((X+D01)<5)+((Y+D02)<5):!D03:1!!D04:Y31_DAT!}
  469.           {D03=0:!D04:MAP_DAT2[100*(Y+D02-5)+(X+D01-5)]!}
  470.           F3,RND,D04:
  471.           !MAP_DAT3[105*(Y+D02)+(X+D01)]:RND!
  472.         }
  473.       >
  474.     >
  475.     <D02,1,9,1,1:
  476.       <D01,0,10,1,10:
  477.         {((X+D01)<105)*((Y+D02)<105):
  478.           !D03:0!
  479.           {((X+D01)<5)+((Y+D02)<5):!D03:1!!D04:Y31_DAT!}
  480.           {D03=0:!D04:MAP_DAT2[100*(Y+D02-5)+(X+D01-5)]!}
  481.           F3,RND,D04:
  482.           !MAP_DAT3[105*(Y+D02)+(X+D01)]:RND!
  483.         }
  484.       >
  485.     >
  486.   }
  487.   {F01\0:                       ;â}âbâvé╠ò`ëµ(æSæ╠)
  488.     <D02,0,10,1,1:
  489.       <D01,0,10,1,1:
  490.         {((X+D01)<105)*((Y+D02)<105):
  491.           !D03:0!
  492.           {((X+D01)<5)+((Y+D02)<5):!D03:1!!D04:Y31_DAT!}
  493.           {D03=0:!D04:MAP_DAT2[100*(Y+D02-5)+(X+D01-5)]!}
  494.           F3,RND,D04:
  495.           !MAP_DAT3[105*(Y+D02)+(X+D01)]:RND!
  496.         }
  497.       >
  498.     >
  499.   }
  500.   VR 0,1,MAP_DAT3:
  501.   
  502.   VS 1,1,xPnt+5,yPnt+5,0:       ;ÄσÉlî÷é╠æOë±ì└òWÅ┴ïÄ
  503.   !xPnt:X!!yPnt:Y!
  504.   
  505.   VS 1,1,X+5,Y+5,╤╖+1:          ;ÄσÉlî÷é╠ÉVïKì└òWôoÿ^
  506.   VE X,Y,11,11,Y31_DAT,0:
  507.   
  508.   WZ 0,0:
  509.   {Y34_DAT\0:                   ;Åkżâ}âbâvé╠ò£ïA
  510.     !Y34_DAT:0!
  511.     CC 0,400,220,220,250,26:
  512.   }
  513.   #Y32_TBL,2:
  514.   {F01=0:                       ;Åkżâ}âbâvé╠ò`ëµ(èOÿgé╠é▌)
  515.     <D02,0,10,1,10:
  516.       <D01,0,10,1,1:
  517.         {((X+D01)<105)*((Y+D02)<105):
  518.           !D04:Y31_DAT!
  519.           {((X+D01)>4)*((Y+D02)>4):!D04:MAP_DAT2[100*(Y+D02-5)+(X+D01-5)]!}
  520.           F3,RND,D04:
  521.           CF (X+D01)*2+248,(Y+D02)*2+22,2,2,RND:
  522.         }
  523.       >
  524.     >
  525.     <D02,1,9,1,1:
  526.       <D01,0,10,1,10:
  527.         {((X+D01)<105)*((Y+D02)<105):
  528.           !D04:Y31_DAT!
  529.           {((X+D01)>4)*((Y+D02)>4):!D04:MAP_DAT2[100*(Y+D02-5)+(X+D01-5)]!}
  530.           F3,RND,D04:
  531.           CF (X+D01)*2+248,(Y+D02)*2+22,2,2,RND:
  532.         }
  533.       >
  534.     >
  535.     F3,RND,MAP_DAT2[100*(Y-1)+X]:
  536.     CF X*2+258,Y*2+30,2,2,RND:
  537.     F3,RND,MAP_DAT2[100*(Y+1)+X]:
  538.     CF X*2+258,Y*2+34,2,2,RND:
  539.     F3,RND,MAP_DAT2[100*Y+(X-1)]:
  540.     CF X*2+256,Y*2+32,2,2,RND:
  541.     F3,RND,MAP_DAT2[100*Y+(X+1)]:
  542.     CF X*2+260,Y*2+32,2,2,RND:
  543.   }
  544.   {F01\0:                       ;Åkżâ}âbâvé╠ò`ëµ(æSæ╠)
  545.     <D02,0,10,1,1:
  546.       <D01,0,10,1,1:
  547.         {((X+D01)<105)*((Y+D02)<105):
  548.           !D04:Y31_DAT!
  549.           {((X+D01)>4)*((Y+D02)>4):!D04:MAP_DAT2[100*(Y+D02-5)+(X+D01-5)]!}
  550.           F3,RND,D04:
  551.           CF (X+D01)*2+248,(Y+D02)*2+22,2,2,RND:
  552.         }
  553.       >
  554.     >
  555.   }
  556.   
  557.   CF X*2+258,Y*2+32,2,2,10:     ;Åkżâ}âbâv(Ä⌐ê╩Æu)
  558.   WX 250,26,220,220:
  559.   !F01:0!!UNIT:MAP_DAT2[100*Y+X]!
  560.   UG RND,5:
  561.   \0:
  562.  
  563. **K_CLR:
  564.   DF MAP_DAT4,105*105,0:        ;éjâRâ}âôâhé╠Ä⌐ô«ê┌ô«é≡âNâèâA
  565.   VR 0,4,MAP_DAT4:
  566.   %0:
  567.  
  568. *Y32_TBL:
  569.   _UNIT_DAT:                    ;âåâjâbâgö╘ìå
  570.   _SMAP_DAT:                    ;ÅkżâåâjâbâgÉF
  571.   _MOVE_DAT:                    ;ê┌ô«ë┬ö█âtâëâO
  572.   _EVEN_DAT:                    ;âCâxâôâgâtâëâO
  573.  
  574. *UNIT_DAT:
  575.   [0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09]
  576.   [0x0C,0x0D,0x0E,0x0F,0x0A,0x0B,0x10,0x11,0x0C,0x12]
  577.   [0x12,0x13,0x04,0x17,0x14,0x15,0x16,0x18,0x19,0x1D]
  578.   [0x1A,0x1B,0x1C,0x1E,0x1F,0x20,0x21,0x22,0x14,0x23]
  579.   [0x24,0x25,0x26,0x27,0x28,0x29,0x2A,0x2B,0x2C,0x2D]
  580.   [0x2E,0x2F,0x30,0x31,0x32,0x33,0x34,0x35,0x30,0x36]
  581.   [0x11,0x10,0x37,0x38,0x38,0x39,0x3A,0x3B,0x3C,0x3D]
  582.   [0x3E,0x04,0x3F,0x40,0x41,0x42,0x43,0x44,0x45,0x46]
  583.   [0x47,0x48,0x49,0x4A,0x4B,0x4C,0x4D,0x47,0x4E,0x4F]
  584.   [0x50,0x51,0x52,0x53,0x14,0x15,0x4E,0x54,0x55,0x56]
  585.   [0x10,0x4E,0x57,0x58,0x59,0x58,0x59,0x58,0x59,0x58]
  586.   [0x59,0x58,0x59,0x5B,0x5A,0x5C,0x5D,0x5E,0x5F,0x60]
  587.   [0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68]
  588.  
  589. *SMAP_DAT:
  590.   [0x10,0x13,0x14,0x17,0x17,0x13,0x13,0x13,0x14,0x17]
  591.   [0x16,0x17,0x17,0x17,0x13,0x14,0x17,0x17,0x16,0x17]
  592.   [0x17,0x13,0x17,0x17,0x17,0x15,0x17,0x17,0x14,0x13]
  593.   [0x17,0x17,0x13,0x17,0x17,0x13,0x13,0x13,0x17,0x17]
  594.   [0x17,0x17,0x17,0x14,0x17,0x13,0x13,0x13,0x17,0x13]
  595.   [0x14,0x17,0x17,0x13,0x17,0x13,0x17,0x17,0x17,0x13]
  596.   [0x17,0x17,0x14,0x17,0x17,0x13,0x13,0x13,0x17,0x17]
  597.   [0x17,0x17,0x17,0x17,0x17,0x17,0x14,0x14,0x14,0x14]
  598.   [0x17,0x13,0x14,0x17,0x17,0x17,0x13,0x17,0x17,0x17]
  599.   [0x17,0x12,0x13,0x13,0x17,0x15,0x17,0x13,0x17,0x17]
  600.   [0x17,0x17,0x17,0x12,0x12,0x12,0x12,0x12,0x12,0x12]
  601.   [0x12,0x12,0x12,0x17,0x12,0x12,0x12,0x12,0x12,0x12]
  602.   [0x12,0x15,0x12,0x12,0x17,0x17,0x17,0x17]
  603.  
  604. *MOVE_DAT:
  605.   [0x00,0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00]
  606.   [0xFF,0x00,0x00,0xFF,0xFF,0xFF,0x00,0x00,0x00,0x00]
  607.   [0x00,0xFF,0x00,0x00,0x00,0xFF,0xFF,0x00,0x00,0xFF]
  608.   [0x00,0x00,0xFF,0x00,0x00,0xFF,0xFF,0x00,0x00,0x00]
  609.   [0x00,0x00,0x00,0xFF,0x00,0xFF,0xFF,0xFF,0x00,0xFF]
  610.   [0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xFF]
  611.   [0x00,0x00,0xFF,0x00,0xFF,0xFF,0xFF,0xFF,0x00,0x00]
  612.   [0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0x00,0xFF,0x00]
  613.   [0x00,0xFF,0xFF,0x00,0x00,0x00,0xFF,0x00,0x00,0x00]
  614.   [0x00,0xFF,0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00]
  615.   [0x00,0x00,0x00,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF]
  616.   [0xFF,0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00]
  617.   [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]
  618.  
  619. *EVEN_DAT:
  620.   [0x03,0x00,0x00,0x00,0x00,0x01,0x00,0x01,0x01,0x01]
  621.   [0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x01]
  622.   [0x02,0x00,0x01,0x01,0x00,0x00,0x00,0x01,0x01,0x00]
  623.   [0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x01,0x01,0x01]
  624.   [0x00,0x00,0x01,0x00,0x01,0x00,0x00,0x00,0x01,0x00]
  625.   [0x00,0x00,0x00,0x03,0x00,0x03,0x01,0x02,0x01,0x00]
  626.   [0x01,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x01]
  627.   [0x01,0x01,0x01,0x00,0x00,0x00,0x00,0x01,0x00,0x01]
  628.   [0x00,0x00,0x00,0x01,0x01,0x01,0x00,0x01,0x00,0x01]
  629.   [0x01,0x00,0x00,0x00,0x05,0x00,0x05,0x01,0x01,0x01]
  630.   [0x01,0x01,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]
  631.   [0x00,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x00,0x00]
  632.   [0x00,0x00,0x00,0x00,0x01,0x01,0x01,0x01]
  633.  
  634. ;=======================================================
  635. ;éxéRéRâRâ}âôâhè╓Éö(â}âbâvâfü[â^é╠ò╧ìX)
  636. ; in  : F01=╩▀╫╥░└
  637. ; out : none
  638. ;
  639. **Y33 F01:
  640.   US RND,1:
  641.   #Y32_TBL,3:
  642.   !MAP_DAT2[Z_DAT2*100+Z_DAT1]:F01!
  643.   F3,RND,F01:
  644.   VS 0,3,Z_DAT1+5,Z_DAT2+5,RND:
  645.   UG RND,1:
  646.   %0:
  647.  
  648. ;=======================================================
  649. ;éxéRéSâRâ}âôâhè╓Éö(â}âbâvëµû╩é╠Å┴ïÄ)
  650. ; in  : F01=╩▀╫╥░└
  651. ; out : none
  652. ;
  653. **Y34 F01:
  654.   {(F01=1)+(F01=2):!Y34_DAT:1!}
  655.   {F01=3:!Y34_DAT:0!}
  656.   !F06:╠¬░─▐!
  657.   {F06\0:WZ 0,0:~Y40 2:}
  658.   {(F01=1)+(F01=4):CC 250,26,220,220,0,400:}
  659.   {(F01=0)+(F01=1):CF 0,0,60*8,20*12,10:}
  660.   {F06\0:~Y40 1:WZ 0,1:}
  661.   %0:
  662.  
  663. ;=======================================================
  664. ;éxéRéUâRâ}âôâhè╓Éö(â}âbâvâfü[â^é╠î≡è╖)
  665. ; in  : F01=╩▀╫╥░└
  666. ; out : none
  667. ;
  668. **Y36 F01:
  669.   US RND,4:
  670.   {F01\255:
  671.     <D01,0,9999,1,1:
  672.       {MAP_DAT2[D01]=Z_DAT1:!MAP_DAT2[D01]:Z_DAT2!}
  673.     >
  674.   }
  675.   {F01=255:
  676.     #Y32_TBL,3:
  677.     VW 0,3,MAP_DAT4:
  678.     <D02,0,99,1,1:
  679.       <D01,0,99,1,1:
  680.         !D03:MAP_DAT2[100*D02+D01]!
  681.         F3,RND,D03:
  682.         !MAP_DAT4[105*(D02+5)+(D01+5)]:RND!
  683.       >
  684.     >
  685.     VR 0,3,MAP_DAT4:
  686.   }
  687.   UG RND,4:
  688.   %0:
  689.  
  690. ;=======================================================
  691. ;éxéRéVâRâ}âôâhè╓Éö(â}âbâvé╠ì─ò`ëµ)
  692. ; in  : F01=╩▀╫╥░└
  693. ; out : none
  694. ;
  695. **Y37 F01:
  696.   !F01:1!
  697.   \PRINT:
  698.   ~WAIT 1:
  699.   %0:
  700.  
  701. ;=======================================================
  702. ;éxéRéWâRâ}âôâhè╓Éö(Éφô¼ô┴ÄΩî°ë╩)
  703. ; in  : F01=╩▀╫╥░└
  704. ; out : none
  705. ;
  706. **Y38 F01:
  707.   US D01,4:
  708.   !D01:F01-1!
  709.   !D02:D01/14!
  710.   !D01:D01-(D02*14)!
  711.   B10,D03,D04:
  712.   B4,3,0,0,0,1,0:
  713.   
  714.   CF 0,400+220,42*8,24*8,10:
  715.   CM D01*42,400*2+12+130+D02*24,42,24,0,400+220,42*8,24*8,0:
  716.   
  717.   WZ 0,0:
  718.   CS 0,400+220,42*8,24*8,144,47,0:
  719.   WX 144,47,42*8,24*8:
  720.   
  721.   ~WAIT 1:
  722.   B4,3,0,0,0,0,1:
  723.   B4,2,0,0,0,1,0:
  724.   T D03,D04:
  725.   UG D01,4:
  726.   %0:
  727.  
  728. ;=======================================================
  729. ;éxéSéOâRâ}âôâhè╓Éö(âtâFü[â_ü[)
  730. ; in  : F01=╩▀╫╥░└
  731. ; out : none
  732. ;
  733. **Y40 F01:
  734.   {F01=0:!╠¬░─▐:0!PF 0,4:}
  735.   {F01=1:!╠¬░─▐:1!PF 1,1:}
  736.   {F01=2:!╠¬░─▐:0!PF 0,1:}
  737.   %0:
  738.  
  739. ;=======================================================
  740. ;éxéSéPâRâ}âôâhè╓Éö(â}âbâvê┌ô«é╠æ¼ôxÉ▌ÆΦ)
  741. ; in  : F01=╩▀╫╥░└
  742. ; out : none
  743. ;
  744. **Y41 F01:
  745.   !Y41_DAT:F01!
  746.   %0:
  747.  
  748. ;=======================================================
  749. ;éxéSéRâRâ}âôâhè╓Éö(ëµû╩éΣéτé╡î°ë╩)
  750. ; in  : F01=╩▀╫╥░└
  751. ; out : none
  752. ;
  753. **Y43 F01:
  754.   US D01,1:
  755.   CF 0,400,640,10,10:
  756.   <D01,1,9,1,1:
  757.     WV 0,D01,640,400:
  758.     ~WAIT 3:
  759.     WV 0,0,640,400:
  760.   >
  761.   <D01,9,1,0,1:
  762.     WV 0,D01,640,400:
  763.     ~WAIT 3:
  764.     WV 0,0,640,400:
  765.   >
  766.   UG D01,1:
  767.   %0:
  768.  
  769. ;=======================================================
  770. ;éxéTéOâRâ}âôâhè╓Éö(âGâôâfâBâôâO)
  771. ; in  : F01=╩▀╫╥░└
  772. ; out : none
  773. ;
  774. **Y50 F01:
  775.   {F01=0:                       ;ì╢ëEôⁿéΩæ╓éªò\Ī
  776.     ~Y40 1:WZ 0,1:
  777.     CC 0,0,640,400,0,400:
  778.     CC 0,400,320,400,320,0:
  779.     CC 320,400,320,400,0,0:
  780.     ~Y40 0:
  781.     ~WAIT 80:
  782.     CC 0,400,640,400,0,0:
  783.     ~WAIT 500:
  784.     ~Y7 1:
  785.     %0:
  786.   }
  787.   {F01=1:                       ;âüâbâZü[âWëEÿgâZâbâg
  788.     WZ 0,0:~Y40 2:~Y7 1:
  789.     ~Y26 0:~Y26 48:~Y26 1:~Y26 79:~Y26 20:
  790.     %0:
  791.   }
  792.   {F01=2:                       ;âüâbâZü[âWì╢ÿgâZâbâg
  793.     WZ 0,0:~Y40 2:~Y7 1:
  794.     ~Y26 0:~Y26 10:~Y26 1:~Y26 39:~Y26 20:
  795.     %0:
  796.   }
  797.   %0:
  798.  
  799. ;=======================================================
  800. ;éxéTéPâRâ}âôâhè╓Éö(âëâXâg)
  801. ; in  : F01=╩▀╫╥░└
  802. ; out : none
  803. ;
  804. **Y51 F01:
  805.   ~WAIT 400:
  806.   T 25*8,15*20:'ü@ü@ü@égé`éoéoéxü@édéméc'
  807.   T 25*8,17*20:'èΘëµÉºì∞ü@ü@âAâèâXâ\âtâgâXâ^âbât'
  808.   ~WAIT 300:
  809.   ~GA 461:
  810.   ~WAIT 1000:
  811.   B4,2,0,0,0,0,0:
  812.   ~WAIT 180:
  813.   ~Y7 1:
  814.   %0:
  815.  
  816. ;=======================================================
  817. ;éxéTéQâRâ}âôâhè╓Éö(âLü[ôⁿù═æ╥é┐é╠ëƒë║Ä₧âXâgâbâvü^âXâïü[É▌ÆΦ)
  818. ; in  : F01=╩▀╫╥░└
  819. ; out : none
  820. ;
  821. **Y52 F01:
  822.   !Y52_DAT:F01!
  823.   %0:
  824.  
  825. ;=======================================================
  826. ;éyâRâ}âôâhè╓Éö(ö─ùpâpâëâüü[â^Ä≤é»ôné╡)
  827. ; in  : F01=╩▀╫╥░└
  828. ; out : none
  829. ;
  830. **Z F01,F02:
  831.   !Z_DAT1:F01!
  832.   !Z_DAT2:F02!
  833.   %0:
  834.  
  835. ;=======================================================
  836. ;ÿgé╠ò`ëµè╓Éö
  837. ; in  : none
  838. ; out : none
  839. ;
  840. **WAKU:
  841.   !F06:╠¬░─▐!
  842.   {F06\0:WZ 0,0:~Y40 2:}
  843.   CB 0,300,640,100,15:
  844.   CB 1,300,638,100,15:
  845.   CB 3,300,634,100,15:
  846.   {F06\0:~Y40 1:WZ 0,1:}
  847.   %0:
  848.  
  849. ;=======================================================
  850. ;âEâFâCâgè╓Éö
  851. ; in  : F01=1/100òb
  852. ; out : none
  853. ;
  854. **WAIT F01:
  855.   US D01,1:
  856.   ZT 1,0:
  857.   !D01:0!
  858.   <@D01<F01:ZT 5,D01:>
  859.   UG D01,1:
  860.   %0:
  861.  
  862. ;=======================================================
  863. ;âEâFâCâgè╓Éö(âLü[ôⁿù═é≡ò╘é╖)
  864. ; in  : F01=1/100òb
  865. ; out : D01=âLü[ôⁿù═é╠ùLû│
  866. ;
  867. **WAITK F01:
  868.   US RND,1:
  869.   ZT 1,0:
  870.   !RND:0!!D01:0!
  871.   <@(RND=0)*(D01<F01):ZT 5,D01:IK 6:>
  872.   !D01:RND!
  873.   UG RND,1:
  874.   %0:
  875.  
  876. ;=======================================================
  877. ;ë╣èyëëætè╓Éö
  878. ; in  : F01=ï╚ö╘ìå
  879. ; out : none
  880. ;
  881. **BGM F01:
  882.   {F01=0:SG 0,0:}       ;ÆΓÄ~
  883.   {F01\0:
  884.     {F01<100:SG 1,F01:} ;èJÄn
  885.     {F01=100:SG 3,0:}   ;ïxÄ~
  886.     {F01=101:SG 3,1:}   ;ì─èJ
  887.   }
  888.   %0:
  889.  
  890. ;=======================================================
  891. ;î°ë╩ë╣ëëætè╓Éö
  892. ; in  : F01=î°ë╩ë╣ö╘ìå
  893. ; out : none
  894. ;
  895. **PCM F01:
  896.   US D01,3:
  897.   ZT 1,0:
  898.   !D01:1!!D03:1!
  899.   <@(D01\0)*(D03<100):SU D01,D02:ZT 5,D03:>
  900.   SP F01,1:
  901.   UG D01,3:
  902.   %0:
  903.