[Lua] Lunar Scripts

[Trle94]

These First Script named [Lua] So I herd u liek Mudkipz is made by hypersniper Give him the rep for it.
Give him rep by pressing here

--=[LUAS]=--

--=[[Lua] So I herd u liek Mudkipz]=--


Then you're in for a treat.

luahyparc private pastebin - collaborative debugging tool
Requires Arcscripts r1028+

Mudkip PvP AI Companion
This script is a scripted item that summons a Mudkip NPC that follows the owner around like a guardian. This Mudkip is no ordinary mudkip. He takes on the role of an arena partner, imitating a PvP player. When in combat, he is a devastating force, when out of combat, he is a funny, fun-loving sidekick. It's AI is based on a prioritised "state" system; where the mudkip picks his state based on the environment. He has 5 state to choose from: non combat, regular combat, owner in danger, self in trouble, and self critical. He does different things in each state.

Non combat: Just follows you around and has 10 unique and funny chat messages that trigger roughly every 10 min.

Combat: This is his usual combat mode. He attacks using Frost shock, Frostbolt and Waterbolt depending on whether he has enough mana to cast them and if they are on cooldown. There is a rare chance that he may do something special instead of those regular spells .

Owner in danger: He performs a combo involving charging the enemy, sling mud (reducing hit chance) the enemy and healing the player.

Self in trouble: This is when the Mudkip is hindered in some way, he attempts to get out of his trouble via Trinket, Escape Artist or Ice block.

Self critical: The kip will activate his speed booster, run away from enemies and heal himself; he will also try to Ice block to protect himself if he's really in trouble.

Ending notes
That was just a summary of the script, what lies beneath is a hand-made spell casting and cooldown system, as well as extensive table use. Please ask any questions about the script here if I comments don't explain enough. I hope this can be fun as well as a learning opportunity. It's not 100% tested, but I tested the important things such as state transition and critical shared functions .

luahyparc private pastebin - collaborative debugging tool

Recommended SQL
ITEM


