飛びたいラベルへ直接ジャンプ
*direct_jump
input $0,"飛びたいラベルを半角で入力してください。","*s",10,0
labelexist %0,$0
if %0 == 0 mesbox "入力されたラベルは存在しません。","ラベルエラー!":goto *direct_jump
goto $0

 クリック待ちの時にF1を押したら上記のスクリプトに飛ぶ、とかするとデバッグの時に便利かもしれない。自分の場合はデバッグ用のシーンセレクト画面にこれを置いている。最後の1行がgoto $0ではなくてgosub $0だが。
 エラー処理なんかをやってないので、
 1.gosubのスタックが積まれている状態で飛ぶと危険かも
 2.存在するラベルが入力されるまでループを抜けられない
 という問題がある。自分はこれで十分満足しているが、もし使う場合は各自変更した方がいいかも。
[PR]
by lyricist_m | 2007-12-08 16:51 | NScripter
<< getspsizeでスプライト... 冬コミに新作出します。 >>