LUModder

Untitled

Jan 16th, 2016
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.23 KB | None | 0 0
  1. function YGMail()
  2. mailframe = vgui.Create("DFrame")
  3. mailframe:SetSize(200,100)
  4. mailframe:SetPos(math.Rand(0,ScrW()-200),math.Rand(0,ScrH()-100))
  5. mailframe:SetTitle("YOU GOT MAIL!")
  6. mailframe:SetDraggable(false)
  7. mailframe:MakePopup()
  8.  
  9. local text1 = vgui.Create("DLabel",mailframe)
  10. text1:SetPos(40,40)
  11. text1:SetText("YOU GOT MAIL")
  12. text1:SizeToContents()
  13.  
  14. local icon1 = vgui.Create("DImage",mailframe)
  15. icon1:SetPos(20,40)
  16. icon1:SetImage("icon16/email.png")
  17. icon1:SetSize(16,16)
  18.  
  19. local button1 = vgui.Create("DButton",mailframe)
  20. button1:SetPos(80,80)
  21. button1:SetSize(50,16)
  22. button1:SetText("OK")
  23. button1.DoClick = function()
  24. mailframe:Close()
  25. LocalPlayer():EmitSound("chatsounds/autoadd/misc/aol mail.ogg")
  26. YGMail()
  27. YGMail()
  28. end
  29. end
  30.  
  31. chat.AddText(Color(0,255,0),"3")
  32. LocalPlayer():EmitSound("ui/beep07.wav")
  33. timer.Simple(1,function()
  34. chat.AddText(Color(255,255,0),"2")
  35. LocalPlayer():EmitSound("ui/beep07.wav")
  36. timer.Simple(1,function()
  37. chat.AddText(Color(255,0,0),"1")
  38. LocalPlayer():EmitSound("ui/beep07.wav")
  39. timer.Simple(1,function()
  40. chat.AddText(Color(255,255,255),"YOU GOT MAIL")
  41. LocalPlayer():EmitSound("chatsounds/autoadd/misc/aol mail.ogg")
  42. YGMail()
  43. end)
  44. end)
  45. end)
Add Comment
Please, Sign In to add comment