'画面設定
acls:xscreen 3:display 1
'スプライト宣言
spset 0,0
'無限ループって怖くね?
while 1
'タッチ座標の取得
touch out t,x,y
'移動済みフラグが0の場合はタッチされた場所へ移動し、移動済みフラグをオンに
if f==0&&t then spofs 0,x,y:f=1
'移動済みフラグが1の場合でアニメーションしていない場合はアニメーション[(200,200)へ]
if spchk(0)==0&&f==1 then spanim 0,"XY",-60,200,200
'垂直同期
vsync 1
'ループ終わったッ!第3部完ッ!
wend
1そうだね プレイ済み