
//============================================================================
//機能：クリア画面
//使用外部変数：clr_bgm_num,goal
//============================================================================
*clear_screen
    if(goal=1){
        gosub *slct_show_pic
        gosub *show_pic
    }
    //ゴールメッセージ(ゴール)
    gosub *goal_message

    //クリア画像→可視はオフ

    return

//============================================================================
//機能：表示画像選定
//使用外部変数：clr_bgm_num
//============================================================================
*slct_show_pic

    if(clr_bgm_num=0){
        pic_number=3
    }
    else:if(clr_bgm_num=1){
        pic_number=0
    }
    else:if(clr_bgm_num=2){
        pic_number=13
    }
    else:if(clr_bgm_num=3){
        pic_number=14
    }
    else:if(clr_bgm_num=4){
        pic_number=11
    }
    else:if(clr_bgm_num=5){
        pic_number=15
    }
    else:if(clr_bgm_num=6){
        pic_number=16
    }
    else:if(clr_bgm_num=7){
        pic_number=17
    }
    else:if(clr_bgm_num=8){
        pic_number=17
    }
    else:if(clr_bgm_num=9){
        pic_number=19
    }
    else:if(clr_bgm_num=10){
        pic_number=8
    }
    else:if(clr_bgm_num=11){
        pic_number=20
    }
    else:if(clr_bgm_num=12){
        pic_number=9
    }
    else:if(clr_bgm_num=13){
        pic_number=21
    }
    else:if(clr_bgm_num=14){
        pic_number=33
    }
    else:if(clr_bgm_num=15){
        pic_number=23
    }
    else:if(clr_bgm_num=16){
        pic_number=24
    }
    else:if(clr_bgm_num=17){
        pic_number=4
    }
    else:if(clr_bgm_num=18){
        pic_number=30
    }
    else:if(clr_bgm_num=19){
        pic_number=32
    }
    else:if(clr_bgm_num=20){
        pic_number=27
    }
    else:if(clr_bgm_num=21){
        pic_number=25
    }
    else:if(clr_bgm_num=22){
        pic_number=31
    }
    else:if(clr_bgm_num=23){
        pic_number=29
    }
    else:if(clr_bgm_num=24){
        pic_number=6
    }

    return


//============================================================================
//機能：画像表示
//使用外部変数：pic_number
//============================================================================
*show_pic

    //クリア画像→可視はオフ
    buffer 1

    if (pic_number = 0){
        picname = "竜王.bmp"
    }
    else:if(pic_number = 1){
        picname = "ダークデスピサロ.bmp"
    }
    else:if(pic_number = 2){
        picname = "神竜（鉛筆）.jpg"
    }
    else:if(pic_number = 3){
        picname = "神竜.gif"
    }
    else:if(pic_number = 4){
        picname = "がおがお.gif"
    }
    else:if(pic_number = 5){
        picname = "ワンニャー.bmp"
    }
    else:if(pic_number = 6){
        picname = "ワンニャー（飛）.bmp"
    }
    else:if(pic_number = 7){
        picname = "イエローペーパー -桜-.gif"
    }
    else:if(pic_number = 8){
        picname = "ペポルゥワンニャーと・・・.jpg"
    }
    else:if(pic_number = 9){
        picname = "モモドラワンジョ.gif"
    }
    else:if(pic_number =10){
        picname = "animetop2.gif"
    }
    else:if(pic_number =11){
        picname = "ドラクエーズ.gif"
    }
    else:if(pic_number =12){
        picname = "りゅうワンニャー.bmp"
    }
    else:if(pic_number =13){
        picname = "未夢.jpg"
    }
    else:if(pic_number =14){
        picname = "彷徨.jpg"
    }
    else:if(pic_number =15){
        picname = "未夢と彷徨.jpg"
    }
    else:if(pic_number =16){
        picname = "ルゥくんの世話をするワンニャー！.jpg"
    }
    else:if(pic_number =17){
        picname = "未夢　ワンニャー.jpg"
    }
    else:if(pic_number =18){
        picname = "ワンニャ！.jpg"
    }
    else:if(pic_number =19){
        picname = "みかんとみかん.gif"
    }
    else:if(pic_number =20){
        picname = "鷹見英一&五十嵐夏希.gif"
    }
    else:if(pic_number =21){
        picname = "マフラーワンニャー.gif"
    }
    else:if(pic_number =22){
        picname = "ドラクエ　ラスボス.jpg"
    }
    else:if(pic_number =23){
        picname = "ダークワンニャー.gif"
    }
    else:if(pic_number =24){
        picname = "はーい、ルゥちゃま〜！.jpg"
    }
    else:if(pic_number =25){
        picname = "ルゥくん☆.jpg"
    }
    else:if(pic_number =26){
        picname = "ルゥくんラク描き.jpg"
    }
    else:if(pic_number =27){
        picname = "アマゾーネ.gif"
    }
    else:if(pic_number =28){
        picname = "山村みずき.gif"
    }
    else:if(pic_number =29){
        picname = "エンジェル未夢.jpg"
    }
    else:if(pic_number =30){
        picname = "中学生未夢.jpg"
    }
    if(pic_number =31){
        picname = "ワンニャーだ！.jpg"
    }
    else:if(pic_number =32){
        picname = "ワンニャー＆色々.jpg"
    }
    else:if(pic_number =33){
        picname = "ワンニャーっ！.bmp"
    }
