;;;
;;; 2009.07.19 TvR[h ɓ http://www42.atwiki.jp/ironmaiden/pages/17.html
;;;
*credit
	csp -1
	btndef clear
	saveoff
	stop
	vsp 14,0
	print 10,400
	vsp 15,0
	print 10,400
	textoff

	monocro #DEB86D
	wait 1000
	bg black,10,1000
	monocro off
	play "midi\myuu\harunouta.mid"

	mov %creditnow,200
	mov %creditx,150:	;̍[W
	mov %credity,600
	mov %creditscroll,0

	lsp %creditnow,":s/50,50,0;#FFFFFF@@@@@",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+50
	lsp %creditnow,":s/50,50,0;#FFFFFF@@@@@",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+50
	lsp %creditnow,":s/50,50,0;#FFFFFF@@@@@",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+50
	lsp %creditnow,":s/50,50,0;#FFFFFF@@@@@",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+50
	lsp %creditnow,":s/50,50,0;#FFFFFF@@@@@",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+50
	lsp %creditnow,":s/50,50,0;#FFFFFF@@@@@",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+50

	lsp %creditnow,":s/50,50,0;#FFFFFFViI",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+60
	lsp %creditnow,":s/80,80,0;#FFFFFF@XO",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+400
	lsp %creditnow,":s/50,50,0;#FFFFFFCXg",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+60
	lsp %creditnow,":s/80,80,0;#FFFFFF@߂ĂˁB",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+400
	lsp %creditnow,":s/50,50,0;#FFFFFFXNvg",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+60
	lsp %creditnow,":s/60,80,0;#FFFFFF@i",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+400
	lsp %creditnow,":s/50,50,0;#FFFFFFӎ",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+60
	lsp %creditnow,":s/50,50,0;#FFFFFFt[ygo",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+60
	lsp %creditnow,":s/40,60,0;#FFFFFFl@@l",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+100
	lsp %creditnow,":s/50,50,0;#FFFFFFt[摜go",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+60
	lsp %creditnow,":s/40,60,0;#FFFFFFqts`",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+60
	lsp %creditnow,":s/30,30,0;#FFFFFFih̗j",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+400

	mov %creditx,20:	;̍[W
	lsp %creditnow,":s/50,50,0;#FFFFFF@@@@@@",%creditx,%credity
	mov %creditnow,%creditnow+1	: mov %credity,%credity+60
	lsp %creditnow,":s/60,80,0;#FFFFFFoiDQíj",%creditx,%credity
	print 1

;--------------------------------------------------
*credit_scroll
	if %creditscroll>%credity-290 goto *credit_end
		for %sub1=200 to %creditnow
			msp %sub1,0,-1
		next
	print 1
	wait 2
	mov %creditscroll,%creditscroll+1
goto *credit_scroll

;--------------------------------------------------
*credit_end
	wait 2000
	click
	csp -1
	print 10,2000
reset

;;;
;;;
;;;
