[Lua] Stripper NPC

Go down

[Lua] Stripper NPC

Post  Blachex on Wed Jul 14, 2010 6:26 pm

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")



Last edited by Blachex on Sat Aug 07, 2010 4:29 pm; edited 1 time in total

_________________
[You must be registered and logged in to see this link.] | [You must be registered and logged in to see this link.] | [You must be registered and logged in to see this link.] | [You must be registered and logged in to see this link.]
avatar
Blachex
TwistGaming Admin
TwistGaming Admin

Posts Posts : 375
Location Location : Romania
Reputation Reputation : 38
Warning :

http://www.twistgaming.com

Back to top Go down

Re: [Lua] Stripper NPC

Post  bajas2 on Wed Jul 14, 2010 7:30 pm

Genious!

_________________
World of Warcraft Retail MoD

Ventrilo info:
eurovent1.gameservers.com
4601

avatar
bajas2
Power User (Special)
Power User (Special)

Posts Posts : 184
Location Location : Norway
Reputation Reputation : 29
Warning :

Back to top Go down

Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum