bind "P" [showmenu "Private Servers"]

if (! (checkalias spamConnect)) [spamConnect = 0] // Disable SpamConnect by default.

newmenu "Private Servers Settings"
menuitemcheckbox "Use SpamConnect?" "$spamConnect" [spamConnect = $arg1]
menuitem [] -1
menuitem "Back" [closemenu "Private Servers Settings"]

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

newmenu "Private Servers"
menuitem "Menu Settings..." [showmenu "Private Servers Settings"]
menuitem [] -1
menuitemvar [concatword (c 1) "B} " (c 5) "(" (c 3) "US" (c 5) ")"] [showmenu "B}"]
menuitemvar [concatword (c 2) "dyH " (c 5) "(" (c 3) "US" (c 5) ")"] [showmenu "dyH"]
menuitemvar [concatword (c 0) "FD " (c 5) "(" (c 3) "GER" (c 5) ")"] [showmenu "FD"]
menuitemvar [concatword (c 1) "LC " (c 5) "(" (c 3) "FR" (c 5) ")"] [showmenu "LC"]
menuitemvar [concatword (c 0) "Lolol " (c 5) "(" (c 3) "US" (c 5) ")"] [showmenu "Lolol"]
menuitemvar [concatword (c 2) "MyS " (c 5) "(" (c 3) "GER/UK" (c 5) ")"] [showmenu "MyS"]
menuitemvar [concatword (c 0) "oNe " (c 5) "(" (c 3) "US" (c 5) ")"] [showmenu "oNe"]
menuitemvar [concatword (c 9) "TyD " (c 5) "(" (c 3) "NL" (c 5) ")"] [showmenu "TyD"]
menuitemvar [concatword (c 1) "w00p " (c 5) "(" (c 3) "UK" (c 5) ")"][showmenu "w00p"]

newmenu "B}"
menuitemvar [concatword (c 2) "Kansas: "] -1
menuitemvar [concatword (c 3)"ferric.tk " (c 5) "1492"] [menuconnect ferric.tk 1492]
menuitemvar [concatword (c 3)"ferric.tk " (c 5) "1927"] [menuconnect ferric.tk 1927]

newmenu "dyH"
menuitemvar [concatword (c 2) "Arizona: "] -1
menuitemvar [concatword (c 3) "az.dyhclan.org " (c 5) "3333"] [menuconnect az.dyhclan.org 3333 match]
menuitem [] -1
menuitemvar [concatword (c 2) "California: "] -1
menuitemvar [concatword (c 3) "la.dyhclan.org " (c 5) "4444"] [menuconnect la.dyhclan.org 4444 match]
menuitemvar [concatword (c 3) "la.dyhclan.org " (c 5) "5555"] [menuconnect la.dyhclan.org 5555 match]

newmenu "FD"
menuitemvar [concatword (c 2) "GER: "] -1
menuitemvar [concatword (c 3) "ac.fd.tc "] [menuconnect ac.fd.tc match]
menuitemvar [concatword (c 3) "ac.fd.tc " (c 5) "22222"] [menuconnect ac.fd.tc 22222 match]
menuitemvar [concatword (c 3) "ac.fd.tc " (c 5) "33333"] [menuconnect ac.fd.tc 33333 match]

newmenu "LC"
menuitemvar [concatword (c 2) "FR: "] -1
menuitemvar [concatword (c 3) "lcmatch.us.to"] [menuconnect lcmatch.us.to 28769 match]

newmenu "Lolol"
menuitemvar [concatword (c 2) "Seattle: "] -1
menuitemvar [concatword (c 3) "lolol.tk " (c 5) "7777"] [menuconnect lolol.tk 7777 match]
menuitemvar [concatword (c 3) "lolol.tk " (c 5) "8888"] [menuconnect lolol.tk 8888 match]

newmenu "MyS"
menuitemvar [concatword (c 2) "UK: "] -1
menuitemvar [concatword (c 3) "uk.myys.tk " (c 5) "7999"] [menuconnect uk.myys.tk 7999 match]
menuitemvar [concatword (c 3) "uk.myys.tk " (c 5) "8999"] [menuconnect uk.myys.tk 8999 match]
menuitemvar [concatword (c 3) "uk.myys.tk " (c 5) "9999"] [menuconnect uk.myys.tk 9999 match]
menuitem [] -1
menuitemvar [concatword (c 2) "GER: "] -1
menuitemvar [concatword (c 3) "ger.myys.tk " (c 5) "6666"] [menuconnect ger.myys.tk 6666 match]
menuitemvar [concatword (c 3) "ger.myys.tk " (c 5) "7777"] [menuconnect ger.myys.tk 7777 match]

newmenu "oNe"
menuitemvar [concatword (c 2) "Las Vegas: "] -1
menuitemvar [concatword (c 3) "o-n-e.tk " (c 5) "7999"] [menuconnect o-n-e.tk 7999 match]
menuitemvar [concatword (c 3) "o-n-e.tk " (c 5) "8999"] [menuconnect o-n-e.tk 8999 match]
menuitemvar [concatword (c 3) "o-n-e.tk " (c 5) "9999"] [menuconnect o-n-e.tk 9999 match]

newmenu "TyD"
menuitemvar [concatword (c 2) "NL: "] -1
menuitemvar [concatword (c 3) "tearyoudown.com"] [menuconnect tearyoudown.com 21000 match]


newmenu "w00p"
menuitemvar [concatword (c 3) "hlin " (c 5) "6999"] [menuconnect hlin.woop.us 6999 match]
menuitemvar [concatword (c 3) "hlin " (c 5) "7999"] [menuconnect hlin.woop.us 7999 match]
menuitemvar [concatword (c 3) "hlin " (c 5) "8999"] [menuconnect hlin.woop.us 8999 match]
menuitemvar [concatword (c 3) "hlin " (c 5) "9999"] [menuconnect hlin.woop.us 9999 match]


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