Переписать создания вопросов

Нужно чтобы в GAMEMODE.ques:Create создавался вопрос у таргета
Оплата киви 150р

Спойлер
local RapistVoices = {
	"vo/npc/female01/moan01.wav",
	"vo/npc/female01/moan02.wav",
	"vo/npc/female01/moan03.wav",
	"vo/npc/female01/moan04.wav",
	"vo/npc/female01/moan05.wav"
}

local TargetVoices = {
	"vo/npc/male01/moan01.wav",
	"vo/npc/male01/moan02.wav",
	"vo/npc/male01/moan03.wav",
	"vo/npc/male01/moan04.wav",
	"vo/npc/male01/moan05.wav"
}

local function TakeHunger(pl)
	local energy = pl:getDarkRPVar("Energy")
	if energy >= 10 then
		energy = energy - 10
		pl:setSelfDarkRPVar("Energy", energy)
	else
		pl:setSelfDarkRPVar("Energy", 0)
	end
end

local function IsPimp()
	for k, v in pairs(player.GetAll()) do 
		if v:Team() == TEAM_PIMP then 
			return true
		end
		return false
	end
end

local function PimpsCut()
	for k, v in pairs(player.GetAll()) do 
		if v:Team() == TEAM_PIMP then 
			v:addMoney(1000)
			DarkRP.notify(v, 0, 5, "Ты заработал ₽1000 со своей шлюхи.")
		end
	end
end


local function DoFuck(pl, Target)
	if Target:Team() != TEAM_PIMP then
		if (!Target:canAfford(2500)) then
			DarkRP.notify(pl, 0, 5, Target:Nick() .. " не может позволить себе Ваши услуги!")
			DarkRP.notify(Target, 0, 5, "Вы не можете позволить себе услуги " .. pl:Nick())
			return
		end
		
		pl:addMoney(1500)
		Target:addMoney(-2500)
		PimpsCut()
	end

	for k,v in pairs(ents.FindInSphere(pl:GetPos(),200)) do 
		if v:IsPlayer() && v:isCP() && !pl:isWanted() then
			pl:wanted(v, "Проституция")
			break
		end
	end
	
	local FuckTime = math.random(5,10)
	local Chance = math.random(1, 8)

	pl:Freeze(true)
	timer.Create("FuckSounds", 1.5, 0, function()
		pl:EmitSound(table.Random(RapistVoices), 500, 100)
		pl:ViewPunch(Angle(math.random(-1, 1), math.random(-1, 1), math.random(-10, 10)))
	end)

	Target:Freeze(true)
	timer.Create("TargetSounds", 1.5, 0, function()
		Target:EmitSound(table.Random(TargetVoices), 500, 100)
		Target:ViewPunch(Angle(math.random(-1, 1), math.random(-1, 1), math.random(-10, 10)))
	end)

	timer.Create("FuckUnFreeze", FuckTime, 1, function()
		pl:TakeHunger(10)
		Target:EmitSound("bot/hang_on_im_coming.wav")
		pl:Freeze(false)
		Target:TakeHunger(10)
		Target:EmitSound("ambient/voices/m_scream1.wav")
		Target:Freeze(false)
		if Chance == 3 then	
			DarkRP.notify(Target, 0, 5, "Вы заразились сифилисом.")
			local vData = {
				vaccine_id = 5,
				vaccine_stage = 1,
				inflictor = pl,
				infect_type = "virusnode_explosion"
			}
			zbl.Player.Infect(Target,vData)
		end
		if Chance == 4 then	
			DarkRP.notify(Target, 0, 5, "Вы заразились сифилисом.")
			local vData = {
				vaccine_id = 5,
				vaccine_stage = 1,
				inflictor = Target,
				infect_type = "virusnode_explosion"
			}
			zbl.Player.Infect(pl,vData)
		end
		timer.Destroy("FuckSounds")
		timer.Destroy("TargetSounds")
	end)
end

local function FuckPlayer(pl)
	local Target = pl:GetEyeTrace().Entity

	if !IsValid(pl) then return "" end
	if !IsValid(Target) then return "" end
	if !pl:Alive() then return "" end

	if pl:EyePos():DistToSqr(Target:GetPos()) > 19600 or !Target:IsPlayer() then 
		DarkRP.notify(pl, 0, 5, "Должен быть ближе к своей цели!")
		return ""
	end

	if !pl:Alive() then 
			DarkRP.notify(pl, 0, 5, "Вы мертвы")
		return "" 
	end

	if !pl:IsSuperAdmin() then
		if pl:Team() != TEAM_WHORE then
			DarkRP.notify(pl, 0, 5, "Вы не проститутка.")
			return ""
		end
	end

	if Target:IsNPC() then
		DarkRP.notify(pl, 0, 5, "Вы не можете заняться сексом с NPC.")
		return "" 
	end

	if Target:IsFrozen() then
		DarkRP.notify(pl, 0, 5, "Ваша цель заморожена.")
		return "" 
	end

	if (Target:isCP() or Target:Team() == TEAM_MAYOR) and not pl:isWanted() then
		pl:wanted(nil, "Проституция")
	end

	DarkRP.notify(pl, 0, 5, "В ожидании ответа.")

	local FuckCost = 2500
	if Target:Team() == TEAM_PIMP then
		FuckCost = 0
	end

	GAMEMODE.ques:Create("Хотели бы вы занятся сексом с " ..  pl:Nick() .. " за ₽" .. FuckCost .. "?", "fuckyfucky" .. pl:UserID(), Target, 30, function(answer, ent, initiator, target)
		if tobool(answer) == false then 
			DarkRP.notify(pl, 0, 5, "Ваша цель не желает заниматься сексом.")
			return ""
		elseif tobool(answer) && pl:EyePos():DistToSqr(Target:GetPos()) > 19600 or !Target:IsPlayer() then
			DarkRP.notify(pl, 0, 5, "Ваша цель слишком далеко.")
			DarkRP.notify(Target, 0, 5, "Ваша шлюха слишком далеко.")
			return ""
		elseif tobool(answer) then
			DoFuck(pl, Target)
			if IsPimp() then
				DarkRP.notify(pl, 0, 5, "+₽2500 - ₽1000 (доля сутенера)")
			else
				DarkRP.notify(pl, 0, 5, "+₽2500")
				DarkRP.notify(Target, 0, 5, "-₽2500")
				return ""
			end
			DarkRP.notify(Target, 0, 5, "-₽2500")
			return ""
		end
	end)
end
DarkRP.defineChatCommand("fuck", FuckPlayer)
DarkRP.defineChatCommand("sex", FuckPlayer)