Need help.

[sarov]

Okay, so first I began to make a new script.
First, I make the gossip menu and it works without any errors at all.
Then, I begin to do some event registering.. and guess what? I reload the scripts, test it.. the gossip works fine but what is meant to happen after isn't working at all.
I'm using LuaHypArc, btw.

function haddan_OnMenu1(pUnit, event, player)

	pUnit:GossipCreateMenu(4344576, player, 0)
	pUnit:GossipMenuAddItem(9, "We need to stop lying low and start doing something. If we stay here the guards will track us down and arrest us.", 1, 0)
	pUnit:GossipMenuAddItem(7, "I'll wait.", 2, 0)
	pUnit:GossipSendMenu(player)
end

function haddan_OnGossipSelect(pUnit, event, player, id, intid, code)
	if (intid == 1) then
		pUnit:SendChatMessage(12, 0, "What is ther' tae do? We're stuck here 'til we can--")
		player:GossipComplete()
		pUnit:Emote(1, 1000)
		pUnit:RegisterEvent("haddan_Cast", 5000, 1)
        end

	if (intid == 2) then
		player:GossipComplete()
	end

end

RegisterUnitGossipEvent(844575, 1, haddan_OnMenu1)
RegisterUnitGossipEvent(844575, 2, haddan_OnGossipSelect)

function haddan_Cast(pUnit, event, player)
pUnit:SendChatMessage(12, 0, "Did ye hear that? It's coming from upstairs...")
pUnit:SendChatMessage(16, 0, "The sound of a loud horn fills your ears.")
 pUnit:Emote(6, 1155)
 player:PlaySoundToPlayer(10843)
 pUnit:RegisterEvent("haddan_scared_Cast", 5000, 1)
 end
 
 function haddan_scared_Cast(pUnit, event, player)
 pUnit:SendChatMessage(12, 0, "Do ye even know what a bloody HORN means?! It means they've found us! We're dead!")
 pUnit:Emote(430, 5555)
    pUnit:RegisterEvent("haddan_beg_Cast", 5555, 1)
 end
 
 function haddan_beg_Cast(pUnit, event, player)
 pUnit:SendChatMessage(12, 0, "Titans above, I beg of ye, save my spirit from damnation...")
end

I don't know about this one.. in the past I have been able to solve errors like this but this one eludes me. There's probably a simple and easy solution which I may have forgot.

[stoneharry]

You can't register events within a gossip menu (a ancient bug that has always existed).

To get around this, register a event to happen every few seconds on spawn of the npc, then in that function check to see whether a boolean has been set to true (which can be set to true when you click gossip menu) then you know when it has been pressed and can continue as normal.

[sarov]

It's still not working... perhaps I really am missing the error here but nevertheless further guidance would be great.

-- Much thanks goes to Stoneharry for his assistance.

local hax = nil

function haddan_OnMenu1(pUnit, event, player)

	pUnit:GossipCreateMenu(4344576, player, 0)
	pUnit:GossipMenuAddItem(9, "We need to stop lying low and start doing something. If we stay here the guards will track us down and arrest us.", 1, 0)
	pUnit:GossipMenuAddItem(7, "I'll wait.", 2, 0)
	pUnit:GossipSendMenu(player)
end

function haddan_OnGossipSelect(pUnit, event, player, id, intid, code)
	if (intid == 1) then
		pUnit:SendChatMessage(12, 0, "What is ther' tae do? We're stuck here 'til we can--")
		player:GossipComplete()
		pUnit:Emote(1, 1000)
        end

	if (intid == 2) then
		player:GossipComplete()
	end

end

function haddan_OnSpawn (pUnit, event, player)
pUnit:RegisterEvent("ancienterror_Cast", 5, 1)
end


RegisterUnitGossipEvent(844575, 1, haddan_OnMenu1)
RegisterUnitGossipEvent(844575, 2, haddan_OnGossipSelect)
RegisterUnitEvent(844575, 1, haddan_OnSpawn)

