Advertisement
Guest User

Untitled

a guest
Jun 28th, 2017
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.62 KB | None | 0 0
  1.  
  2. -- Buy Food Derma
  3.  
  4. local NPCFood = ents.Create("npc_citizen")
  5.     NPCFood:SetPos(Vector(-2103, -1553, -195))
  6.     NPCFood:SetModel("models/mossman.mdl")
  7.     NPCFood:Spawn()
  8.     NPCFood:Activate()
  9.  
  10.  
  11. local CanBuy
  12. local CanIcon
  13. local lblCan
  14. local MelonIcon
  15. local MelonBuy
  16. local lblMelon
  17. local DFrame1
  18.  
  19. CanBuy = vgui.Create('DButton')
  20. CanBuy:SetSize(70, 25)
  21. CanBuy:SetPos(256, 157)
  22. CanBuy:SetText('Buy for $20')
  23. CanBuy.DoClick = function() end
  24. CanBuy:SetParent(DFrame1)
  25.  
  26. CanIcon = vgui.Create('SpawnIcon')
  27. CanIcon:SetPos(179, 138)
  28. CanIcon:SetModel('models/props_junk/PopCan01a.mdl')
  29. CanIcon:SetParent(DFrame1)
  30.  
  31. lblCan = vgui.Create('DLabel')
  32. lblCan:SetPos(140, 163)
  33. lblCan:SetText('Can')
  34. lblCan:SizeToContents()
  35. lblCan:SetParent(DFrame1)
  36.  
  37. MelonBuy = vgui.Create('DButton')
  38. MelonBuy:SetSize(70, 25)
  39. MelonBuy:SetPos(256, 83)
  40. MelonBuy:SetText('Buy for $20')
  41. MelonBuy.DoClick = function() end
  42. MelonBuy:SetParent(DFrame1)
  43.  
  44. lblMelon = vgui.Create('DLabel')
  45. lblMelon:SetPos(140, 86)
  46. lblMelon:SetText('Melon')
  47. lblMelon:SizeToContents()
  48. lblMelon:SetParent(DFrame1)
  49.  
  50. DFrame1 = vgui.Create('DFrame')
  51. DFrame1:SetSize(231, 183)
  52. DFrame1:SetPos(120, 34)
  53. DFrame1:SetTitle('Buy Food')
  54. DFrame1:SetSizable(true)
  55. DFrame1:SetDeleteOnClose(false)
  56. DFrame1:MakePopup()
  57.  
  58. MelonIcon = vgui.Create('SpawnIcon')
  59. MelonIcon:SetParent(DFrame1)
  60. MelonIcon:SetPos(60, 29)
  61. MelonIcon:SetModel('models/props_junk/watermelon01.mdl')
  62.  
  63. hook.Add("PlayerUse","GetNPCUser", function(ply,ent)
  64.  
  65. }
  66.  
  67.  
  68.         if ply:CanAfford(Price) then
  69.             ply:AddMoney(-1*Price)
  70.             ply:EmitSound("Buttons.snd17")
  71.         else
  72.             Notify( ply, 1, 3, "Cannot Afford This" )
  73.         end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement