[shiftup.net] ツクローアドベンチャー2
スクリプトマニュアル

機能別 ABC順
キー押下状態キー入力マウス入力データセーブデータロード文字列入力

■キー押下状態 menu abc
書式
keydown キー番号 変数名
指定したキーが押されてるかどうか(0または1)が変数にセットされる
※キー番号に変数指定可
※キー番号はkeyコマンドの例で調べることができる
keydown 90 isDown	; 90=Zキー
if isDown = 1 then
	Zキーが押されています
endif
参考スクリプト:hitTest.txt

■キー入力 menu abc
書式 key 変数名
そのとき押されているキー番号が(1つだけ)変数にセットされる。
; キー番号を調べるスクリプト
msg
 何かキーを押してください
 (スペースキーで終了)
endtext
*loop_50
wait 1
key a
if a = 0 goto loop_50 ; 押されていない
if a = 32 then ; 32=スペース
 end
endif
msg
 押されたキーの番号は$a$
 (スペースキーで終了)
endtext
goto loop_50
参考スクリプト:rhythm.txt

■マウス入力 menu abc
書式
mouse 変数名1 変数名2 変数名3
変数1、変数2に、そのときのマウスカーソルの座標(エディタのグリッド目盛り)、変数3にマウスボタンが押されてるかどうか(0または1)がセットされる
*loop
mouse mx my mdown
msg
	マウス座標($mx$、$my$)
.
wait 1
if mdown = 0 goto loop
参考スクリプト:ponta.txt

■データセーブ menu abc
書式
save 変数名1
	変数名2
	変数名3
	変数名4
	 ・
	 ・
	 ・
endsave
変数名2、3、4・・・をセーブする
結果を変数名1に返す
 0以上のとき:正しくセーブされた
 0未満のとき:セーブできなかった
※ゲストで起動したときは、開発者のPC1台につきセーブ箇所1つです
※ログイン起動して、エディタで実行しているときは、ログイン者1人につきセーブ箇所1つです
※リリース後は、各プレイヤーPC1台の各スクリプト毎にセーブできます
dt_cd = 123
dt_name = "aiueo"
dt_sts = 100 50 10
save m0
	dt_cd
	dt_name
	dt_sts[0]
	dt_sts[1]
	dt_sts[2]
endsave
if m0 < 0 then
	セーブできませんでした
else
	セーブOK!
endif
参考スクリプト:save.txt

■データロード menu abc
書式
loadval 変数名1
	変数名2
	変数名3
	変数名4
	 ・
	 ・
	 ・
endloadval
セーブ済みのデータを、変数名2、3、4・・・にロードする
結果を変数名1に返す(ロードできたとき、セーブしてからの経過秒数)
 0以上のとき:正しくロードされた
 0未満のとき:ロードできなかった
dt_cd = 0
dt_name = ""
dt_sts = 0 0 0
loadval m0
	dt_cd
	dt_name
	dt_sts[0]
	dt_sts[1]
	dt_sts[2]
endloadval
if m0 < 0 then
	セーブデータがありません
else
	ロードOK!
	セーブしてからの時間:$m0$秒
	dt_cd=$dt_cd$
	名前:$dt_name$
	HP:$dt_sts[0]$
	ATK:$dt_sts[1]$
	DEF:$dt_sts[2]$
endif
参考スクリプト:save.txt

■文字列入力 menu abc
書式
input 変数1 変数2 変数3
テキスト入力エリア、OKボタン、キャンセルボタンを表示してユーザーの入力を待つ
このとき、変数1にセットした値がデフォルト表示される
各結果を次のように返す
 変数1:入力された文字列
 変数2:
  1のとき:キャンセルボタンが押された
  0のとき:OKボタンが押され、使用できない文字が含まれない
  2のとき:OKボタンが押され、使用できない文字が含まれる
 変数3:入力された文字列の文字数
※使用できる文字の制限は、PC環境によって異なる
wMsg = ""
*lbl_loop
clear
input wMsg m0 suuMoji
if m0 = 1 then
	; 戻る
	end
else if m0 = 2 then
	使用できない文字が含まれています
	goto lbl_loop
else if suuMoji = 0 then
	goto lbl_loop
else if suuMoji > 5 then
	5文字までです
	goto lbl_loop
endif
入力された文字列は「$wMsg$」です
参考スクリプト:save.txt

Copyright SHIFTUP.