





$hj=PrintFace
$音Ａ=SoundEffect(18)
$音Ｂ=SoundEffect(34)
$音Ｃ=SoundEffect(23)
$音Ｄ=SoundEffect(13)
$音Ｅ=SoundEffect(22)
$音Ｆ=SoundEffect(17)
$音Ｇ=SoundEffect(45)



var     \ichi_x,
        \ichi_y,
        \enemy_tmp;
init() {
        \ichi_x = 0;

        \ichi_y = 0;

        F#50 = F#57;    F#51 = F#58;    F#52 = F#59;    F#53 = F#60;
        F#54 = F#61;    F#55 = F#62;    F#56 = F#63;
        SetTitle(" 天文社本社教室");
        SetMch(001);
        SetMap(001);
        JumpMap(ZET( 1, 1));
        check(F#0 == 120) {
                "突然攻擊天文社的手工藝社，應稱它是新興社團"
                "的謎之團。在真由美的誓死抵抗下，成功地將她們給"
                "擊退了。";
        } else {
                "突然攻擊天文社的手工藝社，應稱它是新興社團"
                "的謎之團。在真由美的誓死抵抗下，成功地將她們給"
                "擊退了。";
        }
        "但是，片刻的暫停是不被允許的。"
        "就在要和生物社簽定和平條約之前，在社團邊境"
        "不斷地有遊行活動，這也是造成人心不安的原因。"
        "應該要徹底調查事情的原因。";
        "真由美為了要向本社報告事態及請求援軍，"
        "西分社就交給乃理子了。";
        PlayMusic(301);




        G#0 <- Posit(29,27,BACK);
        G#1 <- Posit(31,27,BACK);
        G#0,1 <- SetHandle(MAN);

        G#48 <- Entry(BUCYOU) + Posit(30, 8,FRONT);
                G#48 <- SetChara(ON,WEAK,GIRL(32)) + SetLevel(20);
                G#48 <- SetSkill(9,12,17,20);
        G#3 <- Entry(MARIE)  + Posit(33,10,LEFT );
                G#3 <- SetSkill(38);
                G#3  <- SetChara(ON,WEAK,GIRL(33)) + SetLevel(5);
        G#4 <- Entry(TAKUMI) + Posit(31,18,FRONT);
                G#4 <- SetSkill(22);
                G#4 <- SetChara(ON,WEAK,GIRL(34)) + SetLevel(4);
        G#5  <- Entry(IPPANN) + Posit(13,12,FRONT) + SetLevel(1);
        G#6  <- Entry(IPPANN) + Posit(20,12,RIGHT) + SetLevel(1);
        G#7  <- Entry(IPPANN) + Posit(23,14,FRONT) + SetLevel(1);
                G#5-7 <- SetChara(ON ,NEAR,GIRL(0));
        G#8  <- Entry(IPPANN) + Posit( 8, 9,FRONT) + SetLevel(1);
        G#9  <- Entry(IPPANN) + Posit( 8, 7,FRONT) + SetLevel(1);
        G#10 <- Entry(IPPANN) + Posit(25, 5,RIGHT) + SetLevel(1);
                G#8-10  <- SetChara(OFF,WEAK,GIRL(1));
        G#11 <- Entry(IPPANN) + Posit(29, 7,FRONT);
        G#12 <- Entry(IPPANN) + Posit(31, 7,FRONT);
                G#11-12 <- SetChara(OFF,NEAR,GIRL(48)) + SetLevel(2);
        G#13 <- Entry(IPPANN) + Posit(33,14,LEFT);
        G#14 <- Entry(IPPANN) + Posit(33,16,LEFT);
        G#15 <- Entry(IPPANN) + Posit(33,18,LEFT);
        G#16 <- Entry(IPPANN) + Posit(33,25,FRONT);
                G#13-16 <- SetChara(ON ,WEAK,GIRL(3)) + SetLevel(2);
        G#17 <- Entry(IPPANN) + Posit(39, 9,LEFT);
        G#18 <- Entry(IPPANN) + Posit(39,10,LEFT);
        G#19 <- Entry(IPPANN) + Posit(39,11,LEFT);
        G#20 <- Entry(IPPANN) + Posit(39,12,LEFT);
                G#17-20 <- SetChara(ON ,WEAK,GIRL(4)) + SetLevel(2);
        G#5  <- SetName("天文社員");
        G#6  <- SetName("天文社員");
        G#7  <- SetName("天文社員");
        G#8  <- SetName("天文社員");
        G#9  <- SetName("天文社員");
        G#10 <- SetName("天文社員");
        G#11 <- SetName("天文社員");
        G#12 <- SetName("天文社員");
        G#13 <- SetName("天文社員");
        G#14 <- SetName("天文社員");
        G#15 <- SetName("天文社員");
        G#16 <- SetName("天文社員");
        G#17 <- SetName("天文社員");
        G#18 <- SetName("天文社員");
        G#19 <- SetName("天文社員");
        G#20 <- SetName("天文社員");
        G#5  <- SetDmes("天文社員  「為什麼？」");
        G#6  <- SetDmes("天文社員  「變得怎麼樣了呢？？」");
        G#7  <- SetDmes("天文社員  「這傢伙？！」");
        G#8  <- SetDmes("天文社員  「妳們到底是誰呀？」");
        G#9  <- SetDmes("天文社員  「什••麼？」");
        G#10 <- SetDmes("天文社員  「哇••！」");
        G#11 <- SetDmes("天文社員  「嗚••」");
        G#12 <- SetDmes("天文社員  「嘿••」");
        G#13 <- SetDmes("天文社員  「啊啊啊啊啊！」");
        G#14 <- SetDmes("天文社員  「嗚嗚」");
        G#15 <- SetDmes("天文社員  「哇呀呀呀呀！」");
        G#16 <- SetDmes("天文社員  「咦？」");
        G#17 <- SetDmes("天文社員  「怎麼會這樣子」");
        G#18 <- SetDmes("天文社員  「哇啊啊啊啊啊」");
        G#19 <- SetDmes("天文社員  「！！」");
        G#20 <- SetDmes("天文社員  「喂••••」");
    G#3-20,48 <- SetBelong(TENMON,0);
        G#5-20 <- SetSkill(6);


        G#21 <- Entry(IPPANN) + Posit(14,21,BACK);
        G#22 <- Entry(IPPANN) + Posit(15,21,BACK);
        G#23 <- Entry(IPPANN) + Posit(16,21,BACK);
        G#24 <- Entry(IPPANN) + Posit(17,21,BACK);
        G#25 <- Entry(IPPANN) + Posit(18,21,BACK);
        G#26 <- Entry(IPPANN) + Posit(19,21,BACK);
                G#21 <- SetChara(ON ,WEAK    ,GIRL(0)) + SetLevel(3);
                G#22 <- SetChara(ON ,WEAK    ,GIRL(1)) + SetLevel(3);
                G#23 <- SetChara(OFF,NEAR    ,GIRL(0)) + SetLevel(2);
                G#24 <- SetChara(ON ,NEAR    ,GIRL(1)) + SetLevel(2);
                G#25 <- SetChara(OFF,WEAK    ,GIRL(0)) + SetLevel(2);
                G#26 <- SetChara(OFF,MASICIAN,GIRL(1)) + SetLevel(3);
        G#21 <- SetName("謎之社員");
        G#22 <- SetName("謎之社員");
        G#23 <- SetName("謎之社員");
        G#24 <- SetName("謎之社員");
        G#25 <- SetName("謎之社員");
        G#26 <- SetName("謎之社員");
        G#21 <- SetDmes("謎之社員  「大姐姐••••」");
        G#22 <- SetDmes("謎之社員  「哇啊啊」");
        G#23 <- SetDmes("謎之社員  「我會死嗎•••？」");
        G#24 <- SetDmes("謎之社員  「我••••不想死呀•••」");
        G#25 <- SetDmes("謎之社員  「嗚嗚」");
        G#26 <- SetDmes("謎之社員  「靜子姐姐」");
    G#21-26 <- SetBelong(UNKNOWN,1);

        G#27 <- Entry(IPPANN) + Posit(28,32);
        G#28 <- Entry(IPPANN) + Posit(33,33);
        G#29 <- Entry(IPPANN) + Posit(33,31);
        G#30 <- Entry(IPPANN) + Posit(29,33);
        G#31 <- Entry(IPPANN) + Posit(29,31);
        G#32 <- Entry(IPPANN) + Posit(27,25,FRONT);
        G#33 <- Entry(IPPANN) + Posit(31,31);
        G#34 <- Entry(IPPANN) + Posit(31,33);
        G#35 <- Entry(IPPANN) + Posit(27,31);
        G#36 <- Entry(IPPANN) + Posit(27,33);
        G#37 <- Entry(IPPANN) + Posit(32,32);
                G#27-37 <- SetChara(ON,NEAR,GIRL(48)) + SetLevel(2);
        G#27 <- SetName("新天文");
        G#28 <- SetName("新天文");
        G#29 <- SetName("新天文");
        G#30 <- SetName("新天文");
        G#31 <- SetName("新天文");
        G#32 <- SetName("新天文");
        G#33 <- SetName("新天文");
        G#34 <- SetName("新天文");
        G#35 <- SetName("新天文");
        G#36 <- SetName("新天文");
        G#37 <- SetName("新天文");
        G#27 <- SetDmes("新天文社員  「沒有可以撿的屍體了！」");
        G#28 <- SetDmes("新天文社員  「新天文社員，萬歲！」");
        G#29 <- SetDmes("新天文社員  「祝新天文社員勝利」");
        G#30 <- SetDmes("新天文社員  「祝吉美大姐勝利！」");
        G#31 <- SetDmes("新天文社員  「吉美，請妳一定要戰勝••••••」");
        G#32 <- SetDmes("新天文社員  「吉美學姐，萬歲！」");
        G#33 <- SetDmes("新天文社員  「新天文社員是幸運」");
        G#34 <- SetDmes("新天文社員  「妳••們•••！」");
        G#35 <- SetDmes("新天文社員  「妳們這些傢伙！」");
        G#36 <- SetDmes("新天文社員  「色即是空！」");
        G#37 <- SetDmes("新天文社員  「色即是空！」");
    G#27-37 <- SetBelong(NEOTEN,1);

        G#38 <- Entry(YOSHIMI) + Posit(27,10,RIGHT) + SetLevel(15);
        G#39 <- Entry(MAC)     + Posit(27,12,RIGHT) + SetLevel(5);
        G#40 <- Entry(RINGO)   + Posit(27,14,RIGHT) + SetLevel(5);
        G#41 <- Entry(HAIKA)   + Posit(27,16,RIGHT) + SetLevel(7);
        G#42 <- Entry(KOTOERI) + Posit(27,18,RIGHT) + SetLevel(4);
                G#38-42 <- SetChara(ON,NONE,STAY);
                G#38 <- SetSkill(43,46,4,9);
                G#39 <- SetSkill(7);
                G#40 <- SetSkill(38,42,50);
                G#41 <- SetSkill(38,42,46,54);
                G#42 <- SetSkill(4,10,46);
        G#38 <- SetDmes("吉美  「我•••恨•••妳呀••！」");
        G#39 <- SetDmes("瑪格  「我的人生永不後悔！」");
        G#40 <- SetDmes("林玲  「吉美姐姐！」");
        G#41 <- SetDmes("佩伈  「我死，同志不死！！」");
        G#42 <- SetDmes("惠里香  「即使我在這裡戰死也不後悔！」");
    G#38-42 <- SetBelong(NEOTEN,1);

        G#43 <- Entry(SHIZUKO) + Posit(34,43);
        G#44 <- Entry(MAJYUTSU) + Posit(33,42);
        G#45 <- Entry(MAJYUTSU) + Posit(35,42);
        G#46 <- Entry(MAJYUTSU) + Posit(35,44);
        G#47 <- Entry(MAJYUTSU) + Posit(33,44);
                G#43-47 <- SetChara(ON,NONE,STAY) + SetLevel(15);
                G#43 <- SetSkill(0,10,16);
                G#44-47 <- SetSkill(40,44);
        G#44 <- SetDmes("魔術社員  「什麼！妳超過我了•••？」");
        G#45 <- SetDmes("魔術社員  「我的魔法！！」");
        G#46 <- SetDmes("魔術社員  「無法原諒！！」");
        G#47 <- SetDmes("魔術社員  「去死吧！！」");
    G#43-47 <- SetBelong(SHUGEI,1);
        G#2-48  <- SetHandle(COM);
}



