[Menu] Private Servers

[+f0r3v3r+]

For anyone who is still using this, here is an update from what I could put together currently.
If there are servers that need added please post the info here.



Get the update below or from here.

View Script

[SELECT ALL] Code:

// Private Servers Menu by #M|A#Wolf (thanks to Bukz for condensing and improving the script)

//UPDATE 2016-09-25

bind "P" [showmenu "Private Servers"]

if (! (checkalias spamConnect)) [spamConnect = 0]     // Disable SpamConnect by default.
if (! (checkalias menuColors)) [menuColors = 1]       // Enable menu colors by default.
if (! (checkalias menuLocations)) [menuLocations = 1] // Enable menu locations by default.

newmenu "Private Servers Settings"
menuitemcheckbox "Use SpamConnect" "$spamConnect" [spamConnect = $arg1]
menuitemcheckbox "Use menu colors" "$menuColors" [menuColors = $arg1]
menuitemcheckbox "Show server locations" "$menuLocations" [menuLocations = $arg1]
menuitem [] -1
menuitem "Back" [closemenu "Private Servers Settings"]

menuconnect = [
  connectstring = (concat $arg1 $arg2 $arg3)
  if $spamConnect [
    loop mcl 2 [ sleep (* $mcl 500) [say /connect $connectstring] ]
    sleep 1200 [connect (at $connectstring 0) (at $connectstring 1) (at $connectstring 2)]
  ] [connect $arg1 $arg2 $arg3] ]

cl = [if $menuColors [result (c $arg1)]]

loc = [
  num = $numargs
  if $num [
    a1 = $arg1
    if (> $num 1) [
      a2 = $arg2
    ] [ a2 = [] ]
    if $menuLocations [
      result (concatword (cl 4) "(" (cl 5) $a1 (cl 4) ")" (if (&& (> $num 1) $a2) [result (concatword (cl 4) " [" (cl 5) "fixed" (cl 4) "]")]))
    ]
  ]
]

newmenu "Private Servers"
menuitem [] -1

menuitemvar [concatword (cl 2) "ActionFPS " (loc "International" )] [showmenu "ActionFPS"]
menuitemvar [concatword (cl 8) "TheEliteSociety.org " (loc "Southeast U.S." )] [showmenu "TheEliteSociety.org"]
menuitemvar [concatword (cl 1) "F" (cl 4) "ra" (cl 0) "g" (cl 4) "-" (cl 1) "C" (cl 4) "entra" (cl 0) "l "  (loc "International" )] [showmenu "Frag-Central"]
menuitemvar [concatword (cl 9) "Gibbed.me " (loc "Western U.S." )] [showmenu "Gibbed.me"]
menuitemvar [concatword (cl 3) "O.S.S." (cl 7)" HQ " (loc "Southern U.S." )] [showmenu "O.S.S. HQ"]
menuitemvar [concatword (cl 1) "XRD.me " (loc "Eastern Canada" )] [showmenu "XRD.me"]
menuitemvar [concatword "  "]
menuitemvar [concatword (cl 7) "Menu Settings"] [showmenu "Private Servers Settings"]

newmenu "ActionFPS"
menuitemvar [concatword (c 6) "Europe" (cl 4) ": "] -1
menuitemvar [concatword (cl 1) "Aura " (cl 5) "1 " (cl 2) "aura.woop.ac " (cl 5) "1999"] [menuconnect aura.woop.ac 1999]
menuitemvar [concatword (cl 1) "Aura " (cl 5)  "2 " (cl 2) "aura.woop.ac " (cl 5) "2999"] [menuconnect aura.woop.ac 2999]
menuitemvar [concatword (cl 1) "Aura " (cl 5) "3 " (cl 2) "aura.woop.ac " (cl 5) "3999"] [menuconnect aura.woop.ac 3999]
menuitemvar [concatword (cl 1) "Aura " (cl 5) "4 " (cl 2) "aura.woop.ac " (cl 5) "4999"] [menuconnect aura.woop.ac 4999]
menuitemvar [concatword (c 6) "Western U.S." (cl 4) ": "] -1
menuitemvar [concatword (cl 1) "Califa " (cl 2) "califa.actionfps.com " (cl 5) "1999"] [menuconnect califa.actionfps.com 1999]
menuitem [] -1
menuitem "Back" [closemenu "ActionFPS"]

newmenu "TheEliteSociety.org"
menuitemvar [concatword (c 6) "Southeast U.S." (cl 4) ": "] -1
menuitemvar [concatword (cl 8) "TheEliteSociety.org " (cl 4) "#" (cl 5) "1 " (cl 4) "5555"] [menuconnect theelitesociety.org 5555 match]
menuitemvar [concatword (cl 8) "TheEliteSociety.org " (cl 4) "#" (cl 5) "2 " (cl 4) "6666"] [menuconnect theelitesociety.org 6666 match]
menuitemvar [concatword (cl 8) "TheEliteSociety.org " (cl 4) "#" (cl 5) "3 " (cl 4) "7777"] [menuconnect theelitesociety.org 7777 match]
menuitemvar [concatword (cl 8) "TheEliteSociety.org " (cl 4) "#" (cl 5) "4 " (cl 4) "8888"] [menuconnect theelitesociety.org 8888 match]
menuitem [] -1
menuitem "Back" [closemenu "TheEliteSociety.org"]

