|
|
2006/4/14(Fri) 17:35:36|NO.397
今、私はSRPGをつくっているのですが、ちょっとした難問にぶつかったので質問させていた
だきます。
それは、マップの位置情報をマウスで読み取り、次の処理にまわすというものなのですが、
下のスクリプトを実行すると、マップは表示されるのですがその後フリーズしてしまうので
す。ちなみに、使用している画像MAPBG2は、64×64のマップチップが横に4つ並んだもので
す。
per
sdim map,1000
screen 0,192,192
buffer 1,,,0
picload "MAPBG2.bmp"
gsel 0
map="000"
map=map+"000"
map=map+"000"
i=0
j=0
repeat 3
cnty=cnt
repeat 3
code=peek(map,i)
pd=code-'0'
pos cnt*64,cnty*64
gcopy 1,pd*64,0,64,64
i++
loop
j++
loop
*main
stick a:if a&256:{x=mousex:y=mousey:goto *ne}
goto*main
*ne
if (x>=64&x<=128)&(y>=64&y<=128):end
goto*main
/per
よろしくお願いします。
|
mousex,mousey