intro() {
        EffectScreen(0);
        SetMch(130);
        SetMap(130);
        JumpMap(ZET(20,19));
        G#0,1,3-20,48,27-42 <- AppearEntry(SHUN);
        EffectScreen(3, 1,1, 0);
        EffectScreen(0);
        WaitTime(100);
        G#4 <- SetMove(SMOOTH,KEEP,SOU( 0, 6));
        Run(9);
        open {
                hj(C, 41, 4);
                PlayPCM(411,"卓美  「社長，請等一下」");
        }
        G#4 <- SetMove(SMOOTH,KEEP,SOU( 0,-6));
        Run(10);
        G#4 <- DeleteEntry(SHUN);
        G#4     <- Posit(31,10);
        G#4 <- AppearEntry(SHUN);
        G#0 <- SetMove(SMOOTH,BACK ,SOU( 0,-3));
        G#1 <- SetMove(SMOOTH,BACK ,SOU( 0,-3));
        G#1 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#16,32 <- SetMove(SMOOTH,KEEP ,SOU( 0, 0));
        G#16,32 <- SetMove(SMOOTH,KEEP ,SOU( 0, 0));
        G#16    <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#32    <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        Run(10);
        open {
                hj(R, 11, 1);
                PlayPCM(128,"由比  「真由美學姐，不知為什麼，"
                "我好緊張喔！」");
        }
        G#0 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        Run(10);
        open {
                hj(L,  1, 0);
                PlayPCM(37,"真由美  「由比，妳是第一次來到本社教室的吧！」");
                hj(R, 10, 1);
                PlayPCM(129,"由比  「我緊張得連腳都在發抖了。」");
                hj(L,  1, 0);
                PlayPCM(38,"真由美  「嘻嘻，希望妳在社長陛下面前可別"
                "失態了喔！」");
                hj(R, 11);
                PlayPCM(104,"由比  「是∼的！」");
        }
        G#0 <- SetMove(SMOOTH,BACK ,SOU( 0,-5));
        G#1 <- SetMove(SMOOTH,BACK ,SOU( 0,-5));
        G#16,32 <- SetMove(SMOOTH,KEEP ,SOU( 0, 0));
        G#16,32 <- SetMove(SMOOTH,KEEP ,SOU( 0, 0));
        G#16,32 <- SetMove(SMOOTH,KEEP ,SOU( 0, 0));
        G#16,32 <- SetMove(SMOOTH,FRONT ,SOU( 0, 0));
        Run(9);
        ScrollMap(SOU( 0,-13));
        G#0 <- SetMove(SMOOTH,BACK ,SOU( 0,-6));
        G#1 <- SetMove(SMOOTH,BACK ,SOU( 0,-6));
        G#4 <- SetMove(SMOOTH,FRONT,ZET(31, 9));
        Run(8);
        G#4 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
        Run(10);
        open {
                hj(R, 40,4);
                "卓美  「社長陛下，是西分社的分社長真由美。」";
        }
        G#4 <- SetMove(SMOOTH,FRONT,ZET(31, 9));
        Run(10);
        open {
                hj(C, 50,48);
                "天文社社長  「辛苦妳了，真由美。」";
        }
        G#4 <- SetMove(SMOOTH,LEFT,ZET(33,12));
        G#0 <- SetMove(SMOOTH,BACK,ZET(30,10));
        G#1 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#1 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#1 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
        Run(10);
        open {
                hj(R,  0, 0);
                "真由美  「社長陛下，好久不見了。」";
        }
        open {
                hj(C, 50,48);
                "天文社社長  「對呀，這次有關安全保證之事，"
                "是什麼呢？」";
                hj(R,  0, 0);
                "真由美  「其實是這樣子的，在前幾天有個所屬不明的社團"
                "越過界線攻擊我們。」";
                hj(L, 62,38);
                "吉美　「是生物社的人嗎？」";
        }
        G#0 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#1 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(3);
        open {
                hj(R,  0, 0);
                "真由美  「不是，吉美學姐。她們所穿的戰服及其他裝備看來"
                "很明顯地並不是生物社的人。」";
        }
        G#0 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
        Run(3);
        open {
                hj(C, 50,48);
                "天文社社長  「如果是這樣的話，事態就嚴重了。」";
        }
        G#0 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#1 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
        Run(3);
        open {
                hj(R, 32, 3);
                "瑪莉亞　「我們和生物社的和平條約談的很順利，"
                "怎麼會有那種沒有常識的人呢？」";
        }
        G#4 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
        G#0 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
        Run(10);
        open {
                hj(R, 42, 4);
                "卓美  「社長陛下，我們要不要擴大警戒區和加強西分社"
                "邊界的防守呢？」";
        }
        open {
                hj(C, 50,48);
                "天文社社長  「嗯••••••••」";
        }
        open {
                hj(L, 61,38);
                "吉美　「但是，就算我們現在有任何舉動"
                "是不是太慢了呢？」";
        }
        G#4 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#0 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(3);
        open {
                hj(R,  0);
                "真由美　「？！」";
        }
        FadeoutMusic();
        PlayMusic(304);
        ScrollMap(ZET(22,38));
        WaitTime(50);
        音Ｇ;
        G#43-47 <- AppearEntry(JIWA);
        open {
                hj(R,161,43);
                PlayPCM(804,"靜子　「連絡上了嗎？」");
                hj(L,240,45);
                PlayPCM(919,"謎之社員  「是的！連絡上了。」");
        }
        open {
                hj(R,162,43);
                PlayPCM(805,"靜子　「大家聽好！這場戰爭是塗改Ｑ女"
                "歷史的重要一戰。大家一定要全心全意。」");
                hj(R,242);
                hj(C,242);
                hj(L,242);
                PlayPCM(964,"謎之社員們　「嘿！嘿！嘿！」");
        }
        ScrollMap(ZET( 9,14));
        音Ｂ;
        G#21-26 <- AppearEntry(JIWA);
        open {
                hj(C,200,23);
                "謎之社員  「好，是我們出場的時候了。"
                "我們準備要潛入天文社教室，攻打得她們片甲"
                "不留。衝呀∼∼∼」";
                hj(L,200);
                hj(R,200);
                "謎之社員們　「哇啊！！」";
                hj(C,202);
                "謎之社員  「衝呀∼∼必殺技！３年才修成的必殺技。」";
        }
        ScrollMap(SOU( 0,-3));
        G#21 <- SetMove(SMOOTH,BACK,ZET(14,17));
        G#22 <- SetMove(SMOOTH,BACK,ZET(15,17));
        G#23 <- SetMove(SMOOTH,BACK,ZET(16,17));
        G#24 <- SetMove(SMOOTH,BACK,ZET(17,17));
        G#25 <- SetMove(SMOOTH,BACK,ZET(18,17));
        G#26 <- SetMove(SMOOTH,BACK,ZET(19,17));
        Run(3);
        G#21 <- SetMove(SMOOTH,BACK,ZET(14,16));
        G#22 <- SetMove(SMOOTH,BACK,ZET(15,16));
        G#23 <- SetMove(SMOOTH,BACK,ZET(16,16));
        G#24 <- SetMove(SMOOTH,BACK,ZET(17,16));
        G#25 <- SetMove(SMOOTH,BACK,ZET(18,16));
        G#26 <- SetMove(SMOOTH,BACK,ZET(19,16));
        音Ｄ + Run(6);
        音Ｃ + ScrollMap(SOU( 0, 1));
        WaitTime(10);
        音Ｃ + ScrollMap(SOU( 0,-1));
        WaitTime(10);
        音Ｃ + ScrollMap(SOU( 0, 1));
        WaitTime(10);
        音Ｃ + ScrollMap(SOU( 0,-1));
        WaitTime(10);
        音Ｃ + ScrollMap(SOU( 0, 1));
        WaitTime(10);
        音Ｃ + ScrollMap(SOU( 0,-1));
        WaitTime(10);
        音Ａ;
        PlayMusic(203);
        SetMap(131);
        JumpMap(ZET( 9,11));
        WaitTime(90);
        ScrollMap(ZET(20, 6));
        G#0 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#1 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#11 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#12 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#3 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#4 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#13 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
        G#14 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#15 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        Run(10);
        WaitTime(50);
        G#0 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#1 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#11 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#12 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#3 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#4 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#13 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#14 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#15 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(10);
        WaitTime(50);
        G#1 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#3 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#4 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#13 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#14 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
        G#15 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(10);
        WaitTime(50);
        open {
                hj(C, 52,48);
                "天文社社長  「外面怎麼這麼吵呢？是怎麼一"
                "回事呢？！」";
        }
                G#3 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
                Run(3);
        open {
                hj(R, 32, 3);
                "瑪莉亞  「不•••不清楚。外面的守衛在"
                "吵些什麼呀！」";
        }
        open {
                hj(C, 52,48);
                "天文社社長  「怎麼了呢？」";
        }
                G#3 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
                G#4 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
                Run(3);
        open {
                hj(R, 42, 4);
                "卓美  「！！我也不清楚！！」";
        }
        open {
                hj(C, 52,48);
                "天文社社長  「怎麼了呢？卓美！」";
        }
                G#4 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
                Run(3);
        open {
                hj(R, 42, 4);
                "卓美  「社長陛下！教室已被包圍住了•••••"
                "在敵人之中也有我們的人！」";
        }
        open {
                hj(C, 52,48);
                "天文社社長  「到底是怎麼一回事！」";
        }
        open {
                hj(L, 60,38);
                "吉美　「呼！呼！」";
        }
        G#38 <- SetMove(SMOOTH,RIGHT,ZET(28,10));
        G#0  <- SetMove(SMOOTH,RIGHT,ZET(30,10));
        G#0  <- SetMove(SMOOTH,LEFT ,ZET(30,10));
        G#3  <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#4  <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#13 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#14 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#1  <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(5);
        open {
                hj(L, 61,38);
                "吉美　「呼！呼！」";
        }
        G#39 <- SetMove(SMOOTH,RIGHT,ZET(29, 9));
        G#40 <- SetMove(SMOOTH,RIGHT,ZET(27, 9));
        G#41 <- SetMove(SMOOTH,RIGHT,ZET(29,11));
        G#42 <- SetMove(SMOOTH,RIGHT,ZET(27,11));

        G#17 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#18 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#19 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#20 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#6  <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#7  <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        Run(2);
        open {
                hj(C, 50,48);
                "天文社社長  「吉美，怎麼了？」";
                hj(L, 62,38);
                "吉美　「妳活該，誰叫妳這麼笨！」";
                hj(C, 50);
                "天文社社長  「？？」";
                hj(L, 61,38);
                "吉美　「到現在為止一直都讓我跟在身旁的社長妳，"
                "真是個無藥可救的大傻瓜。」";
        }
        G#4 <- SetMove(SMOOTH,LEFT ,SOU(-1, 0));
        G#1 <- SetMove(SMOOTH,LEFT ,SOU( 1, 0));
        Run(3);
        open {
                hj(R, 42, 4);
                "卓美  「吉美，妳什麼意思！」";
                hj(L, 60,38);
                "吉美　「什麼意思！就如妳所聽到"
                "的一樣呀！」";
                hj(L, 61,38);
                "吉美　「讓我再告訴妳一次吧！笨蛋的卓美，"
                "妳是沒有法子救社長的啦！」";
                hj(C, 52);
                "天文社社長  「什麼！吉美！」";
                hj(R, 42, 4);
                "卓美  「吉美，妳瘋了呀！」";
                hj(L, 60,38);
                "吉美　「我才沒有瘋呢！我只是發現自己竟然跟著這麼"
                "一位無能的社長罷了。」";
        }
        G#38 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(2);
        open {
                hj(L, 62,38);
                PlayPCM(705,"吉美　「我是一位關心天文社未來的愛社者，"
                "我現在在這裡宣言，新天文社的成立"
                "它才是為偉大的社團！！」");
        }
        G#27-37 <- SetBelong(NEOTEN,1);
        G#32 <- DeleteEntry(SHUN);
        G#32 <- Posit(30,32);
        G#32 <- AppearEntry(SHUN);
        G#38 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        Run(5);
        ScrollMap(ZET(21,27));
        open {
                hj(C,202,32);
                PlayPCM(916,"新天文社員  「嘿嘿！」");
        }
        G#27-37 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
        Run(5);
        WaitTime(70);
        open {
                hj(R,  2, 0);
                "真由美  「妳怎麼這麼自大呀，妳的心中還存有義氣嗎！」";
                hj(L, 61,38);
                "吉美　「像妳們這些鄉巴佬般的哈巴狗，"
                "我可無法了解義氣為何物了。」";
                hj(R,  0, 0);
                PlayPCM(39,"真由美  「看來妳根本就不懂義氣，"
                "才會說出那麼幼稚的話來。」");
                hj(L, 62);
                "吉美　「什麼！」";
                hj(R,  1, 0);
                PlayPCM(40,"真由美  「或者是那道理太過於深奧了，"
                "而妳無法理解呢？」");
                hj(C, 62);
                PlayPCM(702,"吉美　「妳••！」");
        }
        音Ｅ;
        WaitTime(10);
        G#38 <- SetMove(SMOOTH,RIGHT,SOU( 1, 0));
        Run(1);
        音Ｆ;
        G#0  <- SetMove(STEP  ,LEFT ,SOU( 1, 0));
        G#1  <- SetMove(SMOOTH,LEFT ,ZET(32,10));
        Run(1);
        open {
                hj(L, 62,38);
                PlayPCM(703,"吉美　「真由美，妳少耍嘴皮子，小心我把妳"
                "的舌頭割下來！」");
        }
        G#39 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(1);
        open {
                hj(L, 92,39);
                "瑪格  「吉美，空間轉送準備好了。"
                "快退下吧！」";
        }
        open {
                hj(C, 52,48);
                "天文社社長  「妳別想逃！！」";
        }
        G#39 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#4  <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        Run(1);
        open {
                hj(R, 42, 4);
                "卓美  「快點撤出阻止空間轉送的"
                "ＱＱ粒子！」";
        }
        G#4 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(1);
        open {
                hj(L, 62,38);
                "吉美　「轉送稍等！這女人我一定要親手"
                "殺了她！！」";
        }
        G#40 <- SetMove(SMOOTH,RIGHT,ZET(28,10));
        Run(4);
        open {
                hj(L,102,40);
                "林鈴　「吉美，轉送的門快關起來了。"
                "快呀！」";
        }
        G#40 <- SetMove(SMOOTH,RIGHT,ZET(27, 9));
        Run(7);
        open {
                hj(L, 60,38);
                "吉美　「我就讓妳再多活些日子吧！"
                "還不感謝我。」";
        }
        G#38 <- SetMove(SMOOTH,RIGHT,ZET(28,10));
        Run(6);
        G#38-42 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(10);
        open {
                hj(L, 60, 38);
                "吉美　「轉送！」";
        }
        G#43-47 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(3);
        音Ｂ;
        G#38-42 <- DeleteEntry(JIWA);
        G#38 <- Posit(28,43);
        G#39 <- Posit(29,42);
        G#40 <- Posit(27,42);
        G#41 <- Posit(29,44);
        G#42 <- Posit(27,44);
        ScrollMap(ZET(20,36));
        音Ｂ;
        G#38-42 <- AppearEntry(JIWA);
        G#38-42 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        Run(3);
        open {
                hj(R,161,43);
                "靜子　「吉美，妳還好吧？」";
                hj(L, 60,38);
                "吉美　「還好••••••」";
                hj(R,162,43);
                "靜子　「很好，大家注意！！我們的目標是天文社"
                "的社長。」";
        }
        G#43-47  <- SetMove(SMOOTH,BACK,SOU( 0, 0));
        Run(6);
        open {
                hj(C,202,23);
                "謎之社員  「是的」";
        }
        G#38-42  <- SetMove(SMOOTH,BACK,SOU( 0, 0));
        Run(6);
        open {
                hj(L, 92,39);
                PlayPCM(906,"瑪格  「為了我們的理想！」");
        }
        G#48 <- SetMove(SMOOTH,FRONT,SOU( 0, 1));
        Run(2);
        open {
                hj(C, 52,48);
                "天文社社長  「•••如果她們再進攻的話，加以反擊！」";
                hj(R, 42,4);
                "卓美  「了解」";
        }
        G#4 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(10);
        ScrollMap(SOU( 0, 7));
        G#4  <- SetMove(SMOOTH,FRONT,ZET(27,16));
        G#16 <- SetMove(SMOOTH,FRONT,ZET(28,17));
        G#15 <- SetMove(SMOOTH,FRONT,ZET(26,17));
        G#13 <- SetMove(SMOOTH,FRONT,ZET(26,15));
        G#14 <- SetMove(SMOOTH,FRONT,ZET(28,15));

        G#48 <- SetMove(SMOOTH,FRONT,ZET(30,17));
        G#11 <- SetMove(SMOOTH,FRONT,ZET(29,17));
        G#12 <- SetMove(SMOOTH,FRONT,ZET(31,17));
        
        G#20 <- SetMove(SMOOTH,FRONT,ZET(32,17));
        G#17 <- SetMove(SMOOTH,FRONT,ZET(32,15));
        G#19 <- SetMove(SMOOTH,FRONT,ZET(34,17));
        G#18 <- SetMove(SMOOTH,FRONT,ZET(34,15));
        Run(7);
        G#0  <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#1  <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#3  <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(5);
        open {
                hj(R, 30, 3);
                PlayPCM(311,"瑪莉亞  「真由美，打倒正面敵人的差事就交給我，"
                "西方的敵人就交給妳了。」");
        }
        open {
                hj(L,  0, 0);
                "真由美  「了解！」";
        }
        G#3  <- SetMove(SMOOTH,FRONT,ZET(33,16));
        Run(6);
        G#1  <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(5);
        open {
                hj(L,  2, 0);
                PlayPCM(41,"真由美  「由比，準備好了嗎？」");
                hj(R, 12);
                PlayPCM(106,"由比  「好了！」");
        }
        SetTitle("    『 亂』");
        G#0  <- SetMove(SMOOTH,LEFT ,ZET(26, 9));
        G#1  <- SetMove(SMOOTH,LEFT ,ZET(26,11));
        Run(5);
        ScrollMap(ZET( 7, 4));
        G#0  <- SetMove(SMOOTH,FRONT,ZET(15, 7));
        G#1  <- SetMove(SMOOTH,FRONT,ZET(17, 7));
        G#5  <- SetMove(SMOOTH,KEEP ,ZET(15,12));
        G#5  <- SetMove(SMOOTH,KEEP ,SOU( 0, 0));
        G#5  <- SetMove(SMOOTH,KEEP ,SOU( 0, 0));
        G#5  <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#5  <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#5  <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#5  <- SetMove(SMOOTH,KEEP ,ZET(15, 9));
        G#5  <- SetMove(SMOOTH,KEEP ,ZET(14, 9));
        G#5  <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#5  <- SetMove(SMOOTH,FRONT,ZET(14, 8));

        G#6  <- SetMove(SMOOTH,KEEP ,ZET(20,12));
        G#6  <- SetMove(SMOOTH,KEEP ,ZET(16,12));
        G#6  <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#6  <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#6  <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#6  <- SetMove(SMOOTH,KEEP ,ZET(16, 9));
        G#6  <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#6  <- SetMove(SMOOTH,KEEP ,SOU( 0, 0));
        G#6  <- SetMove(SMOOTH,FRONT,ZET(16, 8));

        G#7  <- SetMove(SMOOTH,KEEP ,ZET(19,11));
        G#7  <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#7  <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#7  <- SetMove(SMOOTH,FRONT,ZET(18, 8));

        G#8  <- SetMove(SMOOTH,FRONT,ZET(18, 6));

        G#9  <- SetMove(SMOOTH,KEEP ,ZET(16, 7));
        G#9  <- SetMove(SMOOTH,KEEP ,ZET(16, 8));
        G#9  <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        G#9  <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        G#9  <- SetMove(SMOOTH,FRONT,ZET(16, 6));

        G#10 <- SetMove(SMOOTH,KEEP ,ZET(14, 5));
        G#10 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        G#10 <- SetMove(SMOOTH,FRONT,ZET(14, 6));
        Run(7);

        "!u!c7,7,6,6,0!n    真由美的內心有股氣在沸騰。";
        "!n                        那是，";
        "!n    戰勝的預感激動著動脈！!o";
        SetJoken("勝利條件  　 敵方全滅!n          敵方撤退（戰勝５回合）!n失敗條件    真由美、由比其中一人死亡");
        "!u!z2,1!n!g320,4!fems!c7,15,3,0,14!sr#1111!z6,6!b11    『亂』!z2,2!l0,0!o!u!f0!p#aaaa!sr#5555M.T.J.!o";
        PlayPCM(2,"!u!n!z4,4!fmes!c1,1,0,0,2  ＳＴＡＧＥ　ＳＴＡＲＴ!o");


}



