{"id":7603,"date":"2019-05-02T15:08:38","date_gmt":"2019-05-02T06:08:38","guid":{"rendered":"https:\/\/sinsei.space\/blog\/?p=7603"},"modified":"2021-05-02T13:43:36","modified_gmt":"2021-05-02T04:43:36","slug":"1map_stg-%e3%83%ac%e3%83%bc%e3%82%b6%e3%83%bc%e3%82%92%e5%ae%9f%e8%a3%85%e3%80%81ver-0-008_%ce%b21","status":"publish","type":"post","link":"https:\/\/sinsei.space\/blog\/7603","title":{"rendered":"1MAP_STG \u30ec\u30fc\u30b6\u30fc\u3092\u5b9f\u88c5 ver.0.008"},"content":{"rendered":"<p><font size=4><br \/>\n2019\u5e74 5\u6708 2\u65e5<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000<a href=\"https:\/\/sinsei.space\/?p=220\" rel=\"noopener noreferrer\" target=\"_blank\">ver.0.008<\/a><\/p>\n<p><a href=\"https:\/\/sinsei.space\/?p=220\" target=\"_blank rel=\"noopener noreferrer\"><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/05\/img02177.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-7610\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/05\/img02177.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/05\/img02177-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><\/a><\/p>\n<p>5\u6708 3\u65e5<\/p>\n<p>\u3000\u5b8c\u6210\u3057\u307e\u3057\u305f\u306e\u3067\u3069\u3046\u305e\u3002<\/p>\n<p>\u3000\u4eca\u56de\u306e\u809d\u306f\u3001\u7dda\u3068\u5186\u306e\u5f53\u305f\u308a\u5224\u5b9a\u3068\u3001\u305d\u308c\u3092\u5229\u7528\u3057\u305f\u30ec\u30fc\u30b6\u30fc\u3067\u3059\u3002<\/p>\n<p>\u3000\u30ec\u30fc\u30b6\u30fc\u306f\u7167\u5c04\u9762\u7a4d\u306b\u3088\u3063\u3066\u30c0\u30e1\u30fc\u30b8\u304c\u5909\u308f\u308a\u307e\u3059\u3002<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000HSP\u30bd\u30fc\u30b9\u3068\u30b0\u30e9\u306e zip\u30d5\u30a1\u30a4\u30eb<br \/>\n\u3000<a href=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2019\/05\/1MAP_STG_ver.0.0008.zip\">1MAP_STG_ver.0.0008<\/a><\/p>\n<p>\uff08\u4e00\u822c\u7684\u306b\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3055\u308c\u3066\u3044\u308b\u30d5\u30a1\u30a4\u30eb\u3067\u306f\u7121\u304f\u3001\u3068\u3044\u3046\u306e\u306f HSP\u30d5\u30a1\u30a4\u30eb\u306e\u4e8b\u3067\u3059\u306e\u3067\u5927\u4e08\u592b\u3067\u3059\u3002\u30de\u30a4\u30ca\u30fc\u306a\u3060\u3051\u3067\u3059\uff08\u7b11\uff09\uff09<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u5168\u30bd\u30fc\u30b9<\/p>\n<p><!--more--><\/p>\n<pre class=\"lang:hsp decode:true \" >; \u4f01\u753b\u7b2c\u4e00\u5f3e : 1\u753b\u9762\u9632\u885b\u30b7\u30e5\u30fc\u30c6\u30a3\u30f3\u30b0\u3092\u4f5c\u308d\u3046\r\n; var.0.008\r\n\r\n#include \"hsp3dish.as\" ; HSPdish\u306e\u5ba3\u8a00\r\n\r\n\r\ngosub *main : end\t\t; \u30e1\u30a4\u30f3\u30eb\u30fc\u30c1\u30f3\r\n\r\n#include \"put.hsp\"\t\t; \u8868\u793a\r\n#include \"shot.hsp\"\t\t; \u5f3e\r\n#include \"ene.hsp\"\t\t; \u6575\r\n#include \"syoki.hsp\"\t; \u521d\u671f\u8a2d\u5b9a\r\n\r\n\r\n*main ; \u30e1\u30a4\u30f3\u30eb\u30fc\u30c1\u30f3\r\n\r\n\tgosub *syoki ; \u521d\u671f\u8a2d\u5b9a\r\n\r\n\tmainf=0 ; \u30e1\u30a4\u30f3\u30d5\u30e9\u30b0\r\n\r\n\twhile ; ---------- \u30e1\u30a4\u30f3\u30eb\u30fc\u30c1\u30f3 ----------\r\n\r\n\t switch mainf\r\n\t  case 0 : gosub *titl\t\t: swbreak ; \u30bf\u30a4\u30c8\u30eb\r\n\t  case 1 : gosub *game_main\t: swbreak ; \u30b2\u30fc\u30e0\r\n\t  case 2 : gosub *game_over\t: swbreak ; \u30b2\u30fc\u30e0\u30aa\u30fc\u30d0\u30fc\r\n\t swend\r\n\r\n\t if mainf=3 : _break ; end\r\n\twend\r\n\r\n\treturn\r\n\r\n\r\n*titl ; \u30bf\u30a4\u30c8\u30eb\r\n\r\n\trepeat\r\n\t stick k : if k!0 : mainf=1 : kwc=20 : break ; \u4f55\u304b\u62bc\u3057\u305f\u3089\u30b2\u30fc\u30e0\u30b9\u30bf\u30fc\u30c8\r\n\t redraw 0 ; \u8868\u793a\r\n\t  clr\t\t; \u753b\u9762\u30af\u30ea\u30a2\r\n\t  j_put\t\t; \u81ea\u6a5f\u8868\u793a\r\n\t  c_put\t\t; \u7167\u6e96\u8868\u793a\r\n\t  scr_put\t; \u30b9\u30b3\u30a2\u8868\u793a\r\n\r\n\t  font \"\",22,0 : color 255,255,255\r\n\t   pos wx1+(wx-wx1)\/2-120,wy\/2-50 : mes \"1\u753b\u9762\u9632\u885b\u30b7\u30e5\u30fc\u30c6\u30a3\u30f3\u30b0\"\r\n\t   pos wx1+(wx-wx1)\/2-43,wy\/2+30  : mes \"var.0.008\"\r\n\t redraw 1\r\n\t await 1000\/15\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n*game_main ; \u30b2\u30fc\u30e0\r\n\r\n\trepeat ; \u30b2\u30fc\u30e0\u30eb\u30fc\u30d7 ========================================\r\n\r\n\t if mainf!1 : break ; \u30b2\u30fc\u30e0\u30aa\u30fc\u30d0\u30fc\r\n\r\n; \u5165\u529b ----------\r\n\t x=mousex : y=mousey\t; \u30de\u30a6\u30b9\u3001\u30b9\u30de\u30db\u306e\u5ea7\u6a19\r\n\r\n\t k=0\r\n\t repeat 1\r\n\t  if kwc&amp;gt;0 : kwc- : break ; \u30a6\u30a8\u30a4\u30c8\r\n\t  stick k,256 ; \u30de\u30a6\u30b9\u3001\u30b9\u30de\u30db\u30af\u30ea\u30c3\u30af\r\n\t loop\r\n\r\n\t repeat 1 ; \u5165\u529b\u51e6\u7406\r\n\t  if subf=0 { ; \u30d0\u30eb\u30ab\u30f3\u30e2\u30fc\u30c9\r\n\r\n\t   if k=256 { ; \u62bc\u3057\u3066\u308b\r\n\t    if 0&amp;lt;x and x&amp;lt;wx1 and   0&amp;lt;y and y&amp;lt;wy1 : subf=0 : break ; \u30d0\u30eb\u30ab\u30f3\r\n\t    if 0&amp;lt;x and x&amp;lt;wx1 and wy1&amp;lt;y and y&amp;lt;wy {\r\n\t\t if kwc=0 : subf=1 : kwc=5\r\n\t\t break ; \u30ec\u30fc\u30b6\u30fc\u30e2\u30fc\u30c9\u3078\r\n\t\t}\r\n\r\n\t\tkf=1 : kc+ : cx=double(x) : cy=double(y) : break ; \u62bc\u3057\u3066\u3044\u308b\r\n\t   }\r\n\r\n\t   if kf=0 : break\t\t\t; \u4e00\u5ea6\u3082\u62bc\u3057\u3066\u306a\u3044\r\n\t    kf=0\t\t\t\t\t; \u653e\u3057\u305f\u3001\u62bc\u3057\u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\r\n\r\n\t   if kc&amp;gt;4 : kc=0 : break\t; 4\u30d5\u30ec\u30fc\u30e0\u4ee5\u4e0a\u62bc\u3057\u3066\u3044\u305f\r\n\t    kc=0\r\n\r\n\t   if jx1&amp;lt;x and x&amp;lt;jx2 and jy1&amp;lt;y and y&amp;lt;jy2 : autof=(autof+1)\\2 : esn_set 0 : break ; \u81ea\u6a5f\u306e\u4f4d\u7f6e\u306e\u5834\u5408\u3001\u30aa\u30fc\u30c8\u5207\u308a\u66ff\u3048\r\n\r\n\t   esn_set 1\t\t\t\t; \u8fd1\u304f\u306e\u6a19\u7684\u3092\u30bb\u30c3\u30c8\r\n\r\n\t   if vc=0 or vcn&amp;gt;0 : break\t; \u5f3e\u5207\u308c or \u30d0\u30eb\u30ab\u30f3\u767a\u5c04\u4e2d\r\n\t   vcn+=vnb\t\t\t\t\t; \u30d0\u30eb\u30ab\u30f3\u767a\u5c04\r\n\t  }\r\n\r\n\t  if subf=1 { ; \u30ec\u30fc\u30b6\u30fc\u30e2\u30fc\u30c9\r\n\t   if k!256 : break ; \u30dc\u30bf\u30f3\u62bc\u3057\u3066\u306a\u3044\r\n\r\n\t   if 0&amp;lt;x and x&amp;lt;wx1 and   0&amp;lt;y and y&amp;lt;wy1 : subf=0 : break ; \u30d0\u30eb\u30ab\u30f3\r\n\t   if 0&amp;lt;x and x&amp;lt;wx1 and wy1&amp;lt;y and y&amp;lt;wy {\r\n\t\tif kwc=0 : subf=0 : kwc=5 : ; \u30ec\u30fc\u30b6\u30fc\u30ea\u30bb\u30c3\u30c8\r\n\t\tbreak\r\n\t   }\r\n\r\n\t   if lf&amp;gt;0 : subf=0 : break ; \u767a\u5c04\u4e2d\r\n\r\n\t   lf=1 : subf=0 : kwc=20 ; \u30ec\u30fc\u30b6\u30fc\u767a\u5c04\r\n\t   lxs=double(x) : lys=double(y) ; \u76ee\u6a19\u5730\u70b9\r\n\t  }\r\n\t loop\r\n\r\n\r\n; \u7167\u6e96 ----------\r\n\r\n\t x2=ex(esn)-cx : y2=ey(esn)-cy\r\n\t  nd=sqrt(x2*x2+y2*y2); \u6a19\u7684\u3068\u7167\u6e96\u306e\u8ddd\u96e2\r\n\r\n\t repeat 1 ; \u7167\u6e96\u306e\u79fb\u52d5\r\n\t  if autof=0 : cx=double(x) : cy=double(y) : break ; \u30de\u30cb\u30e5\u30a2\u30eb\u306e\u5834\u5408\r\n\r\n\t  if nd&amp;lt;csp : cx=ex(esn) : cy=ey(esn) : break\r\n\r\n; \u2191 \u6a19\u7684\u304c\u7167\u6e96\u30b9\u30d4\u30fc\u30c9\u4ee5\u4e0b\u306e\u8ddd\u96e2\u306a\u3089\u3001\u7167\u6e96\u5ea7\u6a19\u3092\u6a19\u7684\u306e\u5ea7\u6a19\u306b\u3059\u308b\r\n; \u2193 \u305d\u3046\u3067\u306a\u3044\u306a\u3089\u7167\u6e96\u30b9\u30d4\u30fc\u30c9\u5206\u52d5\u304b\u3059\r\n\r\n\t  xn=double(ex(esn)-cx) ; \u4e00\u756a\u8fd1\u3044\u6575\u3068\u7167\u6e96\u306e\u8ddd\u96e2x\r\n\t  yn=double(ey(esn)-cy) ; \u4e00\u756a\u8fd1\u3044\u6575\u3068\u7167\u6e96\u306e\u8ddd\u96e2y\r\n\r\n\t  rad=atan(xn,yn) ; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\t\r\n\t  cx+=sin(rad)*csp\t; \u7167\u6e96\u79fb\u52d5x\r\n\t  cy+=cos(rad)*csp\t; \u7167\u6e96\u79fb\u52d5y\r\n\t loop\r\n\r\n\r\n; \u51fa\u73fe ----------\r\n\t s_set  ; \u30b7\u30e7\u30c3\u30c8\u51fa\u73fe\r\n\t v_set  ; \u30d0\u30eb\u30ab\u30f3\u51fa\u73fe\r\n\t l_set\t; \u30ec\u30fc\u30b6\u30fc\u51fa\u73fe\r\n\t e1_set ; \u65751\u51fa\u73fe\r\n\t e2_set ; \u65752\u51fa\u73fe\r\n\t e3_set ; \u65753\u51fa\u73fe\r\n\r\n\r\n; \u79fb\u52d5\u51e6\u7406 ----------\r\n\t s_syo  ; \u30b7\u30e7\u30c3\u30c8\u51e6\u7406\r\n\t v_syo  ; \u30d0\u30eb\u30ab\u30f3\u51e6\u7406\r\n\t l_syo\t; \u30ec\u30fc\u30b6\u30fc\u51e6\u7406\r\n\t e_syo\t; \u6575\u51e6\u7406\u30c6\u30fc\u30d6\u30eb\r\n\r\n\r\n\t redraw 0 ; \u8868\u793a ----------\r\n\t  clr\t\t; \u753b\u9762\u30af\u30ea\u30a2\r\n\t  e_put\t\t; \u6575\u8868\u793a\r\n\t  j_put\t\t; \u81ea\u6a5f\u8868\u793a\r\n\t  s_put\t\t; \u30b7\u30e7\u30c3\u30c8\u8868\u793a\r\n\t  v_put\t\t; \u30d0\u30eb\u30ab\u30f3\u8868\u793a\r\n\t  l_put\t\t; \u30ec\u30fc\u30b6\u30fc\u8868\u793a\r\n\t  c_put\t\t; \u7167\u6e96\u8868\u793a\r\n\t  scr_put\t; \u30b9\u30b3\u30a2\u8868\u793a\r\nwaku_put\r\n\r\n\t redraw 1\r\n\r\n\t await 1000\/15 ; \u30a6\u30a8\u30a4\u30c8\u3001FPS 15\r\n\tloop ; ====================================================\r\n\r\n\treturn\r\n\r\n\r\n*game_over ; \u30b2\u30fc\u30e0\u30aa\u30fc\u30d0\u30fc\r\n\r\n\trepeat\r\n\t stick k : if k!0 : mainf=0 : break ; \u4f55\u304b\u62bc\u3057\u305f\u3089\u30bf\u30a4\u30c8\u30eb\u3078\r\n\r\n\t redraw 0 ; \u8868\u793a\r\n\t  clr\t\t; \u753b\u9762\u30af\u30ea\u30a2\r\n\t  e_put\t\t; \u6575\u8868\u793a\r\n\t  j_put\t\t; \u81ea\u6a5f\u8868\u793a\r\n\t  s_put\t\t; \u30b7\u30e7\u30c3\u30c8\u8868\u793a\r\n\t  v_put\t\t; \u30d0\u30eb\u30ab\u30f3\u8868\u793a\r\n\t  c_put\t\t; \u7167\u6e96\u8868\u793a\r\n\t  scr_put\t; \u30b9\u30b3\u30a2\u8868\u793a\r\n\r\n\t  pos wx\/2-43,wy\/2+50 : mes \"GAME OVER\"\r\n\t redraw 1\r\n\r\n\t await 1000\/15 ; \u30a6\u30a8\u30a4\u30c8\u3001FPS 15\r\n\tloop\r\n\r\n\treset ; \u30b2\u30fc\u30e0\u518d\u521d\u671f\u5316\r\n\r\n\treturn\r\n\r\n\r\n;syoki.hsp\r\n\r\n*syoki ; \u521d\u671f\u8a2d\u5b9a\r\n\r\n\trandomize\t; \u4e71\u6570\u306e\u521d\u671f\u5316\r\n\r\n\tpai=3.141593\r\n\tpai2=pai*2\r\n\r\n\trad45=0.7853982\t\t; \u30e9\u30b8\u30a2\u30f3\u306745\u5ea6\r\n\trad90=1.5707965\t\t; \u30e9\u30b8\u30a2\u30f3\u306790\u5ea6\r\n\r\n\r\n\twx=640\t; \u753b\u9762\u306e\u5927\u304d\u3055x\r\n\twy=360\t; \u753b\u9762\u306e\u5927\u304d\u3055y\r\n\r\n\twx1=70\t\t\t; \u30b5\u30d6\u30a6\u30a8\u30dd\u30f3\u8868\u793a\u5de6\u30a8\u30ea\u30a2\r\n\twx2=wx-wx1\t\t; \u30b5\u30d6\u30a6\u30a8\u30dd\u30f3\u8868\u793a\u53f3\u30a8\u30ea\u30a2\r\n\twxn=wx-wx1-wx2\t; \u30b2\u30fc\u30e0\u30a8\u30ea\u30a2\r\n\twy1=wy\/2\r\n\r\n\tgmode 2\r\n\r\n\tjw1=1 : jo=20 : jo2=jo\/2\t; \u81ea\u6a5f\u3001\u30de\u30cb\u30e5\u30a2\u30eb\r\n\t celload \"jiki_3.png\",jw1\r\n\t  celdiv jw1,jo,jo,jo2,jo2\r\n\r\n\tjw2=2\t\t\t\t\t\t; \u81ea\u6a5f\u3001\u30aa\u30fc\u30c8\r\n\t celload \"jiki_2.png\",jw2\r\n\t  celdiv jw2,jo,jo,jo2,jo2\r\n\r\n\tsw=3 : so=6 : so2=so\/2\t\t; \u30b7\u30e7\u30c3\u30c8\r\n\t celload \"shot_1.png\",sw\r\n\t  celdiv sw,so,so,so2,so2\r\n\r\n\te1w=4 : e1o=20 : e1o2=e1o\/2\t; \u65751\r\n\t celload \"ene_1.png\",e1w\r\n\t  celdiv e1w,e1o,e1o,e1o2,e1o2\r\n\r\n\te2w=5 : e2o=24 : e2o2=e2o\/2\t; \u65752\r\n\t celload \"ene_2.png\",e2w\r\n\t  celdiv e2w,e2o,e2o,e2o2,e2o2\r\n\r\n\te3w=6 : e3o=64 : e3o2=e3o\/2\t; \u65753\r\n\t celload \"ene_3.png\",e3w\r\n\t  celdiv e3w,e3o,e3o,e3o2,e3o2\r\n\r\n\tcw=7 : co=32 : co2=co\/2\t\t; \u30ab\u30fc\u30bd\u30eb\r\n\t celload \"csr_2.png\",cw\r\n\t  celdiv cw,co,co,co2,co2\r\n\r\n\thw=8 : ho=16 : ho2=ho\/2\t\t; \u30d2\u30c3\u30c8\r\n\t celload \"hit_4.png\",hw\r\n\t  celdiv hw,ho,ho,ho2,ho2\r\n\r\n\tvw=9 : vo=16 : vo2=vo\/2\t\t; \u30d0\u30eb\u30ab\u30f3\r\n\t celload \"vulcan_1.png\",vw\r\n\t  celdiv vw,vo,vo,vo2,vo2\r\n\r\n\tlw=10 : lo=64 : lo2=lo\/2\t; \u30ec\u30fc\u30b6\u30fc\r\n\t celload \"laser.png\",lw\r\n\t  celdiv lw,lo,lo,lo2,lo2\r\n\r\n\tww=11 : wox=wx1 : woy=wy1\t; \u67a0\r\n\t celload \"waku_4.png\",ww\r\n\t  celdiv ww\r\n\r\n\r\n; \u81ea\u6a5f ----------\r\n\tjx=wx1+(wx-wx1)\/2\t; \u30d7\u30ec\u30a4\u30e4\u30fc\u306e\u5ea7\u6a19x\r\n\tjy=wy\/2\t; \u30d7\u30ec\u30a4\u30e4\u30fc\u306e\u5ea7\u6a19y\r\n\r\n\tjx1=jx-jo2 ; \u81ea\u6a5f\u5de6\u5ea7\u6a19\r\n\tjx2=jx+jo2 ; \u81ea\u6a5f\u53f3\u5ea7\u6a19\r\n\tjy1=jy-jo2 ; \u81ea\u6a5f\u4e0a\u5ea7\u6a19\r\n\tjy2=jy+jo2 ; \u81ea\u6a5f\u4e0b\u5ea7\u6a19\r\n\r\n\tcx=double(jx) ; \u7167\u6e96\u5ea7\u6a19x\r\n\tcy=double(jy) ; \u7167\u6e96\u5ea7\u6a19y\r\n\tcsp=20.0\t  ; \u7167\u6e96\u30b9\u30d4\u30fc\u30c9\r\n\tesn=0\t\t  ; \u6a19\u7684\r\n\r\n\tautof=1\t; \u30aa\u30fc\u30c8\u30d5\u30e9\u30b0(0=\u30de\u30cb\u30e5\u30a2\u30eb\u30011=\u30aa\u30fc\u30c8)\r\n\r\ndim pn,40\r\n; SHOT ----------\r\n\r\n\tsb=20\t\t\t; \u30b7\u30e7\u30c3\u30c8\u6700\u5927\u6570\r\n\t dim sf,sb\t\t; \u30b7\u30e7\u30c3\u30c8\u767a\u5c04\u30d5\u30e9\u30b0\r\n\t ddim sx,sb\t\t; \u30b7\u30e7\u30c3\u30c8\u5ea7\u6a19x\r\n\t ddim sy,sb\t\t; \u30b7\u30e7\u30c3\u30c8\u5ea7\u6a19y\r\n\t ddim sdx,sb\t; \u30b7\u30e7\u30c3\u30c8\u79fb\u52d5\u91cfx\r\n\t ddim sdy,sb\t; \u30b7\u30e7\u30c3\u30c8\u79fb\u52d5\u91cfy\r\n\t ddim sr,sb\t\t; \u5411\u304d\r\n\r\n\t dim sxb,sb\t\t; \u7d42\u70b9\u5ea7\u6a19x\r\n\t dim syb,sb\t\t; \u7d42\u70b9\u5ea7\u6a19y\r\n\t ddim skn,sb\t; \u73fe\u79fb\u52d5\u8ddd\u96e2\r\n\t ddim skb,sb\t; \u6700\u7d42\u79fb\u52d5\u8ddd\u96e2\r\n\r\n\tssp=60.0\t\t; \u30b9\u30d4\u30fc\u30c9\r\n\tsp=6\t\t\t; \u30d1\u30ef\u30fc\r\n\tsu=32\t\t\t; \u63fa\u308c\u5e45(\u96c6\u5f3e\u5024)\r\n\r\n\r\n; VULCAN ----------\r\n\r\n\tvb=30\t\t\t; \u30d0\u30eb\u30ab\u30f3\u6700\u5927\u6570\r\n\t dim vf,vb\t\t; \u30d0\u30eb\u30ab\u30f3\u767a\u5c04\u30d5\u30e9\u30b0\r\n\t ddim vx,vb\t\t; \u30d0\u30eb\u30ab\u30f3\u5ea7\u6a19x\r\n\t ddim vy,vb\t\t; \u30d0\u30eb\u30ab\u30f3\u5ea7\u6a19y\r\n\t ddim vdx,vb\t; \u30d0\u30eb\u30ab\u30f3\u79fb\u52d5\u91cfx\r\n\t ddim vdy,vb\t; \u30d0\u30eb\u30ab\u30f3\u79fb\u52d5\u91cfy\r\n\t ddim vr,vb\t\t; \u5411\u304d\r\n\r\n\tvkc=3\t\t\t; 1\u30d5\u30ec\u30fc\u30e0\u306b\u51fa\u73fe\u3059\u308b\u6570\r\n\tvsp=60.0;20.0\t\t; \u30b9\u30d4\u30fc\u30c9\r\n\tvp=5\t\t\t; \u30d1\u30ef\u30fc\r\n\tvu=30\t\t\t; \u63fa\u308c\u5e45(\u96c6\u5f3e\u5024)\r\n\tvnb=140\t\t\t; 1\u30af\u30ea\u30c3\u30af\u3067\u767a\u5c04\u3055\u308c\u308b\u6570\r\n\tvc=0\t\t\t; \u6b8b\u5f3e\u6570\r\n\tvcb=800\t\t\t; \u6700\u5927\u6570\r\n\tvck=10\t\t\t; 1\u3064\u6575\u3092\u5012\u3057\u305f\u6642\u306b\u5897\u3048\u308b\u6570\r\n\r\n\r\n; LASER ----------\r\n\r\n\tlf=0\t\t; \u30ec\u30fc\u30b6\u30fc\u767a\u5c04\u30d5\u30e9\u30b0\r\n\tlx1=0.0\t\t; \u30ec\u30fc\u30b6\u30fc\u59cb\u70b9\u5ea7\u6a19x\r\n\tly1=0.0\t\t; \u30ec\u30fc\u30b6\u30fc\u59cb\u70b9\u5ea7\u6a19y\r\n\tlx2=0.0\t\t; \u30ec\u30fc\u30b6\u30fc\u7d42\u70b9\u5ea7\u6a19x\r\n\tly2=0.0\t\t; \u30ec\u30fc\u30b6\u30fc\u7d42\u70b9\u5ea7\u6a19y\r\n\tlxs=0.0\t\t; \u76ee\u6a19\u5730\u70b9x\r\n\tlys=0.0\t\t; \u76ee\u6a19\u5730\u70b9y\r\n\tldx=0.0\t\t; \u30ec\u30fc\u30b6\u30fc\u79fb\u52d5\u91cfx\r\n\tldy=0.0\t\t; \u30ec\u30fc\u30b6\u30fc\u79fb\u52d5\u91cfy\r\n\tlr=0.0\t\t; \u5411\u304d\r\n\r\n\tlsp=30.0\t; \u30b9\u30d4\u30fc\u30c9\r\n\tlp=10\t\t; \u30d1\u30ef\u30fc\r\n\tle=0\t\t; \u30a8\u30cd\u30eb\u30ae\u30fc\r\n\tleb=80\t\t; 1\u56de\u6483\u3064\u306e\u306b\u5fc5\u8981\u306a\u30a8\u30cd\u30eb\u30ae\u30fc\r\n\t\r\n\tlpb=120\t\t; \u30ec\u30fc\u30b6\u30fc\u30a8\u30cd\u30eb\u30ae\u30fc\u306e\u6b8b\u91cf\u8868\u793a\u306e\u9577\u3055\r\n\tlpf=double(lpb)\/double(leb) ; \u30a8\u30cd\u30eb\u30ae\u30fc1\u306e\u8868\u793a\u9577\u3055\r\n\r\n\t;lc=0\t\t; \u767a\u5c04\u6642\u9593\r\n\t;lcb=80\t\t; \u767a\u5c04\u6642\u9593\u6700\u5927\r\n\r\n\tlopx=1.0\t; \u8868\u793a\u5e45x\r\n\tlopy=0.5\t; \u8868\u793a\u5e45y\r\n\r\n\r\n; ENEMY ----------\r\n\teb=40\t\t\t; \u6575\u6700\u5927\u6570\r\n\t dim ef,eb\t\t; \u51fa\u73fe\u30d5\u30e9\u30b0\r\n\t dim ehp,eb\t\t; \u8010\u4e45\u5ea6\r\n\t dim eaf,eb\t\t; \u5f53\u305f\u3063\u3066\u308b\u30d5\u30e9\u30b0\r\n\t ddim ex,eb\t\t; \u6575\u5ea7\u6a19x\r\n\t ddim ey,eb\t\t; \u6575\u5ea7\u6a19y\r\n\t ddim edx,eb\t; \u6575\u79fb\u52d5\u91cfx\r\n\t ddim edy,eb\t; \u6575\u79fb\u52d5\u91cfy\r\n\t ddim er,eb\t\t; \u5411\u304d\r\n\r\n\tdim escr,4\t\t; \u30b9\u30b3\u30a2\r\n\r\n\te1hpb=24\t\t; \u8010\u4e45\u5ea6\r\n\te1sp=1.0\t\t; \u65751\u30b9\u30d4\u30fc\u30c9\r\n\te1c=0\t\t\t; \u51fa\u73fe\u30ab\u30a6\u30f3\u30c8\r\n\te1cb=10\t\t\t; \u51fa\u73fe\u9593\u9694(\u30d5\u30ec\u30fc\u30e0)\r\n\tescr(1)=10\t\t; \u30b9\u30b3\u30a2\r\n\r\n\te2hpb=300\t\t; \u8010\u4e45\u5ea6\r\n\te2sp=0.5\t\t; \u65752\u30b9\u30d4\u30fc\u30c9\r\n\te2c=50\t\t\t; \u51fa\u73fe\u30ab\u30a6\u30f3\u30c8\r\n\te2cb=70\t\t\t; \u51fa\u73fe\u9593\u9694(\u30d5\u30ec\u30fc\u30e0)\r\n\tescr(2)=100\t\t; \u30b9\u30b3\u30a2\r\n\r\n\te3hpb=5000\t\t; \u8010\u4e45\u5ea6\r\n\te3sp=0.1\t\t; \u65752\u30b9\u30d4\u30fc\u30c9\r\n\te3c=300\t\t\t; \u51fa\u73fe\u30ab\u30a6\u30f3\u30c8\r\n\te3cb=300\t\t; \u51fa\u73fe\u9593\u9694(\u30d5\u30ec\u30fc\u30e0)\r\n\tescr(3)=2000\t; \u30b9\u30b3\u30a2\r\n\r\n\r\n\tscr=0\t\t; \u30b9\u30b3\u30a2\r\n\thiscr=0\t\t; \u30cf\u30a4\u30b9\u30b3\u30a2\r\n\r\n\tkf=0\t\t; \u30ad\u30fc\u3092\u62bc\u3057\u3066\u308b\u304b\u30d5\u30e9\u30b0\r\n\tkc=0\t\t; \u4f55\u30d5\u30ec\u30fc\u30e0\u30ad\u30fc\u3092\u62bc\u3057\u3066\u308b\u304b\r\n\r\n\treturn\r\n\r\n\r\n#deffunc reset ; \u30b2\u30fc\u30e0\u518d\u521d\u671f\u5316\r\n\r\n\tcx=double(jx) ; \u7167\u6e96\u5ea7\u6a19x\u30ea\u30bb\u30c3\u30c8\r\n\tcy=double(jy) ; \u7167\u6e96\u5ea7\u6a19y\u30ea\u30bb\u30c3\u30c8\r\n\r\n    repeat sb : sf(cnt)=0 : loop ; \u30b7\u30e7\u30c3\u30c8\u30ea\u30bb\u30c3\u30c8\r\n\trepeat vb : vf(cnt)=0 : loop ; \u30d0\u30eb\u30ab\u30f3\u30ea\u30bb\u30c3\u30c8\r\n\t vcn=0 : vc=0 ; \u6b8b\u5f3e\u30ea\u30bb\u30c3\u30c8\r\n\tle=0 ; \u30ec\u30fc\u30b6\u30fc\u30a8\u30cd\u30eb\u30ae\u30fc\u30ea\u30bb\u30c3\u30c8\r\n\r\n\trepeat eb : ef(cnt)=0 : loop ; \u6575\u30ea\u30bb\u30c3\u30c8\r\n\r\n\tscr=0 ; \u30b9\u30b3\u30a2\u30ea\u30bb\u30c3\u30c8\r\n\tesn=0 ; \u6a19\u7684\u30ea\u30bb\u30c3\u30c8\r\n\r\n\treturn\r\n\r\n\r\n; sgot.hsp \r\n; \u30b7\u30e7\u30c3\u30c8 --------------------\r\n\r\n#deffunc esn_set int esn_setf ; \u6a19\u7684\u8a2d\u5b9a\r\n\r\n\tesn=0\t\t; \u4e00\u756a\u8fd1\u3044\u6575No.\r\n\tnd1=1000.0\t; \u4e00\u756a\u8fd1\u3044\u8ddd\u96e2\r\n\r\n\trepeat eb\r\n\t if ef(cnt)=0 : continue\r\n\r\n\t if esn_setf=0 : x2=ex(cnt)-jx : y2=ey(cnt)-jy ; \u81ea\u6a5f\u306b\u8fd1\u3044\r\n\t if esn_setf=1 : x2=ex(cnt)-cx : y2=ey(cnt)-cy ; \u7167\u6e96\u306b\u8fd1\u3044\r\n\r\n\t  nd2=sqrt(x2*x2+y2*y2); \u8ddd\u96e2\r\n\r\n\t if nd2&amp;lt;nd1 : nd1=nd2 : esn=cnt\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n; SHOT --------------------\r\n#deffunc s_set ; \u51fa\u73fe\r\n\r\n\tf=0 ; \u7a7a\u304d\u30d5\u30e9\u30b0\u78ba\u8a8d ----------\r\n\trepeat sb : sn=cnt ; \u30b7\u30e7\u30c3\u30c8No.\r\n\t if sf(sn)=0 : sf(sn)=1 : f=1 : break ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\tloop\r\n\tif f=0 : return ; \u7a7a\u304d\u304c\u7121\u3044\r\n\r\n\r\n\tsx(sn)=double(jx) : sy(sn)=double(jy) ; \u521d\u671f\u5ea7\u6a19\r\n\r\n\txx=int(cx)-su\/2+rnd(su) ; \u30b7\u30e7\u30c3\u30c8\u306e\u7740\u5f3e\u70b9x\r\n\tyy=int(cy)-su\/2+rnd(su) ; \u30b7\u30e7\u30c3\u30c8\u306e\u7740\u5f3e\u70b9y\r\n\r\n\txn=double(xx-jx)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2x\r\n\tyn=double(yy-jy)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2y\r\n\r\n\trad=atan(yn,xn)\t\t\t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\tsr(sn)=rad\t\t\t\t; \u5411\u304d\r\n\r\n\tsdx(sn)=cos(rad)*ssp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\tsdy(sn)=sin(rad)*ssp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfy\u3092\u6c42\u3081\u308b\r\n\r\n\r\n\tsxb(sn)=xx : syb(sn)=yy\t; \u7d42\u70b9\u5ea7\u6a19\r\n\r\n\tskn(sn)=0.0\t\t\t\t\t; \u73fe\u79fb\u52d5\u8ddd\u96e2\u3092\u30ea\u30bb\u30c3\u30c8\r\n\tskb(sn)=sqrt(xn*xn+yn*yn)\t; \u6700\u7d42\u79fb\u52d5\u8ddd\u96e2\r\n\r\n\treturn\r\n\r\n\r\n#deffunc s_syo ; \u79fb\u52d5\u51e6\u7406\r\n\r\n\trepeat sb : sn=cnt ; \u30b7\u30e7\u30c3\u30c8\u79fb\u52d5\u51e6\u7406\r\n\t if sf(sn)=0 : continue ; \u7121\u3057\r\n\r\n\t sx1=sx(sn) ; \u59cb\u70b9\u5ea7\u6a19x\r\n\t sy1=sy(sn) ; \u59cb\u70b9\u5ea7\u6a19y\r\n\r\n\t sx(sn)+=sdx(sn) ; x\u306e\u79fb\u52d5\r\n\t sy(sn)+=sdy(sn) ; y\u306e\u79fb\u52d5\r\n\r\n\t skn(sn)+=ssp ; \u3069\u308c\u3060\u3051\u8ddd\u96e2\u3092\u9032\u3093\u3060\u304b\r\n\t  if skn(sn)&amp;gt;=skb(sn) { ; \u7d42\u70b9\u5224\u5b9a\r\n\t   sx(sn)=double(sxb(sn))\r\n\t   sy(sn)=double(syb(sn))\r\n\t   sf(sn)=-1 ; \u7740\u5f3e\u30d5\u30e9\u30b0\r\n\t  }\r\n\r\n\t sx2=sx(sn) ; \u7d42\u70b9\u5ea7\u6a19x\r\n\t sy2=sy(sn) ; \u7d42\u70b9\u5ea7\u6a19y\r\n\r\n\t sln=sqrt((sx2-sx1)*(sx2-sx1)+(sy2-sy1)*(sy2-sy1)) ; \u7dda\u306e\u9577\u3055\r\n\r\n\r\n ; \u6575\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\t repeat eb : en=cnt ; \u6575No,\r\n\t  if ef(en)=0 : continue\r\n\r\n;dbg_put\r\n\t if ef(en)=1 : eo2=e1o2\t\t\t; \u65751\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t if ef(en)=2 : eo2=e2o2*12\/10\t; \u65752\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t if ef(en)=3 : eo2=e3o2 \t\t; \u65753\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t  eo2+=so2 ; \u6575\u306e\u534a\u5f84\u306b\u30b7\u30e7\u30c3\u30c8\u306e\u534a\u5f84\u3092\u8db3\u3059\r\n\r\n\t  f=0\r\n\t  repeat 1 ; \u5f53\u305f\u308a\u5224\u5b9a\r\n\r\n; \u4e21\u7aef\u5224\u5b9a\r\n\t   if (ex(en)-sx2)*(ex(en)-sx2)+(ey(en)-sy2)*(ey(en)-sy2)&amp;lt;=(eo2*eo2) : f=1 : break ; \u7d42\u70b9\u3068\u6575\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\t   if (ex(en)-sx1)*(ex(en)-sx1)+(ey(en)-sy1)*(ey(en)-sy1)&amp;lt;=(eo2*eo2) : f=1 : break ; \u59cb\u70b9\u3068\u6575\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\r\n\r\n; \u30b7\u30e7\u30c3\u30c8\u8ecc\u9053\u3068\u6575\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\r\n\t   sxn=ex(en)-sx1\t; \u6575x-\u59cb\u70b9x\r\n\t   syn=ey(en)-sy1\t; \u6575y-\u59cb\u70b9y\r\n\r\n\t   cosf=cos(-sr(sn)) ; \u89d2\u5ea6\u4fee\u6b63\u3001\u5782\u76f4\u306b\r\n\t   sinf=sin(-sr(sn)) ; \u89d2\u5ea6\u4fee\u6b63\u3001\u7d20\u76f4\u306b\r\n\r\n\t   xf=cosf*sxn-sinf*syn ; \u5782\u76f4\u4f4d\u7f6e\u306b\u4fee\u6b63\u3057\u305f\u6575\u306ex\r\n\t   yf=sinf*sxn+cosf*syn ; \u5782\u76f4\u4f4d\u7f6e\u306b\u4fee\u6b63\u3057\u305f\u6575\u306ey\r\n\r\n\t   if abs(yf)&amp;lt;=eo2 and 0&amp;lt;=xf and xf&amp;lt;=sln : f=1 ; \u5f53\u305f\u308a\u5224\u5b9a\r\n\t  loop\r\n\r\n\r\n; \u5f53\u305f\u308a\u51e6\u7406\r\n\r\n\t  if f=1 {\r\n\t   sf(sn)=-1\t\t\t\t; \u7740\u5f3e\u30d5\u30e9\u30b0\r\n\t   eaf(en)=1\t\t\t\t; \u88ab\u5f3e\u30d5\u30e9\u30b0\r\n\t   ehp(en)-=sp\t\t\t\t; \u8010\u4e45\u5ea6-\r\n\t   if ehp(en)&amp;lt;=0 {\t\t\t; \u5012\u3057\u305f\u304b\r\n\t    scr+=escr(ef(en))\t\t; \u30b9\u30b3\u30a2\r\n\t     if hiscr&amp;lt;scr : hiscr=scr ; \u30cf\u30a4\u30b9\u30b3\u30a2\u306e\u66f4\u65b0\r\n\r\n\t    ef(en)=0\t\t\t\t; \u6575\u3092\u6d88\u3059\r\n\t     if en=esn : esn_set 0\t; \u6b21\u306e\u6a19\u7684\u3092\u63a2\u3059\r\n\t    vc+=vck\t\t\t\t\t; \u30d0\u30eb\u30ab\u30f3\u306e\u6b8b\u5f3e\u6570\u3092\u5897\u3084\u3059\r\n\t     if vc&amp;gt;vcb : vc=vcb\t\t; \u6700\u5927\u6570\r\n\t   }\r\n\t  }\r\n\t loop\r\n\r\n\t if sf(sn)=1 : if sx1&amp;lt;0 or wx&amp;lt;sx1 or sy1&amp;lt;0 or wy&amp;lt;sy1 : sf(sn)=0 : continue ; \u5834\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n\r\n; VULCAN --------------------\r\n#deffunc v_set ; \u51fa\u73fe\r\n\r\n\trepeat vkc : cnt2=cnt ; 1\u30d5\u30ec\u30fc\u30e0\u306b\u767a\u5c04\u3055\u308c\u308b\u6570\r\n\t if vcn=0 or vc=0 : break ; \u767a\u5c04\u8981\u6c42\u6570\u3001\u307e\u305f\u306f\u6b8b\u5f3e\u304c0\r\n\r\n\t f=0 ; \u7a7a\u304d\u30d5\u30e9\u30b0\u78ba\u8a8d ----------\r\n\t repeat vb : vn=cnt ; \u30b7\u30e7\u30c3\u30c8No.\r\n\t  if vf(vn)=0 : vf(vn)=1 : f=1 : break ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\t loop\r\n\t if f=0 : break ; \u7a7a\u304d\u304c\u7121\u3044\r\n\r\n\t vcn- ; \u767a\u5c04\u8981\u6c42\u6570-\r\n\t vc- : if vc=0 : vcn=0 ; \u6b8b\u5f3e-\r\n\r\n\t vf(vn)=1 ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\t vx(vn)=double(jx) : vy(vn)=double(jy) ; \u521d\u671f\u5ea7\u6a19\r\n\r\n\r\n\t xn=cx-double(jx)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2x\r\n\t yn=cy-double(jy)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2y\r\n\r\n\t rd=double(-(vu\/2)+rnd(vu+1))\/100.0 ; \u63fa\u308c\u5e45\uff08\u30e9\u30b8\u30a2\u30f3\uff09\r\n\t  rad=atan(yn,xn)+rd\t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\t vr(vn)=rad\t\t\t; \u5411\u304d\r\n\r\n\t vdx(vn)=cos(rad)*vsp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\t vdy(vn)=sin(rad)*vsp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfy\u3092\u6c42\u3081\u308b\r\n\r\n\t repeat cnt2\r\n\t  vx(vn)-=vdx(vn)\/3.0 ; \u59cb\u70b9\u5ea7\u6a19\u3092\u30d0\u30c3\u30af\u3055\u305b\u3066\u304a\u304fx\r\n\t  vy(vn)-=vdy(vn)\/3.0 ; \u59cb\u70b9\u5ea7\u6a19\u3092\u30d0\u30c3\u30af\u3055\u305b\u3066\u304a\u304fy\r\n\t loop\r\n\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc v_syo\r\n\r\n\trepeat vb : vn=cnt ; \u30d0\u30eb\u30ab\u30f3\u79fb\u52d5\u51e6\u7406\r\n\t if vf(vn)=0 : continue ; \u7121\u3057\r\n\r\n\t vx1=vx(vn) ; \u30d0\u30eb\u30ab\u30f3\u59cb\u70b9\u5ea7\u6a19x\r\n\t vy1=vy(vn) ; \u30d0\u30eb\u30ab\u30f3\u59cb\u70b9\u5ea7\u6a19y\r\n\r\n\t vx(vn)+=vdx(vn) ; x\u306e\u79fb\u52d5\r\n\t vy(vn)+=vdy(vn) ; y\u306e\u79fb\u52d5\r\n\r\n\t vx2=vx(vn) ; \u30d0\u30eb\u30ab\u30f3\u7d42\u70b9\u5ea7\u6a19x\r\n\t vy2=vy(vn) ; \u30d0\u30eb\u30ab\u30f3\u7d42\u70b9\u5ea7\u6a19y\r\n\r\n\t vln=sqrt((vx2-vx1)*(vx2-vx1)+(vy2-vy1)*(vy2-vy1)) ; \u7dda\u306e\u9577\u3055\r\n\r\n\r\n\t repeat eb : en=cnt ; \u6575\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\t  if ef(en)=0 : continue\r\n\r\n\t if ef(en)=1 : eo2=e1o2\t\t\t; \u65751\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t if ef(en)=2 : eo2=e2o2*12\/10\t; \u65752\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t if ef(en)=3 : eo2=e3o2 \t\t; \u65753\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t  eo2+=3 ; \u6575\u306e\u534a\u5f84\u306b\u30d0\u30eb\u30ab\u30f3\u306e\u534a\u5f84\u3092\u8db3\u3059\r\n\r\n\t  f=0\r\n\t  repeat 1 ; \u5f53\u305f\u308a\u5224\u5b9a\r\n; \u4e21\u7aef\u5224\u5b9a\r\n\t   if (ex(en)-vx2)*(ex(en)-vx2)+(ey(en)-vy2)*(ey(en)-vy2)&amp;lt;=(eo2*eo2) : f=1 : break ; \u7d42\u70b9\u3068\u6575\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\t   if (ex(en)-vx1)*(ex(en)-vx1)+(ey(en)-vy1)*(ey(en)-vy1)&amp;lt;=(eo2*eo2) : f=1 : break ; \u59cb\u70b9\u3068\u6575\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\r\n\r\n; \u30d0\u30eb\u30ab\u30f3\u8ecc\u9053\u3068\u6575\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\r\n\t   vxn=ex(en)-vx1\t\t; \u6575x-\u59cb\u70b9x\r\n\t   vyn=ey(en)-vy1\t\t; \u6575y-\u59cb\u70b9y\r\n\r\n\t   cosf=cos(-vr(vn))\t; \u89d2\u5ea6\u4fee\u6b63\u3001\u5782\u76f4\u306b\r\n\t   sinf=sin(-vr(vn))\t; \u89d2\u5ea6\u4fee\u6b63\u3001\u7d20\u76f4\u306b\r\n\r\n\t   xf=cosf*vxn-sinf*vyn ; \u5782\u76f4\u4f4d\u7f6e\u306b\u4fee\u6b63\u3057\u305f\u6575\u306ex\r\n\t   yf=sinf*vxn+cosf*vyn ; \u5782\u76f4\u4f4d\u7f6e\u306b\u4fee\u6b63\u3057\u305f\u6575\u306ey\r\n\r\n\t   if abs(yf)&amp;lt;=eo2 and 0&amp;lt;=xf and xf&amp;lt;=vln : f=1 ; \u5f53\u305f\u308a\u5224\u5b9a\r\n\t  loop\r\n\r\n\r\n; \u5f53\u305f\u308a\u51e6\u7406\r\n\r\n\t  if f=1 {\r\n\t   eaf(en)=1\t\t\t\t; \u88ab\u5f3e\u30d5\u30e9\u30b0\r\n\t  ;vf(vn)=-1\t\t\t\t; \u7740\u5f3e\u30d5\u30e9\u30b0\r\n\t   ehp(en)-=vp\t\t\t\t; \u8010\u4e45\u5ea6-\r\n\t   if ehp(en)&amp;lt;=0 {\t\t\t; \u5012\u3057\u305f\u304b\r\n\t    scr+=escr(ef(en))\t\t; \u30b9\u30b3\u30a2\r\n\t     if hiscr&amp;lt;scr : hiscr=scr ; \u30cf\u30a4\u30b9\u30b3\u30a2\u306e\u66f4\u65b0\r\n\r\n\t    ef(en)=0\t\t\t\t; \u6575\u3092\u6d88\u3059\r\n\t    if en=esn : esn_set 0\t; \u6b21\u306e\u6a19\u7684\u3092\u63a2\u3059\r\n\t   }\r\n\t  }\r\n\r\n\t loop\r\n\r\n\t if vf(vn)=1 : if vx1&amp;lt;0 or wx&amp;lt;vx1 or vy1&amp;lt;0 or wy&amp;lt;vy1 : vf(vn)=0 : continue ; \u5834\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n; LASER --------------------\r\n#deffunc l_set ; \u51fa\u73fe\r\n\r\n\tif lf!1 : return ; \u767a\u5c04\u8981\u6c42\u3055\u308c\u3066\u306a\u3044\r\n\r\n\tif le&amp;lt;leb : lf=0 : return ; \u30a8\u30cd\u30eb\u30ae\u30fc\u304c\u7121\u3044\r\n\r\n\tlf=2 : ;le-=leb\t\t; \u767a\u5c04\r\n\r\n\r\n\tlx1=double(jx) : ly1=double(jy) ; \u59cb\u70b9\u5ea7\u6a19\r\n\tlx2=lx1 : ly2=ly1\t; \u7d42\u70b9\u5ea7\u6a19\r\n\r\n\txn=lxs-lx1\t\t\t; \u81ea\u6a5f\u3068\u76ee\u6a19\u5730\u70b9\u306e\u8ddd\u96e2x\r\n\tyn=lys-ly1\t\t\t; \u81ea\u6a5f\u3068\u76ee\u6a19\u5730\u70b9\u306e\u8ddd\u96e2y\r\n\r\n\tlr=atan(yn,xn)\t\t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\tldx=cos(lr)*lsp\t\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\tldy=sin(lr)*lsp\t\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfy\u3092\u6c42\u3081\u308b\r\n\r\n\treturn\r\n\r\n\r\n#deffunc l_syo\r\n\r\n\tif lf&amp;lt;2 or lf=5 {\r\n\t if le&amp;lt;leb : le+ ; \u30a8\u30cd\u30eb\u30ae\u30fc\u84c4\u7a4d\r\n\t}\r\n\r\n\tif lf=2 or lf=3 : le- ; \u30a8\u30cd\u30eb\u30ae\u30fc\u6d88\u8cbb\r\n\r\n\tif lf&amp;lt;2 : return ; \u767a\u5c04\u3055\u308c\u3066\u306a\u3044\r\n\r\n\r\n; \u30ec\u30fc\u30b6\u30fc\u79fb\u52d5\u51e6\u7406\r\n\r\n\tswitch lf\r\n\t case 2 ; \u5148\u982d\u304c\u4f38\u3073\u308b\r\n\t  lx2+=ldx ; \u30ec\u30fc\u30b6\u30fc\u7d42\u70b9\u5ea7\u6a19x\r\n\t  ly2+=ldy ; \u30ec\u30fc\u30b6\u30fc\u7d42\u70b9\u5ea7\u6a19y\r\n\r\n\t  if lx2&amp;lt;-20 or wx+20&amp;lt;lx2 or ly2&amp;lt;-20 or wy+20&amp;lt;ly2 : lf=3 ; \u5148\u982d\u304c\u753b\u9762\u5916\r\n\t swbreak\r\n\r\n\t case 3 ; \u4f38\u3073\u304d\u3063\u3066\u308b\r\n\t\u3000;if lc&amp;gt;lcb : lf=4 ; \u767a\u5c04\u6642\u9593\u3092\u904e\u304e\u305f\r\n\t  if le=0 : lf=4 ; \u30a8\u30cd\u30eb\u30ae\u30fc\u5207\u308c\r\n\t swbreak\r\n\r\n\t case 4 ; \u5f8c\u5c3e\u304c\u7e2e\u3080\r\n\t  lx1+=ldx ; \u30ec\u30fc\u30b6\u30fc\u7d42\u70b9\u5ea7\u6a19x\r\n\t  ly1+=ldy ; \u30ec\u30fc\u30b6\u30fc\u7d42\u70b9\u5ea7\u6a19y\r\n\r\n\t  if lx1&amp;lt;-20 or wx+20&amp;lt;lx1 or ly1&amp;lt;-20 or wy+20&amp;lt;ly1 : lf=5 : lc=0 ; \u5f8c\u5c3e\u304c\u753b\u9762\u5916\r\n\t swbreak\r\n\t case 5 ; \u30a6\u30a8\u30a4\u30c8\r\n\t  lc+ : if lc&amp;gt;20 : lf=0\r\n\t swbreak\r\n\tswend\r\n\r\n\tlln=sqrt((lx2-lx1)*(lx2-lx1)+(ly2-ly1)*(ly2-ly1)) ; \u7dda\u306e\u9577\u3055\r\n\r\n\r\n\trepeat eb : en=cnt ; \u6575\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\t if ef(en)=0 : continue\r\n\r\n\t if ef(en)=1 : eo2=e1o2\t\t\t; \u65751\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t if ef(en)=2 : eo2=e2o2*12\/10\t; \u65752\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t if ef(en)=3 : eo2=e3o2 \t\t; \u65753\u306e\u6642\u306e\u5927\u304d\u3055\r\n\r\n\t eo2+=int(double(lo2)*lopx)\t\t; \u6575\u306e\u534a\u5f84\u306b\u30ec\u30fc\u30b6\u30fc\u306e\u534a\u5f84\u3092\u8db3\u3059\r\n\r\n\t f=0\r\n\t repeat 1 ; \u5f53\u305f\u308a\u5224\u5b9a\r\n; \u4e21\u7aef\u5224\u5b9a\r\n\t  if (ex(en)-lx2)*(ex(en)-lx2)+(ey(en)-ly2)*(ey(en)-ly2)&amp;lt;=(eo2*eo2) : f=1 ;: break ; \u7d42\u70b9\u3068\u6575\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\t  if (ex(en)-lx1)*(ex(en)-lx1)+(ey(en)-ly1)*(ey(en)-ly1)&amp;lt;=(eo2*eo2) : f=1 ;: break ; \u59cb\u70b9\u3068\u6575\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\r\n\r\n; \u30ec\u30fc\u30b6\u30fc\u8ecc\u9053\u3068\u6575\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\r\n\t  lxn=ex(en)-lx1\t\t; \u6575x-\u59cb\u70b9x\r\n\t  lyn=ey(en)-ly1\t\t; \u6575y-\u59cb\u70b9y\r\n\r\n\t  cosf=cos(-lr)\t\t\t; \u89d2\u5ea6\u4fee\u6b63\u3001\u5782\u76f4\u306b\r\n\t  sinf=sin(-lr)\t\t\t; \u89d2\u5ea6\u4fee\u6b63\u3001\u7d20\u76f4\u306b\r\n\r\n\t  xf=cosf*lxn-sinf*lyn ; \u5782\u76f4\u4f4d\u7f6e\u306b\u4fee\u6b63\u3057\u305f\u6575\u306ex\r\n\t  yf=sinf*lxn+cosf*lyn ; \u5782\u76f4\u4f4d\u7f6e\u306b\u4fee\u6b63\u3057\u305f\u6575\u306ey\r\n\r\n\t  if abs(yf)&amp;lt;=eo2 and 0&amp;lt;=xf and xf&amp;lt;=lln : f=1 ; \u5f53\u305f\u308a\u5224\u5b9a\r\n\t loop\r\n\r\n\r\n; \u5f53\u305f\u308a\u51e6\u7406\r\n\r\n\t repeat 1\r\n\t  if f=0 : break\r\n\r\n\t  eaf(en)=1\t\t\t\t\t; \u88ab\u5f3e\u30d5\u30e9\u30b0\r\n\r\n\t  dn=eo2-abs(int(yf))\t\t; \u7167\u5c04\u9762\u7a4d\u306b\u3088\u308b\u30c0\u30e1\u30fc\u30b8\r\n\t   if ef(en)=1 : if dn&amp;gt;e1o : dn=e1o ; \u5927\u304d\u3055\u306b\u3088\u308b\u6700\u5927\u30c0\u30e1\u30fc\u30b8\r\n\t   if ef(en)=2 : if dn&amp;gt;e2o : dn=e2o\r\n\t   if ef(en)=3 : if dn&amp;gt;e3o : dn=e3o\r\n\r\n\t  ehp(en)-=dn\t\t\t\t; \u8010\u4e45\u5ea6-\r\n\t   if ehp(en)&amp;gt;0 : break\t\t; \u5012\u3057\u305f\u304b\r\n\r\n\t  scr+=escr(ef(en))\t\t\t; \u30b9\u30b3\u30a2\r\n\t   if hiscr&amp;lt;scr : hiscr=scr\t; \u30cf\u30a4\u30b9\u30b3\u30a2\u306e\u66f4\u65b0\r\n\r\n\t  ef(en)=0\t\t\t\t\t; \u6575\u3092\u6d88\u3059\r\n\t   if en=esn : esn_set 0\t; \u6b21\u306e\u6a19\u7684\u3092\u63a2\u3059\r\n\t loop\r\n\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n; ene.hsp\r\n; ENEMY --------------------\r\n\r\n#deffunc e1_set ; \u51fa\u73fe\r\n\r\n\tif e1c&amp;gt;0 : e1c- : return ; \u30a6\u30a8\u30a4\u30c8\u4e2d\r\n\r\n\t e1c=e1cb ; \u51fa\u73fe\u30a6\u30a8\u30a4\u30c8\u30ea\u30bb\u30c3\u30c8\r\n\r\n\r\n\tf=0 ; \u7a7a\u304d\u30d5\u30e9\u30b0\u78ba\u8a8d ----------\r\n\trepeat eb : en=cnt ; \u6575No.\r\n\t if ef(en)=0 : ef(en)=1 : f=1 : break ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\tloop\r\n\tif f=0 : return ; \u7a7a\u304d\u304c\u7121\u3044\r\n\r\n\r\n\tehp(en)=e1hpb ; \u8010\u4e45\u529b\r\n\r\n\r\n\tr=rnd(4) ; \u51fa\u73fe\u65b9\u5411\r\n\t if r=0 : exs=wx1+rnd(wx-wx1)-e1o2 : eys=0-e1o2\t\t; \u4e0a\r\n\t if r=1 : exs=wx1+rnd(wx-wx1)-e1o2 : eys=wy+e1o2\t; \u4e0b\r\n\t if r=2 : exs=wx1-e1o2 : eys=rnd(wy)-e1o2\t; \u5de6\r\n\t if r=3 : exs=wx+e1o2  : eys=rnd(wy)-e1o2\t; \u53f3\r\n\r\n\tex(en)=double(exs)\t; \u521d\u671f\u4f4d\u7f6ex\r\n\tey(en)=double(eys)\t; \u521d\u671f\u4f4d\u7f6ey\r\n\r\n\txn=double(jx-exs)\t; \u6575\u3068\u81ea\u6a5f\u306e\u8ddd\u96e2x\r\n\tyn=double(jy-eys)\t; \u6575\u3068\u81ea\u6a5f\u306e\u8ddd\u96e2y\r\n\r\n\trad=atan(xn,yn) \t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\tedx(en)=sin(rad)*e1sp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\tedy(en)=cos(rad)*e1sp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfy\u3092\u6c42\u3081\u308b\r\n\r\n\ter(en)=-rad+pai\t; \u5411\u304d\r\n\r\n\treturn\r\n\r\n\r\n#deffunc e2_set ; \u51fa\u73fe\r\n\r\n\tif e2c&amp;gt;0 : e2c- : return ; \u30a6\u30a8\u30a4\u30c8\u4e2d\r\n\r\n\t e2c=e2cb ; \u51fa\u73fe\u30a6\u30a8\u30a4\u30c8\u30ea\u30bb\u30c3\u30c8\r\n\r\n\r\n\tf=0 ; \u7a7a\u304d\u30d5\u30e9\u30b0\u78ba\u8a8d ----------\r\n\trepeat eb : en=cnt ; \u6575No.\r\n\t if ef(en)=0 : ef(en)=2 : f=1 : break ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\tloop\r\n\tif f=0 : return ; \u7a7a\u304d\u304c\u7121\u3044\r\n\r\n\r\n\tehp(en)=e2hpb ; \u8010\u4e45\u529b\r\n\r\n\r\n\tr=rnd(4) ; \u51fa\u73fe\u65b9\u5411\r\n\t if r=0 : exs=wx1+rnd(wx-wx1)-e2o2 : eys=0-e2o2\t\t; \u4e0a\r\n\t if r=1 : exs=wx1+rnd(wx-wx1)-e2o2 : eys=wy+e2o2\t; \u4e0b\r\n\t if r=2 : exs=wx1-e2o2 : eys=rnd(wy)-e2o2\t; \u5de6\r\n\t if r=3 : exs=wx+e2o2  : eys=rnd(wy)-e2o2\t; \u53f3\r\n\r\n\tex(en)=double(exs)\t; \u521d\u671f\u4f4d\u7f6ex\r\n\tey(en)=double(eys)\t; \u521d\u671f\u4f4d\u7f6ey\r\n\r\n\txn=double(jx-exs)\t; \u6575\u3068\u81ea\u6a5f\u306e\u8ddd\u96e2x\r\n\tyn=double(jy-eys)\t; \u6575\u3068\u81ea\u6a5f\u306e\u8ddd\u96e2y\r\n\r\n\trad=atan(xn,yn) \t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\tedx(en)=sin(rad)*e2sp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\tedy(en)=cos(rad)*e2sp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfy\u3092\u6c42\u3081\u308b\r\n\r\n\ter(en)=-rad+pai\t; \u5411\u304d\r\n\r\n\treturn\r\n\r\n\r\n#deffunc e3_set ; \u51fa\u73fe\r\n\r\n\tif e3c&amp;gt;0 : e3c- : return ; \u30a6\u30a8\u30a4\u30c8\u4e2d\r\n\r\n\t e3c=e3cb ; \u51fa\u73fe\u30a6\u30a8\u30a4\u30c8\u30ea\u30bb\u30c3\u30c8\r\n\r\n\r\n\tf=0 ; \u7a7a\u304d\u30d5\u30e9\u30b0\u78ba\u8a8d ----------\r\n\trepeat eb : en=cnt ; \u6575No.\r\n\t if ef(en)=0 : ef(en)=3 : f=1 : break ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\tloop\r\n\tif f=0 : return ; \u7a7a\u304d\u304c\u7121\u3044\r\n\r\n\r\n\tehp(en)=e3hpb ; \u8010\u4e45\u529b\r\n\r\n\r\n\tr=rnd(4) ; \u51fa\u73fe\u65b9\u5411\r\n\t if r=0 : exs=wx1+rnd(wx-wx1)-e3o2 : eys=0-e3o2\t\t; \u4e0a\r\n\t if r=1 : exs=wx1+rnd(wx-wx1)-e3o2 : eys=wy+e3o2\t; \u4e0b\r\n\t if r=2 : exs=wx1-e3o2 : eys=rnd(wy)-e3o2\t; \u5de6\r\n\t if r=3 : exs=wx+e3o2  : eys=rnd(wy)-e3o2\t; \u53f3\r\n\r\n\tex(en)=double(exs)\t; \u521d\u671f\u4f4d\u7f6ex\r\n\tey(en)=double(eys)\t; \u521d\u671f\u4f4d\u7f6ey\r\n\r\n\txn=double(jx-exs)\t; \u6575\u3068\u81ea\u6a5f\u306e\u8ddd\u96e2x\r\n\tyn=double(jy-eys)\t; \u6575\u3068\u81ea\u6a5f\u306e\u8ddd\u96e2y\r\n\r\n\trad=atan(xn,yn) \t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\tedx(en)=sin(rad)*e3sp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\tedy(en)=cos(rad)*e3sp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfy\u3092\u6c42\u3081\u308b\r\n\r\n\ter(en)=-rad+pai\t; \u5411\u304d\r\n\r\n\treturn\r\n\r\n\r\n#deffunc e1_syo ; \u65751\u79fb\u52d5\u51e6\u7406\r\n\r\n\tex(en)+=edx(en) : ey(en)+=edy(en) ; \u79fb\u52d5\r\n\r\n\tex1=int(ex(en))-e1o2 ; \u6575\u5de6\u5ea7\u6a19\r\n\tex2=int(ex(en))+e1o2 ; \u6575\u53f3\u5ea7\u6a19\r\n\tey1=int(ey(en))-e1o2 ; \u6575\u4e0a\u5ea7\u6a19\r\n\tey2=int(ey(en))+e1o2 ; \u6575\u4e0b\u5ea7\u6a19\r\n\r\n\tif jx1&amp;lt;ex2 and ex1&amp;lt;jx2 and jy1&amp;lt;ey2 and ey1&amp;lt;jy2 {\r\n\t mainf=2 : return ; \u81ea\u6a5f\u3068\u5f53\u305f\u308a\u3067 GAME OVER\r\n\t}\r\n\r\n\tif ex2&amp;lt;0 or wx&amp;lt;ex1 or ey2&amp;lt;0 or wy&amp;lt;ey1 : ef(en)=0 ; \u67a0\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\r\n\treturn\r\n\r\n\r\n#deffunc e2_syo ; \u65752\u79fb\u52d5\u51e6\u7406\r\n\r\n\tex(en)+=edx(en) : ey(en)+=edy(en) ; \u79fb\u52d5\r\n\r\n\tex1=int(ex(en))-e2o2 ; \u6575\u5de6\u5ea7\u6a19\r\n\tex2=int(ex(en))+e2o2 ; \u6575\u53f3\u5ea7\u6a19\r\n\tey1=int(ey(en))-e2o2 ; \u6575\u4e0a\u5ea7\u6a19\r\n\tey2=int(ey(en))+e2o2 ; \u6575\u4e0b\u5ea7\u6a19\r\n\r\n\tif jx1&amp;lt;ex2 and ex1&amp;lt;jx2 and jy1&amp;lt;ey2 and ey1&amp;lt;jy2 {\r\n\t mainf=2 : return ; \u81ea\u6a5f\u3068\u5f53\u305f\u308a\u3067 GAME OVER\r\n\t}\r\n\r\n\tif ex2&amp;lt;0 or wx&amp;lt;ex1 or ey2&amp;lt;0 or wy&amp;lt;ey1 : ef(en)=0 ; \u67a0\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\r\n\treturn\r\n\r\n\r\n#deffunc e3_syo ; \u65753\u79fb\u52d5\u51e6\u7406\r\n\r\n\tex(en)+=edx(en) : ey(en)+=edy(en) ; \u79fb\u52d5\r\n\r\n\tex1=int(ex(en))-e3o2 ; \u6575\u5de6\u5ea7\u6a19\r\n\tex2=int(ex(en))+e3o2 ; \u6575\u53f3\u5ea7\u6a19\r\n\tey1=int(ey(en))-e3o2 ; \u6575\u4e0a\u5ea7\u6a19\r\n\tey2=int(ey(en))+e3o2 ; \u6575\u4e0b\u5ea7\u6a19\r\n\r\n\tif jx1&amp;lt;ex2 and ex1&amp;lt;jx2 and jy1&amp;lt;ey2 and ey1&amp;lt;jy2 {\r\n\t mainf=2 : return ; \u81ea\u6a5f\u3068\u5f53\u305f\u308a\u3067 GAME OVER\r\n\t}\r\n\r\n\tif ex2&amp;lt;0 or wx&amp;lt;ex1 or ey2&amp;lt;0 or wy&amp;lt;ey1 : ef(en)=0 ; \u67a0\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\r\n\treturn\r\n\r\n\r\n#deffunc e_syo ; \u6575\u79fb\u52d5\u51e6\u7406\u30c6\u30fc\u30d6\u30eb\r\n\r\n\trepeat eb : en=cnt ; \u6575No,\r\n\t if ef(en)=0 : continue ; \u7121\u3057\r\n\r\n\t switch ef(en)\r\n\t  case 1 : e1_syo : swbreak ; \u65751\u79fb\u52d5\u51e6\u7406\r\n\t  case 2 : e2_syo : swbreak ; \u65752\u79fb\u52d5\u51e6\u7406\r\n\t  case 3 : e3_syo : swbreak ; \u65753\u79fb\u52d5\u51e6\u7406\r\n\t swend\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n; put.hsp \u8868\u793a\r\n\r\n#deffunc clr ; \u753b\u9762\u30af\u30ea\u30a2\r\n\r\n\tcolor 1,1,1 : boxf : color 255,255,255\r\n\r\n\treturn\r\n\r\n\r\n#deffunc j_put ; \u81ea\u6a5f\u8868\u793a\r\n\r\n\tgmode 2\r\n\r\n\tpos jx,jy\r\n\t if autof=0 : celput jw1 ; \u81ea\u6a5f\u3001\u30de\u30cb\u30e5\u30a2\u30eb\r\n\t if autof=1 : celput jw2 ; \u81ea\u6a5f\u3001\u30aa\u30fc\u30c8\r\n\r\n\treturn\r\n\r\n\r\n#deffunc e_put ; \u6575\u8868\u793a\r\n\r\n\trepeat eb ; \u6575No.\r\n\t if ef(cnt)=0 : continue ; \u7121\u3044\r\n\r\n\t pos ex(cnt),ey(cnt)\r\n\t  gmode 2\r\n\t   if ef(cnt)=1 : celput e1w,,,,er(cnt) ; \u65751\r\n\t   if ef(cnt)=2 : celput e2w,,,,er(cnt) ; \u65752\r\n\t   if ef(cnt)=3 : celput e3w,,,,er(cnt) ; \u65753\r\n\r\n\r\n\t if eaf(cnt)=0 : continue ; \u88ab\u5f3e\u3057\u3066\u306a\u3044\r\n\r\n\t pos ex(cnt),ey(cnt)\r\n\t  gmode 5,,,255 ; \u52a0\u7b97\u5408\u6210\r\n\t   if ef(cnt)=1 : celput e1w,,,,er(cnt) ; \u65751\u88ab\u5f3e\r\n\t   if ef(cnt)=2 : celput e2w,,,,er(cnt) ; \u65752\u88ab\u5f3e\r\n\t   if ef(cnt)=3 : celput e3w,,,,er(cnt) ; \u65753\u88ab\u5f3e\r\n\r\n\t eaf(cnt)=0 ; \u88ab\u5f3e\u3092\u30ea\u30bb\u30c3\u30c8\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc s_put ; \u30b7\u30e7\u30c3\u30c8\u8868\u793a\r\n\r\n\tgmode 2\r\n\r\n\trepeat sb ; \u30b7\u30e7\u30c3\u30c8\r\n\t if sf(cnt)=0 : continue ; \u7121\u3044\r\n\t pos sx(cnt),sy(cnt)\r\n\t  if sf(cnt)=-1 : celput hw,,,,sr(cnt)+rad90 : sf(cnt)=0 : continue ; \u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\r\n\t  celput sw,,,,sr(cnt)+rad90;sw ; \u30b7\u30e7\u30c3\u30c8\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc v_put ; \u30d0\u30eb\u30ab\u30f3\u8868\u793a\r\n\r\n\tgmode 2\r\n\r\n\trepeat vb ; \u30d0\u30eb\u30ab\u30f3\r\n\t if vf(cnt)=0 : continue ; \u7121\u3044\r\n\t pos vx(cnt),vy(cnt)\r\n\t  if vf(cnt)=-1 : celput hw,,,,vr(cnt) : vf(cnt)=0 : continue ; \u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\r\n\t  celput vw,,,,vr(cnt)+rad90 ; \u30d0\u30eb\u30ab\u30f3\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc l_put ; \u30ec\u30fc\u30b6\u30fc\u8868\u793a\r\n\r\n\tif lf&amp;lt;2 or lf=5 : return ; \u767a\u5c04\u3055\u308c\u3066\u306a\u3044\r\n\r\n\r\n\tlln=sqrt((lx2-lx1)*(lx2-lx1)+(ly2-ly1)*(ly2-ly1)) ; \u30ec\u30fc\u30b6\u30fc\u306e\u9577\u3055\r\n\r\n\tlx=lx1+cos(lr)*lln\/2 ; \u8868\u793a\u5ea7\u6a19x\u3001\u59cb\u70b9\u5ea7\u6a19\u306b\u534a\u5206\u306e\u9577\u3055\u3092\u9032\u3093\u3060\u4e2d\u70b9\u5ea7\u6a19\r\n\tly=ly1+sin(lr)*lln\/2 ; \u8868\u793a\u5ea7\u6a19y\r\n\r\n\tpos lx,ly\r\n\r\n\tgmode 5,,,255 ; \u534a\u900f\u660e\u52a0\u7b97\u8868\u793a\r\n\t celput lw,,lopx,lln\/lo,lr+rad90 ; \u30ec\u30fc\u30b6\u30fc\r\n\r\n\treturn\r\n\r\n\r\n#deffunc c_put ; \u7167\u6e96\u8868\u793a\r\n\r\n\tgmode 2\r\n\r\n\tpos cx,cy : celput cw ; \u7167\u6e96\r\n\r\n\treturn\r\n\r\n\r\n#deffunc scr_put ; \u30b9\u30b3\u30a2\u8868\u793a\r\n\r\n\tfont \"\",20,1\r\n\tcolor 224,224,255\r\n\tpos wx-350,5 : mes \"SCORE \"+scr\r\n\tpos wx-190,5 : mes \"HI SCORE \"+hiscr\r\n\r\n\treturn\r\n\r\n\r\n#deffunc waku_put ; \u67a0\u8868\u793a\r\n\r\n\tif subf=1 : color 160,160,160 : boxf 0,120,45,240 : color 255,255,255\r\n\r\n\trepeat 2\r\n\t gmode 2\r\n\t  pos 0,cnt*wy1 : celput ww\r\n\r\n\t if cnt=2 or subf=0 : continue\r\n\r\n\t gmode 5,,,96 ; \u660e\u308b\u304f\u8868\u793a\r\n\t  pos 0,wy1 : celput ww\r\n\tloop\r\n\r\n; \u30d0\u30eb\u30ab\u30f3\r\n\tfont \"\",18,0 : color 255,255,255\r\n\r\n\tpos 7,10 : mes \"VULCAN\"\r\n\r\n\tgmode 2\r\n\r\n\tn=vc\/10\r\n\trepeat n ; \u30d0\u30eb\u30ab\u30f3\u6b8b\u5f3e\u8868\u793a\r\n\t pos 12+(cnt\\10)*5,45+(cnt\/10)*16 : celput vw\r\n\tloop\r\n\r\n; \u30ec\u30fc\u30b6\u30fc\r\n\tpos 13,wy1+10 : mes \"LASER\"\r\n\r\n\tif le&amp;lt;leb : gmode 5,,,160 ; \u5145\u586b\u4e2d\r\n\tif le=leb : gmode 5,,,224 ; \u6e80\u30bf\u30f3\r\n\r\n\tnf=(double(le)*lpf)*(1.0\/double(lo)) ; \u7e26\u306e\u8868\u793a\u500d\u7387\r\n\r\n\tpos wx1\/2,wy1+40+lpb\/2 : celput lw,,0.8,nf ; \u30ec\u30fc\u30b6\u30fc\u5145\u586b\u8868\u793a\r\n\r\n\treturn\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>2019\u5e74 5\u6708 2\u65e5 \u3000 \u3000 \u3000ver.0.008<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17,4,13],"tags":[],"class_list":["post-7603","post","type-post","status-publish","format-standard","hentry","category-1map-stg","category-hsp","category-13"],"_links":{"self":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/7603","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/comments?post=7603"}],"version-history":[{"count":14,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/7603\/revisions"}],"predecessor-version":[{"id":7661,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/7603\/revisions\/7661"}],"wp:attachment":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/media?parent=7603"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/categories?post=7603"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/tags?post=7603"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}