RButton & N::
{
; !!!!!  if id targeta == -1 ---> skip all
a := getIdByPed(getTargetPed()) ; id таргета

if (a != -1)
	{
	b := getPlayerNameById(a) ; имя таргета
	c := UnderlineReplace(b) ; имя без подчёркивания

	SendChat( c ", хотите переспать со мной?")
	Sleep, 1000
	SendChat("))")
	}

}
Return


UnderlineReplace(x)
{
StringReplace, REPL, x, _, %A_Space%, All
Return REPL
}