gameover_syori() {
        FadeoutMusic();
        PlayPCM(6,"!u!n!z4,4!fmes!c8,8,0,0,9   ＧＡＭＥ　ＯＶＥＲ!o");
        StopMusic();
        PlayMusic(106);
        GameOver();
}



stageclear_syori() {
        FadeoutMusic();
        F#57 = F#50;    F#58=F#51;      F#59=F#52;      F#60=F#53;
        F#61 = F#54;    F#62=F#55;      F#63=F#56;
        PlayPCM(4,"!u!n!z4,4!fmes!c1,1,0,0,2  ＳＴＡＧＥ  ＣＬＥＡＲ!o");
        StopMusic();
        StageClear();
}



mayumi_shibou() {
        open {
                hj(L,  3, 0);
                "真由美  「啊！我恨呀••••」";
        }
        FadeoutMusic();
        open {
                hj(R, 12, 1);
                "由比  「真由美學姐！」";
        }
        G#0 <- DeleteEntry(BOMB);
}



yui_shibou() {
        open {
                hj(R, 13, 1);
                "由比  「我•••我不行了」";
                hj(L,  2, 0);
                "真由美  「由比！由比！妳不能死在這裡呀！」";
                hj(R, 13, 1);
                "由比  「啊啊∼，真••由美••••學•••姐••••"
                "我走了••••」";
        }
        G#1 <- DeleteEntry(BOMB);
}



