#include("system.prg")

#playertalk(Hotel Owner)
#mwin(" Would you like to spend the night?")
#pause()
#mwincls()

#done!=0
#while(done!=0)
{
#playertalk(Raie)
#mwin(" 1- Yeah (100GP)")
#mwin(" 2- No thanks")
#wait(a$)
#mwincls()

#if(a$=="1")
{
#getgp(gp!)
#if(gp!<100)
{
#playertalk(Hotel Owner)
#mwin(" I'm sorry sir, you don't have enough gold.")
#pause()
#mwincls()
#done!=1
}

#if(gp!>100)
{
#playertalk(Hotel Owner)
#takegp(100)
#mwin(" Thank you very much sir. Enjoy your stay.")
#pause()
#mwincls()
#fade(2)
#inn()
#text(14,10,"...")
#delay(1)
#text(17,10,"...")
#delay(1)
#text(16,10,"...")
#delay(3)

#send("frt djore town N4.brd",23,12,1)
#done!=1
}
}

#if(a$=="2")
{
#playertalk(Hotel Owner)
#mwin(" Ok, come back wherever you feel sleepy.")
#pause()
#mwincls()
#done!=1
}
}