#packopt runtime hsp3c.hrt
#module
#deffunc wipe_slide int _p1, int _p2
	wt=_p2:if wt=0 : wt=24
	my=-32:repeat 60
		redraw 0
		repeat 32
		a=cnt*24:y=cnt+my:if y>24 : y=-1
		if y>0 : pos 0,a : gmode 0,640,y : gcopy _p1,0,a
		loop
		redraw 1
	await wt
	my+:loop
	return
#global

;----------------------------------------------------------
	title "輪切りトントン"
	screen 0,640,240
	cls 4
	buffer 2;全画面画像-元
	picload "0.bmp"
	buffer 3;選択肢画像-元
	picload "1.bmp"
	buffer 4;タイム設定画像-元
	picload "2.bmp"
	buffer 5;キュウリ-元
	picload "3.bmp"
	buffer 6;輪切り-元
	picload "4.bmp"
	buffer 7;まな板の上のキュウリ
	cls 4
	buffer 8;輪切りランダム
	cls 4
	buffer 9;仮想画面
	cls 4
	buffer 19;黒
	cls 4
	gsel 0
	gzoom 640,240,2,0,0,480,180
	mmload "gion_gm.mid",10,1
	mmload "cursor31-1.wav",11,0
	mmload "wood07.wav",12,0
	mmplay 11
	sel=0
	time_set=30
	font "ＭＳ ゴシック",24

	mmplay 10
	gosub*click

	wipe_slide 19
	buffer 9
	gzoom 640,240,5,0,0,400,240
	gsel 0
	wipe_slide 9

*first
	buffer 8
	sel=0
	cut_z=0
	
	buffer 9
	redraw 0
	gzoom 640,240,5,0,0,400,240	
	gosub*sel10
	gsel 0
	cls
	gcopy 9,0,0,640,240
	redraw 1
	gosub*sel_s
	if sel=11:goto*t_set
	if sel=12:goto*main
	if sel=13:goto*rei_credit
	if sel=0:goto*first
	end

*sel_s
	repeat
	x=mousex:y=mousey
	redraw 0
	if x>240&x<420{
		if y>80&y<113:sel=11:gosub*sel11
		if y>120&y<153:sel=12:gosub*sel12
		if y>160&y<193:sel=13:gosub*sel13
	}
	if x<240|x>420|y<80|y>193:sel=0:gosub*sel10
	if y>113&y<120|y>153&y<160:sel=0:gosub*sel10
	redraw 1
	stick k,,1
	if k=256:break
	await 15
	loop
	return
*sel10
	pos 240,80
	gcopy 3,0,0,180,33
	pos 240,120
	gcopy 3,0,66,180,33
	pos 240,160
	gcopy 3,0,132,180,33
	return
*sel11
	pos 240,80
	gcopy 3,0,33,180,33
	pos 240,120
	gcopy 3,0,66,180,33
	pos 240,160
	gcopy 3,0,132,180,33
	return
*sel12
	pos 240,80
	gcopy 3,0,0,180,33
	pos 240,120
	gcopy 3,0,99,180,33
	pos 240,160
	gcopy 3,0,132,180,33
	return
*sel13
	pos 240,80
	gcopy 3,0,0,180,33
	pos 240,120
	gcopy 3,0,66,180,33
	pos 240,160
	gcopy 3,0,165,180,33
	return

*t_set
	buffer 9
	gzoom 640,240,5,0,0,400,240
	gmode 4,,,256
	color 254,254,254
	gosub*t_set0
	color 0,0,0
	font "ＭＳ ゴシック",48
	pos 300,60
	mes time_set
	font "ＭＳ ゴシック",24
	pos 360,80
	mes "秒"
	gsel 0
	pos 0,0
	gcopy 9,0,0,640,240
	gmode 4,,,256
	color 254,254,254
	gosub*t_set_s
	if sel=21:goto*t_set_z
	if sel=22:goto*t_set_g
	if sel=23:goto*first
	goto*t_set
	end
*t_set0
	sel=20
	pos 270,120
	gcopy 4,0,33,30,33
	pos 360,120
	gcopy 4,30,33,30,33
	pos 300,180
	gcopy 4,60,33,60,33
	return
*t_set1
	sel=21
	pos 270,120
	gcopy 4,0,0,30,33
	pos 360,120
	gcopy 4,30,33,30,33
	pos 300,180
	gcopy 4,60,33,60,33
	return
*t_set2
	sel=22
	pos 270,120
	gcopy 4,0,33,30,33
	pos 360,120
	gcopy 4,30,0,30,33
	pos 300,180
	gcopy 4,60,33,60,33
	return
*t_set3
	sel=23
	pos 270,120
	gcopy 4,0,33,30,33
	pos 360,120
	gcopy 4,30,33,30,33
	pos 300,180
	gcopy 4,60,0,60,33
	return
