Multifunctional NPC, change the weather and your gender with one button!

**Wolferine** · 31-10-09, 08:56 AM

Code:

--[[
       Multi functional NPC script.
       By Wolferine. Do not remove these credits, or claim this to be yours.
       
       WARNING:THIS SCRIPT REQUIRES LUAHYPARC!
]]

local NPC_ID = 11111


function MultiGossipOnTalk(pUnit, Event, player)
       pUnit::GossipCreateMenu(100, player, 0)
       pUnit:GossipMenuAddItem(0, "Change Gender.", 1, 0)
       pUnit:GossipMenuAddItem(0, "Reset Talents.", 2, 0)
       pUnit:GossipMenuAddItem(0, "I would like to see my bank.", 3, 0)
       PUnit:GossipMenuAddItem(0, "Remove Ressurection sickness.", 4, 0)
       pUnit:GossipMenuAdditem(0, "Set weather: Sunny.", 5, 0)
       pUnit:GossipMenuAddItem(0, "Set weather: Fog.", 6, 0)
       pUnit:GossipMenuAddItem(0, "Set weather: Rain.", 7, 0)
       pUnit:GossipMenuAddItem(0, "Set weather: Heavy rain.", 8, 0)
       pUnit:GossipMenuAddItem(0, "Set weather: Snow.", 9, 0)
       pUnit:GossipMenuAddItem(0, "Set weather: Sand Storm.", 10, 0)
       pUnit:GossipMenuAddItem(0, "Never mind.", 11, 0)
       pUnit:GossipSendMenu(player)
end

function MultiGossipOnSelect(pUnit, Event, player, id, intid, code, pMisc)
	if (intid == 1) then
		if (player:GetGender() == 0) then
			player:SetGender(1)
			player:SendBroadcastMessage("Gender set to Female, please relog to take effect.")
			Unit:GossipComplete
else
		if (player:GetGender() == 1) then
			player:SetGender(0)
			player:SendBroadcastMessage("Gender set to Male, please relog to take effect.")
			Unit:GossipComplete
		end
	end
end		

        if (intid == 2) then
                player:ResetTalents()
                player:SendBroadCastMessage("Talents reset")
                pUnit:GossipComplete()
         end

        if (intid == 3) then
                player:SendBankWindow(unit)
                pUnit:GossipComplete()
         end

if (intid == 4) then
		if (player:HasAura(15007) == true) then
			player:SendBroadcastMessage("Resurrection Sickness has been removed.")
			player:RemoveAura(15007)
			Unit:GossipComplete()
		else
			player:SendBroadcastMessage("You do not have Resurrection Sickness!")
			Unit:GossipComplete()
		end
	end

if (intid == 5) then
                player:SetPlayerWeather(0, 1)
                pUnit:GossipComplete()
        end

if (intid == 6) then
                player:SetPlayerWeather(1, 1)
                pUnit:GossipComplete()
        end

if (intid == 7) then
                player:SetPlayerWeather(2, 1)
                pUnit:GossipComplete()
        end

if (intid == 8) then
                player:SetPlayerWeather(4, 1)
                pUnit:GossipComplete()
        end

if (intid == 9) then
                player:SetPlayerWeather(8, 1) 
                pUnit:GossipComplete()
       end

if (intid == 10) then
                player:SetPlayerWeather(16, 1)             
                pUnit:GossipComplete()
       end

if (GetLuaEngine() ~= "LuaHypArc") then --we gotta make sure they're using LuaHypArc!
	print("LuaEngine: Did not load 'Multifunctional - NPC' script - LuaHypArc not installed.")
	print("LuaEngine: Please visit http://luahyparc.zapto.org/ for more information.")
	end
end

RegisterUnitGossipEvent(NPC_ID, 1, "MultiGossipOnTalk")
RegisterUnitGossipEvent(NPC_ID, 2, "MultiGossipOnSelect")

What does it do?

- It changes your gender
- It changes your personal weather
- Resets your talents
- Removes ress sickness
- It shows your bank
I hope you like it.

› See More: Multifunctional NPC, change the weather and your gender with one button!