MAIN:
;丂儊乕僇乕儘僑
;
	load	nexus.GRP
	load	nexus01.GRP
	cls
	wipe	none
	fade	in
	wait	60
	load	nexus02.GRP
	cls
	wipe	none
	fade	in
	wait	30
	load	nexus03.GRP
	cls
	wipe	none
	fade	in
	wait	120
	fade	out

;丂慖戰儊僯儏乕
;
main:
	load	pre00c.GRP
	cls
	wipe	none
	fade	in
head_loop:
	msinit
	mssw	208,208,303,223,98,1	;僨儌
	mssw	336,208,431,223,99,2	;忣曬
	mssw	208,256,303,271,100,3	;僇儔乕
	mssw	336,256,431,271,101,4	;塼徎
	mssw	16,368,63,383,0,5	;廔椆
	msinput
	case	1,demo
	case	2,viewer
	case	3,crt_c
	case	4,crt_m
	case	5,exit
	goto	head_loop
crt_c:
	Crt	0
	goto	head_loop
crt_m:
	Crt	1
	goto	head_loop

;
viewer:
	view	0
	fade	out
	load	pre01.GRP
	cls
	view	11
	wipe	none
	fade	in
	msinit
	mssw	32,360,79,375,0,1	; 廔椆
	mssw	144,360,239,375,98,2	; 掗崙
	mssw	256,360,351,375,99,3	; 楢崌
	mssw	368,360,431,375,100,4	; 峲嬻
	mssw	616,320,631,335,58,6	; 仾
	mssw	616,336,631,351,61,5	; 伀
	mssw	576,360,591,375,59,8	; 仼
	mssw	592,360,608,375,60,7	; 仺
viewer_loop:
	msinput
	case	1,viewer_l01
	case	2,viewer_l02
	case	3,viewer_l03
	case	4,viewer_l04
	case	5,viewer_l05
	case	6,viewer_l06
	case	7,viewer_l07
	case	8,viewer_l08
viewer_l01:
	fade	out
	wait	16
	view	1			; 愗傝棧偟
	goto	main
viewer_l02:
	view	11
	goto	viewer_loop
viewer_l03:
	view	12
	goto	viewer_loop
viewer_l04:
	view	13
	goto	viewer_loop
viewer_l05:
	view	14
	goto	viewer_loop
viewer_l06:
	view	15
	goto	viewer_loop
viewer_l07:
	view	16
	goto	viewer_loop
viewer_l08:
	view	17
	goto	viewer_loop

;

demo:
	fade	out
	wait	16
	opnload	INTRO.MD
top:
	opn	0
	load	title00.GRP
	load	title01.GRP
	cls
	wipe	none
	fade	in
	wait	60
	load	title02.GRP
	cls
	fade	in
	wait	60
	load	title03.GRP
	cls
	fade	in
	wait	180
	fade	out
	wait	16

;丂僨儌梡僐儞僥俀乽擟柋忣曬乛峲楬愝掕乿

	load	cam_a.GRP	;婎杮夋柺
	cls
	wipe	none
	fade	in
	wait	60
	load	cam_a1.GRP	;婎杮夋柺
	cls
	wipe	down
	load	cam_a2.GRP	;婎杮夋柺
	cls
	wipe	down
	load	cam_a3.GRP	;婎杮夋柺
	cls
	wipe	down
	load	cam_a.GRP	;婎杮夋柺
	cls
	wipe	down

	load	cam_j.GRP	;擟柋忣曬
	cls
	fade	over
	wait	60
	wipe	none
	fade	in
	wait	60
	load	cam_j1.GRP	;擟柋忣曬
	cls
	wipe	none
	wait	300
	load	cam_j.GRP	;擟柋忣曬
	cls
	wipe	none

	load	cam_b.GRP	;峲楬愝掕
	cls
	wipe	none
	wait	60
	load	cam_b1.GRP	;峲楬愝掕
	cls
	wipe	none
	wait	300
	load	cam_b2.GRP	;峲楬愝掕
	cls
	wipe	none
	wait	300
	load	cam_b.GRP	;峲楬愝掕
	cls
	wipe	none
	fade	in
