MMOCoin

Likes Likes:  0
Results 1 to 2 of 2

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Scout

    Join Date
    Feb 2009
    Posts
    2
    Post Thanks / Like
    Rep Power
    18
    Reputation
    7

    [Arcemu] Sangoma Healer LUA + SQL (heal/buff/gear fix/rmv ress sickness)

    ......A Pieterkii presentation........................
    ............................/´¯/)............................
    ....(\_(\................,/¯../..........................
    ....(=' :')............../..../................................
    ...(,(")(").. ...../´¯/'...'/´¯¯·¸.........................
    ................/'/..../..../..../¨¨/¯\.....................
    ...............('(....´....´.... ¯;/'...')...................
    .................\.................'...../..................
    ..................'\'...\..........._.·´........ ..............
    ....................\..............(.............. .............
    A Sangoma npc (Lua + sql) that:
    -Fixes all your gear
    -Removes ressurection sickness
    -Heals you to maximum health
    -Buffs you abit
    all if you are not in combat(being attacked)
    Installation:
    -Download the npc here
    -Extract it and insert/import it into your world database
    -Make a new textfile in your scripts folder and save file as sangoma.lua
    -paste the code below into that file, and save.
    -Restart your emulator
    -.npc spawn 40009 ingame, or whatever command u use.

    Code:
    function Sangoma_OnTalk(Unit, event, player)
    Unit:GossipCreateMenu(50, player, 0)
    Unit:GossipMenuAddItem(0, "Spiritual blessings", 1, 0)
    Unit:GossipSendMenu(player)
    end
    function Sangoma_OnSelect(unit, event, player, id, intid, code)
    if (intid == 1)
    then
    if (player:IsInCombat() == false)
    then
    unit:SendChatMessage(12, 0, "Removing you of your weaknesses.")
    player:RemoveAura(15007)
    player:SetHealthPct(100)
    player:RepairAllPlayerItems()
    unit:FullCastSpellOnTarget(33077, player)
    unit:FullCastSpellOnTarget(33078, player)
    unit:FullCastSpellOnTarget(33079, player)
    unit:FullCastSpellOnTarget(33080, player)
    unit:FullCastSpellOnTarget(33081, player)
    unit:FullCastSpellOnTarget(33082, player)
    Unit:GossipComplete(player)
    else
    unit:SendChatMessage(12, 0, "You are in combat. ")
    end
    end
    end
    RegisterUnitGossipEvent(40009, 1, "Sangoma_OnTalk")
    RegisterUnitGossipEvent(40009, 2, "Sangoma_OnSelect")
    Hope you enjoy it






  2. Related Threads - Scroll Down after related threads if you are only interested to view replies for above post/thread

  3. #2
    Senior Sergeant
    .SalMAX™'s Avatar
    Join Date
    Mar 2010
    Location
    Miami, Florida
    Posts
    100
    Post Thanks / Like
    Rep Power
    16
    Reputation
    52
    Nice Release.

    But I would try using some more functions to make the Script a little bit Professional. So keep it up and keep working on you're scripts mate.

    Great Job.
    Don't Forget to for useful releases!. It gives you good luck! Just Like Lucky charms!

 

 

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •