// This file gets executed every time you start AssaultCube.

// This is where you should put any scripts you may have created for AC.

// This file gets executed every time you start AssaultCube.

// This is where you should put any scripts you may have created for AC.

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

//UPDATE 05/01/2014

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 3) $a1 (cl 4) ")" (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 0) ".45 " (loc "GER" )] [showmenu ".45"]
menuitemvar [concatword (cl 1) "B} " (loc "East US")] [showmenu "B}"]
menuitemvar [concatword (cl 9) "Gibbed.me " (loc "West US" )] [showmenu "Gibbed"]
menuitemvar [concatword (cl 2) "Rising Cubers " (loc "North EU" )] [showmenu "Rising Cubers"]
menuitemvar [concatword (cl 0) "w00p " (loc "West EU" )] [showmenu "w00p"]
menuitemvar [concatword (cl 1) "Sveark " (loc "West Russia" )] [showmenu "Sveark"]
menuitemvar [concatword (cl 9) "Waka Waka " (loc "EAST US" )] [showmenu "Waka Waka"]
menuitemvar [concatword (cl 2) "XRD.me " (loc "East CAN" )] [showmenu "XRD.me"]
menuitemvar [concatword (cl 8) "Gema " (loc "World" )] [showmenu "Gema"]
menuitemvar [concatword (cl 7) "AoX " (loc "World" )] [showmenu "AoX"]

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]
menuitemvar [concatword (cl 1) ".45 Match 2 " (cl 5) "2222"] [menuconnect 45-clan.de 3333 match]
menuitem [] -1
menuitem "Back" [closemenu ".45"]

newmenu "B}"
menuitemvar [concatword (cl 1) "Arriaga " (cl 5) "8888"] [menuconnect arriaga.pbclan.tk 8888]
menuitemvar [concatword (cl 1) "Arriaga " (cl 5) "9999"] [menuconnect arriaga.pbclan.tk 8888]
menuitem [] -1
menuitem "Back" [closemenu "B}"]


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]
menuitem [] -1
menuitem "Back" [closemenu "Gibbed"]

newmenu "Rising Cubers"
menuitemvar [concatword (c 0) "SWEDEN: "] -1
menuitemvar [concatword (cl 1) ".rC Match 1 " (cl 5) "1111 "] [menuconnect se-rc.tk 1111]
menuitemvar [concatword (cl 1) ".rC Match 2 " (cl 5) "2222 "] [menuconnect se-rc.tk 2222]
menuitemvar [concatword (cl 1) ".rC Match 3 " (cl 5) "3333 "] [menuconnect se-rc.tk 3333]
menuitem [] -1
menuitemvar [concatword (c 0) "US: "] -1
menuitemvar [concatword (cl 1) ".rC Match 1 " (cl 5) "1111 "] [menuconnect us-rc.tk 1111]
menuitemvar [concatword (cl 1) ".rC Match 2 " (cl 5) "2222 "] [menuconnect us-rc.tk 2222]
menuitemvar [concatword (cl 1) ".rC Match 3 " (cl 5) "3333 "] [menuconnect us-rc.tk 3333]
menuitem [] -1
menuitem "Back" [closemenu "Rising Cubers"]

newmenu "w00p"
menuitemvar [concatword (cl 1) "Aura " (cl 5) "1999"] [menuconnect aura.woop.us 1999 match]
menuitemvar [concatword (cl 1) "Aura " (cl 5) "2999"] [menuconnect aura.woop.us 2999 match]
menuitemvar [concatword (cl 1) "Aura " (cl 5) "3999"] [menuconnect aura.woop.us 3999 match]
menuitemvar [concatword (cl 1) "Aura " (cl 5) "4999"] [menuconnect aura.woop.us 4999 match]
menuitem [] -1
menuitem "Back" [closemenu "w00p"]

newmenu "Sveark"
menuitemvar [concatword (cl 1) "Sveark.tk " (cl 5) "1"] [menuconnect sveark.tk 1]
menuitemvar [concatword (cl 1) "Sveark.tk " (cl 5) "11"] [menuconnect sveark.tk 11]
menuitemvar [concatword (cl 1) "Sveark.tk " (cl 5) "111"] [menuconnect sveark.tk 111]
menuitemvar [concatword (cl 1) "Sveark.tk " (cl 5) "1111"] [menuconnect sveark.tk 1111]
menuitem [] -1
menuitem "Back" [closemenu "Sveark"]

newmenu "Waka Waka"
menuitemvar [concatword (cl 9) " Waka Waka " (cl 4) "28763 "] [menuconnect waka.waka.ac 28763 match]
menuitem [] -1
menuitem "Back" [closemenu "Waka Waka"]

newmenu "XRD.me"
menuitemvar [concatword (cl 1) "Hyperblast " (cl 7) "(Zombie) "] [menuconnect xrd.me 3000]
menuitemvar [concatword (cl 1) "Mutsketeer "] [menuconnect xrd.me 4000 match]
menuitemvar [concatword (cl 1) "FireBird "][menuconnect xrd.me 5000 match]
menuitem [] -1
menuitem "Back" [closemenu "XRD.me"]

newmenu "AoX"
menuitemvar [concatword (c 3) "Sweden: "] -1
menuitemvar [concatword (cl 7) "Io:" (cl 4) " se.aox-ac.net " (cl 7) "5555 "] [menuconnect se.aox-ac.net 5555]
menuitemvar [concatword (c 3) "France: "] -1
menuitemvar [concatword (cl 7) "NGC 6027:" (cl 4) " fr.aox-ac.net " (cl 7) "5555 "] [menuconnect fr.aox-ac.net 5555]
menuitemvar [concatword (c 3) "East US: "] -1
menuitemvar [concatword (cl 7) "Sirius:" (cl 4) " bu.aox-ac.net " (cl 7) "5555 "] [menuconnect bu.aox-ac.net 5555]
menuitemvar [concatword (cl 7) "Ganymede:" (cl 4) " ny.aox-ac.net " (cl 7) "5555 "] [menuconnect ny.aox-ac.net 5555]
menuitemvar [concatword (c 3) "England: "] -1
menuitemvar [concatword (cl 7) "Neptune:" (cl 4) " uk.aox-ac.net " (cl 7) "5555 "] [menuconnect uk.aox-ac.net 5555]
menuitemvar [concatword (c 3) "Germany: "] -1
menuitemvar [concatword (cl 7) "Rhea:" (cl 4) " de.aox-ac.net " (cl 7) "5555 "] [menuconnect de.aox-ac.net 5555]
menuitemvar [concatword (c 3) "Southeast US: "] -1
menuitemvar [concatword (cl 7) "Mercury:" (cl 4) " fl.aox-ac.net " (cl 7) "5555 "] [menuconnect fl.aox-ac.net 5555]
menuitemvar [concatword (c 3) "West US: "] -1
menuitemvar [concatword (cl 7) "Auriga:" (cl 4) " wa.aox-ac.net " (cl 7) "5555 "] [menuconnect wa.aox-ac.net 5555]
menuitemvar [concatword (cl 7) "Phobos:" (cl 4) " la.aox-ac.net " (cl 7) "5555 "] [menuconnect la.aox-ac.net 5555]
menuitemvar [concatword (c 3) "Midwest US: "] -1
menuitemvar [concatword (cl 7) "R136a:" (cl 4) " ch.aox-ac.net " (cl 7) "5555 "] [menuconnect ch.aox-ac.net 5555]
menuitemvar [concatword (c 3) "Brazil: "] -1
menuitemvar [concatword (cl 7) "M105:" (cl 4) " sp.aox-ac.net " (cl 7) "5555 "] [menuconnect sp.aox-ac.net 5555]
menuitemvar [concatword (cl 7) "M105 A:" (cl 4) " br.aox-ac.net " (cl 7) "5555 "] [menuconnect br.aox-ac.net 5555]
menuitemvar [concatword (c 3) "South Africa: "] -1
menuitemvar [concatword (cl 7) "M105 B:" (cl 4) " za.aox-ac.net " (cl 7) "5555 "] [menuconnect za.aox-ac.net 5555]
menuitem [] -1
menuitem "Back" [closemenu "AoX"]

newmenu "Gema"
menuitemvar [concatword (c 3) "Sweden: "] -1
menuitemvar [concatword (cl 7) "G3MA 3TH3R:" (cl 4) " se.aox-ac.net " (cl 7) "2222 "] [menuconnect se.aox-ac.net 2222]
menuitemvar [concatword (c 3) "England: "] -1
menuitemvar [concatword (cl 7) "Gema Universe:" (cl 4) " uk.aox-ac.net " (cl 7) "2222 "] [menuconnect uk.aox-ac.net 2222]
menuitemvar [concatword (c 3) "Southeast US: "] -1
menuitemvar [concatword (cl 7) "3t3rn@l G3m@:" (cl 4) " fl.aox-ac.net " (cl 7) "2222 "] [menuconnect fl.aox-ac.net 2222]
menuitemvar [concatword (c 3) "West US: "] -1
menuitemvar [concatword (cl 7) "Gema Nova:" (cl 4) " la.aox-ac.net " (cl 7) "2222 "] [menuconnect la.aox-ac.net 2222]
menuitemvar [concatword (cl 7) "Gema Olympus:" (cl 4) " wa.aox-ac.net " (cl 7) "2222 "] [menuconnect wa.aox-ac.net 2222]
menuitemvar [concatword (c 3) "Midwest US: "] -1
menuitemvar [concatword (cl 7) "Windy Gema:" (cl 4) " ch.aox-ac.net " (cl 7) "2222 "] [menuconnect ch.aox-ac.net 2222]
menuitem [] -1
menuitem "Back" [closemenu "Gema"]

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