ドラッグで画像をぐりぐり
*define
numalias x,10
numalias y,11
numalias dX,12
numalias dY,13
numalias nowX,14
numalias nowY,15
game

*start
saveoff
print 1
mov %x,0
mov %y,0

*init
lsp 1,":s#FFFFFFあいうえお",%x,%y
itoa $x,%x
itoa $y,%y
caption $x + "," + $y
btndef clear
spbtn 1,1
btndown 1

*loop
btnwait %0
if %0 == 1 getmousepos %0,%1:mov %dx,%x - %0:mov %dy,%y - %1:goto *move
goto *loop

*move
wait 3
isdown %0
if %0 == 0 mov %x,%nowX:mov %y,%nowY:goto *init
getmousepos %0,%1
amsp 1,%0 + %dx,%1 + %dy
print 1
mov %nowX,%0 + %dx
mov %nowY,%1 + %dy
goto *move


「スプライトをどこに表示させよっかな……」って時に使えるスクリプト。
 lsp 1,":s#FFFFFFあいうえお",%x,%y
 の部分を変えれば任意の画像を動かせます。
 マウスでぐりぐり動かしてるだけで、けっこう楽しかったり。
[PR]
by lyricist_m | 2008-06-02 20:52 | NScripter
<< グローバル変数とsaveoff 戦利品 >>