*t_set_s
	repeat
	x=mousex:y=mousey
	if y>120&y<153{
		if x>270&x<300:gosub*t_set1
		if x>360&x<390:gosub*t_set2
		if x>300&x<360:gosub*t_set0
	}
	if y>180&y<213{
		if x>300&x<360:gosub*t_set3
		if x<300|x>360:gosub*t_set0
	}
	if y<120:gosub*t_set0
	if y>153&y<180:gosub*t_set0
	if y>213:gosub*t_set0
	if x<270:gosub*t_set0
	if x>390:gosub*t_set0
	stick k,,1
	if k=256:break
	await 15
	loop
	return
*t_set_z
	if time_set<60:time_set=time_set+5
	goto*t_set
*t_set_g
	if time_set>5:time_set=time_set-5
	goto*t_set
		
*rei_credit
	mmstop
	mmplay 11
	cls
	color 0,0,0
	font "ＭＳ ゴシック",14
	x=25:xx=17
	pos 200,x:x=x+xx:mes "システム"
	pos 220,x:x=x+xx:mes "Hot Soup Processor"
	pos 220,x:x=x+xx:mes "ONION software"
	pos 240,x:x=x+xx+10:mes "http://www.onionsoft.net/hsp/"
	pos 200,x:x=x+xx:mes "音楽"
	pos 220,x:x=x+xx:mes "煉獄庭園"
	pos 240,x:x=x+xx+10:mes "http://www.rengoku-teien.com/"
	pos 200,x:x=x+xx:mes "効果音"
	pos 220,x:x=x+xx:mes "ザ・マッチメイカァズ"
	pos 240,x:x=x+xx:mes "http://osabisi.sakura.ne.jp/m2/"
	gosub*click
	redraw 0
	cls 
	pos 0,0
	color 40,80,20
	boxf
	font "Tahoma",24
	color 255,255,200
	pos 200,80
	mes "[ Crow the fake sun ]"
	pos 165,120
	mes "http://ctfs-ima.infoseek.ne.jp/"
	pos 315,160
	mes "rei"
	redraw 1
	gosub*click
	end

*main
	gsel 0
	pos 0,0
	wipe_slide 19

	buffer 9
	gzoom 640,240,2,0,180,480,180
	gsel 0
	cls 4
	wipe_slide 9
	redraw 0
	buffer 7;まな板の上のキュウリ
	cls 4
	buffer 8;輪切りランダム
	cls 4
	buffer 9
	gzoom 640,240,2,0,360,480,180
	gsel 0
	gcopy 9,0,0,640,240
	redraw 1
	wait 100
	mx=618
	kx=0
	ky=0
	cut_v=0
	cut_c=0
	c_time=0
	gosub*kyuri
	time_set=time_set*100
	gosub*cut0
	time_set=time_set/100

	mmplay 11
	pos 0,0
	gsel 0
	wipe_slide 19

	buffer 9
	gzoom 640,240,2,0,540,480,180
	gsel 0
	wipe_slide 9
	
	color 0,0,0
	font "ＭＳ ゴシック",48
	pos 60,180:mes cut_c
	pos 130,180:mes "枚/"
	pos 210,180:mes cut_z
	pos 290,180: mes "回切"
	
	wait 200
	gosub*click
	goto*first
	
*cut0
	repeat
	stick k
	if k=256:x=mousex:y=mousey:gosub*cut1
	wait 1
	c_time=c_time+1
	if c_time>time_set:break
	loop
	return

*cut1
	mmplay 12
	cut_z=cut_z+1
	if y>80&y<160{
		if x>50&x<mx:mx=x:cut_v=1:gosub*kyuri
	}
	return
	
*kyuri
	gsel 9
	pos 0,0
	gzoom 640,240,5,0,0,400,240
	if cut_v=1:gosub*kyuri_v
	pos 40,85
	color 0,0,0
	gmode 4,,,60
	gcopy 5,0,320,mx-30,80
	pos 30,70
	gmode 4,,,256
	gcopy 5,0,240,mx-30,80
	redraw 0
	gsel 0 
	pos 0,0
	gcopy 9,0,0,640,240
	redraw 1
	return
	
*kyuri_v
	cut_v=0
	cut_c=cut_c+1
	gsel 8
	pos 0,0
	kx=rnd(120)+mx-40:ky=rnd(200)
	pos kx,ky
	color 0,0,0
	gmode 4,,,256
	gcopy 6,0,0,62,70
	gsel 9
	color 0,0,0
	gmode 4,,,256
	gcopy 8,0,0,640,240

	return

*click
	ma=0
	repeat
	wait 1
	stick k,,1
	if k=16|k=32|k=256:break
	if ma>300:break
	ma=ma+1
	loop
	return