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

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 5) "(" (cl 3) $a1 (cl 5) ")" (if (&& (> $num 1) $a2) [result (concatword (cl 5) " [" (cl 4) "fixed" (cl 5) "]")]))
    ]
  ]
]

newmenu "Private Servers"
menuitem "Menu Settings..." [showmenu "Private Servers Settings"]
menuitem [] -1
menuitemvar [concatword (cl 1) ".45 " (loc "GER" )] [showmenu ".45"]
menuitemvar [concatword (cl 9) "BoB " (loc "GER/USA")] [showmenu "BoB"]
menuitemvar [concatword (cl 2) "Gibbed.me " (loc "USA" )] [showmenu "Gibbed"]
menuitemvar [concatword (cl 0) "#M|A# " (loc "USA" )] [showmenu "M|A"]
menuitemvar [concatword (cl 1) "Waka Waka " (loc "USA" )] [showmenu "Waka Waka"]
menuitemvar [concatword (cl 9) "XRD.me " (loc "USA" )] [showmenu "XRD.me"]

newmenu ".45"
menuitemvar [concatword (cl 1) ".45 Match 1 " (cl 5) "1111"] [menuconnect 45-clan.de 1111 match]
menuitemvar [concatword (cl 1) ".45 Match 2 " (cl 5) "2222"] [menuconnect 45-clan.de 2222 match]

newmenu "BoB"
menuitemvar [concatword (c 2) "Germany: "] -1
menuitemvar [concatword (cl 1) "bob-ac.net " (cl 5) "1999"] [menuconnect bob-ac.net 1999]
menuitemvar [concatword (cl 1) "bob-ac.net " (cl 5) "2999"] [menuconnect bob-ac.net 2999]
menuitemvar [concatword (cl 1) "bob-ac.net " (cl 5) "3999"] [menuconnect bob-ac.net 3999]
menuitem [] -1
menuitemvar [concatword (c 2) "United States: "] -1
menuitemvar [concatword (cl 1) "theo-rj.tk " (cl 5) "5999"] [menuconnect theo-rj.tk 5999 match]
menuitemvar [concatword (cl 1) "theo-rj.tk " (cl 5) "6999"] [menuconnect theo-rj.tk 6999 match]
menuitemvar [concatword (cl 1) "theo-rj.tk " (cl 5) "7999"] [menuconnect theo-rj.tk 7999 match]

newmenu "Gibbed"
menuitemvar [concatword (cl 1) "Pugsley " (cl 5) "4455"] [menuconnect gibbed.me 4455 match]
menuitemvar [concatword (cl 1) "Wednesday " (cl 5) "5566"] [menuconnect gibbed.me 5566 match]

newmenu "M|A"
menuitemvar [concatword (cl 1) "#M|A# Feorge Glowers " (cl 5) "2222"] [menuconnect ac.mafia-asesina.org 2222 match]
menuitemvar [concatword (cl 1) "#M|A# Chilote " (cl 5) "3333"] [menuconnect ac.mafia-asesina.org 3333 match]

newmenu "Waka Waka" 
menuitemvar [concatword (cl 1) "ac.pwnz.org " (cl 5) "0"] [menuconnect ac.pwnz.org 0 match]
menuitemvar [concatword (cl 1) "ac.pwnz.org " (cl 5) "9999"] [menuconnect ac.pwnz.org 9999 match]

newmenu "XRD.me"
menuitemvar [concatword (cl 1) "Mutsketeer "] [menuconnect xrd.me 4000 match]
menuitemvar [concatword (cl 1) "FireBird "][menuconnect xrd.me 5000 match]

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