[Lua] Stripper NPC

What it does
- Gives you a dance for 100 gold (if you have it).

Just run this SQL (Patch 3.3.5 ArcEmu):

Code:

insert into `creature_names` (`entry`, `name`, `subname`, `info_str`, `Flags1`, `type`, `family`, `rank`, `killcredit1`, `killcredit2`, `male_displayid`, `female_displayid`, `male_displayid2`, `female_displayid2`, `unknown_float1`, `unknown_float2`, `leader`)
values ('90000', "Stripper", "Made by Kibblebit", '', '0', '7', '0', '0', '0', '0', '21175', '0', '0', '0', '1', '1', '0');

insert into `creature_proto` (`entry`, `minlevel`, `maxlevel`, `faction`, `minhealth`, `maxhealth`, `mana`, `scale`, `npcflags`, `attacktime`, `attacktype`, `mindamage`, `maxdamage`, `can_ranged`, `rangedattacktime`, `rangedmindamage`, `rangedmaxdamage`, `respawntime`, `armor`, `resistance1`, `resistance2`, `resistance3`, `resistance4`, `resistance5`, `resistance6`, `combat_reach`, `bounding_radius`, `auras`, `boss`, `money`, `invisibility_type`, `death_state`, `walk_speed`, `run_speed`, `fly_speed`, `extra_a9_flags`, `spell1`, `spell2`, `spell3`, `spell4`, `spell_flags`, `modImmunities`, `summonguard`)
values ('90000', '80', '80', '35', '999', '999', '500', '1', '1', '2000', '0', '500', '600', '0', '0', '0', '0', '10000', '100', '0', '0', '0', '0', '0', '0', '0', '0', "0", '0', '0', '0', '0', '2.50', '8.00', '14.00', '0', '0', '0', '0', '0', '0', '0', '0');

Install the script, and enjoy!

Code:

-- Stripper NPC --

--Config--
local NPCID = 90000 -- Stripper's Entry ID
local Cost = 1000000 -- The cost for the stripper's dance (in copper. 1000000 copper = 100 gold)
local Cost2 = "100" -- The cost for the stripper's dance (in gold)


function Stripper_OnGossip(Unit, event, player)
Unit:GossipCreateMenu(1000, player, 0)
Unit:GossipMenuAddItem(1, "Dance, baby, I might tip! ["..Cost2.." gold]", 1, 0)
Unit:GossipMenuAddItem(1, "Nevermind, you stink of fish.", 2, 0)
Unit:GossipSendMenu(player)
end

function Stripper_OnSelect(Unit, Event, player, id, intid, code)
   if(intid == 1) then
      player:GossipComplete()
      Unit:Emote(10, 0)
      player:SendBroadcastMessage("Oh yeah! Mhm, you like this baby?")

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

RegisterUnitGossipEvent(NPCID,1,"Stripper_OnGossip")
RegisterUnitGossipEvent(NPCID,2,"Stripper_OnSelect")

Genious!