Compare text

Find the difference between two text files

Real-time diff

Unified diff

Collapse lines

Highlight change

Syntax highlighting

Tools

Untitled diff

Created 9 years agoDiff never expires

5 removals

93 lines

16 additions

104 lines

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 = [if $menuLocations [result (concatword (cl 5) "(" (cl 3) $arg1 (cl 5) ")")]]

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) "hitfixed" (cl 5) "]")]))

]

newmenu "Private Servers"

menuitem "Menu Settings..." [showmenu "Private Servers Settings"]

menuitem [] -1

menuitemvar [concatword (cl 9) ".aK " (loc "US")] [showmenu ".aK"]

menuitemvar [concatword (cl 2) "AusDis " (loc "AUS/US")] [showmenu "AusDis"]

menuitemvar [concatword (cl 0) "FD " (loc "GER")] [showmenu "FD"]

menuitemvar [concatword (cl 1) "Haunted Matches " (loc "US")] [showmenu "Haunted Matches"]

menuitemvar [concatword (cl 2) "#M|A# " (loc "US")] [showmenu "M|A"]

menuitemvar [concatword (cl 0) "Mutsketeer " (loc "US")] [menuconnect xrd.me 4000 match]

menuitemvar [concatword (cl 1) "Noobicus " (loc "US")] [showmenu "Noobicus"]

menuitemvar [concatword (cl 1) "Noobicus " (loc "US" 1)] [showmenu "Noobicus"]

menuitemvar [concatword (cl 2) "THS " (loc "UK")] [menuconnect ths.cubers.net 1313]

menuitemvar [concatword (cl 9) "TyD " (loc "NL")] [menuconnect tearyoudown.com 21000 match]

menuitemvar [concatword (cl 0) "Waka Waka " (loc "US")][menuconnect match.wakawaka.ac]

menuitemvar [concatword (cl 1) "w00p " (loc "FR/UK")][showmenu "w00p"]

menuitemvar [concatword (cl 1) "w00p " (loc "FR/UK" 1)][showmenu "w00p"]

menuitem [] -1

menuitemvar [concatword (cl 2) "Zombies " (loc "US")] [modconnect XRD.me 3000]

newmenu ".aK"

menuitemvar [concatword (cl 1) "kings-ac.tk " (cl 5) "5555"] [menuconnect kings-ac.tk 5555 match]

menuitemvar [concatword (cl 1) "kings-ac.tk " (cl 5) "6666"] [menuconnect kings-ac.tk 6666 match]

menuitemvar [concatword (cl 1) "kings-ac.tk " (cl 5) "7777"] [menuconnect kings-ac.tk 7777 match]

newmenu "AusDis"

menuitemvar [concatword (c 2) "Australia: "] -1

menuitemvar [concatword (cl 1) "ausdis " (cl 5) "ac-radio"] [menuconnect ausdis.info 9001]

menuitemvar [concatword (cl 1) "ausdis " (cl 5) "foxy"] [menuconnect ausdis.info 8999]

menuitem [] -1

menuitemvar [concatword (c 2) "United States: "] -1

menuitemvar [concatword (cl 1) "ausdis " (cl 5) "corll"] [menuconnect us.ausdis.info 9001]

newmenu "FD"

menuitemvar [concatword (cl 1) "ac.fd.tc "] [menuconnect ac.fd.tc match]

menuitemvar [concatword (cl 1) "ac.fd.tc " (cl 5) "22222"] [menuconnect ac.fd.tc 22222 match]

newmenu "Haunted Matches"

menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "6999"] [menuconnect thh.no-ip.info 6999 match]

menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "7999"] [menuconnect thh.no-ip.info 7999 match]

menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "8999"] [menuconnect thh.no-ip.info 8999 match]

menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "9999"] [menuconnect thh.no-ip.info 9999 match]

newmenu "M|A"

menuitemvar [concatword (cl 1) "#M|A# Tetitas " (cl 5) "2222"] [menuconnect ac.mafia-asesina.org 2222 match]

