{"id":6588,"date":"2018-06-09T11:59:36","date_gmt":"2018-06-09T02:59:36","guid":{"rendered":"https:\/\/sinsei.space\/blog\/?p=6588"},"modified":"2018-06-26T09:36:32","modified_gmt":"2018-06-26T00:36:32","slug":"1map-stg%e3%80%80%e3%82%aa%e3%83%bc%e3%83%88%e3%82%a8%e3%82%a4%e3%83%a0%e3%82%92%e5%ae%9f%e8%a3%85%e3%81%97%e3%82%88%e3%81%86","status":"publish","type":"post","link":"https:\/\/sinsei.space\/blog\/6588","title":{"rendered":"1MAP-STG\u3000\u30aa\u30fc\u30c8\u30a8\u30a4\u30e0\u3092\u5b9f\u88c5\u3057\u3088\u3046"},"content":{"rendered":"


\n2018\u5e74 6\u67089\u65e5
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u4eca\u56de\u306f\u30aa\u30fc\u30c8\u30a8\u30a4\u30e0\uff08\u81ea\u52d5\u7167\u6e96\uff09\u3092\u5b9f\u88c5\u3057\u307e\u3059\u3002<\/p>\n

\u3000\u30b9\u30de\u30db\u30b2\u30fc\u30e0\u3063\u3066\u3001\u3069\u3046\u3057\u3066\u3082\u64cd\u4f5c\u306b\u99b4\u67d3\u307e\u306a\u3044\u3068\u3044\u3046\u304b\u3001\u753b\u9762\u3092\u64cd\u4f5c\u3059\u308b\u3068\u6307\u3067\u96a0\u308c\u307e\u3059\u304b\u3089\u9451\u8cde\u3067\u304d\u306a\u3044\u3068\u3044\u3046\u304b\u3001\u3060\u304b\u3089\u81ea\u52d5\u30b2\u30fc\u30e0\u3068\u3044\u3046\u304b\u653e\u7f6e\u30b2\u30fc\u30e0\u5411\u304d\u3060\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

\u3000\u305d\u306e\u70b9\u30d1\u30ba\u30c9\u30e9\u306f\u826f\u304f\u8003\u3048\u3089\u308c\u3066\u3044\u308b\u3068\u601d\u3046\u3051\u3069\u3001\u7cbe\u3005\u305d\u306e\u304f\u3089\u3044\u306e\u64cd\u4f5c\u304c\u9650\u754c\u306a\u306e\u304b\u3068\u3082\u601d\u3046\u3002<\/p>\n

\u3000\u3053\u306e 1MAP-STG\u3082\u30b9\u30de\u30db\u3060\u3068\u30a4\u30de\u30a4\u30c1\u30b2\u30fc\u30e0\u3057\u305a\u3089\u3044\u3067\u3059\u306d\u3002<\/p>\n

\u3000\u305d\u3053\u3067\u4eca\u56de\u306f\u30b9\u30de\u30db\u7528\u306b\u30aa\u30fc\u30c8\u30a8\u30a4\u30e0\u3092\u4f5c\u3063\u3066\u307f\u308b\u4e8b\u306b\u3057\u307e\u3059\u3002<\/p>\n

\u3000ver.0.0006<\/a><\/p>\n

\"\"<\/a><\/p>\n


\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u30aa\u30fc\u30c8\u30a8\u30a4\u30e0\u306e\u3084\u308a\u304b\u305f\u3067\u3059\u3051\u3069\u300c\u6a19\u7684\u3068\u3059\u308b\u6575\u306e\u5ea7\u6a19\u3078\u7167\u6e96\u3092\u52d5\u304b\u3059\u300d\u3060\u3051\u3067\u3059\u3002<\/p>\n

\u3000\u3069\u306e\u6575\u3092\u72d9\u3046\u304b\u306f\u3001\u59cb\u3081\u3068\u6a19\u7684\u3092\u5012\u3057\u305f\u6642\u3060\u3051\u635c\u67fb\u3057\u307e\u3059\u3002<\/p>\n

\u3000\u6bce\u30d5\u30ec\u30fc\u30e0\u4e8b\u3060\u3068\u8a08\u7b97\u304c\u983b\u7e41\u306b\u306a\u308b\u3057\u3001\u6a19\u7684\u304c\u90fd\u5ea6\u5909\u308f\u308b\u306e\u3067\u7167\u6e96\u304c\u30a6\u30ed\u30a6\u30ed\u3057\u307e\u3059\u3002<\/p>\n

\u3000\u3069\u306e\u6575\u304c\u4e00\u756a\u8fd1\u3044\u304b\u306f\u3001\u7167\u6e96\u3068\u5168\u6575\u3068\u306e\u8ddd\u96e2\u3092\u6e2c\u308a\u307e\u3059\u3002<\/p>\n

\u3000\u8ddd\u96e2\u3092\u6e2c\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u524d\u56de\u4ee5\u524d\u306b\u3084\u308a\u307e\u3057\u305f\u3002<\/p>\n

x2=ex(cnt)-cx : y2=ey(cnt)-cy
\n\u3000nd2=sqrt(x2*x2+y2*y2); \u8ddd\u96e2<\/span><\/p>\n

\u3000\u6bce\u30d5\u30ec\u30fc\u30e0\u4e8b\u3001\u6a19\u7684\u306b\u3057\u305f\u6575\u306e\u5ea7\u6a19\u3078\u7167\u6e96\u3092\u52d5\u304b\u3057\u3001\u3082\u3057\u7167\u6e96\u3068\u6575\u306e\u8ddd\u96e2\u304c\u7167\u6e96\u306e\u30b9\u30d4\u30fc\u30c9\u4ee5\u4e0b\u306a\u3089\u7167\u6e96\u306e\u5ea7\u6a19\u3092\u6a19\u7684\u306e\u5ea7\u6a19\u306b\u7f6e\u304d\u63db\u3048\u307e\u3059\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000autof<\/span>\u3067\u30aa\u30fc\u30c8\u30e2\u30fc\u30c9\u3068\u30de\u30cb\u30e5\u30a2\u30eb\u30e2\u30fc\u30c9\u306e\u5207\u308a\u66ff\u3048\u3092\u3057\u307e\u3059\u3002<\/p>\n

\u3000autof=0\u3067\u30de\u30cb\u30e5\u30a2\u30eb\u30011\u3067\u30aa\u30fc\u30c8\u30e2\u30fc\u30c9\u3067\u3059\u3002<\/p>\n

\u3000\u5207\u308a\u66ff\u3048\u306f\u771f\u3093\u4e2d\u306e\u81ea\u6a5f\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u4e8b\u3067\u884c\u3044\u307e\u3059\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u305d\u308c\u3068\u4eca\u56de\u306f #deffunc<\/span>\u3092\u4f7f\u3063\u3066\u3001\u6a19\u7684\u3092\u7279\u5b9a\u3059\u308b\u30bd\u30fc\u30b9\u3092\u3001\u30e1\u30a4\u30f3\u30eb\u30fc\u30c1\u30f3\u304b\u3089\u547c\u3073\u51fa\u3057\u3066\u4f7f\u3063\u3066\u307e\u3059\u3002<\/p>\n

\u3000\u3053\u308c\u306f\u6a19\u7684\u3092\u7279\u5b9a\u3059\u308b\u7b87\u6240\u304c\u30bd\u30fc\u30b9\u5185\u3067\u8907\u6570\u306e\u305f\u3081\u3001\u540c\u3058\u30bd\u30fc\u30b9\u3092\u4f55\u56de\u3082\u66f8\u304f\u3068\u591a\u304f\u306a\u308b\u3057\u898b\u3065\u3089\u3044\u304b\u3089\u3067\u3059\u3002<\/p>\n

\u3000\u5408\u308f\u305b\u3066\u3053\u306e\u65b9\u6cd5\u3060\u3068\u3001\u30d0\u30b0\u3092\u6f70\u3057\u3084\u3059\u304f\u306a\u308a\u307e\u3059\u3002<\/p>\n

\u3000\u5b9f\u306f #deffunc\u3000return<\/span>\u306b\u3064\u3044\u3066\u306f\u3001\u30e9\u30d9\u30eb\u306e gosub\u3000return<\/span>\u3068\u9055\u3044\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n

\u3000\u3064\u307e\u308a *main<\/span>\u3068\u3044\u3046\u30e9\u30d9\u30eb\u304c\u3042\u3063\u305f\u3068\u3057\u3066 #deffunc main<\/span> \u3068\u66f8\u304b\u308c\u308b\u3060\u3051\u306e\u4e8b\u3067\u3059\u3002<\/p>\n

\u3000\u4e00\u7a2e\u306e\u30e9\u30d9\u30eb\u5b9a\u7fa9\u547d\u4ee4\u3060\u3068\u601d\u3048\u3070\u826f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

\u3000\u305f\u3060\u5909\u6570\u3092\u6e21\u305b\u308b\u306e\u3068\u3001\u4f8b\u3048\u3070\u30bd\u30fc\u30b9\u304c<\/p>\n

n=10 : gosub *syori<\/span> \u3068\u66f8\u304f\u306e\u3068
\nsyori 10<\/span> \u3068\u66f8\u304f\u306e\u3068\u3067<\/p>\n

\u3000\u5c0f\u3055\u304f\u66f8\u3051\u308b\u306e\u3067\u3001\u983b\u7e41\u306b\u4f7f\u3063\u305f\u308a\u3059\u308b\u306e\u3060\u3068\u66f8\u304d\u3084\u3059\u3044\u3057\u898b\u6613\u3044\u3067\u3059\u3002<\/p>\n

\u3000HSP\u306e\u5834\u5408\u306e\u6b20\u70b9\u306f\u300c\u547c\u3073\u51fa\u3055\u308c\u308b #deffunc\u30bd\u30fc\u30b9\u304c\u3001\u547c\u3073\u51fa\u3057\u3092\u884c\u3046\u30bd\u30fc\u30b9\u3088\u308a\u524d\u306b\u7121\u3044\u3068\u30a8\u30e9\u30fc\u300d\u306b\u306a\u308b\u4e8b\u3067\u3059\u3002<\/p>\n

\u3000\u305d\u306e\u305f\u3081 HSP\u306e\u5834\u5408\u3069\u3046\u3057\u3066\u3082\u3001\u30e1\u30a4\u30f3\u30eb\u30fc\u30c1\u30f3\u304c\u30bd\u30fc\u30b9\u306e\u4e00\u756a\u6700\u5f8c\u306b\u7f6e\u304b\u308c\u308b\u3001\u3068\u3044\u3046\u5947\u5999\u306a\u4e8b\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

\u3000\u6614 BASIC\u4f55\u304b\u306e\u30a4\u30f3\u30bf\u30d7\u30ea\u30bf\uff08\u9010\u6b21\u8a33\u5b9f\u884c\uff09\u8a00\u8a9e\u3067\u306f\u3001\u30e1\u30a4\u30f3\u30eb\u30fc\u30c1\u30f3\u306f\u51e6\u7406\u306e\u65e9\u3044\u524d\u306b\u7f6e\u3051\u3001\u3068\u8a00\u3046\u306e\u304c\u30bb\u30aa\u30ea\u30fc\u3067\u3057\u305f\uff08\u7b11\uff09\uff08\u4eca\u306e\u30b3\u30f3\u30d4\u30e5\u30bf\u30fc\u306e\u901f\u5ea6\u3067\u306f\u5927\u5dee\u7121\u3044\u3093\u3067\u3057\u3087\u3046\u306d\uff09
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u4eca\u4e00\u5ea6\u30ad\u30e3\u30e9\u3092\u5168\u90e8\u7f6e\u3044\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n

\"\"
\n\"\"
\n\"\"
\n\"\"
\n\"\"
\n\"\"
\n\"\"<\/p>\n

\u3000\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3066\u300c\u753b\u50cf\u3092\u4fdd\u5b58\u300d\u3067\u4f7f\u3063\u3066\u4e0b\u3055\u3044\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u305d\u308c\u3067\u306f\u30bd\u30fc\u30b9\u3092<\/p>\n

; \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.006\r\n\r\n#include \"hsp3dish.as\" ; HSPdish\u306e\u5ba3\u8a00\r\n\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\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; \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\tew=4 : eo=20 : eo2=eo\/2\t; \u6575\r\n\t celload \"ene_1.png\",ew\r\n\t  celdiv ew,eo,eo,eo2,eo2\r\n\r\n\tcw=5 : co=32 : co2=co\/2\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=6 : ho=16 : ho2=ho\/2\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=7 : vo=16 : vo2=vo\/2\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\r\n; \u81ea\u6a5f ----------\r\n\tjx=wx\/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=15.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\n\r\n; SHOT ----------\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=20.0\t\t; \u30b9\u30d4\u30fc\u30c9\r\n\tskc=3\t\t\t; 1\u30d5\u30ec\u30fc\u30e0\u3067\u79fb\u52d5\u8a08\u7b97\u3059\u308b\u56de\u6570\r\n\r\n\tsc=0\t\t\t; \u51fa\u73fe\u30ab\u30a6\u30f3\u30c8\r\n\tscb=0\t\t\t; \u767a\u5c04\u9593\u9694(\u30d5\u30ec\u30fc\u30e0)\r\n\tsp=6\t\t\t; \u30d1\u30ef\u30fc\r\n\r\n\tsu=32\t\t\t; \u63fa\u308c\u5e45(\u96c6\u5f3e\u5024)\r\n\r\n; VULCAN ----------\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=20.0\t\t; \u30b9\u30d4\u30fc\u30c9\r\n\tvp=4\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=20\t\t\t; 1\u3064\u6575\u3092\u5012\u3057\u305f\u6642\u306b\u5897\u3048\u308b\u6570\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 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\tehpb=60\t\t\t; \u8010\u4e45\u5ea6\r\n\r\n\tesp=0.8\t\t\t; \u6575\u30b9\u30d4\u30fc\u30c9\r\n\r\n\tec=0\t\t\t; \u51fa\u73fe\u30ab\u30a6\u30f3\u30c8\r\n\tecb=8\t\t\t; \u51fa\u73fe\u9593\u9694(\u30d5\u30ec\u30fc\u30e0)\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\ngosub *main : end\r\n\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<nd1 : nd1=nd2 : esn=cnt\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n*main\r\n\r\n\tmainf=0 ; \u30b2\u30fc\u30e0\u30d5\u30e9\u30b0\r\n\r\n\trepeat ; \u30e1\u30a4\u30f3\u30eb\u30fc\u30d7 ----------------------------------\r\n\r\n\t switch mainf\r\n\t  case 0 ; \u30bf\u30a4\u30c8\u30eb ----------\r\n\t   stick k : if k=0 : swbreak ; \u30dc\u30bf\u30f3\u3067\u30b2\u30fc\u30e0\u518d\u958b\r\n\t   mainf=1\r\n\t  swbreak ; ----------\r\n\r\n\t  case 1 ; \u30b2\u30fc\u30e0 ----------\r\n\r\n; \u5165\u529b ----------\r\n\r\n\t   x=mousex : y=mousey\t; \u30de\u30a6\u30b9\u3001\u30b9\u30de\u30db\u306e\u5ea7\u6a19\r\n\r\n\t   stick k,256\t; \u30de\u30a6\u30b9\u3001\u30b9\u30de\u30db\u30af\u30ea\u30c3\u30af\r\n\t\r\n\t   repeat 1 ; \u30d0\u30eb\u30ab\u30f3\u306e\u5165\u529b\u5224\u5b9a\r\n\t    if k=256 : kf=1 : kc+ : break\t; \u62bc\u3057\u3066\u3044\u308b\r\n\t    if kf=0 : break\t\t\t\t\t; \u4e00\u5ea6\u3082\u62bc\u3057\u3066\u306a\u3044\r\n\r\n\t    kf=0\t\t\t\t\t\t; \u653e\u3057\u305f\u3001\u62bc\u3057\u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\r\n\t    if kc>2 : kc=0 : break\t\t\t\t\t; 2\u30d5\u30ec\u30fc\u30e0\u4ee5\u4e0a\u62bc\u3057\u3066\u3044\u305f\r\n         kc=0\r\n\t\tif jx1<x and x<jx2 and jy1<y and y<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\t    if vc=0 or vn>0 : break\t\t\t; \u5f3e\u5207\u308c or \u30d0\u30eb\u30ab\u30f3\u767a\u5c04\u4e2d\r\n\t     vn+=vnb\t\t\t\t\t\t; \u30d0\u30eb\u30ab\u30f3\u767a\u5c04\u8981\u6c42\u6570\r\n\t     cx=double(x) : cy=double(y)\t; \u7167\u6e96\u4f4d\u7f6e\u3092\u30ab\u30fc\u30bd\u30eb\u4f4d\u7f6e\u306b\u30bb\u30c3\u30c8\r\n\t     esn_set 1\t\t\t\t\t\t; \u6b21\u306e\u6a19\u7684\u3092\u63a2\u3059\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\tnd=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<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; SHOT ----------\r\n\t   repeat 1 ; \u767a\u5c04\r\n\t    if sc>0 : sc- : break ; \u30a6\u30a8\u30a4\u30c8\u4e2d\r\n\r\n\t    repeat sb\r\n\t     if sf(cnt)!0 : continue ; \u4f7f\u7528\u4e2d\r\n\r\n\t     sf(cnt)=1 ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\t\t sx(cnt)=double(jx) : sy(cnt)=double(jy) ; \u521d\u671f\u5ea7\u6a19\r\n\r\n\t\t xx=int(cx)-su\/2+rnd(su) ; \u30b7\u30e7\u30c3\u30c8\u306e\u7740\u5f3e\u70b9x\r\n\t\t yy=int(cy)-su\/2+rnd(su) ; \u30b7\u30e7\u30c3\u30c8\u306e\u7740\u5f3e\u70b9y\r\n\r\n\t\t xn=double(xx-jx)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2x\r\n\t\t yn=double(yy-jy)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2y\r\n\r\n\t\t rad=atan(xn,yn)\t\t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\t\t sr(cnt)=-rad+pai\t\t; \u5411\u304d\r\n\r\n\t \t sdx(cnt)=sin(rad)*ssp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\t \t sdy(cnt)=cos(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\t\t sxb(cnt)=xx : syb(cnt)=yy\t; \u7d42\u70b9\u5ea7\u6a19\r\n\r\n\t\t skn(cnt)=0.0\t\t\t\t; \u73fe\u79fb\u52d5\u8ddd\u96e2\u3092\u30ea\u30bb\u30c3\u30c8\r\n\r\n\t\t x2=xx-jx : y2=yy-jy\r\n\t\t  skb(cnt)=sqrt(x2*x2+y2*y2); \u6700\u7d42\u79fb\u52d5\u8ddd\u96e2\r\n\t\t \r\n\t\t break\r\n\t\tloop\r\n\t\tsc=scb ; \u767a\u5c04\u30a6\u30a8\u30a4\u30c8\r\n\t   loop\r\n\r\n\t   repeat sb : scn=cnt ; \u30b7\u30e7\u30c3\u30c8\u79fb\u52d5\u51e6\u7406\r\n\t\tif sf(scn)=0 : continue ; \u7121\u3057\r\n\r\n\t\trepeat skc : cnt2=cnt ; 1\u30b7\u30e7\u30c3\u30c8\u306e\u79fb\u52d5\u7e70\u308a\u8fd4\u3057 ====================\r\n\t\t sx(scn)+=sdx(scn) ; x\u306e\u79fb\u52d5\r\n\t\t sy(scn)+=sdy(scn) ; y\u306e\u79fb\u52d5\r\n\r\n\t\t skn(scn)+=ssp ; \u3069\u308c\u3060\u3051\u8ddd\u96e2\u3092\u9032\u3093\u3060\u304b\r\n\t\t  if skn(scn)>=skb(scn) { ; \u7d42\u70b9\u5224\u5b9a\r\n\t\t\t sx(scn)=double(sxb(scn))\r\n\t\t\t sy(scn)=double(syb(scn))\r\n\t\t\t sf(scn)=-1 ; \u7740\u5f3e\u30d5\u30e9\u30b0\r\n\t\t  }\r\n\r\n\t\t sx1=int(sx(scn))-so2 ; \u30b7\u30e7\u30c3\u30c8\u5de6\u5ea7\u6a19\r\n\t\t sx2=int(sx(scn))+so2 ; \u30b7\u30e7\u30c3\u30c8\u53f3\u5ea7\u6a19\r\n\t\t sy1=int(sy(scn))-so2 ; \u30b7\u30e7\u30c3\u30c8\u4e0a\u5ea7\u6a19\r\n\t\t sy2=int(sy(scn))+so2 ; \u30b7\u30e7\u30c3\u30c8\u4e0b\u5ea7\u6a19\r\n\r\n\t\t repeat eb ; \u6575\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\t\t  if ef(cnt)=0 : continue\r\n\r\n\t\t  ex1=int(ex(cnt))-eo2 ; \u6575\u5de6\u5ea7\u6a19\r\n\t\t  ex2=int(ex(cnt))+eo2 ; \u6575\u53f3\u5ea7\u6a19\r\n\t\t  ey1=int(ey(cnt))-eo2 ; \u6575\u4e0a\u5ea7\u6a19\r\n\t\t  ey2=int(ey(cnt))+eo2 ; \u6575\u4e0b\u5ea7\u6a19\r\n\r\n\t\t  if sx1<ex2 and ex1<sx2 and sy1<ey2 and ey1<sy2 {\r\n\t\t   sf(scn)=-1\r\n\t\t   ehp(cnt)-=sp ; \u8010\u4e45\u5ea6-\r\n\t\t\tif ehp(cnt)<=0 { ; \u5012\u3057\u305f\u304b\r\n\t\t\t ef(cnt)=0\t; \u5f53\u305f\u3063\u305f\u6575\u3068\u30b7\u30e7\u30c3\u30c8\u3092\u6d88\u3059\r\n\t\t\t esn_set 0\t; \u6b21\u306e\u6a19\u7684\u3092\u63a2\u3059\r\n\t\t\t vc+=vcb\t; \u30d0\u30eb\u30ab\u30f3\u306e\u6b8b\u5f3e\u6570\u3092\u5897\u3084\u3059\r\n\t\t\t scr+\t\t; \u30b9\u30b3\u30a2\r\n\t\t\t if hiscr<scr : hiscr=scr ; \u30cf\u30a4\u30b9\u30b3\u30a2\u306e\u66f4\u65b0\r\n\t\t\t break\r\n\t\t\t}\r\n\t\t  }\r\n\t\t loop\r\n\r\n\t\t if sf(scn)=1 : if sx2<0 or wx<sx1 or sy2<0 or wy<sy1 : sf(scn)=0 : break ; \u5834\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\r\n\t\t if sf(scn)=-1 : break ; \u7740\u5f3e\u3057\u3066\u308b\r\n\r\n\t\tloop ; ====================\r\n\t   loop\r\n\r\n\r\n; VULCAN ----------\r\n\r\n\t   repeat vkc : cnt2=cnt ; 1\u30d5\u30ec\u30fc\u30e0\u306b\u767a\u5c04\u3055\u308c\u308b\u6570\r\n\t    if vn=0 or vc=0 : break ; \u767a\u5c04\u8981\u6c42\u6570\u3001\u307e\u305f\u306f\u6b8b\u5f3e\u304c0\r\n\r\n\t\trepeat vb : vcn=cnt\r\n\t     if vf(vcn)!0 : continue ; \u4f7f\u7528\u4e2d\r\n\r\n\t     vn- ; \u767a\u5c04\u8981\u6c42\u6570-\r\n\t     vc- : if vc=0 : vn=0 ; \u6b8b\u5f3e-\r\n\r\n\t     vf(vcn)=1 ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\t\t vx(vcn)=double(jx) : vy(vcn)=double(jy) ; \u521d\u671f\u5ea7\u6a19\r\n\r\n\t\t xn=cx-double(jx)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2x\r\n\t\t yn=cy-double(jy)\t\t; \u81ea\u6a5f\u3068\u30de\u30a6\u30b9\u306e\u8ddd\u96e2y\r\n\r\n\t\t rd=double(-(vu\/2)+rnd(vu+1))\/100.0 ; \u63fa\u308c\u5e45\uff08\u30e9\u30b8\u30a2\u30f3\uff09\r\n\t\t  rad=atan(xn,yn)+rd\t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\t\t vr(vcn)=-rad+pai\t\t; \u5411\u304d\r\n\r\n\t \t vdx(vcn)=sin(rad)*vsp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\t \t vdy(vcn)=cos(rad)*vsp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfy\u3092\u6c42\u3081\u308b\r\n\r\n\t\t repeat cnt2\r\n\t\t  vx(vcn)-=vdx(vcn) ; \u59cb\u70b9\u5ea7\u6a19\u3092\u30d0\u30c3\u30af\u3055\u305b\u3066\u304a\u304fx\r\n\t\t  vy(vcn)-=vdy(vcn) ; \u59cb\u70b9\u5ea7\u6a19\u3092\u30d0\u30c3\u30af\u3055\u305b\u3066\u304a\u304fy\r\n\t\t loop\r\n\r\n\t\t break\r\n\t\tloop\r\n\t   loop\r\n\r\n\t   repeat vkc ; vkc\u56de\u79fb\u52d5\r\n\t    repeat vb : vcn=cnt ; \u30d0\u30eb\u30ab\u30f3\u79fb\u52d5\u51e6\u7406\r\n\t\t if vf(vcn)=0 : continue ; \u7121\u3057\r\n\r\n\t     vx(vcn)+=vdx(vcn) ; x\u306e\u79fb\u52d5\r\n\t     vy(vcn)+=vdy(vcn) ; y\u306e\u79fb\u52d5\r\n\r\n\t     vx1=int(vx(vcn))-vo2 ; \u30d0\u30eb\u30ab\u30f3\u5de6\u5ea7\u6a19\r\n\t     vx2=int(vx(vcn))+vo2 ; \u30d0\u30eb\u30ab\u30f3\u53f3\u5ea7\u6a19\r\n\t     vy1=int(vy(vcn))-vo2 ; \u30d0\u30eb\u30ab\u30f3\u4e0a\u5ea7\u6a19\r\n\t     vy2=int(vy(vcn))+vo2 ; \u30d0\u30eb\u30ab\u30f3\u4e0b\u5ea7\u6a19\r\n\r\n\t     repeat eb ; \u6575\u3068\u306e\u5f53\u305f\u308a\u5224\u5b9a\r\n\t      if ef(cnt)=0 : continue\r\n\r\n\t      ex1=int(ex(cnt))-eo2 ; \u6575\u5de6\u5ea7\u6a19\r\n\t      ex2=int(ex(cnt))+eo2 ; \u6575\u53f3\u5ea7\u6a19\r\n\t      ey1=int(ey(cnt))-eo2 ; \u6575\u4e0a\u5ea7\u6a19\r\n\t      ey2=int(ey(cnt))+eo2 ; \u6575\u4e0b\u5ea7\u6a19\r\n\r\n\t      if vx1<ex2 and ex1<vx2 and vy1<ey2 and ey1<vy2 {\r\n\t       vf(vcn)=-1\r\n\t       ehp(cnt)-=vp ; \u8010\u4e45\u5ea6-\r\n\t        if ehp(cnt)<=0 { ; \u5012\u3057\u305f\u304b\r\n\t         ef(cnt)=0 ; \u6575\u3092\u6d88\u3059\r\n\t\t\t esn_set 1\t; \u6b21\u306e\u6a19\u7684\u3092\u63a2\u3059\r\n\t         vcr+ ; \u30b9\u30b3\u30a2\r\n\t         if hiscr<scr : hiscr=scr ; \u30cf\u30a4\u30b9\u30b3\u30a2\u306e\u66f4\u65b0\r\n\t         break\r\n\t        }\r\n\t      }\r\n\t     loop\r\n\r\n\t     if vf(vcn)=1 : if vx2<0 or wx<vx1 or vy2<0 or wy<vy1 : vf(vcn)=0 : continue ; \u5834\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\r\n\t     if vf(vcn)=-1 : continue ; \u7740\u5f3e\u3057\u3066\u308b\r\n\t    loop\r\n\t   loop\r\n\r\n\r\n; ENEMY ----------\r\n\r\n\t   repeat 1 ; \u6575\u51fa\u73fe\r\n\t    if ec>0 : ec- : break ; \u30a6\u30a8\u30a4\u30c8\u4e2d\r\n\r\n\t\trepeat eb ; \u30d5\u30e9\u30b0\u78ba\u8a8d\r\n\t\t if ef(cnt)>0 : continue ; \u4f7f\u7528\u4e2d\r\n\t\t ef(cnt)=1 ; \u4f7f\u7528\u30d5\u30e9\u30b0on\r\n\r\n\t\t ehp(cnt)=ehpb\r\n\r\n\t\t r=rnd(4) ; \u51fa\u73fe\u65b9\u5411\r\n\t\t  if r=0 : exs=rnd(wx)-eo2 : eys=0-eo2\t; \u4e0a\r\n\t\t  if r=1 : exs=rnd(wx)-eo2 : eys=wy+eo2\t; \u4e0b\r\n\t\t  if r=2 : exs=-eo2\t  : eys=rnd(wy)-eo2\t; \u5de6\r\n\t\t  if r=3 : exs=wx+eo2 : eys=rnd(wy)-eo2\t; \u53f3\r\n\r\n\t\t  ex(cnt)=double(exs)\t; \u521d\u671f\u4f4d\u7f6ex\r\n\t\t  ey(cnt)=double(eys)\t; \u521d\u671f\u4f4d\u7f6ey\r\n\r\n\t\t  xn=double(jx-exs)\t; \u6575\u3068\u81ea\u6a5f\u306e\u8ddd\u96e2x\r\n\t\t  yn=double(jy-eys)\t; \u6575\u3068\u81ea\u6a5f\u306e\u8ddd\u96e2y\r\n\r\n\t\t  rad=atan(xn,yn) \t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\t\t  edx(cnt)=sin(rad)*esp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\t\t  edy(cnt)=cos(rad)*esp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfy\u3092\u6c42\u3081\u308b\r\n\r\n\t\t  er(cnt)=-rad+pai\t; \u5411\u304d\r\n\r\n\t\t  ec=ecb ; \u51fa\u73fe\u30a6\u30a8\u30a4\u30c8\r\n\r\n\t\t  break ; \u767b\u9332\u7d42\u308f\u308a\r\n\t\tloop\r\n\t   loop\r\n\r\n\t   repeat eb ; \u6575\u79fb\u52d5\u51e6\u7406\r\n\t\tif ef(cnt)=0 : continue ; \u7121\u3057\r\n\r\n\t\tex(cnt)+=edx(cnt) : ey(cnt)+=edy(cnt) ; \u79fb\u52d5\r\n\r\n\t\tex1=int(ex(cnt))-eo2 ; \u6575\u5de6\u5ea7\u6a19\r\n\t\tex2=int(ex(cnt))+eo2 ; \u6575\u53f3\u5ea7\u6a19\r\n\t\tey1=int(ey(cnt))-eo2 ; \u6575\u4e0a\u5ea7\u6a19\r\n\t\tey2=int(ey(cnt))+eo2 ; \u6575\u4e0b\u5ea7\u6a19\r\n\r\n\t\tif jx1<ex2 and ex1<jx2 and jy1<ey2 and ey1<jy2 {\r\n\t\t\tmainf=2 : break ; \u81ea\u6a5f\u3068\u5f53\u305f\u308a\u3067 GAME OVER\r\n\t\t}\r\n\r\n\t\tif ex2<0 or wx<ex1 or ey2<0 or wy<ey1 : ef(cnt)=0 ; \u67a0\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\t   loop\r\n\t  swbreak ; ----------\r\n\r\n\t  case 2 ; gameover ----------\r\n\t   stick k : if k=0 : swbreak ; \u30dc\u30bf\u30f3\u3067\u30b2\u30fc\u30e0\u518d\u958b\r\n\r\n\t   cx=double(jx) ; \u7167\u6e96\u5ea7\u6a19x\u30ea\u30bb\u30c3\u30c8\r\n\t   cy=double(jy) ; \u7167\u6e96\u5ea7\u6a19y\u30ea\u30bb\u30c3\u30c8\r\n\r\n\t   repeat sb\r\n\t    sf(cnt)=0 ; \u30b7\u30e7\u30c3\u30c8\u30ea\u30bb\u30c3\u30c8\r\n\t   loop\r\n\r\n\t   repeat vb\r\n\t    vf(cnt)=0 ; \u30d0\u30eb\u30ab\u30f3\u30ea\u30bb\u30c3\u30c8\r\n\t   loop\r\n\t   vn=0 : vc=0 ; \u6b8b\u5f3e\u30ea\u30bb\u30c3\u30c8\r\n\r\n\t\u3000 repeat eb\r\n\t    ef(cnt)=0 ; \u6575\u30ea\u30bb\u30c3\u30c8\r\n\t   loop\r\n\r\n\t   scr=0 ; \u30b9\u30b3\u30a2\u30ea\u30bb\u30c3\u30c8\r\n\r\n\t   mainf=0 ; \u30b2\u30fc\u30e0\u518d\u958b\r\n\t  swbreak ; ----------\r\n\t swend\r\n\r\n\r\n\t redraw 0 ; \u8868\u793a ====================\r\n\t  color 1,1,1 : boxf : color 255,255,255 ; \u753b\u9762\u30af\u30ea\u30a2\r\n\r\n\t  pos 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\t  repeat eb ; \u6575\r\n\t   if ef(cnt)=0 : continue ; \u7121\u3044\r\n\t   pos ex(cnt),ey(cnt) : celput ew,,,,er(cnt) ; \u6575\r\n\t  loop\r\n\r\n\t  repeat 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) : sf(cnt)=0 : continue ; \u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\r\n\t    celput sw ; \u30b7\u30e7\u30c3\u30c8\r\n\t  loop\r\n\r\n\t  repeat 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) ; \u30d0\u30eb\u30ab\u30f3\r\n\t  loop\r\n\r\n\t  pos 10,wy-20 : mes vc ; \u30d0\u30eb\u30ab\u30f3\u306e\u6b8b\u5f3e\u8868\u793a\r\n\t  repeat vc\/10\r\n\t   pos 50+cnt*6,wy-12 : celput vw\r\n\t   if cnt=100 : break ; \u6700\u5927\r\n\t  loop\r\n\r\n\t  pos cx,cy : celput cw ; \u7167\u6e96\r\n\r\n\t  switch mainf\r\n\t   case 0 ; \u30bf\u30a4\u30c8\u30eb\r\n\t    pos wx\/2-120,wy\/2-50 : mes \"1\u753b\u9762\u9632\u885b\u30b7\u30e5\u30fc\u30c6\u30a3\u30f3\u30b0\"\r\n\t    pos wx\/2-43,wy\/2+30 : mes \"var.0.006\"\r\n\t   swbreak\r\n\r\n\t   case 1 ; \u30b2\u30fc\u30e0\r\n\t   swbreak\r\n\r\n\t   case 2 ; gameover\r\n\t    pos wx\/2-43,wy\/2+50 : mes \"GAME OVER\"\r\n\t   swbreak\r\n\t  swend\r\n\r\n\t  pos wx-300,5 : mes \"SCORE \"+scr\r\n\t  pos wx-150,5 : mes \"HI SCORE \"+hiscr\r\n\t redraw 1 ; ====================\r\n\r\n\r\n\t await 1000\/15\t; \u30a6\u30a8\u30a4\u30c8\u3001FPS 15\r\n\r\n\tloop ; --------------------------------------------------\r\n\r\n\r\n\treturn ; \u7d42\u308f\u308a<\/pre>\n
\u3000<\/strong>
\n\u3000<\/strong>
\n
\n\u30d7\u30ed\u30b0\u30e9\u30e0\u89e3\u8aac<\/span><\/b>
\n
\n\u6a19\u7684\u306e\u9078\u5b9a<\/span><\/p>\n\n
\n#deffunc esn_set int esn_setf ; \u6a19\u7684\u8a2d\u5b9a
\n\u3000esn=0\t\t; \u4e00\u756a\u8fd1\u3044\u6575No.
\n\u3000nd1=1000.0\t; \u4e00\u756a\u8fd1\u3044\u8ddd\u96e2
\n\u3000repeat eb
\n\u3000 if ef(cnt)=0 : continue
\n\u3000 if esn_setf=0 : x2=ex(cnt)-jx : y2=ey(cnt)-jy ; \u81ea\u6a5f\u306b\u8fd1\u3044
\n\u3000 if esn_setf=1 : x2=ex(cnt)-cx : y2=ey(cnt)-cy ; \u7167\u6e96\u306b\u8fd1\u3044
\n\u3000\u3000nd2=sqrt(x2*x2+y2*y2); \u8ddd\u96e2
\n\u3000\u3000if nd2<nd1 : nd1=nd2 : esn=cnt
\n\u3000loop
\nreturn
\n<\/span><\/p>\n
#deffunc esn_set int esn_setf<\/span>
\n\u3000\u547c\u3073\u51fa\u3057\u30eb\u30fc\u30c1\u30f3\u5b9a\u7fa9\u3002
\n\u3000int esn_setf\u306f int\uff08\u6574\u6570\u5024\uff09\u3092\u6e21\u3059\u3068\u8a00\u3046\u610f\u5473\u3067\u3001\u547c\u3073\u51fa\u3057\u5074\u306f esn_set 0\u306e\u3088\u3046\u306a\u66f8\u304d\u65b9\u306b\u306a\u308a\u3001\u3053\u306e\u5834\u5408 0\u306e\u5024\u3092\u6e21\u3059\u3002
\n
\n\u3000 if esn_setf=0 : x2=ex(cnt)-jx : y2=ey(cnt)-jy ; \u81ea\u6a5f\u306b\u8fd1\u3044
\n\u3000 if esn_setf=1 : x2=ex(cnt)-cx : y2=ey(cnt)-cy ; \u7167\u6e96\u306b\u8fd1\u3044<\/span>
\n\u3000\u6e21\u3055\u308c\u305f esn_setf\u306e\u5024\u3092\u5143\u306b\u30010\u306e\u5834\u5408\u306f\u753b\u9762\u4e2d\u5fc3\u306e\u81ea\u6a5f\u306b\u8fd1\u3044\u6575\u3092\u6a19\u7684\u3068\u3057\u30011\u306e\u5834\u5408\u306f\u52d5\u304d\u56de\u308b\u7167\u6e96\u306b\u8fd1\u3044\u6575\u3092\u6a19\u7684\u3068\u3059\u308b\u3002<\/p>\n
\u3000\u547c\u3073\u51fa\u3057\u304c\u8907\u6570\u500b\u6240\u3067\u884c\u308f\u308c\u3066\u3044\u3066\u3001\u30b7\u30e7\u30c3\u30c8\u3067\u6575\u3092\u5012\u3057\u305f\u5834\u5408\u306f 0\u3001\u3064\u307e\u308a\u81ea\u6a5f\u306b\u8fd1\u3044\u6575\u3001\u30d0\u30eb\u30ab\u30f3\u3067\u5012\u3057\u305f\u5834\u5408\u306f 1\u3001\u3064\u307e\u308a\u7167\u6e96\u306e\u305d\u306e\u5834\u6240\u304b\u3089\u8fd1\u3044\u6575\u3068\u306a\u3063\u3066\u308b\u3002<\/p>\n
return<\/span>
\n\u3000\u547c\u3073\u51fa\u3055\u308c\u305f\u30e1\u30a4\u30f3\u306e\u30eb\u30fc\u30c1\u30f3\u3078\u623b\u308b\u3002\n<\/td>\n<\/table>\n
\u3000<\/strong>
\n\u3000<\/strong>
\n\u30aa\u30fc\u30c8\u30e2\u30fc\u30c9<\/span><\/p>\n\n
\nif jx1<x and x<jx2 and jy1<y and y<jy2 : autof=(autof+1)\\2 : break<\/span>
\n\u3000\u30af\u30ea\u30c3\u30af\u767a\u52d5\u306e\u6642\u306b\u3001\u5ea7\u6a19\u304c\u81ea\u6a5f\u306e\u4f4d\u7f6e\u306a\u3089\u30aa\u30fc\u30c8\u30e2\u30fc\u30c9\u306e on off\u5207\u308a\u66ff\u3048\u3002<\/p>\n
\u3000autof=(autof+1)\\2<\/span>\u306e\\\uff08HSP\u30a8\u30c7\u30a3\u30bf\u306e\u30bd\u30fc\u30b9\u8868\u793a\u3067\u306f ¥ \u306e\u8868\u793a\uff09\u306f\u3001\u5272\u3063\u305f\u6570\u306e\u4f59\u308a<\/span>\u3092\u6c42\u3081\u308b\u8a18\u53f7\u3067\u3001\u3053\u306e\u5834\u5408\u5b9f\u52b9\u4e8b\u306b autof\u306e\u5024\u306f 0 1 0 1 0 \u30fb\u30fb\u30fb\u3068\u306a\u308b\u3002
\n\u3000\u3064\u307e\u308a\\3\u306a\u3089\u30010 1 2 0 1 2\u3068\u5909\u5316\u3059\u308b\u3002<\/p>\n
if autof=0 : cx=double(x) : cy=double(y) : break ; \u30de\u30cb\u30e5\u30a2\u30eb\u306e\u5834\u5408<\/span>
\n\u3000\u30de\u30cb\u30e5\u30a2\u30eb\u30e2\u30fc\u30c9\u306e\u6642\u306f\u7167\u6e96\u306e\u5ea7\u6a19\u3001cx cy\u3092\u3001\u30de\u30a6\u30b9\u5ea7\u6a19 x y\u306b\u3059\u308b\u3002<\/p>\n
if nd<csp : cx=ex(esn) : cy=ey(esn) : break<\/span>
\n\u3000\u30aa\u30fc\u30c8\u30e2\u30fc\u30c9\u306e\u6642\u3001\u7167\u6e96\u3068\u6a19\u7684\u306e\u8ddd\u96e2\u304c\u7167\u6e96\u306e\u30b9\u30d4\u30fc\u30c9\u3088\u308a\u8fd1\u3044\u306a\u3089\u3001\u7167\u6e96\u306e\u5ea7\u6a19\u306f\u6a19\u7684\u306e\u5ea7\u6a19\u3067\u7f6e\u304d\u63db\u3048\u308b\u3060\u3051\u3067\u826f\u3044\u3002\n<\/td>\n<\/table>\n","protected":false},"excerpt":{"rendered":"
2018\u5e74 6\u67089\u65e5 \u3000 \u3000 \u3000\u4eca\u56de\u306f\u30aa\u30fc\u30c8\u30a8\u30a4\u30e0\uff08\u81ea\u52d5\u7167\u6e96\uff09\u3092\u5b9f\u88c5\u3057\u307e\u3059\u3002 \u3000\u30b9\u30de\u30db\u30b2\u30fc\u30e0\u3063\u3066\u3001\u3069\u3046\u3057\u3066\u3082\u64cd\u4f5c\u306b\u99b4\u67d3\u307e\u306a\u3044\u3068\u3044\u3046\u304b\u3001\u753b\u9762\u3092\u64cd\u4f5c\u3059\u308b\u3068\u6307\u3067\u96a0\u308c\u307e\u3059\u304b\u3089\u9451\u8cde\u3067\u304d\u306a\u3044\u3068\u3044\u3046\u304b\u3001\u3060\u304b\u3089\u81ea\u52d5\u30b2\u30fc\u30e0\u3068\u3044\u3046\u304b\u653e\u7f6e\u30b2\u30fc … “1MAP-STG\u3000\u30aa\u30fc\u30c8\u30a8\u30a4\u30e0\u3092\u5b9f\u88c5\u3057\u3088\u3046” \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[17,6,13],"tags":[],"class_list":["post-6588","post","type-post","status-publish","format-standard","hentry","category-1map-stg","category-webgl","category-13"],"_links":{"self":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/6588","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=6588"}],"version-history":[{"count":61,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/6588\/revisions"}],"predecessor-version":[{"id":6658,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/6588\/revisions\/6658"}],"wp:attachment":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/media?parent=6588"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/categories?post=6588"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/tags?post=6588"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}