newmenu "Frag-Central"
menuitemvar [concatword (c 6) "Africa" (cl 4) ": "] -1
menuitemvar [concatword (cl 1) "C" (cl 4) "admiu" (cl 0) "m" (cl 4) ": " (cl 5) "za.frag.gq " (cl 1) "5555 "] [menuconnect za.frag.gq 5555 match]
menuitemvar [concatword (c 6) "Eurasia" (cl 4) ": "] -1
menuitemvar [concatword (cl 1) "C" (cl 4) "oppe" (cl 0) "r" (cl 4) ": " (cl 5) "fr.frag.gq " (cl 1) "5555 "] [menuconnect fr.frag.gq 5555 match]
menuitemvar [concatword (cl 1) "I" (cl 4) "ro" (cl 0) "n" (cl 4) ": " (cl 5) "nl.frag.gq " (cl 1) "5555 "] [menuconnect nl.frag.gq 5555 match]
menuitemvar [concatword (cl 1) "T" (cl 4) "ungste" (cl 0) "n" (cl 4) ": " (cl 5) "se.frag.gq " (cl 1) "5555 "] [menuconnect se.frag.gq 5555 match]
menuitemvar [concatword (cl 1) "A" (cl 4) "luminu" (cl 0) "m" (cl 4) ": " (cl 5) "in.frag.gq " (cl 1) "5555 "] [menuconnect in.frag.gq 5555 match]
menuitemvar [concatword (c 6) "North America" (cl 4) ": "] -1
menuitemvar [concatword (cl 1) "T" (cl 4) "itaniu" (cl 0) "m" (cl 4) ": " (cl 5) "ca.frag.gq " (cl 1) "5555 "] [menuconnect ca.frag.gq 5555 match]
menuitemvar [concatword (cl 1) "G" (cl 4) "ol" (cl 0) "d" (cl 4) ": " (cl 5) "ga.frag.gq " (cl 1) "5555 "] [menuconnect ga.frag.gq 5555 match]
menuitemvar [concatword (cl 1) "S" (cl 4) "ilve" (cl 0) "r" (cl 4) ": " (cl 5) "la.frag.gq " (cl 1) "5555 "] [menuconnect la.frag.gq 5555 match]
menuitemvar [concatword (cl 1) "P" (cl 4) "latinu" (cl 0) "m" (cl 4) ": " (cl 5) "wa.frag.gq " (cl 1) "5555 "] [menuconnect wa.frag.gq 5555 match]
menuitemvar [concatword (c 6) "South America" (cl 4) ": "] -1
menuitemvar [concatword (cl 0) "Br" (cl 2) "a" (cl 1) "z" (cl 2) "i" (cl 0) "l" (cl 2) " Match" (cl 0) " Server " (cl 4 ) "#" (cl 2) "1" (cl 4) ": " (cl 5) "br.frag.gq " (cl 0) "1111 "] [menuconnect br.frag.gq 1111 match]
menuitemvar [concatword (cl 0) "Br" (cl 2) "a" (cl 1) "z" (cl 2) "i" (cl 0) "l" (cl 2) " Match" (cl 0) " Server " (cl 4 ) "#" (cl 2) "2" (cl 4) ": " (cl 5) "sp.frag.gq " (cl 0) "1111 "] [menuconnect sp.frag.gq 1111 match]
menuitemvar [concatword (c 6) "Oceania" (cl 4) ": "] -1
menuitemvar [concatword (cl 1) "C" (cl 4) "obal" (cl 0) "t" (cl 4) ": " (cl 5) "au.frag.gq " (cl 1) "5555 "] [menuconnect au.frag.gq 5555]
menuitemvar [concatword (cl 1) "N" (cl 4) "icke" (cl 0) "l" (cl 4) ": " (cl 5) "nz.frag.gq " (cl 1) "5555 "] [menuconnect nz.frag.gq 5555]
menuitem [] -1
menuitem "Back" [closemenu "Frag-Central"]

newmenu "Gibbed.me"
menuitemvar [concatword (c 6) "Western U.S." (cl 4) ": "] -1
menuitemvar [concatword (cl 8) "Pugsley " (cl 5) "gibbed.me " (cl 4) "4455"] [menuconnect gibbed.me 4455 match]
menuitemvar [concatword (cl 8) "Wednesday " (cl 5) "gibbed.me " (cl 4) "5566"] [menuconnect gibbed.me 5566 match]
menuitem [] -1
menuitem "Back" [closemenu "Gibbed.me"]

newmenu "O.S.S. HQ"
menuitemvar [concatword (c 6) "Southern U.S." (cl 4) ": "] -1
menuitemvar [concatword (cl 3) "O.S.S. " (cl 7) "Match " (cl 3) "Server " (cl 5) "tx.oss-hq.org " (cl 4) "22222"] [menuconnect tx.oss-hq.org 22222 match]
menuitem [] -1
menuitem "Back" [closemenu "O.S.S. HQ"]

newmenu "XRD.me"
menuitemvar [concatword (c 6) "Eastern Canada" (cl 4) ": "] -1
menuitemvar [concatword (cl 1) "Hyperblast " (cl 7) "(Zombie Mod) " (cl 5) "xrd.me " (cl 1) "3000"] [menuconnect xrd.me 3000]
menuitemvar [concatword (cl 1) "Mutsketeer " (cl 5) "xrd.me " (cl 1) "4000"] [menuconnect xrd.me 4000 match]
menuitemvar [concatword (cl 3) "Fire" (cl 1) "Bird " (cl 5) "xrd.me " (cl 1) "5000"][menuconnect xrd.me 5000 match]
menuitemvar [concatword (cl 2) "OutSide " (cl 5) "xrd.me " (cl 1) "6000"][menuconnect xrd.me 6000 match]
menuitem [] -1
menuitem "Back" [closemenu "XRD.me"]

// 0-green, 1-blue, 2-yellow, 3-red, 4-gray, 5-white, 6-dark brown, 7-dark red, 8-magenta, 9-orange

[Download]