;This is a modification of the system customize example script

;mrł`uf`̂̂Ƃ̃VXeJX^}CY
;Œ̃ev[głB

*text_lb
;ł͍Œ̂ƂĂ܂񂪁A
;{^ݒ肵ďgݍނƂo܂B
;J[\̓XvCgŎĂB

btndef clear
*tbloop
textbtnwait %0
if %0=0 goto *text_end
if %0=-3 goto *text_end		;ʂ̃NbNƃzC[
if %0=-1 gosub *rclk:goto *text_lb	;ENbN
if %0=-2 systemcall lookback:goto *tbloop	;zC[
goto *tbloop

*text_end
texec
saveon
	mov %50,0
return






*customsel
skipoff
*csel_st
btndef clear
getcselnum %0
getcursorpos %1,%2
cselbtn 0,500,%1,%2
add %2,21
cselbtn 1,501,%1,%2
if %0>2 add %2,21:cselbtn 2,502,%1,%2
if %0>3 add %2,21:cselbtn 3,503,%1,%2
if %0>4 add %2,21:cselbtn 4,504,%1,%2

*csel_loop
selectbtnwait %0
if %0=-2 systemcall lookback:goto *csel_loop
if %0=-1 gosub *rclk:goto *csel_st
if %0>=500 & %0<=504 saveon:sub %0,500:cselgoto %0
goto *csel_loop







*rclk
;ENbN
systemcall rmenu
if %50=1 exec_dll $51
;ł͒PɃj[ǂł܂A
;Ƀ{^Ńj[gނƂo܂B
;systemcallsavegameȂǂ܂gĂB
return






; This customizes the menu bar
*define
resetmenu
insertmenu "Quit",END
insertmenu "About",VERSION
insertmenu "Skip to next selection",SKIP
insertmenu "Auto Mode",AUTO
insertmenu "Settings",SUB
;SUB̓Tuj[JƂ킵܂B
insertmenu "Font",FONT,1
insertmenu "Wave",SUB,1
insertmenu "ON",WAVEON,2
insertmenu "OFF",WAVEOFF,2
insertmenu "Volume",DWAVEVOLUME,2
insertmenu "Text",SUB,1
insertmenu "Slow",TEXTSLOW,2
insertmenu "Medium",TEXTMIDDLE,2
insertmenu "Fast",TEXTFAST,2
insertmenu "Screen",SUB,1
insertmenu "Full Screen",FULL,2
insertmenu "Window",WINDOW,2
insertmenu "CD-DA",SUB,1
insertmenu "ON",CDON,2
insertmenu "OFF",CDOFF,2


	;rmenu "Z[u", save, "[h", load, "X^[gɖ߂", reset
	;rmenu "SAVE", save, "LOAD", load, "Return to Title Screen", reset

; right click menu won't display right in english....
rmenu "EBhE",WINDOWERASE,"Z[u",SAVE,"[h",LOAD,"^Cgɖ߂",RESET
menusetwindow 18,18,1,1,1,1,#885522

; stupid caption, I know...
caption "eNScr"


globalon

;get yer hands off me, you damn dirty humans...
humanz 100
windowback
textgosub *text_lb
;linepage

;lately my mouse wheel has been acting funny... oh well
usewheel

;these following lines here define the subroutines for the stupid plugin thingy...
defsub eigo
defsub eigoselect
defsub eigosettextpos

defsub *loadlb
loadgosub *loadlb
	stralias clouds, "clouds.jpg"
	effect 2, 2, 500
	effect 12, 12, 500
	effect 10, 10, 1000
	defaultfont "lr "
	windoweffect 2,250
game
*start

erasetextwindow 0

goto *game_start


*game_start
bg clouds, 10
setwindow 16,346,25,4,24,24,0,2,20,1,1,#999999,8,330,632,472 
eigosettextpos "16 346 632 472"
\
eigo " Sorry, this plugin can't help with displaying those story branch thingies in english."
\
eigo " So just pick one, you don't have to be able to read it, they all the same."
\
csel "IP",*s1,"IQ",*s2,"IR",*s3

*s1
eigo " You selected 1."
\
goto *continue2


*s2
eigo " You selected 2."
\
goto *continue2

*s3
eigo " You selected 3."
\
goto *continue2

*continue2


eigo " So here we have some dumb English text being used within an NScripter script, with the use of a plugin."
\
eigo " Unfotunately, the text uses standard Windows TextOut() API, so it doesn't look as pretty as normal NScr text."
\
eigo " Not only that, but the kaisou mode does not support this plugin, but that is a minor inconvenience when you consider that before, English couldn't be used at all..."
\
eigo " So in other words....."
\
eigo " .........."
\
eigo " .....I am not a crook!"
\
eigo " The end...."
\
end

*eigo
	getparam $50
	mov $51,"eigotaro.dll/"
	add $51,$50
	exec_dll $51
	mov %50,1
return

*eigosettextpos
	getparam $52
	mov $51,"textpos.dll/"
	add $51,$52
	exec_dll $51
return

*eigoselect
	getparam %53
	skipoff
*eigoselectstart
	btndef clear

return

*loadlb
if %50=1 texton
if %50=1 exec_dll $51
return