#if HSP
    sub_folder = "img/"
    if(pic_number = 0 || pic_number = 1 || pic_number = 2 || pic_number = 3 || pic_number = 22){
        sub_folder += "ドラクエ/"
    }
    else:if(pic_number = 5 || pic_number = 6 || pic_number = 12 || pic_number = 33){
        sub_folder += "だぁBMP/"
    }
    else:if(pic_number = 13 || pic_number = 14 || pic_number = 15 || pic_number = 16 || pic_number = 17 || pic_number = 18 || pic_number = 24){
        sub_folder += "だぁぬりえ/"
    }
    else:if(pic_number = 4 || pic_number = 7 || pic_number = 9 || pic_number = 10 || pic_number = 11){
        sub_folder += "イエローペーパー/"
    }
    else{
        sub_folder += ""
    }
#else
    if( pic_number = -99){
        //絶対来ない
    }
    else{
        sub_folder += ""
    }
#endif

    picload sub_folder + picname

    pic_w = ginfo_winx
    pic_h = ginfo_winy

    screen 0
    //gsel   0

    redraw 0
    color  255,255,0:boxf
    //gmode 3,0,0,255

    //クリア画像のX=WIDTH/2 - クリア画像のW/2
    //クリア画像のY=0
    //pos (screenw/2 - pic_w/2) , 0

    //クリア画像をHEIGHT,HEIGHTで画像比率変えずリサイズ。
    gosub *hold_aspect_cmp

    //クリア画像→可視はオン
    //gcopy 1,0,0, screenw , screenh


    redraw 1

    return

//============================================================================
//機能：ゴールメッセージ表示
//使用外部変数：goal
//============================================================================
*goal_message

    font "HGP創英角ﾎﾟｯﾌﾟ体" , 32
    color 255,0,0
    pos 0 , -30 : mes "PRESS ENTER KEY"
    pos (screenw/2 - ginfo(14)/2) , screenh - 60
    mes "PRESS ENTER KEY"

    if(goal = 1){
        color 0,128,255
        pos 0 , -30 : mes "☆★☆CONGRATULATION★☆★"
        pos (screenw/2 - ginfo(14)/2) , screenh - 120
        mes "☆★☆CONGRATULATION★☆★"
        GGS4Play 0 , congratulation
    }
    else{
        pos 0 , -30 : mes "GAME OVER!"
        pos (screenw/2 - ginfo(14)/2) , screenh - 120
        mes "GAME OVER!"
        GGS4Play 0 , game_over
    }

    Enter_on = 1

    repeat
    	onexit *exit
        wait 1
        getkey Enter , 13
        if(Enter){
            if(Enter_on=0){
                Enter_on=1
                break
            }
        }
        else{
            Enter_on=0
        }
    loop

    color  255,255,0:boxf

    return


