unit kamegari
{
       name = ヒッサーと亀狩り
       image = hissssa
       politics = erase
}

event ev_kamegari1
{
       msg(saros,saros.png,ねーねーヒッサー)
       msg(hissssa,hissssa.png,なんだ？)
       msg(saros,saros.png,僕ね、久しぶりにニロケラスタートル食べたいな)
       msg(hissssa,hissssa.png,ん？もうそんな季節か)
       msg(slogar,slogar.png,なら俺が狩ってきてやろうか？$10匹でも20匹でも狩ってくるぞ)
       msg(saros,saros.png,ヒッサーとスローガーどっちが沢山狩れるかな？)
       msg(hissssa,hissssa.png,俺は行くとは言ってないぞ)
       msg(slogar,slogar.png,どうしたヒッサー、俺に負けるのが怖いのか？)
       msg(hissssa,hissssa.png,なんだと)
       wait(15)
       msg(hissssa,hissssa.png,・・・・・)
       wait(15)
       msg(hissssa,hissssa.png,よし行くぞ)
       wait(10)
       msg(hissssa,hissssa.png,ディーナお前もこい)
       msg(dina,dina.png,なんで私まで)
       erase()
       scroll(z6s2)
       spotmark(z6s2)
       wait(30)
       routine(ev_kamegari2)
       
       msg(その後一週間亀だけが食卓にならぶことになった)
       msg(dina,dina.png,うう・・・$肌の色まで緑色になった気がするわ)
}
event ev_kamegari2
{
       title = ヒッサーと亀狩り
       handle = blue
       map = z6s2
       limit = 5000
       bgm = b1
       volume = 60
       next()
       
       addTroop(ev_turtle,849,1455,0,red)
       addTroop(ev_turtle,849,1400,0,red)
       addTroop(ev_turtle,820,1500,0,red)
       addTroop(ev_turtle,1241,1370,0,red)
       addTroop(ev_turtle,1201,1320,0,red)
       addTroop(ev_turtle,1260,1320,0,red)
       
       addTroop(evhissssa,1169,2259,0,blue)
       addTroop(evslogar,1180,2259,0,blue)
       addTroop(evdina,1150,2259,0,blue)
       speedTroop(evhissssa,0)
       speedTroop(evslogar,0)
       speedTroop(evdina,0)
       scroll(1300,1300)
       wait(50)
       talk(evhissssa,hissssa.png,いたぞニロケラスタートルだ)
       wait(30)
       scroll(evhissssa)
       msg(さあ亀狩りの始まりだ)
       wait(20)
       speedTroop(evhissssa,180)
       speedTroop(evslogar,120)
       speedTroop(evdina,100)
       
       
       battle
       {
              if(isRedAlive() == 0){
                                    scroll(evdina)
                                    set(killnumber,48)
                                    sub(killnumber,hissssakill)
                                    set(slogarkill,killnumber)
                                    msg(evdina,dina.png,ヒッサーは&hissssakill&体、スローガーは&slogarkill&体仕留めたわね)
                                    sub(hissssakill,slogarkill)
                                    if(hissssakill < 0){
                                                        msg(evdina,dina.png,スローガーの勝ちね)
                                                        msg(evdina,evdina.png,ヒッサーあなたどこか悪いんじゃない？私が診察してあげましょうか)
                                                        }
                                    if(hissssakill > 0){
                                                        msg(evdina,dina.png,ヒッサーの勝ちね)
                                                        msg(evdina,dina.png,まあそうなると思ってたわ)
                                                        }
                                    if(hissssakill == 0){
                                                         msg(evdina,dina.png,同数ね)
                                                         msg(evdina,dina.png,やるわねスローガー、ヒッサーに勝てないまでも負けないなんて)
                                                         }
                                    wait(25)
                                    msg(evdina,dina.png,で、こんなに亀を狩ってどうするの？)
                                    msg(evhissssa,hissssa.png,リザードマンは無駄な殺生はしない)
                                    msg(evslogar,slowgar.png,全部喰うに決まってるだろ！！)
                                    msg(evdina,dina.png,・・・・・・・・・・・・・・・・・・（まじかよ）)
                                    win()
                                    }
        }
}

unit evhissssa : hissssa
{
       level = 20
       hprec = 5000
       handle = on
       member = @
}
unit evslogar : slogar
{
       level = 20
       hprec = 5000
       handle = on
       member = @
       beast_unit = on
}
unit evdina : dina
{
       level = 20
       hprec = 5000
       handle = on
       member = @
       delskill = sp_vx,syringe2,syringe1
       delskill2 = syringe2,syringe1
       beast_unit = on
}
class ev_turtle : wild_turtle
{
       name = ニロケラスタートル
       level = 3
       consti = fire*3,cold*10,club*3,toxin*3
       member = ev_turtle*7
       wake_range = 400
       dead_event = killcount1
}

event killcount1
{
       subv(dead_event_a,evhissssa)
       if(count(dead_event_a) == 0){add(hissssakill,1)}
}



/*
       hissssa
       slogar
       dina
       silk
       saros
*/