@sin_ste

;ACeɂ\͕ω
;gosub @cin_item_ste	;ŃXe[^XŒ艻
;gosub @cin_item_steup	;ŉĂオĂAꂽXe[^XɁ{[B
;okbox STR(ste[1]),"B̗":okbox STR(ste[2]),"Bő̗"
;ӂ̃xAbvgȂB34.txtɋL
;if ste[1]>10000 then ste[1]=9999
:if ste[2]>10000 then ste[2]=9999
:if ste[3]>10000 then ste[3]=9999
:if ste[4]>10000 then ste[4]=9999
:if ste[5]>10000 then ste[5]=9999
;ől[v
for %0=1 to 20
if ste[%0]>=10000 then ste[%0]=9999
next


for %0=30 to 41
if ste[%0]>10000 then ste[%0]=9999
if ste[%0]<0 then ste[%0]=0
next
spset "ste",100
for %0=0 to 21
%title[%0]=STR(ste[%0])
next
for %0=30 to 41
%title[%0]=STR(ste[%0])
next

;sp "ste:02",{name="?c"+%title[1]+",text_a3",x=660,y=30,z=0}

;g
;sp "ste:awa",{name="bg/00/sin_ste.png",x=0,y=0,z=0}

%1=1280-450
%2=50
ste[-1]="T[V"
sp "ste:a",{name="?"+ste[-1]+",text_a",x=%1,y=%2,z=0}
;sp "ste:01",{name="?̗́@"+%title[1]+"^"+%title[2]+",text_a",x=%1,y=%2+30*1,z=0}
sp "ste:02",{name="?̗́@@@"+%title[1]+"^"+%title[2]+",text_a",x=%1,y=%2+30*1,z=0}
sp "ste:03",{name="?́@@@"+%title[3]+"^"+%title[4]+",text_a",x=%1,y=%2+30*2,z=0}
sp "ste:04",{name="?Ú@@"+%title[5]+",text_a",x=%1,y=%2+30*3,z=0}
sp "ste:05",{name="?ol@@"+%title[10]+"^"+%title[11]+",text_a",x=%1,y=%2+30*4,z=0}
sp "ste:06",{name="?ro@@@"+%title[20]+",text_a",x=%1,y=%2+30*6,z=0}

;if item[22]==1 then
;sp "ste:b",{name="?O͑啶,text_a",x=%1,y=%2+30*2,z=0}	;
;sp "ste:02",{name="?̗́@@@"+%title[30]+"^"+%title[31]+",text_a",x=%1,y=%2+30*3,z=0}
;sp "ste:03",{name="?́@@@"+%title[32]+"^"+%title[33]+",text_a",x=%1,y=%2+30*4,z=0}
;sp "ste:04",{name="?Ú@@"+%title[34]+",text_a",x=%1,y=%2+30*5,z=0}
;endif

;if item[23]==1 then
;sp "ste:c",{name="?O͑啶Q,text_a",x=%1,y=%2+30*6,z=0}	;
;sp "ste:05",{name="?̗́@@@"+%title[35]+"^"+%title[36]+",text_a",x=%1,y=%2+30*7,z=0}
;sp "ste:06",{name="?́@@@"+%title[37]+"^"+%title[38]+",text_a",x=%1,y=%2+30*8,z=0}
;sp "ste:07",{name="?Ú@@"+%title[39]+",text_a",x=%1,y=%2+30*9,z=0}
;endif


;sp "ste:05",{name="?@@"+%title[21]+"X[,text_a",x=700,y=720-30*7,z=0}

;G
;sp "ste:chr",{name="chr/reityeru/01.png",x=960-500,y=0,z=10}
;sp "ste:chr",{name="chr/riku_mini.png",x=730,y=300,z=10}
;sp "ste:chr",{name="chr/seiren_lily/01.png",x=960-333,y=0,z=10001}
;sp "window:a01",{name="chr/a01/c01.png",x=1280-450,y=0,z=100001}
;sp "window:b01",{name="chr/b01/d01.png",x=1280-500-300,y=0,z=100001}


;ȉ퓬Ń_[W󂯂痧GςB
;܂݂͌̂goƍőŁoB
;%f=floor(ste[1]/ste[2]*100)
;okbox str(%f),"p[Zg"
;̗͂UOƂROŗGω
;if %f<=60 then sp "ste:chr",{name="chr/b_60.png",x=960-333,y=0,z=10}
;if %f<=30 then sp "ste:chr",{name="chr/b_30.png",x=960-333,y=0,z=10}

return