NPC

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 ('133760', "Frenzied Mudkip", "", '', '0', '1', '0', '0', '0', '0', '25157', '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 ('133760', '80', '80', '7', '23400', '23400', '43200', '1', '0', '1500', '0', '100', '200', '0', '0', '0', '0', '0', '2555', '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');

Screenshots




--=[[Lua]Another Command System]=--

This command system for Voters and Donators of a server, and I decided to release script.

-- Locals --
--[[Messages]]--
local MSG_COMMANDS = ":commands" -- Provides info about all the player commands
local MSG_BG_MASTER = ":battlemaster" -- Creates a battlemaster
local MSG_HOME = ":home" -- Teleports player to hearthstone loc.
local MSG_SICKNESS = ":sickness" -- Removes ress sickness
local MSG_REPAIR = ":repair" -- Repairs all items
local MSG_SUPPLIES = ":supplies" -- Shows the submenus of different vendors
    local MSG_SUPPLIES_REAGENT = ":supplies reagent" -- spawns reagent supply vendor
    local MSG_SUPPLIES_TRADE = ":supplies trade" -- spawns trade supplies vendor
local MSG_BUFFS = ":buffs" -- Gives buffs to the player
local MSG_CLASS_TRAINER = ":classtrainer" -- Submenus with classtrainers
    local MSG_CLASS_DK = ":classtrainer dk"
    local MSG_CLASS_DRUID = ":classtrainer druid"
    local MSG_CLASS_HUNTER = ":classtrainer hunter"
    local MSG_CLASS_MAGE = ":classtrainer mage"
    local MSG_CLASS_PALADIN = ":classtrainer paladin"
    local MSG_CLASS_PRIEST = ":classtrainer priest"
    local MSG_CLASS_ROGUE = ":classtrainer rogue"
    local MSG_CLASS_SHAMAN = ":classtrainer shaman"
    local MSG_CLASS_WARLOCK = ":classtrainer warlock"
    local MSG_CLASS_WARRIOR = ":classtrainer warrior"
local MSG_MALL_ALLY = ":mall alliance" -- Teleports player to ally mall
local MSG_MALL_HORDE = ":mall horde" -- Teleports player to horde mall
--[[Donator Commands]]--
local MSG_BANK = ":bank" -- Opens a bank window for the player - DONATORS ONLY!
local MSG_HOME_SET = ":home set" -- Set's a home point at the players current position - DONATORS ONLY!
local MSG_TALENT_RESET = ":reset talents" -- Resets the players talents for free - DONATORS ONLY!
local MSG_REFRESHMENTS = ":refreshments" -- Adds food and water to the players inventory - DONATORS ONLY!
--[[Donator Commands]]--
--[[Messages]]--

--[[Variables]]--
local BUFFID = {58452, 48104, 48102, 48469, 61024, 20217, 48161, 48073, 48169, 54675, 15366, 33077, 53307, 43017, 5697, 132, 1706, 16618, 48100, 58451} -- Put the buffs you want here
local FOOD = 45932 -- Put ID for food here
local DRINK = 42777 -- ID for water
--[[ This Command system uses a check for tokens aquired by Voters and Donators. 
    If there is requests, I'll make a command system without these]]--
local VOTETOKEN =  -- Voters Token ID
local DONORTOKEN =  -- Donators Token ID
--Alliance Mall Coords
local ALLYX =  -- Put the X coords for alliance mall here
local ALLYY =  -- Put Y coords for alliance mall here
local ALLYZ =  -- Put Z coords for alliance mall here
local ALLYMAP =  -- Ally MapID goes here

--Horde Mall Coords
local HORDEX = --X coords for horde mall
local HORDEY = --Y coords for the horde mall
local HORDEZ = --Z coords for the horde mall
local HORDEMAP = --MapID for the horde mall

--[[Variables]]--
    
--[[ Functions]]--
    function PlayerCommands_OnChat(event, player, message, type, language)
    local LCM = message:lower()        
    if (LCM == MSG_COMMANDS) then
        if(player:GetItemCount(VOTETOKEN) == 1) then
            if (player:GetItemCount(DONORTOKEN) == 1) then
            player:SendBroadcastMessage("Current player commands are:")
            player:SendBroadcastMessage("':battlemaster' - Spawns a 'personal' battlemaster which can grant access to all BG's")
            player:SendBroadcastMessage("':buffs' - Grants you certain standard buffs")
            player:SendBroadcastMessage("':classtrainer' - Shows submenus of different trainers")
            player:SendBroadcastMessage("':home' - Instantly teleports you to your current hearthstone location")
            player:SendBroadcastMessage("':mall <faction>' - Teleports you to your factions mall)")
            player:SendBroadcastMessage("':sickness' - Removes Ressurection Sickness")
            player:SendBroadcastMessage("':supplies' - Shows submenus for spawning supply vendors")
            player:SendBroadcastMessage("|cff0000ffDonator Only Commands:")
            player:SendBroadcastMessage("|cff0000ff':bank' - Opens a bank window for you to store items")
            player:SendBroadcastMessage("|cff0000ff':home set' - Sets your current position as home. To teleport to home location see ':home'")
            player:SendBroadcastMessage("|cff0000ff':reset talents' - Resets your talents with no gold cost")
            player:SendBroadcastMessage("|cff0000ff':refreshments' - Adds food and water to your inventory")
            player:SendBroadcastMessage("|cff0000ff':repair' - Instantly repairs all your items")
            
            
            else
            
            player:SendBroadcastMessage("Current player commands are:")
            player:SendBroadcastMessage("':battlemaster' - Spawns a 'personal' battlemaster which can grant access to all BG's")
            player:SendBroadcastMessage("':buffs' - Grants you certain standard buffs")
            player:SendBroadcastMessage("':classtrainer' - Shows submenus of different trainers")
            player:SendBroadcastMessage("':home' - Instantly teleports you to your current hearthstone location")
            player:SendBroadcastMessage("':mall <faction>' - Teleports you to your factions mall)")
            player:SendBroadcastMessage("':sickness' - Removes Ressurection Sickness")
            player:SendBroadcastMessage("':supplies' - Shows submenus for spawning supply vendors")
            player:SendBroadcastMessage("':repair' - Instantly repairs all your items")
            end
            
        else
            player:SendAreaTriggerMessage("You do not have Voters Token! Get it by voting!")
        end
        
    end    
    
    
        
    if (LCM == MSG_BG_MASTER) then
        if(player:GetItemCount(VOTETOKEN) == 1) then
            local x = player:GetX()
            local y = player:GetY()
            local z = player:GetZ()
            local o = player:GetO()
                player:SpawnCreature(6090100, x, y, z, o, 35, 30000)
                
        else
            player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
        end
    end
        
    if (LCM == MSG_HOME) then
        if(player:GetItemCount(VOTETOKEN) == 1) then
            if (player:IsInCombat() == true) then
                player:SendAreaTriggerMessage("|cff0000ffYou are in combat!")
            else
                player:CastSpell(8690)
            end
        else
            player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")    
        end
    end
            
    if (LCM == MSG_SICKNESS) then
        if(player:GetItemCount(VOTETOKEN) == 1) then
            if(player:HasAura(15007) == true) then
                player:RemoveAura(15007)
                player:SendBroadcastMessage("You have been cured of that wretched sickness!")
            else
                player:SendBroadcastMessage("You do not currently have Resurrection Sickness!")
            end        
        else
            player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
        end
    end
    
    if (LCM == MSG_REPAIR) then
        if(player:GetItemCount(VOTETOKEN) == 1) then
            player:RepairAllPlayerItems()
            player:SendBroadcastMessage("Your items are now repaired.")
        else
            player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
        end
    end
    

    if (LCM == MSG_SUPPLIES) then
        if(player:GetItemCount(VOTETOKEN) == 1) then
            player:SendBroadcastMessage("Supply vendors commands:")
            player:SendBroadcastMessage("':supplies reagent' - Spawns a Reagent Supplies vendor for 30 seconds")
            player:SendBroadcastMessage("':supplies trade' - Spawns a Trade Supplies vendor for 30 seconds")
        else
            player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
        end
    end
    
            if (LCM == MSG_SUPPLIES_REAGENT) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(5139, x, y, z, o, 35, 30000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
                end
            end
            
            
            if (LCM == MSG_SUPPLIES_TRADE) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(3779, x, y, z, o, 35, 30000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")        
                end
            end
            
            
    if (LCM == MSG_BUFFS) then
        if(player:GetItemCount(VOTETOKEN) == 1) then
                for k, v in pairs(BUFFS) do
                        player:CastSpell(v)
            player:SendBroadcastMessage("You have been buffed")
            end    
        else
            player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")    
        end
    end
    
    
    if (LCM == MSG_CLASS_TRAINER) then    
        if(player:GetdItemCount(VOTETOKEN) == 1) then
            player:SendBroadcastMessage("Class trainers commands:")
            player:SendBroadcastMessage(":classtrainer dk")
            player:SendBroadcastMessage(":classtrainer druid")
            player:SendBroadcastMessage(":classtrainer hunter")
            player:SendBroadcastMessage(":classtrainer mage")
            player:SendBroadcastMessage(":classtrainer paladin")
            player:SendBroadcastMessage(":classtrainer priest")
            player:SendBroadcastMessage(":classtrainer rogue")
            player:SendBroadcastMessage(":classtrainer shaman")
            player:SendBroadcastMessage(":classtrainer warlock")
            player:SendBroadcastMessage(":classtrainer warrior")
        else
            player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")    
        end
    end
    
            if (LCM == MSG_CLASS_DK) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(28474, x, y, z, o, 35, 60000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
                end
            end
            
            
            if (LCM == MSG_CLASS_DRUID) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(3034, x, y, z, o, 35, 60000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
                end
            end
            
            
            if (LCM == MSG_CLASS_HUNTER) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(3039, x, y, z, o, 35, 60000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
                end
            end
            
            
            if (LCM == MSG_CLASS_MAGE) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(3047, x, y, z, o, 35, 60000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
                end
            end
            
            
            if (LCM == MSG_CLASS_PALADIN) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(928, x, y, z, o, 35, 60000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
                end
            end
            
            
            if (LCM == MSG_CLASS_PRIEST) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(376, x, y, z, o, 35, 60000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
                end
            end
            
            
            if (LCM == MSG_CLASS_ROGUE) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(918, x, y, z, o, 35, 60000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
                end
            end
            
            
            if (LCM == MSG_CLASS_SHAMAN) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(3032, x, y, z, o, 35, 60000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
                end
            end
            
            
            if (LCM == MSG_CLASS_WARLOCK) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(461, x, y, z, o, 35, 60000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
                end
            end
            
            
            
            if (LCM == MSG_CLASS_WARRIOR) then
                if(player:GetItemCount(VOTETOKEN) == 1) then
                    local x = player:GetX()
                    local y = player:GetY()
                    local z = player:GetZ()
                    local o = player:GetO()
                        player:SpawnCreature(914, x, y, z, o, 35, 60000)
                else
                    player:SendAreaTriggerMessage("|cff0000ffYou do not have Voters Token! Get it by voting!")
                end
            end
    
            
        if (LCM == MSG_MALL_ALLY) then
        if(player:GetItemCount(VOTETOKEN) == 0) then
                player:SendAreaTriggerMessage("|cff0000ffYou do not own the BlazeFury Voters Token. Get it by voting!")
                 else
                    if (player:IsInCombat() == true) then
                        player:SendAreaTriggerMessage("|cff0000ffYou are in combat!")
                        
                    else

                        local race=player:GetPlayerRace()
                            if race==1 or race==3 or race==4 or race==7 or race==11 then
                                player:Teleport(ALLMAP, ALLYX, ALLYY, ALLYZ)
                            
                            else
                                player:SendAreaTriggerMessage("|cff0000ffYou are not a member of the Alliance!")
                            

                            end
                    end
            end    
            end
            
        if (LCM == MSG_MALL_HORDE) then
            if(player:GetItemCount(VOTETOKEN) == 0) then
                player:SendAreaTriggerMessage("|cff0000ffYou do not own the BlazeFury Voters Token. Get it by voting!")
                 else
                    if (player:IsInCombat() == true) then
                        player:SendAreaTriggerMessage("|cff0000ffYou are in combat!")
            
                    else
                
                        local race=player:GetPlayerRace()
                            if race==2 or race==5 or race==6 or race==8 or race==10 then
                                player:Teleport(HORDEMAP, HORDEX, HORDEY, HORDEZ)
                
                            else
                                player:SendAreaTriggerMessage("|cff0000ffYou are not a member of the Horde!")
                                            
                            end
                    end
        end     end


        if (message == BANK_MSG) then
            if(player:GetItemCount(DONORTOKEN) == 1) then
                if (player:IsPlayerMoving() == true) then
                    player:SendAreaTriggerMessage("This feature can't be used while moving!")

                else
                        player:SendBankWindow(unit)
                end
                
            else
                player:SendAreaTriggerMessage("|cff0000ffYou are not a donator!")
            end
        end
        

        if (message == BIND_MSG) then
            if(player:GetItemCount(DONORTOKEN) == 1) then
                player:SetBindPoint(x,y,z,map_id,zone_id)
            end
            
        else
            player:SendAreaTriggerMessage("|cff0000ffYou are not a donator!")
        end    
        
        
        if(message == MSG_TALENT_RESET) then
            if(player:GetItemCount(DONORTOKEN) == 1) then
                plr:SendBroadcastMessage("Your talents have been reseted!")
                unit:ResetTalents()
                
            else
            player:SendAreaTriggerMessage("|cff0000ffYou are not a donator!")
            
            end
        end
        
        
        if (message == MSG_REFRESHMENTS) then
            if(player:GetItemCount(DONORTOKEN) == 1) then
                player:AddItem(FOOD, 20)
                player:AddItem(DRINK, 20)
            
            else
            
                player:SendAreaTriggerMessage("|cff0000ffYou are not a donator!")
            end
        end    
end

--[[Functions]]--



--[[Register]]--
RegisterServerHook(16, "PlayerCommands_OnChat")

--=[[Lua] Combo NPC]=--



Description
Hi all. I maked this small Lua script.So what it does?? Hmm, Well its small "Combo NPC" He can teleport you to Mall,Lvling Road And he has some special Fuctions...
How menu looks?
Like this:
--Mall
--Leveling Area
--------------------
-NPC Windows
--Trainer
--InnKeeper
--Bank Window
--Auction Window
Nevermind
----------------
-Player Tools
--Player Speed (25)
--Sex Changer
Nevermind
--Show My Honor
--Show My Arena Points
Nevermind.

How to work
Copy this code down and read first lines before " --Do not touch after this comment-- " put it in scripts save as Itembank.lua and restart the server
Remember you need to make NPC..

-=[Combo NPC]=-
-=[LunarScriptors- Onlykl]=-

-- Change this down --
local NPC_ID = -- Npc ID here! You can make it with www.wow-v.com

local MallMapId = -- Enter Mall map id here
local MallMapX = -- Enter Mall X coords here
local MallMapY =  -- Enter Mall Y coords here
local MallMapZ =  -- Enter Mall Z coords here

local LevMapId = -- Enter LvlRoad map id here
local LevMapX = -- Enter LvlRoad leveling x coord here
local LevMapY = -- Enter LvlRoad leveling y coord here
local LevMapZ = -- Enter LvlRoad leveling z coord here 

--Do not touch after this comment--

function Lunar_OnGossipTalk(pUnit, event, player)
    pUnit:GossipCreateMenu(1, player, 0)
    pUnit:GossipMenuAddItem(1,"Mall", 1, 0)
    pUnit:GossipMenuAddItem(1,"Leveling Area", 2, 0)
    pUnit:GossipMenuAddItem(0,"NPC Windows", 3,0)
    pUnit:GossipMenuAddItem(0,"Player Tools", 4,0)
    pUnit:GossipMenuAddItem(0,"Show My Honor", 5,0)
    pUnit:GossipMenuAddItem(0,"Show My Arena Points", 6,0)
    pUnit:GossipMenuAddItem(1,"Nevermind.", 999, 0)
    pUnit:GossipSendMenu(player)
end

function Lunar_OnGossipSelect(pUnit, Event, player, id, intid, code, pMisc)

if(intid == 1) then
    player:Teleport(MallMapId, MallMapX, MallMapY, MallMapZ)
    player:GossipComplete()
end

if(intid == 2) then
    player:Teleport(LevMapId, LevMapX, LevMapY, LevMapZ)
    player:GossipComplete()
end

if(intid == 3) then
    pUnit:GossipCreateMenu(3545, player, 0)
    pUnit:GossipMenuAddItem(0,"Trainer", 7,0)
    pUnit:GossipMenuAddItem(0,"InnKeeper", 8,0)
    pUnit:GossipMenuAddItem(0,"Bank Window", 9,0)
    pUnit:GossipMenuAddItem(0,"Auction Window", 10,0)
    pUnit:GossipMenuAddItem(0,"Nevermind", 999,0)
    pUnit:GossipSendMenu(player)
end

if(intid == 4) then
    pUnit:GossipCreateMenu(3546, player, 0)
    pUnit:GossipMenuAddItem(0,"Player Speed (25)", 11,0)
    pUnit:GossipMenuAddItem(0,"Sex Changer", 12,0)
    pUnit:GossipMenuAddItem(0,"Nevermind", 999,0)
    pUnit:GossipSendMenu(player)
end


if (intid == 5) then
player:GetTotalHonor()
player:GossipComplete()
end

if (intid == 6) then
player:GetArenaPoints()
player:GossipComplete()
end

if (intid == 7) then
player:SendTrainerWindow(unit)
player:GossipComplete()
end

if (intid == 8) then
player:SendInnkeeperWindow(unit)
player:GossipComplete()
end

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

if (intid == 10) then
player:SendAuctionWindow(unit)
player:GossipComplete()
end

if (intid == 11) then
player:SetPlayerSpeed(25)
player:GossipComplete()
end

if (intid == 12 and Player:GetGender() == 0) then
    player:SendBroadcastMessage("Your gender has been changed!")
    Player:SetGender(1)
elseif (Player:GetGender() == 1) then
    Player:SendBroadcastMessage("Your gender has been changed!")
    Player:SetGender(0)
end

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

RegisterUnitGossipEvent(NPC_ID, 1, "Lunar_OnGossipTalk")
RegisterUnitGossipEvent(NPC_ID, 2, "Lunar_OnGossipSelect")

-=[[Lua] Item Bank]=-


Description
Hi all. I maked these small Lua file for them that wants a quick and easy Banker.

How to work
Copy this code down change ItemID put it in scripts save as Itembank.lua and restart the server
Remember you need to make item...

-=[LunarSCR-Onlykl]=-


local itemid = ITEMID
function Lunar_Item_Trigger(item, event, player)
   Item_menu(item, player)
end

function item_menu(item, player)


if (player:IsInCombat() == true) then
player:SendAreaTriggerMessage("You are in combat!")
else
item:GossipCreateMenu(5555,player,0)
player:SendAreaTriggerMessage("Welcome to the bank service!")
item:GossipMenuAddItem(1, "<Bank>", 1, 0)
end
end


if (intid == 1) then
local x =player:GetX ()
local y =player:GetY ()
local z =player:GetZ ()
local o =player:GetO ()
player:SpawnCreature (8124, x, y+3, z, o, 35, 90000)
player:GossipComplete()
end  
end

RegisterItemGossipEvent(ITEMID,1,"Lunar_Item_Trigger")
RegisterItemGossipEvent(ITEMID,2,"Lunar_OnSelect")

--=[[Lua] Revive Tool]=--

THis script allow you to revive yourself with and item.
Here is script:

---Coded by Lunar SCR Team---
--Our forum lunar-scr.info--
local itemid = ITEMID
function LunarSCR_Item_Trigger(item, event, player)
Item_menu(item, player)
end
function LunarSCR_Item_menu(item, player)
if (player:IsInCombat() == true) then
player:SendAreaTriggerMessage("You are in combat!")
else
item:GossipCreateMenu(100, player, 0)

item:GossipMenuAddItem(4, "Revive Me",1, 0)
item:GossipSendMenu(player)
end


if (intid == 1) then
player:FullCastSpellOnTarget(50768, player)
end
end

RegisterItemGossipEvent(ITEMID, 1,"LunarSCR_Item_Trigger")
RegisterItemGossipEvent(ITEMID, 2,"LunarSCR_Item_menu")

Change ITEMID and then add in scripts and restart server...


--=[SQL]=--


-=[[SQL]LunarSCR Leveling Road]=-


Description
Hi all. I maked these small SQL files for them that wants a quick and easy Leveling Road-Hyjal.
For now there are only spawned mobs but soon more game objects etc...
You will be suprised..


How to work
Execute the sql into your database and restart the server
Then do .recall port Hyjal and everything will be spawned

To DO: Add loots, Add Custom GoObjects,
Add Starter Gear with Npc, Add Buffer,
Custom Bosses -=[Lua]=-, Fancy begin of leveling road,
Items for level 1-255, At End Head Boss....

PICTURES

soon...

-=[Download]=-
Multi Mirrors

-=[Credits:]=-
-=[Me - For spawning and creating mobs]=-



-=[[SQL]ArcEmu Funserver StarterGear Items + NPC]=-

Description
Okay so here are starter items for arcemu, 1 set and all types of weapons..
Remeber it is for Funservers if you don't like stats change them but do not change my credits from item please... if you wanna delete credits ask me.


How to work

[SIZE=2Well easy as hell. Just execute SQL files and restart your server...[/SIZE]

PICTURES



Download
Filebeam - Beam up that File Scottie!




-=[[SQL]Mega Go Objects]=-

Description
I wont add any screen because there is to many GOs.It is for Arcemu like all my other releases . So there are maybe about 900 !!CUSTOM!! go objects found by me..


How to work

Well easy as hell. Just execute SQL files and restart your server...

Download
Filebeam - Beam up that File Scottie!




--=[C++]=--

--=[[C++] Hello Message]=--

Okay here you go some simple C++ script..
When you enter in world you get in middle message like Raid Message..

#include "StdAfx.h"
#include "Setup.h"

#ifdef WIN32
#pragma warning(disable:4305)    // warning C4305: 'argument' : truncation from 'double' to 'float'
#endif

void OnEnterWorld(Player * pPlayer)
{
    bool start = true;

    while (start == true)
    {
        pPlayer->SendAreaTriggerMessage("Welcome! NAME, Visit us at www."); //Change this what is quoted in " ".
        break;
    }
}
        
    


void SetupEnterWorld(ScriptMgr * mgr)
{
    mgr->register_hook(SERVER_HOOK_EVENT_ON_ENTER_WORLD, OnEnterWorld);
}

[stoneharry]

Another nice share, you should describe how to use it. Also if you want to make 1 big thread of shares, feel free to, but do not keep releasing them as seperate threads.

[Trle94]

OKay as you say I will make one Thread with name Lunar Scripts and there put everything... Is it okay??

[stoneharry]

Good. Closed old threads.

[Trle94]

Good thanks you so much

[Kiev]

Good amount of work here. And some fun scripts

And i also like the amount of work going on behind the scenes.

+Rep.

[hypersniper]

Yeah if you'd just whack my name next to the mudkip script in fairly large letters I'd appreciate it, Trle94. Thank you .

[alj03]

Cool stuff (filler).

[KuRIoS]

Yeah if you'd just whack my name next to the mudkip script in fairly large letters I'd appreciate it, Trle94. Thank you .

added your name into the post and made it easy for people to rep you for your work.

[Ground Zero]

Good work Hyper on that Mudkip script. +Rep

[Trle94]

Kurios i deleted his script so delete txt that you added please...
And just 1 was his other were mine...

[KuRIoS]

Kurios i deleted his script so delete txt that you added please...
And just 1 was his other were mine...

if its not here, just add it again.. unless hyper have posted it here

[mager1794]

-- off topic --
Beastly name, whered ya get it

-- on topic --
Very nice scripts +Reps x3

[Trle94]

Update
And thanks you mager old friend ^^

[pantryboy]

Whilst I'm not doubting you...
I find it funny how your ability in English and your indentation varies by volumes throughout your scripts.