;丂僨儌梡僐儞僥俁乽恮宍乛柍慄乛寈夲乿
;	婎杮夋柺
	load	cam_c.grp	;恮宍嘆
	cls
	wipe	none
	wait	60
	load	cam_c1.grp	;恮宍嘆
	cls
	wipe	none
	wait	60
	load	cam_d1.grp	;恮宍嘇
	cls
	wipe	none
	wait	60
	load	cam_e1.grp	;恮宍嘊
	cls
	wipe	none
	wait	60
	load	cam_f1.grp	;恮宍嘋
	cls
	wipe	none
	wait	60
	load	cam_g1.grp	;恮宍嘍
	cls
	wipe	none
	wait	60

	load	cam_h.GRP	;柍慄晻巭
	cls
	wipe	none
	wait	60
	load	cam_h1.GRP	;柍慄晻巭
	cls
	wipe	none
	wait	300

	load	cam_i1.GRP	;寈夲
	cls
	wipe	none
	wait	300

;丂僨儌梡僐儞僥係乽嶕揋乛奀恾乿
;	婎杮夋柺
	load	cam_s1.GRP	;嶕揋嘆
	cls
	wipe	none
	fade	in
	wait	60
	load	cam_s11.GRP	;嶕揋嘆
	cls
	wipe	none
	wait	120
;	load	cam_s21.GRP	;嶕揋嘇
;	wipe	none
;	wait	120
	load	cam_s31.GRP	;嶕揋嘊
	cls
	wipe	none
	wait	300


	load	cam_p1.GRP	;峲嬻戉
	cls
	fade	in
	wipe	none
	wait	60
	load	cam_pa.GRP	;峲嬻戉
	cls
	wipe	none
	wait	120
	load	cam_pb.GRP	;峲嬻戉
	cls
	wipe	none
	wait	120
	load	cam_pc.GRP	;峲嬻戉
	cls
	wipe	none
	wait	180

;	load	cam_w1.GRP	;愴摤
;	fade	in
;	wipe	bottom
;	wait	120
	load	cam_w2.GRP	;愴摤
	cls
	wipe	bottom
	wait	120


	fade	out
	load	kaizu00.GRP	;奀恾侽
	cls
	wait	16
	wipe	none
	fade	in
	wait	60
	load	kaizu001.GRP	;奀恾侽
	cls
	wipe	none
	wait	300

	load	kaizu01.GRP	;奀恾嘆僀儞僪梞
	cls
	wipe	left
	wait	60

;丂僨儌梡僐儞僥俆乽奀恾乿

	load	kaizu02.GRP	;奀恾嘇儈僢僪僂僃僀
	cls
	wipe	right
	wait	60

	load	kaizu04.GRP	;奀恾嘋撿懢暯梞
	cls
	wipe	bottom
	wait	60

;	load	kaizu05.GRP	;奀恾嘍儅儕傾僫
;	wipe	top
;	wait	60

;
;丂僨儌梡僐儞僥俇乽奀恾丒愰揱乿
;

	load	cam_k1.GRP	;娡掵嘆
	cls
	wipe	top
	fade	in
	wait	60
	load	cam_k11.GRP	;娡掵嘆
	cls
	wipe	none
	wait	60
	load	cam_k21.GRP	;娡掵嘇
	cls
	wipe	none
	wait	60
	load	cam_k3.GRP	;娡掵嘊
	cls
	wipe	none
	wait	60
	load	cam_k4.GRP	;娡掵嘊
	cls
	wipe	none
	wait	60
	load	cam_k5.GRP	;娡掵嘊
	cls
	wipe	none
	wait	60
	load	cam_k6.GRP	;娡掵嘊
	cls
	wipe	none
	wait	60
	load	cam_p2.GRP	;峲嬻戉
	cls
	wipe	down2
	wait	60
	load	cam_p3.GRP	;峲嬻戉
	cls
	wipe	none
	wait	60
	load	cam_p4.GRP	;峲嬻戉
	cls
	wipe	none
	wait	60
	load	cam_p5.GRP	;峲嬻戉
	cls
	wipe	none
	wait	60
	load	cam_p6.GRP	;峲嬻戉
	cls
	wipe	none
	wait	60
;
	load	epil000.GRP	;
	cls
	fade	in
	load	epil001.GRP	;
	cls
	wait	16
	wipe	none
	wait	120
	fade	in
	wait	240
	load	epil000.GRP	;
	cls
	fade	out
	wait	16
	goto	MAIN

exit:
	fade	out
	wait	16
