PDA

View Full Version : Buff Npc



Boxxy
16-08-08, 02:39 AM
Made for my friends who wanted this to be in my next repack.

You do not have to give credits,you may edit it anyway you like.

The code



local npcid = 5000003
function Buff_OnGossipTalk(pUnit, event, player, pMisc)
pUnit:GossipCreateMenu(100, player, 0)
pUnit:GossipMenuAddItem(5, "Buff's.", 1, 0)
pUnit:GossipMenuAddItem(9, "Remove Rez Sickness", 2, 0)
pUnit:GossipMenuAddItem(4, "Heal", 90, 0)
pUnit:GossipSendMenu(player)
end
function Buff_OnGossipSelect(pUnit, event, player, id, intid, code, pMisc)
if (intid == 1) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(3, "Agility", 3, 0)
pUnit:GossipMenuAddItem(3, "Intellect", 4, 0)
pUnit:GossipMenuAddItem(3, "Protection", 5, 0)
pUnit:GossipMenuAddItem(3, "Spirit", 6, 0)
pUnit:GossipMenuAddItem(3, "Stamina", 7, 0)
pUnit:GossipMenuAddItem(3, "Strength", 8, 0)
pUnit:GossipSendMenu(player)
end
if (intid == 2) then
player:UnlearnSpell(15007)
pUnit:GossipComplete(player)
end
if (intid == 3) then
pUnit:CastSpellOnTarget(33077, player)
pUnit:GossipComplete(player)
end
if (intid == 4) then
pUnit:CastSpellOnTarget(33078, player)
pUnit:GossipComplete(player)
end
if (intid == 5) then
pUnit:CastSpellOnTarget(33079, player)
pUnit:GossipComplete(player)
end
if (intid == 6) then
pUnit:CastSpellOnTarget(33080, player)
pUnit:GossipComplete(player)
end
if (intid == 7) then
pUnit:CastSpellOnTarget(33081, player)
pUnit:GossipComplete(player)
end
if (intid == 8) then
pUnit:CastSpellOnTarget(33082, player)
pUnit:GossipComplete(player)
end

if (intid == 90) then
pUnit:GossipCreateMenu(3543, player, 0)
pUnit:GossipMenuAddItem(4, "Health", 91, 0)
pUnit:GossipSendMenu(player)
end
if (intid == 91) then
pUnit:CastSpellOnTarget(25213,player)
pUnit:GossipComplete()
end
end
RegisterUnitGossipEvent(npcid, 1, "Buff_OnGossipTalk")
RegisterUnitGossipEvent(npcid, 2, "Buff_OnGossipSelect")


The Npc




INSERT INTO `creature_names` VALUES ('5000003', 'Buffer', 'Your servers name', '', '0', '7', '0', '0', '0', null, '16202', '16202', '0', '0', '1', '1', '1', null);

INSERT INTO `creature_proto` VALUES ('5000003', '70', '70', '35', '10000000', '10000000', '10000000', '1', '1', '1800', '0', '1500', '2500', '1800', '500', '650', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '36000', '0', '0', '0', '0', '0', '0', '0', '1', '0', 'MEMO', '0', '0', '0', '0', '2.5', '8', '14', '0', '0', '0', '0', '0', '0');



Pictures

http://i231.photobucket.com/albums/ee246/noobcraft45/WoWScrnShot_081608_024509.jpg
http://i231.photobucket.com/albums/ee246/noobcraft45/WoWScrnShot_081608_024520.jpg

Boxxy
17-08-08, 04:39 AM
Update



