API tools faq
paste
Advertisement
Guest User

private servers script by quico

a guest
Dec 25th, 2014
160
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.25 KB | None | 0 0
raw download clone embed print report
  1. bind "P" [showmenu "Private Servers"]
  2.  
  3. if (! (checkalias spamConnect)) [spamConnect = 0] // Disable SpamConnect by default.
  4. if (! (checkalias menuColors)) [menuColors = 1] // Enable menu colors by default.
  5. if (! (checkalias menuLocations)) [menuLocations = 1] // Enable menu locations by default.
  6.  
  7. newmenu "Private Servers Settings"
  8. menuitemcheckbox "Use SpamConnect" "$spamConnect" [spamConnect = $arg1]
  9. menuitemcheckbox "Use menu colors" "$menuColors" [menuColors = $arg1]
  10. menuitemcheckbox "Show server locations" "$menuLocations" [menuLocations = $arg1]
  11. menuitem [] -1
  12. menuitem "Back" [closemenu "Private Servers Settings"]
  13.  
  14. menuconnect = [
  15. connectstring = (concat $arg1 $arg2 $arg3)
  16. if $spamConnect [
  17. loop mcl 2 [ sleep (* $mcl 500) [say /connect $connectstring] ]
  18. sleep 1200 [connect (at $connectstring 0) (at $connectstring 1) (at $connectstring 2)]
  19. ] [connect $arg1 $arg2 $arg3] ]
  20.  
  21. cl = [if $menuColors [result (c $arg1)]]
  22.  
  23. loc = [
  24. num = $numargs
  25. if $num [
  26. a1 = $arg1
  27. if (> $num 1) [
  28. a2 = $arg2
  29. ] [ a2 = [] ]
  30. if $menuLocations [
  31. result (concatword (cl 5) "(" (cl 3) $a1 (cl 5) ")" (if (&& (> $num 1) $a2) [result (concatword (cl 5) " [" (cl 4) "fixed" (cl 5) "]")]))
  32. ]
  33. ]
  34. ]
  35.  
  36. newmenu "Private Servers"
  37. menuitem "Menu Settings..." [showmenu "Private Servers Settings"]
  38. menuitem [] -1
  39. menuitemvar [concatword (cl 1) ".45 " (loc "GER" )] [showmenu ".45"]
  40. menuitemvar [concatword (cl 9) "B} " (loc "East US")] [showmenu "B}"]
  41. menuitemvar [concatword (cl 2) "BoB " (loc "GER/East US")] [showmenu "BoB"]
  42. menuitemvar [concatword (cl 0) "Gibbed.me " (loc "West US" )] [showmenu "Gibbed"]
  43. menuitemvar [concatword (cl 1) "#M|A# " (loc "Central US" )] [showmenu "M|A"]
  44. menuitemvar [concatword (cl 9) "Sveark " (loc "West Russia" )] [showmenu "Sveark"]
  45. menuitemvar [concatword (cl 1) "XRD.me " (loc "West US" )] [showmenu "XRD.me"]
  46. menuitemvar [concatword (cl 9) "AoX " (loc "World" )] [showmenu "AoX"]
  47. menuitemvar [concatword (cl 0) "[PSY] Servers " (loc "Belgium" )] [showmenu "[PSY] Servers"]
  48. menuitemvar [concatword (cl 2) ".rC " (loc "North EU" )] [showmenu ".rC"]
  49. menuitemvar [concatword (cl 1) "w00p " (loc "West EU" )] [showmenu "w00p"]
  50. newmenu ".45"
  51. menuitemvar [concatword (cl 1) ".45 Match 1 " (cl 5) "1111"] [menuconnect 45-clan.de 1111 match]
  52. menuitemvar [concatword (cl 1) ".45 Match 2 " (cl 5) "2222"] [menuconnect 45-clan.de 2222 match]
  53. menuitemvar [concatword (cl 1) ".45 Match 2 " (cl 5) "3333"] [menuconnect 45-clan.de 3333 match]
  54. menuitemvar [concatword (cl 1) ".45 CTF Public I" (cl 5) "28763"] [menuconnect 45-clan.de]
  55.  
  56. newmenu "B}"
  57. menuitemvar [concatword (cl 1) "Arriaga " (cl 5) "8888"] [menuconnect arriaga.pbclan.tk 8888]
  58. menuitemvar [concatword (cl 1) "Arriaga " (cl 5) "9999"] [menuconnect arriaga.pbclan.tk 8888]
  59. menuitem [] -1
  60. menuitemvar [concatword (cl 1) "Schubert " (cl 5) "8888"] [menuconnect schubert.pbclan.tk 8888]
  61. menuitemvar [concatword (cl 1) "Schubert " (cl 5) "9999"] [menuconnect schubert.pbclan.tk 9999]
  62.  
  63. newmenu "BoB"
  64. menuitemvar [concatword (c 2) "GER: "] -1
  65. menuitemvar [concatword (cl 1) "bob-ac.net " (cl 5) "1999"] [menuconnect bob-ac.net 1999 match]
  66. menuitemvar [concatword (cl 1) "bob-ac.net " (cl 5) "2999"] [menuconnect bob-ac.net 2999 match]
  67. menuitemvar [concatword (cl 1) "bob-ac.net " (cl 5) "3999"] [menuconnect bob-ac.net 3999 match]
  68. menuitem [] -1
  69. menuitemvar [concatword (c 2) "East US: "] -1
  70. menuitemvar [concatword (cl 1) "usa.bob-ac.net " (cl 5) "4999"] [menuconnect usa.bob-ac.net 4999 match]
  71. menuitemvar [concatword (cl 1) "usa.bob-ac.net " (cl 5) "5999"] [menuconnect usa.bob-ac.net 5999 match]
  72. menuitemvar [concatword (cl 1) "usa.bob-ac.net " (cl 5) "6999"] [menuconnect usa.bob-ac.net 6999 match]
  73. menuitemvar [concatword (cl 1) "theo-rj.tk " (cl 5) "5999"] [menuconnect theo-rj.tk 5999 match]
  74. menuitemvar [concatword (cl 1) "theo-rj.tk " (cl 5) "6999"] [menuconnect theo-rj.tk 6999 match]
  75. menuitemvar [concatword (cl 1) "theo-rj.tk " (cl 5) "7999"] [menuconnect theo-rj.tk 7999 match]
  76.  
  77. newmenu "Gibbed"
  78. menuitemvar [concatword (cl 1) "Pugsley " (cl 5) "4455"] [menuconnect gibbed.me 4455 match]
  79. menuitemvar [concatword (cl 1) "Wednesday " (cl 5) "5566"] [menuconnect gibbed.me 5566 match]
  80.  
  81. newmenu "M|A"
  82. menuitemvar [concatword (cl 1) "#M|A# Feorge Glowers " (cl 5) "2222"] [menuconnect ac.mafia-asesina.org 2222 match]
  83. menuitemvar [concatword (cl 1) "#M|A# Chilote " (cl 5) "3333"] [menuconnect ac.mafia-asesina.org 3333 match]
  84.  
  85. newmenu "Sveark"
  86. menuitemvar [concatword (cl 1) "Sveark.tk " (cl 5) "1"] [menuconnect sveark.tk 1]
  87. menuitemvar [concatword (cl 1) "Sveark.tk " (cl 5) "11"] [menuconnect sveark.tk 11]
  88. menuitemvar [concatword (cl 1) "Sveark.tk " (cl 5) "111"] [menuconnect sveark.tk 111]
  89. menuitemvar [concatword (cl 1) "Sveark.tk " (cl 5) "1111"] [menuconnect sveark.tk 1111]
  90.  
  91. newmenu "XRD.me"
  92. menuitemvar [concatword (cl 1) "Mutsketeer "] [menuconnect xrd.me 4000 match]
  93. menuitemvar [concatword (cl 1) "FireBird "][menuconnect xrd.me 5000 match]
  94.  
  95. newmenu "AoX"
  96. menuitemvar [concatword (c 2) "BUFFALO: "] -1
  97. menuitemvar [concatword (cl 1) "|AoX|Sedna: bu.aox-ac.net 5000 "] [menuconnect bu.aox-ac.net 5000]
  98. menuitemvar [concatword (cl 1) "|AoX|Canis: bu.aox-ac.net 5050 "] [menuconnect bu.aox-ac.net 5050]
  99. menuitemvar [concatword (cl 1) "|AoX|Epsilon Eridani: bu.aox-ac.net 5500 "] [menuconnect bu.aox-ac.net 5500]
  100. menuitemvar [concatword (cl 1) "|AoX|Sirius: bu.aox-ac.net 5555 "] [menuconnect bu.aox-ac.net 5555]
  101. menuitemvar [concatword (cl 1) "|AoX|Luna: ny.aox-ac.net 5050 "] [menuconnect ny.aox-ac.net 5050]
  102. menuitemvar [concatword (cl 1) "|AoX|Earth: ny.aox-ac.net 5000 "] [menuconnect ny.aox-ac.net 5000]
  103. menuitemvar [concatword (cl 1) "|AoX|Jupiter: ny.aox-ac.net 5500 "] [menuconnect ny.aox-ac.net 5500]
  104. menuitemvar [concatword (cl 1) "|AoX|Ganymede: ny.aox-ac.net 5555 "] [menuconnect ny.aox-ac.net 5555]
  105. menuitemvar [concatword (c 2) "GERMANY: "] -1
  106. menuitemvar [concatword (cl 1) "|AoX|Tau Scorpii: de.aox-ac.net 5500 "] [menuconnect de.aox-ac.net 5500]
  107. menuitemvar [concatword (c 2) "LONDON: "] -1
  108. menuitemvar [concatword (cl 1) "|AoX|Aries: en.aox-ac.net 5500 "] [menuconnect en.aox-ac.net 5500]
  109. menuitemvar [concatword (cl 1) "|AoX|Gema Universe: uk.aox-ac.net 2222 "] [menuconnect uk.aox-ac.net 2222]
  110. menuitemvar [concatword (cl 1) "|AoX|Sol: uk.aox-ac.net 5000 "] [menuconnect uk.aox-ac.net 5000]
  111. menuitemvar [concatword (cl 1) "|AoX|Eris: uk.aox-ac.net 5050 "] [menuconnect uk.aox-ac.net 5050]
  112. menuitemvar [concatword (cl 1) "|AoX|Venus: uk.aox-ac.net 5500 "] [menuconnect uk.aox-ac.net 5500]
  113. menuitemvar [concatword (cl 1) "|AoX|Neptune: uk.aox-ac.net 5555 "] [menuconnect uk.aox-ac.net 5555]
  114. menuitemvar [concatword (cl 1) "|AoX|Taurus: en.aox-ac.net 5555 "] [menuconnect en.aox-ac.net 5555]
  115. menuitemvar [concatword (c 2) "ORLANDO: "] -1
  116. menuitemvar [concatword (cl 1) "|AoX|3t3rn@l G3m@:" "fl.aox-ac.net 2222 "][menuconnect fl.aox-ac.net 2222]
  117. menuitemvar [concatword (cl 1) "|AoX|Cat's Eye: fl.aox-ac.net 5000 "] [menuconnect fl.aox-ac.net 5000]
  118. menuitemvar [concatword (cl 1) "|AoX|Pluto: fl.aox-ac.net 5050 "] [menuconnect fl.aox-ac.net 5050]
  119. menuitemvar [concatword (cl 1) "|AoX|Saturn: fl.aox-ac.net 5500 "] [menuconnect fl.aox-ac.net 5500]
  120. menuitemvar [concatword (cl 1) "|AoX|Mercury: fl.aox-ac.net 5555 "] [menuconnect fl.aox-ac.net 5555]
  121. menuitemvar [concatword (c 2) "NETHERLANDS: "] -1
  122. menuitemvar [concatword (cl 1) "|AoX|Orion: nl.aox-ac.net 5500 "] [menuconnect nl.aox-ac.net 5500]
  123. menuitemvar [concatword (c 2) "LOS ANGELES: "] -1
  124. menuitemvar [concatword (cl 1) "|AoX|Uranus: la.aox-ac.net 5000 "] [menuconnect la.aox-ac.net 5000]
  125. menuitemvar [concatword (cl 1) "|AoX|Gema Nova: la.aox-ac.net 2222 "] [menuconnect la.aox-ac.net 2222]
  126. menuitemvar [concatword (cl 1) "|AoX|Ceres: la.aox-ac.net 5050 "] [menuconnect la.aox-ac.net 5050]
  127. menuitemvar [concatword (cl 1) "|AoX|Mars: la.aox-ac.net 5500 "] [menuconnect la.aox-ac.net 5500]
  128. menuitemvar [concatword (cl 1) "|AoX|Phobos: la.aox-ac.net 5555 "] [menuconnect la.aox-ac.net 5555]
  129. menuitemvar [concatword (c 2) "DALLAS: "] -1
  130. menuitemvar [concatword (cl 1) "|AoX|Gema Star: tx.aox-ac.net 2222"] [menuconnect tx.aox-ac.net 2222]
  131. menuitemvar [concatword (cl 1) "|AoX|Carina: tx.aox-ac.net 5000 "] [menuconnect tx.aox-ac.net 5000]
  132. menuitemvar [concatword (cl 1) "|AoX|Eta Carinae: tx.aox-ac.net 5050 "] [menuconnect tx.aox-ac.net 5050]
  133. menuitemvar [concatword (cl 1) "|AoX|Antares: tx.aox-ac.net 5500 "] [menuconnect tx.aox-ac.net 5500]
  134. menuitemvar [concatword (cl 1) "|AoX|R136a: tx.aox-ac.net 5555 "] [menuconnect tx.aox-ac.net 5555]
  135.  
  136. newmenu "[PSY] Servers"
  137. menuitemvar [concatword (cl 1) "[PSY]Public: psyclan.org "] [menuconnect psyclan.org]
  138. menuitemvar [concatword (cl 1) "[PSY]Matches: psyclan.org 9000 "] [menuconnect psyclan.org 9000]
  139. menuitemvar [concatword (cl 1) "[PSY]Training/Mapping: psyclan.org 10000 "] [menuconnect psyclan.org 10000]
  140. menuitemvar [concatword (cl 1) "[PSY]Friends: psyclan.org 16000 psyfriends "] [menuconnect psyclan.org 16000 psyfriends]
  141. menuitemvar [concatword (cl 1) "[PSY]Brazil: psyclan.org 8000 "] [menuconnect psyclan.org 8000]
  142.  
  143. newmenu ".rC"
  144. menuitemvar [concatword (c 2) "Vanquish's Servers (Sweeden): "] -1
  145. menuitemvar [concatword (cl 1) ".rC|Match 1: se-rc.tk 1111 "] [menuconnect se-rc.tk 1111]
  146. menuitemvar [concatword (cl 1) ".rC|Match 2: se-rc.tk 2222 "] [menuconnect se-rc.tk 2222]
  147. menuitemvar [concatword (cl 1) ".rC|Match 3: se-rc.tk 3333 "] [menuconnect se-rc.tk 3333]
  148. menuitemvar [concatword (c 2) "Yopa's Servers (New York): "] -1
  149. menuitemvar [concatword (cl 1) ".rC|Match 1: us-rc.tk 1111 "] [menuconnect us-rc.tk 1111]
  150. menuitemvar [concatword (cl 1) ".rC|Match 2: us-rc.tk 2222 "] [menuconnect us-rc.tk 2222]
  151. menuitemvar [concatword (cl 1) ".rC|Match 3: us-rc.tk 3333 "] [menuconnect us-rc.tk 3333]
  152.  
  153. newmenu "w00p"
  154. menuitemvar [concatword (cl 1) "w00p|Match 1: aura.woop.us 1999 match "] [menuconnect aura.woop.us 1999 match]
  155. menuitemvar [concatword (cl 1) "w00p|Match 2: aura.woop.us 2999 match "] [menuconnect aura.woop.us 2999 match]
  156. menuitemvar [concatword (cl 1) "w00p|Match 3: aura.woop.us 3999 match "] [menuconnect aura.woop.us 3999 match]
  157. menuitemvar [concatword (cl 1) "w00p|Match 4: aura.woop.us 4999 match "] [menuconnect aura.woop.us 4999 match]
  158.  
  159. // 0-green, 1-blue, 2-yellow, 3-red, 4-gray, 5-white, 6-dark brown, 7-dark red, 8-magenta, 9-orange
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!