Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //////////////////////////////////////////////////////////////////
- // DarkRP Lottery Suggestion (Based on the pointshop lotteries)//
- // Credit to: Whoever the fuck made pointshop lotto. //
- // ZARP MENU PARTIAL REPLICA NOT INTENDED FOR SERVER USE //
- //////////////////////////////////////////////////////////////
- // ZARP LOGOS and ZARP CONTENT // BRING //
- // © 2022 ZARP Gaming // BACK //
- // All rights reserved // JUNGLESLOTS //
- //////////////////////////////////////////////////////////
- function MainMenu()
- BG = vgui.Create("DFrame")
- BG:MakePopup()
- BG:SetSize(1200,700)
- BG:Center()
- BG:SetTitle("")
- BG:ShowCloseButton(true)
- BG.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(40,40,40,255))
- draw.SimpleTextOutlined("DarkRP Lotto Concept","ScoreboardSubtitle",5,12.5,Color(255,255,255,255),TEXT_ALIGN_LEFT,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- --Menu PARTIALLY remade for concept/scaling purpose
- local Logo = Material( "materials/zarp/2018-z.png","noclamp smooth")
- SP1 = vgui.Create("DPanel",BG)
- SP1:SetSize(225,665)
- SP1:SetPos(0,25)
- SP1.Paint = function(s,w,h)
- draw.RoundedBoxEx(0,0,0,w,h,Color(42,42,42,255))
- surface.SetDrawColor( 255, 255, 255, 255 )
- surface.SetMaterial( Logo )
- surface.DrawTexturedRect( -5, -5, 108, 108 )
- draw.SimpleTextOutlined("DCX","ScoreboardSubtitle22",w*.45,40,Color(125,0,255,255),TEXT_ALIGN_LEFT,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("Drug Dealer","ScoreboardSubtitle21",w*.45,65,Color(0,255,60,255),TEXT_ALIGN_LEFT,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- SP1List = vgui.Create("DPanelList",SP1)
- SP1List:SetPos(0,105)
- SP1List:SetSize(225,560)
- SP1List:SetPadding(0)
- SP1List:SetSpacing(3)
- SP1List:EnableVerticalScrollbar(true)
- SP1List:EnableHorizontal(true)
- SP1List.Paint = function(s,w,h)
- draw.RoundedBoxEx(0,0,0,w,h,Color(30,30,30))
- end
- local tabs = {
- {
- Name = "Dashboard",
- Desc = "Main actions and info",
- num = 1,
- logo = "materials/zarp/2018-z.png"
- },
- {
- Name = "Jobs",
- Desc = "Get to work!",
- num = 2,
- logo = "materials/zarp/2018-z-halloween.png"
- }
- ,
- {
- Name = "Inventory",
- Desc = "Access your items",
- num = 3,
- logo = "materials/zarp/2019-z-summer.png"
- }
- ,
- {
- Name = "Crafting",
- Desc = "Craft new items",
- num = 4,
- logo = "materials/zarp/2018-z.png"
- }
- ,
- {
- Name = "Shop",
- Desc = "Buy new items",
- num = 5,
- logo = "materials/zarp/2018-z-halloween.png"
- }
- ,
- {
- Name = "Gangs",
- Desc = "Take over the city",
- num = 6,
- logo = "materials/zarp/2019-z-summer.png"
- }
- ,
- {
- Name = "Skills",
- Desc = "Level yourself up",
- num = 7,
- logo = "materials/zarp/2018-z.png"
- }
- ,
- {
- Name = "Donate",
- Desc = "VIP and Boosterpacks",
- num = 8,
- logo = "materials/zarp/2018-z-halloween.png"
- }
- ,
- {
- Name = "Discord",
- Desc = "Join our Discord server",
- num = 9,
- logo = "materials/zarp/2019-z-summer.png"
- }
- ,
- {
- Name = "Settings",
- Desc = "Settings and staff",
- num = 10,
- logo = "materials/zarp/2018-z.png"
- }
- }
- for k,v in SortedPairsByMemberValue(tabs, "num", false) do
- TabIcon = vgui.Create("DPanel")
- TabIcon:SetSize(225,52)
- TabIcon:SetPos(0,0)
- TabIcon.Paint = function(s,w,h)
- if v.Name == "Dashboard" then
- draw.RoundedBox(0,0,0,w,h,Color(0,100,20,255)) ---Pretend its selected
- else
- draw.RoundedBox(0,0,0,w,h,Color(35,35,35,35))
- end
- TabLogo = Material(v.logo,"noclamp smooth")
- surface.SetDrawColor( 255, 255, 255, 255 )
- surface.SetMaterial( TabLogo )
- surface.DrawTexturedRect( 2, 2, 48, 48 )
- draw.SimpleTextOutlined(v.Name,"ScoreboardSubtitle22",w*.25,h*.35,Color(255,255,255,255),TEXT_ALIGN_LEFT,TEXT_ALIGN_CENTER,0,Color(0,0,0,200))
- draw.SimpleTextOutlined(v.Desc,"ScoreboardSubtitle16",w*.25,h*.7,Color(255,255,255,255),TEXT_ALIGN_LEFT,TEXT_ALIGN_CENTER,0,Color(0,0,0,200))
- end
- SP1List:AddItem(TabIcon)
- end
- BG2 = vgui.Create("DPanel",BG)
- BG2:SetSize(975,665)
- BG2:SetPos(225,25)
- BG2.Paint = function(s,w,h)
- draw.RoundedBox(0,0,0,w,h,Color(35,35,35,255))
- draw.SimpleTextOutlined("ZARP LOTTERY","ScoreboardSubtitle29",w*.5,20,Color(255,255,255,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- LottoINFOPNL = vgui.Create("DPanel",BG2)
- LottoINFOPNL:SetSize(955,100)
- LottoINFOPNL:SetPos(10,40)
- LottoINFOPNL.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(0,0,0,150))
- draw.SimpleTextOutlined("Welcome, this is the brand new ZARP Lottery! Here you can come to have a chance to win some bigger than ever lotteries!","ScoreboardSubtitle21",w*.5,20,Color(255,255,255,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("This lottery is player controlled so there is no limit to how much you can enter or win! ","ScoreboardSubtitle21",w*.5,40,Color(255,255,255,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("90% Of all DAILY entries purchased will go straight to the daily pot.","ScoreboardSubtitle21",w*.5,65,Color(145,145,145,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("80% Of all MONTHLY entries purchased will go straight to the monthy pot.","ScoreboardSubtitle21",w*.5,85,Color(255,190,0,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- --Daily Lotto--
- DLottoPNL = vgui.Create("DPanel",BG2)
- DLottoPNL:SetSize(755,250)
- DLottoPNL:SetPos(10,150)
- DLottoPNL.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(0,0,0,150))
- draw.SimpleTextOutlined("DAILY","ScoreboardSubtitle29",5,20,Color(145,145,145,255),TEXT_ALIGN_LEFT,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("PREVIOUS NUMBERS","ScoreboardSubtitle29",5,120,Color(255,255,255,255),TEXT_ALIGN_LEFT,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- DLottoDrawINFO = vgui.Create("DPanel",DLottoPNL)
- DLottoDrawINFO:SetSize(300,90)
- DLottoDrawINFO:SetPos(450,5)
- DLottoDrawINFO.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(30,30,30,255))
- draw.SimpleTextOutlined("NEXT DRAWING","ScoreboardSubtitle25",w*.5,20,Color(255,0,0,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("Hour Min Sec","ScoreboardSubtitle25",w*.5,45,Color(255,255,255,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("24:00:00","ScoreboardSubtitle30",w*.5,70,Color(0,255,255,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- DLottoEntINFO = vgui.Create("DPanel",DLottoPNL)
- DLottoEntINFO:SetSize(300,145)
- DLottoEntINFO:SetPos(450,100)
- DLottoEntINFO.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(30,30,30,255))
- draw.SimpleTextOutlined("ENTRIES","ScoreboardSubtitle25",w*.5,20,Color(145,145,145,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("YOUR ENTRIES: 10","ScoreboardSubtitle22",w*.5,h*.5,Color(255,255,255,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("TOTAL ENTRIES: 110","ScoreboardSubtitle22",w*.5,h*.7,Color(255,90,0,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- DLottoVal = vgui.Create("DPanel",DLottoPNL)
- DLottoVal:SetSize(440,60)
- DLottoVal:SetPos(5,35)
- DLottoVal.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(30,30,30,255))
- draw.SimpleTextOutlined("Current Prize: $99,000,000","ScoreboardSubtitle29",w*.5,h*.5,Color(0,100,20,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- DLottoReel = vgui.Create("DPanel",DLottoPNL)
- DLottoReel:SetSize(440,50)
- DLottoReel:SetPos(5,135)
- DLottoReel.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(30,30,30,255))
- draw.SimpleTextOutlined("5 2 1 6 9 0 1 4","ScoreboardSubtitle29",w*.5,h*.5,Color(145,145,145,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- local Purchase = {
- {
- Name = "1 Entry",
- Desc = "$1,000,000",
- num = 1,
- },
- {
- Name = "5 Entries",
- Desc = "$5,000,000",
- num = 2,
- },
- {
- Name = "10 Entries",
- Desc = "$10,000,000",
- num = 3,
- },
- {
- Name = "Custom",
- Desc = "$1,000,000 Each",
- num = 4
- }
- }
- DLottoPurchase = vgui.Create("DPanelList",DLottoPNL)
- DLottoPurchase:SetPos(5,195)
- DLottoPurchase:SetSize(440,45)
- DLottoPurchase:SetPadding(3)
- DLottoPurchase:SetSpacing(3)
- DLottoPurchase:EnableVerticalScrollbar(false)
- DLottoPurchase:EnableHorizontal(true)
- DLottoPurchase.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(30,30,30))
- end
- for k,v in SortedPairsByMemberValue(Purchase, "num", false) do
- TabIcon = vgui.Create("DPanel")
- TabIcon:SetSize(106,38)
- TabIcon:SetPos(0,0)
- TabIcon.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(0,100,20,255))
- draw.SimpleTextOutlined(v.Name,"ScoreboardSubtitle19",w*.5,h*.32,Color(145,145,145,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,0,Color(0,0,0,200))
- draw.SimpleTextOutlined(v.Desc,"ScoreboardSubtitle19",w*.5,h*.74,Color(255,255,255,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,0,Color(0,0,0,200))
- end
- DLottoPurchase:AddItem(TabIcon)
- end
- DLottoWPNL = vgui.Create("DPanel",BG2)
- DLottoWPNL:SetSize(195,250)
- DLottoWPNL:SetPos(770,150)
- DLottoWPNL.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(0,0,0,150))
- draw.SimpleTextOutlined("Daily Winner","ScoreboardSubtitle29",w*.5,20,Color(145,145,145,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("Sam Townsend","ScoreboardSubtitle25",w*.5,185,Color(145,145,145,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("$99,000,000","ScoreboardSubtitle27",w*.5,215,Color(0,100,20,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- DLottoWICO = vgui.Create("DPanel",DLottoWPNL)
- DLottoWICO:SetPos( 35, 40 )
- DLottoWICO:SetSize( 128, 128 )
- local DAvatar = vgui.Create( "AvatarImage", DLottoWICO )
- DAvatar:SetSize( 128, 128 )
- DAvatar:SetPos( 0, 0 )
- DAvatar:SetSteamID( "76561197975880585", 128 ) -- ChuteUK
- --Weekly Lotto--
- WLottoPNL = vgui.Create("DPanel",BG2)
- WLottoPNL:SetSize(755,250)
- WLottoPNL:SetPos(10,410)
- WLottoPNL.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(0,0,0,150))
- draw.SimpleTextOutlined("WEEKLY","ScoreboardSubtitle29",5,20,Color(255,190,0,255),TEXT_ALIGN_LEFT,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("PREVIOUS NUMBERS","ScoreboardSubtitle29",5,120,Color(255,255,255,255),TEXT_ALIGN_LEFT,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- WLottoDrawINFO = vgui.Create("DPanel",WLottoPNL)
- WLottoDrawINFO:SetSize(300,90)
- WLottoDrawINFO:SetPos(450,5)
- WLottoDrawINFO.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(30,30,30,255))
- draw.SimpleTextOutlined("NEXT DRAWING","ScoreboardSubtitle25",w*.5,20,Color(255,0,0,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("Day Hour Min Sec","ScoreboardSubtitle25",w*.5,45,Color(255,255,255,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("5 : 23 : 30 : 15","ScoreboardSubtitle30",w*.5,70,Color(0,255,255,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- WLottoEntINFO = vgui.Create("DPanel",WLottoPNL)
- WLottoEntINFO:SetSize(300,145)
- WLottoEntINFO:SetPos(450,100)
- WLottoEntINFO.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(30,30,30,255))
- draw.SimpleTextOutlined("ENTRIES","ScoreboardSubtitle25",w*.5,20,Color(255,190,0,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("YOUR ENTRIES: 25","ScoreboardSubtitle22",w*.5,h*.5,Color(255,255,255,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("TOTAL ENTRIES: 100","ScoreboardSubtitle22",w*.5,h*.7,Color(255,90,0,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- WLottoVal = vgui.Create("DPanel",WLottoPNL)
- WLottoVal:SetSize(440,60)
- WLottoVal:SetPos(5,35)
- WLottoVal.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(30,30,30,255))
- draw.SimpleTextOutlined("Current Prize: $800,000,000","ScoreboardSubtitle29",w*.5,h*.5,Color(0,100,20,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- WLottoReel = vgui.Create("DPanel",WLottoPNL)
- WLottoReel:SetSize(440,50)
- WLottoReel:SetPos(5,135)
- WLottoReel.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(30,30,30,255))
- draw.SimpleTextOutlined("45 25 14 69 19 0 7 44","ScoreboardSubtitle29",w*.5,h*.5,Color(255,190,0,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- WLottoPurchase = vgui.Create("DPanelList",WLottoPNL)
- WLottoPurchase:SetPos(5,195)
- WLottoPurchase:SetSize(440,45)
- WLottoPurchase:SetPadding(3)
- WLottoPurchase:SetSpacing(3)
- WLottoPurchase:EnableVerticalScrollbar(false)
- WLottoPurchase:EnableHorizontal(true)
- WLottoPurchase.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(30,30,30))
- end
- for k,v in SortedPairsByMemberValue(Purchase, "num", false) do
- TabIcon = vgui.Create("DPanel")
- TabIcon:SetSize(106,38)
- TabIcon:SetPos(0,0)
- TabIcon.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(0,100,20,255))
- draw.SimpleTextOutlined(v.Name,"ScoreboardSubtitle19",w*.5,h*.32,Color(255,190,0,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,0,Color(0,0,0,200))
- draw.SimpleTextOutlined(v.Desc,"ScoreboardSubtitle19",w*.5,h*.74,Color(255,255,255,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,0,Color(0,0,0,200))
- end
- WLottoPurchase:AddItem(TabIcon)
- end
- WLottoWPNL = vgui.Create("DPanel",BG2)
- WLottoWPNL:SetSize(195,250)
- WLottoWPNL:SetPos(770,410)
- WLottoWPNL.Paint = function(s,w,h)
- draw.RoundedBox(5,0,0,w,h,Color(0,0,0,150))
- draw.SimpleTextOutlined("Weekly Winner","ScoreboardSubtitle29",w*.5,20,Color(255,190,0,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("Gunnar Anderson","ScoreboardSubtitle25",w*.5,185,Color(255,190,0,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- draw.SimpleTextOutlined("$800,000,000","ScoreboardSubtitle27",w*.5,215,Color(0,100,20,255),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER,2,Color(0,0,0,200))
- end
- WLottoWICO = vgui.Create("DPanel",WLottoWPNL)
- WLottoWICO:SetPos( 35, 40 )
- WLottoWICO:SetSize( 128, 128 )
- local WAvatar = vgui.Create( "AvatarImage", WLottoWICO )
- WAvatar:SetSize( 128, 128 )
- WAvatar:SetPos( 0, 0 )
- WAvatar:SetSteamID( "76561198071236825", 128 ) -- EMP
- end
- concommand.Add("_menu", MainMenu)
- surface.CreateFont("ScoreboardSubtitle15", {
- size = 16,
- weight = 500,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
- surface.CreateFont("ScoreboardSubtitle16", {
- size = 16,
- weight = 500,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
- surface.CreateFont("ScoreboardSubtitle17", {
- size = 17,
- weight = 500,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
- surface.CreateFont("ScoreboardSubtitle", {
- size = 18,
- weight = 500,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
- surface.CreateFont("ScoreboardSubtitle19", {
- size = 19,
- weight = 500,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
- surface.CreateFont("ScoreboardSubtitle20", {
- size = 20,
- weight = 500,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
- surface.CreateFont("ScoreboardSubtitle21", {
- size = 21,
- weight = 500,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
- surface.CreateFont("ScoreboardSubtitle22", {
- size = 22,
- weight = 500,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
- surface.CreateFont("ScoreboardSubtitle23", {
- size = 23,
- weight = 500,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
- surface.CreateFont("ScoreboardSubtitle25", {
- size = 25,
- weight = 500,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
- surface.CreateFont("ScoreboardSubtitle27", {
- size = 27,
- weight = 500,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
- surface.CreateFont("ScoreboardSubtitle29", {
- size = 29,
- weight = 600,
- antialias = true,
- shadow = false,
- font = "coolvetica"})
Add Comment
Please, Sign In to add comment