//Serv GUI - DeathStar with help from Erik 
//Creative Commons (BY-ND) http://creativecommons.org/licenses/by-nd/3.0/
bind Q [showgui Serv]
po = "" //Server Port
mc = "" //Max Clients
bl = "" //Bot Limit
ap = "" //Admin Pass
cp = "" //Server Pass
ms = "" //MotD
regmaster = 1

newgui Serv [
guistayopen [
guititle "Listen Server Control"
guibutton "Start Listen Server" [startlistenserver $regmaster]
guibutton "Stop Listen Server" [stoplistenserver]
guibar
 guicheckbox "Register with Masterserver" regmaster
guibar
  guilist [
   guilist [ 
      guitext "Server Name "
      guitext "Server Port "
      guitext "Max Clients "
      guitext "Bot Limit "
      guitext "Admin Pass "
      guitext "Connect Pass "
   ]
   guilist [
      guifield nm 12 [serverdesc $nm]
      guifield po 5 [serverport $po]
      guifield mc 2 [maxclients $mc]
      guifield bl 3 [serverbotlimit $bl]
      guifield ap 12 [adminpass $ap]
      guifield cp 12 [serverpass $cp]
   ]
 ]
]
guibar
guibutton "Set MotD" [showgui setmotd]
guibutton "Help" [showgui servhelp]
]

newgui setmotd [
guifield ms 50 [servermotd $ms]
guitext "(message sent to clients when they connect)"
]

newgui servhelp [
   guitextbox (concatword (result "^f0Errors & Fixes: ^n^n") (
   result "^f2^"Master server registration failed: failed pinging server^"^n") (
    result "^f7Make sure your ports are forwarded, forward the port^n") (
   result "you defined and the one right after that with TCP/UDP.^n") (
   result "Example: forward 28785 and 28786^n^n") (
   result "^f2^"Master server registration failed: invalid port^"^n") (
   result "^f7Try typing /serverport 28785 or whatever port you want.^n^n") (
   result "Your error not on the list?^n") (
   result "Email me: ^f6x90265@gmail.com")) 47
]