WD world trades banker

-- by Rochet2 of ac-web.com modified by Black Wolf for The Wolf Den modified by Rochet2


local npcid = 50120





function On_Gossip(pUnit,event,player)


        pUnit:GossipCreateMenu(100, player, 0)


        pUnit:GossipMenuAddItem(0, "Purchase 500 custom coins. Cost: 50 mg", 101, 0)


        pUnit:GossipMenuAddItem(0, "Purchase 1000 custom coins. Cost: 100 mg", 102, 0)


        pUnit:GossipMenuAddItem(0, "Purchase 5000 custom coins. Cost: 500 mg", 103, 0)


    pUnit:GossipMenuAddItem(0, "Deposit your Wolf Coins into the MG bank", 104, 0)


        pUnit:GossipMenuAddItem(0, "You must have a minimum balance of 550 mg to conduct business with me.", 100, 0) -- Write this in the header text (npc_text)?


        pUnit:GossipSendMenu(player)


end





function On_Select(pUnit, event, player, id, intid, code)


        -- Making Amt and Sur to be local inside the On_Select, yet still being possible to use as "global" inside the function.


        local Amt
    local wcc
        local Sur


        if (intid == 100) then


                -- this prevents menu freezing and invalid queries due to missing variables


                On_Gossip(pUnit,event,player) -- Back to "main" menu


                return -- Do not execute the rest of the code

    elseif (intid == 104) then
        wcc = player:GetItemCount(44209)
        player:SendBroadcastMessage("you will deposit "..wcc.." for mg")
        WorldDBQuery("UPDATE logon.accounts SET `mg` = `mg` + "..wcc.."  WHERE `login` = '"..player:GetAccountName().."'; "); -- adds the count of item 44209 to db mg count
        player:SendBroadcastMessage(""..wcc.." mg have been added to your mg bank.")
        player:RemoveItem(44209, wcc)
        return

        elseif (intid == 101) then


                Amt = 500 -- amount requested


                Sur = 50 -- transaction fee of 10 percent


        elseif (intid == 102) then


                Amt = 1000 -- amount requested


                Sur = 100 -- transaction fee of 10 percent


        elseif (intid == 103) then


                Amt = 5000 -- amount requested


                Sur = 500 -- transaction fee of 10 percent


        end


        local CheckMG = WorldDBQuery("SELECT `mg` FROM logon.accounts WHERE `login` = '"..player:GetAccountName().."';"); -- queries variable data from db mg location.


        if(not CheckMG) then -- Check if the query was succesful, if not: error and do nothing more


                print("Query failed")


                return -- Stop executing the rest of the code since the query did not return anything.


        end


        local MagicGold = CheckMG:GetColumn(0):GetULong() -- Get MagicGold


        if (MagicGold < Amt + Sur) then


                player:SendAreaTriggerMessage("You don't have enough. Balance: "..MagicGold.." mg.") -- inform player about balance and error


        else


                local rest = MagicGold - (Amt + Sur) -- How much the player has MG left after cashing out


                if(player:AddItem(44209, Amt)) then --  adds variable based item count. 44209 is custom item


                        -- This IF statement also checks if adding the items was succesful (full inventory?)


                        WorldDBQuery("UPDATE logon.accounts SET `mg` = "..rest.."  WHERE `login` = '"..player:GetAccountName().."'; "); -- zero's out mg in db location


                        player:SendBroadcastMessage("You have purchased "..amt.." custom Coins") -- informs player of amount recieved


                else


                        player:SendAreaTriggerMessage("Your inventory is full") -- Adding the item failed. Do no changes to DB and send error msg.


                end


    end


        On_Gossip(pUnit,event,player) -- Back to "main" menu


end





RegisterUnitGossipEvent(npcid, 1, "On_Gossip")


RegisterUnitGossipEvent(npcid, 2, "On_Select")