;命令定義
@define_commands
defsub unlock,"N"
defsub volume_load,""
defsub design_load,""
defsub bgm,"SNN"
defsub bgmfade,"N"
defsub se1,"S"
defsub se2,"SN"
defsub selp,"NSN"
defsub selpstop,"N"
defsub selpstopall,""
defsub rnd,"RNN"
defsub zeropad,"NR"
defsub system,"NN"
defsub system_menu,""
defsub system_btndef,""
defsub system_2_popup,"N"
defsub stage_spset,""
defsub stage_spsetdelete,""
defsub caption_stage,""
defsub potential,""
defsub panel_format,""
defsub panel_format_adj,""
defsub panel_open,"NN"
defsub panel_open_fw,"NN"
defsub panel_open_adj,"NN"
defsub panel_blank,"NN"
defsub panel_blank_open,"NN"
defsub panel_blank_reserve,"NN"
defsub panel_hacking,"NN"
defsub panel_attack,"NN"
defsub panel_induced,"NN"
defsub panel_explosion,""
defsub panel_firewall,"NN"
defsub panel_extinguishing,"NN"
defsub spanime,"N"
defsub spwait,"S"
defsub manual,"N"
defsub state_depth,""
defsub state_mark_format,""
defsub state_fw,""
defsub state_hp,""
defsub state_hp_update,"N"
defsub state_hack,""
defsub state_hack_update,"N"
defsub state_hacks,""
defsub state_hacks_update,"N"
defsub orgasm,"N"
defsub orgasm_update,"NN"
defsub orgasm_orgnum,""
defsub orgasm_orgnum_update,"N"
defsub panelset_fw,"N"
defsub panelset_securityhole,""
defsub character_body,""
defsub character_mask,""
defsub trans_stdp,""
defsub txt,"SNS"
defsub mes,"NS"
defsub backlog_format,""
defsub backlog_reload,"SNN"
defsub event,"SS"
defsub eventse,""
defsub operation,""
defsub pict_diff,""
defsub operation_pass_format,"N"
defsub operation_pass_fix,"SSS"
defsub debug_btn,""
defsub debug_btndef,""
defsub debug_com,""
return

;システム変数設定
@varset_100
_clear=0
_retry=0
_sech=10
_volume[0][0]=0
_volume[0][1]=7
_volume[1][0]=0
_volume[1][1]=7
_volume[2][0]=0
_volume[2][1]=10
_volume[3][0]=0
_volume[3][1]=10
_manualpage=1
_manualpopup=1
for %i=0 to 99
	_manualpopup[%i]=0
next
_operation_pass[0][11][0]=1
unlock 0
return

@varset_101
_playback_menu=0
_playback_speed=5
return

@varset_102
_shot=0
return

@varset_103
for %stage=1 to 5
	for %select=1 to 5
		_operation_pass[%stage][11][%select]=1
	next
next
return

;アンロック
@unlock
param %flag
for %stage=1 to 5
	for %depth=1 to 11
		for %lv=0 to 5
			_operation_pass[%stage][%depth][%lv]=%flag
		next
	next
next
return

;ＵＩデザイン読込
@design_load
font "caption",{name="ＭＳ ゴシック",style="outline",color=#ffffff,outlinecolor=#000000,width=10,height=18}
font "caption_ruby",{name="ＭＳ ゴシック",style="outline",color=#ffffff,outlinecolor=#000000,width=14,height=14}
font "event_0",{name="ＭＳ ゴシック",color=#ffffff,width=14,height=24}
font "event_0_ruby",{name="ＭＳ ゴシック",color=#ffffff,width=16,height=16}
font "event_1",{name="ＭＳ ゴシック",color=#bfc5ff,width=14,height=24}
font "event_1_ruby",{name="ＭＳ ゴシック",color=#bfc5ff,width=16,height=16}
font "event_2",{name="ＭＳ ゴシック",color=#c9165d,width=14,height=24}
font "event_2_ruby",{name="ＭＳ ゴシック",color=#c9165d,width=16,height=16}
font "event_3",{name="ＭＳ ゴシック",color=#A869D2,width=14,height=24}
font "event_3_ruby",{name="ＭＳ ゴシック",color=#A869D2,width=16,height=16}
font "event_4",{name="ＭＳ ゴシック",color=#00ae9b,width=14,height=24}
font "event_4_ruby",{name="ＭＳ ゴシック",color=#00ae9b,width=16,height=16}
font "operation",{name="ＭＳ ゴシック",style="outline",color=#ffffff,outlinecolor=#000000,width=12,height=22}
font "manual_head",{name="ＭＳ ゴシック",style="outline",color=#ffffff,outlinecolor=#000000,width=20,height=30}
font "manual_text_1",{name="ＭＳ ゴシック",style="outline",color=#ffffff,outlinecolor=#000000,width=12,height=22}
font "manual_text_0",{name="ＭＳ ゴシック",style="outline",color=#ff0090,outlinecolor=#000000,width=12,height=22}
font "manual_ruby_1",{name="ＭＳ ゴシック",style="outline",color=#ffffff,outlinecolor=#000000,width=12,height=12}
font "manual_ruby_0",{name="ＭＳ ゴシック",style="outline",color=#ff0090,outlinecolor=#000000,width=12,height=12}
return

;音声ボリューム読込
@volume_load
if _volume[0][0]==1 or _volume[1][0]==1 or _volume[0][1]==0 or _volume[1][1]==0 then bgmvolume -10000 else bgmvolume -3000+_volume[1][1]*_volume[0][1]*30
if _volume[0][0]==1 or _volume[3][0]==1 or _volume[0][1]==0 or _volume[3][1]==0 then
	for %i=0 to 9
		sechvolume %i,-10000
	next
else
	for %i=0 to 9
		sechvolume %i,-3000+_volume[0][1]*_volume[3][1]*30
	next
endif
return

;ＢＧＭ
@bgm
param %file,%once,%fade
if %file==bgmnum then return
if %once==0 then
	bgmplay "bgm\bgm_"+%file+".ogg"
else
	bgmplayonce "bgm\bgm_"+%file+".ogg"
endif
if _volume[0][0]==0 and _volume[1][0]==0 and _volume[0][1]>0 and _volume[1][1]>0 and %fade>0 then
	%range=4000-3000+_volume[1][1]*_volume[0][1]*30
	%inc=%range/%fade
	resettimer
	for %i=1 to %fade
		bgmvolume -4000+%inc*%i
		waittimer %i
	next
	bgmvolume -3000+_volume[1][1]*_volume[0][1]*30
endif
bgmnum=%file
return

;ＢＧＭＦＡＤＥ
@bgmfade
param %fade
bgmfadeout %fade
bgmstop
bgmnum=""
return

;ＳＥ１
@se1
if _volume[0][0]==1 or _volume[2][0]==1 or _volume[0][1]==0 or _volume[2][1]==0 then return
param %file
splay "SE"+str(_sech),{name="se1\se1_"+%file+".ogg",loop=0,looppoint=0,volume=-3000+_volume[2][1]*_volume[0][1]*30,pan=0,speed=1,fadeintime=0}
_sech=_sech+1:if _sech>15 then _sech=10
return

;ＳＥ２
@se2
if _volume[0][0]==1 or _volume[2][0]==1 or _volume[2][1]==0 then return
param %file,%pan
splay "SE"+str(_sech),{name="se2\se2_"+%file+".ogg",loop=0,looppoint=0,volume=-3000+_volume[2][1]*_volume[0][1]*30,pan=%pan,speed=1,fadeintime=0}
_sech=_sech+1:if _sech>15 then _sech=10
return

;ＳＥＬＰ
@selp
if _volume[0][0]==1 or _volume[3][0]==1 or _volume[3][1]==0 then return
param %ch,%file,%pan
splay "SE"+str(%ch),{name="selp\selp_"+%file+".ogg",loop=1,looppoint=0,volume=-3000+_volume[3][1]*_volume[0][1]*30,pan=%pan,speed=1,fadeintime=0}
return

;ＳＥＬＰＳＴＯＰ
@selpstop
param %ch
sestop %ch
return

;ＳＥＬＰＳＴＯＰＡＬＬ
@selpstopall
for %i=0 to 9
	sestop %i
next
return

;ランダム
@rnd
param %s,%n1,%n2
%r=random()
vset %s,%n1+%r mod (%n2-%n1+1)
return

;ゼロパディング
@zeropad
param %pad,%s
%value=vget(%s)
%len=len(%value)
%zero=""
for %i=2 to %pad
	if %len<%i then %zero=%zero+"0"
next
vset %s,%zero+%value
return

;アニメーション待ち時間
@spwait
param %spname
print #c
getspinfo %spname,spinfo
wait spinfo.animtime*spinfo.cellnum
return

;ファンクション
@func_1

goto "@"+btnid+"_btnexec"

@func_2

goto "@"+btnid+"_btnexec"

@func_3

goto "@"+btnid+"_btnexec"

@func_4

goto "@"+btnid+"_btnexec"

@func_5
if _debug>0 then
	wait 500
	_reboot=1
	shell "reboot.exe"
	quit
endif
goto "@"+btnid+"_btnexec"

@func_6

goto "@"+btnid+"_btnexec"

@func_7

goto "@"+btnid+"_btnexec"

@func_8

goto "@"+btnid+"_btnexec"

@func_9

goto "@"+btnid+"_btnexec"

@func_10

goto "@"+btnid+"_btnexec"

@func_11

goto "@"+btnid+"_btnexec"

@func_12
if _debug>0 then quit
goto "@"+btnid+"_btnexec"