function ancienterror_Cast (pUnit, event, player)
hax = pUnit
hax:RegisterEvent("haddan_Cast", 5000, 1)
end


function haddan_Cast(pUnit, event, player)
pUnit:SendChatMessage(12, 0, "Did ye hear that? It's coming from upstairs...")
pUnit:SendChatMessage(16, 0, "The sound of a loud horn fills your ears.")
 pUnit:Emote(6, 1155)
 player:PlaySoundToPlayer(10843)
 pUnit:RegisterEvent("haddan_scared_Cast", 5000, 1)
 end
 
 function haddan_scared_Cast(pUnit, event, player)
 pUnit:SendChatMessage(12, 0, "Do ye even know what a bloody HORN means?! It means they've found us! We're dead!")
 pUnit:Emote(430, 5555)
    pUnit:RegisterEvent("haddan_beg_Cast", 5555, 1)
 end
 
 function haddan_beg_Cast(pUnit, event, player)
 pUnit:SendChatMessage(12, 0, "Titans above, I beg of ye, save my spirit from damnation...")
end

[stoneharry]

local ready = false

function haddan_OnMenu1(pUnit, event, player)
	pUnit:GossipCreateMenu(4344576, player, 0)
	pUnit:GossipMenuAddItem(9, "We need to stop lying low and start doing something. If we stay here the guards will track us down and arrest us.", 1, 0)
	pUnit:GossipMenuAddItem(7, "I'll wait.", 2, 0)
	pUnit:GossipSendMenu(player)
end

function haddan_OnGossipSelect(pUnit, event, player, id, intid, code)
	if (intid == 1) then
		pUnit:SendChatMessage(12, 0, "What is ther' tae do? We're stuck here 'til we can--")
		player:GossipComplete()
		pUnit:Emote(1, 1000)
		ready = true
    end
	if (intid == 2) then
		player:GossipComplete()
	end

end

function haddan_OnSpawn (pUnit, event)
	pUnit:RegisterEvent("ancienterror_Cast", 1000, 1)
end


RegisterUnitGossipEvent(844575, 1, haddan_OnMenu1)
RegisterUnitGossipEvent(844575, 2, haddan_OnGossipSelect)
RegisterUnitEvent(844575, 1, haddan_OnSpawn)

function ancienterror_Cast (pUnit, event)
	pUnit:RegisterEvent("haddan_Cast", 1000, 0)
end


function haddan_Cast(pUnit, event)
	if ready then
		ready = false
		pUnit:RemoveEvents()
		pUnit:SendChatMessage(12, 0, "Did ye hear that? It's coming from upstairs...")
		pUnit:SendChatMessage(16, 0, "The sound of a loud horn fills your ears.")
		pUnit:Emote(6, 1155)
		local player = pUnit:GetClosestPlayer()
		if player ~= nil then
			player:PlaySoundToPlayer(10843)
		end
		pUnit:RegisterEvent("haddan_scared_Cast", 5000, 1)
       end
 end
 
 function haddan_scared_Cast(pUnit, event)
	pUnit:SendChatMessage(12, 0, "Do ye even know what a bloody HORN means?! It means they've found us! We're dead!")
	pUnit:Emote(430, 5555)
    pUnit:RegisterEvent("haddan_beg_Cast", 5555, 1)
 end
 
function haddan_beg_Cast(pUnit, event, player)
	pUnit:SendChatMessage(12, 0, "Titans above, I beg of ye, save my spirit from damnation...")
	-- Reset gossip
	pUnit:RegisterEvent("haddan_Cast", 1000, 0)
end

[sarov]

Thanks man. Rep'd.

[stoneharry]

To improve the script and to stop people 'exploiting' it (and possible causing a server crash) you may want to change NPC flags upon gossip.

:SetNPCFlags(flags) : Sets the Unit's flags to the flags specified (This is used to disable gossip, etc).

0 doesn't work for some reason (thinks it is a nil value) so just set it to 2 (quest flags) until you are ready to reset gossip then change it back to 1 (talk).