API tools faq
paste
cabbiethefirst

Untitled

cabbiethefirst
Dec 11th, 2012
186
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 46.80 KB | None | 0 0
raw download clone embed print report
  1. --showteamtabs.lua
  2.  
  3.  
  4. function getleaderstatusfuckshit()
  5. RunConsoleCommand("findgang1statuscoowner")
  6. RunConsoleCommand("findgang2statuscoowner")
  7. RunConsoleCommand("findgang3statuscoowner")
  8. RunConsoleCommand("findgang4statuscoowner")
  9. RunConsoleCommand("findgang1statusleader")
  10. RunConsoleCommand("findgang2statusleader")
  11. RunConsoleCommand("findgang3statusleader")
  12. RunConsoleCommand("findgang4statusleader")
  13. RunConsoleCommand("findgang1statusmember")
  14. RunConsoleCommand("findgang2statusmember")
  15. RunConsoleCommand("findgang3statusmember")
  16. RunConsoleCommand("findgang4statusmember")
  17. RunConsoleCommand("gang1list")
  18. RunConsoleCommand("gang2list")
  19. RunConsoleCommand("gang3list")
  20. RunConsoleCommand("gang4list")
  21. end
  22. timer.Create("asstimer", 10, 0, getleaderstatusfuckshit)
  23.  
  24. net.Receive( "playergang1leaderus", function( len )
  25.  
  26. playerisgang1leader = net.ReadBool()
  27.  
  28. end )
  29.  
  30.  
  31. net.Receive( "playergang2leaderus", function( len )
  32.  
  33. playerisgang2leader = net.ReadBool()
  34.  
  35. end )
  36.  
  37. net.Receive( "playergang3leaderus", function( len )
  38.  
  39. playerisgang4leader = net.ReadBool()
  40.  
  41. end )
  42.  
  43. net.Receive( "playergang4leaderus", function( len )
  44.  
  45. playerisgang4leader = net.ReadBool()
  46.  
  47. end )
  48.  
  49. net.Receive( "playergang1coownerus", function( len )
  50.  
  51. playerisgang1coowner = net:ReadBool()
  52.  
  53. end )
  54.  
  55.  
  56. net.Receive( "playergang2coownerus", function( len )
  57.  
  58. playerisgang2coowner = net:ReadBool()
  59.  
  60. end )
  61.  
  62. net.Receive( "playergang3coownerus", function( len )
  63.  
  64. playerisgang3coowner = net:ReadBool()
  65.  
  66. end )
  67.  
  68. net.Receive( "playergang4coownerus", function( len )
  69.  
  70. playerisgang4coowner = net:ReadBool()
  71.  
  72. end )
  73.  
  74.  
  75. net.Receive( "playergang1nameus", function( len )
  76.  
  77. playerisgang1member = net:ReadBool()
  78.  
  79. end )
  80.  
  81. net.Receive( "playergang2nameus", function( len )
  82.  
  83. playerisgang2member = net:ReadBool()
  84.  
  85. end )
  86.  
  87. net.Receive( "playergang3nameus", function( len )
  88.  
  89. playerisgang3member = net:ReadBool()
  90.  
  91. end )
  92.  
  93. net.Receive( "playergang4nameus", function( len )
  94.  
  95. playerisgang4member = net:ReadBool()
  96.  
  97. end )
  98.  
  99. net.Receive( "playergang1memlist", function( len )
  100.  
  101. playergang1memberlistval = net.ReadString()
  102.  
  103. end )
  104.  
  105. net.Receive( "playergang2memlist", function( len )
  106.  
  107. playergang2memberlistval = net.ReadString()
  108.  
  109. end )
  110.  
  111. net.Receive( "playergang3memlist", function( len )
  112.  
  113. playergang3memberlistval = net.ReadString()
  114.  
  115. end )
  116.  
  117. net.Receive( "playergang4memlist", function( len )
  118.  
  119. playergang4memberlistval = net.ReadString()
  120.  
  121. end )
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128. function GM:GangTab()
  129.  
  130. local FirstTabPanel = vgui.Create("DPanelList")
  131. FirstTabPanel:EnableVerticalScrollbar( true )
  132. function FirstTabPanel:Update()
  133. self:Clear(true)
  134. local MoneyCat = vgui.Create("DCollapsibleCategory")
  135. MoneyCat:SetLabel("Gangs")
  136. local MoneyPanel = vgui.Create("DListLayout")
  137. MoneyPanel:SetSize(740,60)
  138.  
  139.  
  140. if LocalPlayer():IsSuperAdmin( ) || playerisgang1leader == true || playerisgang1coowner == true then
  141.  
  142. local setgang1 = MoneyPanel:Add("DButton")
  143. setgang1:SetText("Add Gang(1) Player")
  144. setgang1.DoClick = function()
  145.  
  146.  
  147. local victims = player.GetAll()
  148. for k, v in pairs (victims) do
  149. if (v == LocalPlayer()) then
  150. table.remove(victims, k)
  151. end
  152. end
  153.  
  154. local frame = vgui.Create("DFrame")
  155. frame:SetSize(500, 150)
  156. frame:Center()
  157. frame:MakePopup()
  158. frame:SetTitle("Add Player")
  159.  
  160. local label = vgui.Create("DLabel", frame)
  161. label:SetFont("Trebuchet24")
  162. label:SetText("Player to add:")
  163. label:SizeToContents()
  164. label:AlignTop(35)
  165. label:CenterHorizontal()
  166.  
  167.  
  168. local button = vgui.Create("DButton", frame)
  169.  
  170. local targetply = vgui.Create("DComboBox", frame)
  171. targetply:MoveBelow(label, 20)
  172. targetply:SetWide(200)
  173. targetply:CenterHorizontal()
  174. targetply.OnSelect = function(me, index, value)
  175. button:SetDisabled(false)
  176. me.CurrentSelected = victims[index]
  177. end
  178.  
  179. for k, v in pairs (victims) do
  180. targetply:AddChoice(v:Nick())
  181. end
  182.  
  183.  
  184.  
  185. button:SetSize(128, 48)
  186. button:AlignBottom(10)
  187. button:SetText("Confirm")
  188. button:SetDisabled(true)
  189. button:CenterHorizontal()
  190. button.DoClick = function()
  191. if (string.len(targetply:GetValue()) == 0) then
  192. Derma_Message("Select a player.", "Warning", "OK")
  193. return
  194. end
  195.  
  196. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  197. "Yes", function()
  198. for k, v in pairs(player:GetAll()) do
  199. if string.find( v:Nick(), targetply:GetValue()) != nil then
  200. local leadersteamid = v:SteamID()
  201. LocalPlayer():ConCommand("setgang1name " .. leadersteamid)
  202. LocalPlayer():ChatPrint("Player added Successfully")
  203. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  204. frame:Close()
  205.  
  206.  
  207. end
  208. end
  209.  
  210. end,
  211. "No", function() end)
  212. end
  213. end
  214. end
  215.  
  216.  
  217.  
  218.  
  219.  
  220.  
  221.  
  222.  
  223.  
  224.  
  225. if LocalPlayer():IsSuperAdmin( ) || playerisgang2leader == true || playerisgang2coowner == true then
  226.  
  227. local setgang2 = MoneyPanel:Add("DButton")
  228. setgang2:SetText("Add Gang(2) Player")
  229. setgang2.DoClick = function()
  230. local victims = player.GetAll()
  231. for k, v in pairs (victims) do
  232. if (v == LocalPlayer()) then
  233. table.remove(victims, k)
  234. end
  235. end
  236.  
  237. local frame = vgui.Create("DFrame")
  238. frame:SetSize(500, 150)
  239. frame:Center()
  240. frame:MakePopup()
  241. frame:SetTitle("Add Player")
  242.  
  243. local label = vgui.Create("DLabel", frame)
  244. label:SetFont("Trebuchet24")
  245. label:SetText("Player to add:")
  246. label:SizeToContents()
  247. label:AlignTop(35)
  248. label:CenterHorizontal()
  249.  
  250.  
  251. local button = vgui.Create("DButton", frame)
  252.  
  253. local targetply = vgui.Create("DComboBox", frame)
  254. targetply:MoveBelow(label, 20)
  255. targetply:SetWide(200)
  256. targetply:CenterHorizontal()
  257. targetply.OnSelect = function(me, index, value)
  258. button:SetDisabled(false)
  259. me.CurrentSelected = victims[index]
  260. end
  261.  
  262. for k, v in pairs (victims) do
  263. targetply:AddChoice(v:Nick())
  264. end
  265.  
  266.  
  267.  
  268. button:SetSize(128, 48)
  269. button:AlignBottom(10)
  270. button:SetText("Confirm")
  271. button:SetDisabled(true)
  272. button:CenterHorizontal()
  273. button.DoClick = function()
  274. if (string.len(targetply:GetValue()) == 0) then
  275. Derma_Message("Select a player.", "Warning", "OK")
  276. return
  277. end
  278.  
  279. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  280. "Yes", function()
  281. for k, v in pairs(player:GetAll()) do
  282. if string.find( v:Nick(), targetply:GetValue()) != nil then
  283. local leadersteamid = v:SteamID()
  284. LocalPlayer():ConCommand("setgang2name " .. leadersteamid)
  285. LocalPlayer():ChatPrint("Player added Successfully")
  286. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  287. frame:Close()
  288.  
  289.  
  290. end
  291. end
  292.  
  293. end,
  294. "No", function() end)
  295. end
  296. end
  297. end
  298.  
  299. if LocalPlayer():IsSuperAdmin( ) || playerisgang3leader == true || playerisgang3coowner == true then
  300.  
  301. local setgang3 = MoneyPanel:Add("DButton")
  302. setgang3:SetText("Add Gang(3) Player")
  303. setgang3.DoClick = function()
  304. local victims = player.GetAll()
  305. for k, v in pairs (victims) do
  306. if (v == LocalPlayer()) then
  307. table.remove(victims, k)
  308. end
  309. end
  310.  
  311. local frame = vgui.Create("DFrame")
  312. frame:SetSize(500, 150)
  313. frame:Center()
  314. frame:MakePopup()
  315. frame:SetTitle("Add Player")
  316.  
  317. local label = vgui.Create("DLabel", frame)
  318. label:SetFont("Trebuchet24")
  319. label:SetText("Player to add:")
  320. label:SizeToContents()
  321. label:AlignTop(35)
  322. label:CenterHorizontal()
  323.  
  324.  
  325. local button = vgui.Create("DButton", frame)
  326.  
  327. local targetply = vgui.Create("DComboBox", frame)
  328. targetply:MoveBelow(label, 20)
  329. targetply:SetWide(200)
  330. targetply:CenterHorizontal()
  331. targetply.OnSelect = function(me, index, value)
  332. button:SetDisabled(false)
  333. me.CurrentSelected = victims[index]
  334. end
  335.  
  336. for k, v in pairs (victims) do
  337. targetply:AddChoice(v:Nick())
  338. end
  339.  
  340.  
  341.  
  342. button:SetSize(128, 48)
  343. button:AlignBottom(10)
  344. button:SetText("Confirm")
  345. button:SetDisabled(true)
  346. button:CenterHorizontal()
  347. button.DoClick = function()
  348. if (string.len(targetply:GetValue()) == 0) then
  349. Derma_Message("Select a player.", "Warning", "OK")
  350. return
  351. end
  352.  
  353. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  354. "Yes", function()
  355. for k, v in pairs(player:GetAll()) do
  356. if string.find( v:Nick(), targetply:GetValue()) != nil then
  357. local leadersteamid = v:SteamID()
  358. LocalPlayer():ConCommand("setgang3name " .. leadersteamid)
  359. LocalPlayer():ChatPrint("Player added Successfully")
  360. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  361. frame:Close()
  362.  
  363.  
  364. end
  365. end
  366.  
  367. end,
  368. "No", function() end)
  369. end
  370. end
  371. end
  372.  
  373. if LocalPlayer():IsSuperAdmin( ) || playerisgang4leader == true || playerisgang4coowner == true then
  374.  
  375. local setgang4 = MoneyPanel:Add("DButton")
  376. setgang4:SetText("Add Gang(4) Player")
  377. setgang4.DoClick = function()
  378. local victims = player.GetAll()
  379. for k, v in pairs (victims) do
  380. if (v == LocalPlayer()) then
  381. table.remove(victims, k)
  382. end
  383. end
  384.  
  385. local frame = vgui.Create("DFrame")
  386. frame:SetSize(500, 150)
  387. frame:Center()
  388. frame:MakePopup()
  389. frame:SetTitle("Add Player")
  390.  
  391. local label = vgui.Create("DLabel", frame)
  392. label:SetFont("Trebuchet24")
  393. label:SetText("Player to add:")
  394. label:SizeToContents()
  395. label:AlignTop(35)
  396. label:CenterHorizontal()
  397.  
  398.  
  399. local button = vgui.Create("DButton", frame)
  400.  
  401. local targetply = vgui.Create("DComboBox", frame)
  402. targetply:MoveBelow(label, 20)
  403. targetply:SetWide(200)
  404. targetply:CenterHorizontal()
  405. targetply.OnSelect = function(me, index, value)
  406. button:SetDisabled(false)
  407. me.CurrentSelected = victims[index]
  408. end
  409.  
  410. for k, v in pairs (victims) do
  411. targetply:AddChoice(v:Nick())
  412. end
  413.  
  414.  
  415.  
  416. button:SetSize(128, 48)
  417. button:AlignBottom(10)
  418. button:SetText("Confirm")
  419. button:SetDisabled(true)
  420. button:CenterHorizontal()
  421. button.DoClick = function()
  422. if (string.len(targetply:GetValue()) == 0) then
  423. Derma_Message("Select a player.", "Warning", "OK")
  424. return
  425. end
  426.  
  427. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  428. "Yes", function()
  429. for k, v in pairs(player:GetAll()) do
  430. if string.find( v:Nick(), targetply:GetValue()) != nil then
  431. local leadersteamid = v:SteamID()
  432. LocalPlayer():ConCommand("setgang4name " .. leadersteamid)
  433. LocalPlayer():ChatPrint("Player added Successfully")
  434. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  435. frame:Close()
  436.  
  437.  
  438. end
  439. end
  440.  
  441. end,
  442. "No", function() end)
  443. end
  444. end
  445. end
  446.  
  447.  
  448. if LocalPlayer():IsSuperAdmin( ) || playerisgang1leader == true then
  449.  
  450. local setgangco1 = MoneyPanel:Add("DButton")
  451. setgangco1:SetText("Add Gang(1) Co-Owner")
  452. setgangco1.DoClick = function()
  453. local victims = player.GetAll()
  454. for k, v in pairs (victims) do
  455. if (v == LocalPlayer()) then
  456. table.remove(victims, k)
  457. end
  458. end
  459.  
  460. local frame = vgui.Create("DFrame")
  461. frame:SetSize(500, 150)
  462. frame:Center()
  463. frame:MakePopup()
  464. frame:SetTitle("Add Player")
  465.  
  466. local label = vgui.Create("DLabel", frame)
  467. label:SetFont("Trebuchet24")
  468. label:SetText("Player to add:")
  469. label:SizeToContents()
  470. label:AlignTop(35)
  471. label:CenterHorizontal()
  472.  
  473.  
  474. local button = vgui.Create("DButton", frame)
  475.  
  476. local targetply = vgui.Create("DComboBox", frame)
  477. targetply:MoveBelow(label, 20)
  478. targetply:SetWide(200)
  479. targetply:CenterHorizontal()
  480. targetply.OnSelect = function(me, index, value)
  481. button:SetDisabled(false)
  482. me.CurrentSelected = victims[index]
  483. end
  484.  
  485. for k, v in pairs (victims) do
  486. targetply:AddChoice(v:Nick())
  487. end
  488.  
  489.  
  490.  
  491. button:SetSize(128, 48)
  492. button:AlignBottom(10)
  493. button:SetText("Confirm")
  494. button:SetDisabled(true)
  495. button:CenterHorizontal()
  496. button.DoClick = function()
  497. if (string.len(targetply:GetValue()) == 0) then
  498. Derma_Message("Select a player.", "Warning", "OK")
  499. return
  500. end
  501.  
  502. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  503. "Yes", function()
  504. for k, v in pairs(player:GetAll()) do
  505. if string.find( v:Nick(), targetply:GetValue()) != nil then
  506. local leadersteamid = v:SteamID()
  507. LocalPlayer():ConCommand("setgangco1name " .. leadersteamid)
  508. LocalPlayer():ChatPrint("Player added Successfully")
  509. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  510. frame:Close()
  511.  
  512.  
  513. end
  514. end
  515.  
  516. end,
  517. "No", function() end)
  518. end
  519. end
  520. end
  521.  
  522.  
  523. if LocalPlayer():IsSuperAdmin( ) || playerisgang2leader == true then
  524.  
  525. local setgangco2 = MoneyPanel:Add("DButton")
  526. setgangco2:SetText("Add Gang(2) Co-Owner")
  527. setgangco2.DoClick = function()
  528. local victims = player.GetAll()
  529. for k, v in pairs (victims) do
  530. if (v == LocalPlayer()) then
  531. table.remove(victims, k)
  532. end
  533. end
  534.  
  535. local frame = vgui.Create("DFrame")
  536. frame:SetSize(500, 150)
  537. frame:Center()
  538. frame:MakePopup()
  539. frame:SetTitle("Add Player")
  540.  
  541. local label = vgui.Create("DLabel", frame)
  542. label:SetFont("Trebuchet24")
  543. label:SetText("Player to add:")
  544. label:SizeToContents()
  545. label:AlignTop(35)
  546. label:CenterHorizontal()
  547.  
  548.  
  549. local button = vgui.Create("DButton", frame)
  550.  
  551. local targetply = vgui.Create("DComboBox", frame)
  552. targetply:MoveBelow(label, 20)
  553. targetply:SetWide(200)
  554. targetply:CenterHorizontal()
  555. targetply.OnSelect = function(me, index, value)
  556. button:SetDisabled(false)
  557. me.CurrentSelected = victims[index]
  558. end
  559.  
  560. for k, v in pairs (victims) do
  561. targetply:AddChoice(v:Nick())
  562. end
  563.  
  564.  
  565.  
  566. button:SetSize(128, 48)
  567. button:AlignBottom(10)
  568. button:SetText("Confirm")
  569. button:SetDisabled(true)
  570. button:CenterHorizontal()
  571. button.DoClick = function()
  572. if (string.len(targetply:GetValue()) == 0) then
  573. Derma_Message("Select a player.", "Warning", "OK")
  574. return
  575. end
  576.  
  577. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  578. "Yes", function()
  579. for k, v in pairs(player:GetAll()) do
  580. if string.find( v:Nick(), targetply:GetValue()) != nil then
  581. local leadersteamid = v:SteamID()
  582. LocalPlayer():ConCommand("setgangco2name " .. leadersteamid)
  583. LocalPlayer():ChatPrint("Player added Successfully")
  584. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  585. frame:Close()
  586.  
  587.  
  588. end
  589. end
  590.  
  591. end,
  592. "No", function() end)
  593. end
  594. end
  595. end
  596.  
  597.  
  598.  
  599.  
  600. if LocalPlayer():IsSuperAdmin( ) || playerisgang3leader == true then
  601.  
  602. local setgangco3 = MoneyPanel:Add("DButton")
  603. setgangco3:SetText("Add Gang(3) Co-Owner")
  604. setgangco3.DoClick = function()
  605. local victims = player.GetAll()
  606. for k, v in pairs (victims) do
  607. if (v == LocalPlayer()) then
  608. table.remove(victims, k)
  609. end
  610. end
  611.  
  612. local frame = vgui.Create("DFrame")
  613. frame:SetSize(500, 150)
  614. frame:Center()
  615. frame:MakePopup()
  616. frame:SetTitle("Add Player")
  617.  
  618. local label = vgui.Create("DLabel", frame)
  619. label:SetFont("Trebuchet24")
  620. label:SetText("Player to add:")
  621. label:SizeToContents()
  622. label:AlignTop(35)
  623. label:CenterHorizontal()
  624.  
  625.  
  626. local button = vgui.Create("DButton", frame)
  627.  
  628. local targetply = vgui.Create("DComboBox", frame)
  629. targetply:MoveBelow(label, 20)
  630. targetply:SetWide(200)
  631. targetply:CenterHorizontal()
  632. targetply.OnSelect = function(me, index, value)
  633. button:SetDisabled(false)
  634. me.CurrentSelected = victims[index]
  635. end
  636.  
  637. for k, v in pairs (victims) do
  638. targetply:AddChoice(v:Nick())
  639. end
  640.  
  641.  
  642.  
  643. button:SetSize(128, 48)
  644. button:AlignBottom(10)
  645. button:SetText("Confirm")
  646. button:SetDisabled(true)
  647. button:CenterHorizontal()
  648. button.DoClick = function()
  649. if (string.len(targetply:GetValue()) == 0) then
  650. Derma_Message("Select a player.", "Warning", "OK")
  651. return
  652. end
  653.  
  654. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  655. "Yes", function()
  656. for k, v in pairs(player:GetAll()) do
  657. if string.find( v:Nick(), targetply:GetValue()) != nil then
  658. local leadersteamid = v:SteamID()
  659. LocalPlayer():ConCommand("setgangco3name " .. leadersteamid)
  660. LocalPlayer():ChatPrint("Player added Successfully")
  661. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  662. frame:Close()
  663.  
  664.  
  665. end
  666. end
  667.  
  668. end,
  669. "No", function() end)
  670. end
  671. end
  672. end
  673.  
  674.  
  675.  
  676. if LocalPlayer():IsSuperAdmin( ) || playerisgang4leader == true then
  677.  
  678. local setgangco4 = MoneyPanel:Add("DButton")
  679. setgangco4:SetText("Add Gang(4) Co-Owner")
  680. setgangco4.DoClick = function()
  681. local victims = player.GetAll()
  682. for k, v in pairs (victims) do
  683. if (v == LocalPlayer()) then
  684. table.remove(victims, k)
  685. end
  686. end
  687.  
  688. local frame = vgui.Create("DFrame")
  689. frame:SetSize(500, 150)
  690. frame:Center()
  691. frame:MakePopup()
  692. frame:SetTitle("Add Player")
  693.  
  694. local label = vgui.Create("DLabel", frame)
  695. label:SetFont("Trebuchet24")
  696. label:SetText("Player to add:")
  697. label:SizeToContents()
  698. label:AlignTop(35)
  699. label:CenterHorizontal()
  700.  
  701.  
  702. local button = vgui.Create("DButton", frame)
  703.  
  704. local targetply = vgui.Create("DComboBox", frame)
  705. targetply:MoveBelow(label, 20)
  706. targetply:SetWide(200)
  707. targetply:CenterHorizontal()
  708. targetply.OnSelect = function(me, index, value)
  709. button:SetDisabled(false)
  710. me.CurrentSelected = victims[index]
  711. end
  712.  
  713. for k, v in pairs (victims) do
  714. targetply:AddChoice(v:Nick())
  715. end
  716.  
  717.  
  718.  
  719. button:SetSize(128, 48)
  720. button:AlignBottom(10)
  721. button:SetText("Confirm")
  722. button:SetDisabled(true)
  723. button:CenterHorizontal()
  724. button.DoClick = function()
  725. if (string.len(targetply:GetValue()) == 0) then
  726. Derma_Message("Select a player.", "Warning", "OK")
  727. return
  728. end
  729.  
  730. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  731. "Yes", function()
  732. for k, v in pairs(player:GetAll()) do
  733. if string.find( v:Nick(), targetply:GetValue()) != nil then
  734. local leadersteamid = v:SteamID()
  735. LocalPlayer():ConCommand("setgangco4name " .. leadersteamid)
  736. LocalPlayer():ChatPrint("Player added Successfully")
  737. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  738. frame:Close()
  739.  
  740.  
  741. end
  742. end
  743.  
  744. end,
  745. "No", function() end)
  746. end
  747. end
  748. end
  749.  
  750.  
  751.  
  752.  
  753.  
  754.  
  755. if LocalPlayer():IsSuperAdmin( ) || playerisgang1leader == true || playerisgang1coowner == true then
  756.  
  757. local removegang1 = MoneyPanel:Add("DButton")
  758. removegang1:SetText("Remove Gang(1) Player")
  759. removegang1.DoClick = function()
  760. local victims = player.GetAll()
  761. for k, v in pairs (victims) do
  762. if (v == LocalPlayer()) then
  763. table.remove(victims, k)
  764. end
  765. end
  766.  
  767. local frame = vgui.Create("DFrame")
  768. frame:SetSize(500, 150)
  769. frame:Center()
  770. frame:MakePopup()
  771. frame:SetTitle("Remove Player")
  772.  
  773. local label = vgui.Create("DLabel", frame)
  774. label:SetFont("Trebuchet24")
  775. label:SetText("Player to Remove:")
  776. label:SizeToContents()
  777. label:AlignTop(35)
  778. label:CenterHorizontal()
  779.  
  780.  
  781. local button = vgui.Create("DButton", frame)
  782.  
  783. local targetply = vgui.Create("DComboBox", frame)
  784. targetply:MoveBelow(label, 20)
  785. targetply:SetWide(200)
  786. targetply:CenterHorizontal()
  787. targetply.OnSelect = function(me, index, value)
  788. button:SetDisabled(false)
  789. me.CurrentSelected = victims[index]
  790. end
  791.  
  792. for k, v in pairs (victims) do
  793. targetply:AddChoice(v:Nick())
  794. end
  795.  
  796.  
  797.  
  798. button:SetSize(128, 48)
  799. button:AlignBottom(10)
  800. button:SetText("Confirm")
  801. button:SetDisabled(true)
  802. button:CenterHorizontal()
  803. button.DoClick = function()
  804. if (string.len(targetply:GetValue()) == 0) then
  805. Derma_Message("Select a player.", "Warning", "OK")
  806. return
  807. end
  808.  
  809. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  810. "Yes", function()
  811. for k, v in pairs(player:GetAll()) do
  812. if string.find( v:Nick(), targetply:GetValue()) != nil then
  813. local leadersteamid = v:SteamID()
  814. LocalPlayer():ConCommand("removegang1name " .. leadersteamid)
  815. LocalPlayer():ChatPrint("Player Removed Successfully")
  816. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  817. frame:Close()
  818.  
  819.  
  820. end
  821. end
  822.  
  823. end,
  824. "No", function() end)
  825. end
  826. end
  827. end
  828.  
  829. if LocalPlayer():IsSuperAdmin( ) || playerisgang2leader == true || playerisgang2coowner == true then
  830.  
  831. local removegang2 = MoneyPanel:Add("DButton")
  832. removegang2:SetText("Remove Gang(2) Player")
  833. removegang2.DoClick = function()
  834. local victims = player.GetAll()
  835. for k, v in pairs (victims) do
  836. if (v == LocalPlayer()) then
  837. table.remove(victims, k)
  838. end
  839. end
  840.  
  841. local frame = vgui.Create("DFrame")
  842. frame:SetSize(500, 150)
  843. frame:Center()
  844. frame:MakePopup()
  845. frame:SetTitle("Remove Player")
  846.  
  847. local label = vgui.Create("DLabel", frame)
  848. label:SetFont("Trebuchet24")
  849. label:SetText("Player to Remove:")
  850. label:SizeToContents()
  851. label:AlignTop(35)
  852. label:CenterHorizontal()
  853.  
  854.  
  855. local button = vgui.Create("DButton", frame)
  856.  
  857. local targetply = vgui.Create("DComboBox", frame)
  858. targetply:MoveBelow(label, 20)
  859. targetply:SetWide(200)
  860. targetply:CenterHorizontal()
  861. targetply.OnSelect = function(me, index, value)
  862. button:SetDisabled(false)
  863. me.CurrentSelected = victims[index]
  864. end
  865.  
  866. for k, v in pairs (victims) do
  867. targetply:AddChoice(v:Nick())
  868. end
  869.  
  870.  
  871.  
  872. button:SetSize(128, 48)
  873. button:AlignBottom(10)
  874. button:SetText("Confirm")
  875. button:SetDisabled(true)
  876. button:CenterHorizontal()
  877. button.DoClick = function()
  878. if (string.len(targetply:GetValue()) == 0) then
  879. Derma_Message("Select a player.", "Warning", "OK")
  880. return
  881. end
  882.  
  883. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  884. "Yes", function()
  885. for k, v in pairs(player:GetAll()) do
  886. if string.find( v:Nick(), targetply:GetValue()) != nil then
  887. local leadersteamid = v:SteamID()
  888. LocalPlayer():ConCommand("removegang2name " .. leadersteamid)
  889. LocalPlayer():ChatPrint("Player Removed Successfully")
  890. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  891. frame:Close()
  892.  
  893.  
  894. end
  895. end
  896.  
  897. end,
  898. "No", function() end)
  899. end
  900. end
  901. end
  902.  
  903. if LocalPlayer():IsSuperAdmin( ) || playerisgang3leader == true || playerisgang3coowner == true then
  904.  
  905. local removegang3 = MoneyPanel:Add("DButton")
  906. removegang3:SetText("Remove Gang(3) Player")
  907. removegang3.DoClick = function()
  908. local victims = player.GetAll()
  909. for k, v in pairs (victims) do
  910. if (v == LocalPlayer()) then
  911. table.remove(victims, k)
  912. end
  913. end
  914.  
  915. local frame = vgui.Create("DFrame")
  916. frame:SetSize(500, 150)
  917. frame:Center()
  918. frame:MakePopup()
  919. frame:SetTitle("Remove Player")
  920.  
  921. local label = vgui.Create("DLabel", frame)
  922. label:SetFont("Trebuchet24")
  923. label:SetText("Player to Remove:")
  924. label:SizeToContents()
  925. label:AlignTop(35)
  926. label:CenterHorizontal()
  927.  
  928.  
  929. local button = vgui.Create("DButton", frame)
  930.  
  931. local targetply = vgui.Create("DComboBox", frame)
  932. targetply:MoveBelow(label, 20)
  933. targetply:SetWide(200)
  934. targetply:CenterHorizontal()
  935. targetply.OnSelect = function(me, index, value)
  936. button:SetDisabled(false)
  937. me.CurrentSelected = victims[index]
  938. end
  939.  
  940. for k, v in pairs (victims) do
  941. targetply:AddChoice(v:Nick())
  942. end
  943.  
  944.  
  945.  
  946. button:SetSize(128, 48)
  947. button:AlignBottom(10)
  948. button:SetText("Confirm")
  949. button:SetDisabled(true)
  950. button:CenterHorizontal()
  951. button.DoClick = function()
  952. if (string.len(targetply:GetValue()) == 0) then
  953. Derma_Message("Select a player.", "Warning", "OK")
  954. return
  955. end
  956.  
  957. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  958. "Yes", function()
  959. for k, v in pairs(player:GetAll()) do
  960. if string.find( v:Nick(), targetply:GetValue()) != nil then
  961. local leadersteamid = v:SteamID()
  962. LocalPlayer():ConCommand("removegang3name " .. leadersteamid)
  963. LocalPlayer():ChatPrint("Player Removed Successfully")
  964. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  965. frame:Close()
  966.  
  967.  
  968. end
  969. end
  970.  
  971. end,
  972. "No", function() end)
  973. end
  974. end
  975. end
  976.  
  977. if LocalPlayer():IsSuperAdmin( ) || playerisgang4leader == true || playerisgang4coowner == true then
  978.  
  979.  
  980. local removegang4 = MoneyPanel:Add("DButton")
  981. removegang4:SetText("Remove Gang(4) Player")
  982. removegang4.DoClick = function()
  983. local victims = player.GetAll()
  984. for k, v in pairs (victims) do
  985. if (v == LocalPlayer()) then
  986. table.remove(victims, k)
  987. end
  988. end
  989.  
  990. local frame = vgui.Create("DFrame")
  991. frame:SetSize(500, 150)
  992. frame:Center()
  993. frame:MakePopup()
  994. frame:SetTitle("Remove Player")
  995.  
  996. local label = vgui.Create("DLabel", frame)
  997. label:SetFont("Trebuchet24")
  998. label:SetText("Player to Remove:")
  999. label:SizeToContents()
  1000. label:AlignTop(35)
  1001. label:CenterHorizontal()
  1002.  
  1003.  
  1004. local button = vgui.Create("DButton", frame)
  1005.  
  1006. local targetply = vgui.Create("DComboBox", frame)
  1007. targetply:MoveBelow(label, 20)
  1008. targetply:SetWide(200)
  1009. targetply:CenterHorizontal()
  1010. targetply.OnSelect = function(me, index, value)
  1011. button:SetDisabled(false)
  1012. me.CurrentSelected = victims[index]
  1013. end
  1014.  
  1015. for k, v in pairs (victims) do
  1016. targetply:AddChoice(v:Nick())
  1017. end
  1018.  
  1019.  
  1020.  
  1021. button:SetSize(128, 48)
  1022. button:AlignBottom(10)
  1023. button:SetText("Confirm")
  1024. button:SetDisabled(true)
  1025. button:CenterHorizontal()
  1026. button.DoClick = function()
  1027. if (string.len(targetply:GetValue()) == 0) then
  1028. Derma_Message("Select a player.", "Warning", "OK")
  1029. return
  1030. end
  1031.  
  1032. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  1033. "Yes", function()
  1034. for k, v in pairs(player:GetAll()) do
  1035. if string.find( v:Nick(), targetply:GetValue()) != nil then
  1036. local leadersteamid = v:SteamID()
  1037. LocalPlayer():ConCommand("removegang4name " .. leadersteamid)
  1038. LocalPlayer():ChatPrint("Player Removed Successfully")
  1039. LocalPlayer():ChatPrint("Player Steam ID: " .. leadersteamid)
  1040. frame:Close()
  1041.  
  1042.  
  1043. end
  1044. end
  1045.  
  1046. end,
  1047. "No", function() end)
  1048. end
  1049. end
  1050. end
  1051.  
  1052.  
  1053.  
  1054.  
  1055.  
  1056.  
  1057.  
  1058.  
  1059. if LocalPlayer():IsSuperAdmin() then
  1060.  
  1061.  
  1062. local setgang1leader = MoneyPanel:Add("DButton")
  1063. setgang1leader:SetText("Set Gang 1 Leader")
  1064. setgang1leader.DoClick = function()
  1065. local victims = player.GetAll()
  1066. for k, v in pairs (victims) do
  1067. if (v == LocalPlayer()) then
  1068. table.remove(victims, k)
  1069. end
  1070. end
  1071.  
  1072. local frame = vgui.Create("DFrame")
  1073. frame:SetSize(500, 150)
  1074. frame:Center()
  1075. frame:MakePopup()
  1076. frame:SetTitle("Add Player")
  1077.  
  1078. local label = vgui.Create("DLabel", frame)
  1079. label:SetFont("Trebuchet24")
  1080. label:SetText("Player to Add:")
  1081. label:SizeToContents()
  1082. label:AlignTop(35)
  1083. label:CenterHorizontal()
  1084.  
  1085.  
  1086. local button = vgui.Create("DButton", frame)
  1087.  
  1088. local targetply = vgui.Create("DComboBox", frame)
  1089. targetply:MoveBelow(label, 20)
  1090. targetply:SetWide(200)
  1091. targetply:CenterHorizontal()
  1092. targetply.OnSelect = function(me, index, value)
  1093. button:SetDisabled(false)
  1094. me.CurrentSelected = victims[index]
  1095. end
  1096.  
  1097. for k, v in pairs (victims) do
  1098. targetply:AddChoice(v:Nick())
  1099. end
  1100.  
  1101.  
  1102.  
  1103. button:SetSize(128, 48)
  1104. button:AlignBottom(10)
  1105. button:SetText("Confirm")
  1106. button:SetDisabled(true)
  1107. button:CenterHorizontal()
  1108. button.DoClick = function()
  1109. if (string.len(targetply:GetValue()) == 0) then
  1110. Derma_Message("Select a player.", "Warning", "OK")
  1111. return
  1112. end
  1113.  
  1114. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  1115. "Yes", function()
  1116. for k, v in pairs(player:GetAll()) do
  1117. if string.find( v:Nick(), targetply:GetValue()) != nil then
  1118. local leadersteamid = v:SteamID()
  1119. LocalPlayer():ConCommand("setgang1leader " .. leadersteamid)
  1120. LocalPlayer():ChatPrint("Leader Set Successfully")
  1121. LocalPlayer():ChatPrint("Leader Steam ID: " .. leadersteamid)
  1122. frame:Close()
  1123.  
  1124.  
  1125. end
  1126. end
  1127.  
  1128. end,
  1129. "No", function() end)
  1130. end
  1131. end
  1132.  
  1133. local setgang2leader = MoneyPanel:Add("DButton")
  1134. setgang2leader:SetText("Set Gang 2 Leader")
  1135. setgang2leader.DoClick = function()
  1136. local victims = player.GetAll()
  1137. for k, v in pairs (victims) do
  1138. if (v == LocalPlayer()) then
  1139. table.remove(victims, k)
  1140. end
  1141. end
  1142.  
  1143. local frame = vgui.Create("DFrame")
  1144. frame:SetSize(500, 150)
  1145. frame:Center()
  1146. frame:MakePopup()
  1147. frame:SetTitle("Add Player")
  1148.  
  1149. local label = vgui.Create("DLabel", frame)
  1150. label:SetFont("Trebuchet24")
  1151. label:SetText("Player to Add:")
  1152. label:SizeToContents()
  1153. label:AlignTop(35)
  1154. label:CenterHorizontal()
  1155.  
  1156.  
  1157. local button = vgui.Create("DButton", frame)
  1158.  
  1159. local targetply = vgui.Create("DComboBox", frame)
  1160. targetply:MoveBelow(label, 20)
  1161. targetply:SetWide(200)
  1162. targetply:CenterHorizontal()
  1163. targetply.OnSelect = function(me, index, value)
  1164. button:SetDisabled(false)
  1165. me.CurrentSelected = victims[index]
  1166. end
  1167.  
  1168. for k, v in pairs (victims) do
  1169. targetply:AddChoice(v:Nick())
  1170. end
  1171.  
  1172.  
  1173.  
  1174. button:SetSize(128, 48)
  1175. button:AlignBottom(10)
  1176. button:SetText("Confirm")
  1177. button:SetDisabled(true)
  1178. button:CenterHorizontal()
  1179. button.DoClick = function()
  1180. if (string.len(targetply:GetValue()) == 0) then
  1181. Derma_Message("Select a player.", "Warning", "OK")
  1182. return
  1183. end
  1184.  
  1185. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  1186. "Yes", function()
  1187. for k, v in pairs(player:GetAll()) do
  1188. if string.find( v:Nick(), targetply:GetValue()) != nil then
  1189. local leadersteamid = v:SteamID()
  1190. LocalPlayer():ConCommand("setgang2leader " .. leadersteamid)
  1191. LocalPlayer():ChatPrint("Leader Set Successfully")
  1192. LocalPlayer():ChatPrint("Leader Steam ID: " .. leadersteamid)
  1193. frame:Close()
  1194.  
  1195.  
  1196. end
  1197. end
  1198.  
  1199. end,
  1200. "No", function() end)
  1201. end
  1202. end
  1203.  
  1204. local setgang3leader = MoneyPanel:Add("DButton")
  1205. setgang3leader:SetText("Set Gang 3 Leader")
  1206. setgang3leader.DoClick = function()
  1207. local victims = player.GetAll()
  1208. for k, v in pairs (victims) do
  1209. if (v == LocalPlayer()) then
  1210. table.remove(victims, k)
  1211. end
  1212. end
  1213.  
  1214. local frame = vgui.Create("DFrame")
  1215. frame:SetSize(500, 150)
  1216. frame:Center()
  1217. frame:MakePopup()
  1218. frame:SetTitle("Add Player")
  1219.  
  1220. local label = vgui.Create("DLabel", frame)
  1221. label:SetFont("Trebuchet24")
  1222. label:SetText("Player to Add:")
  1223. label:SizeToContents()
  1224. label:AlignTop(35)
  1225. label:CenterHorizontal()
  1226.  
  1227.  
  1228. local button = vgui.Create("DButton", frame)
  1229.  
  1230. local targetply = vgui.Create("DComboBox", frame)
  1231. targetply:MoveBelow(label, 20)
  1232. targetply:SetWide(200)
  1233. targetply:CenterHorizontal()
  1234. targetply.OnSelect = function(me, index, value)
  1235. button:SetDisabled(false)
  1236. me.CurrentSelected = victims[index]
  1237. end
  1238.  
  1239. for k, v in pairs (victims) do
  1240. targetply:AddChoice(v:Nick())
  1241. end
  1242.  
  1243.  
  1244.  
  1245. button:SetSize(128, 48)
  1246. button:AlignBottom(10)
  1247. button:SetText("Confirm")
  1248. button:SetDisabled(true)
  1249. button:CenterHorizontal()
  1250. button.DoClick = function()
  1251. if (string.len(targetply:GetValue()) == 0) then
  1252. Derma_Message("Select a player.", "Warning", "OK")
  1253. return
  1254. end
  1255.  
  1256. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  1257. "Yes", function()
  1258. for k, v in pairs(player:GetAll()) do
  1259. if string.find( v:Nick(), targetply:GetValue()) != nil then
  1260. local leadersteamid = v:SteamID()
  1261. LocalPlayer():ConCommand("setgang3leader " .. leadersteamid)
  1262. LocalPlayer():ChatPrint("Leader Set Successfully")
  1263. LocalPlayer():ChatPrint("Leader Steam ID: " .. leadersteamid)
  1264. frame:Close()
  1265.  
  1266.  
  1267. end
  1268. end
  1269.  
  1270. end,
  1271. "No", function() end)
  1272. end
  1273. end
  1274.  
  1275. local setgang4leader = MoneyPanel:Add("DButton")
  1276. setgang4leader:SetText("Set Gang 4 Leader")
  1277. setgang4leader.DoClick = function()
  1278. local victims = player.GetAll()
  1279. for k, v in pairs (victims) do
  1280. if (v == LocalPlayer()) then
  1281. table.remove(victims, k)
  1282. end
  1283. end
  1284.  
  1285. local frame = vgui.Create("DFrame")
  1286. frame:SetSize(500, 150)
  1287. frame:Center()
  1288. frame:MakePopup()
  1289. frame:SetTitle("Add Player")
  1290.  
  1291. local label = vgui.Create("DLabel", frame)
  1292. label:SetFont("Trebuchet24")
  1293. label:SetText("Player to Add:")
  1294. label:SizeToContents()
  1295. label:AlignTop(35)
  1296. label:CenterHorizontal()
  1297.  
  1298.  
  1299. local button = vgui.Create("DButton", frame)
  1300.  
  1301. local targetply = vgui.Create("DComboBox", frame)
  1302. targetply:MoveBelow(label, 20)
  1303. targetply:SetWide(200)
  1304. targetply:CenterHorizontal()
  1305. targetply.OnSelect = function(me, index, value)
  1306. button:SetDisabled(false)
  1307. me.CurrentSelected = victims[index]
  1308. end
  1309.  
  1310. for k, v in pairs (victims) do
  1311. targetply:AddChoice(v:Nick())
  1312. end
  1313.  
  1314.  
  1315.  
  1316. button:SetSize(128, 48)
  1317. button:AlignBottom(10)
  1318. button:SetText("Confirm")
  1319. button:SetDisabled(true)
  1320. button:CenterHorizontal()
  1321. button.DoClick = function()
  1322. if (string.len(targetply:GetValue()) == 0) then
  1323. Derma_Message("Select a player.", "Warning", "OK")
  1324. return
  1325. end
  1326.  
  1327. Derma_Query("Are you sure you want to add " .. targetply:GetValue(), "Warning",
  1328. "Yes", function()
  1329. for k, v in pairs(player:GetAll()) do
  1330. if string.find( v:Nick(), targetply:GetValue()) != nil then
  1331. local leadersteamid = v:SteamID()
  1332. LocalPlayer():ConCommand("setgang4leader " .. leadersteamid)
  1333. LocalPlayer():ChatPrint("Leader Set Successfully")
  1334. LocalPlayer():ChatPrint("Leader Steam ID: " .. leadersteamid)
  1335. frame:Close()
  1336.  
  1337.  
  1338. end
  1339. end
  1340.  
  1341. end,
  1342. "No", function() end)
  1343. end
  1344. end
  1345. end
  1346.  
  1347.  
  1348. if playerisgang1leader == true || playerisgang1coowner == true || LocalPlayer():IsSuperAdmin() || playerisgang1member == true then
  1349. local setgang1display = MoneyPanel:Add("DButton")
  1350. setgang1display:SetText("Display Gang(1) members")
  1351. setgang1display.DoClick = function()
  1352.  
  1353. Derma_Message( playergang1memberlistval, "Player list", "OK" )
  1354. end
  1355.  
  1356. end
  1357.  
  1358. if playerisgang2leader == true || playerisgang2coowner == true || LocalPlayer():IsSuperAdmin() || playerisgang2member == true then
  1359. local setgang2display = MoneyPanel:Add("DButton")
  1360. setgang2display:SetText("Display Gang(2) members")
  1361. setgang2display.DoClick = function()
  1362. Derma_Message( playergang2memberlistval, "Player list", "OK" )
  1363.  
  1364. end
  1365.  
  1366. end
  1367.  
  1368. if playerisgang3leader == true || playerisgang3coowner == true || LocalPlayer():IsSuperAdmin() || playerisgang3member == true then
  1369. local setgang3display = MoneyPanel:Add("DButton")
  1370. setgang3display:SetText("Display Gang(3) members")
  1371. setgang3display.DoClick = function()
  1372. Derma_Message( playergang3memberlistval, "Player list", "OK" )
  1373.  
  1374. end
  1375.  
  1376. end
  1377.  
  1378. if playerisgang4leader == true || playerisgang4coowner == true || LocalPlayer():IsSuperAdmin() || playerisgang4member == true then
  1379. local setgang4display = MoneyPanel:Add("DButton")
  1380. setgang4display:SetText("Display Gang(4) members")
  1381. setgang4display.DoClick = function()
  1382. Derma_Message( playergang4memberlistval, "Player list", "OK" )
  1383.  
  1384. end
  1385.  
  1386. end
  1387.  
  1388. MoneyCat:SetContents(MoneyPanel)
  1389. MoneyCat:SetSkin("DarkRP")
  1390.  
  1391.  
  1392.  
  1393.  
  1394.  
  1395.  
  1396.  
  1397.  
  1398.  
  1399.  
  1400.  
  1401.  
  1402.  
  1403. FirstTabPanel:AddItem(MoneyCat)
  1404.  
  1405. FirstTabPanel:AddItem(Commands)
  1406.  
  1407.  
  1408. end
  1409.  
  1410. FirstTabPanel:Update()
  1411. return FirstTabPanel
  1412.  
  1413. end
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!