305 lines
6.7 KiB
Text
305 lines
6.7 KiB
Text
;命令定義
|
||
@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"
|