Raid Conversion

--Script made by Mönster of Ac-web
--Support from Crow

function RaidGroup(pUnit, event, pPlayer)
if (pUnit:IsInGroup() == true) and (pUnit:IsGroupFull() == true) then                                                           --Will this stuff work? :P
                        pUnit:GossipCreateMenu(100, pPlayer, 0)
                        pUnit:GossipMenuAddItem(6, "Convert my group to Raid!", 1, 0)
                        pUnit:GossipMenuAddItem(6, "Nevermind, Sorry.", 2, 0)
                        pUnit:GossipSendMenu(pPlayer)
                        else
                        pPlayer:GossipComplete()
                        end
                        end

function RaidGroup_OnGossipSelect(pUnit, event, pPlayer, id, intid, code)
        if (intid = 1) then
         pUnit:ExpandToRaid()   --Forcably converts to raid.
         pPlayer:GossipComplete()
         end
        if (intid = 2) then
        pPlayer:GossipComplete()
         end
end



RegisterUnitGossipEvent(90091, 1, RaidGroup)
RegisterUnitGossipEvent(90091, 2, RaidGroup_OnGossipSelect)