//----------------------------------------------------------------------------------------------------------
show_pic_name_make_flg = 0
//============================================================================
//機能：ギャラリーモード
//使用外部変数：savedata    //配列
//============================================================================
*gallery_mode
    sdim pic_name , memory ,pic_num

	//タイトル画面ボタンオフ
	//タイトル画面オフ
    cls 0

    GGS4Play 1,option_bgm

    repeat pic_num
    	onexit *exit
        pic_name.cnt = "？"
    loop

    gosub *open_pic_name    //画像名公開

    //表示用変数作成
    if(show_pic_name_make_flg = 0){
        sdim show_pic_name , memory ,10
        show_pic_name_make_flg = 1
    }
 	font "HGP創英角ﾎﾟｯﾌﾟ体" , 16
    color 0 , 255 , 0

    //1の間
    repeat 
		onexit *exit

        gosub *show_pic_slct_screen    //画像選択画面内容表示

		//下移動
		if(pic_slct_index_num < 28){
			move_on_screen  pic_slct_index_num , down_on , 40 , 1 , 1
		}
		//上移動
		if(pic_slct_index_num > -5){
			move_on_screen  pic_slct_index_num , up_on  , 38 , -1 , 1
		}

        //もし、(VK_RETURNのキー状態=オン)ならば
        getkey  Enter,13
        if(Enter){
            //もし、画像名表示用配列[5]→テキスト=「？」ならば
            if(show_pic_name.5 ="？"){
				//dialog  pic_slct_index_num
            }
            else{
            	//画像選択からの脱出
                gosub *gallery
                //ギャラリー(画像選択インデックス番号+5)
            }
        }
		else{
			//なにもしない
        }

		//もし、(VK_BACKのキー状態=オン)ならば
        getkey backspace , 8
        if(backspace){
			//もし、バックスペースフラグ=0ならば
            if(backspace_on = 0){
				//画像選択からの脱出
				gosub *return_title
				backspace_on=1
				break
            }
        }
		else{
			backspace_on=0
        }
        loop
	return

//============================================================================
//機能：画像名公開
//============================================================================
*open_pic_name

    if(savedata.0 = 1){
        pic_name.2 = "神竜(鉛筆)"
        pic_name.3 = "神竜"
    }
    if(savedata.1 = 1){
        pic_name.0 = "竜王"
        pic_name.1 = "ダークデスピサロ"
    }
    if(savedata.2 = 1){
        pic_name.13 = "未夢"
    }
    if(savedata.3 = 1){
        pic_name.14 = "彷徨"
    }
    if(savedata.4 = 1){
        pic_name.11 = "ドラクエ―ズ"
        pic_name.12 = "りゅうワンニャー"
    }
    if(savedata.5 = 1){
        pic_name.15 = "未夢と彷徨"
    }
    if(savedata.6 = 1){
        pic_name.16 = "ワンニャ！"   //ぬりえ紹介
    }
    if(savedata.7 = 1){
        pic_name.17 = "未夢とワンニャー"
    }
    if(savedata.8 = 1){
        pic_name.18 = "みたらしワンニャー２" //ぬりえ
    }
    if(savedata.9 = 1){
        pic_name.19 = "みかんとみかん"
    }
    if(savedata.10 = 1){
        pic_name.7 = "イエローペーパー"
        pic_name.8 = "ペポルゥワンニャーと"
    }
    if(savedata.11 = 1){
        pic_name.20 = "五十嵐夏希と鷹見英一"
        pic_name.28 = "山村みずき"
    }
    if(savedata.12 = 1){
        pic_name.9 = "モモドラワンジョ"
        pic_name.10 = "モモドラワンジョ２"
    }
    if(savedata.13 = 1){
        pic_name.21 = "マフラーワンニャー"
    }
    if(savedata.14 = 1){
        pic_name.33 = "ワンニャーっ"  //bmpノートの端っこに落書き
    }
    if(savedata.15 = 1){
        pic_name.22 = "ドラクエラスボス" //ぬりえ
        pic_name.23 = "ダークワンニャー"
    }
    if(savedata.16 = 1){
        pic_name.24 = "はーいルゥちゃま〜"
    }
    if(savedata.17 = 1){
        pic_name.4 = "がおがお"
    }
    if(savedata.18 = 1){
        pic_name.30 = "中学生未夢"
    }
    if(savedata.19 = 1){
        pic_name.32 = "ワンニャー＆色々"
    }
    if(savedata.20 = 1){
        pic_name.27 = "アマゾーネ"
    }
    if(savedata.21 = 1){
        pic_name.25 = "ルゥくん"
        pic_name.26 = "ルゥくん落書き"
    }
    if(savedata.22 = 1){
        pic_name.31 = "そこにいたのはワンニャーだ！"
    }
    if(savedata.23 = 1){
        pic_name.29 = "エンジェル未夢"
    }
    if(savedata.24 = 1){
        pic_name.5 = "みたらしワンニャー"
        pic_name.6 = "ワンニャー飛行"
    }

    return