takumi_shibou() {
        open {
                hj(L, 43, 4);
                "卓美  「為什麼•••會是我呢！！」";
                hj(R, 53,48);
                "天文社社長  「卓美！到後面去！」";
                hj(L, 43, 4);
                "卓美  「社•長••陛下•••對不起了••••」";
        }
        G#4 <- DeleteEntry(JIWA);
}



marie_shibou() {
        open {
                hj(R, 33, 3);
                "瑪莉亞  「嗚嗚••不行了••••。社長陛下，"
                "請讓我退下吧••••」";
        }
        G#3 <- DeleteEntry(JIWA);
}



mayumi_kill() {
        open {
                hj(L,  2, 0);
                PlayPCM(11,"真由美  「看招！」");
        }
}



takumi_kill() {
        open {
                hj(L, 42, 4);
                "卓美  「這些沒用的傢伙！」";
        }
}



turn_keika1() {
        last_kaiwa1();
        G#50 <-Posit(21, 5);
        G#50 <- AppearEntry(SHUN);
        G#50 <- SetMove(SMOOTH,LEFT ,SOU(-10, 0));
        Run(6);
        WaitTime(5);
        G#50 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(1);
        WaitTime(5);
        G#50 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        Run(1);
        WaitTime(5);
        G#50 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(1);
        WaitTime(5);
        G#50 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
        Run(1);
        WaitTime(5);
        G#50 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(50);
        last_kaiwa2();
}



