code:

---

alertbox 'RHOldManPlot' {
	Show(); Title(ID_BLANK);
	Text(ID_RH_OLDMAN_PLOT);
	Button(ID_DISAGREE) {
		Kill();
		Message(g.player, 'RHDisagree');
	}	
	Button(ID_GIVE_MONEY) {
		Kill();
		Message(1, 'RHGiveMoney');
	}
	Button(ID_TAKE_MAP) {
		Kill();
	}
}
alertbox 'RHDisagree' {
	Show(); Title(ID_BLANK);
	Text(ID_RH_OLDMAN_DISAGREE);
	GameOver();
}
alertbox 'RHGiveMoney' {
	Show(); Title(ID_BLANK);
	Text(ID_RH_OLDMAN_GIVEMONEY);
	AddGold(g.player, -100);
	if (random(4) != 0) {
		Text(ID_RH_OLDMAN_SUCCESS);
	}
	else {
		Text(ID_RH_OLDMAN_FAIL);
	}
}
	

---