;;;
;;;http://www42.atwiki.jp/ironmaiden/pages/17.html
;;;ɓ
;;;
*credit
	csp -1
	btndef clear
	saveoff
	textoff
bg black,2
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/30,50,0;#FFFFFFl@@l",%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

;;;
;;;
;;;
