#include("system.prg")
#fontsize(16)

#fade(4)

#italics(on)
#text(12,10,"Tread softly with an enemy undefeated.")
#text(12,11,"But beware an unchallenged rival far more so.")
#italics(off)
#text(18,12.5,"High Shaman Erandul Seth")
#delay(10)
#removeplyr(Raie)
#removeplyr(Kiran)
#removeplyr(Geo)
#removeplyr(Kristin)

#addplyr(Kryer)
#addplyr(Zear)
#newplyr("kryer.tem")
#send("kryers castle1.brd",11,5,1)
#push(w,Kryer)
#delay(2)
#done!=0
#while(done!=0)
{
#playertalk(Kryer)
#mwin(" He thinks I don't know...")
#pause()
#mwin(" Naive boy.")
#pause()
#mwincls()
#done!=1
}

#putplayer("Zear",16,2,1)
#push(s,"Zear")
#push(s,"Zear")
#push(s,"Zear")
#push(w,"Zear")

#done!=0
#while(done!=0)
{
#playertalk(Zear)
#mwin(" Sir, we've been unable to pinpoint the location of the Sirens Necklace.")
#pause()
#mwin(" The reward notice has been dispatched, but so far we have heard nothing.")
#pause()
#mwincls()
#done!=1
}

#push(e,"Kryer")
#push(e,"Kryer")
#playertalk(Kryer)
#mwin(" ... ")
#pause()
#mwincls()

#done!=0
#while(done!=0)
{
#playertalk(Zear)
#mwin(" Sir?")
#pause()
#mwincls()
#done!=1
}

#push(e,"Kryer")

#playertalk(Kryer)
#mwin(" We must catch them Major! We must retrieve that necklace.")
#pause()
#mwincls()

#playertalk(Zear)
#mwin(" I'll dispatch more troops to search for them sir.")
#pause()
#mwin(" It'll take them a few days to report back though.")
#pause()
#mwincls()

#playertalk(Kryer)
#mwin(" GODDAMMIT, WE DON'T HAVE A FEW DAYS!")
#pause()
#mwin(" In 24 hours that thing will be off the continent and out of our juristiction.")
#pause()
#mwincls()

#playertalk(Zear)
#mwin(" What do you suggest we do sir?")
#pause()
#mwincls()

#playertalk(Kryer)
#mwin(" Put a lock down on all borders. No-one leaves the continent untill the necklace is found.")
#pause()
#mwincls()

#playertalk(Zear)
#mwin(" Sir, do we have the authority to do that?")
#pause()
#mwincls()

#playertalk(Kryer)
#mwin(" That necklace is of national importance. We have the authority.")
#pause()
#mwin(" Lock down every border, every boat, every sub, every car and every Airship.")
#pause()
#mwincls()

#done!=0
#while(done!=0)
{
#playertalk(Zear)
#mwin(" Yes Sir.")
#pause()
#mwincls()
#done!=1
}
#push(e,"Zear")
#push(n,"Zear")
*#push(n,"Zear")
#eraseplayer("Zear")
*#putplayer("Kryer",10,7,1)
#playertalk(Kryer)
#mwin(" I won't let you get away with this.")
#pause()
#mwin(" I'm on to you my old friend.")
#pause()
#mwincls()

#playertalk(Kryer)
#mwin(" See you soon, Raie.")
#pause()
#mwincls()

#fade(2)

#removeplyr(Kryer)
#removeplyr(Zear)
#addplyr(Raie)
#addplyr(Kiran)
#addplyr(Geo)
#addplyr(Kristin)
#newplyr("raie.tem")

#run("after kryers lock down order.prg")