menuitemvar [concatword (cl 1) "#M|A# Leoi de Huanuco " (cl 5) "3333"] [menuconnect ac.mafia-asesina.org 3333 match]

newmenu "Noobicus"

menuitemvar [concatword (cl 1) "noobicus.org " (cl 5) "0"] [menuconnect noobicus.org 0 match]

menuitemvar [concatword (cl 1) "noobicus.org " (cl 5) "9999"][menuconnect noobicus.org 9999 match]

newmenu "w00p"

menuitemvar [concatword (c 2) "France: "] -1

menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "5999"] [menuconnect ac-akimbo.net 5999 match]

menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "6999"] [menuconnect ac-akimbo.net 6999 match]

menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "7999"] [menuconnect ac-akimbo.net 7999 match]

menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "8999"] [menuconnect ac-akimbo.net 8999 match]

menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "9999"] [menuconnect ac-akimbo.net 9999 match]

menuitem [] -1

menuitemvar [concatword (c 2) "United Kingdom: "] -1

menuitemvar [concatword (cl 1) "hlin " (cl 5) "5999"] [menuconnect hlin.woop.us 5999 match]

menuitemvar [concatword (cl 1) "hlin " (cl 5) "6999"] [menuconnect hlin.woop.us 6999 match]

menuitemvar [concatword (cl 1) "hlin " (cl 5) "7999"] [menuconnect hlin.woop.us 7999 match]

menuitemvar [concatword (cl 1) "hlin " (cl 5) "8999"] [menuconnect hlin.woop.us 8999 match]

menuitemvar [concatword (cl 1) "hlin " (cl 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 (thanks to Bukz for condensing and improving the script)

Saved diffs

Original text

Open file

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 = [if $menuLocations [result (concatword (cl 5) "(" (cl 3) $arg1 (cl 5) ")")]]

newmenu "Private Servers"
menuitem "Menu Settings..." [showmenu "Private Servers Settings"]
menuitem [] -1
menuitemvar [concatword (cl 9) ".aK " (loc "US")] [showmenu ".aK"]
menuitemvar [concatword (cl 2) "AusDis " (loc "AUS/US")] [showmenu "AusDis"]
menuitemvar [concatword (cl 0) "FD " (loc "GER")] [showmenu "FD"]
menuitemvar [concatword (cl 1) "Haunted Matches " (loc "US")] [showmenu "Haunted Matches"]
menuitemvar [concatword (cl 2) "#M|A# " (loc "US")] [showmenu "M|A"]
menuitemvar [concatword (cl 0) "Mutsketeer " (loc "US")] [menuconnect xrd.me 4000 match]
menuitemvar [concatword (cl 1) "Noobicus " (loc "US")] [showmenu "Noobicus"]
menuitemvar [concatword (cl 2) "THS " (loc "UK")] [menuconnect ths.cubers.net 1313]
menuitemvar [concatword (cl 9) "TyD " (loc "NL")] [menuconnect tearyoudown.com 21000 match]
menuitemvar [concatword (cl 0) "Waka Waka " (loc "US")][menuconnect match.wakawaka.ac]
menuitemvar [concatword (cl 1) "w00p " (loc "FR/UK")][showmenu "w00p"]
menuitem [] -1
menuitemvar [concatword (cl 2) "Zombies " (loc "US")] [modconnect XRD.me 3000]

newmenu ".aK"
menuitemvar [concatword (cl 1) "kings-ac.tk " (cl 5) "5555"] [menuconnect kings-ac.tk 5555 match]
menuitemvar [concatword (cl 1) "kings-ac.tk " (cl 5) "6666"] [menuconnect kings-ac.tk 6666 match]
menuitemvar [concatword (cl 1) "kings-ac.tk " (cl 5) "7777"] [menuconnect kings-ac.tk 7777 match]


newmenu "AusDis"
menuitemvar [concatword (c 2) "Australia: "] -1
menuitemvar [concatword (cl 1) "ausdis " (cl 5) "ac-radio"] [menuconnect ausdis.info 9001]
menuitemvar [concatword (cl 1) "ausdis " (cl 5) "foxy"] [menuconnect ausdis.info 8999]
menuitem [] -1
menuitemvar [concatword (c 2) "United States: "] -1
menuitemvar [concatword (cl 1) "ausdis " (cl 5) "corll"] [menuconnect us.ausdis.info 9001]

newmenu "FD"
menuitemvar [concatword (cl 1) "ac.fd.tc "] [menuconnect ac.fd.tc match]
menuitemvar [concatword (cl 1) "ac.fd.tc " (cl 5) "22222"] [menuconnect ac.fd.tc 22222 match]

newmenu "Haunted Matches"
menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "6999"] [menuconnect thh.no-ip.info 6999 match]
menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "7999"] [menuconnect thh.no-ip.info 7999 match]
menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "8999"] [menuconnect thh.no-ip.info 8999 match]
menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "9999"] [menuconnect thh.no-ip.info 9999 match]

newmenu "M|A"
menuitemvar [concatword (cl 1) "#M|A# Tetitas " (cl 5) "2222"] [menuconnect ac.mafia-asesina.org 2222 match]
menuitemvar [concatword (cl 1) "#M|A# Leoi de Huanuco " (cl 5) "3333"] [menuconnect ac.mafia-asesina.org 3333 match]

newmenu "Noobicus"
menuitemvar [concatword (cl 1) "noobicus.org " (cl 5) "0"] [menuconnect noobicus.org 0 match]
menuitemvar [concatword (cl 1) "noobicus.org " (cl 5) "9999"][menuconnect noobicus.org 9999 match]

newmenu "w00p"
menuitemvar [concatword (c 2) "France: "] -1
menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "5999"] [menuconnect ac-akimbo.net 5999 match]
menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "6999"] [menuconnect ac-akimbo.net 6999 match]
menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "7999"] [menuconnect ac-akimbo.net 7999 match]
menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "8999"] [menuconnect ac-akimbo.net 8999 match]
menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "9999"] [menuconnect ac-akimbo.net 9999 match]
menuitem [] -1
menuitemvar [concatword (c 2) "United Kingdom: "] -1
menuitemvar [concatword (cl 1) "hlin " (cl 5) "5999"] [menuconnect hlin.woop.us 5999 match]
menuitemvar [concatword (cl 1) "hlin " (cl 5) "6999"] [menuconnect hlin.woop.us 6999 match]
menuitemvar [concatword (cl 1) "hlin " (cl 5) "7999"] [menuconnect hlin.woop.us 7999 match]
menuitemvar [concatword (cl 1) "hlin " (cl 5) "8999"] [menuconnect hlin.woop.us 8999 match]
menuitemvar [concatword (cl 1) "hlin " (cl 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 (thanks to Bukz for condensing and improving the script)

Changed text

Open file

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) "hitfixed" (cl 5) "]")]))
    ]
  ]
]

newmenu "Private Servers"
menuitem "Menu Settings..." [showmenu "Private Servers Settings"]
menuitem [] -1
menuitemvar [concatword (cl 9) ".aK " (loc "US")] [showmenu ".aK"]
menuitemvar [concatword (cl 2) "AusDis " (loc "AUS/US")] [showmenu "AusDis"]
menuitemvar [concatword (cl 0) "FD " (loc "GER")] [showmenu "FD"]
menuitemvar [concatword (cl 1) "Haunted Matches " (loc "US")] [showmenu "Haunted Matches"]
menuitemvar [concatword (cl 2) "#M|A# " (loc "US")] [showmenu "M|A"]
menuitemvar [concatword (cl 0) "Mutsketeer " (loc "US")] [menuconnect xrd.me 4000 match]
menuitemvar [concatword (cl 1) "Noobicus " (loc "US" 1)] [showmenu "Noobicus"]
menuitemvar [concatword (cl 2) "THS " (loc "UK")] [menuconnect ths.cubers.net 1313]
menuitemvar [concatword (cl 9) "TyD " (loc "NL")] [menuconnect tearyoudown.com 21000 match]
menuitemvar [concatword (cl 0) "Waka Waka " (loc "US")][menuconnect match.wakawaka.ac]
menuitemvar [concatword (cl 1) "w00p " (loc "FR/UK" 1)][showmenu "w00p"]
menuitem [] -1
menuitemvar [concatword (cl 2) "Zombies " (loc "US")] [modconnect XRD.me 3000]

