Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ITEM.Name = 'Spartan'
- ITEM.Price = 9550
- ITEM.Model = 'models/player/lordvipes/h3_spartans_mps/h3spartan_mps_cvp.mdl'
- ITEM.AllowedUserGroups = { "superadmin", "admin", "vip" }
- function ITEM:OnEquip(ply, modifications)
- if not ply._OldModel then
- ply._OldModel = ply:GetModel()
- end
- timer.Simple(2, function() ply:SetupHands()
- ply:SetModel(self.Model)
- --ply:SetSkin(1)
- ply:SetBodygroup(1, modifications.group1 or 0) --helmets
- ply:SetBodygroup(2, modifications.group2 or 0) --chestpiece
- ply:SetBodygroup(3, modifications.group3 or 0) --shoulderl
- ply:SetBodygroup(4, modifications.group4 or 0) --shoulder2
- ply:SetBodygroup(5, modifications.group5 or 0) --katana
- end)
- end
- function Derma_Query_Dropdown( strText, strTitle, ... )
- local Window = vgui.Create( "DFrame" )
- Window:SetTitle( strTitle or "Message Title (First Parameter)" )
- Window:SetDraggable( false )
- Window:ShowCloseButton( false )
- Window:SetBackgroundBlur( true )
- Window:SetDrawOnTop( true )
- local InnerPanel = vgui.Create( "DPanel", Window )
- InnerPanel:SetDrawBackground( false )
- local Text = vgui.Create( "DLabel", InnerPanel )
- Text:SetText( strText or "Message Text (Second Parameter)" )
- Text:SizeToContents()
- Text:SetContentAlignment( 5 )
- Text:SetTextColor( color_white )
- local ButtonPanel = vgui.Create( "DPanel", Window )
- ButtonPanel:SetTall( 50 )
- ButtonPanel:SetDrawBackground( false )
- local NumOptions = 0
- local ListBox = vgui.Create( "DComboBox", ButtonPanel )
- local k = 1
- while true do
- local Text = select( k, ... )
- if Text == nil then break end
- local Func = select( k+1, ... ) or function() end
- ListBox:AddChoice(Text, Func, k == 1)
- NumOptions = NumOptions + 1
- k = k + 2
- end
- ListBox:SetPos(5,25)
- ListBox:SetWide(100)
- ListBox:SetTall(20)
- ListBox.OnSelect = function(self, index, value, data)
- data()
- Window:Close();
- end
- local w, h = Text:GetSize()
- w = math.max( w, ButtonPanel:GetWide() )
- Window:SetSize( w + 50, h + 25 + 45 + 10 )
- Window:Center()
- InnerPanel:StretchToParent( 5, 25, 5, 45 )
- Text:SetPos(0,5)
- Text:CenterHorizontal()
- ButtonPanel:StretchToParent( 5, 25, 5, 5 )
- ListBox:SetWide(ButtonPanel:GetWide())
- ListBox:CenterHorizontal()
- ListBox:CenterVertical()
- Window:MakePopup()
- if ( NumOptions == 0 ) then
- Window:Close()
- Error( "Derma_Query: Created Query with no Options!?" )
- return nil
- end
- return Window
- end
- function ITEM:OnHolster(ply)
- if ply._OldModel then
- ply:SetModel(ply._OldModel)
- end
- end
- function ITEM:Modify(modifications)
- Derma_Query_Dropdown("Choose Helmet", "",
- "Mark VI", function()
- modifications.group1 = 0 -- Default helmet
- PS:SendModifications(self.ID, modifications) --Makes sure the pointshop knows to apply changes
- end,
- "CBQ", function()
- modifications.group1 = 1 -- CBQ helmet
- PS:SendModifications(self.ID, modifications)
- end,
- "EOD", function()
- modifications.group1 = 2 -- EOD helmet
- PS:SendModifications(self.ID, modifications)
- end,
- "EVA", function()
- modifications.group1 = 3 -- EVA helmet
- PS:SendModifications(self.ID, modifications)
- end,
- "Hayabusa", function()
- modifications.group1 = 4 -- Hayabusa helmet
- PS:SendModifications(self.ID, modifications)
- end,
- "MarkV", function()
- modifications.group1 = 5 -- MarkV helmet
- PS:SendModifications(self.ID, modifications)
- end,
- "ODST", function()
- modifications.group1 = 6 -- ODST helmet
- PS:SendModifications(self.ID, modifications)
- end,
- "Recon", function()
- modifications.group1 = 7 -- Recon helmet
- PS:SendModifications(self.ID, modifications)
- end,
- "Rogue", function()
- modifications.group1 = 8 -- Rogue helmet
- PS:SendModifications(self.ID, modifications)
- end,
- "Scout", function()
- modifications.group1 = 9 -- Scout helmet
- PS:SendModifications(self.ID, modifications)
- end,
- "Security", function()
- modifications.group1 = 10 -- Security helmet
- PS:SendModifications(self.ID, modifications)
- end)
- Derma_Query_Dropdown("Choose Chestpiece", "",
- "Mark VI", function()
- modifications.group2 = 0 -- Default chestpiece
- PS:SendModifications(self.ID, modifications) --Makes sure the pointshop knows to apply changes
- end,
- "CQB", function()
- modifications.group2 = 1 -- CQB chestpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "EOD", function()
- modifications.group2 = 2 -- EOD chestpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "EVA", function()
- modifications.group2 = 3 -- EVA chestpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "Hayabusa", function()
- modifications.group2 = 4 -- Hayabusa chestpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "Recon", function()
- modifications.group2 = 5 -- Recon chestpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "Scout", function()
- modifications.group2 = 6 -- Scout chestpiece
- PS:SendModifications(self.ID, modifications)
- end)
- Derma_Query_Dropdown("Choose Left Shoulderpiece", "",
- "Mark VI", function()
- modifications.group3 = 0 -- Default left shoulderpiece
- PS:SendModifications(self.ID, modifications) --Makes sure the pointshop knows to apply changes
- end,
- "CQB", function()
- modifications.group3 = 1 -- CQB left shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "EOD", function()
- modifications.group3 = 2 -- EOD left shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "EVA", function()
- modifications.group3 = 3 -- EVA left shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "Hayabusa", function()
- modifications.group3 = 4 -- Hayabusa left shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "Recon", function()
- modifications.group3 = 5 -- Recon left shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "Scout", function()
- modifications.group3 = 6 -- Scout left shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "Security", function()
- modifications.group3 = 7 -- Security left shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end)
- Derma_Query_Dropdown("Choose Right Shoulderpiece", "",
- "Mark VI", function()
- modifications.group4 = 0 -- Default right shoulderpiece
- PS:SendModifications(self.ID, modifications) --Makes sure the pointshop knows to apply changes
- end,
- "CQB", function()
- modifications.group4 = 1 -- CQB right shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "EOD", function()
- modifications.group4 = 2 -- EOD right shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "EVA", function()
- modifications.group4 = 3 -- EVA right shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "Hayabusa", function()
- modifications.group4 = 4 -- Hayabusa right shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "Recon", function()
- modifications.group4 = 5 -- Recon right shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "Scout", function()
- modifications.group4 = 6 -- Scout right shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end,
- "Security", function()
- modifications.group4 = 7 -- Security right shoulderpiece
- PS:SendModifications(self.ID, modifications)
- end)
- Derma_Query_Dropdown("Katana", "",
- "No", function()
- modifications.group5 = 0 -- No Katana
- PS:SendModifications(self.ID, modifications) --Makes sure the pointshop knows to apply changes
- end,
- "Katana", function()
- modifications.group5 = 1 -- Katana
- PS:SendModifications(self.ID, modifications)
- end)
- print("modify")
- end
- function ITEM:OnModify(ply, modifications)
- self:OnHolster(ply)
- self:OnEquip(ply, modifications) -- adds the item back again, with new mods
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement