Guest User

Untitled

a guest
May 10th, 2010
71
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. local WebSite = "http://forum.x-hosters.com";
  3.  
  4. local function OpenTheWeb()
  5.  
  6.     local Form = vgui.Create("DFrame");
  7.     Form:SetSize(ScrW() / 1.1,ScrH() / 1.1);
  8.     Form:Center();
  9.     Form:SetTitle("Our Website");
  10.     Form:SetBackgroundBlur( true );
  11.     Form:MakePopup();
  12.  
  13.     local Butt = vgui.Create("DButton",Form);
  14.     Butt:SetSize(50,23);
  15.     Butt:SetPos(Form:GetWide() - 5 - Butt:GetWide(),Form:GetTall() - 5 - Butt:GetTall());
  16.     Butt:SetText("Close");
  17.  
  18.     function Butt:DoClick()
  19.  
  20.         Form:Close();
  21.  
  22.     end
  23.  
  24.     local Web = vgui.Create("HTML",Form);
  25.     Web:SetPos(5,23 + 5);
  26.     Web:SetSize(Form:GetWide() - 10,Form:GetTall() - 23 - 5 - Butt:GetTall() - 5 - 5);
  27.     Web:OpenURL(WebSite);
  28.  
  29. end
  30. usermessage.Hook("OpenTheWeb",OpenTheWeb);
RAW Paste Data