local npcid = 5000003
function Buff_OnGossipTalk(pUnit, event, player, pMisc)
pUnit:GossipCreateMenu(100, player, 0)
pUnit:GossipMenuAddItem(5, "Buff's.", 1, 0)
pUnit:GossipMenuAddItem(9, "Remove Rez Sickness", 2, 0)
pUnit:GossipMenuAddItem(4, "Heal", 90, 0)
pUnit:GossipSendMenu(player)
end
function Buff_OnGossipSelect(pUnit, event, player, id, intid, code, pMisc)
if (intid == 1) then
pUnit:GossipCreateMenu(99, player, 0)
pUnit:GossipMenuAddItem(3, "Agility", 3, 0)
pUnit:GossipMenuAddItem(3, "Intellect", 4, 0)
pUnit:GossipMenuAddItem(3, "Protection", 5, 0)
pUnit:GossipMenuAddItem(3, "Spirit", 6, 0)
pUnit:GossipMenuAddItem(3, "Stamina", 7, 0)
pUnit:GossipMenuAddItem(3, "Strength", 8, 0)
pUnit:GossipSendMenu(player)
end
if (intid == 2) then
player:UnlearnSpell(15007)
pUnit:GossipComplete(player)
end
if (intid == 3) then
pUnit:CastSpellOnTarget(33077, player)
pUnit:GossipComplete(player)
end
if (intid == 4) then
pUnit:CastSpellOnTarget(33078, player)
pUnit:GossipComplete(player)
end
if (intid == 5) then
pUnit:CastSpellOnTarget(33079, player)
pUnit:GossipComplete(player)
end
if (intid == 6) then
pUnit:CastSpellOnTarget(33080, player)
pUnit:GossipComplete(player)
end
if (intid == 7) then
pUnit:CastSpellOnTarget(33081, player)
pUnit:GossipComplete(player)
end
if (intid == 8) then
pUnit:CastSpellOnTarget(33082, player)
pUnit:GossipComplete(player)
end

if (intid == 90) then
pUnit:GossipCreateMenu(3543, player, 0)
pUnit:GossipMenuAddItem(4, "Health", 91, 0)
pUnit:GossipSendMenu(player)
end
if (intid == 91) then
pUnit:CastSpellOnTarget(25213,player)
pUnit:GossipComplete()
end
end
RegisterUnitGossipEvent(npcid, 1, "Buff_OnGossipTalk")
RegisterUnitGossipEvent(npcid, 2, "Buff_OnGossipSelect")

Ace
26-12-08, 08:45 PM
Oh Wow, I like this.

Kreegoth
05-01-09, 10:59 PM
Hey Noob.. I've tried this a few times.. Sorry not your Script but it pertains to a script such as yours so i thought id respond here..

is it possible using LUa to make the NPC do a check for a certain item in persons inventory and remove it upon completing the function.. Ie you need a Runed copper rod to be buffed with Str.. After buffing str it removes 1 runed copper rod from players inventory?.. I know thats a stupid example but its just off the top of my head.. or perhaps maybe even simply gold?....

Easymode
06-01-09, 12:00 PM
Hey, this is a very nice script, but i was wondering about something, when i try to execute the INSERT INTO `creature_proto` VALUES ('66698', '70', '70', '35', '10000000', '10000000', '10000000', '1', '1', '1800', '0', '1500', '2500', '1800', '500', '650', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '36000', '0', '0', '0', '0', '0', '0', '0', '1', '0', 'MEMO', '0', '0', '0', '0', '2.5', '8', '14', '0', '0', '0', '0', '0', '0');

it says

[Err] 1136 - Column count doesn't match value count at row 1
[Err] INSERT INTO `creature_proto` VALUES ('66698', '70', '70', '35', '10000000', '10000000', '10000000', '1', '1', '1800', '0', '1500', '2500', '1800', '500', '650', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '36000', '0', '0', '0', '0', '0', '0', '0', '1', '0', 'MEMO', '0', '0', '0', '0', '2.5', '8', '14', '0', '0', '0', '0', '0', '0');
[Msg] Finished - Unsuccessfully

could someone give me some help?

runiker
07-01-09, 12:20 AM
Hey Noob.. I've tried this a few times.. Sorry not your Script but it pertains to a script such as yours so i thought id respond here..

is it possible using LUa to make the NPC do a check for a certain item in persons inventory and remove it upon completing the function.. Ie you need a Runed copper rod to be buffed with Str.. After buffing str it removes 1 runed copper rod from players inventory?.. I know thats a stupid example but its just off the top of my head.. or perhaps maybe even simply gold?....


here is the code

if pMisc:GetItemCount(998000) > 1 then
pUnit:CastSpellOnTarget(33077, player)
pMisc:RemoveItem(998000)
end