newmenu ".aK"
menuitemvar [concatword (cl 1) "kings-ac.tk " (cl 5) "5555"] [menuconnect kings-ac.tk 5555 match]
menuitemvar [concatword (cl 1) "kings-ac.tk " (cl 5) "6666"] [menuconnect kings-ac.tk 6666 match]
menuitemvar [concatword (cl 1) "kings-ac.tk " (cl 5) "7777"] [menuconnect kings-ac.tk 7777 match]


newmenu "AusDis"
menuitemvar [concatword (c 2) "Australia: "] -1
menuitemvar [concatword (cl 1) "ausdis " (cl 5) "ac-radio"] [menuconnect ausdis.info 9001]
menuitemvar [concatword (cl 1) "ausdis " (cl 5) "foxy"] [menuconnect ausdis.info 8999]
menuitem [] -1
menuitemvar [concatword (c 2) "United States: "] -1
menuitemvar [concatword (cl 1) "ausdis " (cl 5) "corll"] [menuconnect us.ausdis.info 9001]

newmenu "FD"
menuitemvar [concatword (cl 1) "ac.fd.tc "] [menuconnect ac.fd.tc match]
menuitemvar [concatword (cl 1) "ac.fd.tc " (cl 5) "22222"] [menuconnect ac.fd.tc 22222 match]

newmenu "Haunted Matches"
menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "6999"] [menuconnect thh.no-ip.info 6999 match]
menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "7999"] [menuconnect thh.no-ip.info 7999 match]
menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "8999"] [menuconnect thh.no-ip.info 8999 match]
menuitemvar [concatword (cl 1) "thh.no-ip.info " (cl 5) "9999"] [menuconnect thh.no-ip.info 9999 match]

newmenu "M|A"
menuitemvar [concatword (cl 1) "#M|A# Tetitas " (cl 5) "2222"] [menuconnect ac.mafia-asesina.org 2222 match]
menuitemvar [concatword (cl 1) "#M|A# Leoi de Huanuco " (cl 5) "3333"] [menuconnect ac.mafia-asesina.org 3333 match]

newmenu "Noobicus"
menuitemvar [concatword (cl 1) "noobicus.org " (cl 5) "0"] [menuconnect noobicus.org 0 match]
menuitemvar [concatword (cl 1) "noobicus.org " (cl 5) "9999"][menuconnect noobicus.org 9999 match]

newmenu "w00p"
menuitemvar [concatword (c 2) "France: "] -1
menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "5999"] [menuconnect ac-akimbo.net 5999 match]
menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "6999"] [menuconnect ac-akimbo.net 6999 match]
menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "7999"] [menuconnect ac-akimbo.net 7999 match]
menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "8999"] [menuconnect ac-akimbo.net 8999 match]
menuitemvar [concatword (cl 1) "ac-akimbo.net " (cl 5) "9999"] [menuconnect ac-akimbo.net 9999 match]
menuitem [] -1
menuitemvar [concatword (c 2) "United Kingdom: "] -1
menuitemvar [concatword (cl 1) "hlin " (cl 5) "5999"] [menuconnect hlin.woop.us 5999 match]
menuitemvar [concatword (cl 1) "hlin " (cl 5) "6999"] [menuconnect hlin.woop.us 6999 match]
menuitemvar [concatword (cl 1) "hlin " (cl 5) "7999"] [menuconnect hlin.woop.us 7999 match]
menuitemvar [concatword (cl 1) "hlin " (cl 5) "8999"] [menuconnect hlin.woop.us 8999 match]
menuitemvar [concatword (cl 1) "hlin " (cl 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 (thanks to Bukz for condensing and improving the script)