Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 7th, 2012  |  syntax: Lua  |  size: 1.72 KB  |  hits: 16  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. messages = {}
  2.  
  3. addEventHandler ("onClientResourceStart", resourceRoot,
  4.         function ()
  5.                 local resX, resY = guiGetScreenSize ()
  6.                 msgWindow = (resX/2, resY/2, 300, 400, "UGC Random Messages", false)
  7.                 guiSetVisible (msgWindow, false)
  8.                 msgText = guiCreatLabel ( 15, 75,241, 300, "Add a message here so it will be showed every 15 minutes. /n Note: If there's more than one, the message will be random", false, msgWindow)
  9.                 guiSetFont (msgText, "default-bold-small")
  10.                 msgGrid = guiCreateGridList (15, 125, 350, 350, false, msgWindow)
  11.                 msgColumn = guiGridListAddColumn ( msgGrid, "Messages", 0.75)
  12.                 msgEdit = guiCreateEdit (15, 500, 25, 350, "Add your message here", false, msgWindow)
  13.                 guiEditSetMaxLength (msgEdit, 120)
  14.                 msgAddBtn = guiCreateButton (375, 425, 50, 50, "Add", false, msgWindow)
  15.                 msgRemBtn = guiCreateButton (375, 370, 50, 50, "Remove", false, msgWindow)
  16.         addEventHandler ("onClientGUIClick", msgAddBtn,
  17.                 function add ()
  18.                         msgEditText = guiGetText (msgEdit)
  19.                         table.insert ( messages, { msg = msgEditText, number = (0 + 1) * (add) } )
  20.                 end
  21.                 for k, v in ipairs (messages) do
  22.                         msgRow = guiGridListAddRow (msgGrid)
  23.                         guiGridListSetItemText ( msgGrid, msgRow, msgColumn, (v.number) .. ".  " .. (v.msg), false, false)
  24.                 end
  25.         end)
  26.         addEventHandler ("onClientGUIClick", msgRemBtn,
  27.                 function
  28.                         msgSel = guiGridListGetSelectedItem ( msgGrid )
  29.                         guiGridListRemoveRow (msgGrid, msgSel )
  30.                         table.remove (messages, msg, number)
  31.                 end)
  32. )
  33. function showGUI2 ()
  34.     if ( guiGetVisible( msgWindow ) )then
  35.         guiSetVisible( msgWindow, false )
  36.         showCursor( false )
  37.         else then
  38.         guiSetVisible ( msgWindow, true )
  39.         showCursor ( true )
  40.     end
  41. end
  42. addCommandHandler ("msg", showGUI2)
create a new version of this paste RAW Paste Data