//============================================================================
//機能：画像選択画面内容表示
//============================================================================
*show_pic_slct_screen
	//0.01秒待つ
	wait 1
    redraw 0
    color 255,255,0:boxf

    //項目表示
    font "HGP創英角ﾎﾟｯﾌﾟ体" , 21
    color 255 , 128 , 0
    pos 0 , 0
    mes " ★GALLRY SELECT★"

	//画像移動ソート
    gosub *pic_move_sort

	color 0 , 0 , 0
	pos 25 , 180
	font "HGP創英角ﾎﾟｯﾌﾟ体" , 21
	mes "⇒"

	//選択案内
	color 255 , 128 , 0
	pos 0 , screenh-28
	font "HGP創英角ﾎﾟｯﾌﾟ体" , 21
	mes "　↑↓で選んで、ENTERを押してね♪戻る時はBACKSPACEだよ！"

    redraw 1

    return

//============================================================================
//機能：画像移動ソート
//============================================================================
*pic_move_sort

	//Ｉで0から10まで繰り返す
    repeat 10
    	onexit *exit
        color 0,255,0
        if(cnt=5){
            color 255,0,0
        }
		//もし、画像選択インデックス番号+I<0ならば
        if(pic_slct_index_num+cnt<0 | pic_slct_index_num+cnt>= pic_num){
			//画像名表示用配列[I]→テキスト=「」
            show_pic_name.cnt = ""
        }
		else{
			//画像名表示用配列[I]→テキスト=画像名[I+画像選択インデックス番号]
            show_pic_name.cnt = pic_name.(cnt+pic_slct_index_num)
        }

        pos (10*cnt) , (30*(cnt+1))
        mes show_pic_name.cnt
    loop
    return

//============================================================================
//機能：ギャラリー(画像番号)
//============================================================================
*gallery
    cls 0
    //画像表示(画像番号)
    pic_number = pic_slct_index_num + 5
    gosub *show_pic

    backspace_on = 1
    repeat
    	onexit *exit
        wait 1
		//もし、(VK_BACKのキー状態=オン)ならば
        getkey backspace,8
        if(backspace){
			if(backspace_on=0){
				backspace_on = 1
                //クリア画像→可視はオフ。
                cls 0
                //画像選択画面内容表示
				break
            }
        }
        else{
			backspace_on = 0
        }
    loop
    return

//============================================================================
//機能：アスペクト比保持
//============================================================================
*hold_aspect_cmp
    if(pic_w > pic_h){
        pos screenw/2 - screenh/2, 0
        gzoom screenh , double(pic_h * screenh/pic_w) , 1 , 0,0 , pic_w , pic_h , 1
    }
    else{
        pos screenw/2 - (pic_w * screenh/pic_h)/2, 0
        gzoom double(pic_w * screenh/pic_h) , screenh , 1 , 0,0 , pic_w , pic_h , 1
    }
    return
