#include("system.prg")

#playertalk(Barman Ling)
#mwin(" [Burp] Wahddya want?")
#pause()
#mwincls()

#done!=0
#while(done!=0)
{
#playertalk(Raie)
#mwin(" 1- Give us a beer. (10GP)")
#mwin(" 2- What you got against Angels?")
#mwin(" 3- Nothing.")
#wait(a$)
#mwincls()

#if(a$=="1")
{
#getgp(gp!)
	#if(gp!<10)
	{
		#playertalk(Barman Ling)
		#mwin(" What?! You aint got enough money. Get out!")
		#pause()
		#mwincls()
		#done!=1
	}

	#if(gp!>10)
	{
		#playertalk(Barman Ling)
		#mwin(" There. Give us the GP then...")
		#pause()
		#mwincls()
		#bold(on)
		#mwin(" Paid 10GP")
		#takegp(10)
		#pause()
		#mwincls()
		#bold(off)
		#playertalk(Raie)
		#mwin(" Urgh, I don't feel so good...")
		#pause()
		#mwincls()
		#bold(on)
		#mwin(" Lost 10HP!")
		#pause()
		#mwincls()
		#givegp("Raie",-10)
		#done!=1
	}
}

#if(a$=="2")
{
#playertalk(Barman Ling)
#mwin(" You aint tellin me you sympathise with those scum?")
#pause()
#mwin(" I don't have to answer to you kid.")
#pause()
#mwincls()
#done!=1
}

#if(a$=="3")
{
#playertalk(Barman Ling)
#mwin(" Whatddya talk to me for then?! Wastin me time!")
#pause()
#mwincls()
#done!=1
}
}

#kill(done!)