{"id":8458,"date":"2020-03-26T10:46:04","date_gmt":"2020-03-26T01:46:04","guid":{"rendered":"https:\/\/sinsei.space\/blog\/?p=8458"},"modified":"2021-05-02T14:17:04","modified_gmt":"2021-05-02T05:17:04","slug":"hextrategy-%e7%94%bb%e5%83%8f%e3%82%92%e5%85%a8%e3%81%a6-png%e3%81%a7%e7%b5%b1%e4%b8%80%e3%81%97%e3%81%9f","status":"publish","type":"post","link":"https:\/\/sinsei.space\/blog\/8458","title":{"rendered":"Hextrategy \u753b\u50cf\u3092\u5168\u3066 PNG\u3067\u7d71\u4e00\u3057\u305f"},"content":{"rendered":"<p><font size=4><br \/>\n2020\u5e74 3\u6708 26\u65e5<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u524d\u56de\u306e\u691c\u8a3c\u304b\u3089\u753b\u50cf\u306f .png\u3067\u7d71\u4e00\u3057\u305f\u65b9\u304c\u826f\u3055\u305d\u3046\u3060\u3063\u305f\u306e\u3067\u5168\u90e8 png\u306b\u76f4\u3057\u305f\u3002<\/p>\n<p>\u3000\u4f75\u305b\u3066 <span style=\"color: #0000f0;\">mes<\/span>\u547d\u4ee4\u306b\u3088\u308b\u6587\u5b57\u8868\u793a\u3092\u5168\u90e8\u753b\u50cf\u306b\u5909\u66f4\u3057\u305f\u3002<\/p>\n<p>\u3000\u6587\u5b57\u3092\u30b0\u30e9\u30bd\u30d5\u30c8\u3067\u5168\u90e8\u63cf\u304b\u306a\u3051\u308c\u3070\u3044\u3051\u306a\u3044\u305f\u3081\u3001\u7d50\u69cb\u4f5c\u696d\u91cf\u304c\u3042\u3063\u3066\u7d50\u5c40 3\u30f6\u6708\u304f\u3089\u3044\u3092\u8981\u3057\u305f\u3002<\/p>\n<p>\u3000\u3053\u3093\u306a\u611f\u3058\uff08PNG\u306e\u900f\u660e\u304c\u767d\u3067\u898b\u3048\u306a\u3044\u305f\u3081\u3001\u753b\u50cf\u306f JPG\u306b\u52a0\u5de5\u3057\u3066\u3042\u308a\u307e\u3059\uff09<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img024.jpg\" alt=\"\" width=\"80\" height=\"180\" class=\"alignnone size-full wp-image-8461\" \/><\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img025.jpg\" alt=\"\" width=\"200\" height=\"140\" class=\"alignnone size-full wp-image-8462\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n<!--more--><\/p>\n<p>\u3000\u5c11\u3057\u5927\u5909\u3060\u3063\u305f\u306e\u306f\u3001\u30ad\u30e3\u30e9\u3084\u30a2\u30a4\u30c6\u30e0\u306e\u30ab\u30fc\u30c9\u7d75\u306e\u81ea\u52d5\u63cf\u304d\u51fa\u3057\u306e\u30b0\u30e9\u3002<\/p>\n<p>\u3000\u5168\u90e8\u3092 1\u679a\u306b\u3057\u3066 BMP\u3067\u63cf\u304d\u51fa\u3057\u3057\u3066\u3042\u308b\u3093\u3060\u3051\u3069\u3001\u3053\u306e\u80cc\u666f\u306e\u9ed2\u3092\u629c\u304f\u306e\u304c\u624b\u9593\u3067\u3001\u6700\u7d42\u7684\u306b\u306f\u80cc\u666f\u306e\u8272\u3092\u7279\u5b9a\u306e\u8272\u3067\u63cf\u3044\u3066\u63cf\u304d\u51fa\u3057\u3057\u3066\u3001\u30b0\u30e9\u30bd\u30d5\u30c8\u3067\u8272\u57df\u9078\u629e\u3067\u9078\u629e\u3057\u3066\u6d88\u53bb\u3057\u305f\u3002<\/p>\n<p>\u3000\u3053\u308c\u306f\u306a\u305c\u304b\u3068\u8a00\u3046\u3068\u753b\u50cf\u306e\u4e2d\u306b 0\u9ed2\u3092\u4f7f\u3063\u3066\u3044\u305f\u5834\u6240\u304c\u3042\u3063\u305f\u305f\u3081\u3002<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img027.jpg\" alt=\"\" width=\"160\" height=\"650\" class=\"alignnone size-full wp-image-8465\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img027.jpg 160w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img027-74x300.jpg 74w\" sizes=\"auto, (max-width: 160px) 85vw, 160px\" \/><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img026.jpg\" alt=\"\" width=\"160\" height=\"884\" class=\"alignnone size-full wp-image-8466\" \/><\/p>\n<p>\u3000\u30ad\u30e3\u30e9\u306e\u65b9\u306f\u629c\u3044\u305f\u5f8c\u3001\u30ab\u30fc\u30c9\u3068\u30ab\u30fc\u30c9\u306e\u9699\u9593\u3092\u5168\u90e8\u629c\u304b\u306a\u3051\u308c\u3070\u3044\u3051\u306a\u3044\u3002<\/p>\n<p>\u3000\u30a2\u30a4\u30c6\u30e0\u306e\u65b9\u306f\u6d41\u77f3\u306b\u9762\u5012\u306b\u306a\u3063\u3066\u80cc\u666f\u8272\u3092\u5909\u66f4\u3057\u3001\u4e00\u62ec\u9078\u629e\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u305f\u3002<\/p>\n<p>\u3000\u305d\u3093\u306a\u611f\u3058\u3067\u80cc\u666f\u3092\u900f\u660e\u306b\u3057\u3066\u304b\u3089\u6539\u3081\u3066 png\u3067\u63cf\u304d\u3060\u3057\u305f\u3002<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u8868\u793a\u304c\u6539\u307e\u3063\u305f\u306e\u306f\u3002<\/p>\n<p>\u3000\u56fd\u306e\u753b\u9762\u3068<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02402.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8472\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02402.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02402-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u88c5\u5099\u753b\u9762<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02403.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8473\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02403.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02403-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02409.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8481\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02409.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02409-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u653f\u5e9c\u8868\u793a<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02404.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8474\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02404.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02404-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u30e6\u30cb\u30c3\u30c8\u4e00\u89a7\u8868\u793a<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02405.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8475\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02405.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02405-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u30a2\u30a4\u30c6\u30e0\u4e00\u89a7\u8868\u793a<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02406.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8476\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02406.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02406-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u5c5e\u9818\u4e00\u89a7\u8868\u793a<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02407.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8477\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02407.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02407-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000SAVE\u3001LOAD\u753b\u9762<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02408.jpg\" alt=\"\" width=\"646\" height=\"388\" class=\"alignnone size-full wp-image-8479\" srcset=\"https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02408.jpg 646w, https:\/\/sinsei.space\/blog\/wp-content\/uploads\/2020\/03\/img02408-300x180.jpg 300w\" sizes=\"auto, (max-width: 709px) 85vw, (max-width: 909px) 67vw, (max-width: 984px) 61vw, (max-width: 1362px) 45vw, 600px\" \/><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u305d\u3093\u306a\u611f\u3058\u3002<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u305d\u308c\u3067\u306f\u30bd\u30fc\u30b9\u3092\u516c\u958b\u3059\u308b\u3051\u3069\u3001\u4eca\u56de\u306f\u8868\u793a\u95a2\u4fc2\u3092\u307b\u3068\u3093\u3069\u307e\u3068\u3081\u3066\u3042\u308b\u300cput.hsp\u300d\u30d5\u30a1\u30a4\u30eb\u3092\u3002<\/p>\n<p>\u3000\u307e\u3068\u3081\u3066\u3042\u308b\u306e\u306f\u3001\u305d\u306e\u65b9\u304c\u628a\u63e1\u3068\u7ba1\u7406\u304c\u697d\u306b\u306a\u308b\u304b\u3089\u3002<\/p>\n<p>\u3000\u7dd1\u8272\u306e\u6587\u5b57\u306f\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u306b\u306a\u3063\u3066\u3044\u3066\u30d7\u30ed\u30b0\u30e9\u30e0\u306b\u306f\u53cd\u6620\u3055\u308c\u306a\u3044\u3002<\/p>\n<p>\u3000\u5de6\u7aef\u306b\u5bc4\u305b\u3066\u66f8\u3044\u3066\u3042\u308b\u306e\u306f\u5927\u4f53\u30c7\u30d0\u30c3\u30b0\u7528\u306e\u30b3\u30fc\u30c9\u3002<\/p>\n<pre class=\"lang:hsp decode:true \" >\/\/\/\/\/\/\/ \u8868\u793a \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n\r\n*put_syoki ; \u521d\u671f\r\n\r\n\t; \u7070\u3001\u8d64\u3001\u9752\u3001\u7dd1\u3001\u9ec4\u3001\u767d\u3001\u7d2b\r\n\tcol_r=238,215,86,107,255,255,153\r\n\tcol_g=238,26,116,222,240,255,122\r\n\tcol_b=238,0,215,57,0,255,232\r\n\r\n\r\n; \u30bf\u30a4\u30c8\u30eb\r\n\r\n\ttix1=200 : tix2=440\r\n\tdim tiy1,6\r\n\tdim tiy2,6\r\n\trepeat 5,1\r\n\t tiy1(cnt)=117+cnt*40\r\n\t tiy2(cnt)=tiy1(cnt)+36\r\n\tloop\r\n\r\n\r\n; \u30de\u30c3\u30d7\u9078\u629e\r\n\r\n\tngx1=150 : ngx2=490\r\n\tdim ngy1,4\r\n\tdim ngy2,4\r\n\r\n\tngy1(1)=75  : ngy2(1)=ngy1(1)+50\r\n\tngy1(2)=155 : ngy2(2)=ngy1(2)+50\r\n\tngy1(3)=235 : ngy2(3)=ngy1(3)+50\r\n\r\n\r\n; \u56fd\u30a4\u30f3\u30d5\u30a9\u753b\u9762\r\n\r\n\tinfx1=5\t\t: infx2=640-infx1\t; \u67a0\r\n\tinfy1=5\t\t: infy2=360-infy1\r\n\r\n\tinfx3=224\t: infy3=11\t\t\t; \u9818\u4e3b\u5ea7\u6a19\r\n\r\n\tdim infx,3\t\t\t\t\t\t; \u90e8\u968a\u5ea7\u6a19\r\n\t infx=55,358,358\r\n\tdim infy,3\r\n\t infy=186,6,186\r\n\r\n\tdim inffox,3\t\t\t\t\t; force\r\n\t inffox=28,331,331\r\n\r\n\tdim infkx1,45\t\t\t\t\t; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\tdim infkx2,45\r\n\tdim infky1,45\r\n\tdim infky2,45\r\n;(0=\u9818\u4e3b\u30011\uff5e9=\u90e8\u968a\u300110\uff5e19=\u88c5\u5099\u300120\uff5e29=remove)\r\n\r\n\ty1=80 : y2=50\t\t\t\t\t; \u533a\u5207\u308a\r\n\r\n\tinfkx1(0)=infx3\t\t: infkx2(0)=infkx1(0)+80\t; \u9818\u4e3b\u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\tinfky1(0)=infy3\t\t: infky2(0)=infky1(0)+y1\r\n\r\n\tinfkx1(10)=infx3\t: infkx2(10)=infkx1(10)+80\t; \u9818\u4e3b\u88c5\u5099\u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\tinfky1(10)=infy3+y1\t: infky2(10)=infky1(10)+y2\r\n\r\n\tinfkx1(20)=infx3\t: infkx2(20)=infkx1(10)+80\t; \u9818\u4e3bremove\u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\tinfky1(20)=infy3+coy+4\t: infky2(20)=infky1(20)+18\r\n\r\n\trepeat 3 : cn=cnt\r\n\t infkx1(31+cnt)=inffox(cnt)\t: infkx2(31+cnt)=inffox(cnt)+20\r\n\t infky1(31+cnt)=infy(cnt) \t: infky2(31+cnt)=infy(cnt)+130\r\n\t repeat 3\r\n\t  n1=cn*3+cnt+1 : n2=n1+10 : n3=n2+10\r\n\t  infkx1(n1)=infx(cn)+cnt*89\t: infkx2(n1)=infkx1(n1)+80 ; \u90e8\u968a\u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\t  infky1(n1)=infy(cn) \t\t\t: infky2(n1)=infky1(n1)+y1\r\n\t  infkx1(n2)=infx(cn)+cnt*89\t: infkx2(n2)=infkx1(n2)+80 ; \u90e8\u968a\u88c5\u5099\u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\t  infky1(n2)=infy(cn)+y1\t\t: infky2(n2)=infky1(n2)+y2\r\n\t  infkx1(n3)=infx(cn)+cnt*89\t: infkx2(n3)=infkx1(n3)+80 ; \u90e8\u968aremove\u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\t  infky1(n3)=infy(cn)+coy+21\t: infky2(n3)=infky1(n3)+18\r\n\t loop\r\n\tloop\r\n\r\n\r\n; Government ordinance\r\n\r\n\tdim govx1,31 ; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\tdim govx2,31\r\n\tdim govy1,31\r\n\tdim govy2,31\r\n\r\n\tgovcx=wx\/2-cox\/2 ; \u30bb\u30f3\u30bf\u30fc\r\n\r\n\tgovy1=6\t\t; y1\r\n\tgovy2=203\t; y2\r\n\r\n\tgovxk=120\t; \u67a0\u5ea7\u6a19x\r\n\r\n\tgovx1(1)=govcx : govx1(4)=govcx\r\n\tgovx1(3)=govcx-govxk : govx1(2)=govx1(3)-govxk\r\n\tgovx1(5)=govcx+govxk : govx1(6)=govx1(5)+govxk\r\n\r\n\trepeat 6,1 ; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\t govx1(10+cnt)=govx1(cnt) : govx1(20+cnt)=govx1(cnt)\r\n\r\n\t govx2(cnt)=govx1(cnt)+cox\r\n\t  govx2(10+cnt)=govx2(cnt) : govx2(20+cnt)=govx2(cnt)\r\n\r\n\t if cnt=1 : govy1(cnt)=govy1\r\n\t if cnt&gt;1 : govy1(cnt)=govy2\r\n\r\n\t govy2(cnt)=govy1(cnt)+79\r\n\t govy1(10+cnt)=govy2(cnt)+1\t\t; \u88c5\u5099\r\n\t govy2(10+cnt)=govy1(10+cnt)+49\r\n\t govy1(20+cnt)=govy2(10+cnt)+4\t; remove\r\n\t govy2(20+cnt)=govy1(20+cnt)+18\r\n\tloop\r\n\r\n\tgovs1=\"\",\"\u9996\u9818\",\"\u884c\u653f\",\"\u9b54\u8853\",\"\u5b97\u6559\",\"\u8b66\u5bdf\",\"\u8ecd\u52d9\"\r\n\tgovs2=\"\",\"Leader\",\"Population\",\"Magic\",\"Religion\",\"Police\",\"Military\"\r\n\tgovs3=\"\",\"LEADER\",\"POPULATION\",\"MAGIC\",\"RELIGION\",\"POLICE\",\"MILITARY\"\r\n\r\n\r\n; Build\u3001Talent\u3001Order\r\n\r\n\tdim ordx1,4\r\n\tdim ordx2,4\r\n\tdim ordy1,4\r\n\tdim ordy2,4\r\n\r\n\tord_ox=64\t; \u5927\u304d\u3055x\r\n\tord_oy=32\t; \u5927\u304d\u3055y\r\n\tordk=41\t\t; \u9593\u9694\r\n\r\n\trepeat 3,1\r\n\t ordx1(cnt)=123 : ordx2(cnt)=ordx1(cnt)+ord_ox ; x\r\n\tloop\r\n\r\n\tordy1(1)=11\t\t\t\t: ordy2(1)=ordy1(1)+ord_oy\r\n\tordy1(2)=ordy1(1)+ordk\t: ordy2(2)=ordy1(2)+ord_oy\r\n\tordy1(3)=ordy1(2)+ordk\t: ordy2(3)=ordy1(3)+ord_oy\r\n\r\n\trepeat 3,1 ; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\t infkx1(40+cnt)=ordx1(cnt)\r\n\t infkx2(40+cnt)=ordx2(cnt)\r\n\t infky1(40+cnt)=ordy1(cnt)\r\n\t infky2(40+cnt)=ordy2(cnt)\r\n\tloop\r\n\r\n\tinfkx1(44)=infx1+2\t; Government\r\n\tinfkx2(44)=infx1+26\r\n\tinfky1(44)=infy1+2\r\n\tinfky2(44)=infy1+26\r\n\r\n\r\n; Talent\u3001\u30e6\u30cb\u30c3\u30c8\r\n\r\n\ttalx1=60\t: talxk=110 ; \u67a0\u5ea7\u6a19x\r\n\ttaly1=58\t: talyk=150 ; \u67a0\u5ea7\u6a19y\r\n\ttalx2=20\t: taly2=14\t; \u56fd\r\n\ttalx3=110\t: talx4=310 ; \u9b54\u8853\u30ec\u30d9\u30eb\r\n\ttalx5=400 ; \u30de\u30ca\u30dd\u30a4\u30f3\u30c8\r\n\r\n\ttalcx=320-cox\/2 : talcy=75\r\n\r\n\tdim talkx1,11 ; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\tdim talkx2,11\r\n\tdim talky1,11\r\n\tdim talky2,11\r\n\r\n\trepeat 10 ; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\t talkx1(cnt+1)=talx1+talxk*(cnt\\5)\r\n\t talkx2(cnt+1)=talx1+talxk*(cnt\\5)+cox\r\n\r\n\t if cnt&lt;5 : y=taly1 : else : y=taly1+talyk\r\n\t talky1(cnt+1)=y\r\n\t talky2(cnt+1)=y+coy\r\n\tloop\r\n\r\n\r\n; \u30aa\u30d7\u30b7\u30e7\u30f3\r\n\r\n\tdim optx1,12\t; \u70b9\u5ea7\u6a19\r\n\t x=75 : xk=50\r\n\t  repeat 11 : optx1(cnt)=x : x+=xk : loop\r\n\r\n\tdim optx2,13\t; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\t x=50\r\n\t  repeat 12 : optx2(cnt)=x : x+=xk : loop\r\n\r\n\tdim opty1,4\t\t; y\r\n\t y=50 : yk=60\r\n\t  repeat 4\r\n\t   opty1(cnt)=y : y+=yk\r\n\t    if cnt=2 : y+=8\r\n\t  loop\r\n\r\n\toptyk=30\t\t; \u539a\u3055\r\n\r\ndim opt2fx1,4\r\n opt2fx1(1)=96 : opt2fx1(2)=134 : opt2fx1(3)=394\r\ndim opt2fx2,4\r\n opt2fx2(1)=544 : opt2fx2(2)=246 : opt2fx2(3)=506\r\ndim opt2fy1,4\r\n opt2fy1(1)=70  : opt2fy1(2)=230 : opt2fy1(3)=230\r\ndim opt2fy2,4\r\n opt2fy2(1)=182 : opt2fy2(2)=294 : opt2fy2(3)=294\r\ncolor 255,255,255\r\n\r\n\/*\r\n\tdim opty1,3\t\t; y\r\n\t y=50 : yk=80\r\n\t  repeat 3 : opty1(cnt)=y : y+=yk : loop\r\n\r\n\toptyk=50\t\t; \u539a\u3055\r\n*\/\r\n\texitx=288 : exity=280\r\n\t exitkx1=exitx : exitkx2=exitx+64\r\n\t exitky1=exity : exitky2=exity+64\r\n\r\n\topbt1x=100 : opbt1y=307\r\n\t opbt1kx1=opbt1x-10 : opbt1kx2=opbt1x+81\r\n\t opbt1ky1=opbt1y-10 : opbt1ky2=opbt1y+28\r\n\r\n\topbt2x=480 : opbt2y=307\r\n\t opbt2kx1=opbt2x-30 : opbt2kx2=opbt2x+81\r\n\t opbt2ky1=opbt2y-10 : opbt2ky2=opbt2y+28\r\n\r\n\topt1x=130 : opt1y=56\r\n\topt2x=380\r\n\topt3x=480\r\n\r\n\r\n\topmbx1=45 : opmbx2=opmbx1+450 ; \u9078\u66f2\r\n\tdim opmby,5\r\n\t y=140 : opmbyk=35\r\n\t  repeat 4,1 : opmby(cnt)=y : y+=opmbyk : loop\r\n\r\n\r\n; \u9078\u629e\u753b\u9762--------------------------------\r\n\r\n\tself=0\t\t; \u30e2\u30fc\u30c9\u5207\u308a\u66ff\u3048\r\n\r\n\tselx1=0;7\t; \u540d\u524d\r\n\tselx2=180\t; \u964d\u9806\r\n\tselx3=245\t; \u6607\u9806\r\n\r\n\tselx4=0\t\t; \u30da\u30fc\u30b8\u5de6\r\n\tselx5=150\t; \u623b\u308b\r\n\tselx6=490\t; \u30da\u30fc\u30b8\u53f3\r\n\r\n\tselxk=56\t; \u9593\u9694\r\n\t selx7=310\t; \u7a2e\u5225\u59cb\u3081\r\n\t selx8=selx7+selxk\r\n\t selx9=selx8+selxk\r\n\t selx10=selx9+selxk\r\n\t selx11=selx10+selxk\r\n\r\n\tselxk=69\t; \u9593\u9694\r\n\t selx12=310\t; HP\r\n\t selx13=selx12+selxk ; \u914d\u5099\r\n\t selx14=selx13+selxk ; \u30b3\u30b9\u30c8\r\n\t selx15=selx14+selxk ; \u5c5e\u6027\r\n\t selx16=selx15+selxk ; \u524a\u9664\r\n\r\n\tsely1=0;10\t; \u7a2e\u5225\u59cb\u3081\r\n\tsely2=47\t; \u30e6\u30cb\u30c3\u30c8\u59cb\u3081\r\n\tselyk=38\t; \u884c\u9593\u9694\r\n\tsely3=sely2+selyk*7 ; \u30da\u30fc\u30b8\u5207\u308a\u66ff\u3048\u3001\u623b\u308b\r\n\r\n\r\n\tdim selkx1,40 ; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\tdim selkx2,40\r\n\tdim selky1,40\r\n\tdim selky2,40\r\n\r\n\trepeat 7,1 ; \u30e6\u30cb\u30c3\u30c8xy\u5ea7\u6a19\r\n\t selkx1(cnt)=0 : selkx2(cnt)=640-1\r\n\t selky1(cnt)=sely2+selyk*(cnt-1)\r\n\t selky2(cnt)=sely2+selyk*(cnt)-1\r\n\r\n\t selkx1(30+cnt)=selx16 : selkx2(30+cnt)=640-1 ; \u524a\u9664\r\n\t selky1(30+cnt)=sely2+selyk*(cnt-1)\r\n\t selky2(30+cnt)=sely2+selyk*(cnt)-1\r\n\tloop\r\n\r\n\r\n\tselkx1(11)=0\t\t: selkx2(11)=selx2-1\t; \u540d\u524d\r\n\tselkx1(12)=selx2\t: selkx2(12)=selx3-1\t; \u964d\u9806\r\n\tselkx1(13)=selx3\t: selkx2(13)=selx7-1\t; \u6607\u9806\r\n\r\n\trepeat 3,11 ; \u4e0a\u306ey\u5ea7\u6a19\r\n\t selky1(cnt)=0 : selky2(cnt)=sely2-1\r\n\tloop\r\n\r\n\r\n\tselkx1(17)=selx7\t: selkx2(17)=selx8-1\t; \u7b4b\u529b\r\n\tselkx1(18)=selx8\t: selkx2(18)=selx9-1\t; \u9b54\u529b\r\n\tselkx1(19)=selx9\t: selkx2(19)=selx10-1\t; \u77e5\u529b\r\n\tselkx1(20)=selx10\t: selkx2(20)=selx11-1\t; \u9b45\u529b\r\n\tselkx1(21)=selx11\t: selkx2(21)=wx-1\t\t; \u7279\u6b8a\r\n\r\n\trepeat 10,17 ; \u4e0a\u306ey\u5ea7\u6a19\r\n\t selky1(cnt)=0 : selky2(cnt)=sely2-1\r\n\tloop\r\n\r\n\r\n\tselkx1(14)=selx4\t: selkx2(14)=selx5-1\t; \u2190\r\n\tselkx1(15)=selx5\t: selkx2(15)=selx6-1\t; \u623b\u308b\r\n\tselkx1(16)=selx6\t: selkx2(16)=wx-1\t\t; \u2192\r\n\r\n\trepeat 3,14 ; \u4e0b\u306ey\u5ea7\u6a19\r\n\t selky1(cnt)=sely3 : selky2(cnt)=wy-1\r\n\tloop\r\n\r\n\r\n\tselkx1(22)=selx12\t: selkx2(22)=selx13-1\t; HP\r\n\tselkx1(23)=selx13\t: selkx2(23)=selx14-1\t; \u914d\u5099\r\n\tselkx1(24)=selx14\t: selkx2(24)=selx15-1\t; \u30b3\u30b9\u30c8\r\n\tselkx1(25)=selx15\t: selkx2(25)=selx16-1\t; \u5c5e\u6027\r\n\tselkx1(26)=selx16\t: selkx2(26)=wx-1\t\t; \u6d88\u53bb\r\n\r\n\r\n; \u30a2\u30a4\u30c6\u30e0\u9078\u629e\u753b\u9762--------------------------------\r\n\r\n\tiself=0\t\t; \u30e2\u30fc\u30c9\u5207\u308a\u66ff\u3048\r\n\r\n\tiselx1=0;7\t; \u540d\u524d\r\n\tiselx2=180\t; \u964d\u9806\r\n\tiselx3=245\t; \u6607\u9806\r\n\r\n\tiselx4=0\t\t; \u30da\u30fc\u30b8\u5de6\r\n\tiselx5=150\t; \u623b\u308b\r\n\tiselx6=490\t; \u30da\u30fc\u30b8\u53f3\r\n\r\n\tiselxk=56\t; \u9593\u9694\r\n\t iselx7=310\t; \u7a2e\u5225\u59cb\u3081\r\n\t iselx8=iselx7+iselxk\r\n\t iselx9=iselx8+iselxk\r\n\t iselx10=iselx9+iselxk\r\n\t iselx11=iselx10+iselxk\r\n\r\n\tiselxk=69\t; \u9593\u9694\r\n\t iselx12=310\t; HP\r\n\t iselx13=iselx12+iselxk ; \u914d\u5099\r\n\t iselx14=iselx13+iselxk ; \u30b3\u30b9\u30c8\r\n\t iselx15=iselx14+iselxk ; \u5c5e\u6027\r\n\t iselx16=iselx15+iselxk ; \u524a\u9664\r\n\r\n\tiselxk2=55\t; \u9593\u9694\r\n\t iselx17=310\t; \u706b\u3001\u6c34\u3001\u98a8\u3001\u5730\u3001\u5149\u3001\u95c7\r\n\r\n\tisely1=0;10\t; \u7a2e\u5225\u59cb\u3081\r\n\tisely2=47\t; \u30e6\u30cb\u30c3\u30c8\u59cb\u3081\r\n\tiselyk=38\t; \u884c\u9593\u9694\r\n\tisely3=isely2+iselyk*7 ; \u30da\u30fc\u30b8\u5207\u308a\u66ff\u3048\u3001\u623b\u308b\r\n\r\n\r\n\tdim iselkx1,50 ; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\tdim iselkx2,50\r\n\tdim iselky1,50\r\n\tdim iselky2,50\r\n\r\n\trepeat 7,1 ; \u30e6\u30cb\u30c3\u30c8xy\u5ea7\u6a19\r\n\t iselkx1(cnt)=0 : iselkx2(cnt)=640\r\n\t iselky1(cnt)=isely2+iselyk*(cnt-1)\r\n\t iselky2(cnt)=isely2+iselyk*(cnt)\r\n\r\n\t iselkx1(30+cnt)=iselx16 : iselkx2(30+cnt)=640 ; \u524a\u9664\r\n\t iselky1(30+cnt)=isely2+iselyk*(cnt-1)\r\n\t iselky2(30+cnt)=isely2+iselyk*(cnt)\r\n\tloop\r\n\r\n\r\n\tiselkx1(11)=0\t\t: iselkx2(11)=iselx2\t; \u540d\u524d\r\n\tiselkx1(12)=iselx2\t: iselkx2(12)=iselx3\t; \u964d\u9806\r\n\tiselkx1(13)=iselx3\t: iselkx2(13)=iselx7\t; \u6607\u9806\r\n\r\n\trepeat 3,11 ; \u4e0a\u306ey\u5ea7\u6a19\r\n\t iselky1(cnt)=0 : iselky2(cnt)=isely2\r\n\tloop\r\n\r\n\r\n\tiselkx1(17)=iselx7\t: iselkx2(17)=iselx8\t; \u7b4b\u529b\r\n\tiselkx1(18)=iselx8\t: iselkx2(18)=iselx9\t; \u9b54\u529b\r\n\tiselkx1(19)=iselx9\t: iselkx2(19)=iselx10\t; \u77e5\u529b\r\n\tiselkx1(20)=iselx10\t: iselkx2(20)=iselx11\t; \u9b45\u529b\r\n\tiselkx1(21)=iselx11\t: iselkx2(21)=wx\t\t; \u7279\u6b8a\r\n\r\n\trepeat 10,17 ; \u4e0a\u306ey\u5ea7\u6a19\r\n\t iselky1(cnt)=0 : iselky2(cnt)=isely2\r\n\tloop\r\n\r\n\r\n\tiselkx1(14)=iselx4\t: iselkx2(14)=iselx5\t; \u2190\r\n\tiselkx1(15)=iselx5\t: iselkx2(15)=iselx6\t; \u623b\u308b\r\n\tiselkx1(16)=iselx6\t: iselkx2(16)=wx\t\t; \u2192\r\n\r\n\trepeat 3,14 ; \u4e0b\u306ey\u5ea7\u6a19\r\n\t iselky1(cnt)=isely3 : iselky2(cnt)=wy\r\n\tloop\r\n\r\n\r\n\tiselkx1(22)=iselx12\t: iselkx2(22)=iselx13\t; HP\r\n\tiselkx1(23)=iselx13\t: iselkx2(23)=iselx14\t; \u914d\u5099\r\n\tiselkx1(24)=iselx14\t: iselkx2(24)=iselx15\t; \u30b3\u30b9\u30c8\r\n\tiselkx1(25)=iselx15\t: iselkx2(25)=iselx16\t; \u5c5e\u6027\r\n\tiselkx1(26)=iselx16\t: iselkx2(26)=wx\t\t; \u6d88\u53bb\r\n\r\n\r\n\trepeat 6,41 ; \u706b\u3001\u6c34\u3001\u98a8\u3001\u5730\u3001\u5149\u3001\u95c7\r\n\t iselkx1(cnt)=iselx17+(cnt-41)*iselxk2\r\n\t iselkx2(cnt)=iselx17+(cnt-40)*iselxk2\r\n\t iselky1(cnt)=0\r\n\t iselky2(cnt)=isely2\r\n\tloop\r\n\r\n\/*\r\nrepeat\r\n redraw 0\r\n color 1,1,1 : boxf : color 255,255,255\r\niself=2\r\n ky=isel_key()\r\n\r\n repeat 7,1\r\n  n=255-10*cnt : color n,n,n\r\n  boxf iselkx1(cnt),iselky1(cnt),iselkx2(cnt),iselky2(cnt)\r\n loop\r\n repeat 6,11\r\n  n=255-10*(cnt) : color n,n,n\r\n  boxf iselkx1(cnt),iselky1(cnt),iselkx2(cnt),iselky2(cnt)\r\n loop\r\n\r\n repeat 5,17\r\n  n=255-10*(cnt-17) : color n,n,n\r\n  boxf iselkx1(cnt),iselky1(cnt),iselkx2(cnt),iselky2(cnt)\r\n loop\r\n repeat 5,22\r\n  n=255-10*(cnt-22) : color n,n,n\r\n  boxf iselkx1(cnt),iselky1(cnt),iselkx2(cnt),iselky2(cnt)\r\n loop\r\n\r\n repeat 7,31\r\n  n=255-10*(cnt-31+16) : color n,n,n\r\n  boxf iselkx1(cnt),iselky1(cnt),iselkx2(cnt),iselky2(cnt)\r\n loop\r\n\r\n repeat 6,41\r\n  n=255-10*(cnt-41) : color n,n,n\r\n  boxf iselkx1(cnt),iselky1(cnt),iselkx2(cnt),iselky2(cnt)\r\n loop\r\n\r\ncolor 255,0,0 : pos 10,100 : mes ky\r\n\r\n redraw 1\r\n await 1000\/10\r\nloop\r\nstop\r\n*\/\r\n\r\n\/*\r\n\tiselx1=10 : iselxk=60\r\n\tisely1=11 : isely2=51 : iselyk=38\r\n\tiselx2=305\r\n\tiselx3=iselx2+iselxk\r\n\tiselx4=iselx3+iselxk\r\n\tiselx5=iselx4+iselxk\r\n\tiselx6=iselx5+iselxk\r\n\r\n\tdim iselkx1,20 ; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\tdim iselkx2,20\r\n\tdim iselky1,20\r\n\tdim iselky2,20\r\n\r\n\trepeat 9,1\r\n\t iselkx1(cnt)=0 : iselkx2(cnt)=wx\r\n\t iselky1(cnt)=isely2+iselyk*(cnt-1)-6\r\n\t iselky2(cnt)=isely2+iselyk*(cnt)-6\r\n\t iselky1(cnt+10)=0\r\n\t iselky2(cnt+10)=isely2-6\r\n\tloop\r\n\tiselky1(9)=iselky1(8) : iselky2(8)=wy : selky2(9)=wy\r\n\r\n\tk=4\r\n\tiselkx1(8)=0\t\t\t: iselkx2(8)=wx\/2\r\n\tiselkx1(9)=wx\/2\t\t\t: iselkx2(9)=wx\r\n\tiselkx1(11)=0\t\t\t: iselkx2(11)=iselx2-k\r\n\tiselkx1(12)=iselx2-k\t: iselkx2(12)=iselx3-k\r\n\tiselkx1(13)=iselx3-k\t: iselkx2(13)=iselx4-k\r\n\tiselkx1(14)=iselx4-k\t: iselkx2(14)=iselx5-k\r\n\tiselkx1(15)=iselx5-k\t: iselkx2(15)=iselx6-k\r\n\tiselkx1(16)=iselx6-k\t: iselkx2(16)=wx\r\n*\/\r\n\r\n\r\n; \u5c5e\u9818\u9078\u629e\u753b\u9762\r\n\r\n\tdim mselkx1,20\r\n\tdim mselkx2,20\r\n\tdim mselky1,20\r\n\tdim mselky2,20\r\n\r\n\tmselkx1(11)=9 : mselkx2(11)=72 : k=115\r\n\tmselkx1(12)=mselkx2(11) : mselkx2(12)=mselkx1(12)+k\r\n\tmselkx1(13)=mselkx2(12) : mselkx2(13)=mselkx1(13)+k\r\n\tmselkx1(14)=mselkx2(13) : mselkx2(14)=mselkx1(14)+k\r\n\tmselkx1(15)=mselkx2(14) : mselkx2(15)=mselkx1(15)+k\r\n\tmselkx1(16)=mselkx2(15) : mselkx2(16)=wx\r\n\tmselkx1(17)=0 : mselkx2(17)=wx\r\n\r\n\trepeat 6,11\r\n\t mselky1(cnt)=0 : mselky2(cnt)=44\r\n\tloop\r\n\tmselky1(17)=44+38*7 : mselky2(17)=wy\r\n\r\n\trepeat 7,1\r\n\t mselkx1(cnt)=0 : mselkx2(cnt)=wx\r\n\t mselky1(cnt)=47+37*(cnt-1)\r\n\t mselky2(cnt)=47+37*(cnt)\r\n\tloop\r\n\/*\r\nrepeat\r\nky=msel_key()\r\nredraw 0\r\n repeat 16,1\r\n  n=255-10*cnt : color n,n,n\r\n  boxf mselkx1(cnt),mselky1(cnt),mselkx2(cnt),mselky2(cnt)\r\n loop\r\n\r\ncolor 0,255,0\r\npos 100,100 : mes ky\r\nredraw 1\r\nawait 10\r\nloop\r\npkey\r\n*\/\r\n\r\n\r\n; \u30a4\u30f3\u30d5\u30a9\u30e1\u30fc\u30b7\u30e7\u30f3\u30a6\u30a4\u30f3\u30c9\u30a6-------------------\r\n\r\n\tiwdx1=200 : iwdx2=630\r\n\tiwdy1=10 : iwdy2=170 : iwdy3=190 : iwdy4=350\r\n\tiwdxk=430 : iwdyk=160\r\n\tequx1=20 : equy1=20\r\n\tequx2=126 : equy2=10\r\n\tequx3=280\r\n\r\n\r\n; \u30e6\u30fc\u30b6\u30fc\u30ab\u30e9\u30fc\r\n\tcccx=280 : y=60 : cccxk=256 : cccyk=60 : cccyk2=85\r\n\tdim cccy,4\r\n\t repeat 3,1 : cccy(cnt)=y : y+=cccyk2 : loop\r\n\tccto=60 : cctk=20\r\n\tcctx1=cccx-ccto-cctk : cctx2=cccx+cccxk+cctk\r\n\r\n\r\n; SAVE\u753b\u9762\r\n\r\n\tsvx1=28+16+8\r\n\tsvx2=28+16+8+34*16\r\n\tdim svy1,4\r\n\tdim svy2,4\r\n\trepeat 3\r\n\t svy1(cnt+1)=24+8+cnt*64\r\n\t svy2(cnt+1)=svy1(cnt+1)+64\r\n\tloop\r\n\tsvy1(4)=264\r\n\tsvy2(4)=264+64\r\n\r\n\r\n; \u88c5\u5099\u753b\u9762---------------------------------------\r\n\r\n\tequx4=10 : equxk=90\r\n\tequy4=190 : equx5=514\r\n\tequy5=equy4+coy+9\r\n\r\n\tdim equkx1,20 ; \u30bf\u30c3\u30d7\u5ea7\u6a19\r\n\tdim equkx2,20\r\n\tdim equky1,20\r\n\tdim equky2,20\r\n\r\n\trepeat 7 : n1=cnt : n2=cnt+10 : n3=cnt+20\r\n\t equkx1(n1)=equx4+equxk*(n1)\t: equkx1(n2)=equkx1(n1)\t\t: equkx1(n3)=equkx1(n1)\r\n\t equkx2(n1)=equkx1(n1)+80\t\t: equkx2(n2)=equkx2(n1)\t\t: equkx2(n3)=equkx2(n1)\r\n\t equky1(n1)=equy4\t\t\t\t: equky1(n2)=equy4+80\t\t: equky1(n3)=equy5\r\n\t equky2(n1)=equky1(n1)+80\t\t: equky2(n2)=equky1(n1)+130\t: equky2(n3)=equky1(n3)+18\r\n\tloop\r\n\r\n\tequs=\"\u53f3\u624b\",\"\u5de6\u624b\",\"\u9632\u5177\",\"\u30a2\u30a4\u30c6\u30e0 or \u30a2\u30af\u30bb\u30b5\u30ea\u30fc\",\"HAND\"\r\n\r\n\r\n; \u6226\u95d8\u753b\u9762\r\n\r\n\tbtlx1=18 : btlxk=96\r\n\tbtlx2=wx-btlx1-btlxk*3+(btlxk-80)\r\n\tbtlck=btlx2-btlx1-btlxk*3;+(btlxk-80) ; \u30bb\u30f3\u30bf\u30fc\u306e\u9593\u9694\r\n\tbtly1=140\r\n\r\n\tdim btlcx,4 ; \u30ab\u30fc\u30c9x\u5ea7\u6a19\r\n\t repeat 3,1\r\n\t  bcx1(cnt)=btlx1+btlxk*(3-cnt)\r\n\t  bcx2(cnt)=btlx2+btlxk*(cnt-1)\r\n\t loop\r\n\r\n\thpbpy=btly1+141\t; HP\u30d0\u30fc\u306e\u5ea7\u6a19y\r\n\thpbpxk=cox-4\t; HP\u30d0\u30fc\u306e\u9577\u3055\r\n\thpbpyk=10\t\t; HP\u30d0\u30fc\u306e\u5e45\r\n\r\n\r\n; \u30c0\u30e1\u30fc\u30b8\u8868\u793a\r\n\r\n\tdmpb=20\r\n\t dim dmp,6*dmpb ; \u30c0\u30e1\u30fc\u30b8\u8868\u793a\uff080=\u30d5\u30e9\u30b0\u30011=n\u30012=x\u30013=y\u30014=color\u30015=\u30ab\u30a6\u30f3\u30bf\u30fc\uff09\r\n\r\n\r\n; \u30a8\u30d5\u30a7\u30af\u30c8\u8868\u793a\r\n\r\n\tefb=20 ; \u6700\u5927\u6570\r\n\tefd=12 ; \u30c7\u30fc\u30bf\u6570\r\n\r\n\tdim ef,efd*efb\t; \u30c7\u30fc\u30bf\r\n;\uff080=\u7a2e\u985e\u30011=\u30b0\u30e9No.2=\u8868\u793a\u5834\u6240\u30013=\u30a2\u30cb\u30e1c\u30014=\u901f\u3055c\u30015=\u901f\u3055\u3001\r\n;  6=x\u30017=y\u30018=x\u52d5\u304d\u30019=y\u52d5\u304d\u300110=\u900f\u660e or \u52a0\u7b97\u300111=\u79fb\u52d5\u6642\u9593)\r\n\r\n\tddim eff,4*efb\t; \u5b9f\u6570\u30c7\u30fc\u30bf\r\n; (0=\u53cd\u8ee2x\u30011=\u53cd\u8ee2y\u30012=\u56de\u8ee2\u30013=\u56de\u8ee2\u901f\u5ea6\uff09\r\n\r\n\r\n; \u30a8\u30f3\u30c7\u30a3\u30f3\u30b0\u6587\u5b57\u8868\u793a\r\n\r\n\toemjb=20\r\n\tdim oemjf,oemjb ; \u30d5\u30e9\u30b0\u3001\u30b0\u30e9No.(0=op\u30011=ed\u30012=cr)\r\n\tdim oemjn,oemjb ; \u6587\u5b57No.\r\n\tdim oemjc,oemjb ; \u30ab\u30e9\u30fcNo.\r\n\tdim oemjx,oemjb ; x\u5ea7\u6a19\r\n\tdim oemjy,oemjb ; y\u5ea7\u6a19\r\n\tdim oemjm,oemjb ; \u79fb\u52d5\u65b9\u5411\r\n\tdim oemjd,oemjb ; \u79fb\u52d5\u91cf\r\n\/*\r\n\tedmjb=10\r\n\tdim edmjf,edmjb\r\n\tdim edmjy,edmjb\r\n\tdim edmjz,edmjb\r\n\r\n\tedcrb=12\r\n\tdim edcrf,edcrb ; \u30b0\u30e9No.\r\n\tdim edcrn,edcrb ; \u6587\u5b57No.\r\n\tdim edcrx,edcrb ; x\u5ea7\u6a19\r\n\tdim edcrc,edcrb ; \u30ab\u30e9\u30fcNo.\r\n\tdim edcry,edcrb\r\n\tdim edcrz,edcrb\r\n*\/\r\n\r\n; \u30ab\u30fc\u30c9\u30b7\u30e7\u30fc\u8868\u793a\r\n\r\n\tcdswb=20\r\n\tdim cdswf,cdswb ; \u30d5\u30e9\u30b0\r\n\tdim cdswx,cdswb ; x\u5ea7\u6a19\r\n\tdim cdswy,cdswb ; y\u5ea7\u6a19\r\n\tdim cdswz,cdswb ; \u56de\u8ee2\r\n\r\n\treturn\r\n\r\n\r\n\r\n#deffunc card_put int cpn1,int cpn2,int cpn3,int cpn4,int cpn6 ; \u30ab\u30fc\u30c9\u8868\u793a\r\n; cpn6=\u53cd\u8ee2\u8868\u793a(0=\u901a\u5e38\u30011=\u53cd\u8ee2)\r\n\r\n\tcpx=cpn1+cox\/2\r\n\tcpy=cpn2 : cpun=cpn3 ; un=\u30e6\u30cb\u30c3\u30c8No\r\n\r\n\tif cpn6=0 : cpn6f=1.0 : else : cpn6f=-1.0\r\n\r\n\tcpug=cpun*udb\r\n\tcpcn=ud(cpug)\r\n\r\n\t\r\n\tif cpn4=0 : cpn5=255 : else : cpn5=cpn4\r\n\t gmode 3,,,cpn5 : gmulcolor 255,255,255\r\n\r\n\tpos cpx,cpy : celput cw,cpcn-1,cpn6f\r\n\r\n\/*\r\n\tcolor 0,255,0\r\n\tpos cpx+2,cpy+2 : mes cs2(cn)\r\n\trepeat 6,1\r\n\t pos cpx+4,cpy+cnt*20 : mes ud(un*udb+cnt+20)\r\n\tloop\r\n*\/\r\n\treturn\r\n\r\n\r\n\r\n\r\n#deffunc map_put\r\n\r\n\trepeat 25,1 ; HEX\r\n\t x=hxyd(0,cnt) : y=hxyd(1,cnt)\r\n\r\n\t gmode 2\r\n\t  gmulcolor 255,255,255\r\n\r\n\r\n ; HEX\u63cf\u753b\r\n \r\n\t pos x,y\r\n\r\n\t  if map(cnt)=1 : celput m1w ; \u5730\u5f62\u3001\u706b\r\n\t  if map(cnt)=2 : celput m2w ; \u5730\u5f62\u3001\u6c34\r\n\t  if map(cnt)=3 : celput m3w ; \u5730\u5f62\u3001\u98a8\r\n\t  if map(cnt)=4 : celput m4w ; \u5730\u5f62\u3001\u5730\r\n\t  if map(cnt)=5 : celput m5w ; \u5730\u5f62\u3001\u5149\r\n\t  if map(cnt)=6 : celput m6w ; \u5730\u5f62\u3001\u95c7\r\n\r\n\t  if map(cnt)&gt;0 { ; \u5efa\u7269\r\n\t   mdg=cnt*mdb\r\n\t   \r\n\t   if md(mdg+7)&gt;0 { ; \u5efa\u7bc9\u7269\r\n\t\tif md(mdg+7)=1 : n=40 : else : n=md(mdg+7)-2\r\n\t     pos x+40-4,y+14-3 : celput atw,n,1.2,1.2\r\n\t   }\r\n\t   n=(md(mdg+1)+100000)\/200000 : if n&gt;4 : n=4\r\n\t    pos x+40-4,y+43-4 : celput atw,10+n,1.2,1.2\t; \u8857\r\n\r\n\t   n=(md(mdg+2)+10000)\/20000 : if n&gt;4 : n=4\r\n\t    pos x+66-4,y+33-4 : celput atw,20+n,1.2,1.2\t; \u9b54\u6cd5\u5b66\u9662\r\n\t   n=(md(mdg+3)+10000)\/20000 : if n&gt;4 : n=4\r\n\t   pos x+14-4,y+33-4 : celput atw,30+n,1.2,1.2\t; \u30de\u30ca\r\n\r\n\r\n;pos x+40,y+14 : \/*n=rnd(10)*\/ : celput atw,0;nnnn\\10 :nnnn+ \t; \u5efa\u7269\r\n;pos x+40,y+43 : n=rnd(5) : celput atw,10;+n\t; \u8857\r\n;pos x+66,y+33 : n=rnd(5) : celput atw,20;+n\t; \u9b54\u6cd5\u5b66\u9662\r\n;pos x+14,y+33 : n=rnd(5) : celput atw,30;+n\t; \u30de\u30ca\r\n\r\n\r\n; \u6cbb\u5b89\u30d0\u30fc\r\n\t   x2=x+26 : y2=y+70 : yk=4\r\n\r\n\t   color 0,72,200\t\t\t\t; \u5916\u67a0\r\n\t\tboxf x2,y2,x2+52,y2+yk+1\r\n\t   color 32,64,96\t\t\t\t; \u80cc\u666f\r\n\t\tboxf x2+1,y2+1,x2+1+50,y2+yk\r\n\t   color 0+48,192,255\t\t\t; \u4e2d\r\n\t    n=md(mdg+4)\/2000\r\n\t\t boxf x2+1,y2+1,x2+1+n,y2+yk\r\n\t  }\r\n\r\n\r\n\t if mpl(cnt)&gt;0 { ; 0=\u8ab0\u3082\u652f\u914d\u3057\u3066\u306a\u3044\r\n\r\n\t  n=mpl(cnt)\r\n\t  gmulcolor cld((pcln(n)-1)*3+1),cld((pcln(n)-1)*3+2),cld((pcln(n)-1)*3+3)\t; \u8272\u6307\u5b9a\r\n\t   pos x,y : celput hsw\t; \u3075\u3061\u63cf\u753b\r\n\r\n\t  gmode 5,,,160\t\t\t; \u52a0\u7b97\u5408\u6210\r\n\t   pos x,y : celput hiw\t; \u3075\u3061\u30b0\u30e9\u30c7\u63cf\u753b\r\n\t }\r\n\r\nif debugf=1 and map(cnt)&gt;0 {\r\n;if map(cnt)&gt;0 {\r\n ;s=\"mp\" : bfp s,x+25,y+3 : \r\ngmulcolor 255,255,255\r\n fp wp(cnt),x+20,y+3,0\r\n  ;fp hdn(cnt),x+20,y+23\r\n  fp wpb(cnt),x+20,y+23\r\n fp pmp(mpl(cnt)),x+15,y+48,0\r\n ;fp hdk_dgn(mpl(cnt)),x+50,y+48,1\r\n ;fp md(cnt*mdb+7),x+15,y+48,0\r\n ;pos x+45,y+48 : mes md(cnt*mdb+9)\r\n ;fp md(cnt*mdb+9),x+45,y+48,0\r\n fp cnt,x+25,y+68,0\r\n fp matp_dgn(mpl(cnt)),x+50,y+68,3\r\n fp matp_dgn2(mpl(cnt)),x,y+35,3\r\n;}\r\n}\r\n\r\n;color 255,255,255  : pos x+25,y+48 : mes cnt;n ;map(cnt) ; \u30de\u30b9\u756a\u53f7\u8868\u793a\r\n;if map(cnt)&gt;0 : pos x+25,y+3  : mes \"wp \"+wp(cnt);n ;map(cnt) ; \u6226\u529b\u5024\u8868\u793a\r\ncontinue\r\nif debugf=0 : continue\r\n\t color 255,255,255\r\n\t  pos x+25,y+25 : mes \"hd \"+hdn(cnt);n ;map(cnt) ; \u8105\u5a01\u5024\u8868\u793a\r\n\tloop\r\n\r\n\r\n\tif pn&gt;0 { ; \u64cd\u4f5cpl\u306e\u9996\u90fd\u9078\u629e\u5916\u67a0\u8868\u793a\r\n\t n=mpc(pn) ; \u9996\u90fd\u56fd\r\n\t  x=hxyd(0,n)-8 : y=hxyd(1,n)-8 ; \u5ea7\u6a19\r\n\t   gmode 5,,,224 : gmulcolor 255,255,255\r\n\t    pos x,y : celput hcw\r\n\t}\r\n\r\n\tif pmpnc&gt;0 { ; \u30de\u30ca\u30dd\u30a4\u30f3\u30c8\u304c\u8db3\u308a\u306a\u3044\u8868\u793a\r\n\t pmpnc-\r\n\t evw 0,108,132,27,6\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\t evw 1,108,132,27,6 ; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\t;\tcolor 240,240,240 : boxf 320-100,180-50,320+100,180+50\r\n\t;\tcolor 1,1,1 : boxf 320-98,180-48,320+98,180+48\r\n\t;\tcolor 240,240,240\r\n\t s=\"MANA PONT\" : pfp28 s,144,165\r\n\t pos 144+163,165 : celput  mj28_lngw,9; mes \"\u30de\u30ca\u30dd\u30a4\u30f3\u30c8\u304c\u8db3\u308a\u307e\u305b\u3093\"\r\n\t;\t pos 320-70,180-30 : mes \"\u30de\u30ca\u30dd\u30a4\u30f3\u30c8\u304c\"\r\n\t;\t pos 320-70,180+10 : mes \"\u8db3\u308a\u307e\u305b\u3093\"\r\n\t}\r\n\r\n\r\n; HEX\u5916\u5468\u7a7a\u304d\u6b04 --------------------\r\n;color 255,255,255 : pos 5,5 : mes plb\r\n\tgmode 2 : gmulcolor 255,255,255\r\n\r\n; \u5916\u5468\u30b3\u30de\u30f3\u30c9\r\n\tpos cxyd(0,4)+6,cxyd(1,4)+10 : celput cicow,5\t; \u30de\u30c3\u30d7\r\n\r\n\tpos cxyd(0,6)+12,cxyd(1,6)+3 : celput cicow,0\t; \u653f\u5e9c\r\n\tpos cxyd(0,7)+12,cxyd(1,7)+3 : celput cicow,1\t; \u30e6\u30cb\u30c3\u30c8\u4e00\u89a7\r\n\tpos cxyd(0,8)+12,cxyd(1,8)+3 : celput cicow,2\t; \u30a2\u30a4\u30c6\u30e0\u4e00\u89a7\r\n\r\n\tpos cxyd(0,9 )+12,cxyd(1,9 )-11\r\n\t if mt_muf=0 : gmulcolor 255,255,255 : celput cicow,10 ; Music\r\n\t if mt_muf=1 : gmulcolor 160,160,160 : celput cicow,10\r\n\tpos cxyd(0,10)+12,cxyd(1,10)-11\r\n\t if btlputf=0 : gmulcolor 255,255,255 : celput cicow,25 ; \u30d0\u30c8\u30eb\u30a2\u30cb\u30e1\r\n\t if btlputf=1 : gmulcolor 160,160,160 : celput cicow,25\r\n\t ;if mt_sef=0 : gmulcolor 255,255,255 : celput cicow,12 ; SE\r\n\t ;if mt_sef=1 : gmulcolor 160,160,160 : celput cicow,13\r\n\r\n\tgmulcolor 255,255,255\r\n\t pos cxyd(0,11)+12,cxyd(1,11)-11 : celput cicow,14\t; OPSION\r\n\r\n\tpos cxyd(0,13)+0,cxyd(1,13)+10 : celput cicow,6\t; SAVE\r\n\tpos cxyd(0,14)+0,cxyd(1,14)+10 : celput cicow,7\t; LOAD\r\n\tpos cxyd(0,15)+0,cxyd(1,15)+10 : celput cicow,8\t; \u30c0\u30fc\u30f3\u30a8\u30f3\u30c9\r\n\r\n\tpos cxyd(0,3)+6,cxyd(1,3)+10 : celput cicow,3\t; \u30d7\u30ec\u30a4\u30e4\u30fc\r\n\t;pos cxyd(0,4)+10,cxyd(1,4)+3 : celput cicow,4\t; CPU\r\n\r\n\/*\r\n; \u67a0\r\n\trepeat 5\r\n\t pos -44,-45+90*cnt : celput how\r\n\t pos 581,-45+90*cnt : celput how\r\n\tloop\r\n\r\n\trepeat 3\r\n\t pos 112+156*cnt,-45 : celput how\r\n\t pos 112+156*cnt,315 : celput how\r\n\tloop\r\n*\/\r\n\r\n; \u30bf\u30fc\u30f3\u8868\u793a\r\n\ts=str(trn) : n=strlen(s) ; \u30b1\u30bf\r\n\t x=cxyd(0,2)+21-n*8 : y=cxyd(1,2)\r\n\t ;x=cxyd(0,2)+51-n*16 : y=cxyd(1,2)\r\n\t  fp2 trn,x,y,0\r\n\ts=\"turn\" : bfp s,cxyd(0,2)+2,cxyd(1,2)+27,0\r\n\r\n\/*\r\ncolor 192,192,255\r\n pos 10,10 : mes \"\"+trn+\" \u30bf\u30fc\u30f3\"\r\n pos 100,10 : mes \"kn1 \"+kn1+\"  \"+\"kn2 \"+kn2\r\n*\/\r\n\tcolor 255,255,255\r\n\t ;s=\"Turn\" : bfp s,cxyd(0,15),cxyd(1,15)+20,0\r\n\t ;s=\" End\" : bfp s,cxyd(0,15),cxyd(1,15)+40,0\r\nif debugf=1 {\r\n s=\"dbgf\" : bfp s,cxyd(0,16),cxyd(1,16)+10,0\r\n}\r\n\/*\r\npos 10,300 : mes \"pn \"+pn\r\npos 10,320 : mes \"sf \"+str_plbn\r\npos 10,340 : mes \"hf \"+hextf\r\n*\/\r\n\/*\r\n\tcolor 244,244,244\r\n\t pos 10,110 : mes \"kc \"+kc\r\n\t pos 10,130 : mes \"hink \"+hink\r\n\t pos 10,150 : mes \"mainf \"+mainf\r\n\t pos 10,180 : mes \"kn \"+kn\r\n\t pos 10,210 : mes \"ckn \"+ckn\r\n\t pos 10,240 : mes \"kc2 \"+kc2\r\n*\/\r\n\r\n\r\n\treturn\r\n\r\n\r\n#deffunc map_put2\r\n\r\n\trepeat 25,1 ; HEX\r\n\t x=hxyd(0,cnt) : y=hxyd(1,cnt)\r\n\r\n\t gmode 2\r\n\t  gmulcolor 255,255,255\r\n\r\n\r\n ; HEX\u63cf\u753b\r\n \r\n\t pos x,y\r\n\r\n\t  if map(cnt)=1 : celput m1w ; \u5730\u5f62\u3001\u706b\r\n\t  if map(cnt)=2 : celput m2w ; \u5730\u5f62\u3001\u6c34\r\n\t  if map(cnt)=3 : celput m3w ; \u5730\u5f62\u3001\u98a8\r\n\t  if map(cnt)=4 : celput m4w ; \u5730\u5f62\u3001\u5730\r\n\t  if map(cnt)=5 : celput m5w ; \u5730\u5f62\u3001\u5149\r\n\t  if map(cnt)=6 : celput m6w ; \u5730\u5f62\u3001\u95c7\r\n\r\n\r\n\t  if map(cnt)&gt;0 { ; \u5efa\u7269\r\n\t   mdg=cnt*mdb\r\n\t   \r\n\t   if md(mdg+7)&gt;0 { ; \u5efa\u7bc9\u7269\r\n\t\tif md(mdg+7)=1 : n=40 : else : n=md(mdg+7)-2\r\n\t     pos x+40-4,y+14-3 : celput atw,n,1.2,1.2\r\n\t   }\r\n\t   n=(md(mdg+1)+100000)\/200000 : if n&gt;4 : n=4\r\n\t    pos x+40-4,y+43-4 : celput atw,10+n,1.2,1.2\t; \u8857\r\n\r\n\t   n=(md(mdg+2)+10000)\/20000 : if n&gt;4 : n=4\r\n\t    pos x+66-4,y+33-4 : celput atw,20+n,1.2,1.2\t; \u9b54\u6cd5\u5b66\u9662\r\n\t   n=(md(mdg+3)+10000)\/20000 : if n&gt;4 : n=4\r\n\t   pos x+14-4,y+33-4 : celput atw,30+n,1.2,1.2\t; \u30de\u30ca\r\n\r\n; \u6cbb\u5b89\u30d0\u30fc\r\n\t   x2=x+26 : y2=y+70 : yk=4\r\n\r\n\t   color 0,72,200\t\t\t\t; \u5916\u67a0\r\n\t\tboxf x2,y2,x2+52,y2+yk+1\r\n\t   color 32,64,96\t\t\t\t; \u80cc\u666f\r\n\t\tboxf x2+1,y2+1,x2+1+50,y2+yk\r\n\t   color 0+48,192,255\t\t\t; \u4e2d\r\n\t    n=md(mdg+4)\/2000\r\n\t\t boxf x2+1,y2+1,x2+1+n,y2+yk\r\n\t  }\r\n\r\n\r\n\t  if mpl(cnt)&gt;0 { ; 0=\u8ab0\u3082\u652f\u914d\u3057\u3066\u306a\u3044\r\ncolor 255,255,255 : pos x+25,y+10 : mes mpl(cnt)\r\n\t   n=mpl(cnt)\r\ncolor 255,255,255 : pos x+25,y+30 : mes pcln(n)\r\n\r\n\t   gmulcolor cld((pcln(n)-1)*3+1),cld((pcln(n)-1)*3+2),cld((pcln(n)-1)*3+3)\t; \u8272\u6307\u5b9a\r\n\t    pos x,y : celput hsw\t; \u3075\u3061\u63cf\u753b\r\n\r\n\t   gmode 5,,,160\t\t\t; \u52a0\u7b97\u5408\u6210\r\n\t    pos x,y : celput hiw\t; \u3075\u3061\u30b0\u30e9\u30c7\u63cf\u753b\r\n\t  }\r\n\tloop\r\n\r\n\trepeat 25,1 ; \u67a0\r\n\t  if hf(mpl(cnt))=1 {\r\n\t   x=hxyd(0,cnt)-8 : y=hxyd(1,cnt)-8 ; \u5ea7\u6a19\r\n\t    gmode 5,,,224 : gmulcolor 255,255,255\r\n\t     pos x,y : celput hcw\r\n\t  }\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc map_put3\r\n\r\n\trepeat 25,1 ; HEX\r\n\t x=hxyd(0,cnt) : y=hxyd(1,cnt)\r\n\r\n\t gmode 2\r\n\t  gmulcolor 255,255,255\r\n\t;   pos x,y : celput hexw,0\r\npos x,y : celput m3w ; \u5730\u5f62\u3001\u98a8\r\n\t gmulcolor cld((cnt-1)*3+1),cld((cnt-1)*3+2),cld((cnt-1)*3+3)\t; \u8272\u6307\u5b9a\r\n\t  pos x,y : celput hsw\t; \u3075\u3061\u63cf\u753b\r\n\r\n\t gmode 5,,,160\t\t\t; \u52a0\u7b97\u5408\u6210\r\n\t  pos x,y : celput hiw\t; \u3075\u3061\u30b0\u30e9\u30c7\u63cf\u753b\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc map_put4\r\n\r\n\trepeat 25,1 ; HEX\r\n\t x=hxyd(0,cnt) : y=hxyd(1,cnt)\r\n\r\n\t gmode 2\r\n\t  gmulcolor 255,255,255\r\n\t;   pos x,y : celput hexw,0\r\npos x,y : celput m3w ; \u5730\u5f62\u3001\u98a8\r\n\t gmulcolor cld((cnt-1)*3+1),cld((cnt-1)*3+2),cld((cnt-1)*3+3)\t; \u8272\u6307\u5b9a\r\n\t  pos x,y : celput hsw\t; \u3075\u3061\u63cf\u753b\r\n\r\n\t gmode 5,,,160\t\t\t; \u52a0\u7b97\u5408\u6210\r\n\t  pos x,y : celput hiw\t; \u3075\u3061\u30b0\u30e9\u30c7\u63cf\u753b\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n\r\n#deffunc dis_put\r\n\r\n\tpn=0\r\n\tredraw 0\r\n\t color 0,0,0 : boxf : color 255,255,255\r\n\r\n\t map_put\t; \u30de\u30c3\u30d7\u8868\u793a\r\n\r\n\t repeat 25,1\r\n\t  if map(cnt)=0 : continue\r\n\t  if dism(cnt)=0 : continue\r\n\r\n\t  x=hxyd(0,cnt)+10 : y=hxyd(1,cnt)+24\r\n\t   pos x,y\r\n\t  if dism(cnt)=1 : celput disw,0,0.8,0.8 ; mes \"\u5730\u9707\"\r\n\t  if dism(cnt)=2 : celput disw,1,0.8,0.8 ; mes \"\u706b\u707d\"\r\n\t  if dism(cnt)=3 : celput disw,2,0.8,0.8 ; mes \"\u5d50\"\r\n\t  if dism(cnt)=4 : celput disw,3,0.8,0.8 ; mes \"\u66b4\u52d5\"\r\n\t loop\r\n\r\n\t dg_put\t; \u30c7\u30d0\u30c3\u30b0\u8868\u793a\r\n\tredraw 1\r\n\r\n\treturn\r\n\r\n\r\n\r\n; HEX\u60c5\u5831\u8868\u793a --------------------\r\n\r\n#deffunc inf_put\r\n\r\n\t;font \"\",20\r\n\r\n\t;color 255,255,255 : boxf infx1,infy1,infx2,infy2\t; \u67a0\r\n\tcolor 1,1,1 : boxf ;infx1+2,infy1+2,infx2-2,infy2-2\r\n\r\n\tn=map(m) : pos 0,0\r\n\t if n=1 : celput hai1w,0,2.0,2.0\t; \u706b\r\n\t if n=2 : celput hai2w,0,2.0,2.0\t; \u6c34\r\n\t if n=3 : celput hai3w\t\t\t\t; \u98a8\r\n\t if n=4 : celput hai4w\t\t\t\t; \u5730\r\n\t if n=5 : celput hai5w,0,2.0,2.0\t; \u5149\r\n\t if n=6 : celput hai6w,0,2.0,2.0\t; \u95c7\r\n\r\n\tn=mpl(m)\r\n\r\n\tif n=0 { ; \u4e2d\u7acb\r\n\t ;color 240,240,240 : pos infx1+5,infy1 : mes \"\"+m+\" \u56fd\"\r\n\t fp2 m,infx1+27,infy1,5\r\n\t}\r\n\r\n\tif n&gt;0{ ; \u30d2\u30fc\u30ed\u30fc\r\n     color 255,255,255 : boxf infx1+2,infy1+2,infx1+26,infy1+26\r\n\t color cld((pcln(n)-1)*3+1),cld((pcln(n)-1)*3+2),cld((pcln(n)-1)*3+3) ; \u52e2\u529b\r\n\t  boxf infx1+4,infy1+4,infx1+24,infy1+24\r\n\t fp2 m,infx1+27,infy1,5\r\n\t  ;pos infx1,infy1 : mes \"\"+m+\" \u56fd\"\r\n\t mdg=m*mdb\r\n\t  if md(mdg+7)&gt;0 { ; \u5efa\u7bc9\u7269\r\n\t   if md(mdg+7)=1 : n=40 : else : n=md(mdg+7)-2\r\n\t    pos infx1+73,infy1-2 : celput atw,n,1.2,1.2\r\n\t  }\r\n\r\n\t ;if mpc(n)=m : pos infx1+80,infy1 : mes \"\u9996\u90fd\";\"\"+n+\" \u52e2\u529b \u9996\u90fd\"\r\n\t ;boxf infx1+100,infy1+20,infx1+130,infy1+50\r\n\t}\r\n\r\n\tx=infx1+5 : y=infy1+35 : k=23\r\n\r\n\ts=\"popu\" : bfp s,x,y,5\t;population\r\n\t n=md(m*mdb+1)\/100 : fp n,x+50,y,5 : y+=k\r\n\ts=\"magi\" : bfp s,x,y,5\t;Magic\r\n\t n=md(m*mdb+2)\/100 : fp n,x+50,y,5 : y+=k\r\n\ts=\"mana\" : bfp s,x,y,5\t;Mana\r\n\t n=md(m*mdb+3)\/100 : fp n,x+50,y,5 : y+=k\r\n\ts=\"safe\" : bfp s,x,y,5\t;safe\r\n\t n=md(m*mdb+4)\/1000 : fp n,x+50,y,5\r\n\t  s=\"%\" : bfp s,x+80,y,5\r\n\r\n\ts=\"cost\" : bfp s,x,infy1+131,4\t; force cost\r\n\t n=wp_cost(m) : fp n,x+50,infy1+131,4\r\n\r\n\ts=\"mana\" : bfp s,x,infy1+154,2\t; mana point\r\n\t n=pmp(mpl(hink)) : fp n,x+50,infy1+154,2\r\n\/*\r\n\tk=6\r\n\t color 244,244,244\r\n\t  pos infx1+10,infy1+20+k  : mes \"\u4eba\u53e3 \"+md(m*mdb+1)\/100\r\n\t  pos infx1+10,infy1+40+k  : mes \"\u9b54\u8853 \"+md(m*mdb+2)\/100\r\n\t  pos infx1+10,infy1+60+k  : mes \"\u30de\u30ca \"+md(m*mdb+3)\/100\r\n\t  pos infx1+10,infy1+80+K  : mes \"\u6cbb\u5b89 \"+(md(m*mdb+4)\/1000)+\" %\"\r\n\t if mpl(m)&gt;0 {\r\n\t  pos infx1+10,infy1+100+k : mes \"\"+pubg(mpl(m))+\" \/ \"+pubn(mpl(m));\"\u653b\u6483 \"+md(m*mdb+5)\r\n\t  pos infx1+10,infy1+120+K : mes \"\"+pibg(mpl(m))+\" \/ \"+pibn(mpl(m));\"\u9632\u5fa1 \"+md(m*mdb+6)\r\n\t }\r\n\r\n\tcolor 0,255,255\r\n\t pos infx1,infy1+154 : mes \"\u30de\u30caP \"+pmp(mpl(hink))\r\n\r\n\tcolor 255,0,0\r\n\t pos infx1+105,infy1+154 : mes \"\u30b3\u30b9\u30c8 \"+wp_cost(m)\r\n*\/\r\n\r\n; Government ordinance\r\n\r\n\tif mpl(m)=pn { ; \u30d7\u30ec\u30a4\u30e4\u30fc\u306e\u307f\r\n\t c=0\r\n\t if mpc(pn)=m : n=128 : else : n=255 : if md(m*mdb+7)&gt;0 : c=1\r\n\t gmode 3,,,n\r\n\t  pos ordx1(1),ordy1(1) : celput ordw,c ; Build\u3001Disma\r\n\t gmode 2\r\n\t  pos ordx1(2),ordy1(2) : celput ordw,2 ; Talent\r\n\t  pos ordx1(3),ordy1(3) : celput ordw,3 ; Order\r\n\t}\r\n\/*\r\nif hf(mpl(m))!pn {\r\n pos ordx1(1),ordy1(1)+0  : mes \"\"+pubg(mpl(m))+\"\/\"+pubn(mpl(m))\r\n pos ordx1(1),ordy1(1)+20 : mes \"pubsn \"+pubsn(mpl(m))\r\n pos ordx1(1),ordy1(1)+50 : mes \"\"+pibg(mpl(m))+\"\/\"+pibn(mpl(m))\r\n pos ordx1(1),ordy1(1)+70 : mes \"pibsn \"+pibsn(mpl(m))\r\n}\r\n*\/\r\n\r\n\r\n\tgmode 2 : gmulcolor 255,255,255\r\n\r\n;pos 50,190 : celput 4\r\n;pos 340,40 : celput 4\r\n;pos 340,190 : celput 4\r\n\r\n\tmun=mu(m*mdb)\r\n\r\n\tif mun!0 { ; \u9818\u4e3b\u304c\u3044\u308b\r\n\t pos infx3,infy3 : ;celput krwkw\r\n\t  card_put infx3,infy3,mun\r\n\t pos infkx1(20),infky1(20) : celput rmw ; rmove\r\n\t}\r\n\r\n\tif mun=0 { ; \u9818\u4e3b\u304c\u3044\u306a\u3044\r\n\t pos infx3,infy3 : celput cslwkw ; \u9818\u4e3b\r\n\t pos infkx1(20),infky1(20) : celput rmw ; rmove\r\n\t}\r\n\r\n\tpos infx3-27,infy3 : celput fow,0 ; load\r\n\r\n\/*\r\n s=\"l\" : bfp s,infx3-22,infy3+11\r\n s=\"o\" : bfp s,infx3-22,infy3+40\r\n s=\"r\" : bfp s,infx3-22,infy3+69\r\n s=\"d\" : bfp s,infx3-22,infy3+98\r\n*\/\r\n\r\n; \u90e8\u968a\u8868\u793a ----------\r\n\r\n\trepeat 3 : cnt2=cnt\r\n\t repeat 3\r\n\t  mun=mu(m*mdb+cnt2*3+cnt+1)\r\n\r\n\t  gmode 2\r\n\t  pos infx(cnt2)+cnt*89,infy(cnt2)\r\n\t   if mun!0 : celput krwkw\r\n\t   if mun=0 : celput cslwkw : continue\r\n\r\n\t  x=infx(cnt2)+cnt*89 : y=infy(cnt2)\r\n\t   if ud(mun*udb+26)&gt;0 : n=255 : else : n=128\r\n\t   if ud(mun*udb+28)=1 : n=192\t\t; \u7d42\u4e86\u30d5\u30e9\u30b0\r\n\t    card_put x,y,mun,n\r\n\r\n\t  ;if ud(mun*udb+26)&gt;0 { ; HP\u30d0\u30fc\r\n\t   hpn=ud(mun*udb+26) ; HP\r\n\t    if hpn&gt;0 : nn=255 : else : nn=128\t; \u8868\u793a\u900f\u660e\u5ea6\r\n\t  ;   card_put bcx1(n),btly1,fn1(n),nn,0 ; \u30ab\u30fc\u30c9\u8868\u793a\r\n\r\n\t   hpbpn=int(double(hpbpxk)\/double(ud(mun*udb+25))*double(hpn)) ; HP\u30d0\u30fc\u306e\u9577\u3055\r\n\t    color 208,0,0 ; \u30c0\u30e1\u30fc\u30b8\r\n\/*\r\n\t     boxf x+2,y-17,x+2+hpbpxk,y-17+hpbpyk\r\n\t    color 112,112,255 ; HP\r\n\t     boxf x+2,y-17,x+2+hpbpn,y-17+hpbpyk\r\n\r\n\t    pos x,y-19 : celput hww ; hp\u30d0\u30fc\u306e\u67a0\r\n*\/\r\n\t     boxf x+2,y+coy+5,x+2+hpbpxk,y+coy+5+hpbpyk\r\n\t    color 112,112,255 ; HP\r\n\t     boxf x+2,y+coy+5,x+2+hpbpn,y+coy+5+hpbpyk\r\n\r\n\t    pos x,y+coy+3 : celput hww ; hp\u30d0\u30fc\u306e\u67a0\r\n\t   ;}\r\n\r\n\t   if ud(mun*udb+28)=0 : pos x,y+coy+21 : celput rmw ; rmove\r\n\r\n\r\n\/*\r\nif debugf=1 {\r\n color 255,255,255\r\n pos bcx1(n),btly1+160 : mes ud(fn1(n)*udb+26) ; HP\r\n pos bcx1(n)+60,btly1+160 : mes fn1(n) ; unNo.\r\n}\r\n*\/\r\nif debugf=1 { ; unNo,\u8868\u793a\r\ncolor 255,255,255\r\npos infx(cnt2)+cnt*89+19,infy(cnt2)-20\r\nmes \"unNo.\"+mun\r\n;mes \"\u30b3\u30b9\u30c8 \"+ud(mun*udb+27)\r\n}\r\n\r\n\t loop\r\n\/*\r\n\t s=\"f\" : bfp s,infx(cnt2)-22,infy(cnt2)+7;,5\r\n\t s=\"o\" : bfp s,infx(cnt2)-22,infy(cnt2)+27;,5\r\n\t s=\"r\" : bfp s,infx(cnt2)-22,infy(cnt2)+47;,5\r\n\t s=\"c\" : bfp s,infx(cnt2)-22,infy(cnt2)+67;,5\r\n\t s=\"e\" : bfp s,infx(cnt2)-22,infy(cnt2)+87;,5\r\n\t f=cnt2+1 : fp f,infx(cnt2)-22,infy(cnt2)+109;,5\r\n*\/\r\n\tloop\r\n\r\n\tgmode 2\r\n\trepeat 3 ; \u90e8\u968a\u51fa\u6483\u8868\u793a\r\n\t pos inffox(cnt),infy(cnt)\r\n\t n=(m-1)*3+cnt+1 : if fsorf(n)=0 : n=1 : else : n=4\r\n\t  celput fow,cnt+n\r\n\tloop\r\n\r\n\tif infof=1 {\r\n\r\n\tiwdf=0\r\n\tif ky2=0 or ky2=10 : iwdf=1\r\n\tif 4&lt;=ky2 and ky2&lt;=6 : iwdf=1\r\n\tif 14&lt;=ky2 and ky2&lt;=16 : iwdf=1\r\n\tif 1&lt;=ky2 and ky2&lt;=3 : iwdf=2\r\n\tif 7&lt;=ky2 and ky2&lt;=9 : iwdf=2\r\n\tif 11&lt;=ky2 and ky2&lt;=13 : iwdf=2\r\n\tif 17&lt;=ky2 and ky2&lt;=19 : iwdf=2\r\n\r\n\tif iwdf=1 : iwdy=iwdy3+10\r\n\tif iwdf=2 : iwdy=iwdy1+10\r\n\tiwdx=64\r\n\r\n\tevw 0,iwdx,iwdy,33,10\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\tevw 1,iwdx,iwdy,33,10\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\r\n\/*\r\n\tif iwdf=1 : iwdx=iwdx1 : iwdy=iwdy3\r\n\tif iwdf=2 : iwdx=iwdx1 : iwdy=iwdy1\r\n\r\n\tcolor 255,255,255\r\n\t boxf iwdx,iwdy,iwdx+iwdxk,iwdy+iwdyk\r\n\tcolor 8,8,8\r\n\t boxf iwdx+2,iwdy+2,iwdx+iwdxk-2,iwdy+iwdyk-2\r\n*\/\r\n\tgmode 5,,,128\r\n\t pos infkx1(ky2\\10)-4,infky1(ky2\\10)-4 : celput swakuw,0 ; \u9078\u629e\u30ab\u30fc\u30bd\u30eb\r\n\r\n\r\n\tun=mu(m*10+ky2\\10) : ug=un*udb : cn=ud(ug)\r\n\r\n\tgmode 2 : gmulcolor 255,255,255;: color 255,255,255\r\n\r\n\tpos iwdx+10,iwdy+8 : celput cd_ftw,cn ; mes \"\"+cs2(cn)+\" Lv\"+cd(15,cn)+\" us\"+cn+\" un \"+un\r\n;pos iwdx+100,iwdy+5 : mes \"un \"+un+\" \"+ud(ug+27)\r\n\r\n\tpos iwdx+15,iwdy+38 : celput mojiw,0 ; HP\r\n\t n=ud(ug+26) : nx=fpk(n) : fp n,iwdx+39+nx,iwdy+39,0\r\n\t  pos iwdx+91,iwdy+39 : celput bfpw,207 ; \/\r\n\t   n=ud(ug+25) : fp n,iwdx+106,iwdy+39,0\r\n\r\n\tpos iwdx+15,iwdy+62 : celput mojiw,1 : s=\"STR\" : bfp s,iwdx+60,iwdy+65,0\r\n\t n=ud(ug+21) : nx=fpk(n) : fp n,iwdx+92+nx,iwdy+65,0\r\n\r\n\tpos iwdx+15,iwdy+84 : celput mojiw,2 : s=\"MAG\" : bfp s,iwdx+60,iwdy+87,0\r\n\t n=ud(ug+22) : nx=fpk(n) : fp n,iwdx+92+nx,iwdy+87,0\r\n\r\n\tpos iwdx+15,iwdy+106 : celput mojiw,3 : s=\"INT\" : bfp s,iwdx+60,iwdy+109,0\r\n\t n=ud(ug+23) : nx=fpk(n) : fp n,iwdx+92+nx,iwdy+109,0\r\n\r\n\tpos iwdx+15,iwdy+128 : celput mojiw,4 : s=\"CHA\" : bfp s,iwdx+60,iwdy+131,0\r\n\t n=ud(ug+24) : nx=fpk(n) : fp n,iwdx+92+nx,iwdy+131,0\r\n\r\n\tpos iwdx+162,iwdy+36 : celput mojiw,5 : s=\"ATK\" : bfp s,iwdx+207,iwdy+39,0\r\n\t n=ud(ug+11)+ud(ug+20) : nx=fpk(n) : fp n,iwdx+240+nx,iwdy+39,0\r\n\r\n\tpos iwdx+162,iwdy+62 : celput mojiw,6 : s=\"DEF\" : bfp s,iwdx+207,iwdy+64,0\r\n\t n=ud(ug+12) : nx=fpk(n) : fp n,iwdx+240+nx,iwdy+64,0\r\n\r\n\tpos iwdx+162,iwdy+95 : celput mojiw,7 : s=\"ability\" : bfp s,iwdx+207,iwdy+98,0\r\n\r\n\tpos iwdx+160,iwdy+122 : celput abft20w,ud(ug+8);mes utks(ud(ug+8))\r\n\r\n\r\n\tf=0 : cntn=0\r\n\trepeat sbkn+2 ; \u30a2\u30a4\u30c6\u30e0\u88c5\u5099\u8868\u793a\r\n\t pos iwdx+309,iwdy+10+cntn*20\r\n\r\n\t switch f\r\n\t  case 0 ; \u53f3\u624b\r\n\t   if ud(ug+16)=0  : f=3 : swbreak\t; \u7121\u3057\r\n\t   if ud(ug+16)&gt;2  : f=2 : swbreak\t; \u8907\u6570\u624b\r\n\r\n\t   if ud(ug+40)=0  : cntn+ : f=1 : swbreak\t; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n\t   if ud(ug+40)=-2 : cntn+ : f=1 : swbreak\t; \u5de6\u4e21\u624b\u88c5\u5099\r\n\r\n\t   celput it_ftw,id(ud(ug+40+cntn)*idb),0.7,0.7 : cntn+ : f=1 ; \u8868\u793a\r\n\t   ;mes is2(id(ud(ug+40)*idb)) : cntn+ : f=1 ; \u8868\u793a\r\n\t  swbreak\r\n\t  case 1 ; \u5de6\u624b\r\n\t   if ud(ug+41)=0  : cntn+ : f=3 : swbreak\t; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n\t   if ud(ug+41)=-1 : cntn+ : f=3 : swbreak\t; \u53f3\u4e21\u624b\u88c5\u5099\r\n\t   celput it_ftw,id(ud(ug+40+cntn)*idb),0.7,0.7 : cntn+ : f=3 ; \u8868\u793a\r\n\t   ;mes is2(id(ud(ug+41)*idb)) : cntn+ : f=3\t; \u8868\u793a\r\n\t  swbreak\r\n\t  case 2 ; \u8907\u6570\u624b\r\n\t   if ud(ug+16)&lt;=cntn   : f=3   : swbreak\t; \u7d42\u308f\u308a\r\n\t   if ud(ug+40+cntn)=0  : cntn+ : swbreak\t; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n\t   if ud(ug+40+cntn)=-1 : cntn+ : swbreak\t; \u53f3\u4e21\u624b\u88c5\u5099\r\n\t   if ud(ug+40+cntn)=-2 : cntn+ : swbreak\t; \u5de6\u4e21\u624b\u88c5\u5099\r\n\t   celput it_ftw,id(ud(ug+40+cntn)*idb),0.7,0.7 : cntn+ ; \u8868\u793a\r\n\t   ;mes is2(id(ud(ug+40+cntn)*idb)) : cntn+\t; \u8868\u793a\t   \r\n\t  swbreak\r\n\t  case 3 ; \u9632\u5177\r\n\t   if ud(ug+17)=0 : f=4 : swbreak\t; \u7121\u3057\r\n\t   if ud(ug+40+cntn)=0 : cntn+ : f=4 : swbreak ; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n\t   celput it_ftw,id(ud(ug+40+cntn)*idb),0.7,0.7 : cntn+ : f=5 ; \u8868\u793a\r\n\t   ;mes is2(id(ud(ug+40+cntn)*idb)) : cntn+ : f=4 ; \u8868\u793a\r\n\t  swbreak\r\n\t  case 4 ; \u7279\u6b8a\u30a2\u30a4\u30c6\u30e0\r\n\t   if ud(ug+18)=0 : f=5 : swbreak\t; \u7121\u3057\r\n\t   if ud(ug+40+cntn)=0 : cntn+ : f=5 : swbreak ; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n\t   celput it_ftw,id(ud(ug+40+cntn)*idb),0.7,0.7 : cntn+ : f=5 ; \u8868\u793a\r\n\t   ;mes is2(id(ud(ug+40+cntn)*idb)) : cntn+ : f=5 ; \u8868\u793a\r\n\t  swbreak\r\n\t  case 5 ; \u30a2\u30a4\u30c6\u30e0\r\n\t   ;if ud(ug+19)=0 : \/*f=6*\/ : swbreak\t; \u7121\u3057\r\n\t   if cntn&gt;=sbkn\/*ud(ug+16)+ud(ug+17)+ud(ug+18)+ud(ug+19)*\/ : f=6 : swbreak ; \u7d42\u308f\u308a\r\n\t   if ud(ug+40+cntn)=0 : cntn+ : swbreak ; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n\t   celput it_ftw,id(ud(ug+40+cntn)*idb),0.7,0.7 : cntn+ ; \u8868\u793a\r\n\t   ;mes is2(id(ud(ug+40+cntn)*idb)) : cntn+ ; \u8868\u793a\r\n\t  swbreak\r\n\t swend\r\n\t\r\n\t if f=6 : break\r\n\tloop\r\n\r\n\t}\r\n\r\n\treturn\r\n\r\n\r\n#deffunc clr_put\r\n\r\n\tinfx1=200 : infx2=440\r\n\tinfy1=150 : infy2=210\r\n\r\n\tcolor 255,255,255 : boxf infx1,infy1,infx2,infy2\r\n\tcolor 1,1,1 : boxf infx1+2,infy1+2,infx2-2,infy2-2\r\n\r\n\tcolor 255,255,255\r\n\t pos 270,170 : mes \"GAME CLEAR\"\r\n\r\n\treturn\r\n\r\n\r\n#deffunc sel_put\r\n\r\n\/*\r\n repeat 16,1\r\n  n=235-10*cnt : color n,n,n\r\n  boxf selkx1(cnt),selky1(cnt),selkx2(cnt),selky2(cnt)\r\n loop\r\n repeat 5,17;22\r\n  n=235-10*(cnt-8) : color n,n,n\r\n  boxf selkx1(cnt),selky1(cnt),selkx2(cnt),selky2(cnt)\r\n loop\r\n*\/\r\n\/*\r\n repeat 7,31\r\n  n=235-10*(cnt-31+16) : color n,n,n\r\n  boxf selkx1(cnt),selky1(cnt),selkx2(cnt),selky2(cnt)\r\n loop\r\n*\/\r\n\r\n\tgmulcolor 255,255,255\r\n\r\n\tcolor 255,255,255 : font \"\",26\r\n\r\n\tpos selkx1(11)+43,selky1(11)+11 : celput mj26_4w,0;mes \"N A M E\"\r\n\r\n\tpos selkx1(12)+16,selky1(12)+7 : celput slw,0\t; \u964d\u9806\r\n\tpos selkx1(13)+16,selky1(13)+7 : celput slw,1\t; \u6607\u9806\r\n\r\n\tswitch self\r\n\t case 0\r\n \t  pos selkx1(22)+12,selky1(22)+11 : celput mj26_4w,5;mes \"H.P\"\r\n\t  pos selkx1(23)+8,selky1(23)+9  : celput mj26_4w,10;mes \"\u914d\u5099\"\r\n\t  pos selkx1(24)+7,selky1(24)+11 : celput mj26_4w,11;mes \"COST\"\r\n\t  pos selkx1(25)+8,selky1(25)+9  : celput mj26_4w,12;mes \"\u5c5e\u6027\"\r\n\t  pos selkx1(26)+7,selky1(26)+11 : celput mj26_4w,13;mes \"DEL\"\r\n\r\n\t  n=sel_yg\r\n\t  repeat 7,31\r\n\t   un=sel(n) : n+ : if un=0 : break\r\n\t   pos selkx1(cnt)+12,selky1(cnt)+2 : celput slw,5\t; DEL\r\n\t  loop\r\n\t swbreak\r\n\t case 1\r\n\t  pos selkx1(17)+7,selky1(17)+11 : celput mj26_4w,1;mes \"STR\"\r\n\t  pos selkx1(18)+7,selky1(18)+11 : celput mj26_4w,2;mes \"MAG\"\r\n\t  pos selkx1(19)+7,selky1(19)+11 : celput mj26_4w,3;mes \"INT\"\r\n\t  pos selkx1(20)+7,selky1(20)+11 : celput mj26_4w,4;mes \"CRI\"\r\n\t  pos selkx1(21)+6,selky1(21)+11 : celput mj26_4w,15;mes \"ABILITY\" ; ability\u7279\u6b8a\r\n\t swbreak\r\n\t case 2\r\n\t  pos selkx1(17)+7,selky1(17)+11 : celput mj26_4w,6;mes \"ATK\"\r\n\t  pos selkx1(18)+7,selky1(18)+11 : celput mj26_4w,7;mes \"DEF\"\r\n\t  pos selkx1(19)+7,selky1(19)+11 : celput mj26_4w,8;mes \"MAT\"\r\n\t  pos selkx1(20)+7,selky1(20)+11 : celput mj26_4w,9;mes \"MDF\"\r\n\t  pos selkx1(21)+7,selky1(21)+11 : celput mj26_4w,14;mes \"EQU INT\"\r\n\t swbreak\r\n\tswend\r\n\r\n\tpos selkx1(14)+60,selky1(14)+7 : celput slw,2\t; \uff8d\uff9f\uff70\uff7c\uff9e\u5de6\r\n\tpos selkx1(15)+154,selky1(15)+7 : celput slw,4\t; \u623b\u308b\r\n\t pos selkx1(15)+60,selky1(15)+13 : celput mj26_4w,16;mes \"BACK\"\r\n\t pos selkx1(15)+230,selky1(15)+11 : celput mj26_4w,17;mes \"\u623b\u308b\"\r\n\tpos selkx1(16)+60,selky1(16)+7 : celput slw,3\t; \u30da\u30fc\u30b8\u53f3\r\n\r\n\t;gmode 3,,,255\r\n;gmode 2\r\n\tn=sel_yg : f=0\r\n\trepeat 7 : cnt2=cnt\r\n\t if sel(n)=0 : break\r\n\r\n\t un=sel(n) : n+ : ug=un*udb\r\n\r\n\t if ud(ug+13)=0 { ; \u901a\u5e38\r\n\t  repeat 1\r\n\t   if ud(ug+28)=0 : color 255,255,255 : gmulcolor 255,255,255 : break\r\n\t   color 192,192,192 : gmulcolor 192,192,192 ; \u901a\u5e38\u884c\u52d5\u6e08\u307f\r\n\t  loop\r\n\t }\r\n\r\n\t if ud(ug+13)&gt;0 and ud(ug+13)&lt;1000 { ; \u914d\u5099\r\n\t  repeat 1\r\n\t   if ud(ug+28)=0 : color 144,248,144 : gmulcolor 144,248,144 : break\r\n\t   color 80,200,80 : gmulcolor 80,200,80 ; \u914d\u5c5e\u6e08\u307f\r\n\t  loop\r\n\t }\r\n\r\n\t if ud(ug+13)&gt;=1000 { ; \u653f\u5e9c\r\n\t  c=100\r\n\t  if ud(ug+28)=0 : color 255,40,24 : gmulcolor 255,40,24\r\n\t  if ud(ug+28)=1 : color 208,32,16 : gmulcolor 208,32,16 ; \u914d\u5c5e\u6e08\u307f\r\n\t }\r\n\r\n\t y=selky1(cnt2+1)+2\r\n\r\n\t ;font \"\",26\r\n\t  pos selx1+4,y+3 : celput cd_ftw,ud(ug) ;mes \"\"+cs2(ud(ug));+\" \"+ud(ug+10)+\" \"+ud(ug+13) ; \u540d\u524d\r\n;pos 200,y+3 : mes ud(ug+13) ; \u914d\u5c5e\r\n;pos 260,y+3 : mes cd(15,ud(ug+0)) ; \u30ec\u30d9\u30eb\r\n\t ;font \"\",28\r\n\t switch self\r\n\t  case 0\r\n\t   s=str(ud(ug+26)) : pfp28 s,selkx1(22),y+3,3 ; HP\r\n\t   mug=ud(ug+13)\r\n\t    if mug=0 : s=\"-\" : pfp28 s,selkx1(23)+16,y+3\r\n\t    if mug&gt;0 and mug&lt;1000 {\r\n\t\t s=str(mug\/10)\t\t\t\t\t; \u56fd\r\n\t\t g=mug\\10\r\n\t\t  if g=0 : s+=\"L\"\t\t\t\t; \u9818\u4e3b\r\n\t\t  if g=1 or g=2 or g=3 : s+=\"A\" ; \u90e8\u968a1\r\n\t\t  if g=4 or g=5 or g=6 : s+=\"B\" ; \u90e8\u968a2\r\n\t\t  if g=7 or g=8 or g=9 : s+=\"C\" ; \u90e8\u968a3\r\n\t\t  if g=1 or g=4 or g=7 : s+=\"1\" ; \u968a\u52171\r\n\t\t  if g=2 or g=5 or g=8 : s+=\"2\" ; \u968a\u52172\r\n\t\t  if g=3 or g=6 or g=9 : s+=\"3\" ; \u968a\u52173\r\n\r\n\t\t pfp28 s,selkx1(23),y+2 ; \u914d\u5099\r\n\t    }\r\n\r\n\t    if mug&gt;1000 {\r\n\t\t ;s=str((mug-1000)\/10)\t\t\t; \u30d7\u30ec\u30a4\u30e4\u30fc\r\n\r\n;govs3=\"\",\"LEADER\",\"POPULATION\",\"MAGIC\",\"RELIGION\",\"POLICE\",\"MILITARY\"\r\n\t\t g=mug\\10\r\n\t\t  if g=1 : s=\"LEA\" ; \u9996\u9818\r\n\t\t  if g=2 : s=\"POP\" ; \u653f\u52d9\r\n\t\t  if g=3 : s=\"MAG\" ; \u9b54\u8853\r\n\t\t  if g=4 : s=\"REL\" ; \u5b97\u6559\r\n\t\t  if g=5 : s=\"POL\" ; \u8b66\u5bdf\r\n\t\t  if g=6 : s=\"MIL\" ; \u8ecd\u52d9\r\n\/*\r\n\t\t  if g=1 : s=\"LEAD\" ; \u9996\u9818\r\n\t\t  if g=2 : s=\"POPU\" ; \u653f\u52d9\r\n\t\t  if g=3 : s=\"MAGI\" ; \u9b54\u8853\r\n\t\t  if g=4 : s=\"RELI\" ; \u5b97\u6559\r\n\t\t  if g=5 : s=\"POLI\" ; \u8b66\u5bdf\r\n\t\t  if g=6 : s=\"MILI\" ; \u8ecd\u52d9\r\n*\/\r\n\t\t pfp28 s,selkx1(23),y+2 ; \u914d\u5099\r\n\t    }\r\n\r\n\t   gmulcolor 255,255,255\r\n\t   s=str(ud(ug+29)) : pfp28 s,selkx1(24)-5,y+2,5\t\t; \u30b3\u30b9\u30c8\r\n\t   pos selkx1(25)+25,y+4 : celput mjzk26w,ud(ug+7)-1\t; \u5c5e\u6027\r\n\t  swbreak\r\n\r\n\t  case 1\r\n\t   s=str(ud(ug+21)) : pfp28 s,selkx1(17)-10,y+2,3\t; \u7b4b\u529b\r\n\t   s=str(ud(ug+22)) : pfp28 s,selkx1(18)-10,y+2,3\t; \u9b54\u529b\r\n\t   s=str(ud(ug+23)) : pfp28 s,selkx1(19)-10,y+2,3\t; \u77e5\u529b\r\n\t   s=str(ud(ug+24)) : pfp28 s,selkx1(20)-10,y+2,3\t; \u9b45\u529b\r\n\t   pos selkx1(21)-1,y+6 : celput abft20w,ud(ug+8)\t; \u7279\u6b8a\r\n\t  swbreak\r\n\r\n\t  case 2\r\n\t   s=str(ud(ug+11)) : pfp28 s,selkx1(17)-10,y+2,3\t; \u653b\u6483\r\n\t   s=str(ud(ug+12)) : pfp28 s,selkx1(18)-10,y+2,3\t; \u9632\u5fa1\r\n\t   s=str(ud(ug+14)) : pfp28 s,selkx1(19)-10,y+2,3\t; \u9b54\u653b\r\n\t   s=str(ud(ug+15)) : pfp28 s,selkx1(20)-10,y+2,3\t; \u9b54\u9632\r\n\r\n\t   gmulcolor 255,255,255\r\n\t   s=str(ud(ug+30)) : pfp28 s,selkx1(21)-10,y+2,3\t; \u88c5\u5099\u77e5\u529b\r\n\t    pos selkx1(21)+37,y+2 : celput pft28w,51\r\n\t     s=str(ud(ug+23)) : pfp28 s,selkx1(21)+49,y+2,3\r\n\t   ;pos selkx1(17)+5,y+3 : mes ud(ug+11) ; \u653b\u6483\r\n\t   ;pos selkx1(18)+5,y+3 : mes ud(ug+12)\t; \u9632\u5fa1\r\n\t   ;pos selkx1(19)+5,y+3 : mes ud(ug+14)\t; \u9b54\u653b\r\n\t   ;pos selkx1(20)+5,y+3 : mes ud(ug+15)\t; \u9b54\u9632\r\n\t   ;pos selkx1(21)+5,y+3 : mes \"\"+ud(ug+30)+\"\/\"+ud(ug+23) ; \u88c5\u5099\u77e5\u529b\r\n\t  swbreak\r\n\t swend\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc isel_put ; \u30a2\u30a4\u30c6\u30e0\u9078\u629e\r\n\/*\r\n\tc=100\r\n\trepeat 16,1\r\n\t color c,c,c\r\n\t boxf iselkx1(cnt),iselky1(cnt),iselkx2(cnt),iselky2(cnt)\r\n\t c+=20\r\n\tloop\r\n*\/\r\n\r\n\tgmulcolor 255,255,255\r\n\r\n\t;color 255,255,255 : font \"\",26\r\n\r\n\tpos iselkx1(11)+43,iselky1(11)+12 : celput mj26_4w,0;mes \"N A M E\"\r\n\r\n\tpos iselkx1(12)+16,iselky1(12)+7 : celput slw,0\t; \u964d\u9806\r\n\tpos iselkx1(13)+16,iselky1(13)+7 : celput slw,1\t; \u6607\u9806\r\n\r\n\tswitch iself\r\n\t case 0\r\n\t  pos iselkx1(17)+7,iselky1(17)+11 : celput mj26_4w,6;mes \"ATK\"\r\n\t  pos iselkx1(18)+7,iselky1(18)+11 : celput mj26_4w,7;mes \"DEF\"\r\n\t  pos iselkx1(19)+7,iselky1(19)+11 : celput mj26_4w,18;mes \"RAN\"\r\n\t  pos iselkx1(20)+7,iselky1(20)+11 : celput mj26_4w,19;mes \"VAL\"\r\n\t  pos iselkx1(21)+6,iselky1(21)+11 : celput mj26_4w,15;mes \"ABILITY\" ; ability\u7279\u6b8a\r\n\t swbreak\r\n\t case 1\r\n\t  pos iselkx1(17)+7,iselky1(17)+11 : celput mj26_4w,1;mes \"STR\"\r\n\t  pos iselkx1(18)+7,iselky1(18)+11 : celput mj26_4w,2;mes \"MAG\"\r\n\t  pos iselkx1(19)+7,iselky1(19)+11 : celput mj26_4w,3;mes \"INT\"\r\n\t  pos iselkx1(20)+7,iselky1(20)+11 : celput mj26_4w,4;mes \"CRI\"\r\n\t  pos iselkx1(21)+6,iselky1(21)+11 : celput mj26_4w,14;mes \"EQU INT\"\r\n\t swbreak\r\n\t case 2\r\n\t  pos iselkx1(41)+11,iselky1(17)+10 : celput mjzk26w,0;mes \"\u706b\"\r\n\t  pos iselkx1(42)+11,iselky1(18)+10 : celput mjzk26w,1;mes \"\u6c34\"\r\n\t  pos iselkx1(43)+11,iselky1(19)+10 : celput mjzk26w,2;mes \"\u98a8\"\r\n\t  pos iselkx1(44)+11,iselky1(20)+10 : celput mjzk26w,3;mes \"\u5730\"\r\n\t  pos iselkx1(45)+11,iselky1(21)+10 : celput mjzk26w,4;mes \"\u5149\"\r\n\t  pos iselkx1(46)+11,iselky1(21)+10 : celput mjzk26w,5;mes \"\u95c7\"\r\n\t swbreak\r\n\t case 3\r\n \t  ;pos iselkx1(22)+12,iselky1(22)+11 : celput mj26_4w,5;mes \"H.P\"\r\n\t  pos iselkx1(23)+8,iselky1(23)+9 : celput mj26_4w,10;mes \"\u914d\u5099\"\r\n\t  pos iselkx1(24)+7,iselky1(24)+11 : celput mj26_4w,11;mes \"COST\"\r\n\t  pos iselkx1(25)+8,iselky1(25)+9 : celput mj26_4w,12;mes \"\u5c5e\u6027\"\r\n\t  pos iselkx1(26)+7,iselky1(26)+11 : celput mj26_4w,13;mes \"DEL\"\r\n\r\n\t  n=isel_yg\r\n\t  repeat 7,31\r\n\t   in=isel(n) : n+ : if in=0 : break\r\n\t   pos iselkx1(cnt)+12,iselky1(cnt)+2 : celput slw,5\t; DEL\r\n\t  loop\r\n\t swbreak\r\n\tswend\r\n\r\n\tpos iselkx1(14)+60,iselky1(14)+7 : celput slw,2\t; \uff8d\uff9f\uff70\uff7c\uff9e\u5de6\r\n\tpos iselkx1(15)+154,iselky1(15)+7 : celput slw,4\t; \u623b\u308b\r\n\t pos iselkx1(15)+60,iselky1(15)+13 : celput mj26_4w,16;mes \"BACK\"\r\n\t pos iselkx1(15)+230,iselky1(15)+11 : celput mj26_4w,17;mes \"\u623b\u308b\"\r\n\tpos iselkx1(16)+60,iselky1(16)+7 : celput slw,3\t; \u30da\u30fc\u30b8\u53f3\r\n\r\n\r\n\tn=isel_yg : f=0\r\n\trepeat 7 : cnt2=cnt\r\n\t if isel(n)=0 : break\r\n\r\n\t in=isel(n) : n+ : ig=in*idb\r\n\r\n\t mug=ud(id(ig+13)*udb+13)\r\n\t if mug=0 { ; \u901a\u5e38\r\n\t  if id(ig+28)=0 : color 255,255,255 : gmulcolor 255,255,255\r\n\t  if id(ig+28)=1 : color 192,192,192 : gmulcolor 192,192,192 ; \u901a\u5e38\u884c\u52d5\u6e08\u307f\r\n\t }\r\n\r\n\t if mug&gt;0 and mug&lt;1000 { ; \u914d\u5099\u3057\u3066\u308b\r\n\t  if id(ig+28)=0 : color 144,248,144 : gmulcolor 144,248,144\r\n\t  if id(ig+28)=1 : color 80,200,80\t : gmulcolor 80,200,80 ; \u914d\u5c5e\u6e08\u307f\r\n\t }\r\n\r\n\t if mug&gt;1000 { ; \u653f\u5e9c\r\n\t  if id(ig+28)=0 : color 255,40,24 : gmulcolor 255,40,24\r\n\t  if id(ig+28)=1 : color 208,32,16 : gmulcolor 208,32,16 ; \u914d\u5c5e\u6e08\u307f\r\n\t }\r\n\t\r\n\t if iselectf=0 {\r\n\t  if ud(ug+30)&lt;id(ig+37)-isel_int : color 96,96,255 : gmulcolor 96,96,255 ; \u5fc5\u8981\u88c5\u5099\u77e5\u529b\u304c\u8db3\u308a\u306a\u3044\r\n\t }\r\n\r\n\t ;if id(ig+13)=0 : if id(ig+28)=0 : color 255,255,255 : else : color 192,192,192\t; \u901a\u5e38\u884c\u52d5\u6e08\u307f\r\n\t ;if id(ig+13)&gt;0 : if id(ig+28)=0 : color 144,248,144 : else : color 80,200,80\t; \u914d\u5c5e\u6e08\u307f\r\n\t ;if ud(ug+30)&lt;id(ig+37)-isel_int : color 96,96,255 ; \u5fc5\u8981\u88c5\u5099\u77e5\u529b\u304c\u8db3\u308a\u306a\u3044\r\n\r\n\t y=iselky1(cnt2+1)+2\r\n\r\n     ;gmode 3,,,255\t; \u52a0\u7b97\u5408\u6210\r\n\t  pos iselx1+4,y+3 : celput it_ftw,id(ig)\r\n;pos 200,y+3 : mes \"\"+mug\r\n;pos 260,y+3 : mes itd(15,id(ig+0)) ; \u30ec\u30d9\u30eb\r\n;pos iselx1+270,y+4 : mes \"\"+id(ig)\r\n\t ;font \"\",26\r\n\t ; pos iselx1+5,y+4 : mes \"\"+is2(id(ig));+\" \"+id(ig+13);+\" \"+ud(ug+13) ; \u540d\u524d\r\n\r\n\t font \"\",28\r\n\t switch iself\r\n\t  case 0\r\n\t   if id(ig+11)&gt;0 : s=str(id(ig+11)) : pfp28 s,iselkx1(17)-10,y+2,3; : mes id(ig+11) \t; \u653b\u6483\r\n\t   if id(ig+12)&gt;0 : s=str(id(ig+12)) : pfp28 s,iselkx1(18)-10,y+2,3; : mes id(ig+12)\t; \u9632\u5fa1\r\n\t   if id(ig+17)&gt;0 : s=str(id(ig+17)) : pfp28 s,iselkx1(19)-10,y+2,3; : mes id(ig+17)\t; \u5c04\u7a0b\r\n\t   if id(ig+9)&gt;0  : s=str(id(ig+9))  : pfp28 s,iselkx1(20)-10,y+2,3; : mes id(ig+9)\t\t; \u80fd\u529b\u5024\r\n\t   if id(ig+8)&gt;0  : pos iselkx1(21)+7,y+2 : celput iabft20w,id(ig+8);mes itks(id(ig+8))\t; \u7279\u6b8a\r\n\t  swbreak\r\n\r\n\t  case 1\r\n\t   if id(ig+1)&gt;0  : s=str(id(ig+1)) : pfp28 s,iselkx1(17)-10,y+2,3; : mes id(ig+1)\t\t; \u7b4b\u529b\r\n\t   if id(ig+2)&gt;0  : s=str(id(ig+2)) : pfp28 s,iselkx1(18)-10,y+2,3; : mes id(ig+2)\t\t; \u9b54\u529b\r\n\t   if id(ig+3)&gt;0  : s=str(id(ig+3)) : pfp28 s,iselkx1(19)-10,y+2,3; : mes id(ig+3)\t\t; \u77e5\u529b\r\n\t   if id(ig+4)&gt;0  : s=str(id(ig+4)) : pfp28 s,iselkx1(20)-10,y+2,3; : mes id(ig+4)\t\t; \u9b45\u529b\r\n\t   if id(ig+37)&gt;0 : s=str(id(ig+37)): pfp28 s,iselkx1(21)+14,y+2,3; : mes id(ig+37) \t; \u88c5\u5099\u77e5\u529b\r\n\t  swbreak\r\n\r\n\t  case 2\r\n\t   if id(ig+31)&gt;0 : s=str(id(ig+31)) : pfp28 s,iselkx1(41)+1,y+3,2; : mes id(ig+31)\t\t; \u706b\r\n\t   if id(ig+32)&gt;0 : s=str(id(ig+32)) : pfp28 s,iselkx1(42)+1,y+3,2; : mes id(ig+32)\t\t; \u6c34\r\n\t   if id(ig+33)&gt;0 : s=str(id(ig+33)) : pfp28 s,iselkx1(43)+1,y+3,2; : mes id(ig+33)\t\t; \u98a8\r\n\t   if id(ig+34)&gt;0 : s=str(id(ig+34)) : pfp28 s,iselkx1(44)+1,y+3,2; : mes id(ig+34)\t\t; \u5730\r\n\t   if id(ig+35)&gt;0 : s=str(id(ig+35)) : pfp28 s,iselkx1(45)+1,y+3,2; : mes id(ig+35)\t\t; \u5149\r\n\t   if id(ig+36)&gt;0 : s=str(id(ig+36)) : pfp28 s,iselkx1(46)+1,y+3,2; : mes id(ig+36)\t\t; \u95c7\r\n\t  swbreak\r\n\r\n\t  case 3\r\n\t   ;if id(ig+26)&gt;0 : pos iselkx1(22)+5,y+4 : mes id(ig+26) ; HP\r\n\t   mug=0 : mun=id(ig+13) : if mun&gt;0 : mug=ud(mun*udb+13)\r\n\t    if mug=0 : s=\"-\" : pfp28 s,iselkx1(23)+16,y+3\r\n\t    ;if mug=0 : pos iselkx1(23)+5,y+3 : mes \"-\"\r\n\t    if mug&gt;0 and mug&lt;1000 {\r\n\t\t s=str(mug\/10)\t\t\t\t\t; \u56fd\r\n\t\t g=mug\\10\r\n\t\t  if g=0 : s+=\"L\"\t\t\t\t; \u9818\u4e3b\r\n\t\t  if g=1 or g=2 or g=3 : s+=\"A\" ; \u90e8\u968a1\r\n\t\t  if g=4 or g=5 or g=6 : s+=\"B\" ; \u90e8\u968a2\r\n\t\t  if g=7 or g=8 or g=9 : s+=\"C\" ; \u90e8\u968a3\r\n\t\t  if g=1 or g=4 or g=7 : s+=\"1\" ; \u968a\u52171\r\n\t\t  if g=2 or g=5 or g=8 : s+=\"2\" ; \u968a\u52172\r\n\t\t  if g=3 or g=6 or g=9 : s+=\"3\" ; \u968a\u52173\r\n\r\n\t\t pfp28 s,iselkx1(23),y+2 ; \u914d\u5099\r\n\t    }\r\n\r\n\t    if mug&gt;1000 {\r\n\t\t ;s=str((mug-1000)\/10)\t\t\t; \u30d7\u30ec\u30a4\u30e4\u30fc\r\n\t\t g=mug\\10\r\n\t\t  if g=1 : s=\"LEA\" ; \u9996\u9818\r\n\t\t  if g=2 : s=\"POP\" ; \u653f\u52d9\r\n\t\t  if g=3 : s=\"MAG\" ; \u9b54\u8853\r\n\t\t  if g=4 : s=\"REL\" ; \u5b97\u6559\r\n\t\t  if g=5 : s=\"POL\" ; \u8b66\u5bdf\r\n\t\t  if g=6 : s=\"MIL\" ; \u8ecd\u52d9\r\n\r\n\t\t pfp28 s,selkx1(23),y+2 ; \u914d\u5099\r\n\t    }\r\n\r\n\t   gmulcolor 255,255,255\r\n\t   s=str(id(ig+29)) : pfp28 s,iselkx1(24)-5,y+2,5\t\t; \u30b3\u30b9\u30c8\r\n\t   if id(ig+7)&gt;0 : pos iselkx1(25)+25,y+4 : celput mjzk26w,id(ig+7)-1\t; \u5c5e\u6027\r\n\t  swbreak\r\n\t swend\r\n\tloop\r\n\r\n\/*\r\n\tcolor 190,190,190\r\n\t boxf iselkx1(8),iselky1(8),iselkx2(8),iselky2(8)\r\n\t boxf iselkx1(9),iselky1(9),iselkx2(9),iselky2(9)\r\n\t;color 160,160,160\r\n\t; boxf iselkx1(8)+1,iselky1(8)+1,iselkx2(8)-1,iselky2(8)-1\r\n\t; boxf iselkx1(9)+1,iselky1(9)+1,iselkx2(9)-1,iselky2(9)-1\r\n\tcolor 0,0,0\r\n\t boxf iselkx1(8)+1,iselky1(8)+1,iselkx2(8)-1,iselky2(8)-1\r\n\t boxf iselkx1(9)+1,iselky1(9)+1,iselkx2(9)-1,iselky2(9)-1\r\n\tcolor 240,240,240\r\n\t pos iselkx1(8)+80,iselky1(8)+12 : mes \"\u5916\u3059  RELEASE\"\r\n\t pos iselkx1(9)+95,iselky1(9)+12 : mes \"\u623b\u308b  BACK\"\r\n\r\n\r\n\t;celput moji3,iselx1,isely1 : mes \"\u30a2\u30a4\u30c6\u30e0\"\r\n\tpos iselx2,isely1 : celput moji3w,0 ; \u653b\u6483\r\n\tpos iselx3,isely1 : celput moji3w,1 ; \u9632\u5fa1\r\n\tpos iselx4,isely1 : celput moji3w,2 ; \u5c04\u7a0b\r\n\tpos iselx5,isely1 : celput moji3w,3 ; \u5c5e\u6027\r\n\tpos iselx6,isely1 : celput moji3w,4 ; \u7279\u6b8a\r\n\r\n\tn=sel_yg : f=0\r\n\trepeat 7 : cnt2=cnt\r\n\r\n\t if isel(n)=0 : f=1 : break\r\n\t in=isel(n) : n+ : ig=in*idb\r\n\r\n\t if f=1 : break\r\n\t \r\n\t ;if id(ig+28)=0 : color 255,255,255 : else : color 192,192,192\r\n\t if id(ig+13)=0 : if id(ig+28)=0 : color 255,255,255 : else : color 192,192,192\t; \u901a\u5e38\u884c\u52d5\u6e08\u307f\r\n\t if id(ig+13)&gt;0 : if id(ig+28)=0 : color 144,248,144 : else : color 72,192,72\t; \u914d\u5c5e\u6e08\u307f\r\n\t if ud(ug+30)&lt;id(ig+37) : color 96,96,255 ; \u5fc5\u8981\u88c5\u5099\u77e5\u529b\u304c\u8db3\u308a\u306a\u3044\r\n\r\n\t y=isely2+cnt2*iselyk\r\n\r\nfont \"\",26\r\n\t pos iselx1,y : mes is2(id(ig))\t; \u540d\u524d\r\n\r\n;font \"\",28\r\n\t ;pos iselx2,y : mes itss(id(ig+16))\r\nfont \"\",28\r\n\t ;fp id(ig+11),iselx3,y,0\r\n\t if id(ig+11)&gt;0\t: fp2 id(ig+11),iselx2,y-1,5\t; \u653b\u6483\r\n\t if id(ig+12)&gt;0\t: fp2 id(ig+12),iselx3,y-1,5\t; \u9632\u5fa1\r\n\t if id(ig+17)&gt;0\t: fp2 id(ig+17),iselx4,y-1,5\t; \u5c04\u7a0b\r\nfont \"\",26\r\n\t pos iselx5,y : mes zks(id(ig+7))\t\t\t\t; \u5c5e\u6027\r\n\t pos iselx6,y : mes itks(id(ig+8))\t\t\t\t; \u7279\u6b8a\r\n\tloop\r\n*\/\r\n\r\n\treturn\r\n\r\n\r\n#deffunc msel_put\r\n\r\n\tgmode 2 : gmulcolor 255,255,255\r\n\r\n\t;color 240,240,240 : font \"\",26\r\n\r\n\tpos mselkx1(11)+5,mselky1(11)+11 : celput mj26_4w,20;mes \"MAP\"\r\n\r\n \tpos mselkx1(12)+12,mselky1(12)+11 : celput mj26_4w,21;mes \"\u4eba \u53e3\"\r\n\tpos mselkx1(13)+8,mselky1(13)+11 : celput mj26_4w,22;mes \"\u9b54 \u8853\"\r\n\tpos mselkx1(14)+7,mselky1(14)+11 : celput mj26_4w,23;mes \"\u30de \u30ca\"\r\n\tpos mselkx1(15)+8,mselky1(15)+11 : celput mj26_4w,24; mes \"\u6cbb \u5b89\"\r\n\tpos mselkx1(16)+7,mselky1(16)+11 : celput mj26_4w,25;mes \"\u5efa\u7bc9\u7269\"\r\n\r\n\tpos mselkx1(17)+304,mselky1(17)+7 : celput slw,4\t; \u623b\u308b\r\n\t pos mselkx1(17)+210,mselky1(17)+12 : celput mj26_4w,16;mes \"BACK\"\r\n\t pos mselkx1(17)+380,mselky1(17)+12 : celput mj26_4w,17;mes \"\u623b\u308b\"\r\n\r\n\tn=msel_yg : f=0\r\n\trepeat 7 : cnt2=cnt\r\n\t if msel(n)=0 : break\r\n\r\n\t mdg=msel(n)*mdb\r\n\r\n\t y=mselky1(cnt2+1)+2\r\n\r\n\t ;font \"\",28\r\n\r\n\t if mpc(pn)=msel(n) : gmulcolor cld(pcln(pn-1)*3+1),cld(pcln(pn-1)*3+2),cld(pcln(pn-1)*3+3)\r\n\t  s=str(msel(n)) : pfp28 s,mselkx1(11),y+2; : mes msel(n)\t\t\t; \u56fd\r\n\r\n\t gmulcolor 255,255,255\r\n\t  s=str(md(mdg+1)\/100) : pfp28 s,mselkx1(12)-5,y+2,5; : mes md(mdg+1)\/100\t\t; \u4eba\u53e3\r\n\t  s=str(md(mdg+2)\/100) : pfp28 s,mselkx1(13)-5,y+2,4; : mes md(mdg+2)\/100\t\t; \u9b54\u8853\r\n\t  s=str(md(mdg+3)\/100) : pfp28 s,mselkx1(14)-5,y+2,4; : mes md(mdg+3)\/100\t\t; \u30de\u30ca\r\n\t  s=str(md(mdg+4)\/1000): pfp28 s,mselkx1(15)+7,y+2,3; : mes md(mdg+4)\/1000\t; \u6cbb\u5b89\r\n\t  pos mselkx1(16)+5,y+2 : celput bulftw,md(mdg+7); : mes buls(md(mdg+7))\t; \u5efa\u7bc9\u7269\r\n\r\n\t n+\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n\r\n#deffunc equ_put ; \u88c5\u5099\u753b\u9762\u8868\u793a\r\n\r\n\tcard_put equx1,equy1,un\r\n\r\n\tug=un*udb : cn=ud(ug)\r\n\r\n\tgmode 2\r\n\r\n\tif equif=0 {\r\n\t color 255,255,255 : pos 119,equy2-1 : celput cd_ftw,cn;mes \"\"+cs2(cn)+\" un \"+un ; \u540d\u524d\r\n\r\n\t y=38\r\n\t pos equx2+12,equy2+y : celput mojiw,0 ; HP\r\n\t  n=ud(ug+26) : nx=fpk(n) : fp n,equx2+39+nx,equy2+y+1,0\r\n\t  pos equx2+89,equy2+y+1 : celput bfpw,207 ; \/\r\n\t  n=ud(ug+25) : fp n,equx2+106,equy2+y+1,0\r\n\r\n\t y=65 : yk=24\r\n\t pos equx2+12,equy2+y : celput mojiw,1 : s=\"STR\" : bfp s,equx2+57,equy2+y+2,0\r\n\t  n=ud(ug+21) : nx=fpk(n) : fp n,equx2+92+nx,equy2+y+2,0\r\n\t   y+=yk\r\n\r\n\t pos equx2+12,equy2+y : celput mojiw,2 : s=\"MAG\" : bfp s,equx2+57,equy2+y+2,0\r\n\t  n=ud(ug+22) : nx=fpk(n) : fp n,equx2+92+nx,equy2+y+2,0\r\n\t   y+=yk\r\n\r\n\t pos equx2+12,equy2+y : celput mojiw,3 : s=\"INT\" : bfp s,equx2+57,equy2+y+2,0\r\n\t  n=ud(ug+23) : nx=fpk(n) : fp n,equx2+92+nx,equy2+y+2,0\r\n\t   y+=yk\r\n\r\n\t pos equx2+12,equy2+y : celput mojiw,4 : s=\"CHA\" : bfp s,equx2+57,equy2+y+2,0\r\n\t  n=ud(ug+24) : nx=fpk(n) : fp n,equx2+92+nx,equy2+y+2,0\r\n\r\n\r\n\t y=36 : yk=24 : x=175\r\n\t pos equx2+x,equy2+y : celput mojiw,5 : s=\"ATK\" : bfp s,equx2+x+47,equy2+y+2,0\r\n\t  n=ud(ug+11) : nx=fpk(n) : fp n,equx2+x+80+nx,equy2+y+2,0\r\n\t   y+=yk\r\n\r\n\t pos equx2+x,equy2+y : celput mojiw,6 : s=\"DEF\" : bfp s,equx2+x+47,equy2+y+2,0\r\n\t  n=ud(ug+12) : nx=fpk(n) : fp n,equx2+x+80+nx,equy2+y+2,0\r\n\r\n\t pos equx2+x,equy2+89 : celput mojiw,7 : s=\"ability\" : bfp s,equx2+x+47,equy2+91,0\r\n\r\n\t pos equx2+x+5,equy2+112 : celput abft20w,ud(ug+8);mes utks(ud(ug+8))\r\n\r\n\t pos equx2+x,equy2+142 : celput moji2w,0;mes \"\u88c5\u5099\u77e5\u529b \"+ud(ug+30)\r\n\t  n=ud(ug+30) : nx=fpk(n) : fp n,equx2+x+80+nx,equy2+144,0\r\n\r\n\r\n\t repeat 6\r\n\t  pos equx5,equy1+26*cnt-3 : celput mjzkw,cnt\r\n\t  bfp zkes(cnt+1),equx5+26,equy1+26*cnt-1,cnt+1\r\n\t  n=ud(ug+31+cnt) : nx=fpk(n) : fp n,equx5+56+nx,equy1+26*cnt-1,0\r\n\t loop\r\n;\u706b\u3000FIRE\r\n;\u6c34\u3000WATER\r\n;\u98a8\u3000WIND\r\n;\u5730\u3000EARTH\r\n;\u5149\u3000LIGHT\r\n;\u95c7\u3000DARKNESS\r\n\r\n\t}\r\n\r\n\r\n\/*\r\nrepeat 7\r\n dg ud(ug+40+cnt),cnt+10\r\nloop\r\n*\/\r\n\tf=0 : cntn=0 : color 240,240,240\r\n\trepeat 20 ; \u30a2\u30a4\u30c6\u30e0\u88c5\u5099\u8868\u793a\r\n\t pos equx4+equxk*cntn,equy4\r\n\r\nk=27\r\n\t switch f\r\n\t  case 0 ; \u53f3\u624b\r\n\t   if ud(ug+16)=0 : f=3 : swbreak\t; \u7121\u3057\r\n\t   if ud(ug+16)&gt;2 : f=2 : swbreak\t; \u8907\u6570\u624b\r\n;pos equx4+equxk*cntn,equy4-k : mes \"in \"+ud(ug+40+cntn)\r\n;pos equx4+equxk*cntn,equy4-30 : mes ud(ug+40)\r\n;pos equx4+equxk*cntn,equy4+140 : mes equs(0)\r\n\t   pos equx4+equxk*cntn,equy4\r\n\t    if ud(ug+40)=0 : celput wkhw : cntn+ : f=1 : swbreak ; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n\r\n\t   pos equx4+equxk*cntn,equy5 : celput rmw ; rmove\r\n\t   pos equx4+equxk*cntn+cox\/2,equy4\r\n\t    if ud(ug+40)=-2 : gmode 3,,,128 : celput iw,id(ud(ug+41)*idb)-1 : gmode 2 : cntn+ : f=1 : swbreak ; \u5de6\u4e21\u624b\u88c5\u5099\r\n\t     celput iw,id(ud(ug+40)*idb)-1 ; \u8868\u793a\r\n\t   cntn+ : f=1\r\n\t  swbreak\r\n\t  case 1 ; \u5de6\u624b\r\n;pos equx4+equxk*cntn,equy4-k : mes \"in \"+ud(ug+40+cntn)\r\n;pos equx4+equxk*cntn,equy4-30 : mes ud(ug+41)\r\n;pos equx4+equxk*cntn,equy4+140 : mes equs(1)\r\n\t   pos equx4+equxk*cntn,equy4\r\n\t    if ud(ug+41)=0 : celput wkhw : cntn+ : f=3 : swbreak ; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n\r\n\t   pos equx4+equxk*cntn,equy5 : celput rmw ; rmove\r\n\t   pos equx4+equxk*cntn+cox\/2,equy4\r\n\t    if ud(ug+41)=-1 : gmode 3,,,128 : celput iw,id(ud(ug+40)*idb)-1 : gmode 2 : cntn+ : f=3 : swbreak ; \u53f3\u4e21\u624b\u88c5\u5099\r\n\t     celput iw,id(ud(ug+41)*idb)-1 ; \u8868\u793a\r\n\t   cntn+ : f=3\r\n\t  swbreak\r\n\t  case 2 ; \u8907\u6570\u624b\r\n;pos equx4+equxk*cntn,equy4-k : mes \"in \"+ud(ug+40+cntn)\r\n\t   if ud(ug+16)&lt;=cntn : f=3 : swbreak ; \u7d42\u308f\u308a\r\n;pos equx4+equxk*cntn,equy4+140 : mes \"\"+equs(4)+\" \"+(cntn+1)\r\n\t   pos equx4+equxk*cntn,equy4\r\n\t    if ud(ug+40+cntn)=0 : celput wkhw : cntn+ : swbreak ; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n\t   pos equx4+equxk*cntn+cox\/2,equy4\r\n\t    if ud(ug+40+cntn)=-1 : gmode 3,,,128 : celput iw,id(ud(ug+40+cntn-1)*idb)-1 : gmode 2 : cntn+ : swbreak ; \u53f3\u4e21\u624b\u88c5\u5099\r\n\t    if ud(ug+40+cntn)=-2 : gmode 3,,,128 : celput iw,id(ud(ug+40+cntn+1)*idb)-1 : gmode 2 : cntn+ : swbreak ; \u5de6\u4e21\u624b\u88c5\u5099\r\n\t     celput iw,id(ud(ug+40+cntn)*idb)-1\r\n\t   pos equx4+equxk*cntn,equy5 : celput rmw ; rmove\r\n\t   cntn+ : swbreak ; \u8868\u793a\t   \r\n\t  swbreak\r\n\t  case 3 ; \u9632\u5177\r\n;pos equx4+equxk*cntn,equy4-k : mes \"in \"+ud(ug+40+cntn)\r\n\t   if ud(ug+17)=0 : f=4 : swbreak\t; \u7121\u3057\r\n;pos equx4+equxk*cntn,equy4+140 : mes equs(2) : \r\n\t   pos equx4+equxk*cntn,equy4\r\n\t    if ud(ug+40+cntn)=0 : celput wkaw : cntn+ : f=4 : swbreak ; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n\t   pos equx4+equxk*cntn+cox\/2,equy4\r\n\t     celput iw,id(ud(ug+40+cntn)*idb)-1 ; \u8868\u793a\r\n\t   pos equx4+equxk*cntn,equy5 : celput rmw ; rmove\r\n\t   cntn+ : f=4\r\n\t  swbreak\r\n\t  case 4 ; \u7279\u6b8a\u30a2\u30a4\u30c6\u30e0\r\n;pos equx4+equxk*cntn,equy4-k : mes \"in \"+ud(ug+40+cntn)\r\n;pos equx4+equxk*cntn,equy4-30 : mes \"\"+id(ud(ug+40+cntn)*idb+9)+\" \"+id(ud(ug+40+cntn)*idb+17)\r\n\t   if ud(ug+18)=0 : f=5 : swbreak\t\t; \u7121\u3057\r\n;pos equx4+equxk*cntn,equy4+140 : mes equs(3) : \r\n\t   pos equx4+equxk*cntn,equy4\r\n\t    if ud(ug+40+cntn)&lt;=0 : celput wksw : cntn+ : f=5 : swbreak ; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n\t   pos equx4+equxk*cntn+cox\/2,equy4\r\n\t     celput iw,id(ud(ug+40+cntn)*idb)-1 ; \u8868\u793a\r\n\t   pos equx4+equxk*cntn,equy5 : celput rmw ; rmove\r\n\t   cntn+ : f=5\r\n\t  swbreak\r\n\t  case 5 ; \u30a2\u30a4\u30c6\u30e0\r\n;pos equx4+equxk*cntn,equy4-k : mes \"in \"+ud(ug+40+cntn)\r\n\t   if cntn&gt;=ud(ug+16)+ud(ug+17)+ud(ug+18)+ud(ug+19) : f=6 : swbreak ; \u7d42\u308f\u308a\r\n\t   if ud(ug+19)=0 : f=6 : swbreak\t; \u7121\u3057\r\n\t   pos equx4+equxk*cntn,equy4\r\n\t    if ud(ug+40+cntn)=0 : celput wkiw : cntn+ : swbreak ; \u88c5\u5099\u3057\u3066\u306a\u3044\r\n;sbk_put2 un\r\n\t   pos equx4+equxk*cntn+cox\/2,equy4\r\n\t     if ud(ug+40+cntn)&gt;0 : celput iw,id(ud(ug+40+cntn)*idb)-1 ; \u8868\u793a\r\n\t   pos equx4+equxk*cntn,equy5 : celput rmw ; rmove\r\n\t   cntn+\r\n\t  swbreak\r\n\t swend\r\n\r\n\t if f=6 : break\r\n\tloop\r\n\r\n\r\n\tif equif=1 and ud(ug+40+(ky2\\10))&gt;0 { ; \u30a2\u30a4\u30c6\u30e0\u60c5\u5831\u8868\u793a\r\n\r\n\t in=ud(ug+40+(ky2\\10)) : ig=in*idb : itn=id(ig)\r\n\r\n\t gmode 5,,,255\r\n\t  pos equx4+equxk*(ky2\\10)-4,equy4-4 : celput swakuw,0 ; \u9078\u629e\u30ab\u30fc\u30bd\u30eb\r\n\r\n\t iwdx=iwdx1-15 : iwdy=iwdy1\r\n\r\n\t evw 0,iwdx,iwdy,22,10\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\t evw 1,iwdx,iwdy,22,10\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\r\n\/*\r\n\t color 255,255,255\r\n\t  boxf iwdx,iwdy,iwdx+iwdxk,iwdy+iwdyk\r\n\t color 8,8,8\r\n\t  boxf iwdx+2,iwdy+2,iwdx+iwdxk-2,iwdy+iwdyk-2\r\n*\/\r\n\t color 255,255,255 : pos iwdx+12,iwdy+9 : celput it_ftw,id(ig) ; \u540d\u524d\r\n\r\n\t x=iwdx+19 : y=iwdy+40\r\n\t pos x,y : celput mojiw,0 ; HP\r\n\t  n=id(ig+6) : nx=fpk(n) : fp n,x+25+nx,y+2,0\r\n\t  pos x+75,y+2 : celput bfpw,207 ; \/\r\n\t  n=id(ig+5) : fp n,x+92,y+2,0\r\n\r\n\t x=iwdx+19 : y=iwdy+62 : yk=22\r\n\t pos x,y : celput mojiw,1 : s=\"STR\" : bfp s,x+50,y+3,0\r\n\t  n=id(ig+1) : nx=fpk(n) : fp n,x+82+nx,y+3,0\r\n\t   y+=yk\r\n\r\n\t pos x,y : celput mojiw,2 : s=\"MAG\" : bfp s,x+50,y+3,0\r\n\t  n=id(ig+2) : nx=fpk(n) : fp n,x+82+nx,y+3,0\r\n\t   y+=yk\r\n\r\n\t pos x,y : celput mojiw,3 : s=\"INT\" : bfp s,x+50,y+3,0\r\n\t  n=id(ig+3) : nx=fpk(n) : fp n,x+82+nx,y+3,0\r\n\t   y+=yk\r\n\r\n\t pos x,y : celput mojiw,4 : s=\"CHA\" : bfp s,x+50,y+3,0\r\n\t  n=id(ig+4) : nx=fpk(n) : fp n,x+82+nx,y+3,0\r\n\r\n\r\n\t x=iwdx+185 : y=iwdy+40\r\n\t pos x,y : celput mojiw,5 : s=\"ATK\" : bfp s,x+50,y+3,0\r\n\t  n=id(ig+11) : nx=fpk(n) : fp n,x+82+nx,y+3,0\r\n\t   y+=22\r\n\r\n\t pos x,y : celput mojiw,6 : s=\"DEF\" : bfp s,x+50,y+3,0\r\n\t  n=id(ig+12) : nx=fpk(n) : fp n,x+82+nx,y+3,0\r\n\t   y+=24\r\n\r\n\t pos x,y : celput mojiw,7 : s=\"ability\" : bfp s,x+50,y+3,0\r\n\t  y+=22\r\n\r\n\t if id(ig+8)&gt;0 : pos x+5,y : celput iabft20w,id(ig+8); mes utks(id(ig+8))\r\n\t  y+=22\r\n\r\n\t pos x,y : celput moji2w,1 ;mes \"\u5fc5\u8981\u77e5\u6027 \"+\r\n\t  n=id(ig+37) : nx=fpk(n) : fp n,x+82+nx,y+2,0\r\n\t  \r\n\t}\r\n\r\n\treturn\r\n\r\n\r\n#deffunc btl_put\r\n\r\n\t;n1=(fg1-1)*3 ; \u73fe\u5728\u306e\u90e8\u968a\r\n\t;n2=(fg2-1)*3\r\n\r\n\tgmode 2\r\n\r\n\tpos 0,0\r\n\tn=map(kn2)\r\n\t if n=1 : celput hai1w,0,2.0,2.0\t; \u706b\r\n\t if n=2 : celput hai2w,0,2.0,2.0\t; \u6c34\r\n\t if n=3 : celput hai3w\t\t\t\t; \u98a8\r\n\t if n=4 : celput hai4w\t\t\t\t; \u5730\r\n\t if n=5 : celput hai5w,0,2.0,2.0\t; \u5149\r\n\t if n=6 : celput hai6w,0,2.0,2.0\t; \u95c7\r\n\r\n\trepeat 3,1 ; \u30e6\u30cb\u30c3\u30c8\u8868\u793a\r\n\t bp_n=cnt ; \u30e6\u30cb\u30c3\u30c8No.\r\n\t if fn1(bp_n)&gt;0 {\r\n\t  hpn=ud(fn1(bp_n)*udb+26) ; HP\r\n\t   if hpn&gt;0 : bp_nn=255 : else : bp_nn=128 ; \u8868\u793a\u900f\u660e\u5ea6\r\n\t    card_put bcx1(bp_n),btly1,fn1(bp_n),bp_nn,0 ; \u30ab\u30fc\u30c9\u8868\u793a\r\n\r\n\t  hpbpn=int(double(hpbpxk)\/double(ud(fn1(bp_n)*udb+25))*double(hpn)) ; HP\u30d0\u30fc\u306e\u9577\u3055\r\n\t   color 208,0,0 ; \u30c0\u30e1\u30fc\u30b8\r\n\t    boxf bcx1(bp_n)+2,hpbpy+2,bcx1(bp_n)+2+hpbpxk,hpbpy+2+hpbpyk\r\n\t   color 112,112,255 ; HP\r\n\t    boxf bcx1(bp_n)+2,hpbpy+2,bcx1(bp_n)+2+hpbpn,hpbpy+2+hpbpyk\r\n\r\n\t   pos bcx1(bp_n),hpbpy : celput hww ; hp\u30d0\u30fc\u306e\u67a0\r\n\r\n;color 255,255,255\r\n;pos bcx1(bp_n),hpbpy+5+hpbpyk : mes \"\"+ud(fn1(bp_n)*udb+26)+\"\/\"+ud(fn1(bp_n)*udb+25)\r\n\r\n\t  c=0 : k=-22 : bsg=bsp(fn1(bp_n))\r\n\t  repeat 6 ; \u72b6\u614b\u7570\u5e38\u8868\u793a\r\n\t   if bs(bsg+cnt+1)&lt;=0 : continue\r\n\t   pos bcx1(bp_n)+c*20,btly1+k : celput staw,cnt\r\n\t   c+ : if c=4 : c=0 : k-=22\r\n\t  loop\r\n\r\nif debugf=1 {\r\n color 255,255,255\r\n pos bcx1(bp_n),btly1+160 : mes ud(fn1(bp_n)*udb+26) ; HP\r\n pos bcx1(bp_n)+60,btly1+160 : mes fn1(bp_n) ; unNo.\r\n}\r\n\r\n\t }\r\n\r\n\t bp_n=cnt ; \u30e6\u30cb\u30c3\u30c8No.\r\n\t if fn2(bp_n)&gt;0 {\r\n\t  hpn=ud(fn2(bp_n)*udb+26) ; HP\r\n\t   if hpn&gt;0 : bp_nn=255 : else : bp_nn=128 ; \u8868\u793a\u900f\u660e\u5ea6\r\n\t    card_put bcx2(bp_n),btly1,fn2(bp_n),bp_nn,1 ; \u30ab\u30fc\u30c9\u8868\u793a\r\n\r\n\t  hpbpn=int(double(hpbpxk)\/double(ud(fn2(bp_n)*udb+25))*double(hpn)) ; HP\u30d0\u30fc\u306e\u9577\u3055\r\n\t   color 208,0,0 ; \u30c0\u30e1\u30fc\u30b8\r\n\t    boxf bcx2(bp_n)+2,hpbpy+2,bcx2(bp_n)+2+hpbpxk,hpbpy+2+hpbpyk\r\n\t   color 112,112,255 ; HP\r\n\t    boxf bcx2(bp_n)+2,hpbpy+2,bcx2(bp_n)+2+hpbpn,hpbpy+2+hpbpyk\r\n\r\n\t   pos bcx2(bp_n),hpbpy : celput hww ; hp\u30d0\u30fc\u306e\u67a0\r\n\r\n\t  c=0 : k=-22 : bsg=bsp(fn2(bp_n))\r\n\t  repeat 6 ; \u72b6\u614b\u7570\u5e38\u8868\u793a\r\n\t   if bs(bsg+cnt+1)&lt;=0 : continue\r\n\t   pos bcx2(bp_n)+c*20,btly1+k : celput staw,cnt\r\n\t   c+ : if c=4 : c=0 : k-=22\r\n\t  loop\r\n\r\n\r\n\r\nif debugf=1 {\r\n color 255,255,255\r\n pos bcx2(bp_n),btly1+160 : mes ud(fn2(bp_n)*udb+26) ; HP\r\n pos bcx2(bp_n)+60,btly1+160 : mes fn2(bp_n) ; unNo.\r\n}\r\n\r\n\t }\r\n\tloop\r\n\r\n\tif fs=1 {\r\n\t if temp_atkf=0 : pos bcx1(ut)-8,btly1-7\r\n\t if temp_atkf=1 : pos bcx2(ut)-8,btly1-7\r\n\t}\r\n\tif fs=2 {\r\n\t if temp_atkf=0 : pos bcx2(ut)-8,btly1-7\r\n\t if temp_atkf=1 : pos bcx1(ut)-8,btly1-7\r\n\t}\r\n\tif cslf=0 : celput kwakuw ; \u884c\u52d5\u8005\u67a0\u8868\u793a\r\n\r\n\r\nif debugf=1 {\r\n\r\n ; \u6226\u95d8\u30b9\u30c6\u30fc\u30bf\u30b9\r\n\r\ns=\"UN\",\"\u50b7\",\"\u6c37\",\"\u75fa\",\"\u7d76\",\"\u9b45\",\"\u6bd2\",\"\u706b\",\"\u6c37\",\"\u98a8\",\"\u96f7\",\"\u5730\",\"\u8056\",\"\u95c7\",\"\u653b\",\"\u9632\",\"\u52a0\",\"\u6e1b\",\"\u6c34\",\"\u98a8\",\"\u8056\",\"\",\"\",\"\"\r\n\r\ncolor 196,196,196\r\nrepeat 7 : cnt2=cnt\r\n repeat bsb\r\n  if cnt=0 : pos 70,cnt2*19+2\r\n  if cnt&gt;0 : pos 100+cnt*23,cnt2*19+2\r\n  if cnt2=0 : mes s(cnt) : continue\t; \u540d\r\n\r\n  mes bs(bsb*(cnt2-1)+cnt)\t; \u5024\r\n loop\r\nloop\r\n}\r\nif af=1 {\r\ncolor 0,255,0\r\nrepeat 7\r\n pos 580,cnt*20 : mes \"\"+zputs(cnt)+\"\"+zputn(cnt)\r\nloop\r\n\r\npos 500,300 : mes \"rpic\"\r\nrepeat 3\r\n pos 540,300+cnt*20 : mes rdpd(cnt)\r\nloop\r\n}\r\n\/*\r\nrepeat 10\r\n pos 10+cnt*20,320 : mes ft2(cnt)\r\nloop\r\nrepeat 4\r\n pos 10+cnt*20,340 : mes fn2(cnt)\r\nloop\r\n\/*\r\npos 200,10 : mes \"\u59cb\u70b9 \"+ss1\r\npos 200,30 : mes \"\u8ddd\u96e2 \"+ss4\r\npos 200,50 : mes \"\u6570   \"+ss3\r\npos 200,70 : mes \"\u901f\u3055 \"+ss2\r\npos 200,90 : mes \"btlck\"+btlck\r\npos 200,110: mes \"c\u6570  \"+ss5\r\n\/*\r\npos 200,300 : mes \"smnfn \"\r\nrepeat 6\r\n pos 250+cnt*30,300 : mes smnfn(cnt)\r\nloop\r\n\r\n\/*\r\nrepeat 3,1\r\n pos 250+cnt*30,300 : mes ud(fn1(cnt)*udb+26)\r\nloop\r\n*\/\r\n\/*\r\npos 200,330 : mes \"rfn\"\r\nrepeat 4\r\n pos 250+cnt*30,330 : mes rfn(cnt)\r\nloop\r\n*\/\r\n\treturn\r\n\r\n\r\n#deffunc un_find_put ; \u30e6\u30cb\u30c3\u30c8\u767a\u898b\u8868\u793a\r\n\r\n\tmn=m;pc(pn)\r\n\tif  1&lt;=mn and mn&lt;=14 : ufpx=420\r\n\tif 15&lt;=mn and mn&lt;=25 : ufpx=100\r\n\tufpy=115 : ufpk=40\r\n\r\n\tgmode 2\r\n\tredraw 0\r\n\t color 1,1,1 : boxf\r\n\r\n\t un_find_put_pn=pn : pn=0\r\n\t map_put\r\n\t x=hxyd(0,mn)-8 : y=hxyd(1,mn)-8 ; \u5ea7\u6a19\r\n\t  gmode 5,,,224 : gmulcolor 255,255,255\r\n\t   pos x,y : celput hcw\r\n\t  gmode 2\r\n\t pn=un_find_put_pn\r\n\r\n\t evw 0,ufpx-ufpk,ufpy-ufpk-5,10,14\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\t evw 1,ufpx-ufpk,ufpy-ufpk-5,10,14\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\r\n\t card_put ufpx,ufpy,un\r\n\/*\r\n\t dg_put\r\n\t color 255,255,255\r\n\t  boxf ufpx-ufpk,ufpy-ufpk,ufpx+cox+ufpk,ufpy+coy+ufpk\r\n\t color 1,1,1\r\n\t  boxf ufpx-ufpk+2,ufpy-ufpk+2,ufpx+cox+ufpk-2,ufpy+coy+ufpk-2\r\n\t card_put ufpx,ufpy,un\r\n\t color 255,255,255 : pos ufpx-20,ufpy-20 : mes m\r\n*\/\r\n\tredraw 1\r\n\t\r\n;pkey\r\n;dg_clr\r\n\treturn\r\n\r\n\r\n#deffunc in_find_put ; \u30a2\u30a4\u30c6\u30e0\u767a\u898b\u8868\u793a\r\n\r\n\tmn=m;pc(pn)\r\n\t if  1&lt;=mn and mn&lt;=14 : ufpx=420\r\n\t if 15&lt;=mn and mn&lt;=25 : ufpx=100\r\n\tufpy=115 : ufpk=40\r\n\r\n\tgmode 2\r\n\tredraw 0\r\n\t color 1,1,1 : boxf\r\n\r\n\t in_find_put_pn=pn : pn=0\r\n\t map_put\r\n\t x=hxyd(0,mn)-8 : y=hxyd(1,mn)-8 ; \u5ea7\u6a19\r\n\t  gmode 5,,,224 : gmulcolor 255,255,255\r\n\t   pos x,y : celput hcw\r\n\t  gmode 2\r\n\t pn=in_find_put_pn\r\n\r\n\t evw 0,ufpx-ufpk,ufpy-ufpk-5,10,14\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\t evw 1,ufpx-ufpk,ufpy-ufpk-5,10,14\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\r\n\t pos ufpx+cox\/2,ufpy : celput iw,id(in*idb)-1\r\n\r\n\/*\r\n\t dg_put\r\n\t color 255,255,255\r\n\t  boxf ufpx-ufpk,ufpy-ufpk,ufpx+cox+ufpk,ufpy+coy+ufpk\r\n\t color 1,1,1\r\n\t  boxf ufpx-ufpk+2,ufpy-ufpk+2,ufpx+cox+ufpk-2,ufpy+coy+ufpk-2\r\n\t pos ufpx+cox\/2,ufpy : celput iw,id(in*idb)-1\r\n\t color 255,255,255\r\n\t pos ufpx+10,ufpy+coy+5 : mes in\r\n\t pos ufpx-20,ufpy-20 : mes m\r\n*\/\r\n\tredraw 1\r\n\r\n;pkey\r\n;dg_clr\r\n\treturn\r\n\r\n\r\n; Government ordinance ------------------------------------------\r\n\r\n; Build\u3001\u5efa\u7bc9\r\n#deffunc bul_put int bul_putf\r\n\r\n\t;font \"\",24,0\r\n\r\n\tn=mpl(m)\r\n\/*\r\n\tif n=0 {\r\n\t color 240,240,240 : pos talx2,taly2 : mes \"\"+m+\" \u56fd\"\r\n\t}\r\n*\/\r\n\tif n&gt;0{\r\n     color 255,255,255 : boxf infx1+2,infy1+2,infx1+26,infy1+26\r\n\t color cld((pcln(n)-1)*3+1),cld((pcln(n)-1)*3+2),cld((pcln(n)-1)*3+3) ; \u52e2\u529b\r\n\t  boxf infx1+4,infy1+4,infx1+24,infy1+24\r\n\t fp2 m,infx1+27,infy1,5\r\n\t; color cld((pcln(n)-1)*3+1),cld((pcln(n)-1)*3+2),cld((pcln(n)-1)*3+3) ; \u52e2\u529b\r\n\t ; pos talx2,taly2 : mes \"\"+m+\" \u56fd\"\r\n\t}\r\n\r\n\t;color 240,240,240\r\n\t ;pos talx3,taly2 : mes \"\u9b54\u8853 LEVEL \"+ml\r\n\ts=\"MANA POINT \" : pfp28 s,talx3,taly2-1\r\n\t s=str(pmp(pn)) : pfp28 s,talx3+163,taly2-1,7\r\n\r\n\tif bul_putf=1 : return\r\n\r\n\r\n\trepeat 10 ; \u67a0\r\n\t ;if cnt=3 or cnt=6 or cnt=8 : continue\r\n\t if cnt&lt;5 {\r\n\t  evw 0,talx1+talxk*(cnt\\5),taly1,5,8\r\n\t  evw 1,talx1+talxk*(cnt\\5),taly1,5,8\r\n\t  ;pos talx1+talxk*(cnt\\5)+cox\/2,taly1\t\t\t: celput owkw\r\n\t }\r\n\t if cnt&gt;4 {\r\n\t  evw 0,talx1+talxk*(cnt\\5),taly1+talyk,5,8\r\n\t  evw 1,talx1+talxk*(cnt\\5),taly1+talyk,5,8\r\n\t  ;pos talx1+talxk*(cnt\\5)+cox\/2,taly1+talyk\t: celput owkw\r\n\t }\r\n\tloop\r\n\r\n\t;font \"\",20,0\r\n\r\n\trepeat 10,1\r\n\t pos talkx1(cnt)+16,talky1(cnt)+20 : celput atw,(cnt-1),2.0,2.0\r\n\r\n\t cnt2=cnt+1\r\n\t x=10 ; 3\u6587\u5b57\r\n\t if cnt2=1 or cnt2=7\t\t\t: x=30 ; 1\u6587\u5b57\r\n\t if cnt2=4 or cnt2=9 or cnt2=11\t: x=20 ; 2\u6587\u5b57\r\n\t pos talkx1(cnt)+x,talky1(cnt)+85 : celput mj20_bulw,cnt2;mes buls(cnt+1)\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc disma_put ; \u89e3\u4f53\u8868\u793a\r\n\r\n\tfont \"\",24,0\r\n\r\n\tn=mpl(m)\r\n\/*\r\n\tif n=0 {\r\n\t color 240,240,240 : pos talx2,taly2 : mes \"\"+m+\" \u56fd\"\r\n\t}\r\n*\/\r\n\tif n&gt;0{\r\n     color 255,255,255 : boxf infx1+2,infy1+2,infx1+26,infy1+26\r\n\t color cld((pcln(n)-1)*3+1),cld((pcln(n)-1)*3+2),cld((pcln(n)-1)*3+3) ; \u52e2\u529b\r\n\t  boxf infx1+4,infy1+4,infx1+24,infy1+24\r\n\t fp2 m,infx1+27,infy1,5\r\n\t color cld((pcln(n)-1)*3+1),cld((pcln(n)-1)*3+2),cld((pcln(n)-1)*3+3) ; \u52e2\u529b\r\n\t;  pos talx2,taly2 : mes \"\"+m+\" \u56fd\"\r\n\t}\r\n\r\n\tcolor 240,240,240\r\n\t ;pos talx3,taly2 : mes \"\u9b54\u8853 LEVEL \"+ml\r\n\t ;pos talx3,taly2 : mes \"MANA POINT \"+pmp(pn)\r\n\ts=\"MANA POINT \" : pfp28 s,talx3,taly2-1\r\n\t s=str(pmp(pn)) : pfp28 s,talx3+163,taly2-1,7\r\n\r\n\r\n\tpos 320-56,95 : celput atw,md(mdg+7)-2,4.0,4.0\r\n\t\r\n\t;pos 180,80 : celput owkw\r\n\tevw 0,140,80,5,8\r\n\tevw 1,140,80,5,8\r\n\t ;pos 155,110 : mes \"\u306f\u3044\"\r\n\t s=\"YES\" : pfp28 s,148,130; : mes \"YES\"\r\n\t;pos 450,80 : celput owkw\r\n\tevw 0,410,80,5,8\r\n\tevw 1,410,80,5,8\r\n\t ;pos 415,110 : mes \"\u3044\u3044\u3048\"\r\n\t s=\"NO\" : pfp28 s,418,130; : mes \"NO\"\r\n\tpos 170,245 : celput bulftw,md(mdg+7);mes \"\"+buls(md(mdg+7))\r\n\t pos 265,245 : celput  mj28_lngw,8;mes \" \u3092\u89e3\u4f53\u3057\u307e\u3059\u304b\uff1f\"\r\n\t  ;pos 220,300 : mes \"MANA POINT -\"+bul_mp(12)\r\n\t  s=\"MANA POINT -\" : pfp28 s,220,300\r\n\t   s=str(bul_mp(12)) : pfp28 s,220+197,300\r\n\treturn\r\n\r\n\r\n#deffunc bul_ad_put int bul_ad_putf ; \u5efa\u8a2d\u3001\u89e3\u4f53\u8868\u793a\r\n\r\n\tc=5\r\n\trepeat\r\n\t redraw 0\r\n\t  color 1,1,1 : boxf : color 240,240,240\r\n\r\n\t  bul_put 1\r\n\r\n\t  if bul_ad_putf=0 {\r\n\t   pos 320-56,95 : celput atw,(ky-1),4.0,4.0\r\n\t   pos 190,245 : celput bulftw,ky+1;mes \"\"+buls(ky+1)\r\n\t   pos 280,245 : celput  mj28_lngw,6;mes \" \u3092\u5efa\u3066\u307e\u3057\u305f\"\r\n\t   s=\"MANA POINT -\" : pfp28 s,220,300\r\n\t    s=str(bul_mp(ky+1)) : pfp28 s,220+197,300\r\n\t   ;pos 220,300 : mes \"MANA POINT -\"+bul_mp(ky+1)\r\n\t  }\r\n\t  if bul_ad_putf=1 {\r\n\t   pos 320-56,95 : celput atw,(md(mdg+7)-2),4.0,4.0\r\n\t   pos 170,245 : celput bulftw,md(mdg+7)\r\n\t   ;pos 170,245 : mes \"\"+buls(md(mdg+7))\r\n\t   pos 265,245 : celput  mj28_lngw,7;mes \" \u3092\u89e3\u4f53\u3057\u307e\u3057\u305f\"\r\n\t   ;pos 220,300 : mes \"MANA POINT -\"+bul_mp(12)\r\n\t  }\r\n\t redraw 1\r\n\r\n\t if c&gt;0 : c- : else : stick kb : if kb=256 : break\r\n\r\n\t await 1000\/40\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n; Talent\u3001\u30e6\u30cb\u30c3\u30c8\r\n#deffunc tal_put int tal_putf\r\n\r\n\t;font \"\",24,0\r\n\r\n\tn=mpl(m)\r\n\/*\r\n\tif n=0 {\r\n\t color 240,240,240 : pos talx2,taly2 : mes \"\"+m+\" \u56fd\"\r\n\t}\r\n*\/\r\n\tif n&gt;0{\r\n     color 255,255,255 : boxf infx1+2,infy1+2,infx1+26,infy1+26\r\n\t color cld((pcln(n)-1)*3+1),cld((pcln(n)-1)*3+2),cld((pcln(n)-1)*3+3) ; \u52e2\u529b\r\n\t  boxf infx1+4,infy1+4,infx1+24,infy1+24\r\n\t fp2 m,infx1+27,infy1,5\r\n\t ;color cld((pcln(n)-1)*3+1),cld((pcln(n)-1)*3+2),cld((pcln(n)-1)*3+3) ; \u52e2\u529b\r\n\t ; pos talx2,taly2 : mes \"\"+m+\" \u56fd\"\r\n\t}\r\n\r\n\t;color 240,240,240\r\n\t ;pos talx3,taly2 : mes \"\u4eba\u6750LEVEL \"+r;ml\r\n\t pos talx3,taly2 : celput mj28w,0\r\n\t  s=\"LEVEL\" : pfp28 s,talx3+61,taly2\r\n\t   s=str(r) : pfp28 s,talx3+154,taly2\r\n\t; pos talx4,taly2 : mes \"MANA POINT \"+pmp(pn)\r\n\ts=\"MANA POINT \" : pfp28 s,talx4+10,taly2\r\n\t s=str(pmp(pn)) : pfp28 s,talx4+182,taly2\r\n\t ;pos talx5,taly2 : mes \"\u30ad\u30e3\u30e9\u7dcf\u6570 \"+pmp(m)\r\n\r\n\r\n\tif tal_putf=1 : return\r\n\r\n\tpos talcx+cox\/2,talcy : celput owkw\r\n\r\n\/*\r\n\trepeat 5 ; \u67a0\r\n\t if ml&gt;cnt   : pos talx1+talxk*cnt+cox\/2,taly1\t\t: celput owkw\r\n\t if ml&gt;cnt+5 : pos talx1+talxk*cnt+cox\/2,taly1+talyk: celput owkw\r\n\tloop\r\n\r\n\tfont \"\",20,0\r\n\trepeat 10,1\r\n\t if ml&lt;cnt : break\r\n\r\n\t pos talkx1(cnt)+10,talky1(cnt)+10\r\n\t  mes \"LEVEL\"+cnt\r\n\t pos talkx1(cnt)+20,talky1(cnt)+50\r\n\t  mes \"\uff5e\"+cnt*10\r\n\t pos talkx1(cnt)+10,talky1(cnt)+100\r\n\t  mes tal_mp(cnt) ; \u5fc5\u8981\u30de\u30ca\u30dd\u30a4\u30f3\u30c8\r\n\tloop\r\n*\/\r\n\treturn\r\n\r\n\r\n#deffunc tal_fd_put\r\n\r\n\tf=0 : cf=1.0 : kb=0\r\n\tx=320-cox\/2 : y=135-coy\/2\r\n\trepeat\r\n\t redraw 0\r\n\t  color 1,1,1 : boxf : color 240,240,240\r\n\t  tal_put 1\r\n\t  switch f\r\n\t   case 0\r\n\t    pos talcx+cox\/2,talcy : celput owkw,0,cf\r\n\t    cf-=0.1 : if cf&lt;=0.0 : f=1\r\n\t   swbreak\r\n\t   case 1\r\n\t    pos talcx+cox\/2,talcy : celput cw,cn-1,cf\r\n\t    cf+=0.1 : if cf&gt;=1.0 : f=2\r\n\t   swbreak\r\n\t   case 2\r\n\t    pos talcx+cox\/2,talcy : celput cw,cn-1,cf\r\n\t    stick kb : if kb=256 : f=3\r\n\t   swbreak\r\n\t  swend\r\n\t  pos talcx-30,talcy+150 : celput cd_ftw,cn\r\n\t  s=\"LEVEL\" : pfp28 s,talcx-25,talcy+190 ;: mes \"LEVEL \"+cd(15,cn)\r\n\t   s=str(cd(15,cn)) : pfp28 s,talcx+73,talcy+190\r\n\t  s=\"MANA POINT\" : pfp28 s,talcx-60,talcy+230 ;: mes \"MANA POINT \"+tal_mp(cd(15,cn))\r\n\t   s=str(tal_mp(cd(15,cn))) : pfp28 s,talcx+115,talcy+230\r\n\t redraw 1\r\n\r\n\t await 1000\/40\r\n\r\n\t if f=3 : break\r\n\tloop\r\n\r\n\treturn\r\n\r\n\t\r\n\r\n; Order\u3001\u30a2\u30a4\u30c6\u30e0\u3001\u8868\u793a\r\n#deffunc ord_put int ord_putf\r\n\r\n\t;font \"\",24,0\r\n\r\n\tn=mpl(m)\r\n\/*\r\n\tif n=0 {\r\n\t color 240,240,240 : pos talx2,taly2 : mes \"\"+m+\" \u56fd\"\r\n\t}\r\n*\/\r\n\tif n&gt;0{\r\n     color 255,255,255 : boxf infx1+2,infy1+2,infx1+26,infy1+26\r\n\t color cld((pcln(n)-1)*3+1),cld((pcln(n)-1)*3+2),cld((pcln(n)-1)*3+3) ; \u52e2\u529b\r\n\t  boxf infx1+4,infy1+4,infx1+24,infy1+24\r\n\t fp2 m,infx1+27,infy1,5\r\n\t; color cld((pcln(n)-1)*3+1),cld((pcln(n)-1)*3+2),cld((pcln(n)-1)*3+3) ; \u52e2\u529b\r\n\t;  pos talx2,taly2 : mes \"\"+m+\" \u56fd\"\r\n\t}\r\n\r\n\t;color 240,240,240\r\n\t ;pos talx3,taly2 : mes \"\u6280\u8853 LEVEL \"+ml\r\n\tpos talx3,taly2 : celput mj28w,1\r\n\t s=\"LEVEL\" : pfp28 s,talx3+61,taly2\r\n\t  s=str(ml) : pfp28 s,talx3+154,taly2\r\n\t ;pos talx4,taly2 : mes \"MANA POINT \"+pmp(pn)\r\n\ts=\"MANA POINT \" : pfp28 s,talx4,taly2-1\r\n\t s=str(pmp(pn)) : pfp28 s,talx4+165,taly2-1\r\n\r\n\tif ord_putf=1 : return\r\n\r\n\r\n\trepeat 10 ; \u67a0\r\n\t if cnt=3 or cnt=6 or cnt=8 : continue\r\n\t ;if cnt&lt;5 : pos talx1+talxk*(cnt\\5)+cox\/2,taly1\t\t: celput owkw\r\n\t ;if cnt&gt;4 : pos talx1+talxk*(cnt\\5)+cox\/2,taly1+talyk\t: celput owkw\r\n\t if cnt&lt;5 {\r\n\t  evw 0,talx1+talxk*(cnt\\5),taly1,6,8\r\n\t  evw 1,talx1+talxk*(cnt\\5),taly1,6,8\r\n\t }\r\n\t if cnt&gt;4 {\r\n\t  evw 0,talx1+talxk*(cnt\\5),taly1+talyk,6,8\r\n\t  evw 1,talx1+talxk*(cnt\\5),taly1+talyk,6,8\r\n\t }\r\n\tloop\r\n\r\n\t;font \"\",20,0\r\n\r\n; \u8fd1\u8ddd\u96e2\u6b66\u5668\u3001\u4e2d\u8ddd\u96e2\u6b66\u5668\u3001\u9060\u8ddd\u96e2\u6b66\u5668\u3001\u9632\u5177\u3001\u30a2\u30af\u30bb\u30b5\u30ea\u30fc\u3001\u30a2\u30a4\u30c6\u30e0\u3001\u9b54\u6cd5\r\n; SHORT\u3001MEDIUM\u3001LONG\u3001GUARD\u3001ACCESSORY\u3001ITEM\u3001MAGIC\r\n\r\n\tx1=19 : x2=29\r\n\ty1=14 : y2=58 : y3=83\r\n\tpos talkx1(1)+x1,talky1(1)+y1\r\n\t celput moji2w,2 ; mes \"\u8fd1\u8ddd\u96e2\"\r\n\t \r\n\t;pos talkx1(1)+15,talky1(1)+55\r\n\ts=\"SHORT\"\t: pfp20 s,talkx1(1)+18,talky1(1)+y2 ; mes \"SHORT\"\r\n\ts=\"WEAPON\"\t: pfp20 s,talkx1(1)+13,talky1(1)+y3 ; mes \"WEAPON\"\r\n\r\n\tpos talkx1(2)+x1,talky1(2)+y1\r\n\t celput moji2w,3 ; mes \"\u4e2d\u8ddd\u96e2\"\r\n\ts=\"MEDIUM\"\t: pfp20 s,talkx1(2)+13,talky1(2)+y2 ; mes \"MEDIUM\"\r\n\ts=\"WEAPON\"\t: pfp20 s,talkx1(2)+13,talky1(2)+y3 ; mes \"WEAPON\"\r\n\r\n\tpos talkx1(3)+x1,talky1(3)+y1\r\n\t celput moji2w,4 ; mes \"\u9060\u8ddd\u96e2\"\r\n\ts=\"LONG\"\t: pfp20 s,talkx1(3)+22,talky1(3)+y2 ; mes \"LONG\"\r\n\ts=\"WEAPON\"\t: pfp20 s,talkx1(3)+13,talky1(3)+y3 ; mes \"WEAPON\"\r\n\r\n\tpos talkx1(5)+x2,talky1(5)+y1\r\n\t celput moji2w,5 ; mes \"\u9632\u5177\"\r\n\ts=\"GUARD\"\t: pfp20 s,talkx1(5)+18,talky1(5)+y2 ; mes \"GUARD\"\r\n\r\n\tpos talkx1(6)+18,talky1(6)+y1\r\n\t celput moji2w,6 ; mes \"\uff71\uff78\uff7e\uff7b\uff98\uff70\"\r\n\ts=\"ACCES\"\t: pfp20 s,talkx1(6)+13,talky1(6)+y2 ; mes \"ACCES\"\r\n\ts=\"SORY\"\t: pfp20 s,talkx1(6)+33,talky1(6)+78 ; mes \"SORY\"\r\n\r\n\tpos talkx1(8)+9,talky1(8)+y1\r\n\t celput moji2w,7 ; mes \"\uff71\uff72\uff83\uff91\"\r\n\ts=\"ITEM\"\t: pfp20 s,talkx1(8)+22,talky1(8)+y2 ; mes \"ITEM\"\r\n\r\n\tpos talkx1(10)+x2,talky1(10)+y1\r\n\t celput moji2w,8 ; mes \"\u9b54\u6cd5\"\r\n\ts=\"MAGIC\"\t: pfp20 s,talkx1(10)+18,talky1(10)+y2 ; mes \"MAGIC\"\r\n\r\n\treturn\r\n\r\n\r\n#deffunc ord_ms_put int ord_ms_putf ; \u30e1\u30c3\u30bb\u30fc\u30b8\r\n\r\n\trepeat 20\r\n\t redraw 0\r\n\t  color 1,1,1 : boxf : color 255,255,255\r\n\t  ord_put 1\r\n\r\n\t  evw 0,108,132,27,6\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\t  evw 1,108,132,27,6\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\r\n\t  ;color 240,240,240 : boxf 100,100,wx-100,wy-100\r\n\t  ;color 1,1,1 : boxf 100+2,100+2,wx-100-2,wy-100-2\r\n\r\n\t  ;color 240,240,240\r\n\t  x=144 : y=165 : pos x,y\r\n\r\n\t  if ord_ms_putf=0 : celput  mj28_lngw,0; mes \"\u88fd\u4f5c\u3067\u304d\u308b\u3082\u306e\u304c\u3042\u308a\u307e\u305b\u3093\"\r\n\t  if ord_ms_putf=1 {\r\n\t   s=\"MANA PONT\" : pfp28 s,x,y\r\n\t   pos x+163,y : celput  mj28_lngw,9; mes \"\u30de\u30ca\u30dd\u30a4\u30f3\u30c8\u304c\u8db3\u308a\u307e\u305b\u3093\"\r\n\t  }\r\n\t  if ord_ms_putf=2 : celput  mj28_lngw,1; mes \"\u4eba\u6750\u5e9c\u306e\u6570\u304c\u6700\u5927\u3067\u3059\"\r\n\t  if ord_ms_putf=3 : celput  mj28_lngw,2; mes \"\u5009\u5eab\u306e\u6570\u304c\u6700\u5927\u3067\u3059\"\r\n\t  if ord_ms_putf=4 : celput  mj28_lngw,3; mes \"\u4eba\u6750\u304c\u3044\u307e\u305b\u3093\u3067\u3057\u305f\"\r\n\t  if ord_ms_putf=5 {\r\n\t   s=\"UNIT\" : pfp28 s,x,y\r\n\t   pos x+83,y : celput  mj28_lngw,4; mes \"\u30e6\u30cb\u30c3\u30c8\u306e\u767b\u9332\u304c\u6e80\u676f\u3067\u3059\"\r\n\t  }\r\n\t  if ord_ms_putf=6 {\r\n\t   s=\"ITEM\" : pfp28 s,x,y\r\n\t   pos x+83,y : celput  mj28_lngw,4; mes \"\u30a2\u30a4\u30c6\u30e0\u306e\u767b\u9332\u304c\u6e80\u676f\u3067\u3059\"\r\n\t  }\r\n\t  if ord_ms_putf=7 : celput  mj28_lngw,5; mes \"\u65e2\u306b\u5efa\u7269\u304c\u5efa\u3063\u3066\u3044\u307e\u3059\"\r\n\r\n\t redraw 1\r\n\t await 1000\/20\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc ord_fd_put ; \u767a\u898b\u8868\u793a\r\n\r\n\tf=0 : cf=1.0 : kb=0\r\n\trepeat\r\n\t redraw 0\r\n\t  color 1,1,1 : boxf : color 240,240,240\r\n\t  ord_put 1\r\n\t  switch f\r\n\t   case 0\r\n\t    pos talcx+cox\/2,talcy : celput owkw,0,cf\r\n\t    cf-=0.1 : if cf&lt;=0.0 : f=1\r\n\t   swbreak\r\n\t   case 1\r\n\t    pos talcx+cox\/2,talcy : celput iw,itn-1,cf\r\n\t    cf+=0.1 : if cf&gt;=1.0 : f=2\r\n\t   swbreak\r\n\t   case 2\r\n\t    pos talcx+cox\/2,talcy : celput iw,itn-1,cf\r\n\t    stick kb : if kb=256 : f=3\r\n\t   swbreak\r\n\t  swend\r\n\t  pos talcx-30,talcy+150 : celput it_ftw,itn\r\n\t  s=\"LEVEL\" : pfp28 s,talcx-25,talcy+190 ;: mes \"LEVEL \"+itd(15,itn)\r\n\t   s=str(itd(15,itn)) : pfp28 s,talcx+73,talcy+190\r\n\t  s=\"MANA POINT\" : pfp28 s,talcx-60,talcy+230 ;: mes \"MANA POINT \"+ord_mp(itd(15,itn))\r\n\t   s=str(ord_mp(itd(15,itn))) : pfp28 s,talcx+115,talcy+230\r\n\t redraw 1\r\n\r\n\t await 1000\/40\r\n\r\n\t if f=3 : break\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n; \u653f\u5e9c\u3001\u30ac\u30d0\u30e1\u30f3\u30c8\u3001Government\r\n\r\n#deffunc gov_put\r\n\r\n\tcolor 1,1,1 : boxf\r\n\r\n    color 255,255,255 : boxf infx1+2,infy1+2,infx1+26,infy1+26\r\n\tcolor cld((pcln(pn)-1)*3+1),cld((pcln(pn)-1)*3+2),cld((pcln(pn)-1)*3+3) ; \u52e2\u529b\r\n\t boxf infx1+4,infy1+4,infx1+24,infy1+24\r\n\r\n\tcolor 255,255,255\r\n\tgmulcolor 255,255,255\r\n\r\n\trepeat 6,1\r\n\t pos govx1(20+cnt),govy1(20+cnt) : celput rmw\r\n\t n=mgv(pn*mgvb+cnt)\r\n\t if n&gt;0 : pos govx1(cnt)+cox\/2,govy1(cnt) : celput cw,ud(n*udb)-1\r\n\t if n=0 : pos govx1(cnt),govy1(cnt) : celput krwkw\r\n\tloop\r\n \r\n\tfont \"\",20\r\n\t pos govx2(1)+22,govy1(1)+43 : celput mojiw,17 ;mes govs1(1)\r\n\t s=govs3(1) : pfp20 s,govx2(1)+17,govy1(1)+68 ;: mes govs3(1)\r\n\r\n\trepeat 5,2\r\n\t pos govx1(cnt),govy1(cnt)-40 : celput mojiw,10+cnt ;mes govs1(cnt)\r\n\t s=govs3(cnt) : pfp20 s,govx1(cnt)-5,govy1(cnt)-21 ;: mes govs3(cnt)\r\n\tloop\r\n\r\n\tfont \"\",32\r\n\t pos 98,32 : celput mj32w,0 ;mes \"\u653f\u5e9c\"\r\n\t pos 53,80 : celput mj32w,1 ;mes \"GOVERNMENT\";\"Government\"\r\n\r\n\ts=\"unit\" : pfp20 s,496,34,5\r\n\t s=str(pubg(pn)) : pfp20 s,516,55,3\r\n\t  pos 556,55 : celput pft20w,51\r\n\t   s=str(pubn(pn)) : pfp20 s,574,55,3\r\n\r\n\ts=\"item\" : pfp20 s,496,84,5\r\n\t s=str(pibg(pn)) : pfp20 s,516,105,3\r\n\t  pos 556,105 : celput pft20w,51\r\n\t   s=str(pibn(pn)) : pfp20 s,574,105,3\r\n\/*\r\n\ts=\"unit\" : bfp s,496,34,5\r\n\t fp pubg(pn),516,54,5\r\n\t  s=\"\/\" : bfp s,546,54,5\r\n\t   fp pubn(pn),576,54,5\r\n\r\n\ts=\"item\" : bfp s,496,84,5\r\n\t fp pibg(pn),516,104,5\r\n\t  s=\"\/\" : bfp s,546,104,5\r\n\t   fp pibn(pn),576,104,5\r\n*\/\r\n\/*\r\nn=255\r\nrepeat 3 : c=cnt*10\r\n repeat 6,1 : nn=c+cnt\r\n  color n,n,n\r\n  boxf govx1(nn),govy1(nn),govx2(nn),govy2(nn)\r\n  n-=10\r\n loop\r\nloop\r\n*\/\r\n\r\n\treturn\r\n\r\n\r\n\r\n; op\u3001ed\u8868\u793a ------------------------------------------------------\r\n\r\n\toemjb=20\r\n\tdim oemjf,oemjb ; \u30d5\u30e9\u30b0\u3001\u30b0\u30e9No.(0=op\u30011=ed\u30012=cr)\r\n\tdim oemjn,oemjb ; \u6587\u5b57No.\r\n\tdim oemjc,oemjb ; \u30ab\u30e9\u30fcNo.\r\n\tdim oemjx,oemjb ; x\u5ea7\u6a19\r\n\tdim oemjy,oemjb ; y\u5ea7\u6a19\r\n\tdim oemjm,oemjb ; \u79fb\u52d5\u65b9\u5411\r\n\tdim oemjd,oemjb ; \u79fb\u52d5\u91cf\r\n\r\n\r\n#deffunc edmj_set int edmj_setn ; ed\u6587\u5b57\u30bb\u30c3\u30c8\r\n\r\n\tf=0\r\n\trepeat edmjb : n=cnt\r\n\t if edmjf(n)=0 : f=1 : break\r\n\tloop\r\n\tif f=0 : return\r\n\r\n\tedmjf(n)=edmj_setn ; \u6587\u5b57No.\r\n\tedmjy(n)=wy\t; y\u5ea7\u6a19\r\n\tedmjz(n)=1\t; \u30b9\u30d4\u30fc\u30c9\r\n\r\n\treturn\r\n\r\n\r\n#deffunc edmj_put ; ed\u6587\u5b57\u8868\u793a\r\n\r\n\tgmode 2\r\n\r\n\trepeat edmjb : n=cnt\r\n\t if edmjf(n)=0 : continue\r\n\t edmjy(n)-=edmjz(n)\r\n\t  if edmjy(n)&lt;-35 : edmjf(n)=0 : continue\r\n\t pos 48,edmjy(n) : celput mj32_edw,edmjf(n)-1\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc edcr_set int edcr_n1,int edcr_n2,int edcr_n3,int edcr_n4 ; ed\u30af\u30ec\u30b8\u30c3\u30c8\u6587\u5b57\u30bb\u30c3\u30c8\r\n;n1=x\u5ea7\u6a19\u3001n2=\u30b0\u30e9No.\u3001n3=\u6587\u5b57No.\u3001n4=\u30ab\u30e9\u30fc\r\n\r\n\tf=0\r\n\trepeat edcrb : n=cnt\r\n\t if edcrf(n)=0 : f=1 : break\r\n\tloop\r\n\tif f=0 : return\r\n\r\n\tedcrx(n)=edcr_n1\t; x\u5ea7\u6a19\r\n\tedcrf(n)=edcr_n2\t; \u30b0\u30e9No.\r\n\tedcrn(n)=edcr_n3\t; \u6587\u5b57No.\r\n\tedcrc(n)=edcr_n4\t; \u30ab\u30e9\u30fcNo.\r\n\tedcry(n)=wy\t\t\t; y\u5ea7\u6a19\r\n\tedcrz(n)=2\t\t\t; \u30b9\u30d4\u30fc\u30c9\r\n\r\n\treturn\r\n\r\n\r\n#deffunc edcr_put ; ed\u30af\u30ec\u30b8\u30c3\u30c8\u6587\u5b57\u8868\u793a\r\n\r\n\tgmode 2\r\n\r\n\trepeat edcrb : n=cnt\r\n\t if edcrf(n)=0 : continue\r\n\r\n\t if edcrc(n)=0 : gmulcolor 255,255,255\t; \u767d\r\n\t if edcrc(n)=1 : gmulcolor 160,160,255\t; \u9752\r\n\t if edcrc(n)=2 : gmulcolor 128,255,128\t; \u7dd1\r\n\t if edcrc(n)=3 : gmulcolor 228+27,85+27,139+27 ; \u30d4\u30f3\u30af\r\n\t if edcrc(n)=4 : gmulcolor 255,96,96\t; \u706b\r\n\t if edcrc(n)=5 : gmulcolor 96,96,255\t; \u6c34\r\n\t if edcrc(n)=6 : gmulcolor 96,255,96\t; \u98a8\r\n\t if edcrc(n)=7 : gmulcolor 255,255,96\t; \u5730\r\n\t if edcrc(n)=8 : gmulcolor 255,255,255\t; \u5149\r\n\t if edcrc(n)=9 : gmulcolor 160,160,160\t; \u95c7\r\n\r\n\t edcry(n)-=edcrz(n)\r\n\t  if edcry(n)&lt;-35 : edcrf(n)=0 : continue\r\n\t pos edcrx(n),edcry(n)\r\n\t  if edcrf(n)=1 : celput cre_ftw,edcrn(n)-1\r\n\t  if edcrf(n)=2 : celput cre_ft2w,edcrn(n)-1\r\n\r\n\tloop\r\n\r\n\tgmulcolor 255,255,255\r\n\r\n\treturn\r\n\/*\r\n#deffunc edmj_set int edmj_setn ; ed\u6587\u5b57\u30bb\u30c3\u30c8\r\n\r\n\tf=0\r\n\trepeat edmjb : n=cnt\r\n\t if edmjf(n)=0 : f=1 : break\r\n\tloop\r\n\tif f=0 : return\r\n\r\n\tedmjf(n)=edmj_setn ; \u6587\u5b57No.\r\n\tedmjy(n)=wy\t; y\u5ea7\u6a19\r\n\tedmjz(n)=1\t; \u30b9\u30d4\u30fc\u30c9\r\n\r\n\treturn\r\n\r\n\r\n#deffunc edmj_put ; ed\u6587\u5b57\u8868\u793a\r\n\r\n\tgmode 2\r\n\r\n\trepeat edmjb : n=cnt\r\n\t if edmjf(n)=0 : continue\r\n\t edmjy(n)-=edmjz(n)\r\n\t  if edmjy(n)&lt;-35 : edmjf(n)=0 : continue\r\n\t pos 48,edmjy(n) : celput mj32_edw,edmjf(n)-1\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc edcr_set int edcr_n1,int edcr_n2,int edcr_n3,int edcr_n4 ; ed\u30af\u30ec\u30b8\u30c3\u30c8\u6587\u5b57\u30bb\u30c3\u30c8\r\n;n1=x\u5ea7\u6a19\u3001n2=\u30b0\u30e9No.\u3001n3=\u6587\u5b57No.\u3001n4=\u30ab\u30e9\u30fc\r\n\r\n\tf=0\r\n\trepeat edcrb : n=cnt\r\n\t if edcrf(n)=0 : f=1 : break\r\n\tloop\r\n\tif f=0 : return\r\n\r\n\tedcrx(n)=edcr_n1\t; x\u5ea7\u6a19\r\n\tedcrf(n)=edcr_n2\t; \u30b0\u30e9No.\r\n\tedcrn(n)=edcr_n3\t; \u6587\u5b57No.\r\n\tedcrc(n)=edcr_n4\t; \u30ab\u30e9\u30fcNo.\r\n\tedcry(n)=wy\t\t\t; y\u5ea7\u6a19\r\n\tedcrz(n)=2\t\t\t; \u30b9\u30d4\u30fc\u30c9\r\n\r\n\treturn\r\n\r\n\r\n#deffunc edcr_put ; ed\u30af\u30ec\u30b8\u30c3\u30c8\u6587\u5b57\u8868\u793a\r\n\r\n\tgmode 2\r\n\r\n\trepeat edcrb : n=cnt\r\n\t if edcrf(n)=0 : continue\r\n\r\n\t if edcrc(n)=0 : gmulcolor 255,255,255\t; \u767d\r\n\t if edcrc(n)=1 : gmulcolor 160,160,255\t; \u9752\r\n\t if edcrc(n)=2 : gmulcolor 128,255,128\t; \u7dd1\r\n\t if edcrc(n)=3 : gmulcolor 228+27,85+27,139+27 ; \u30d4\u30f3\u30af\r\n\t if edcrc(n)=4 : gmulcolor 255,96,96\t; \u706b\r\n\t if edcrc(n)=5 : gmulcolor 96,96,255\t; \u6c34\r\n\t if edcrc(n)=6 : gmulcolor 96,255,96\t; \u98a8\r\n\t if edcrc(n)=7 : gmulcolor 255,255,96\t; \u5730\r\n\t if edcrc(n)=8 : gmulcolor 255,255,255\t; \u5149\r\n\t if edcrc(n)=9 : gmulcolor 160,160,160\t; \u95c7\r\n\r\n\t edcry(n)-=edcrz(n)\r\n\t  if edcry(n)&lt;-35 : edcrf(n)=0 : continue\r\n\t pos edcrx(n),edcry(n)\r\n\t  if edcrf(n)=1 : celput cre_ftw,edcrn(n)-1\r\n\t  if edcrf(n)=2 : celput cre_ft2w,edcrn(n)-1\r\n\r\n\tloop\r\n\r\n\tgmulcolor 255,255,255\r\n\r\n\treturn\r\n*\/\r\n\r\n#deffunc cdsw_set int cdsw_setf ; \u30ab\u30fc\u30c9\u30b7\u30e7\u30fc\u30bb\u30c3\u30c8\r\n\r\n\tf=0\r\n\trepeat cdswb : n=cnt\r\n\t if cdswf(n)=0 : f=1 : break\r\n\tloop\r\n\tif f=0 : return\r\n\r\n\tzk=rnd(6)+1 ; \u5c5e\u6027\u7a2e\u985e\r\n\t r=rnd(cha_syu(zk))\r\n\t  cn=cha_zoks(zk)+r ; \u30ad\u30e3\u30e9No.\r\n\tcdswf(n)=cn ; \u30d5\u30e9\u30b0\r\n\tif cdsw_setf=0 { ; \u771f\u3093\u4e2d\r\n\t cdswx(n)=wx\/2\r\n\t cdswy(n)=77\r\n\t cdswz(n)=0\r\n\t}\r\n\tif cdsw_setf=3 { ; \u53f3\u304b\u3089\u5de6\u3078\r\n\t cdswx(n)=wx+10\r\n\t cdswy(n)=rnd(wy-coy)\r\n\t cdswz(n)=rnd(157)\r\n\t  if cdswz(n)\\2=1 : cdswz(n)+=1\r\n\t}\r\n\r\n\tcdswd(n)=cdsw_setf ; \u79fb\u52d5\u65b9\u5411\r\n\r\n\treturn\r\n\r\n\r\n#deffunc cdsw_put ; \u30ab\u30fc\u30c9\u30b7\u30e7\u30fc\u8868\u793a\r\n\r\n\tgmode 2\r\n\r\n\trepeat cdswb : n=cnt\r\n\t if cdswf(n)=0 : continue\r\n\t cn=cdswf(n)\r\n\t if cdswd(n)=3 : cdswx(n)-=1 : if cdswx(n)&lt;(0-cox) : cdswf(n)=0 : continue ; \u5de6\u3078\r\n\t cdswz(n)+=2\r\n\t if cdswz(n)\\314=0 {\r\n\t  zk=rnd(6)+1 ; \u5c5e\u6027\u7a2e\u985e\r\n\t   r=rnd(cha_syu(zk))\r\n\t    cdswf(n)=cha_zoks(zk)+r ; \u30ad\u30e3\u30e9No.\r\n\t }\r\n\t zf=sin(double(cdswz(n))*0.01)\r\n\r\n\t pos cdswx(n),cdswy(n) : celput cw,cn-1,zf\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n\r\n; SAVE\u3001LOAD ---------------------------------------------------\r\n\r\n#deffunc save_put\r\n\r\n;color 190,190,190\r\n ;boxf 400,svy1(4),500,svy2(4)\r\n\tevw 0,28+16,24,35,13\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\tevw 1,28+16,24,35,13\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\r\n\tcolor 203,172,49\r\n\trepeat 2,1\r\n\t line svx1,24+8+cnt*64,svx2,24+8+cnt*64\r\n\tloop\r\n\r\n\tgmulcolor 255,255,255\r\n\ts=\"SAVE 1\" : bfp s,svx1+32,svy1(1)+24,5\r\n\t if dtf1=1 : s=\"TURN \"+trn1 : bfp s,svx1+200,svy1(1)+24,5\r\n\ts=\"SAVE 2\" : bfp s,svx1+32,svy1(2)+24,5\r\n\t if dtf2=1 : s=\"TURN \"+trn2 : bfp s,svx1+200,svy1(2)+24,5\r\n\ts=\"SAVE 3\" : bfp s,svx1+32,svy1(3)+24,5\r\n\t if dtf3=1 : s=\"TURN \"+trn3 : bfp s,svx1+200,svy1(3)+24,5\r\n\r\n\tevw 0,28+16,192+24+24+16,35,5\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\tevw 1,28+16,192+24+24+16,35,5\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\r\n\tswitch savef\r\n\t case 0\r\n\t  s=\"AUTO SAVE\" : bfp s,svx1+32,svy1(4)+24,0\r\n\t   if dtf0=1 : s=\"TURN \"+trn0 : bfp s,svx1+200,svy1(4)+24,5\r\n\t swbreak\r\n\t case 1\r\n\t  color 255,255,255\r\n\t   if dt_no=4 {\r\n\t    s=\"AUTO SAVE\" : pfp20 s,svx1+32,svy1(4)+22 ; mes \"AUTO SAVE \u306b\u30bb\u30fc\u30d6\u3057\u307e\u3059\u304b\"\r\n\t     pos svx1+142,svy1(4)+22 : celput mj20_svldw,0\r\n\t   }\r\n\t   else {\r\n\t    s=str(dt_no) : pfp20 s,svx1+32,svy1(4)+23 ; mes \"\"+dt_no+\" \u756a\u306b\u30bb\u30fc\u30d6\u3057\u307e\u3059\u304b\"\r\n\t     pos svx1+62,svy1(4)+22 : celput mj20_svldw,1\r\n\t   }\r\n\t  pos 400,svy1(4)+24 : s=\"YES\" : bfp s,400,svy1(4)+24,5\r\n\t  pos 400,svy1(4)+24 : s=\"NO\"  : bfp s,500,svy1(4)+24,5\r\n\t swbreak\r\n\t case 2\r\n\t  ;color 255,255,255\r\n\t  s=str(dt_no) : pfp20 s,svx1+32,svy1(4)+23 ; mes \"\"+dt_no+\" \u756a\u306b\u30bb\u30fc\u30d6\u3057\u307e\u3057\u305f\"\r\n\t   pos svx1+62,svy1(4)+22 : celput mj20_svldw,2\r\n\t swbreak\r\n\tswend\r\n\r\n\treturn\r\n\r\n\r\n#deffunc load_put\r\n\r\n\tevw 0,28+16,24,35,13\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\tevw 1,28+16,24,35,13\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\r\n\tcolor 203,172,49\r\n\trepeat 3,1\r\n\t line svx1,24+8+cnt*64,svx2,24+8+cnt*64\r\n\tloop\r\n\r\n\tgmulcolor 255,255,255\r\n\r\n\ts=\"SAVE 1\" : bfp s,svx1+32,svy1(1)+24,5\r\n\t if dtf1=1 : s=\"TURN \"+trn1 : bfp s,svx1+200,svy1(1)+24,5\r\n\r\n\ts=\"SAVE 2\" : bfp s,svx1+32,svy1(2)+24,5\r\n\t if dtf2=1 : s=\"TURN \"+trn2 : bfp s,svx1+200,svy1(2)+24,5\r\n\r\n\ts=\"SAVE 3\" : bfp s,svx1+32,svy1(3)+24,5\r\n\t if dtf3=1 : s=\"TURN \"+trn3 : bfp s,svx1+200,svy1(3)+24,5\r\n\r\n\r\n\tevw 0,28+16,192+24+24+16,35,5\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\tevw 1,28+16,192+24+24+16,35,5\t; \u30a4\u30d9\u30f3\u30c8\u30a6\u30a4\u30f3\u30c9\u30a6\u8868\u793a\r\n\r\n\tswitch savef\r\n\t case 0\r\n\t  s=\"AUTO SAVE\" : bfp s,svx1+32,svy1(4)+24,0\r\n\t   if dtf0=1 : s=\"TURN \"+trn0 : bfp s,svx1+200,svy1(4)+24,5\r\n\t swbreak\r\n\t case 1\r\n\t  color 255,255,255\r\n\t   if dt_no=0 {\r\n\t    s=\"AUTO SAVE\" : pfp20 s,svx1+32,svy1(4)+22 ; mes \"AUTO SAVE \u304b\u3089\u30ed\u30fc\u30c9\u3057\u307e\u3059\u304b\"\r\n\t     pos svx1+142,svy1(4)+22 : celput mj20_svldw,3\r\n\t   }\r\n\t   else {\r\n\t    s=str(dt_no) : pfp20 s,svx1+32,svy1(4)+23 ; mes \"\"+dt_no+\" \u756a\u304b\u3089\u30ed\u30fc\u30c9\u3057\u307e\u3059\u304b\"\r\n\t     pos svx1+62,svy1(4)+22 : celput mj20_svldw,4\r\n\t   }\r\n\t  pos 400,svy1(4)+24 : s=\"YES\" : bfp s,400,svy1(4)+24,5\r\n\t  pos 400,svy1(4)+24 : s=\"NO\"  : bfp s,500,svy1(4)+24,5\r\n\t swbreak\r\n\t case 2\r\n\t  color 255,255,255\r\n\t   if dt_no=0 {\r\n\t\ts=\"AUTO SAVE\" : pfp20 s,svx1+32,svy1(4)+22 ; mes \"AUTO SAVE \u304b\u3089\u30ed\u30fc\u30c9\u3057\u307e\u3057\u305f\" : swbreak\r\n\t     pos svx1+142,svy1(4)+22 : celput mj20_svldw,5\r\n\t   }\r\n\t   else {\r\n\t    s=str(dt_no) : pfp20 s,svx1+32,svy1(4)+23 ; mes \"\"+dt_no+\" \u756a\u304b\u3089\u30ed\u30fc\u30c9\u3057\u307e\u3057\u305f\"\r\n\t     pos svx1+62,svy1(4)+22 : celput mj20_svldw,6\r\n\t   }\r\n\t swbreak\r\n\tswend\r\n\r\n\treturn\r\n\r\n\r\n\r\n; \u30a8\u30d5\u30a7\u30af\u30c8 ---------------------------------------------------\r\n\r\n#deffunc dmp_set int dmp_setn1,int dmp_setn2,int dmp_setn3 ; \u30c0\u30e1\u30fc\u30b8\u8868\u793a\u30bb\u30c3\u30c8\r\n; 1=\u5024\u30012=\u4f4d\u7f6eNo.\u30013=\u30ab\u30e9\u30fc\r\n\r\n\trepeat 20 : n=cnt*6 ; \u30d5\u30e9\u30b0\r\n\t if dmp(n)=0 : dmp(n)=1 : break\r\n\tloop\r\n\r\n\tdmp(n+1)=dmp_setn1\t; \u5024\r\n\tif dmp_setn2&lt;=3 : dmp(n+2)=bcx1(dmp_setn2)\t ; x\r\n\tif dmp_setn2&gt;=4 : dmp(n+2)=bcx2(dmp_setn2-3) ; x\r\n\tdmp(n+3)=btly1-30\t; y\r\n\tdmp(n+4)=dmp_setn3\t; \u30ab\u30e9\u30fc\r\n\tdmp(n+5)=25\t\t\t; \u30ab\u30a6\u30f3\u30bf\u30fc\r\n\r\n\treturn\r\n\r\n#deffunc dmp_put ; \u30c0\u30e1\u30fc\u30b8\u8868\u793a\r\n\r\n\trepeat 20 : n=cnt*6\r\n\t if dmp(n)=0 : continue\r\n\t fp48 dmp(n+1),dmp(n+2),dmp(n+3),dmp(n+4)\r\n\t ;fp3 dmp(n+1),dmp(n+2),dmp(n+3),dmp(n+4)\r\n\t dmp(n+3)-=4\r\n\t dmp(n+5)- : if dmp(n+5)=0 : dmp(n)=0\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc bp int bpn2\r\n\r\n;pos 150,325 : mes bpn2\r\n\r\n\tif bpn2=0 : return\r\n\r\n\t;font \"\",30 : color 255,255,255\r\n\tx=230 : y=314\r\n\tif bpn2=1 : pos x,y : celput mj26_4w,26\t\t;mes \"\u53f3\u7d20\u624b\"\r\n\tif bpn2=2 : pos x,y : celput it_ftw,bpn3\t;mes is2(bpn3)\r\n\tif bpn2=3 : pos x,y : celput mj26_4w,27\t\t;mes \"\u5de6\u7d20\u624b\"\r\n\tif bpn2=4 : pos x,y : celput it_ftw,bpn3\t;mes is2(bpn3)\r\n\tif bpn2=5 : pos x,y : celput mj26_4w,28\t\t;mes \"\u7d20ATK\"\r\n\tif bpn2=6 : pos x,y : celput mj26_4w,29\t\t;mes \"\u6025\u964d\u4e0b\"\r\n\r\n\tif bpn2&gt;15 and bpn2&lt;100 : pos x,y : celput abft26w,bpn\r\n\t;if bpn2&gt;15 and bpn2&lt;100 : pos x,y : mes utks(bpn)\r\n\tif bpn2&gt;100 : pos x,y : celput it_ftw,bpn ;mes is2(bpn)\r\n\r\n\t;font \"\",20\r\n\r\n\treturn\r\n\r\n\r\n\r\n#deffunc efsx ; \u5ea7\u6a19x\r\n\r\n\tif efsn2&lt;=3 : ef(efg+6)=bcx1(efsn2)+40\t\t; x\r\n\tif efsn2&gt;=4 : ef(efg+6)=bcx2(efsn2-3)+40\t; x\r\n\r\n\treturn\r\n\r\n\r\n#deffunc efsm int efsmf ; \u5411\u304d\r\n\r\n\trepeat 1\r\n\t if efsmf=1 : eff(efg2+0)*=1.0  : eff(efg2+1)*=1.0  : break ; \u6b63\r\n\t if efsmf=2 : eff(efg2+0)*=-1.0 : eff(efg2+1)*=1.0  : break ; \u5de6\u53f3\u53cd\u8ee2\r\n\t if efsmf=3 : eff(efg2+0)*=1.0  : eff(efg2+1)*=-1.0 : break ; \u4e0a\u4e0b\u53cd\u8ee2\r\n\t if efsmf=4 : eff(efg2+0)*=-1.0 : eff(efg2+1)*=-1.0 : break ; \u5168\u53cd\u8ee2\r\n\tloop\r\n\r\n\tif efsn2&lt;=3 : eff(efg2+0)*=-1.0\t; \u5de6\u306e\u968a\u306e\u5834\u5408\u306e\u53cd\u8ee2\r\n\r\n\treturn\r\n\r\n#deffunc efs int efsf,int efsn1,int efsn3,int efsd,int efsa,int efse,int efsox,int efsoy ; int efsx,int efsy,int dfsr,int dfsrn\r\n; \u30a8\u30d5\u30a7\u30af\u30c8\u30bb\u30c3\u30c8\uff08\u30d5\u30e9\u30b0\u3001\u30b0\u30e9\u3001\u901f\u3055\u3001\u53cd\u8ee2\u3001\u79fb\u52d5\u6642\u9593\u3001\u900f\u660e\u304b\u52a0\u7b97\u304b\u3001\u5927\u304d\u3055x\u3001\u5927\u304d\u3055y\uff09; \u52d5\u304dx\u3001\u52d5\u304dy\u3001\u56de\u8ee2\u3001\u56de\u8ee2\u901f\u5ea6\uff09\r\n\r\n\tif efsf=0 : return\r\n\r\n\tf=0\r\n\trepeat efb ; No,\u30d4\u30c3\u30af\r\n\t if ef(efd*cnt)=0 : efg=efd*cnt : efg2=4*cnt : f=1 : break\r\n\tloop\r\n\tif f=0 : return ; \u7a7a\u304d\u304c\u7121\u3044\r\n\r\n\tef(efg)=efsf\t\t; \u8868\u793a\u7a2e\u985e\r\n\tef(efg+1)=efsn1\t\t; \u30b0\u30e9No.\r\n\t;ef(efg+2)=efsn2\t\t; \u8868\u793a\u5834\u6240\r\n\tef(efg+3)=0\t\t\t; \u30a2\u30cb\u30e1\u30ab\u30a6\u30f3\u30c8\r\n\tef(efg+4)=0\t\t\t; \u30a2\u30cb\u30e1\u901f\u3055\u30ab\u30a6\u30f3\u30c8\r\n\tef(efg+5)=efsn3\t\t; \u30a2\u30cb\u30e1\u901f\u3055\r\n\tef(efg+6)=0\t\t\t; x\r\n\tef(efg+7)=btly1+65\t; y\r\n\tef(efg+8)=0\t\t\t; \u52d5\u304dx\r\n\tef(efg+9)=0\t\t\t; \u52d5\u304dy\r\n\tef(efg+10)=efse\t\t; \u8868\u793a\u7a2e\u985e(0=\u901a\u5e38\u30011=\u52a0\u7b97)\r\n\tef(efg+11)=efsa\t\t; \u79fb\u52d5\u6642\u9593\r\n\r\n\trepeat 4\r\n\t eff(efg2+cnt)=0.0 ; \u30ea\u30bb\u30c3\u30c8\r\n\tloop\r\n\r\n\r\n\tswitch efsf ; \u8868\u793a\u7a2e\u985e\r\n\t case 1 ; \u81ea\u5206\u56fa\u5b9a\r\n\t  if fs=1 : efsn2=ut : else : efsn2=ut+3 ; \u5834\u6240x\r\n\t swbreak\r\n\t case 2 ; \u6575\u56fa\u5b9a\r\n\t  if fs=1 : efsn2=et+3 : else : efsn2=et ; \u5834\u6240x\r\n\t swbreak\r\n\t case 3 ; \u6295\u5c04\r\n\t  if fs=1 : efsn2=ut : else : efsn2=ut+3 ; \u5834\u6240x\r\n\t  n=ut+et-1 : ef(efg+8)=(btlxk*n+btlck)\/efsa : if fs=2 : ef(efg+8)*=-1 ; \u8ddd\u96e2\u3068\u30b9\u30d4\u30fc\u30c9\r\n\t swbreak\r\n\t case 4 ; \u6575\u5168\u4f53\u6295\u5c04\r\n\t  if fs=1 : efsn2=4 : else : efsn2=1 ; \u5834\u6240x\r\n\t  ef(efg+8)=(btlxk*3)\/efsa : if fs=2 : ef(efg+8)*=-1 ; \u8ddd\u96e2\u3068\u30b9\u30d4\u30fc\u30c9\r\n\t swbreak\r\n\t case 5 ; \u5473\u65b9\u5168\u4f53\r\n\t  if fs=1 : efsn2=2 : else : efsn2=5 ; \u5834\u6240x\r\n\t swbreak\r\n\t case 6 ; \u6575\u5168\u4f53\r\n\t  if fs=1 : efsn2=5 : else : efsn2=2 ; \u5834\u6240x\r\n\t swbreak\r\n\t case 7 ; \u53ec\u9084\r\n\t  if fs=1 : efsn2=smn : else : efsn2=smn+3 ; \u5834\u6240x\r\n\t swbreak\r\n\t case 8 ; \u30ea\u30b6\u30ec\u30af\u30b7\u30e7\u30f3\r\n\t  if fs=1 : efsn2=rt : else : efsn2=rt+3 ; \u5834\u6240x\r\n\t swbreak\r\n\tswend\r\n\r\n\tefsx ; x\r\n\r\n\tif efsox=0 : eff(efg2+0)=1.0 : else : eff(efg2+0)=1.0*double(efsox)\/10.0 ; \u5927\u304d\u3055\u4fee\u6b63x\r\n\tif efsoy=0 : eff(efg2+1)=1.0 : else : eff(efg2+1)=1.0*double(efsoy)\/10.0 ; \u5927\u304d\u3055\u4fee\u6b63y\r\n\r\n\tefsm efsd\t; \u5411\u304d\r\n\r\n\r\n; \u56de\u8ee2\r\n\tif btsn=5  : if efsn2&lt;=3 : eff(efg2+2)=0.6  : else : eff(efg2+2)=-0.6\t; \u66f2\u5200\r\n\tif btsn=6  : if efsn2&lt;=3 : eff(efg2+2)=-0.3 : else : eff(efg2+2)=0.3\t; \u523a\u7a81\u5263\r\n\tif btsn=8  : if efsn2&lt;=3 : eff(efg2+2)=-0.9 : else : eff(efg2+2)=0.9\t; \u5927\u5263\r\n\tif btsn=11 : if efsn2&lt;=3 : eff(efg2+2)=0.6  : else : eff(efg2+2)=-0.6\t; \u69cc\r\n\tif btsn=15 { ; \u5927\u7832\r\n\t if fs=1 : eff(efg2+3)=2.0 ; \u56de\u8ee2\r\n\t if fs=2 : eff(efg2+3)=-2.0\r\n\t}\r\n\r\n\tif btsf2=10 : if efsn2&lt;=3 : eff(efg2+2)=1.6 : else : eff(efg2+2)=-1.6\t; \u30d5\u30e3\u30a4\u30e4\u30fc\r\n\tif btsf2=14 : if efsn2&lt;=3 : eff(efg2+2)=0.6 : else : eff(efg2+2)=-0.6\t; \u30d5\u30ec\u30a4\u30e0\u30a2\u30ed\u30fc\r\n\r\n\tif btsf2=20 : if efsn2&lt;=3 : eff(efg2+2)=-1.5 : else : eff(efg2+2)=1.5\t; \u30a2\u30a4\u30b9\u30cb\u30fc\u30c9\u30eb\r\n\tif btsf2=21 : if efsn2&lt;=3 : eff(efg2+2)=1.6  : else : eff(efg2+2)=-1.6\t; \u30a6\u30a9\u30fc\u30bf\u30fc\u30b9\u30c8\u30ea\u30fc\u30e0\r\n\tif btsf2=24 { ; \u30a2\u30a4\u30b9\u30b8\u30e3\u30d9\u30ea\u30f3\r\n\t\tif efsn2&lt;=3 : eff(efg2+2)=-1.6  : else : eff(efg2+2)=1.6\r\n\t\tef(efg+3)=10 : ef(efg+11)=30 ; \u30b0\u30e9\u9014\u4e2d\u304b\u3089\r\n\t}\r\n\tif btsf2=25 : eff(efg2+2)=-1.7 : eff(efg2+2)=1.7\t; \u30a2\u30a4\u30b9\u30d4\u30e9\u30fc\r\n\tif btsf2=28 : ef(efg+7)+=24 ; \u30e1\u30a4\u30eb\u30b7\u30e5\u30c8\u30ed\u30fc\u30e0\r\n\r\n\tif btsf2=37 { ; \u30e9\u30a4\u30c8\u30cb\u30f3\u30b0\u30dc\u30eb\u30c8\r\n\t\tif efsn2&lt;=3 : eff(efg2+2)=1.6  : else : eff(efg2+2)=-1.6\r\n\t}\r\n\tif btsf2=38 {\t; \u30a6\u30a3\u30f3\u30c9\u30b9\u30c8\u30fc\u30e0\r\n\t\tif fs=1 : ef(efg+6)-=60 : else : ef(efg+6)+=60 ; x\r\n\t}\r\n\r\n\tif btsf2=40 : ef(efg+7)-=20 ; \u30a2\u30fc\u30b9\u30ad\u30e5\u30a2\r\n\tif btsf2=42 : ef(efg+7)-=15\t; \u30cd\u30a4\u30c1\u30e3\u30fc\u30d2\u30fc\u30eb\r\n\tif btsf2=46 : if efsn2&lt;=3 : eff(efg2+2)=1.6  : else : eff(efg2+2)=-1.6\t; \u30b9\u30c8\u30fc\u30f3\u30d6\u30e9\u30b9\u30c8\r\n\r\n\tif btsf2=57 : if efsn2&lt;=3 : eff(efg2+2)=1.6  : else : eff(efg2+2)=-1.6\t; \u30b5\u30a4\u30ad\u30c3\u30af\u30d5\u30a9\u30fc\u30b9\r\n\tif btsf2=59 : ef(efg+6)-=1 : ef(efg+7)-=60\t; \u30db\u30fc\u30ea\u30fc\u30e9\u30a4\u30c8\u30b5\u30fc\u30af\u30eb\r\n\tif btsf2=60 : ef(efg+7)-=10\t; \u30ec\u30a4\u30d6\u30ec\u30a4\u30c9\r\n\r\n\tif btsf2=92 : ef(efg+7)-=40\t; \u30b9\u30bf\u30f3\r\n\tif btsf2=105 or btsf2=106 {\t; \u30d5\u30a1\u30a4\u30e4\u30fc\u30d6\u30ec\u30b9\u3001\u30b3\u30fc\u30eb\u30c9\u30d6\u30ec\u30b9\r\n\t\tif fs=1 : eff(efg2+2)=1.5  : ef(efg+6)-=20\r\n\t\tif fs=2 : eff(efg2+2)=-1.5 : ef(efg+6)+=20\r\n\t}\r\n\tif btsf2=108 {\t; \u5486\u54ee\r\n\t\tif fs=1 : ef(efg+6)-=60 : else : ef(efg+6)+=60 ; x\r\n\t}\r\n\tif btsf2=110 {\t; \u30dd\u30a4\u30ba\u30f3\u30d6\u30ec\u30b9\r\n\t\tif fs=1 : ef(efg+6)-=60 : else : ef(efg+6)+=60 ; x\r\n\t}\r\n\tif btsf2=119 { ; \u706b\u708e\u5f3e\r\n\t\tif fs=1 : eff(efg2+2)=-1.6  : else : eff(efg2+2)=1.6\r\n\t}\r\n\tif btsf2=122 : ef(efg+7)-=14 ; \u30d2\u30fc\u30eb\u30aa\u30fc\u30eb\r\n\r\n\r\n\tif btsf2=210 { ; \u30c0\u30a4\u30ca\u30de\u30a4\u30c8\r\n\t if fs=1 : eff(efg2+3)=0.8 ; \u56de\u8ee2\r\n\t if fs=2 : eff(efg2+3)=-0.8\r\n\t}\r\n\r\n\tif btsf2=211 { ; \u7206\u5f3e\r\n\t if fs=1 : eff(efg2+3)=1.7 ; \u56de\u8ee2\r\n\t if fs=2 : eff(efg2+3)=-1.7\r\n\t}\r\n\r\n\r\n\treturn\r\n\r\n\r\n#deffunc efp ; \u30a8\u30d5\u30a7\u30af\u30c8\u30d7\u30c3\u30c8\r\n\r\n\trepeat efb\r\n\t efg=efd*cnt : efg2=4*cnt ; \u30c7\u30fc\u30bf\u306e\u5148\u982d\r\n\t if ef(efg)=0 : continue ; \u7121\u3044\r\n\t ef(efg+4)+ : if ef(efg+4)&gt;=ef(efg+5) : ef(efg+3)+ : ef(efg+4)=0 : ; \u30a2\u30cb\u30e1\u30a6\u30a8\u30a4\u30c8\u51e6\u7406\r\n\r\n\t if ef(efg+10)=0 : gmode 3,,,255 : else : gmode 5,,,255 ; \u900f\u660e\u3001\u52a0\u7b97\r\n\r\n\t pos ef(efg+6),ef(efg+7)\r\n\t  celput efw(ef(efg+1)),ef(efg+3),eff(efg2+0),eff(efg2+1),eff(efg2+2)\r\n\t if ef(efg+3)&gt;=efga(ef(efg+1)) : ef(efg)=0 : break ; \u30a2\u30cb\u30e1\r\n\t if ef(efg+3)&lt;=ef(efg+11) : ef(efg+6)+=ef(efg+8) ; \u52d5\u304dx\r\n\t ef(efg+7)+=ef(efg+9) ; \u52d5\u304dy\r\n\t eff(efg2+2)+=eff(efg2+3) ; \u56de\u8ee2\r\n\tloop\r\n\r\n\treturn\r\n\r\n\r\n#deffunc bts int btsf,int btsc ; \u30a8\u30d5\u30a7\u30af\u30c8\u5206\u914d\r\n\r\n\tbtsn=0 : btsf2=btsf ; \u7a2e\u985e\r\n\r\n\tswitch btsf\r\n\t case 1 ; \u7d20\u30a2\u30bf\u30c3\u30af\r\n\t  if us=6 or us=11 or us=13 or us=33 or us=36 or us=46 or us=51 or us=72 or us=74 or us=97 or us=111 or us=167 or us=181 or us=185 or us=205 : btsn=1\r\n\t  if us=71 or us=92 or us=96 or us=118 or us=132 or us=184 : btsn=2\r\n\t  if us=7 or us=16 or us=52 or us=135 or us=168 : btsn=3\r\n\t  if us=1 or us=8 or us=12 or us=32 or us=35 or us=43 or us=50 or us=73 or us=94 or us=95 or us=112 or us=120 or us=151 or us=152 or us=153 or us=169 or us=190 or us=192 : btsn=4\r\n\t  if us=31 or us=183 : btsn=17 ; \u6025\u964d\u4e0b\r\n\r\n\t  if btsn=0 : efs 2,1,2,1,0,0 : mmplays 21 : swbreak ; \u7d20\u624b\r\n\t  if btsn=1 : efs 2,3,2,1,0,0 : mmplays 22 : swbreak ; \u7259\r\n\t  if btsn=2 : efs 2,2,2,2,0,0 : mmplays 23 : swbreak ; \u722a\r\n\t  if btsn=3 : efs 2,4,2,2,0,0 : mmplays 24 : swbreak ; \u5c3e\r\n\t  if btsn=4 : efs 2,9,2,1,0,0 : mmplays 25 : swbreak ; \u4f53\u5f53\u305f\u308a\r\n\t  if btsn=17 : efs 2,100,2,1,0,0 : mmplays 26 : swbreak ; \u6025\u964d\u4e0b\r\n\t swbreak\r\n\r\n\t case 2 ; \u8fd1\u63a5\u6b66\u5668\u30a2\u30bf\u30c3\u30af\r\n\t  itn=id(ig)\r\n\/*\r\nredraw 0\r\ncolor 255,0,0\r\n pos 100,100 : mes itn\r\nredraw 1\r\npkey\r\n*\/\r\n\t  if itn=9 or itn=10 or itn=16 or itn=24 : btsn=5 : efs 2,5,1,1,0,0 : mmplays 27 : swbreak ; \u66f2\u5200\r\n\t  if itn=8 or itn=11 or itn=14 or itn=23 : btsn=6 : efs 2,7,2,2,0,0 : mmplays 28 : swbreak ; \u523a\u7a81\u5263\r\n\t  if id(ig+19)=1 : btsn=7  : efs 2,15,2,2,0,0 : mmplays 29 : swbreak ; \u5263\r\n\t  if id(ig+19)=2 : btsn=8  : efs 2,11,2,1,0,0 : mmplays 30 : swbreak ; \u5927\u5263\r\n\t  if id(ig+19)=3 : btsn=9  : efs 2, 8,2,1,0,0 : mmplays 31 : swbreak ; \u69cd\r\n\t  if id(ig+19)=4 : btsn=10 : efs 2,12,2,2,0,0 : mmplays 32 : swbreak ; \u65a7\r\n\t  if id(ig+19)=5 : btsn=11 : efs 2,13,2,2,0,0 : mmplays 33 : swbreak ; \u69cc\r\n\t  if id(ig+19)=6 : btsn=12 : efs 2,14,2,4,0,0 : mmplays 34 : swbreak ; \u6756\r\n\t  if id(ig+8)=1  : btsn=7  : efs 2,15,2,2,0,0 : mmplays 39 : swbreak ; \u305d\u306e\u4ed6\u6295\u64f2\r\n\t swbreak\r\n\r\n\t case 3 ; \u6295\u5c04\u6b66\u5668\u30a2\u30bf\u30c3\u30af\r\n\t  if id(ig+19)=7 : btsn=13 : efs 3,16 ,1,1,8,0 : mmplays 35\t: swbreak ; \u5f13\r\n\t  if id(ig+19)=8 : btsn=14 : efs 3,18 ,1,2,9,0 : mmplays 36\t: swbreak ; \u30dc\u30a6\r\n\t  if id(ig)=90\t : btsn=15 : efs 3,107,7,1,5,1,16,16 : mmplays 37 : swbreak ; \u5927\u7832\r\n\t  if id(ig+19)=9 : btsn=16 : efs 2,17 ,1,1,0,0 : mmplays 38\t: swbreak ; \u9283\r\n\t  if id(ig+8)=1  \t\t   : efs 3,104,1,1,8,0 : mmplays 39\t: swbreak ; \u6295\u64f2\r\n\t swbreak\r\n\r\n\r\n\t case 10 : efs 3,20,2,3,14,1\t\t: mmplays 49\t: swbreak\t; \u30d5\u30a1\u30a4\u30e4\u30fc\r\n\t case 11 : efs 1,21,1,1,0 ,1,7 ,7\t: mmplays 50\t: swbreak\t; \u30d5\u30a1\u30a4\u30e4\u30fc\u30a6\u30a7\u30dd\u30f3\r\n\t case 12 : efs 1,22,2,1,0 ,1\t\t: mmplays 51\t: swbreak\t; \u30d0\u30fc\u30b5\u30fc\u30af\r\n\t case 13 : efs 2,23,2,1,0 ,1\t\t: mmplays 52 : swbreak\t; \u30d5\u30a1\u30a4\u30e4\u30fc\u30d4\u30ec\u30a4\u30e0\r\n\t case 14 : efs 3,24,1,1,13,1\t\t: mmplays 53 : swbreak\t; \u30d5\u30ec\u30a4\u30e0\u30a2\u30ed\u30fc\r\n\t case 15 : efs 1,25,1,1,0 ,1\t\t: mmplays 54 : swbreak\t; \u30d0\u30c8\u30eb\u30bd\u30f3\u30b0\r\n\t case 16 : efs 3,26,1,1,7 ,1\t\t: mmplays 55 : swbreak\t; \u30d5\u30a1\u30a4\u30a2\u30fc\u30dc\u30fc\u30eb\r\n\t case 17 : efs 6,28,3,1,0 ,1\t\t: mmplays 57 : swbreak\t; \u30d5\u30a1\u30a4\u30e4\u30fc\u30a6\u30a9\u30fc\u30eb\r\n\t case 18 : efs 6,29,3,1,0 ,1\t\t: mmplays 58 : swbreak\t; \u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30b8\u30e7\u30f3\r\n\r\n\t case 20 : efs 3,30,1,1,18,1,2 ,0\t: mmplays 58 : swbreak\t; \u30a2\u30a4\u30b9\u30cb\u30fc\u30c9\u30eb\r\n\t case 21 : efs 3,31,2,3,17,1\t\t: mmplays 59 : swbreak\t; \u30a6\u30a9\u30fc\u30bf\u30fc\u30b9\u30c8\u30ea\u30fc\u30e0\r\n\t case 22 : efs 1,59,1,1,0 ,1\t\t: mmplays 60 : swbreak\t; \u30d4\u30e5\u30ea\u30d5\u30a1\u30a4\r\n\t case 23 : efs 1,33,1,1,0 ,1,8 ,8\t: mmplays 61 : swbreak\t; \u30a2\u30a4\u30b9\u30a8\u30f3\u30c1\u30e3\u30f3\u30c8\r\n\t case 24 : efs 3,34,1,1,18,1,2 ,18\t: mmplays 62 : swbreak\t; \u30a2\u30a4\u30b9\u30b8\u30e3\u30d9\u30ea\u30f3\r\n\t case 25 : efs 2,35,3,4,0 ,0\t\t: mmplays 63 : swbreak\t; \u30a2\u30a4\u30b9\u30d4\u30e9\u30fc\r\n\t case 26 : efs 1,36,2,1,0 ,1\t\t: mmplays 64 : swbreak\t; \u30a6\u30a9\u30fc\u30bf\u30fc\u30b9\u30af\u30ea\u30fc\u30f3\r\n\t case 27 : efs 6,37,3,1,0 ,1\t\t: mmplays 65 : swbreak\t; \u6d25\u6ce2\r\n\t case 28 : efs 6,38,3,1,0 ,1,25,0\t: mmplays 66 : swbreak\t; \u30e1\u30a4\u30eb\u30b7\u30e5\u30c8\u30ed\u30fc\u30e0\r\n\t case 29\t\t\t\t\t\t\t\t\t\t; \u30d6\u30ea\u30b6\u30fc\u30c9\r\n\t  repeat 3,1\r\n\t   et=cnt : efs 2,39,2,1,0 ,1,8 ,8\r\n\t  loop\r\n\t  mmplays 67\r\n\t swbreak\r\n\r\n\t case 30 : efs 3,40,1,1,8 ,1,0 ,3\t: mmplays 68 : swbreak\t; \u30a6\u30a4\u30f3\u30c9\u30ab\u30c3\u30bf\u30fc\r\n\t case 31 : efs 1,41,2,1,0 ,1,7 ,7\t: mmplays 69 : swbreak\t; \u30a6\u30a4\u30f3\u30c9\u30e0\u30fc\u30d6\r\n\t case 32 : efs 2,42,1,1,0 ,0,6 ,6\t: mmplays 70 : swbreak\t; \u30b5\u30f3\u30c0\u30fc\r\n\t case 33 : efs 1,43,1,1,0 ,0,8 ,8\t: mmplays 71 : swbreak\t; \u30a6\u30a3\u30f3\u30c9\u30a8\u30f3\u30c1\u30e3\u30f3\u30c8\r\n\t case 34 : efs 1,44,1,1,0 ,1,8 ,18\t: mmplays 72 : swbreak\t; \u30b5\u30f3\u30c0\u30fc\u30a6\u30a8\u30dd\u30f3\r\n\t case 35 : efs 6,45,2,1,0 ,0\t\t: mmplays 73 : swbreak\t; \u30bb\u30a4\u30ec\u30fc\u30f3\u30dc\u30a4\u30b9\r\n\t case 36 : efs 1,46,2,1,0 ,1\t\t: mmplays 74 : swbreak\t; \u30a6\u30a3\u30f3\u30c9\u30a6\u30a9\u30fc\u30eb\r\n\t case 37 : efs 6,47,2,1,0 ,1,8 ,30\t: mmplays 75 : swbreak\t; \u30e9\u30a4\u30c8\u30cb\u30f3\u30b0\u30dc\u30eb\u30c8\r\n\t case 38 : efs 4,48,3,1,26,1,14,14\t: mmplays 76 : swbreak\t; \u30a6\u30a3\u30f3\u30c9\u30b9\u30c8\u30fc\u30e0\r\n\r\n\t case 40 : efs 1,49,2,1,0 ,1,14,14\t: mmplays 79 : swbreak\t; \u30a2\u30fc\u30b9\u30ad\u30e5\u30a2\r\n\t case 41 : efs 1,50,2,1,0 ,1,12,12\t: mmplays 78 : swbreak\t; \u30cf\u30fc\u30c9\u30b3\u30fc\u30c6\u30a3\u30f3\u30b0\r\n\t case 42 : efs 1,58,2,1,0 ,1,12,12\t: mmplays 77 : swbreak\t; \u30cd\u30a4\u30c1\u30e3\u30fc\u30d2\u30fc\u30eb\r\n\t case 43 : efs 2,52,1,1,0 ,1,8 ,8\t: mmplays 80 : swbreak\t; \u30b0\u30e9\u30f4\u30a3\u30c6\u30a3\u30de\u30b0\u30cd\u30c3\u30c8\r\n\t case 44 : efs 1,53,2,1,0 ,1\t\t: mmplays 81 : swbreak\t; \u30b0\u30e9\u30d3\u30c6\u30a3\u30a6\u30a8\u30dd\u30f3\r\n\t case 45 : efs 2,54,2,1,0 ,1\t\t: mmplays 82 : swbreak\t; \u30d0\u30a4\u30f3\u30c7\u30a3\u30f3\u30b0\u30d6\u30e9\u30f3\u30c1\r\n\t case 46 : efs 3,55,2,1,14,0\t\t: mmplays 83 : swbreak\t; \u30b9\u30c8\u30fc\u30f3\u30d6\u30e9\u30b9\u30c8\r\n\t case 47 : efs 7,56,2,1,0 ,1\t\t: mmplays 84 : swbreak\t; \u30b4\u30fc\u30ec\u30e0\u30af\u30ea\u30a8\u30a4\u30c8\r\n\t case 48 : efs 6,57,3,1,0 ,0,0 ,13\t: mmplays 85 : swbreak\t; \u30a2\u30fc\u30b9\u30af\u30a8\u30a4\u30af\r\n\r\n\t case 50 : efs 1,60,1,1,0 ,1,7 ,7\t: mmplays 86 : swbreak\t; \u30d2\u30fc\u30eb\r\n\t case 51 : efs 2,61,2,1,0 ,1,8 ,8\t: mmplays 87 : swbreak\t; \u30bf\u30fc\u30f3\u30a2\u30f3\u30c7\u30c3\u30c9\r\n\t case 52 : efs 1,62,1,1,0 ,1,7 ,7\t: mmplays 88 : swbreak\t; \u30d5\u30a9\u30fc\u30b9\u30bb\u30f3\u30b9\r\n\t case 53 : efs 1,63,2,1,0 ,1\t\t: mmplays 89 : swbreak\t; \u30db\u30fc\u30ea\u30fc\u30e9\u30a4\u30c8\u30ad\u30e5\u30a2\r\n\t case 54 : efs 1,64,1,1,0 ,1,7 ,7\t: mmplays 90 : swbreak\t; \u30db\u30fc\u30ea\u30fc\u30a6\u30a8\u30dd\u30f3\r\n\t case 55 : efs 1,65,2,1,0 ,1\t\t: mmplays 91 : swbreak\t; \u30d7\u30ed\u30c6\u30af\u30c8\r\n\t case 56 : efs 3,66,1,2,5 ,1,0 ,17\t: mmplays 92 : swbreak\t; \u30ec\u30a4\u30a2\u30ed\u30fc\r\n\t case 57 : efs 3,67,1,3,8 ,1\t\t: mmplays 93 : swbreak\t; \u30b5\u30a4\u30ad\u30c3\u30af\u30d5\u30a9\u30fc\u30b9\r\n\t case 58 : efs 1,68,1,1,0 ,1,7 ,7\t: mmplays 94 : swbreak\t; \u30d6\u30ec\u30b9\r\n\t case 59 : efs 1,69,1,1,0 ,1,17,17\t: mmplays 95 : swbreak\t; \u30db\u30fc\u30ea\u30fc\u30e9\u30a4\u30c8\u30b5\u30fc\u30af\u30eb\r\n\t case 60 : efs 2,70,2,2,0 ,1,9 ,9\t: mmplays 96 : swbreak\t; \u30ec\u30a4\u30d6\u30ec\u30a4\u30c9\r\n\t case 61 : efs 5,71,3,1,0 ,1,50,7\t\t\t\t: swbreak\t; \u30db\u30fc\u30ea\u30fc\u30e9\u30a4\u30c8\u30d2\u30fc\u30eb\r\n\t case 62 : efs 7,72,2,1,0 ,1\t\t: mmplays 98 : swbreak\t; \u30a6\u30a3\u30eb\u30fb\u30aa\u30fb\u30a6\u30a3\u30b9\u30d7\r\n\t case 63 : efs 8,32,2,1,0 ,1\t\t: mmplays 99 : swbreak\t; \u30ea\u30b6\u30ec\u30af\u30b7\u30e7\u30f3\r\n\r\n\t case 70 : efs 2,73,1,1,0 ,1,9 ,9\t: mmplays 100 : swbreak\t; \u30de\u30a4\u30f3\u30c9\u30d6\u30e9\u30b9\u30c8\r\n\t case 71 : efs 2,74,2,1,0 ,1,16,16\t: mmplays 101 : swbreak\t; \u30dd\u30a4\u30ba\u30f3\r\n\t case 72 : efs 2,75,2,1,0 ,0,20,20\t: mmplays 102 : swbreak\t; \u90aa\u773c\r\n\t case 73 : efs 2,76,1,1,0 ,1\t\t: mmplays 103 : swbreak\t; \u30c1\u30e3\u30fc\u30e0\r\n\t case 74 : efs 2,77,1,1,0 ,1\t\t: mmplays 104 : swbreak\t; \u30a6\u30a3\u30fc\u30af\u30cd\u30b9\r\n\t case 75 : efs 2,78,2,1,0 ,1\t\t: mmplays 105 : swbreak\t; \u30ab\u30fc\u30b9\r\n\t case 76 : efs 2,79,1,1,0 ,1\t\t: mmplays 106 : swbreak\t; \u30c0\u30fc\u30af\u30cd\u30b9\r\n\t case 77 ; \u30d5\u30ec\u30a4\u30e0\u30ab\u30fc\u30b9\r\n\t  repeat 3,1\r\n\t   et=cnt : efs 2,80,2,1,0 ,1,14,14\r\n\t  loop\r\n\t  mmplays 107\r\n\t swbreak\r\n\t case 78 : efs 7,81,2,1,0 ,1\t\t: mmplays 108 : swbreak\t; \u30c7\u30e2\u30f3\u30ba\u30b2\u30fc\u30c8\r\n\r\n\r\n; \u305d\u306e\u4ed6\u306e\u30a8\u30d5\u30a7\u30af\u30c8\r\n\r\n\t case 90 : efs 2,27,1,1,0 ,1\t\t: mmplays 56 : swbreak\t; \u30d5\u30a1\u30a4\u30a2\u30fc\u30dc\u30fc\u30eb\u306e\u7206\u767a\r\n\r\n\t case 91 : n=btsc+1 : efs n,91,2,1,0 ,0,8 ,8\t: swbreak ; \u9ebb\u75fa\r\n\t case 92 : n=btsc+1 : efs n,90,1,1,0 ,1\t\t\t: swbreak ; \u30b9\u30bf\u30f3\r\n\t case 93 : n=btsc+1 : efs n,92,1,1,0 ,1\t\t\t: swbreak ; \u9b45\u60d1\u3001\u81ea\r\n\t case 94 : n=btsc+1 : efs n,93,2,1,0 ,1\t\t\t: swbreak ; \u706b\u50b7\r\n\t case 95 : n=btsc+1 : efs n,74,2,1,0 ,1\t\t\t: swbreak ; \u6bd2\r\n\r\n\t case 96 : efs 1,43,2,1,0 ,1,9 ,9\t: mmplays 114 : swbreak\t; \u518d\u751f\r\n\r\n\t case 97 : efs 2,92,1,1,0 ,1\t\t: mmplays 103 : swbreak\t; \u9b45\u60d1\u3001\u6575\r\n\r\n; \u7279\u6b8a\r\n\r\n\t case 101 : efs 2,76,1,1,0 ,1\t\t: mmplays 103 : swbreak\t; \u30c1\u30e3\u30fc\u30e0\r\n\t case 102 : efs 7,81,2,1,0 ,1\t\t: mmplays 117 : swbreak\t; \u30cd\u30af\u30ed\u30de\u30f3\u30b5\u30fc\r\n\t case 103 : efs 2,82,1,1,0 ,1\t\t: mmplays 118 : swbreak\t; \u5438\u8840\r\n\t case 104 : efs 2,83,1,1,0 ,1,7 ,7\t: mmplays 119 : swbreak\t; \u30ca\u30a4\u30c8\u30e1\u30a2\r\n\t case 105 : efs 6,84,1,4,0 ,1,5 ,18\t: mmplays 120 : swbreak\t; \u30d5\u30a1\u30a4\u30e4\u30fc\u30d6\u30ec\u30b9\r\n\t case 106 : efs 6,85,1,4,0 ,1,5 ,18\t: mmplays 121 : swbreak\t; \u30b3\u30fc\u30eb\u30c9\u30d6\u30ec\u30b9\r\n\t case 107 : efs 6,47,2,1,0 ,1\t\t: mmplays 75  : swbreak\t; \u30b5\u30f3\u30c0\u30fc\u30d6\u30ec\u30b9\r\n\t case 108 : efs 4,86,1,2,15,1\t\t: mmplays 123 : swbreak\t; \u5486\u54ee\r\n\t case 109 : efs 6,87,1,1,0 ,1,20,0\t: mmplays 124 : swbreak\t; \u30db\u30fc\u30ea\u30fc\u30d6\u30ec\u30b9\r\n\t case 110 : efs 4,78,2,1,20,1\t\t: mmplays 125 : swbreak\t; \u30dd\u30a4\u30ba\u30f3\u30d6\u30ec\u30b9\r\n\t case 111 : efs 6,37,3,1,0 ,1\t\t: mmplays 65  : swbreak\t; \u6d25\u6ce2\r\n\t case 112 : efs 2,89,2,1,0 ,1\t\t: mmplays 127 : swbreak\t; \u706b\u306e\u606f\r\n\t case 113 : efs 2,27,1,1,0 ,1\t\t: mmplays 56  : swbreak\t; \u30d5\u30a1\u30a4\u30a2\u30fc\u30dc\u30fc\u30eb\u306e\u7206\u767a\r\n\t case 114 : efs 3,26,1,1,7 ,1\t\t: mmplays 55  : swbreak\t; \u30d5\u30a1\u30a4\u30a2\u30fc\u30dc\u30fc\u30eb\r\n\t case 115 : efs 6,29,3,1,0 ,1\t\t: mmplays 130 : swbreak\t; \u30d5\u30a1\u30a4\u30a2\u30fc\u30b9\u30c8\u30fc\u30e0\r\n\t case 116 : efs 6,39,2,1,0 ,1\t\t: mmplays 131 : swbreak\t; \u30b3\u30fc\u30eb\u30c9\u30b9\u30c8\u30fc\u30e0\r\n\t case 117 : efs 2,80,2,1,0 ,1\t\t: mmplays 132 : swbreak\t; \u30c0\u30fc\u30af\u30b9\u30d5\u30a3\u30a2\r\n\t case 118 : efs 3,48,3,0,20,1\t\t: mmplays 133 : swbreak\t; \u30a6\u30a3\u30f3\u30c9\u30b9\u30c8\u30fc\u30e0\r\n\t case 119 : efs 3,23,2,0,17,1\t\t: mmplays 134 : swbreak\t; \u706b\u708e\u5f3e\r\n\t case 120 : efs 2,101,1,0,0,1\t\t: mmplays 135 : swbreak\t; \u5ca9\u6295\u4e0b\r\n\t case 121 : efs 1,102,2,0,0,1\t\t: mmplays 86  : swbreak\t; \u5929\u4f7f\u7cfb\u30d2\u30fc\u30eb\r\n\t case 122 : efs 5,69,3,1,0 ,1,50,15\t: swbreak\t; \u5929\u4f7f\u7cfb\u30d2\u30fc\u30eb\u30aa\u30fc\u30eb\r\n\t case 123 : efs 1,103,1,1,0,1\t\t: swbreak\t; \u30d2\u30fc\u30eb\u30bd\u30f3\u30b0\r\n\r\n\t \r\n\r\n; \u30a2\u30a4\u30c6\u30e0\r\n\r\n\t case 201 : efs 1,94,2,1,0 ,1,6,6\t: mmplays 41 : swbreak\t; \u5305\u5e2f\r\n\t case 202 : efs 1,95,2,1,0 ,1\t\t: mmplays 42 : swbreak\t; \u30dd\u30fc\u30b7\u30e7\u30f3\r\n\t case 203 : efs 1,94,2,1,0 ,1,7,7\t: swbreak\t; \u6551\u6025\u7bb1\r\n\t case 204 : efs 1,95,2,1,0 ,1,14,14\t: mmplays 43 : swbreak\t; \u30e9\u30fc\u30b8\u30dd\u30fc\u30b7\u30e7\u30f3\r\n\t case 205 : efs 1,96,2,1,0 ,1,8,8\t: mmplays 44 :  swbreak\t; \u706b\u50b7\u306e\u5857\u308a\u85ac\r\n\t case 206 : efs 1,97,2,1,0 ,1,8,8\t: mmplays 45 :  swbreak\t; \u30d5\u30a1\u30a4\u30a2\u30fc\u30c9\u30ed\u30c3\u30d7\r\n\t case 207 : efs 1,98,2,1,0 ,1,8,8\t: mmplays 46 :  swbreak\t; \u30de\u30d2\u6d88\u3057\r\n\t case 208 : efs 1,56,2,1,0 ,1,8,8\t: mmplays 47 :  swbreak\t; \u6c17\u4ed8\u3051\u85ac\r\n\t case 209 : efs 1,99,2,1,0 ,1,8,8\t: mmplays 48 :  swbreak\t; \u6bd2\u6d88\u3057\r\n\t case 210 : efs 3,105,10,1,7,1,25,25 : swbreak\t; \u30c0\u30a4\u30ca\u30de\u30a4\u30c8\r\n\t case 211 : efs 3,106,10,1,7,1,25,25 : swbreak\t; \u7206\u5f3e\r\n\r\n\r\n\r\n; \u6295\u64f2 96\u3001\u526345\r\n\r\n; \u30d2\u30fc\u30eb\u30bd\u30f3\u30b0 112f\r\n; \u5929\u4f7f\u7cfb\u30d2\u30fc\u30eb 074,\u56de\u5fa9\u7cfb1-1,\r\n\r\n; \u6025\u964d\u4e0b085\u3001084.\u52632-3\r\n; \u5ca9\u6295\u4e0b\u3001\u57301-2\u30011-3\u3001\u57301\u3001\r\n; \u706b\u708e\u5f3e102a\u706b16\r\n\r\n\r\n;\u5305\u5e2f\u3000008.013b-1.51.116a,\r\n;POT 107f.029,\r\n;\u30ad\u30e5\u30a2\u3000025,029.051\uff5e.065\uff5e\u3001073.013a,013a-1,013a-2,\r\n\r\n;\u89e3\u6bd2 \u56de\u5fa912,\r\n;\u89e3\u9ebb\u75fa\u3001\u6c17\u7d76\u3000\u56de\u5fa92,\u51493.\r\n;\u89e3\u706b\u50b7\u3000\u706b2,\u706b3,\r\n;\u89e3\u6c37\u3000\u6c341\r\n;\u89e3\u546a\u3000\u95c717\u3001\r\n\r\n\tswend\r\n\r\n\treturn\r\n<\/pre>\n<p>\u3000\u305f\u304f\u3055\u3093\uff083500\u884c\uff09\u66f8\u3044\u3066\u3042\u308b\u3051\u3069\u3001\u3053\u308c\u304c\u3053\u306e\u30b2\u30fc\u30e0\u306e\u8868\u793a\u306e\u307b\u3068\u3093\u3069\u5168\u3066\u3060\u3002<\/p>\n<p>\u3000\u305d\u308c\u3068 660\u884c\u307e\u3067\u306f\u8868\u793a\u306e\u305f\u3081\u306e\u5909\u6570\u5b9a\u7fa9\u306b\u306a\u3063\u3066\u308b\u3002<\/p>\n<p>\u3000mes\u547d\u4ee4\u304c\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3067\u6b8b\u3063\u3066\u308b\u304b\u3089\u3001\u3069\u3053\u304c\u5909\u66f4\u306b\u306a\u3063\u305f\u306e\u304b\u591a\u5c11\u5206\u304b\u308b\u3068\u601d\u3046\u3002<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><br \/>\n\u3000\u4ee5\u4e0a\u3067\u3059\u3002<\/p>\n<p>\u3000\u5f8c\u6b8b\u3063\u3066\u308b\u4f5c\u696d\u306f\u30aa\u30fc\u30d7\u30cb\u30f3\u30b0\u3068\u30a8\u30f3\u30c7\u30a3\u30f3\u30b0\u3001\u5f8c\u306f\u30c6\u30b9\u30c8\u30d7\u30ec\u30a4\u3001\u30c7\u30d0\u30c3\u30b0\u3001\u30d0\u30e9\u30f3\u30b9\u8abf\u6574\u3002<\/p>\n<p>\u3000\u767a\u58f2\u306f 4\u6708\u304b 5\u6708\u306b\u306a\u308b\u3068\u601d\u3046\u3051\u3069\u30013\u5e74\u524d\u306e 5\u6708\u304b\u3089\u4f5c\u308a\u59cb\u3081\u3066\u308b\u307f\u305f\u3044\u306a\u306e\u3067\u3001\u4e38 3\u5e74\u304b\u304b\u3063\u305f\u3068\u3044\u3046\u4e8b\u306b\u306a\u308a\u305d\u3046\u3002<br \/>\n<strong>\u3000<\/strong><br \/>\n<strong>\u3000<\/strong><\/p>\n","protected":false},"excerpt":{"rendered":"<p>2020\u5e74 3\u6708 26\u65e5 \u3000 \u3000 \u3000\u524d\u56de\u306e\u691c\u8a3c\u304b\u3089\u753b\u50cf\u306f .png\u3067\u7d71\u4e00\u3057\u305f\u65b9\u304c\u826f\u3055\u305d\u3046\u3060\u3063\u305f\u306e\u3067\u5168\u90e8 png\u306b\u76f4\u3057\u305f\u3002 \u3000\u4f75\u305b\u3066 mes\u547d\u4ee4\u306b\u3088\u308b\u6587\u5b57\u8868\u793a\u3092\u5168\u90e8\u753b\u50cf\u306b\u5909\u66f4\u3057\u305f\u3002 \u3000\u6587\u5b57\u3092\u30b0\u30e9\u30bd\u30d5\u30c8\u3067\u5168\u90e8\u63cf\u304b\u306a\u3051\u308c\u3070\u3044\u3051 &hellip; <a href=\"https:\/\/sinsei.space\/blog\/8458\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;Hextrategy \u753b\u50cf\u3092\u5168\u3066 PNG\u3067\u7d71\u4e00\u3057\u305f&#8221; \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":[16,20,13],"tags":[],"class_list":["post-8458","post","type-post","status-publish","format-standard","hentry","category-hextrategy","category-20","category-13"],"_links":{"self":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/8458","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=8458"}],"version-history":[{"count":20,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/8458\/revisions"}],"predecessor-version":[{"id":8499,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/posts\/8458\/revisions\/8499"}],"wp:attachment":[{"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/media?parent=8458"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/categories?post=8458"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sinsei.space\/blog\/wp-json\/wp\/v2\/tags?post=8458"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}