turn_keika2() {
        last_kaiwa1();
                G#50 <-Posit(21, 8);
                G#51 <-Posit(22, 3);
                G#52 <-Posit(22, 6);
                G#53 <-Posit(22, 7);
                G#54 <-Posit(23, 3);
                G#55 <-Posit(23, 4);
                G#56 <-Posit(23, 5);
                G#57 <-Posit(24, 1);
                G#58 <-Posit(24, 2);
                G#59 <-Posit(24, 3);
                G#60 <-Posit(25, 3);
                G#61 <-Posit(25, 5);
                G#62 <-Posit(25, 8);
                G#63 <-Posit(26, 3);
                G#64 <-Posit(26, 5);
                G#65 <-Posit(26, 8);
                G#66 <-Posit(27, 5);
                G#67 <-Posit(27, 8);
                G#68 <-Posit(29, 5);
                G#69 <-Posit(30, 4);
                G#70 <-Posit(30, 5);
                G#71 <-Posit(30, 6);
                G#72 <-Posit(31, 3);
                G#73 <-Posit(31, 4);









                G#74 <-Posit(31, 6);
                G#75 <-Posit(31, 7);
                G#76 <-Posit(32, 2);
                G#77 <-Posit(32, 3);
                G#78 <-Posit(32, 7);
                G#79 <-Posit(32, 8);
                G#80 <-Posit(33, 2);
                G#81 <-Posit(33, 8);
                G#82 <-Posit(35, 2);
                G#83 <-Posit(35, 6);
                G#84 <-Posit(35, 7);
                G#85 <-Posit(36, 2);
                G#86 <-Posit(36, 5);
                G#87 <-Posit(36, 8);
                G#88 <-Posit(37, 3);
                G#89 <-Posit(37, 4);
                G#90 <-Posit(37, 5);
                G#91 <-Posit(37, 6);
                G#92 <-Posit(37, 7);
                G#93 <-Posit(38, 6);
                G#94 <-Posit(39, 4);
                G#95 <-Posit(39, 5);
                G#96 <-Posit(39, 6);
                G#97 <-Posit(39, 7);
                G#98 <-Posit(39, 8);
                G#99 <-Posit(40, 6);
        G#50-99 <- AppearEntry(SHUN);
        G#50-99 <- SetMove(SMOOTH,LEFT ,SOU(-20, 0));
        Run(6);
        WaitTime(5);
        G#50-99 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(1);
        WaitTime(5);
        G#50-99 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        Run(1);
        WaitTime(5);
        G#50-99 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(1);
        WaitTime(5);
        G#50-99 <- SetMove(SMOOTH,BACK ,SOU( 0, 0));
        Run(1);
        WaitTime(5);
        G#50-99 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(50);
        last_kaiwa2();
}




last_kaiwa1()
{
        G#43-47  <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(6);
        check(@enemy == 10) {
                open {
                        hj(R,162,43);
                        "靜子　「吉美，我們全都滅了。看來，我們低估了天文社"
                        "的戰鬥能力。」";
                        hj(R,160);
                        "靜子　「我要撤回我的部隊。」";
                }
        } else {
                open {
                        hj(R,160,43);
                        "靜子　「吉美，很抱歉！我想要"
                        "撤回我的部隊。」";
                }
        }
        G#38-42  <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        Run(6);
        open {
                hj(L, 62,38);
                "吉美　「什麼？妳怎麼可以這樣做呢？」";
                hj(R,161,43);
                "靜子　「再這樣子下去，只是一直消耗掉戰力罷了，"
                "我可不想被花蘭小姐罵。」";
                hj(L, 60,38);
                "吉美　「但是，我們現在是不能再回頭。"
                "妳是想撤退嗎？」";
                hj(R,161,43);
                "靜子　「我們必須等待支援到來後再攻擊，"
                "否則我們就是死路一條。"
                "如果妳想那樣的話也沒有關係。」";
                hj(L, 62);
                "吉美　「妳既然都這麼說了•••••。」";
                hj(L, 60);
                "吉美　「我們收隊了！」";
        }
        open {
                hj(R,162,43);
                "靜子　「 等下一次吧。」";
        }
        G#43-47 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(6);
        音Ｇ;
        G#43-47 <- DeleteEntry(JIWA);
        FadeoutMusic(60);
        G#38 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(6);
        open {
                hj(R, 60,38);
                "吉美　「我受不了••••」";
                hj(L, 70,42);
                "惠里香  「吉美，忍耐一點吧。我們現在需要她"
                "們的協助。」";
                hj(R, 62);
                "吉美　「我知道了。撤退！」";
        }
        G#38-42 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(6);
        音Ｂ;
        G#38-42 <- DeleteEntry(JIWA);
        G#21-37 <- DeleteEntry(SHUN);
        G#3 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(6);
        open {
                hj(R, 31, 3);
                "瑪莉亞　「社長，敵方在撤退！」";
        }
        G#48 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(6);
        open {
                hj(C, 50,48);
                "天文社社長　「是嗎！辛苦大家了！」";
        }
        G#4 <- SetMove(SMOOTH,FRONT,SOU( 0, 0));
        Run(6);
        open {
                hj(L, 42, 4);
                "卓美  「吉美怎麼會做出這樣的事呢！」";
                hj(C, 52,48);
                "天文社社長  「她也一定不會就此作罷的。"
                "她一定還會請求援軍，再度來攻擊我們的。」";
        }
        G#48 <- SetMove(SMOOTH,LEFT,SOU( 0, 0));
        Run(6);
        open {
                hj(C, 52,48);
                "天文社社長  「我們休閒的時間已經結束了。"
                "擅長!u!c8長距離攻擊的卓美為援軍。!o真由美回到西分社"
                "去加強防守。」";
        }
        ScrollMap(ZET(@posx(0)-7,@posy(0)-5));
        G#0 <- SetMove(SMOOTH,RIGHT,SOU( 0, 0));
        Run(6);
        open {
                hj(L,  0, 0);
                "真由美  「是的」";
        }
        ScrollMap(ZET(@posx(4)-12,@posy(4)-5));
        G#4 <- SetMove(SMOOTH,LEFT ,SOU( 0, 0));
        Run(6);
        open {
                hj(R, 41, 4);
                "卓美  「我是弓兵的山田卓美。請多指教。」";
        }
        G#0,1,3-20,48 <- DeleteEntry(SHUN);
        StopMusic();
        PlayMusic(102);
        EffectScreen(0);
        SetMch(000);
        SetMap(000);
        JumpMap(ZET( 1, 1));
        EffectScreen(3, 1,2, 0);
        EffectScreen(0);
        G#50-99 <- Entry(TAKUMI);
}




