{"id":6732,"date":"2018-06-22T14:45:13","date_gmt":"2018-06-22T05:45:13","guid":{"rendered":"https:\/\/sinsei.space\/blog\/?p=6732"},"modified":"2018-06-26T09:35:55","modified_gmt":"2018-06-26T00:35:55","slug":"1map-stg-%e6%95%b5%e7%a8%ae%e9%a1%9e%e3%82%92%e8%a4%87%e6%95%b0%e5%8c%96%e3%81%97%e3%82%88%e3%81%86","status":"publish","type":"post","link":"https:\/\/sinsei.space\/blog\/6732","title":{"rendered":"1MAP-STG \u6575\u7a2e\u985e\u3092\u8907\u6570\u5316\u3057\u3088\u3046"},"content":{"rendered":"


\n2018\u5e74 6\u670822\u65e5
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000ver.0.007<\/a><\/p>\n

\"\"<\/a>
\n\u3000<\/strong>
\n\u3000\u4eca\u56de\u306f\u307e\u3068\u3081\u305f\u3082\u306e\u3092 zip\u30d5\u30a1\u30a4\u30eb<\/a>\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n

\u3000\u8868\u793a\u306e 0.006\u3092 0.007\u306b\u3057\u5fd8\u308c\u3066\u307e\u3059\u304c\u3001\u6700\u5f8c\u306b\u6c17\u3065\u3044\u3066\u3082\u3046\u3081\u3093\u3069\u304f\u3055\u3044\u306e\u3067\u305d\u306e\u307e\u307e\u3067\u3059\u3002<\/p>\n

\u3000\u30d7\u30ed\u30b0\u30e9\u30e0\u3084\u3063\u305f\u4e8b\u306e\u3042\u308b\u4eba\u306a\u3089\u5206\u304b\u3063\u3066\u3082\u3089\u3048\u308b\u3068\u601d\u3044\u307e\u3059\u3051\u3069\u3001\u30d0\u30b0\u306f\u5fc5\u305a\u3042\u308b\uff08\u7b11\uff09
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u4eca\u56de\u306f\u6575\u306e\u7a2e\u985e\u3092 3\u7a2e\u985e\u306b\u3057\u305f\u3002<\/p>\n

\"\"\u3000\u30d0\u30ae\u30fc\u307e\u305f\u306f\u30d0\u30a4\u30af\u306e\u30a4\u30e1\u30fc\u30b8<\/p>\n

\"\"\u3000\u6226\u8eca\u306e\u30a4\u30e1\u30fc\u30b8<\/p>\n

\"\"\u3000\u8981\u585e\u306e\u30a4\u30e1\u30fc\u30b8<\/p>\n

\u3000\u4eca\u56de\u306f\u307e\u3060\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\uff08\u6319\u52d5\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\uff09\u81ea\u4f53\u306f\u5168\u90e8\u81ea\u6a5f\u306b\u5411\u304b\u3046\u76f4\u7dda\u904b\u52d5\u3060\u3051\u3067\u5909\u5316\u306f\u7121\u3044\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u5408\u308f\u305b\u3066\u30bd\u30fc\u30b9\u304c\u9577\u304f\u306a\u3063\u305f\u306e\u3067\u3001\u3053\u306e\u8fba\u3067\u3044\u3064\u3082\u306e\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\uff08\u30d7\u30ed\u30b0\u30e9\u30e0\u69cb\u9020\uff09\u3092\u4f7f\u3046\u4e8b\u306b\u3057\u305f\u3002<\/p>\n


\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u3053\u3093\u306a\u611f\u3058\u3067\u30bd\u30fc\u30b9\u30d5\u30a1\u30a4\u30eb\u3092\u5206\u5272\u3059\u308b<\/p>\n

\"\"
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000main.hsp\u304c\u30e1\u30a4\u30f3\u30bd\u30fc\u30b9\u3067\u3001\u3053\u3053\u306b put.hsp\u3001shot.hsp\u3001ene.hsp\u3001syoki.hsp\u3092 #inculude\uff08\u30a4\u30f3\u30af\u30eb\u30fc\u30c9\u3001\u53d6\u308a\u8fbc\u307f\u3001\u3053\u306e\u5834\u6240\u306b\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u30bd\u30fc\u30b9\u3092\u7f6e\u304d\u63db\u3048\u308b\uff09\u3059\u308b\u3002<\/p>\n

\u3000put=\u8868\u793a\u95a2\u4fc2\u5168\u90e8
\n\u3000shot=\u30b7\u30e7\u30c3\u30c8\u3001\u30b5\u30d6\u30a6\u30a8\u30dd\u30f3
\n\u3000ene=\u6575
\n\u3000syoki=\u521d\u671f\u8a2d\u5b9a\u3001\u53ca\u3073\u30b2\u30fc\u30e0\u30ea\u30bb\u30c3\u30c8<\/p>\n

\u3000\u3068\u8a00\u3046\u3088\u3046\u306a\u611f\u3058\u3067\u5206\u5272\u3057\u3066\u308b\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u30b6\u30c3\u30af\u30ea\u8868\u306b\u3059\u308b\u3068\u3053\u3093\u306a\u611f\u3058<\/p>\n

\"\"<\/p>\n

\u3000.hsp\u306f\u30d5\u30a1\u30a4\u30eb\u3001\u8d64\u77e2\u5370\u306f\u547c\u3073\u51fa\u3057\u3002<\/p>\n

\u3000put\u3001shot\u3001ene\u306e\u30bd\u30fc\u30b9\u306f\u30e9\u30d9\u30eb\u3092\u4f7f\u308f\u305a\u3001\u5168\u90e8 #deffunc\u3067\u66f8\u304b\u308c\u3066\u3044\u308b\u3002<\/p>\n

\u3000\u306a\u306e\u3067\u524d\u56de\u3084\u3063\u305f\u304c\u3001HSP\u3067\u306f\u547c\u3073\u51fa\u3055\u308c\u308b #deffunc\u30bd\u30fc\u30b9\u304c\u547c\u3073\u51fa\u3057\u7b87\u6240\u306e\u524d\u306b\u66f8\u304b\u308c\u306a\u3051\u308c\u3070\u3044\u3051\u306a\u3044\u306e\u3067\u3001\u3053\u306e\u3088\u3046\u306a\u914d\u7f6e\u306b\u306a\u3063\u3066\u308b\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000main.hsp\u306e\u30bd\u30fc\u30b9\u306f\u3053\u3093\u306a\u611f\u3058<\/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.007\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 : 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\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 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 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+ : cx=double(x) : cy=double(y) : break ; \u62bc\u3057\u3066\u3044\u308b\r\n\t  if kf=0 : break\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\t; \u653e\u3057\u305f\u3001\u62bc\u3057\u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\r\n\t  esn_set 1\t\t\t\t\t\t; \u8fd1\u304f\u306e\u6a19\u7684\u3092\u30bb\u30c3\u30c8\r\n\t  if kc>2 : kc=0 : break\t\t; 2\u30d5\u30ec\u30fc\u30e0\u4ee5\u4e0a\u62bc\u3057\u3066\u3044\u305f\r\n\t  kc=0\r\n\t  if 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 vcn>0 : break\t\t; \u5f3e\u5207\u308c or \u30d0\u30eb\u30ab\u30f3\u767a\u5c04\u4e2d\r\n\t  vcn+=vnb\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<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 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 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  c_put\t\t; \u7167\u6e96\u8868\u793a\r\n\t  scr_put\t; \u30b9\u30b3\u30a2\u8868\u793a\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<\/pre>\n
\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000while\u6587\uff08\u7e70\u308a\u8fd4\u3057\uff09\u3068 switch\u6587\uff08\u5024\u5206\u5c90\uff09\u306b\u3088\u308b mainf\u5024\u5206\u5c90\u3067\u3001\u30bf\u30a4\u30c8\u30eb\u3068\u30e1\u30a4\u30f3\u30b2\u30fc\u30e0\u3068\u30b2\u30fc\u30e0\u30aa\u30fc\u30d0\u30fc\u306e\u30e2\u30fc\u30c9\u3092\u5207\u308a\u66ff\u3048\u3066\u3044\u308b\u3002<\/p>\n
\u3000\u4eca\u56de\u306f\u8868\u793a\u95a2\u4fc2\u3092 put\u306b\u5206\u96e2\u3057\u3066\u3001\u305d\u308c\u305e\u308c\u306e\u30e2\u30fc\u30c9\u4e8b\u306b\u8868\u793a\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u547c\u3073\u51fa\u3057\u3067\u8868\u793a\u3057\u3066\u3044\u308b\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000put\u306e\u30bd\u30fc\u30b9<\/p>\n
; \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\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 : en=cnt ; \u6575No.\r\n\t if ef(en)=0 : continue ; \u7121\u3044\r\n\t pos ex(en),ey(en)\r\n\t  if ef(en)=1 : celput e1w,,,,er(en) ; \u6575\r\n\t  if ef(en)=2 : celput e2w,,,,er(en) ; \u6575\r\n\t  if ef(en)=3 : celput e3w,,,,er(en) ; \u6575\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\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) : sf(cnt)=0 : continue ; \u30d5\u30e9\u30b0\u30ea\u30bb\u30c3\u30c8\r\n\t  celput 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\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) ; \u30d0\u30eb\u30ab\u30f3\r\n\tloop\r\n\r\n\tpos 10,wy-20 : mes vc ; \u30d0\u30eb\u30ab\u30f3\u306e\u6b8b\u5f3e\u8868\u793a\r\n\trepeat vc\/10\r\n\t pos 50+cnt*6,wy-12 : celput vw\r\n\t if cnt=100 : break ; \u6700\u5927\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc c_put ; \u7167\u6e96\u8868\u793a\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\tpos wx-300,5 : mes \"SCORE \"+scr\r\n\tpos wx-150,5 : mes \"HI SCORE \"+hiscr\r\n\r\n\treturn<\/pre>\n
\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000syoki\u306e\u30bd\u30fc\u30b9<\/p>\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\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\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; \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; \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; \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=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\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=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=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\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=400\t\t\t; \u51fa\u73fe\u30ab\u30a6\u30f3\u30c8\r\n\te3cb=2000\t\t; \u51fa\u73fe\u9593\u9694(\u30d5\u30ec\u30fc\u30e0)\r\n\tescr(3)=2000\t; \u30b9\u30b3\u30a2\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\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<\/pre>\n
\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000shot\u306e\u30bd\u30fc\u30b9<\/p>\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<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\tif sc>0 : sc- : return ; \u30a6\u30a8\u30a4\u30c8\u4e2d\r\n\r\n\t sc=scb ; \u767a\u5c04\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 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(xn,yn)\t\t\t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\tsr(sn)=-rad+pai\t\t\t; \u5411\u304d\r\n\r\n\tsdx(sn)=sin(rad)*ssp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\tsdy(sn)=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\tsxb(sn)=xx : syb(sn)=yy\t; \u7d42\u70b9\u5ea7\u6a19\r\n\r\n\tskn(sn)=0.0\t\t\t\t; \u73fe\u79fb\u52d5\u8ddd\u96e2\u3092\u30ea\u30bb\u30c3\u30c8\r\n\r\n\tx2=xx-jx : y2=yy-jy\r\n\t skb(sn)=sqrt(x2*x2+y2*y2); \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 repeat skc : cnt2=cnt ; 1\u30b7\u30e7\u30c3\u30c8\u306e\u79fb\u52d5\u7e70\u308a\u8fd4\u3057 ====================\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)>=skb(sn) { ; \u7d42\u70b9\u5224\u5b9a\r\n\t \t sx(sn)=double(sxb(sn))\r\n\t\t sy(sn)=double(syb(sn))\r\n\t\t sf(sn)=-1 ; \u7740\u5f3e\u30d5\u30e9\u30b0\r\n\t   }\r\n\r\n\t  sx1=int(sx(sn))-so2 ; \u30b7\u30e7\u30c3\u30c8\u5de6\u5ea7\u6a19\r\n\t  sx2=int(sx(sn))+so2 ; \u30b7\u30e7\u30c3\u30c8\u53f3\u5ea7\u6a19\r\n\t  sy1=int(sy(sn))-so2 ; \u30b7\u30e7\u30c3\u30c8\u4e0a\u5ea7\u6a19\r\n\t  sy2=int(sy(sn))+so2 ; \u30b7\u30e7\u30c3\u30c8\u4e0b\u5ea7\u6a19\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\t   if ef(en)=1 : eo2=e1o2 ; \u65751\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t   if ef(en)=2 : eo2=e2o2 ; \u65752\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t   if ef(en)=3 : eo2=e3o2 ; \u65753\u306e\u6642\u306e\u5927\u304d\u3055\r\n\r\n\t   ex1=int(ex(en))-eo2 ; \u6575\u5de6\u5ea7\u6a19\r\n\t   ex2=int(ex(en))+eo2 ; \u6575\u53f3\u5ea7\u6a19\r\n\t   ey1=int(ey(en))-eo2 ; \u6575\u4e0a\u5ea7\u6a19\r\n\t   ey2=int(ey(en))+eo2 ; \u6575\u4e0b\u5ea7\u6a19\r\n\r\n\t   if sx1<ex2 and ex1<sx2 and sy1<ey2 and ey1<sy2 { ; \u5f53\u305f\u308a\u5224\u5b9a\r\n\t    sf(sn)=-1\t; \u7740\u5f3e\u30d5\u30e9\u30b0\r\n\t    ehp(en)-=sp ; \u8010\u4e45\u5ea6-\r\n\t \tif ehp(en)<=0 { ; \u5012\u3057\u305f\u304b\r\n\t \t scr+=escr(ef(en)) ; \u30b9\u30b3\u30a2\r\n\t \t ef(en)=0\t; \u5f53\u305f\u3063\u305f\u6575\u3068\u30b7\u30e7\u30c3\u30c8\u3092\u6d88\u3059\r\n\t \t esn_set 0\t; \u6b21\u306e\u6a19\u7684\u3092\u63a2\u3059\r\n\t \t vc+=vcb\t; \u30d0\u30eb\u30ab\u30f3\u306e\u6b8b\u5f3e\u6570\u3092\u5897\u3084\u3059\r\n\t \t if hiscr<scr : hiscr=scr ; \u30cf\u30a4\u30b9\u30b3\u30a2\u306e\u66f4\u65b0\r\n\t \t break\r\n\t \t}\r\n\t   }\r\n\t  loop\r\n\r\n\t  if sf(sn)=1 : if sx2<0 or wx<sx1 or sy2<0 or wy<sy1 : sf(sn)=0 : break ; \u5834\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\r\n\t  if sf(sn)=-1 : break ; \u7740\u5f3e\u3057\u3066\u308b\r\n\r\n\t loop ; ====================\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 repeat vb : vn=cnt\r\n\t  if vf(vn)!0 : continue ; \u4f7f\u7528\u4e2d\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\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(xn,yn)+rd\t; \u8ddd\u96e2xy\u304b\u3089\u89d2\u5ea6\u3092\u6c42\u3081\u308b\r\n\r\n\t  vr(vn)=-rad+pai\t\t; \u5411\u304d\r\n\r\n\t  vdx(vn)=sin(rad)*vsp\t; \u89d2\u5ea6\u3068\u30b9\u30d4\u30fc\u30c9\u304b\u3089\u79fb\u52d5\u91cfx\u3092\u6c42\u3081\u308b\r\n\t  vdy(vn)=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  repeat cnt2\r\n\t   vx(vn)-=vdx(vn) ; \u59cb\u70b9\u5ea7\u6a19\u3092\u30d0\u30c3\u30af\u3055\u305b\u3066\u304a\u304fx\r\n\t   vy(vn)-=vdy(vn) ; \u59cb\u70b9\u5ea7\u6a19\u3092\u30d0\u30c3\u30af\u3055\u305b\u3066\u304a\u304fy\r\n\t  loop\r\n\r\n\t  break\r\n\t loop\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc v_syo\r\n\r\n\trepeat vkc ; vkc\u56de\u79fb\u52d5\r\n\t repeat 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  vx(vn)+=vdx(vn) ; x\u306e\u79fb\u52d5\r\n\t  vy(vn)+=vdy(vn) ; y\u306e\u79fb\u52d5\r\n\r\n\t  vx1=int(vx(vn))-vo2 ; \u30d0\u30eb\u30ab\u30f3\u5de6\u5ea7\u6a19\r\n\t  vx2=int(vx(vn))+vo2 ; \u30d0\u30eb\u30ab\u30f3\u53f3\u5ea7\u6a19\r\n\t  vy1=int(vy(vn))-vo2 ; \u30d0\u30eb\u30ab\u30f3\u4e0a\u5ea7\u6a19\r\n\t  vy2=int(vy(vn))+vo2 ; \u30d0\u30eb\u30ab\u30f3\u4e0b\u5ea7\u6a19\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 ; \u65751\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t   if ef(en)=2 : eo2=e2o2 ; \u65752\u306e\u6642\u306e\u5927\u304d\u3055\r\n\t   if ef(en)=3 : eo2=e3o2 ; \u65753\u306e\u6642\u306e\u5927\u304d\u3055\r\n\r\n\t   ex1=int(ex(en))-eo2 ; \u6575\u5de6\u5ea7\u6a19\r\n\t   ex2=int(ex(en))+eo2 ; \u6575\u53f3\u5ea7\u6a19\r\n\t   ey1=int(ey(en))-eo2 ; \u6575\u4e0a\u5ea7\u6a19\r\n\t   ey2=int(ey(en))+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(vn)=-1\r\n\t    ehp(en)-=vp ; \u8010\u4e45\u5ea6-\r\n\t    if ehp(en)<=0 { ; \u5012\u3057\u305f\u304b\r\n\t     scr+=escr(ef(en))\t; \u30b9\u30b3\u30a2\r\n\t     ef(en)=0 ; \u6575\u3092\u6d88\u3059\r\n\t\t esn_set 1\t; \u6b21\u306e\u6a19\u7684\u3092\u63a2\u3059\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(vn)=1 : if vx2<0 or wx<vx1 or vy2<0 or wy<vy1 : vf(vn)=0 : continue ; \u5834\u5916\u3067\u30d5\u30e9\u30b0 off\r\n\r\n\t  if vf(vn)=-1 : continue ; \u7740\u5f3e\u3057\u3066\u308b\r\n\t loop\r\n\tloop\r\n\r\n\treturn<\/pre>\n
\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000ene\u306e\u30bd\u30fc\u30b9<\/p>\n
; ENEMY --------------------\r\n\r\n#deffunc e1_set ; \u51fa\u73fe\r\n\r\n\tif e1c>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=rnd(wx)-e1o2 : eys=0-e1o2\t\t; \u4e0a\r\n\t if r=1 : exs=rnd(wx)-e1o2 : eys=wy+e1o2\t; \u4e0b\r\n\t if r=2 : exs=-e1o2\t  : 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>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=rnd(wx)-e2o2 : eys=0-e2o2\t\t; \u4e0a\r\n\t if r=1 : exs=rnd(wx)-e2o2 : eys=wy+e2o2\t; \u4e0b\r\n\t if r=2 : exs=-e2o2\t  : 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>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=rnd(wx)-e3o2 : eys=0-e3o2\t\t; \u4e0a\r\n\t if r=1 : exs=rnd(wx)-e3o2 : eys=wy+e3o2\t; \u4e0b\r\n\t if r=2 : exs=-e3o2\t  : 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<ex2 and ex1<jx2 and jy1<ey2 and ey1<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<0 or wx<ex1 or ey2<0 or wy<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<ex2 and ex1<jx2 and jy1<ey2 and ey1<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<0 or wx<ex1 or ey2<0 or wy<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<ex2 and ex1<jx2 and jy1<ey2 and ey1<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<0 or wx<ex1 or ey2<0 or wy<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<\/pre>\n
\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u3053\u3093\u306a\u611f\u3058\u3067\u5206\u5272\u3059\u308b\u3068\u3001\u6575\u3068\u304b\u30b7\u30e7\u30c3\u30c8\u306e\u7a2e\u985e\u304c\u5897\u3048\u3066\u3082\u7ba1\u7406\u304c\u5206\u304b\u308a\u3084\u3059\u304f\u306a\u308b\u3002<\/p>\n
\u3000\u3053\u306e\u69cb\u9020\u8ad6\uff08\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\uff09\u3092\u4f7f\u3048\u3070\u3001\u3069\u3093\u306a\u30b2\u30fc\u30e0\u3067\u3082\u5927\u4f53\u3053\u308c\u3067\u4f5c\u308c\u3066\u3057\u307e\u3046\u3002<\/p>\n
\u3000\u81ea\u5206\u306f goto\u6587\u306f\u4f7f\u308f\u306a\u3044\u3001goto\u6587\u306f Java\u3068\u304b C\u3067\u306f\u305f\u3076\u3093\u4f7f\u308f\u308c\u306a\u304f\u3066\u3001\u5168\u90e8\u547c\u3073\u51fa\u3057 return\u3067\u69cb\u6210\u3055\u308c\u3066\u308b\u3068\u601d\u3046\u3001\u305f\u3076\u3093\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n
\n\u30d7\u30ed\u30b0\u30e9\u30e0\u89e3\u8aac<\/span><\/b>
\n
\n\u30e1\u30a4\u30f3<\/span><\/p>\n\n
\nwhile ; ———- \u30e1\u30a4\u30f3\u30eb\u30fc\u30c1\u30f3 ———-
\n\u3000switch mainf
\n\u3000\u3000case 0 : gosub *titl\t\t: swbreak ; \u30bf\u30a4\u30c8\u30eb
\n\u3000\u3000case 1 : gosub *game_main\t: swbreak ; \u30b2\u30fc\u30e0
\n\u3000\u3000case 2 : gosub *game_over\t: swbreak ; \u30b2\u30fc\u30e0\u30aa\u30fc\u30d0\u30fc
\n\u3000swend
\n\u3000if mainf=3 : _break ; end
\nwend<\/span><\/p>\n
\u3000mainf\u306e\u5024\u3092\u5207\u308a\u66ff\u3048\u308b\u4e8b\u306b\u3088\u308a\u3001\u30e2\u30fc\u30c9\u3092\u5207\u308a\u66ff\u3048\u308b\u3002<\/p>\n
\u3000OP\u3001ED\u3068\u304b\u3001\u30b9\u30c8\u30fc\u30ea\u30fc\u306e\u633f\u5165\u3068\u304b\u3001\u6226\u95d8\u524d\u306e\u30d1\u30ef\u30fc\u30a2\u30c3\u30d7\u3084\u9762\u30bb\u30ec\u30af\u30c8\u306e\u5f85\u6a5f\u753b\u9762\u3068\u304b\u306e\u5207\u308a\u66ff\u3048\u3082\u8003\u3048\u3089\u308c\u308b\u3002<\/p>\n
\u3000\u3082\u3046\u5c11\u3057\u8907\u96d1\u306a\u30bd\u30fc\u30b9\u306e\u5834\u5408\u3001\u4f8b\u3048\u3070 RPG\u306a\u3093\u304b\u3060\u3068\u30b2\u30fc\u30e0\u30eb\u30fc\u30c1\u30f3\u5185\u306b\u3082\u3046\u4e00\u3064\u30eb\u30fc\u30c1\u30f3\u3092\u4f5c\u3063\u3066\u3001\u30d5\u30a3\u30fc\u30eb\u30c9\u79fb\u52d5\u3001\u753a\u63a2\u7d22\u3001\u6226\u95d8\u306a\u3093\u304b\u3092\u5207\u308a\u66ff\u3048\u305f\u308a\u3059\u308b\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n\u3000\u30ad\u30fc\u5165\u529b\u306b\u3064\u3044\u3066\u3001\u4eca\u56de\u306f\u3061\u3087\u3093\u3068\u62bc\u3059\u3068\u30d0\u30eb\u30ab\u30f3\u767a\u5c04\u3060\u304c\u3001\u57fa\u672c\u7684\u306b\u62bc\u3057\u305f\u6642\u70b9\u3067\u30ab\u30fc\u30bd\u30eb\u4f4d\u7f6e\u304c\u305d\u306e\u5834\u6240\u306b\u30bb\u30c3\u30c8\u3055\u308c\u308b\u3088\u3046\u306b\u3057\u3001\u5408\u308f\u305b\u3066\u305d\u306e\u5834\u6240\u304b\u3089\u8fd1\u3044\u6a19\u7684\u3092\u518d\u30bb\u30c3\u30c8\u3059\u308b\u3088\u3046\u306b\u3057\u305f\u3002<\/p>\n
\u3000\u524d\u56de\u305d\u3046\u3057\u305f\u3064\u3082\u308a\u3060\u3063\u305f\u304c\u3001\u305d\u3046\u3067\u3082\u306a\u304b\u3063\u305f\u307f\u305f\u3044\u3002<\/p>\n

\n; \u51fa\u73fe ———-
\n\u3000s_set  ; \u30b7\u30e7\u30c3\u30c8\u51fa\u73fe
\n\u3000v_set  ; \u30d0\u30eb\u30ab\u30f3\u51fa\u73fe
\n\u3000e1_set ; \u65751\u51fa\u73fe
\n\u3000e2_set ; \u65752\u51fa\u73fe
\n\u3000e3_set ; \u65753\u51fa\u73fe
\n; \u79fb\u52d5\u51e6\u7406 ———-
\n\u3000s_syo  ; \u30b7\u30e7\u30c3\u30c8\u51e6\u7406
\n\u3000v_syo  ; \u30d0\u30eb\u30ab\u30f3\u51e6\u7406
\n\u3000e_syo\t; \u6575\u51e6\u7406\u30c6\u30fc\u30d6\u30eb<\/span><\/p>\n
\u3000\u30b7\u30e7\u30c3\u30c8\u3068\u6575\u306e\u51fa\u73fe\u3068\u79fb\u52d5\u51e6\u7406\u3092\u3001\u5168\u90e8\u547c\u3073\u51fa\u3057\u3067\u884c\u3046\u3002<\/p>\n

\nredraw 0 ; \u8868\u793a ———-
\n\u3000clr\t\t; \u753b\u9762\u30af\u30ea\u30a2
\n\u3000e_put\t\t; \u6575\u8868\u793a
\n\u3000j_put\t\t; \u81ea\u6a5f\u8868\u793a
\n\u3000s_put\t\t; \u30b7\u30e7\u30c3\u30c8\u8868\u793a
\n\u3000v_put\t\t; \u30d0\u30eb\u30ab\u30f3\u8868\u793a
\n\u3000c_put\t\t; \u7167\u6e96\u8868\u793a
\n\u3000scr_put\t; \u30b9\u30b3\u30a2\u8868\u793a
\nredraw 1<\/span><\/p>\n
\u3000\u8868\u793a\u95a2\u4fc2\u3082\u5168\u3066\u547c\u3073\u51fa\u3057\u3067\u884c\u3046\u3002\n<\/td>\n<\/table>\n
\u3000<\/strong>
\n\u3000<\/strong>
\nene.hsp\u3000\u6575<\/span><\/p>\n\n
\n#deffunc e_syo ; \u6575\u79fb\u52d5\u51e6\u7406\u30c6\u30fc\u30d6\u30eb
\n\u3000repeat eb : en=cnt ; \u6575No,
\n\u3000\u3000if ef(en)=0 : continue ; \u7121\u3057
\n\u3000\u3000switch ef(en)
\n\u3000\u3000\u3000case 1 : e1_syo : swbreak ; \u65751\u79fb\u52d5\u51e6\u7406
\n\u3000\u3000\u3000case 2 : e2_syo : swbreak ; \u65752\u79fb\u52d5\u51e6\u7406
\n\u3000\u3000\u3000case 3 : e3_syo : swbreak ; \u65753\u79fb\u52d5\u51e6\u7406
\n\u3000\u3000swend
\n\u3000loop<\/span><\/p>\n
\u3000ef(en)\u306e\u30d5\u30e9\u30b0\u304c 1\u306a\u3089\u6575 1\u30012\u306a\u3089\u6575 2\u30013\u306a\u3089\u6575 3\u306e\u79fb\u52d5\u51e6\u7406\u3092\u5b9f\u884c\u3059\u308b\u3002<\/p>\n
\u3000\u8981\u3059\u308b\u306b ef\u3068\u304b ex,ey\u306e\u3088\u3046\u306a\u5909\u6570\u306f\u3001\u5168\u90e8\u306e\u6575\u3067\u4f7f\u3044\u307e\u308f\u3057\u3002<\/p>\n
 \u3064\u307e\u308a ef(n)=\u6575\u30d5\u30e9\u30b0<\/p>\n
\u30000=\u7121\u3057
\n\u30001=\u65751
\n\u30002=\u65752
\n\u30003=\u65753<\/p>\n
\u3000\u3068\u8a00\u3046\u98a8\u306b\u306a\u3063\u3066\u308b\u3002<\/p>\n
\u3000\u79fb\u52d5\u51e6\u7406\u3092\u5206\u3051\u308b\u306e\u306f\u4eca\u56de\u306f\u8a2d\u5b9a\u3057\u3066\u306a\u3044\u304c\u3001\u305d\u308c\u305e\u308c\u306e\u6575\u3067\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u304c\u7570\u306a\u308b\u5834\u5408\u3092\u60f3\u5b9a\u3057\u3066\u3044\u308b\u3002<\/p>\n
\u3000\u4f8b\u3048\u3070\u5c0f\u578b\u306f\u86c7\u884c\u3059\u308b\u3068\u304b\u3001\u8981\u585e\u304b\u3089\u5c0f\u578b\u304c\u5410\u304d\u51fa\u3055\u308c\u308b\u3068\u304b\u3001\u6226\u8eca\u304b\u3089\u30df\u30b5\u30a4\u30eb\u304c\u653e\u305f\u308c\u308b\u3068\u304b\u3001\u305d\u3046\u3044\u3046\u8981\u7d20\uff08\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\uff09\u3092\u305d\u308c\u305e\u308c\u306e\u51e6\u7406\u30eb\u30fc\u30c1\u30f3\u3067\u4f5c\u308b\u3002\n<\/td>\n<\/table>\n
\u3000<\/strong>
\n\u3000<\/strong>
\nsyoki.hsp\u3000\u521d\u671f<\/span><\/p>\n\n
\ne1hpb=24\t\t; \u8010\u4e45\u5ea6
\ne1sp=1.0\t\t; \u65751\u30b9\u30d4\u30fc\u30c9
\ne1c=0\t\t\t; \u51fa\u73fe\u30ab\u30a6\u30f3\u30c8
\ne1cb=10\t\t\t; \u51fa\u73fe\u9593\u9694(\u30d5\u30ec\u30fc\u30e0)
\nescr(1)=10\t\t; \u30b9\u30b3\u30a2
\n\u3000<\/strong>
\ne2hpb=300\t\t; \u8010\u4e45\u5ea6
\ne2sp=0.5\t\t; \u65752\u30b9\u30d4\u30fc\u30c9
\ne2c=50\t\t\t; \u51fa\u73fe\u30ab\u30a6\u30f3\u30c8
\ne2cb=70\t\t\t; \u51fa\u73fe\u9593\u9694(\u30d5\u30ec\u30fc\u30e0)
\nescr(2)=100\t\t; \u30b9\u30b3\u30a2
\n\u3000<\/strong>
\ne3hpb=5000\t\t; \u8010\u4e45\u5ea6
\ne3sp=0.1\t\t; \u65752\u30b9\u30d4\u30fc\u30c9
\ne3c=400\t\t\t; \u51fa\u73fe\u30ab\u30a6\u30f3\u30c8
\ne3cb=2000\t\t; \u51fa\u73fe\u9593\u9694(\u30d5\u30ec\u30fc\u30e0)
\nescr(3)=2000\t; \u30b9\u30b3\u30a2
\n<\/span>
\n\u3000\u6575\u306b\u3088\u3063\u3066\u305d\u308c\u305e\u308c\u9055\u3046\u30b9\u30c6\u30fc\u30bf\u30b9\u3092\u3001\u3053\u3053\u3067\u5b9a\u7fa9\u3057\u3066\u3044\u308b\u3002<\/p>\n
\u3000\u30b9\u30b3\u30a2\u306b\u3064\u3044\u3066\u3001escr\u306e\u914d\u5217\u5909\u6570\u306b\u5b9a\u7fa9\u3057\u304a\u304d\u3001scr+=escr(ef(en))\u306e\u3088\u3046\u306b\u66f8\u3051\u3070\u3001\u5012\u3057\u305f\u6575\u306e\u30bd\u30fc\u30b9\u3092\u5206\u3051\u305a\u306b\u30b9\u30b3\u30a2\u52a0\u7b97\u304c\u51fa\u6765\u308b\u3002<\/p>\n
\u3000escr(1)=10,100,2000 \u306e\u3088\u3046\u306a\u66f8\u304d\u65b9\u3067\u3082\u826f\u3044\u3002
\n\u3000<\/strong>
\n\u3000<\/strong>
\n#deffunc reset ; \u30b2\u30fc\u30e0\u518d\u521d\u671f\u5316
\n\u3000<\/strong>
\n\u3000cx=double(jx) ; \u7167\u6e96\u5ea7\u6a19x\u30ea\u30bb\u30c3\u30c8
\n\u3000cy=double(jy) ; \u7167\u6e96\u5ea7\u6a19y\u30ea\u30bb\u30c3\u30c8
\n\u3000<\/strong>
\n\u3000repeat sb : sf(cnt)=0 : loop ; \u30b7\u30e7\u30c3\u30c8\u30ea\u30bb\u30c3\u30c8
\n\u3000repeat vb : vf(cnt)=0 : loop ; \u30d0\u30eb\u30ab\u30f3\u30ea\u30bb\u30c3\u30c8
\n\u3000\u3000vcn=0 : vc=0 ; \u6b8b\u5f3e\u30ea\u30bb\u30c3\u30c8
\n\u3000repeat eb : ef(cnt)=0 : loop ; \u6575\u30ea\u30bb\u30c3\u30c8
\n\u3000<\/strong>
\n\u3000scr=0 ; \u30b9\u30b3\u30a2\u30ea\u30bb\u30c3\u30c8
\n\u3000esn=0 ; \u6a19\u7684\u30ea\u30bb\u30c3\u30c8
\n\u3000<\/strong>
\n\u3000return<\/span><\/p>\n
\u3000\u518d\u30b2\u30fc\u30e0\u3059\u308b\u306b\u3042\u305f\u3063\u3066\u3001\u5fc5\u8981\u306a\u521d\u671f\u5316\u3092\u3059\u308b\u30eb\u30fc\u30c1\u30f3\u3002\n<\/td>\n<\/table>\n","protected":false},"excerpt":{"rendered":"
2018\u5e74 6\u670822\u65e5 \u3000 \u3000 \u3000ver.0.007 \u3000 \u3000\u4eca\u56de\u306f\u307e\u3068\u3081\u305f\u3082\u306e\u3092 zip\u30d5\u30a1\u30a4\u30eb\u306b\u3057\u307e\u3057\u305f\u3002 \u3000\u8868\u793a\u306e 0.006\u3092 0.007\u306b\u3057\u5fd8\u308c\u3066\u307e\u3059\u304c\u3001\u6700\u5f8c\u306b\u6c17\u3065\u3044\u3066\u3082\u3046\u3081\u3093\u3069\u304f\u3055\u3044\u306e\u3067\u305d\u306e\u307e\u307e\u3067\u3059\u3002 \u3000\u30d7\u30ed\u30b0 … “1MAP-STG \u6575\u7a2e\u985e\u3092\u8907\u6570\u5316\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-6732","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\/6732","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=6732"}],"version-history":[{"count":51,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/6732\/revisions"}],"predecessor-version":[{"id":6784,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/6732\/revisions\/6784"}],"wp:attachment":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/media?parent=6732"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/categories?post=6732"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/tags?post=6732"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}