last_kaiwa2()
{
        WaitTime(50);
        "山田卓美••是天文社的外務省長官，也是一位優秀的軍師。";
        "她的攻擊力、防禦力等並不是特別超強，"
        "最大的魅力是在於會使用長距離攻擊的弓術。"
        "一開始就具有『！！弓術！』的技能。";
        "若要攻擊離卓美２格的敵人時，"
        "她的弓會自動攻擊。!n"
        "這樣長距攻擊的最大優點是，"
        "不會受到敵方的反擊。";
        FadeoutMusic(20);
        G#50 <- DeleteEntry(SHUN);
        SetMch(130);
        SetMap(131);
        JumpMap(ZET(10,13));
        G#0,1,3-20,48 <- AppearEntry(SHUN);
        open {
                hj(L,  1, 0);
                "真由美  「妳是卓美吧！我是真由美，"
                "我們快去西分社吧！」";
        }
}




main() {
        once {
                init();
                intro();
        }
        if(girl(0) == @dead) {
                mayumi_shibou();
                gameover_syori();
        }
        if(girl(1) == @dead) {
                yui_shibou();
                gameover_syori();
        }
        if(girl(48) == @dead) gameover_syori();
        if(girl(3) == @dead) once marie_shibou();
        if(girl(4) == @dead) once takumi_shibou();
        check(girl(0) == @battle) {
                \enemy_tmp = @enemy;
        }
        if(girl(0) == @battle && \enemy_tmp < @enemy) {
                once mayumi_kill();
        }
        check(girl(4) == @battle) {
                once takumi_kill();
        }
        check(@enemy == 10) {
                turn_keika2();
                G#4 <- SetHandle(MAN);
                stageclear_syori();
        }
        check(@turn == 5) {
                turn_keika1();
                G#4 <- SetHandle(MAN);
                stageclear_syori();
        }
}
