PageRenderTime 81ms CodeModel.GetById 15ms RepoModel.GetById 0ms app.codeStats 1ms

/ext_scripts/lgsl/lgsl_files/lgsl_protocol.php

http://lansuite.googlecode.com/
PHP | 4191 lines | 2575 code | 830 blank | 786 comment | 578 complexity | 055fc938486e9b6f3cf1fba4a7c1181b MD5 | raw file
Possible License(s): LGPL-3.0, AGPL-1.0, LGPL-2.1 
    

  1. <?php
    2. 

  2. 

  3.  /*----------------------------------------------------------------------------------------------------------\
    4. 

  4.  |                                                                                                            |
    5. 

  5.  |                      [ LIVE GAME SERVER LIST ] [ Š RICHARD PERRY FROM GREYCUBE.COM ]                       |
    6. 

  6.  |                                                                                                            |
    7. 

  7.  |    Released under the terms and conditions of the GNU General Public License Version 3 (http://gnu.org)    |
    8. 

  8.  |                                                                                                            |
    9. 

  9.  |-------------------------------------------------------------------------------------------------------------
    10. 

  10.  |        [ EDITOR STYLE SETTINGS: LUCIDA CONSOLE, SIZE 10, TAB = 2 SPACES, BOLD GLOBALLY TURNED OFF ]        |
    11. 

  11.  \-----------------------------------------------------------------------------------------------------------*/
    12. 

  12. 

  13. //------------------------------------------------------------------------------------------------------------+
    14. 

  14. //------------------------------------------------------------------------------------------------------------+
    15. 

  15. 

  16.   if (!function_exists('lgsl_version')) { // START OF DOUBLE LOAD PROTECTION
    17. 

  17. 

  18. //------------------------------------------------------------------------------------------------------------+
    19. 

  19. //------------------------------------------------------------------------------------------------------------+
    20. 

  20. 

  21.   function lgsl_type_list()
    22. 

  22.   {
    23. 

  23.     return array(
    24. 

  24.     "aarmy"         => "Americas Army",
    25. 

  25.     "aarmy3"        => "Americas Army 3",
    26. 

  26.     "arcasimracing" => "Arca Sim Racing",
    27. 

  27.     "arma"          => "ArmA: Armed Assault",
    28. 

  28.     "arma2"         => "ArmA 2",
    29. 

  29.     "avp2"          => "Aliens VS. Predator 2",
    30. 

  30.     "avp2010"       => "Aliens VS. Predator ( 2010 By Rebellion )",
    31. 

  31.     "bfbc2"         => "Battlefield Bad Company 2",
    32. 

  32.     "bfvietnam"     => "Battlefield Vietnam",
    33. 

  33.     "bf1942"        => "Battlefield 1942",
    34. 

  34.     "bf2"           => "Battlefield 2",
    35. 

  35.     "bf3"           => "Battlefield 3",
    36. 

  36.     "bf2142"        => "Battlefield 2142",
    37. 

  37.     "callofduty"    => "Call Of Duty",
    38. 

  38.     "callofdutyuo"  => "Call Of Duty: United Offensive",
    39. 

  39.     "callofdutywaw" => "Call Of Duty: World at War",
    40. 

  40.     "callofduty2"   => "Call Of Duty 2",
    41. 

  41.     "callofduty4"   => "Call Of Duty 4",
    42. 

  42. 	"callofdutymw2" => "Call of Duty Modern Warfare 2",
    43. 

  43.     "cncrenegade"   => "Command and Conquer: Renegade",
    44. 

  44.     "crysis"        => "Crysis",
    45. 

  45.     "crysiswars"    => "Crysis Wars",
    46. 

  46.     "cs2d"          => "Counter-Strike 2D",
    47. 

  47.     "cube"          => "Cube Engine",
    48. 

  48.     "doomskulltag"  => "Doom - Skulltag",
    49. 

  49.     "doomzdaemon"   => "Doom - ZDaemon",
    50. 

  50.     "doom3"         => "Doom 3",
    51. 

  51.     "dh2005"        => "Deer Hunter 2005",
    52. 

  52.     "farcry"        => "Far Cry",
    53. 

  53.     "fear"          => "F.E.A.R.",
    54. 

  54.     "flashpoint"    => "Operation Flashpoint",
    55. 

  55.     "freelancer"    => "Freelancer",
    56. 

  56.     "frontlines"    => "Frontlines: Fuel Of War",
    57. 

  57.     "f1c9902"       => "F1 Challenge 99-02",
    58. 

  58.     "gamespy1"      => "Generic GameSpy 1",
    59. 

  59.     "gamespy2"      => "Generic GameSpy 2",
    60. 

  60.     "gamespy3"      => "Generic GameSpy 3",
    61. 

  61.     "ghostrecon"    => "Ghost Recon",
    62. 

  62.     "graw"          => "Ghost Recon: Advanced Warfighter",
    63. 

  63.     "graw2"         => "Ghost Recon: Advanced Warfighter 2",
    64. 

  64.     "gtr2"          => "GTR 2",
    65. 

  65.     "had2"          => "Hidden and Dangerous 2",
    66. 

  66.     "halflife"      => "Half-Life - Steam",
    67. 

  67.     "halflifewon"   => "Half-Life - WON",
    68. 

  68.     "halo"          => "Halo",
    69. 

  69.     "il2"           => "IL-2 Sturmovik",
    70. 

  70.     "jediknight2"   => "JediKnight 2: Jedi Outcast",
    71. 

  71.     "jediknightja"  => "JediKnight: Jedi Academy",
    72. 

  72.     "killingfloor"  => "Killing Floor",
    73. 

  73.     "kingpin"       => "Kingpin: Life of Crime",
    74. 

  74.     "modernwarfare3"=> "CoD: Modern Warfare 3",
    75. 

  75.     "moh"           => "Medal of Honor",
    76. 

  76.     "mohaa"         => "Medal of Honor: Allied Assault",
    77. 

  77.     "mohaab"        => "Medal of Honor: Allied Assault Breakthrough",
    78. 

  78.     "mohaas"        => "Medal of Honor: Allied Assault Spearhead",
    79. 

  79.     "mohpa"         => "Medal of Honor: Pacific Assault",
    80. 

  80.     "mta"           => "Multi Theft Auto",
    81. 

  81.     "nascar2004"    => "Nascar Thunder 2004",
    82. 

  82.     "neverwinter"   => "NeverWinter Nights",
    83. 

  83.     "neverwinter2"  => "NeverWinter Nights 2",
    84. 

  84.     "nexuiz"        => "Nexuiz",
    85. 

  85.     "openttd"       => "Open Transport Tycoon Deluxe",
    86. 

  86.     "painkiller"    => "PainKiller",
    87. 

  87.     "plainsight"    => "Plain Sight",
    88. 

  88.     "prey"          => "Prey",
    89. 

  89.     "quakeworld"    => "Quake World",
    90. 

  90.     "quakewars"     => "Enemy Territory: Quake Wars",
    91. 

  91.     "quake2"        => "Quake 2",
    92. 

  92.     "quake3"        => "Quake 3",
    93. 

  93.     "quake4"        => "Quake 4",
    94. 

  94.     "ravenshield"   => "Raven Shield",
    95. 

  95.     "redorchestra"  => "Red Orchestra",
    96. 

  96.     "rfactor"       => "RFactor",
    97. 

  97.     "samp"          => "San Andreas Multiplayer",
    98. 

  98.     "savage"        => "Savage",
    99. 

  99.     "savage2"       => "Savage 2",
    100. 

  100.     "serioussam"    => "Serious Sam",
    101. 

  101.     "serioussam2"   => "Serious Sam 2",
    102. 

  102.     "shatteredh"    => "Shattered Horizon",
    103. 

  103.     "sof2"          => "Soldier of Fortune 2",
    104. 

  104.     "soldat"        => "Soldat",
    105. 

  105.     "source"        => "Source ( Half-Life 2 )",
    106. 

  106.     "stalker"       => "S.T.A.L.K.E.R.",
    107. 

  107.     "stalkercs"     => "S.T.A.L.K.E.R. Clear Sky",
    108. 

  108.     "startrekef"    => "StarTrek Elite-Force",
    109. 

  109.     "starwarsbf"    => "Star Wars: Battlefront",
    110. 

  110.     "starwarsbf2"   => "Star Wars: Battlefront 2",
    111. 

  111.     "starwarsrc"    => "Star Wars: Republic Commando",
    112. 

  112.     "swat4"         => "SWAT 4",
    113. 

  113.     "test"          => "Test ( For PHP Developers )",
    114. 

  114.     "teeworlds"     => "Teeworlds",
    115. 

  115.     "tribes"        => "Tribes ( Starsiege )",
    116. 

  116.     "tribes2"       => "Tribes 2",
    117. 

  117.     "tribesv"       => "Tribes Vengeance",
    118. 

  118.     "urbanterror"   => "UrbanTerror",
    119. 

  119.     "ut"            => "Unreal Tournament",
    120. 

  120.     "ut2003"        => "Unreal Tournament 2003",
    121. 

  121.     "ut2004"        => "Unreal Tournament 2004",
    122. 

  122.     "ut3"           => "Unreal Tournament 3",
    123. 

  123.     "vcmp"          => "Vice City Multiplayer",
    124. 

  124.     "vietcong"      => "Vietcong",
    125. 

  125.     "vietcong2"     => "Vietcong 2",
    126. 

  126.     "warsow"        => "Warsow",
    127. 

  127.     "warsowold"     => "Warsow ( 0.4.2 and older )",
    128. 

  128.     "wolfet"        => "Wolfenstein: Enemy Territory",
    129. 

  129.     "wolfrtcw"      => "Wolfenstein: Return To Castle Wolfenstein",
    130. 

  130.     "wolf2009"      => "Wolfenstein ( 2009 By Raven )");
    131. 

  131.   }
    132. 

  132. 

  133. //------------------------------------------------------------------------------------------------------------+
    134. 

  134. //------------------------------------------------------------------------------------------------------------+
    135. 

  135. 

  136.   function lgsl_protocol_list()
    137. 

  137.   {
    138. 

  138.     return array(
    139. 

  139.     "aarmy"         => "09",
    140. 

  140.     "aarmy_"        => "03",
    141. 

  141.     "aarmy3"        => "26",
    142. 

  142.     "arcasimracing" => "16",
    143. 

  143.     "arma"          => "09",
    144. 

  144.     "arma2"         => "09",
    145. 

  145.     "avp2"          => "03",
    146. 

  146.     "avp2010"       => "31",
    147. 

  147.     "bfbc2"         => "30",
    148. 

  148.     "bfvietnam"     => "09",
    149. 

  149.     "bf1942"        => "03",
    150. 

  150.     "bf2"           => "06",
    151. 

  151.     "bf3"           => "33",
    152. 

  152.     "bf2142"        => "06",
    153. 

  153.     "callofduty"    => "02",
    154. 

  154.     "callofdutyuo"  => "02",
    155. 

  155.     "callofdutywaw" => "02",
    156. 

  156.     "callofduty2"   => "02",
    157. 

  157.     "callofduty4"   => "02",
    158. 

  158. 	"callofdutymw2" => "02",
    159. 

  159.     "cncrenegade"   => "03",
    160. 

  160.     "crysis"        => "06",
    161. 

  161.     "crysiswars"    => "06",
    162. 

  162.     "cs2d"          => "29",
    163. 

  163.     "cube"          => "24",
    164. 

  164.     "doomskulltag"  => "27",
    165. 

  165.     "doomzdaemon"   => "28",
    166. 

  166.     "doom3"         => "10",
    167. 

  167.     "dh2005"        => "09",
    168. 

  168.     "had2"          => "03",
    169. 

  169.     "halflife"      => "05",
    170. 

  170.     "halflifewon"   => "05",
    171. 

  171.     "halo"          => "03",
    172. 

  172.     "il2"           => "03",
    173. 

  173.     "farcry"        => "08",
    174. 

  174.     "fear"          => "09",
    175. 

  175.     "flashpoint"    => "03",
    176. 

  176.     "freelancer"    => "14",
    177. 

  177.     "frontlines"    => "20",
    178. 

  178.     "f1c9902"       => "03",
    179. 

  179.     "gamespy1"      => "03",
    180. 

  180.     "gamespy2"      => "09",
    181. 

  181.     "gamespy3"      => "06",
    182. 

  182.     "ghostrecon"    => "19",
    183. 

  183.     "graw"          => "06",
    184. 

  184.     "graw2"         => "09",
    185. 

  185.     "gtr2"          => "15",
    186. 

  186.     "jediknight2"   => "02",
    187. 

  187.     "jediknightja"  => "02",
    188. 

  188.     "killingfloor"  => "13",
    189. 

  189.     "kingpin"       => "03",
    190. 

  190.     "modernwarfare3"=> "31",
    191. 

  191.     "moh"           => "30",
    192. 

  192.     "mohaa"         => "03",
    193. 

  193.     "mohaab"        => "03",
    194. 

  194.     "mohaas"        => "03",
    195. 

  195.     "mohpa"         => "03",
    196. 

  196.     "mohaa_"        => "02",
    197. 

  197.     "mohaab_"       => "02",
    198. 

  198.     "mohaas_"       => "02",
    199. 

  199.     "mohpa_"        => "02",
    200. 

  200.     "mta"           => "08",
    201. 

  201.     "nascar2004"    => "09",
    202. 

  202.     "neverwinter"   => "09",
    203. 

  203.     "neverwinter2"  => "09",
    204. 

  204.     "nexuiz"        => "02",
    205. 

  205.     "openttd"       => "22",
    206. 

  206.     "painkiller"    => "08",
    207. 

  207.     "painkiller_"   => "09",
    208. 

  208.     "plainsight"    => "32",
    209. 

  209.     "prey"          => "10",
    210. 

  210.     "quakeworld"    => "07",
    211. 

  211.     "quakewars"     => "10",
    212. 

  212.     "quake2"        => "02",
    213. 

  213.     "quake3"        => "02",
    214. 

  214.     "quake4"        => "10",
    215. 

  215.     "ravenshield"   => "04",
    216. 

  216.     "redorchestra"  => "13",
    217. 

  217.     "rfactor"       => "16",
    218. 

  218.     "samp"          => "12",
    219. 

  219.     "savage"        => "17",
    220. 

  220.     "savage2"       => "18",
    221. 

  221.     "serioussam"    => "03",
    222. 

  222.     "serioussam2"   => "09",
    223. 

  223.     "shatteredh"    => "05",
    224. 

  224.     "sof2"          => "02",
    225. 

  225.     "soldat"        => "08",
    226. 

  226.     "source"        => "05",
    227. 

  227.     "stalker"       => "06",
    228. 

  228.     "stalkercs"     => "09",
    229. 

  229.     "startrekef"    => "02",
    230. 

  230.     "starwarsbf"    => "09",
    231. 

  231.     "starwarsbf2"   => "09",
    232. 

  232.     "starwarsrc"    => "09",
    233. 

  233.     "swat4"         => "03",
    234. 

  234.     "test"          => "01",
    235. 

  235.     "teeworlds"     => "21",
    236. 

  236.     "tribes"        => "23",
    237. 

  237.     "tribes2"       => "25",
    238. 

  238.     "tribesv"       => "09",
    239. 

  239.     "warsow"        => "02",
    240. 

  240.     "warsowold"     => "02",
    241. 

  241.     "urbanterror"   => "02",
    242. 

  242.     "ut"            => "03",
    243. 

  243.     "ut2003"        => "13",
    244. 

  244.     "ut2003_"       => "03",
    245. 

  245.     "ut2004"        => "13",
    246. 

  246.     "ut2004_"       => "03",
    247. 

  247.     "ut3"           => "11",
    248. 

  248.     "vcmp"          => "12",
    249. 

  249.     "vietcong"      => "03",
    250. 

  250.     "vietcong2"     => "09",
    251. 

  251.     "wolfet"        => "02",
    252. 

  252.     "wolfrtcw"      => "02",
    253. 

  253.     "wolf2009"      => "10");
    254. 

  254. 

  255.     return $lgsl_protocol_list;
    256. 

  256.   }
    257. 

  257. 

  258. //------------------------------------------------------------------------------------------------------------+
    259. 

  259. //------------------------------------------------------------------------------------------------------------+
    260. 

  260. 

  261.   function lgsl_software_link($type, $ip, $c_port, $q_port, $s_port)
    262. 

  262.   {
    263. 

  263.     $lgsl_software_link = array(
    264. 

  264.     "aarmy"         => "qtracker://{IP}:{S_PORT}?game=ArmyOperations&action=show",
    265. 

  265.     "aarmy3"        => "qtracker://{IP}:{S_PORT}?game=AmericasArmy3&action=show",
    266. 

  266.     "arcasimracing" => "http://en.wikipedia.org/wiki/ARCA_Sim_Racing",
    267. 

  267.     "arma"          => "qtracker://{IP}:{S_PORT}?game=ArmedAssault&action=show",
    268. 

  268.     "arma2"         => "http://en.wikipedia.org/wiki/ARMA_2",
    269. 

  269.     "avp2"          => "qtracker://{IP}:{S_PORT}?game=AliensversusPredator2&action=show",
    270. 

  270.     "avp2010"       => "http://en.wikipedia.org/wiki/Aliens_vs._Predator_%28video_game%29",
    271. 

  271.     "bfbc2"         => "http://en.wikipedia.org/wiki/Battlefield_bad_company_2",
    272. 

  272.     "bfvietnam"     => "qtracker://{IP}:{S_PORT}?game=BattlefieldVietnam&action=show",
    273. 

  273.     "bf1942"        => "qtracker://{IP}:{S_PORT}?game=Battlefield1942&action=show",
    274. 

  274.     "bf2"           => "qtracker://{IP}:{S_PORT}?game=Battlefield2&action=show",
    275. 

  275.     "bf3"           => "http://en.wikipedia.org/wiki/Battlefield_3",
    276. 

  276.     "bf2142"        => "qtracker://{IP}:{S_PORT}?game=Battlefield2142&action=show",
    277. 

  277.     "callofduty"    => "qtracker://{IP}:{S_PORT}?game=CallOfDuty&action=show",
    278. 

  278.     "callofdutyuo"  => "qtracker://{IP}:{S_PORT}?game=CallOfDutyUnitedOffensive&action=show",
    279. 

  279.     "callofdutywaw" => "qtracker://{IP}:{S_PORT}?game=CallOfDutyWorldAtWar&action=show",
    280. 

  280.     "callofduty2"   => "qtracker://{IP}:{S_PORT}?game=CallOfDuty2&action=show",
    281. 

  281.     "callofduty4"   => "qtracker://{IP}:{S_PORT}?game=CallOfDuty4&action=show",
    282. 

  282. 	"callofdutymw2" => "aiw://connect/{IP}:{S_PORT}",
    283. 

  283.     "cncrenegade"   => "qtracker://{IP}:{S_PORT}?game=CommandConquerRenegade&action=show",
    284. 

  284.     "crysis"        => "qtracker://{IP}:{S_PORT}?game=Crysis&action=show",
    285. 

  285.     "crysiswars"    => "qtracker://{IP}:{S_PORT}?game=CrysisWars&action=show",
    286. 

  286.     "cs2d"          => "http://www.cs2d.com",
    287. 

  287.     "cube"          => "http://cubeengine.com",
    288. 

  288.     "doomskulltag"  => "http://skulltag.com",
    289. 

  289.     "doomzdaemon"   => "http://www.zdaemon.org",
    290. 

  290.     "doom3"         => "qtracker://{IP}:{S_PORT}?game=Doom3&action=show",
    291. 

  291.     "dh2005"        => "http://en.wikipedia.org/wiki/Deer_Hunter_(computer_game)",
    292. 

  292.     "farcry"        => "qtracker://{IP}:{S_PORT}?game=FarCry&action=show",
    293. 

  293.     "fear"          => "qtracker://{IP}:{S_PORT}?game=FEAR&action=show",
    294. 

  294.     "flashpoint"    => "qtracker://{IP}:{S_PORT}?game=OperationFlashpoint&action=show",
    295. 

  295.     "freelancer"    => "http://en.wikipedia.org/wiki/Freelancer_(computer_game)",
    296. 

  296.     "frontlines"    => "http://en.wikipedia.org/wiki/Frontlines:_Fuel_of_War",
    297. 

  297.     "f1c9902"       => "http://en.wikipedia.org/wiki/EA_Sports_F1_Series",
    298. 

  298.     "gamespy1"      => "http://www.greycube.com",
    299. 

  299.     "gamespy2"      => "http://www.greycube.com",
    300. 

  300.     "gamespy3"      => "http://www.greycube.com",
    301. 

  301.     "ghostrecon"    => "http://en.wikipedia.org/wiki/Tom_Clancy's_Ghost_Recon",
    302. 

  302.     "graw"          => "qtracker://{IP}:{S_PORT}?game=GhostRecon&action=show",
    303. 

  303.     "graw2"         => "http://en.wikipedia.org/wiki/Tom_Clancy's_Ghost_Recon_Advanced_Warfighter_2",
    304. 

  304.     "gtr2"          => "http://en.wikipedia.org/wiki/GTR2",
    305. 

  305.     "had2"          => "http://en.wikipedia.org/wiki/Hidden_&_Dangerous_2",
    306. 

  306.     "halflife"      => "steam://connect/{IP}:{S_PORT}",
    307. 

  307.     "halflifewon"   => "qtracker://{IP}:{S_PORT}?game=HalfLife_WON2&action=show",
    308. 

  308.     "halo"          => "qtracker://{IP}:{S_PORT}?game=Halo&action=show",
    309. 

  309.     "il2"           => "http://en.wikipedia.org/wiki/IL-2_Sturmovik_(game)",
    310. 

  310.     "jediknight2"   => "qtracker://{IP}:{S_PORT}?game=JediKnight2&action=show",
    311. 

  311.     "jediknightja"  => "qtracker://{IP}:{S_PORT}?game=JediKnightJediAcademy&action=show",
    312. 

  312.     "killingfloor"  => "qtracker://{IP}:{S_PORT}?game=KillingFloor&action=show",
    313. 

  313.     "kingpin"       => "qtracker://{IP}:{S_PORT}?game=Kingpin&action=show",
    314. 

  314.     "modernwarfare3"=> "http://en.wikipedia.org/wiki/Call_of_Duty:_Modern_Warfare_3",
    315. 

  315.     "mohaa"         => "qtracker://{IP}:{S_PORT}?game=MedalofHonorAlliedAssault&action=show",
    316. 

  316.     "mohaab"        => "qtracker://{IP}:{S_PORT}?game=MedalofHonorAlliedAssaultBreakthrough&action=show",
    317. 

  317.     "mohaas"        => "qtracker://{IP}:{S_PORT}?game=MedalofHonorAlliedAssaultSpearhead&action=show",
    318. 

  318.     "mohpa"         => "qtracker://{IP}:{S_PORT}?game=MedalofHonorPacificAssault&action=show",
    319. 

  319.     "mta"           => "http://en.wikipedia.org/wiki/Multi_Theft_Auto",
    320. 

  320.     "nascar2004"    => "http://en.wikipedia.org/wiki/NASCAR_Thunder_2004",
    321. 

  321.     "neverwinter"   => "qtracker://{IP}:{S_PORT}?game=NeverwinterNights&action=show",
    322. 

  322.     "neverwinter2"  => "qtracker://{IP}:{S_PORT}?game=NeverwinterNights&action=show",
    323. 

  323.     "nexuiz"        => "qtracker://{IP}:{S_PORT}?game=Nexuiz&action=show",
    324. 

  324.     "openttd"       => "http://wwww.openttd.org",
    325. 

  325.     "painkiller"    => "qtracker://{IP}:{S_PORT}?game=Painkiller&action=show",
    326. 

  326.     "plainsight"    => "http://www.plainsightgame.com",
    327. 

  327.     "prey"          => "qtracker://{IP}:{S_PORT}?game=Prey&action=show",
    328. 

  328.     "quakeworld"    => "qtracker://{IP}:{S_PORT}?game=QuakeWorld&action=show",
    329. 

  329.     "quakewars"     => "qtracker://{IP}:{S_PORT}?game=EnemyTerritoryQuakeWars&action=show",
    330. 

  330.     "quake2"        => "qtracker://{IP}:{S_PORT}?game=Quake2&action=show",
    331. 

  331.     "quake3"        => "qtracker://{IP}:{S_PORT}?game=Quake3&action=show",
    332. 

  332.     "quake4"        => "qtracker://{IP}:{S_PORT}?game=Quake4&action=show",
    333. 

  333.     "ravenshield"   => "http://en.wikipedia.org/wiki/Tom_Clancy's_Rainbow_Six_3",
    334. 

  334.     "redorchestra"  => "qtracker://{IP}:{S_PORT}?game=RedOrchestra&action=show",
    335. 

  335.     "rfactor"       => "rfactor://{IP}:{S_PORT}",
    336. 

  336.     "samp"          => "http://www.sa-mp.com",
    337. 

  337.     "savage"        => "http://en.wikipedia.org/wiki/Savage:_The_Battle_for_Newerth",
    338. 

  338.     "savage2"       => "http://en.wikipedia.org/wiki/Savage_2:_A_Tortured_Soul",
    339. 

  339.     "serioussam"    => "qtracker://{IP}:{S_PORT}?game=SeriousSam&action=show",
    340. 

  340.     "serioussam2"   => "qtracker://{IP}:{S_PORT}?game=Serious_Sam2&action=show",
    341. 

  341.     "shatteredh"    => "http://en.wikipedia.org/wiki/Shattered_Horizon",
    342. 

  342.     "sof2"          => "qtracker://{IP}:{S_PORT}?game=SoldierOfFortune2&action=show",
    343. 

  343.     "soldat"        => "http://www.soldat.pl",
    344. 

  344.     "source"        => "steam://connect/{IP}:{S_PORT}",
    345. 

  345.     "stalker"       => "qtracker://{IP}:{S_PORT}?game=STALKER_ShadowChernobyl&action=show",
    346. 

  346.     "stalkercs"     => "qtracker://{IP}:{S_PORT}?game=STALKER_ClearSky&action=show",
    347. 

  347.     "startrekef"    => "http://en.wikipedia.org/wiki/Star_Trek:_Voyager:_Elite_Force",
    348. 

  348.     "starwarsbf"    => "qtracker://{IP}:{S_PORT}?game=StarWarsBattlefront&action=show",
    349. 

  349.     "starwarsbf2"   => "qtracker://{IP}:{S_PORT}?game=StarWarsBattlefront2&action=show",
    350. 

  350.     "starwarsrc"    => "qtracker://{IP}:{S_PORT}?game=StarWarsRepublicCommando&action=show",
    351. 

  351.     "swat4"         => "qtracker://{IP}:{S_PORT}?game=SWAT4&action=show",
    352. 

  352.     "test"          => "http://www.greycube.com",
    353. 

  353.     "teeworlds"     => "http://www.teeworlds.com",
    354. 

  354.     "tribes"        => "qtracker://{IP}:{S_PORT}?game=Tribes&action=show",
    355. 

  355.     "tribes2"       => "qtracker://{IP}:{S_PORT}?game=Tribes2&action=show",
    356. 

  356.     "tribesv"       => "qtracker://{IP}:{S_PORT}?game=TribesVengeance&action=show",
    357. 

  357.     "urbanterror"   => "qtracker://{IP}:{S_PORT}?game=UrbanTerror&action=show",
    358. 

  358.     "ut"            => "qtracker://{IP}:{S_PORT}?game=UnrealTournament&action=show",
    359. 

  359.     "ut2003"        => "qtracker://{IP}:{S_PORT}?game=UnrealTournament2003&action=show",
    360. 

  360.     "ut2004"        => "qtracker://{IP}:{S_PORT}?game=UnrealTournament2004&action=show",
    361. 

  361.     "ut3"           => "qtracker://{IP}:{S_PORT}?game=UnrealTournament3&action=show",
    362. 

  362.     "vcmp"          => "http://vicecitymultiplayer.com",
    363. 

  363.     "vietcong"      => "qtracker://{IP}:{S_PORT}?game=Vietcong&action=show",
    364. 

  364.     "vietcong2"     => "qtracker://{IP}:{S_PORT}?game=Vietcong2&action=show",
    365. 

  365.     "warsow"        => "qtracker://{IP}:{S_PORT}?game=Warsow&action=show",
    366. 

  366.     "warsowold"     => "qtracker://{IP}:{S_PORT}?game=Warsow&action=show",
    367. 

  367.     "wolfet"        => "qtracker://{IP}:{S_PORT}?game=WolfensteinEnemyTerritory&action=show",
    368. 

  368.     "wolfrtcw"      => "qtracker://{IP}:{S_PORT}?game=ReturntoCastleWolfenstein&action=show",
    369. 

  369.     "wolf2009"      => "http://en.wikipedia.org/wiki/Wolfenstein_(2009_video_game)");
    370. 

  370. 

  371.     // SOFTWARE PORT IS THE QUERY PORT UNLESS SET
    372. 

  372.     if (!$s_port) { $s_port = $q_port; }
    373. 

  373. 

  374.     // TRY USING THE STANDARD LAUNCH LINK FOR ALTERNATE PROTOCOLS IF ONE IS NOT SET
    375. 

  375.     if (!isset($lgsl_software_link[$type])) { $type = str_replace("_", "", $type); }
    376. 

  376. 

  377.     // INSERT DATA INTO STATIC LINK - CONVERT SPECIAL CHARACTERS - RETURN
    378. 

  378.     return htmlentities(str_replace(array("{IP}", "{C_PORT}", "{Q_PORT}", "{S_PORT}"), array($ip, $c_port, $q_port, $s_port), $lgsl_software_link[$type]), ENT_QUOTES);
    379. 

  379.   }
    380. 

  380. 

  381. //------------------------------------------------------------------------------------------------------------+
    382. 

  382. //------------------------------------------------------------------------------------------------------------+
    383. 

  383. 

  384.   function lgsl_port_conversion($type, $c_port, $q_port, $s_port)
    385. 

  385.   {
    386. 

  386.     switch ($type) // GAMES WHERE Q_PORT IS NOT EQUAL TO C_PORT
    387. 

  387.     {
    388. 

  388.       case "aarmy"         : $c_to_q = 1;     $c_def = 1716;    $q_def = 1717;    $c_to_s = 0;   break;
    389. 

  389.       case "aarmy3"        : $c_to_q = 0;     $c_def = 8777;    $q_def = 39300;   $c_to_s = 0;   break;
    390. 

  390.       case "arcasimracing" : $c_to_q = -100;  $c_def = 34397;   $q_def = 34297;   $c_to_s = 0;   break;
    391. 

  391.       case "bfbc2"         : $c_to_q = 0;     $c_def = 19567;   $q_def = 48888;   $c_to_s = 0;   break;
    392. 

  392.       case "bfvietnam"     : $c_to_q = 0;     $c_def = 15567;   $q_def = 23000;   $c_to_s = 0;   break;
    393. 

  393.       case "bf1942"        : $c_to_q = 0;     $c_def = 14567;   $q_def = 23000;   $c_to_s = 0;   break;
    394. 

  394.       case "bf2"           : $c_to_q = 0;     $c_def = 16567;   $q_def = 29900;   $c_to_s = 0;   break;
    395. 

  395.       case "bf3"           : $c_to_q = 22000; $c_def = 25200;   $q_def = 47200;   $c_to_s = 0;   break;
    396. 

  396.       case "bf2142"        : $c_to_q = 0;     $c_def = 17567;   $q_def = 29900;   $c_to_s = 0;   break;
    397. 

  397.       case "cube"          : $c_to_q = 1;     $c_def = 28785;   $q_def = 28786;   $c_to_s = 0;   break;
    398. 

  398.       case "dh2005"        : $c_to_q = 0;     $c_def = 23459;   $q_def = 34567;   $c_to_s = 0;   break;
    399. 

  399.       case "farcry"        : $c_to_q = 123;   $c_def = 49001;   $q_def = 49124;   $c_to_s = 0;   break;
    400. 

  400.       case "flashpoint"    : $c_to_q = 1;     $c_def = 2302;    $q_def = 2303;    $c_to_s = 0;   break;
    401. 

  401.       case "frontlines"    : $c_to_q = 2;     $c_def = 5476;    $q_def = 5478;    $c_to_s = 0;   break;
    402. 

  402.       case "ghostrecon"    : $c_to_q = 2;     $c_def = 2346;    $q_def = 2348;    $c_to_s = 0;   break;
    403. 

  403.       case "gtr2"          : $c_to_q = 1;     $c_def = 34297;   $q_def = 34298;   $c_to_s = 0;   break;
    404. 

  404.       case "had2"          : $c_to_q = 3;     $c_def = 11001;   $q_def = 11004;   $c_to_s = 0;   break;
    405. 

  405.       case "kingpin"       : $c_to_q = -10;   $c_def = 31510;   $q_def = 31500;   $c_to_s = 0;   break;
    406. 

  406.       case "killingfloor"  : $c_to_q = 1;     $c_def = 7708;    $q_def = 7709;    $c_to_s = 0;   break;
    407. 

  407.       case "modernwarfare3": $c_to_q = -1;    $c_def = 27015;   $q_def = 27017;   $c_to_s = 0;   break;
    408. 

  408.       case "mohaa"         : $c_to_q = 97;    $c_def = 12203;   $q_def = 12300;   $c_to_s = 0;   break;
    409. 

  409.       case "mohaab"        : $c_to_q = 97;    $c_def = 12203;   $q_def = 12300;   $c_to_s = 0;   break;
    410. 

  410.       case "mohaas"        : $c_to_q = 97;    $c_def = 12203;   $q_def = 12300;   $c_to_s = 0;   break;
    411. 

  411.       case "mohpa"         : $c_to_q = 97;    $c_def = 13203;   $q_def = 13300;   $c_to_s = 0;   break;
    412. 

  412.       case "mta"           : $c_to_q = 123;   $c_def = 22003;   $q_def = 22126;   $c_to_s = 0;   break;
    413. 

  413.       case "painkiller"    : $c_to_q = 123;   $c_def = 3455;    $q_def = 3578;    $c_to_s = 0;   break;
    414. 

  414.       case "ravenshield"   : $c_to_q = 1000;  $c_def = 7777;    $q_def = 8777;    $c_to_s = 0;   break;
    415. 

  415.       case "redorchestra"  : $c_to_q = 1;     $c_def = 7758;    $q_def = 7759;    $c_to_s = 0;   break;
    416. 

  416.       case "rfactor"       : $c_to_q = -100;  $c_def = 34397;   $q_def = 34297;   $c_to_s = 0;   break;
    417. 

  417.       case "serioussam"    : $c_to_q = 1;     $c_def = 25600;   $q_def = 25601;   $c_to_s = 0;   break;
    418. 

  418.       case "soldat"        : $c_to_q = 123;   $c_def = 23073;   $q_def = 23196;   $c_to_s = 0;   break;
    419. 

  419.       case "stalker"       : $c_to_q = 2;     $c_def = 5447;    $q_def = 5445;    $c_to_s = 0;   break;
    420. 

  420.       case "stalkercs"     : $c_to_q = 2;     $c_def = 5447;    $q_def = 5445;    $c_to_s = 0;   break;
    421. 

  421.       case "starwarsrc"    : $c_to_q = 0;     $c_def = 7777;    $q_def = 11138;   $c_to_s = 0;   break;
    422. 

  422.       case "swat4"         : $c_to_q = 1;     $c_def = 10780;   $q_def = 10781;   $c_to_s = 0;   break;
    423. 

  423.       case "tribesv"       : $c_to_q = 1;     $c_def = 7777;    $q_def = 7778;    $c_to_s = 0;   break;
    424. 

  424.       case "ut"            : $c_to_q = 1;     $c_def = 7777;    $q_def = 7778;    $c_to_s = 0;   break;
    425. 

  425.       case "ut2003"        : $c_to_q = 1;     $c_def = 7757;    $q_def = 7758;    $c_to_s = 10;  break;
    426. 

  426.       case "ut2003_"       : $c_to_q = 10;    $c_def = 7757;    $q_def = 7767;    $c_to_s = 0;   break;
    427. 

  427.       case "ut2004"        : $c_to_q = 1;     $c_def = 7777;    $q_def = 7778;    $c_to_s = 10;  break;
    428. 

  428.       case "ut2004_"       : $c_to_q = 10;    $c_def = 7777;    $q_def = 7787;    $c_to_s = 0;   break;
    429. 

  429.       case "ut3"           : $c_to_q = 0;     $c_def = 7777;    $q_def = 6500;    $c_to_s = 0;   break;
    430. 

  430.       case "vietcong"      : $c_to_q = 10000; $c_def = 5425;    $q_def = 15425;   $c_to_s = 0;   break;
    431. 

  431.       case "vietcong2"     : $c_to_q = 0;     $c_def = 5001;    $q_def = 19967;   $c_to_s = 0;   break;
    432. 

  432.       default              : $c_to_q = 0;     $c_def = 0;       $q_def = 0;       $c_to_s = 0;   break;
    433. 

  433.     }
    434. 

  434. 

  435.     if     (!$c_port && !$q_port && $c_def)  { $c_port = $c_def; $q_port = $q_def; }
    436. 

  436.     if     (!$c_port &&  $q_port && $c_to_q) { $c_port = $q_port - $c_to_q; }
    437. 

  437.     elseif (!$c_port &&  $q_port && $c_def)  { $c_port = $c_def; }
    438. 

  438.     elseif (!$c_port &&  $q_port)            { $c_port = $q_port; }
    439. 

  439.     if     (!$q_port &&  $c_port && $c_to_q) { $q_port = $c_port + $c_to_q; }
    440. 

  440.     elseif (!$q_port &&  $c_port && $q_def)  { $q_port = $q_def; }
    441. 

  441.     elseif (!$q_port &&  $c_port)            { $q_port = $c_port; }
    442. 

  442.     if     (!$s_port &&  $c_to_s)            { $s_port = $c_port + $c_to_s; }
    443. 

  443. 

  444.     return array(intval($c_port), intval($q_port), intval($s_port));
    445. 

  445.   }
    446. 

  446. 

  447. //------------------------------------------------------------------------------------------------------------+
    448. 

  448. //------------------------------------------------------------------------------------------------------------+
    449. 

  449. 

  450.   function lgsl_query_live($type, $ip, $c_port, $q_port, $s_port, $request)
    451. 

  451.   {
    452. 

  452. //---------------------------------------------------------+
    453. 

  453. 

  454.     if (preg_match("/[^0-9a-z\.\-\[\]\:]/i", $ip))
    455. 

  455.     {
    456. 

  456.       exit("LGSL PROBLEM: INVALID IP OR HOSTNAME");
    457. 

  457.     }
    458. 

  458. 

  459.     $lgsl_protocol_list = lgsl_protocol_list();
    460. 

  460. 

  461.     if (!isset($lgsl_protocol_list[$type]))
    462. 

  462.     {
    463. 

  463.       exit("LGSL PROBLEM: ".($type ? "INVALID TYPE '{$type}'" : "MISSING TYPE")." FOR {$ip}, {$c_port}, {$q_port}, {$s_port}");
    464. 

  464.     }
    465. 

  465. 

  466.     $lgsl_function = "lgsl_query_{$lgsl_protocol_list[$type]}";
    467. 

  467. 

  468.     if (!function_exists($lgsl_function))
    469. 

  469.     {
    470. 

  470.       exit("LGSL PROBLEM: FUNCTION DOES NOT EXIST FOR: {$type}");
    471. 

  471.     }
    472. 

  472. 

  473.     if (!intval($q_port))
    474. 

  474.     {
    475. 

  475.       exit("LGSL PROBLEM: INVALID QUERY PORT");
    476. 

  476.     }
    477. 

  477. 

  478. //---------------------------------------------------------+
    479. 

  479. //  ARRAYS ARE SETUP IN ADVANCE
    480. 

  480. 

  481.     $server = array(
    482. 

  482.     "b" => array("type" => $type, "ip" => $ip, "c_port" => $c_port, "q_port" => $q_port, "s_port" => $s_port, "status" => 1),
    483. 

  483.     "s" => array("game" => "", "name" => "", "map" => "", "players" => 0, "playersmax" => 0, "password" => ""),
    484. 

  484.     "e" => array(),
    485. 

  485.     "p" => array(),
    486. 

  486.     "t" => array());
    487. 

  487. 

  488. //---------------------------------------------------------+
    489. 

  489. //  GET DATA
    490. 

  490. 

  491.     if ($lgsl_function == "lgsl_query_01") // TEST BYPAssES THE REST
    492. 

  492.     {
    493. 

  493.       $lgsl_need = ""; $lgsl_fp = "";
    494. 

  494.       $response = call_user_func_array($lgsl_function, array(&$server, &$lgsl_need, &$lgsl_fp));
    495. 

  495.       return $server;
    496. 

  496.     }
    497. 

  497. 

  498.     global $lgsl_config; // FEED ENABLED BY EXTERNAL CONFIG SETTING
    499. 

  499. 

  500.     if (!empty($lgsl_config['feed']['method']) && !empty($lgsl_config['feed']['url']))
    501. 

  501.     {
    502. 

  502.       $response = lgsl_query_feed($server, $request, $lgsl_config['feed']['method'], $lgsl_config['feed']['url']);
    503. 

  503.     }
    504. 

  504.     elseif ($lgsl_function == "lgsl_query_30")
    505. 

  505.     {
    506. 

  506.       $response = lgsl_query_direct($server, $request, $lgsl_function, "tcp");
    507. 

  507.     }
    508. 

  508. 	elseif ($lgsl_function == "lgsl_query_33")
    509. 

  509.     {
    510. 

  510.       $response = lgsl_query_direct($server, $request, $lgsl_function, "tcp");
    511. 

  511.     }
    512. 

  512.     else
    513. 

  513.     {
    514. 

  514.       $response = lgsl_query_direct($server, $request, $lgsl_function, "udp");
    515. 

  515.     }
    516. 

  516. 

  517. //---------------------------------------------------------+
    518. 

  518. //  FORMAT RESPONSE
    519. 

  519. 

  520.     if (!$response) // SERVER OFFLINE
    521. 

  521.     {
    522. 

  522.       $server['b']['status'] = 0;
    523. 

  523.     }
    524. 

  524.     else
    525. 

  525.     {
    526. 

  526.       // IF NOT RETURNED USE THE TYPE AS THE GAME
    527. 

  527.       if (empty($server['s']['game'])) { $server['s']['game'] = $type; }
    528. 

  528.       if (empty($server['s']['map']))  { $server['s']['map']  = "-"; }
    529. 

  529. 

  530.       // REMOVE FOLDERS FROM MAP NAMES
    531. 

  531.       if (($pos = strrpos($server['s']['map'], "/"))  !== FALSE) { $server['s']['map'] = substr($server['s']['map'], $pos + 1); }
    532. 

  532.       if (($pos = strrpos($server['s']['map'], "\\")) !== FALSE) { $server['s']['map'] = substr($server['s']['map'], $pos + 1); }
    533. 

  533. 

  534.       // PLAYER COUNT AND PASSWORD STATUS SHOULD BE NUMERIC
    535. 

  535.       $server['s']['players']    = intval($server['s']['players']);
    536. 

  536.       $server['s']['playersmax'] = intval($server['s']['playersmax']);
    537. 

  537. 

  538.       if (strtolower($server['s']['password']) == "false") { $server['s']['password'] = 0; }
    539. 

  539.       if (strtolower($server['s']['password']) == "true")  { $server['s']['password'] = 1; }
    540. 

  540. 

  541.       $server['s']['password']   = intval($server['s']['password']);
    542. 

  542. 

  543.       // REMOVE UN-REQUESTED AND UN-USED ARRAYS
    544. 

  544. 

  545.       if (strpos($request, "p") === FALSE && empty($server['p']) && $server['s']['players'] != 0)       { unset($server['p']); }
    546. 

  546.       if (strpos($request, "p") === FALSE && empty($server['t']))                                       { unset($server['t']); }
    547. 

  547.       if (strpos($request, "e") === FALSE && empty($server['e']))                                       { unset($server['e']); }
    548. 

  548.       if (strpos($request, "s") === FALSE && empty($server['s']['name']) && empty($server['s']['map'])) { unset($server['s']); }
    549. 

  549.     }
    550. 

  550. 

  551. //---------------------------------------------------------+
    552. 

  552. 

  553.     return $server;
    554. 

  554.   }
    555. 

  555. 

  556. //------------------------------------------------------------------------------------------------------------+
    557. 

  557. //------------------------------------------------------------------------------------------------------------+
    558. 

  558. 

  559.   function lgsl_query_direct(&$server, $request, $lgsl_function, $scheme)
    560. 

  560.   {
    561. 

  561. //---------------------------------------------------------+
    562. 

  562. 

  563.     $lgsl_fp = @fsockopen("{$scheme}://{$server['b']['ip']}", $server['b']['q_port'], $errno, $errstr, 1);
    564. 

  564. 

  565.     if (!$lgsl_fp) { return FALSE; }
    566. 

  566. 

  567. //---------------------------------------------------------+
    568. 

  568. 

  569.     global $lgsl_config;
    570. 

  570. 	
    571. 

  571. $lgsl_config['timeout'] = intval($lgsl_config['timeout']);
    572. 

  572. 

  573.     stream_set_timeout($lgsl_fp, $lgsl_config['timeout'], $lgsl_config['timeout'] ? 0 : 500000);
    574. 

  574.     stream_set_blocking($lgsl_fp, TRUE);
    575. 

  575. 

  576. //---------------------------------------------------------+
    577. 

  577. //  CHECK WHAT IS NEEDED
    578. 

  578. 

  579.     $lgsl_need      = array();
    580. 

  580.     $lgsl_need['s'] = strpos($request, "s") !== FALSE ? TRUE : FALSE;
    581. 

  581.     $lgsl_need['e'] = strpos($request, "e") !== FALSE ? TRUE : FALSE;
    582. 

  582.     $lgsl_need['p'] = strpos($request, "p") !== FALSE ? TRUE : FALSE;
    583. 

  583. 

  584.     // ChANGE [e] TO [s][e] AS BASIC QUERIES OFTEN RETURN EXTRA INFO
    585. 

  585.     if ($lgsl_need['e'] && !$lgsl_need['s']) { $lgsl_need['s'] = TRUE; }
    586. 

  586. 

  587. //---------------------------------------------------------+
    588. 

  588. //  QUERY FUNCTION IS REPEATED TO REDUCE DUPLICATE CODE
    589. 

  589. 

  590.     do
    591. 

  591.     {
    592. 

  592.       $lgsl_need_check = $lgsl_need;
    593. 

  593. 

  594.       // CALL FUNCTION REQUIRES '&$variable' TO PASS 'BY REFERENCE'
    595. 

  595.       $response = call_user_func_array($lgsl_function, array(&$server, &$lgsl_need, &$lgsl_fp));
    596. 

  596. 

  597.       // CHECK IF SERVER IS OFFLINE
    598. 

  598.       if (!$response) { break; }
    599. 

  599. 

  600.       // CHECK IF NEED HAS NOT CHANGED - THIS SERVES TWO PURPOSES - TO PREVENT INFINITE LOOPS - AND TO
    601. 

  601.       // AVOID WRITING $lgsl_need = FALSE FALSE FALSE FOR GAMES THAT RETURN ALL DATA IN ONE RESPONSE
    602. 

  602.       if ($lgsl_need_check == $lgsl_need) { break; }
    603. 

  603. 

  604.       // OPTIMIZATION THAT SKIPS REQUEST FOR PLAYER DETAILS WHEN THE SERVER IS KNOWN TO BE EMPTY
    605. 

  605.       if ($lgsl_need['p'] && $server['s']['players'] == "0") { $lgsl_need['p'] = FALSE; }
    606. 

  606.     }
    607. 

  607.     while ($lgsl_need['s'] == TRUE || $lgsl_need['e'] == TRUE || $lgsl_need['p'] == TRUE);
    608. 

  608. 

  609. //---------------------------------------------------------+
    610. 

  610. 

  611.     @fclose($lgsl_fp);
    612. 

  612. 

  613.     return $response;
    614. 

  614.   }
    615. 

  615. 

  616. //------------------------------------------------------------------------------------------------------------+
    617. 

  617. //------------------------------------------------------------------------------------------------------------+
    618. 

  618. 

  619.   function lgsl_query_01(&$server, &$lgsl_need, &$lgsl_fp)
    620. 

  620.   {
    621. 

  621. //---------------------------------------------------------+
    622. 

  622. //  PROTOCOL FOR DEVELOPING WITHOUT USING LIVE SERVERS TO HELP ENSURE RETURNED
    623. 

  623. //  DATA IS SANITIZED AND THAT LONG SERVER AND PLAYER NAMES ARE HANDLED PROPERLY
    624. 

  624. 

  625.     $server['s'] = array(
    626. 

  626.     "game"       => "test_game",
    627. 

  627.     "name"       => "test_ServerNameThatsOften'Really'LongAndCanHaveSymbols<hr />ThatWill\"Screw\"UpHtmlUnlessEntitied",
    628. 

  628.     "map"        => "test_map",
    629. 

  629.     "players"    => rand(0,  16),
    630. 

  630.     "playersmax" => rand(16, 32),
    631. 

  631.     "password"   => rand(0,  1));
    632. 

  632. 

  633. //---------------------------------------------------------+
    634. 

  634. 

  635.     $server['e'] = array(
    636. 

  636.     "testextra1" => "normal",
    637. 

  637.     "testextra2" => 123,
    638. 

  638.     "testextra3" => time(),
    639. 

  639.     "testextra4" => "",
    640. 

  640.     "testextra5" => "<b>Setting<hr />WithHtml</b>",
    641. 

  641.     "testextra6" => "ReallyLongSettingLikeSomeMapCyclesThatHaveNoSpacesAndCauseThePageToGoReallyWideIfNotBrokenUp");
    642. 

  642. 

  643. //---------------------------------------------------------+
    644. 

  644. 

  645.     $server['p']['0']['name']  = "Normal";
    646. 

  646.     $server['p']['0']['score'] = "12";
    647. 

  647.     $server['p']['0']['ping']  = "34";
    648. 

  648. 

  649.     $server['p']['1']['name']  = "\xc3\xa9\x63\x68\x6f\x20\xd0\xb8-d0\xb3\xd1\x80\xd0\xbe\xd0\xba"; // UTF PLAYER NAME
    650. 

  650.     $server['p']['1']['score'] = "56";
    651. 

  651.     $server['p']['1']['ping']  = "78";
    652. 

  652. 

  653.     $server['p']['2']['name']  = "One&<Two>&Three&\"Four\"&'Five'";
    654. 

  654.     $server['p']['2']['score'] = "90";
    655. 

  655.     $server['p']['2']['ping']  = "12";
    656. 

  656. 

  657.     $server['p']['3']['name']  = "ReallyLongPlayerNameBecauseTheyAreUberCoolAndAreInFiveClans";
    658. 

  658.     $server['p']['3']['score'] = "90";
    659. 

  659.     $server['p']['3']['ping']  = "12";
    660. 

  660. 

  661. //---------------------------------------------------------+
    662. 

  662. 

  663.     if (rand(0, 10) == 5) { $server['p'] = array(); } // RANDOM NO PLAYERS
    664. 

  664.     if (rand(0, 10) == 5) { return FALSE; }           // RANDOM GOING OFFLINE
    665. 

  665. 

  666. //---------------------------------------------------------+
    667. 

  667. 

  668.     return TRUE;
    669. 

  669.   }
    670. 

  670. 

  671. //------------------------------------------------------------------------------------------------------------+
    672. 

  672. //------------------------------------------------------------------------------------------------------------+
    673. 

  673. 

  674.   function lgsl_query_02(&$server, &$lgsl_need, &$lgsl_fp)
    675. 

  675.   {
    676. 

  676. //---------------------------------------------------------+
    677. 

  677. 

  678.     if     ($server['b']['type'] == "quake2")              { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFFstatus");        }
    679. 

  679.     elseif ($server['b']['type'] == "warsowold")           { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFFgetinfo");       }
    680. 

  680.     elseif (strpos($server['b']['type'], "moh") !== FALSE) { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFF\x02getstatus"); } // mohaa_ mohaab_ mohaas_ mohpa_
    681. 

  681.     else                                                   { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFFgetstatus");     }
    682. 

  682. 

  683.     $buffer = fread($lgsl_fp, 4096);
    684. 

  684. 

  685.     if (!$buffer) { return FALSE; }
    686. 

  686. 

  687. //---------------------------------------------------------+
    688. 

  688. 

  689.     $part = explode("\n", $buffer);  // SPLIT INTO PARTS: HEADER/SETTINGS/PLAYERS/FOOTER
    690. 

  690.     array_pop($part);                // REMOVE FOOTER WHICH IS EITHER NULL OR "\challenge\"
    691. 

  691.     $item = explode("\\", $part[1]); // SPLIT PART INTO ITEMS
    692. 

  692. 

  693.     foreach ($item as $item_key => $data_key)
    694. 

  694.     {
    695. 

  695.       if (!($item_key % 2)) { continue; } // SKIP EVEN KEYS
    696. 

  696. 

  697.       $data_key               = strtolower(lgsl_parse_color($data_key, "1"));
    698. 

  698.       $server['e'][$data_key] = lgsl_parse_color($item[$item_key+1], "1");
    699. 

  699.     }
    700. 

  700. 

  701. //---------------------------------------------------------+
    702. 

  702. 

  703.     if (!empty($server['e']['hostname']))    { $server['s']['name'] = $server['e']['hostname']; }
    704. 

  704.     if (!empty($server['e']['sv_hostname'])) { $server['s']['name'] = $server['e']['sv_hostname']; }
    705. 

  705. 

  706.     if (isset($server['e']['gamename'])) { $server['s']['game'] = $server['e']['gamename']; }
    707. 

  707.     if (isset($server['e']['mapname']))  { $server['s']['map']  = $server['e']['mapname']; }
    708. 

  708. 

  709.     $server['s']['players'] = empty($part['2']) ? 0 : count($part) - 2;
    710. 

  710. 

  711.     if (isset($server['e']['maxclients']))    { $server['s']['playersmax'] = $server['e']['maxclients']; }    // QUAKE 2
    712. 

  712.     if (isset($server['e']['sv_maxclients'])) { $server['s']['playersmax'] = $server['e']['sv_maxclients']; }
    713. 

  713. 

  714.     if (isset($server['e']['pswrd']))      { $server['s']['password'] = $server['e']['pswrd']; }              // CALL OF DUTY
    715. 

  715.     if (isset($server['e']['needpass']))   { $server['s']['password'] = $server['e']['needpass']; }           // QUAKE 2
    716. 

  716.     if (isset($server['e']['g_needpass'])) { $server['s']['password'] = $server['e']['g_needpass']; }
    717. 

  717. 

  718.     array_shift($part); // REMOVE HEADER
    719. 

  719.     array_shift($part); // REMOVE SETTING
    720. 

  720. 

  721. //---------------------------------------------------------+
    722. 

  722. 

  723.     if ($server['b']['type'] == "nexuiz") // (SCORE) (PING) (TEAM IF TEAM GAME) "(NAME)"
    724. 

  724.     {
    725. 

  725.       $pattern = "/(.*) (.*) (.*)\"(.*)\"/U"; $fields = array(1=>"score", 2=>"ping", 3=>"team", 4=>"name");
    726. 

  726.     }
    727. 

  727.     elseif ($server['b']['type'] == "warsow") // (SCORE) (PING) "(NAME)" (TEAM)
    728. 

  728.     {
    729. 

  729.       $pattern = "/(.*) (.*) \"(.*)\" (.*)/"; $fields = array(1=>"score", 2=>"ping", 3=>"name", 4=>"team");
    730. 

  730.     }
    731. 

  731.     elseif ($server['b']['type'] == "sof2") // (SCORE) (PING) (DEATHS) "(NAME)"
    732. 

  732.     {
    733. 

  733.       $pattern = "/(.*) (.*) (.*) \"(.*)\"/"; $fields = array(1=>"score", 2=>"ping", 3=>"deaths", 4=>"name");
    734. 

  734.     }
    735. 

  735.     elseif (strpos($server['b']['type'], "mohpa") !== FALSE) // (?) (SCORE) (?) (TIME) (?) "(RANK?)" "(NAME)"
    736. 

  736.     {
    737. 

  737.       $pattern = "/(.*) (.*) (.*) (.*) (.*) \"(.*)\" \"(.*)\"/"; $fields = array(2=>"score", 3=>"deaths", 4=>"time", 6=>"rank", 7=>"name");
    738. 

  738.     }
    739. 

  739.     elseif (strpos($server['b']['type'], "moh") !== FALSE) // (PING) "(NAME)"
    740. 

  740.     {
    741. 

  741.       $pattern = "/(.*) \"(.*)\"/"; $fields = array(1=>"ping", 2=>"name");
    742. 

  742.     }
    743. 

  743.     else // (SCORE) (PING) "(NAME)"
    744. 

  744.     {
    745. 

  745.       $pattern = "/(.*) (.*) \"(.*)\"/"; $fields = array(1=>"score", 2=>"ping", 3=>"name");
    746. 

  746.     }
    747. 

  747. 

  748. //---------------------------------------------------------+
    749. 

  749. 

  750.     foreach ($part as $player_key => $data)
    751. 

  751.     {
    752. 

  752.       if (!$data) { continue; }
    753. 

  753. 

  754.       preg_match($pattern, $data, $match);
    755. 

  755. 

  756.       foreach ($fields as $match_key => $field_name)
    757. 

  757.       {
    758. 

  758.         if (isset($match[$match_key])) { $server['p'][$player_key][$field_name] = trim($match[$match_key]); }
    759. 

  759.       }
    760. 

  760. 

  761.       $server['p'][$player_key]['name'] = lgsl_parse_color($server['p'][$player_key]['name'], "1");
    762. 

  762. 

  763.       if (isset($server['p'][$player_key]['time']))
    764. 

  764.       {
    765. 

  765.         $server['p'][$player_key]['time'] = lgsl_time($server['p'][$player_key]['time']);
    766. 

  766.       }
    767. 

  767.     }
    768. 

  768. 

  769. //---------------------------------------------------------+
    770. 

  770. 

  771.     return TRUE;
    772. 

  772.   }
    773. 

  773. 

  774. //------------------------------------------------------------------------------------------------------------+
    775. 

  775. //------------------------------------------------------------------------------------------------------------+
    776. 

  776. 

  777.   function lgsl_query_03(&$server, &$lgsl_need, &$lgsl_fp)
    778. 

  778.   {
    779. 

  779. //---------------------------------------------------------+
    780. 

  780. 

  781.     // BF1942 HAS A BUG WHERE IT RETURNS EXTRA NAMES - TO SKIP THESE 'GHOSTS' LATER WE NEED AN [s] REQUEST TO GET THE CURRENT NUMBER OF PLAYERS
    782. 

  782.     if ($server['b']['type'] == "bf1942" && $lgsl_need['p'] && !$lgsl_need['s'] && !isset($lgsl_need['sp'])) { $lgsl_need['s'] = TRUE; $lgsl_need['sp'] = TRUE; }
    783. 

  783. 

  784.     if     ($server['b']['type'] == "cncrenegade") { fwrite($lgsl_fp, "\\status\\"); }
    785. 

  785.     elseif ($lgsl_need['s'] || $lgsl_need['e'])    { fwrite($lgsl_fp, "\\basic\\\\info\\\\rules\\"); $lgsl_need['s'] = FALSE; $lgsl_need['e'] = FALSE; }
    786. 

  786.     elseif ($lgsl_need['p'])                       { fwrite($lgsl_fp, "\\players\\");                $lgsl_need['p'] = FALSE; }
    787. 

  787. 

  788. //---------------------------------------------------------+
    789. 

  789. 

  790.     $buffer = "";
    791. 

  791.     $packet_count = 0;
    792. 

  792.     $packet_total = 20;
    793. 

  793. 

  794.     do
    795. 

  795.     {
    796. 

  796.       $packet = fread($lgsl_fp, 4096);
    797. 

  797. 

  798.       // QUERY PORT CHECK AS THE CONNECTION PORT WILL ALSO RESPOND
    799. 

  799.       if (strpos($packet, "\\") === FALSE) { return FALSE; }
    800. 

  800. 

  801.       // REMOVE SLASH PREFIX
    802. 

  802.       if ($packet[0] == "\\") { $packet = substr($packet, 1); }
    803. 

  803. 

  804.       // QUICK AND DIRTY FIX FOR AVP2 HAVING PREFIXES ON THE PLAYER NAMES
    805. 

  805.       if (!$lgsl_need['s'] && !$lgsl_need['e'] && $server['b']['type'] == "avp2") { $packet = preg_replace("/\\\[0-9]+~/", "\\", $packet); }
    806. 

  806. 

  807.       while ($packet)
    808. 

  808.       {
    809. 

  809.         $key   = strtolower(lgsl_cut_string($packet, 0, "\\"));
    810. 

  810.         $value =       trim(lgsl_cut_string($packet, 0, "\\"));
    811. 

  811. 

  812.         // CHECK IF KEY IS PLAYER DATA
    813. 

  813.         if (preg_match("/(.*)_([0-9]+)$/", $key, $match))
    814. 

  814.         {
    815. 

  815.           // SEPERATE TEAM NAMES
    816. 

  816.           if ($match[1] == "teamname") { $server['t'][$match[2]]['name'] = $value; continue; }
    817. 

  817. 

  818.           // CONVERT TO LGSL STANDARD
    819. 

  819.           if     ($match[1] == "player")     { $match[1] = "name";  }
    820. 

  820.           elseif ($match[1] == "playername") { $match[1] = "name";  }
    821. 

  821.           elseif ($match[1] == "frags")      { $match[1] = "score"; }
    822. 

  822.           elseif ($match[1] == "ngsecret")   { $match[1] = "stats"; }
    823. 

  823. 

  824.           $server['p'][$match[2]][$match[1]] = $value; continue;
    825. 

  825.         }
    826. 

  826. 

  827.         // SEPERATE QUERYID
    828. 

  828.         if ($key == "queryid") { $queryid = $value; continue; }
    829. 

  829. 

  830.         // SERVER SETTING
    831. 

  831.         $server['e'][$key] = $value;
    832. 

  832.       }
    833. 

  833. 

  834.       // FINAL PACKET NUMBER IS THE TOTAL
    835. 

  835.       if (isset($server['e']['final']))
    836. 

  836.       {
    837. 

  837.         preg_match("/([0-9]+)\.([0-9]+)/", $queryid, $match);
    838. 

  838.         $packet_total = intval($match[2]);
    839. 

  839.         unset($server['e']['final']);
    840. 

  840.       }
    841. 

  841. 

  842.       $packet_count ++;
    843. 

  843.     }
    844. 

  844.     while ($packet_count < $packet_total);
    845. 

  845. 

  846. //---------------------------------------------------------+
    847. 

  847. 

  848.     if ($server['e']['mapname'])
    849. 

  849.     {
    850. 

  850.       $server['s']['map'] = $server['e']['mapname'];
    851. 

  851. 

  852.       if (!empty($server['e']['hostname']))    { $server['s']['name'] = $server['e']['hostname']; }
    853. 

  853.       if (!empty($server['e']['sv_hostname'])) { $server['s']['name'] = $server['e']['sv_hostname']; }
    854. 

  854. 

  855.       if (!empty($server['e']['gamename']))                                   { $server['s']['game'] = $server['e']['gamename']; }
    856. 

  856.       if (!empty($server['e']['gameid']) && empty($server['e']['gamename']))  { $server['s']['game'] = $server['e']['gameid']; }
    857. 

  857.       if (!empty($server['e']['gameid']) && $server['b']['type'] == "bf1942") { $server['s']['game'] = $server['e']['gameid']; }
    858. 

  858. 

  859.       if (isset($server['e']['mapname']))    { $server['s']['map']        = $server['e']['mapname']; }
    860. 

  860.       if (isset($server['e']['numplayers'])) { $server['s']['players']    = $server['e']['numplayers']; }
    861. 

  861.       if (isset($server['e']['maxplayers'])) { $server['s']['playersmax'] = $server['e']['maxplayers']; }
    862. 

  862.       if (isset($server['e']['password']))   { $server['s']['password']   = $server['e']['password']; }
    863. 

  863.     }
    864. 

  864. 

  865. //---------------------------------------------------------+
    866. 

  866. 

  867.     if ($server['p'])
    868. 

  868.     {
    869. 

  869.       // REMOVE BF1942 GHOST PLAYERS WHICH ALSO RE-INDEXES PLAYER KEYS
    870. 

  870.       if ($server['b']['type'] == "bf1942" && $server['s']['players']) { $server['p'] = array_slice($server['p'], 0, $server['s']['players']); }
    871. 

  871. 

  872.       // OPERATION FLASHPOINT BUG: 'GHOST' PLAYERS IN UN-USED 'TEAM' FIELD
    873. 

  873.       if ($server['b']['type'] == "flashpoint")
    874. 

  874.       {
    875. 

  875.         foreach ($server['p'] as $key => $value)
    876. 

  876.         {
    877. 

  877.           unset($server['p'][$key]['team']);
    878. 

  878.         }
    879. 

  879.       }
    880. 

  880. 

  881.       // AVP2 BUG: PLAYER NUMBER PREFIXED TO NAMES
    882. 

  882.       if ($server['b']['type'] == "avp2")
    883. 

  883.       {
    884. 

  884.         foreach ($server['p'] as $key => $value)
    885. 

  885.         {
    886. 

  886.           $server['p'][$key]['name'] = preg_replace("/[0-9]+~/", "", $server['p'][$key]['name']);
    887. 

  887.         }
    888. 

  888.       }
    889. 

  889. 

  890.       // CHANGE TEAM NUMBERS TO TEAM NAMES IF POSSIBLE
    891. 

  891.       if (isset($server['t'][0]['name']))
    892. 

  892.       {
    893. 

  893.         foreach ($server['p'] as $key => $value)
    894. 

  894.         {
    895. 

  895.           $team_key = $server['p'][$key]['team'] - 1;
    896. 

  896.           $server['p'][$key]['team'] = $server['t'][$team_key]['name'];
    897. 

  897.         }
    898. 

  898.       }
    899. 

  899. 

  900.       // RE-INDEX PLAYER KEYS TO REMOVE ANY GAPS
    901. 

  901.       $server['p'] = array_values($server['p']);
    902. 

  902.     }
    903. 

  903. 

  904.     return TRUE;
    905. 

  905.   }
    906. 

  906. 

  907. //------------------------------------------------------------------------------------------------------------+
    908. 

  908. //------------------------------------------------------------------------------------------------------------+
    909. 

  909. 

  910.   function lgsl_query_04(&$server, &$lgsl_need, &$lgsl_fp)
    911. 

  911.   {
    912. 

  912. //---------------------------------------------------------+
    913. 

  913. 

  914.     fwrite($lgsl_fp, "REPORT");
    915. 

  915. 

  916.     $buffer = fread($lgsl_fp, 4096);
    917. 

  917. 

  918.     if (!$buffer) { return FALSE; }
    919. 

  919. 

  920. //---------------------------------------------------------+
    921. 

  921. 

  922.     $lgsl_ravenshield_key = array(
    923. 

  923.     "A1" => "playersmax",
    924. 

  924.     "A2" => "tkpenalty",
    925. 

  925.     "B1" => "players",
    926. 

  926.     "B2" => "allowradar",
    927. 

  927.     "D2" => "version",
    928. 

  928.     "E1" => "mapname",
    929. 

  929.     "E2" => "lid",
    930. 

  930.     "F1" => "maptype",
    931. 

  931.     "F2" => "gid",
    932. 

  932.     "G1" => "password",
    933. 

  933.     "G2" => "hostport",
    934. 

  934.     "H1" => "dedicated",
    935. 

  935.     "H2" => "terroristcount",
    936. 

  936.     "I1" => "hostname",
    937. 

  937.     "I2" => "aibackup",
    938. 

  938.     "J1" => "mapcycletypes",
    939. 

  939.     "J2" => "rotatemaponsuccess",
    940. 

  940.     "K1" => "mapcycle",
    941. 

  941.     "K2" => "forcefirstpersonweapons",
    942. 

  942.     "L1" => "players_name",
    943. 

  943.     "L2" => "gamename",
    944. 

  944.     "L3" => "punkbuster",
    945. 

  945.     "M1" => "players_time",
    946. 

  946.     "N1" => "players_ping",
    947. 

  947.     "O1" => "players_score",
    948. 

  948.     "P1" => "queryport",
    949. 

  949.     "Q1" => "rounds",
    950. 

  950.     "R1" => "roundtime",
    951. 

  951.     "S1" => "bombtimer",
    952. 

  952.     "T1" => "bomb",
    953. 

  953.     "W1" => "allowteammatenames",
    954. 

  954.     "X1" => "iserver",
    955. 

  955.     "Y1" => "friendlyfire",
    956. 

  956.     "Z1" => "autobalance");
    957. 

  957. 

  958. //---------------------------------------------------------+
    959. 

  959. 

  960.     $item = explode("\xB6", $buffer);
    961. 

  961. 

  962.     foreach ($item as $data_value)
    963. 

  963.     {
    964. 

  964.       $tmp = explode(" ", $data_value, 2);
    965. 

  965.       $data_key = isset($lgsl_ravenshield_key[$tmp[0]]) ? $lgsl_ravenshield_key[$tmp[0]] : $tmp[0]; // CONVERT TO DESCRIPTIVE KEYS
    966. 

  966.       $server['e'][$data_key] = trim($tmp[1]); // ALL VALUES NEED TRIMMING
    967. 

  967.     }
    968. 

  968. 

  969.     $server['e']['mapcycle']      = str_replace("/"," ", $server['e']['mapcycle']);      // CONVERT SLASH TO SPACE
    970. 

  970.     $server['e']['mapcycletypes'] = str_replace("/"," ", $server['e']['mapcycletypes']); // SO LONG LISTS WRAP
    971. 

  971. 

  972. //---------------------------------------------------------+
    973. 

  973. 

  974.     $server['s']['game']       = $server['e']['gamename'];
    975. 

  975.     $server['s']['name']       = $server['e']['hostname'];
    976. 

  976.     $server['s']['map']        = $server['e']['mapname'];
    977. 

  977.     $server['s']['players']    = $server['e']['players'];
    978. 

  978.     $server['s']['playersmax'] = $server['e']['playersmax'];
    979. 

  979.     $server['s']['password']   = $server['e']['password'];
    980. 

  980. 

  981. //---------------------------------------------------------+
    982. 

  982. 

  983.     $player_name  = isset($server['e']['players_name'])  ? explode("/", substr($server['e']['players_name'],  1)) : array(); unset($server['e']['players_name']);
    984. 

  984.     $player_time  = isset($server['e']['players_time'])  ? explode("/", substr($server['e']['players_time'],  1)) : array(); unset($server['e']['players_time']);
    985. 

  985.     $player_ping  = isset($server['e']['players_ping'])  ? explode("/", substr($server['e']['players_ping'],  1)) : array(); unset($server['e']['players_ping']);
    986. 

  986.     $player_score = isset($server['e']['players_score']) ? explode("/", substr($server['e']['players_score'], 1)) : array(); unset($server['e']['players_score']);
    987. 

  987. 

  988.     foreach ($player_name as $key => $name)
    989. 

  989.     {
    990. 

  990.       $server['p'][$key]['name']  = $player_name[$key];
    991. 

  991.       $server['p'][$key]['time']  = $player_time[$key];
    992. 

  992.       $server['p'][$key]['ping']  = $player_ping[$key];
    993. 

  993.       $server['p'][$key]['score'] = $player_score[$key];
    994. 

  994.     }
    995. 

  995. 

  996. //---------------------------------------------------------+
    997. 

  997. 

  998.     return TRUE;
    999. 

  999.   }
    1000. 

  1000. 

  1001. //------------------------------------------------------------------------------------------------------------+
    1002. 

  1002. //------------------------------------------------------------------------------------------------------------+
    1003. 

  1003. 

  1004.   function lgsl_query_05(&$server, &$lgsl_need, &$lgsl_fp)
    1005. 

  1005.   {
    1006. 

  1006. //---------------------------------------------------------+
    1007. 

  1007. //  REFERENCE: http://developer.valvesoftware.com/wiki/Server_Queries
    1008. 

  1008. 

  1009.     if ($server['b']['type'] == "halflifewon")
    1010. 

  1010.     {
    1011. 

  1011.       if     ($lgsl_need['s']) { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFFdetails\x00"); }
    1012. 

  1012.       elseif ($lgsl_need['p']) { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFFplayers\x00"); }
    1013. 

  1013.       elseif ($lgsl_need['e']) { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFFrules\x00");   }
    1014. 

  1014.     }
    1015. 

  1015.     else
    1016. 

  1016.     {
    1017. 

  1017.       $challenge_code = isset($lgsl_need['challenge']) ? $lgsl_need['challenge'] : "\x00\x00\x00\x00";
    1018. 

  1018. 

  1019.       if     ($lgsl_need['s']) { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFF\x54Source Engine Query\x00"); }
    1020. 

  1020.       elseif ($lgsl_need['p']) { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFF\x55{$challenge_code}");       }
    1021. 

  1021.       elseif ($lgsl_need['e']) { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFF\x56{$challenge_code}");       }
    1022. 

  1022.     }
    1023. 

  1023. 

  1024. //---------------------------------------------------------+
    1025. 

  1025. //  THE STANDARD HEADER POSITION REVEALS THE TYPE BUT IT MAY NOT ARRIVE FIRST
    1026. 

  1026. //  ONCE WE KNOW THE TYPE WE CAN FIND THE TOTAL NUMBER OF PACKETS EXPECTED
    1027. 

  1027. 

  1028.     $packet_temp  = array();
    1029. 

  1029.     $packet_type  = 0;
    1030. 

  1030.     $packet_count = 0;
    1031. 

  1031.     $packet_total = 4;
    1032. 

  1032. 

  1033.     do
    1034. 

  1034.     {
    1035. 

  1035.       $packet = fread($lgsl_fp, 4096); if (!$packet) { return FALSE; }
    1036. 

  1036. 

  1037.       //---------------------------------------------------------------------------------------------------------------------------------+
    1038. 

  1038.       // NEWER HL1 SERVERS REPLY TO A2S_INFO WITH 3 PACKETS ( HL1 FORMAT INFO, SOURCE FORMAT INFO, PLAYERS )
    1039. 

  1039.       // THIS DISCARDS UN-EXPECTED PACKET FORMATS ON THE GO ( AS READING IN ADVANCE CAUSES TIMEOUT DELAYS FOR OTHER SERVER VERSIONS )
    1040. 

  1040.       // ITS NOT PERFECT AS [s] CAN FLIP BETWEEN HL1 AND SOURCE FORMATS DEPENDING ON ARRIVAL ORDER ( MAYBE FIX WITH RETURN ON HL1 APPID )
    1041. 

  1041.       if     ($lgsl_need['s']) { if ($packet[4] == "D")                                           { continue; } }
    1042. 

  1042.       elseif ($lgsl_need['p']) { if ($packet[4] == "m" || $packet[4] == "I")                      { continue; } }
    1043. 

  1043.       elseif ($lgsl_need['e']) { if ($packet[4] == "m" || $packet[4] == "I" || $packet[4] == "D") { continue; } }
    1044. 

  1044.       //---------------------------------------------------------------------------------------------------------------------------------+
    1045. 

  1045. 

  1046.       if     (substr($packet, 0,  5) == "\xFF\xFF\xFF\xFF\x41") { $lgsl_need['challenge'] = substr($packet, 5,  4); return TRUE; } // REPEAT WITH GIVEN CHALLENGE CODE
    1047. 

  1047.       elseif (substr($packet, 0,  4) == "\xFF\xFF\xFF\xFF")     { $packet_total = 1;                     $packet_type = 1;       } // SINGLE PACKET - HL1 OR HL2
    1048. 

  1048.       elseif (substr($packet, 9,  4) == "\xFF\xFF\xFF\xFF")     { $packet_total = ord($packet[8]) & 0xF; $packet_type = 2;       } // MULTI PACKET  - HL1 ( TOTAL IS LOWER NIBBLE OF BYTE )
    1049. 

  1049.       elseif (substr($packet, 12, 4) == "\xFF\xFF\xFF\xFF")     { $packet_total = ord($packet[8]);       $packet_type = 3;       } // MULTI PACKET  - HL2
    1050. 

  1050.       elseif (substr($packet, 18, 2) == "BZ")                   { $packet_total = ord($packet[8]);       $packet_type = 4;       } // BZIP PACKET   - HL2
    1051. 

  1051. 

  1052.       $packet_count ++;
    1053. 

  1053.       $packet_temp[] = $packet;
    1054. 

  1054.     }
    1055. 

  1055.     while ($packet && $packet_count < $packet_total);
    1056. 

  1056. 

  1057.     if ($packet_type == 0) { return $server['s'] ? TRUE : FALSE; } // UNKNOWN RESPONSE ( SOME SERVERS ONLY SEND [s] )
    1058. 

  1058. 

  1059. //---------------------------------------------------------+
    1060. 

  1060. //  WITH THE TYPE WE CAN NOW SORT AND JOIN THE PACKETS IN THE CORRECT ORDER
    1061. 

  1061. //  REMOVING ANY EXTRA HEADERS IN THE PROCESS
    1062. 

  1062. 

  1063.     $buffer = array();
    1064. 

  1064. 

  1065.     foreach ($packet_temp as $packet)
    1066. 

  1066.     {
    1067. 

  1067.       if     ($packet_type == 1) { $packet_order = 0; }
    1068. 

  1068.       elseif ($packet_type == 2) { $packet_order = ord($packet[8]) >> 4; $packet = substr($packet, 9);  } // ( INDEX IS UPPER NIBBLE OF BYTE )
    1069. 

  1069.       elseif ($packet_type == 3) { $packet_order = ord($packet[9]);      $packet = substr($packet, 12); }
    1070. 

  1070.       elseif ($packet_type == 4) { $packet_order = ord($packet[9]);      $packet = substr($packet, 18); }
    1071. 

  1071. 

  1072.       $buffer[$packet_order] = $packet;
    1073. 

  1073.     }
    1074. 

  1074. 

  1075.     ksort($buffer);
    1076. 

  1076. 

  1077.     $buffer = implode("", $buffer);
    1078. 

  1078. 

  1079. //---------------------------------------------------------+
    1080. 

  1080. //  WITH THE PACKETS JOINED WE CAN NOW DECOMPRESS BZIP PACKETS
    1081. 

  1081. //  THEN REMOVE THE STANDARD HEADER AND CHECK ITS CORRECT
    1082. 

  1082. 

  1083.     if ($packet_type == 4)
    1084. 

  1084.     {
    1085. 

  1085.       if (!function_exists("bzdecompress")) // REQUIRES http://php.net/bzip2
    1086. 

  1086.       {
    1087. 

  1087.         $server['e']['bzip2'] = "unavailable"; $lgsl_need['e'] = FALSE;
    1088. 

  1088.         return TRUE;
    1089. 

  1089.       }
    1090. 

  1090. 

  1091.       $buffer = bzdecompress($buffer);
    1092. 

  1092.     }
    1093. 

  1093. 

  1094.     $header = lgsl_cut_byte($buffer, 4);
    1095. 

  1095. 

  1096.     if ($header != "\xFF\xFF\xFF\xFF") { return FALSE; } // SOMETHING WENT WRONG
    1097. 

  1097. 

  1098. //---------------------------------------------------------+
    1099. 

  1099. 

  1100.     $response_type = lgsl_cut_byte($buffer, 1);
    1101. 

  1101. 

  1102.     if ($response_type == "I") // SOURCE INFO ( HALF-LIFE 2 )
    1103. 

  1103.     {
    1104. 

  1104.       $server['e']['netcode']     = ord(lgsl_cut_byte($buffer, 1));
    1105. 

  1105.       $server['s']['name']        = lgsl_cut_string($buffer);
    1106. 

  1106.       $server['s']['map']         = lgsl_cut_string($buffer);
    1107. 

  1107.       $server['s']['game']        = lgsl_cut_string($buffer);
    1108. 

  1108.       $server['e']['description'] = lgsl_cut_string($buffer);
    1109. 

  1109.       $server['e']['appid']       = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1110. 

  1110.       $server['s']['players']     = ord(lgsl_cut_byte($buffer, 1));
    1111. 

  1111.       $server['s']['playersmax']  = ord(lgsl_cut_byte($buffer, 1));
    1112. 

  1112.       $server['e']['bots']        = ord(lgsl_cut_byte($buffer, 1));
    1113. 

  1113.       $server['e']['dedicated']   = lgsl_cut_byte($buffer, 1);
    1114. 

  1114.       $server['e']['os']          = lgsl_cut_byte($buffer, 1);
    1115. 

  1115.       $server['s']['password']    = ord(lgsl_cut_byte($buffer, 1));
    1116. 

  1116.       $server['e']['anticheat']   = ord(lgsl_cut_byte($buffer, 1));
    1117. 

  1117.       $server['e']['version']     = lgsl_cut_string($buffer);
    1118. 

  1118.     }
    1119. 

  1119. 

  1120.     elseif ($response_type == "m") // HALF-LIFE 1 INFO
    1121. 

  1121.     {
    1122. 

  1122.       $server_ip                  = lgsl_cut_string($buffer);
    1123. 

  1123.       $server['s']['name']        = lgsl_cut_string($buffer);
    1124. 

  1124.       $server['s']['map']         = lgsl_cut_string($buffer);
    1125. 

  1125.       $server['s']['game']        = lgsl_cut_string($buffer);
    1126. 

  1126.       $server['e']['description'] = lgsl_cut_string($buffer);
    1127. 

  1127.       $server['s']['players']     = ord(lgsl_cut_byte($buffer, 1));
    1128. 

  1128.       $server['s']['playersmax']  = ord(lgsl_cut_byte($buffer, 1));
    1129. 

  1129.       $server['e']['netcode']     = ord(lgsl_cut_byte($buffer, 1));
    1130. 

  1130.       $server['e']['dedicated']   = lgsl_cut_byte($buffer, 1);
    1131. 

  1131.       $server['e']['os']          = lgsl_cut_byte($buffer, 1);
    1132. 

  1132.       $server['s']['password']    = ord(lgsl_cut_byte($buffer, 1));
    1133. 

  1133. 

  1134.       if (ord(lgsl_cut_byte($buffer, 1))) // MOD FIELDS ( OFF FOR SOME HALFLIFEWON-VALVE SERVERS )
    1135. 

  1135.       {
    1136. 

  1136.         $server['e']['mod_url_info']     = lgsl_cut_string($buffer);
    1137. 

  1137.         $server['e']['mod_url_download'] = lgsl_cut_string($buffer);
    1138. 

  1138.         $buffer = substr($buffer, 1);
    1139. 

  1139.         $server['e']['mod_version']      = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    1140. 

  1140.         $server['e']['mod_size']         = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    1141. 

  1141.         $server['e']['mod_server_side']  = ord(lgsl_cut_byte($buffer, 1));
    1142. 

  1142.         $server['e']['mod_custom_dll']   = ord(lgsl_cut_byte($buffer, 1));
    1143. 

  1143.       }
    1144. 

  1144. 

  1145.       $server['e']['anticheat'] = ord(lgsl_cut_byte($buffer, 1));
    1146. 

  1146.       $server['e']['bots']      = ord(lgsl_cut_byte($buffer, 1));
    1147. 

  1147.     }
    1148. 

  1148. 

  1149.     elseif ($response_type == "D") // SOURCE AND HALF-LIFE 1 PLAYERS
    1150. 

  1150.     {
    1151. 

  1151.       $returned = ord(lgsl_cut_byte($buffer, 1));
    1152. 

  1152. 

  1153.       $player_key = 0;
    1154. 

  1154. 

  1155.       while ($buffer)
    1156. 

  1156.       {
    1157. 

  1157.         $server['p'][$player_key]['pid']   = ord(lgsl_cut_byte($buffer, 1));
    1158. 

  1158.         $server['p'][$player_key]['name']  = lgsl_cut_string($buffer);
    1159. 

  1159.         $server['p'][$player_key]['score'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    1160. 

  1160.         $server['p'][$player_key]['time']  = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 4), "f"));
    1161. 

  1161. 

  1162.         $player_key ++;
    1163. 

  1163.       }
    1164. 

  1164.     }
    1165. 

  1165. 

  1166.     elseif ($response_type == "E") // SOURCE AND HALF-LIFE 1 RULES
    1167. 

  1167.     {
    1168. 

  1168.       $returned = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1169. 

  1169. 

  1170.       while ($buffer)
    1171. 

  1171.       {
    1172. 

  1172.         $item_key   = strtolower(lgsl_cut_string($buffer));
    1173. 

  1173.         $item_value = lgsl_cut_string($buffer);
    1174. 

  1174. 

  1175.         $server['e'][$item_key] = $item_value;
    1176. 

  1176.       }
    1177. 

  1177.     }
    1178. 

  1178. 

  1179. //---------------------------------------------------------+
    1180. 

  1180. 

  1181.     // IF ONLY [s] WAS REQUESTED THEN REMOVE INCOMPLETE [e]
    1182. 

  1182.     if ($lgsl_need['s'] && !$lgsl_need['e']) { $server['e'] = array(); }
    1183. 

  1183. 

  1184.     if     ($lgsl_need['s']) { $lgsl_need['s'] = FALSE; }
    1185. 

  1185.     elseif ($lgsl_need['p']) { $lgsl_need['p'] = FALSE; }
    1186. 

  1186.     elseif ($lgsl_need['e']) { $lgsl_need['e'] = FALSE; }
    1187. 

  1187. 

  1188. //---------------------------------------------------------+
    1189. 

  1189. 

  1190.     return TRUE;
    1191. 

  1191.   }
    1192. 

  1192. 

  1193. //------------------------------------------------------------------------------------------------------------+
    1194. 

  1194. //------------------------------------------------------------------------------------------------------------+
    1195. 

  1195. 

  1196.   function lgsl_query_06(&$server, &$lgsl_need, &$lgsl_fp)
    1197. 

  1197.   {
    1198. 

  1198. //---------------------------------------------------------+
    1199. 

  1199. //  GET A CHALLENGE CODE IF NEEDED
    1200. 

  1200. 

  1201.     $challenge_code = "";
    1202. 

  1202. 

  1203.     if ($server['b']['type'] != "bf2" && $server['b']['type'] != "graw")
    1204. 

  1204.     {
    1205. 

  1205.       fwrite($lgsl_fp, "\xFE\xFD\x09\x21\x21\x21\x21\xFF\xFF\xFF\x01");
    1206. 

  1206. 

  1207.       $challenge_packet = fread($lgsl_fp, 4096);
    1208. 

  1208. 

  1209.       if (!$challenge_packet) { return FALSE; }
    1210. 

  1210. 

  1211.       $challenge_code = substr($challenge_packet, 5, -1); // REMOVE HEADER AND TRAILING NULL
    1212. 

  1212. 

  1213.       // IF CODE IS RETURNED ( SOME STALKER SERVERS RETURN BLANK WHERE THE CODE IS NOT NEEDED )
    1214. 

  1214.       // CONVERT DECIMAL |TO| HEX AS 8 CHARACTER STRING |TO| 4 PAIRS OF HEX |TO| 4 PAIRS OF DECIMAL |TO| 4 PAIRS OF ASCII
    1215. 

  1215. 

  1216.       $challenge_code = $challenge_code ? chr($challenge_code >> 24).chr($challenge_code >> 16).chr($challenge_code >> 8).chr($challenge_code >> 0) : "";
    1217. 

  1217.     }
    1218. 

  1218. 

  1219.     fwrite($lgsl_fp, "\xFE\xFD\x00\x21\x21\x21\x21{$challenge_code}\xFF\xFF\xFF\x01");
    1220. 

  1220. 

  1221. //---------------------------------------------------------+
    1222. 

  1222. //  GET RAW PACKET DATA
    1223. 

  1223. 

  1224.     $buffer = array();
    1225. 

  1225.     $packet_count = 0;
    1226. 

  1226.     $packet_total = 4;
    1227. 

  1227. 

  1228.     do
    1229. 

  1229.     {
    1230. 

  1230.       $packet_count ++;
    1231. 

  1231.       $packet = fread($lgsl_fp, 4096);
    1232. 

  1232. 

  1233.       if (!$packet) { return FALSE; }
    1234. 

  1234. 

  1235.       $packet       = substr($packet, 14); // REMOVE SPLITNUM HEADER
    1236. 

  1236.       $packet_order = ord(lgsl_cut_byte($packet, 1));
    1237. 

  1237. 

  1238.       if ($packet_order >= 128) // LAST PACKET - SO ITS ORDER NUMBER IS ALSO THE TOTAL
    1239. 

  1239.       {
    1240. 

  1240.         $packet_order -= 128;
    1241. 

  1241.         $packet_total = $packet_order + 1;
    1242. 

  1242.       }
    1243. 

  1243. 

  1244.       $buffer[$packet_order] = $packet;
    1245. 

  1245.     }
    1246. 

  1246.     while ($packet_count < $packet_total);
    1247. 

  1247. 

  1248. //---------------------------------------------------------+
    1249. 

  1249. //  PROCESS AND SORT PACKETS
    1250. 

  1250. 

  1251.     foreach ($buffer as $key => $packet)
    1252. 

  1252.     {
    1253. 

  1253.       $packet = substr($packet, 0, -1); // REMOVE END NULL FOR JOINING
    1254. 

  1254. 

  1255.       if (substr($packet, -1) != "\x00") // LAST VALUE HAS BEEN SPLIT
    1256. 

  1256.       {
    1257. 

  1257.         $part = explode("\x00", $packet); // REMOVE SPLIT VALUE AS COMPLETE VALUE IS IN NEXT PACKET
    1258. 

  1258.         array_pop($part);
    1259. 

  1259.         $packet = implode("\x00", $part)."\x00";
    1260. 

  1260.       }
    1261. 

  1261. 

  1262.       if ($packet[0] != "\x00") // PLAYER OR TEAM DATA THAT MAY BE A CONTINUATION
    1263. 

  1263.       {
    1264. 

  1264.         $pos = strpos($packet, "\x00") + 1; // WHEN DATA IS SPLIT THE NEXT PACKET STARTS WITH A REPEAT OF THE FIELD NAME
    1265. 

  1265. 

  1266.         if (isset($packet[$pos]) && $packet[$pos] != "\x00") // REPEATED FIELD NAMES END WITH \x00\x?? INSTEAD OF \x00\x00
    1267. 

  1267.         {
    1268. 

  1268.           $packet = substr($packet, $pos + 1); // REMOVE REPEATED FIELD NAME
    1269. 

  1269.         }
    1270. 

  1270.         else
    1271. 

  1271.         {
    1272. 

  1272.           $packet = "\x00".$packet; // RE-ADD NULL AS PACKET STARTS WITH A NEW FIELD
    1273. 

  1273.         }
    1274. 

  1274.       }
    1275. 

  1275. 

  1276.       $buffer[$key] = $packet;
    1277. 

  1277.     }
    1278. 

  1278. 

  1279.     ksort($buffer);
    1280. 

  1280. 

  1281.     $buffer = implode("", $buffer);
    1282. 

  1282. 

  1283. //---------------------------------------------------------+
    1284. 

  1284. //  SERVER SETTINGS
    1285. 

  1285. 

  1286.     $buffer = substr($buffer, 1); // REMOVE HEADER \x00
    1287. 

  1287. 

  1288.     while ($key = strtolower(lgsl_cut_string($buffer)))
    1289. 

  1289.     {
    1290. 

  1290.       $server['e'][$key] = lgsl_cut_string($buffer);
    1291. 

  1291.     }
    1292. 

  1292. 

  1293.     $lgsl_conversion = array("name"=>"hostname", "game"=>"gamename", "map"=>"mapname", "players"=>"numplayers", "playersmax"=>"maxplayers", "password"=>"password");
    1294. 

  1294.     foreach ($lgsl_conversion as $s => $e) { if (isset($server['e'][$e])) { $server['s'][$s] = $server['e'][$e]; unset($server['e'][$e]); } } // LGSL STANDARD
    1295. 

  1295. 

  1296.     if ($server['b']['type'] == "bf2" || $server['b']['type'] == "bf2142") { $server['s']['map'] = ucwords(str_replace("_", " ", $server['s']['map'])); } // MAP NAME CONSISTENCY
    1297. 

  1297. 

  1298.     if ($server['s']['players'] == "0") { return TRUE; } // IF SERVER IS EMPTY SKIP THE PLAYER CODE
    1299. 

  1299. 

  1300. //---------------------------------------------------------+
    1301. 

  1301. //  PLAYER DETAILS
    1302. 

  1302. 

  1303.     $buffer = substr($buffer, 1); // REMOVE HEADER \x01
    1304. 

  1304. 

  1305.     while ($buffer)
    1306. 

  1306.     {
    1307. 

  1307.       if ($buffer[0] == "\x02") { break; }
    1308. 

  1308.       if ($buffer[0] == "\x00") { $buffer = substr($buffer, 1); break; }
    1309. 

  1309. 

  1310.       $field = lgsl_cut_string($buffer, 0, "\x00\x00");
    1311. 

  1311.       $field = strtolower(substr($field, 0, -1));
    1312. 

  1312. 

  1313.       if     ($field == "player") { $field = "name"; }
    1314. 

  1314.       elseif ($field == "aibot")  { $field = "bot";  }
    1315. 

  1315. 

  1316.       if ($buffer[0] == "\x00") { $buffer = substr($buffer, 1); continue; }
    1317. 

  1317. 

  1318.       $value_list = lgsl_cut_string($buffer, 0, "\x00\x00");
    1319. 

  1319.       $value_list = explode("\x00", $value_list);
    1320. 

  1320. 

  1321.       foreach ($value_list as $key => $value)
    1322. 

  1322.       {
    1323. 

  1323.         $server['p'][$key][$field] = $value;
    1324. 

  1324.       }
    1325. 

  1325.     }
    1326. 

  1326. 

  1327. //---------------------------------------------------------+
    1328. 

  1328. //  TEAM DATA
    1329. 

  1329. 

  1330.     $buffer = substr($buffer, 1); // REMOVE HEADER \x02
    1331. 

  1331. 

  1332.     while ($buffer)
    1333. 

  1333.     {
    1334. 

  1334.       if ($buffer[0] == "\x00") { break; }
    1335. 

  1335. 

  1336.       $field = lgsl_cut_string($buffer, 0, "\x00\x00");
    1337. 

  1337.       $field = strtolower($field);
    1338. 

  1338. 

  1339.       if     ($field == "team_t")  { $field = "name";  }
    1340. 

  1340.       elseif ($field == "score_t") { $field = "score"; }
    1341. 

  1341. 

  1342.       $value_list = lgsl_cut_string($buffer, 0, "\x00\x00");
    1343. 

  1343.       $value_list = explode("\x00", $value_list);
    1344. 

  1344. 

  1345.       foreach ($value_list as $key => $value)
    1346. 

  1346.       {
    1347. 

  1347.         $server['t'][$key][$field] = $value;
    1348. 

  1348.       }
    1349. 

  1349.     }
    1350. 

  1350. 

  1351. //---------------------------------------------------------+
    1352. 

  1352. //  TEAM NAME CONVERSION
    1353. 

  1353. 

  1354.     if ($server['p'] && isset($server['t'][0]['name']) && $server['t'][0]['name'] != "Team")
    1355. 

  1355.     {
    1356. 

  1356.       foreach ($server['p'] as $key => $value)
    1357. 

  1357.       {
    1358. 

  1358.         if (empty($server['p'][$key]['team'])) { continue; }
    1359. 

  1359. 

  1360.         $team_key = $server['p'][$key]['team'] - 1;
    1361. 

  1361. 

  1362.         if (!isset($server['t'][$team_key]['name'])) { continue; }
    1363. 

  1363. 

  1364.         $server['p'][$key]['team'] = $server['t'][$team_key]['name'];
    1365. 

  1365.       }
    1366. 

  1366.     }
    1367. 

  1367. 

  1368. //---------------------------------------------------------+
    1369. 

  1369. 

  1370.     return TRUE;
    1371. 

  1371.   }
    1372. 

  1372. 

  1373. //------------------------------------------------------------------------------------------------------------+
    1374. 

  1374. //------------------------------------------------------------------------------------------------------------+
    1375. 

  1375. 

  1376.   function lgsl_query_07(&$server, &$lgsl_need, &$lgsl_fp)
    1377. 

  1377.   {
    1378. 

  1378. //---------------------------------------------------------+
    1379. 

  1379. 

  1380.     fwrite($lgsl_fp, "\xFF\xFF\xFF\xFFstatus\x00");
    1381. 

  1381. 

  1382.     $buffer = fread($lgsl_fp, 4096);
    1383. 

  1383. 

  1384.     if (!$buffer) { return FALSE; }
    1385. 

  1385. 

  1386. //---------------------------------------------------------+
    1387. 

  1387. 

  1388.     $buffer = substr($buffer, 6, -2); // REMOVE HEADER AND FOOTER
    1389. 

  1389.     $part   = explode("\n", $buffer); // SPLIT INTO SETTINGS/PLAYER/PLAYER/PLAYER
    1390. 

  1390. 

  1391. //---------------------------------------------------------+
    1392. 

  1392. 

  1393.     $item = explode("\\", $part[0]);
    1394. 

  1394. 

  1395.     foreach ($item as $item_key => $data_key)
    1396. 

  1396.     {
    1397. 

  1397.       if ($item_key % 2) { continue; } // SKIP ODD KEYS
    1398. 

  1398. 

  1399.       $data_key               = strtolower($data_key);
    1400. 

  1400.       $server['e'][$data_key] = $item[$item_key+1];
    1401. 

  1401.     }
    1402. 

  1402. 

  1403. //---------------------------------------------------------+
    1404. 

  1404. 

  1405.     array_shift($part); // REMOVE SETTINGS
    1406. 

  1406. 

  1407.     foreach ($part as $key => $data)
    1408. 

  1408.     {
    1409. 

  1409.       preg_match("/(.*) (.*) (.*) (.*) \"(.*)\" \"(.*)\" (.*) (.*)/s", $data, $match); // GREEDY MATCH FOR SKINS
    1410. 

  1410. 

  1411.       $server['p'][$key]['pid']         = $match[1];
    1412. 

  1412.       $server['p'][$key]['score']       = $match[2];
    1413. 

  1413.       $server['p'][$key]['time']        = $match[3];
    1414. 

  1414.       $server['p'][$key]['ping']        = $match[4];
    1415. 

  1415.       $server['p'][$key]['name']        = lgsl_parse_color($match[5], $server['b']['type']);
    1416. 

  1416.       $server['p'][$key]['skin']        = $match[6];
    1417. 

  1417.       $server['p'][$key]['skin_top']    = $match[7];
    1418. 

  1418.       $server['p'][$key]['skin_bottom'] = $match[8];
    1419. 

  1419.     }
    1420. 

  1420. 

  1421. //---------------------------------------------------------+
    1422. 

  1422. 

  1423.     $server['s']['game']       = $server['e']['*gamedir'];
    1424. 

  1424.     $server['s']['name']       = $server['e']['hostname'];
    1425. 

  1425.     $server['s']['map']        = $server['e']['map'];
    1426. 

  1426.     $server['s']['players']    = $server['p'] ? count($server['p']) : 0;
    1427. 

  1427.     $server['s']['playersmax'] = $server['e']['maxclients'];
    1428. 

  1428.     $server['s']['password']   = isset($server['e']['needpass']) && $server['e']['needpass'] > 0 && $server['e']['needpass'] < 4 ? 1 : 0;
    1429. 

  1429. 

  1430. //---------------------------------------------------------+
    1431. 

  1431. 

  1432.     return TRUE;
    1433. 

  1433.   }
    1434. 

  1434. 

  1435. //------------------------------------------------------------------------------------------------------------+
    1436. 

  1436. //------------------------------------------------------------------------------------------------------------+
    1437. 

  1437. 

  1438.   function lgsl_query_08(&$server, &$lgsl_need, &$lgsl_fp)
    1439. 

  1439.   {
    1440. 

  1440. //---------------------------------------------------------+
    1441. 

  1441. 

  1442.     fwrite($lgsl_fp, "s"); // ASE ( ALL SEEING EYE ) PROTOCOL
    1443. 

  1443. 

  1444.     $buffer = fread($lgsl_fp, 4096);
    1445. 

  1445. 

  1446.     if (!$buffer) { return FALSE; }
    1447. 

  1447. 

  1448. //---------------------------------------------------------+
    1449. 

  1449. 

  1450.     $buffer = substr($buffer, 4); // REMOVE HEADER
    1451. 

  1451. 

  1452.     $server['e']['gamename']   = lgsl_cut_pascal($buffer, 1, -1);
    1453. 

  1453.     $server['e']['hostport']   = lgsl_cut_pascal($buffer, 1, -1);
    1454. 

  1454.     $server['s']['name']       = lgsl_parse_color(lgsl_cut_pascal($buffer, 1, -1), $server['b']['type']);
    1455. 

  1455.     $server['e']['gamemode']   = lgsl_cut_pascal($buffer, 1, -1);
    1456. 

  1456.     $server['s']['map']        = lgsl_cut_pascal($buffer, 1, -1);
    1457. 

  1457.     $server['e']['version']    = lgsl_cut_pascal($buffer, 1, -1);
    1458. 

  1458.     $server['s']['password']   = lgsl_cut_pascal($buffer, 1, -1);
    1459. 

  1459.     $server['s']['players']    = lgsl_cut_pascal($buffer, 1, -1);
    1460. 

  1460.     $server['s']['playersmax'] = lgsl_cut_pascal($buffer, 1, -1);
    1461. 

  1461. 

  1462.     while ($buffer && $buffer[0] != "\x01")
    1463. 

  1463.     {
    1464. 

  1464.       $item_key   = strtolower(lgsl_cut_pascal($buffer, 1, -1));
    1465. 

  1465.       $item_value = lgsl_cut_pascal($buffer, 1, -1);
    1466. 

  1466. 

  1467.       $server['e'][$item_key] = $item_value;
    1468. 

  1468.     }
    1469. 

  1469. 

  1470.     $buffer = substr($buffer, 1); // REMOVE END MARKER
    1471. 

  1471. 

  1472. //---------------------------------------------------------+
    1473. 

  1473. 

  1474.     $player_key = 0;
    1475. 

  1475. 

  1476.     while ($buffer)
    1477. 

  1477.     {
    1478. 

  1478.       $bit_flags = lgsl_cut_byte($buffer, 1); // FIELDS HARD CODED BELOW BECAUSE GAMES DO NOT USE THEM PROPERLY
    1479. 

  1479. 

  1480.       if     ($bit_flags == "\x3D")                 { $field_list = array("name",                  "score", "",     "time"); } // FARCRY PLAYERS CONNECTING
    1481. 

  1481.       elseif ($server['b']['type'] == "farcry")     { $field_list = array("name", "team", "",      "score", "ping", "time"); } // FARCRY PLAYERS JOINED
    1482. 

  1482.       elseif ($server['b']['type'] == "mta")        { $field_list = array("name", "",      "",     "score", "ping", ""    ); }
    1483. 

  1483.       elseif ($server['b']['type'] == "painkiller") { $field_list = array("name", "",     "skin",  "score", "ping", ""    ); }
    1484. 

  1484.       elseif ($server['b']['type'] == "soldat")     { $field_list = array("name", "team", "",      "score", "ping", "time"); }
    1485. 

  1485. 

  1486.       foreach ($field_list as $item_key)
    1487. 

  1487.       {
    1488. 

  1488.         $item_value = lgsl_cut_pascal($buffer, 1, -1);
    1489. 

  1489. 

  1490.         if (!$item_key) { continue; }
    1491. 

  1491. 

  1492.         if ($item_key == "name") { lgsl_parse_color($item_value, $server['b']['type']); }
    1493. 

  1493. 

  1494.         $server['p'][$player_key][$item_key] = $item_value;
    1495. 

  1495.       }
    1496. 

  1496. 

  1497.       $player_key ++;
    1498. 

  1498.     }
    1499. 

  1499. 

  1500. //---------------------------------------------------------+
    1501. 

  1501. 

  1502.     return TRUE;
    1503. 

  1503.   }
    1504. 

  1504. 

  1505. //------------------------------------------------------------------------------------------------------------+
    1506. 

  1506. //------------------------------------------------------------------------------------------------------------+
    1507. 

  1507. 

  1508.   function lgsl_query_09(&$server, &$lgsl_need, &$lgsl_fp)
    1509. 

  1509.   {
    1510. 

  1510. //---------------------------------------------------------+
    1511. 

  1511. 

  1512.     // SERIOUS SAM 2 RETURNS ALL PLAYER NAMES AS "Unknown Player" SO SKIP OR CONVERT ANY PLAYER REQUESTS
    1513. 

  1513.     if ($server['b']['type'] == "serioussam2") { $lgsl_need['p'] = FALSE; if (!$lgsl_need['s'] && !$lgsl_need['e']) { $lgsl_need['s'] = TRUE; } }
    1514. 

  1514. 

  1515. //---------------------------------------------------------+
    1516. 

  1516. 

  1517.     if ($lgsl_need['s'] || $lgsl_need['e'])
    1518. 

  1518.     {
    1519. 

  1519.       $lgsl_need['s'] = FALSE; $lgsl_need['e'] = FALSE;
    1520. 

  1520. 

  1521.       fwrite($lgsl_fp, "\xFE\xFD\x00\x21\x21\x21\x21\xFF\x00\x00\x00");
    1522. 

  1522. 

  1523.       $buffer = fread($lgsl_fp, 4096);
    1524. 

  1524. 

  1525.       $buffer = substr($buffer, 5, -2); // REMOVE HEADER AND FOOTER
    1526. 

  1526. 

  1527.       if (!$buffer) { return FALSE; }
    1528. 

  1528. 

  1529.       $item = explode("\x00", $buffer);
    1530. 

  1530. 

  1531.       foreach ($item as $item_key => $data_key)
    1532. 

  1532.       {
    1533. 

  1533.         if ($item_key % 2) { continue; } // SKIP EVEN KEYS
    1534. 

  1534. 

  1535.         $data_key = strtolower($data_key);
    1536. 

  1536.         $server['e'][$data_key] = $item[$item_key+1];
    1537. 

  1537.       }
    1538. 

  1538. 

  1539.       if (isset($server['e']['hostname']))   { $server['s']['name']       = $server['e']['hostname']; }
    1540. 

  1540.       if (isset($server['e']['mapname']))    { $server['s']['map']        = $server['e']['mapname']; }
    1541. 

  1541.       if (isset($server['e']['numplayers'])) { $server['s']['players']    = $server['e']['numplayers']; }
    1542. 

  1542.       if (isset($server['e']['maxplayers'])) { $server['s']['playersmax'] = $server['e']['maxplayers']; }
    1543. 

  1543.       if (isset($server['e']['password']))   { $server['s']['password']   = $server['e']['password']; }
    1544. 

  1544. 

  1545.       if (!empty($server['e']['gamename']))   { $server['s']['game'] = $server['e']['gamename']; }   // AARMY
    1546. 

  1546.       if (!empty($server['e']['gsgamename'])) { $server['s']['game'] = $server['e']['gsgamename']; } // FEAR
    1547. 

  1547.       if (!empty($server['e']['game_id']))    { $server['s']['game'] = $server['e']['game_id']; }    // BFVIETNAM
    1548. 

  1548. 

  1549.       if ($server['b']['type'] == "arma" || $server['b']['type'] == "arma2")
    1550. 

  1550.       {
    1551. 

  1551.         $server['s']['map'] = $server['e']['mission'];
    1552. 

  1552.       }
    1553. 

  1553.       elseif ($server['b']['type'] == "vietcong2")
    1554. 

  1554.       {
    1555. 

  1555.         $server['e']['extinfo_autobalance'] = ord($server['e']['extinfo'][18]) == 2 ? "off" : "on";
    1556. 

  1556.         // [ 13 = Vietnam and RPG Mode 19 1b 99 9b ] [ 22 23 = Mounted MG Limit ]
    1557. 

  1557.         // [ 27 = Idle Limit ] [ 18 = Auto Balance ] [ 55 = Chat and Blind Spectator 5a 5c da dc ]
    1558. 

  1558.       }
    1559. 

  1559.     }
    1560. 

  1560. 

  1561. //---------------------------------------------------------+
    1562. 

  1562. 

  1563.     elseif ($lgsl_need['p'])
    1564. 

  1564.     {
    1565. 

  1565.       $lgsl_need['p'] = FALSE;
    1566. 

  1566. 

  1567.       fwrite($lgsl_fp, "\xFE\xFD\x00\x21\x21\x21\x21\x00\xFF\x00\x00");
    1568. 

  1568. 

  1569.       $buffer = fread($lgsl_fp, 4096);
    1570. 

  1570. 

  1571.       $buffer = substr($buffer, 7, -1); // REMOVE HEADER / PLAYER TOTAL / FOOTER
    1572. 

  1572. 

  1573.       if (!$buffer) { return FALSE; }
    1574. 

  1574. 

  1575.       if (strpos($buffer, "\x00\x00") === FALSE) { return TRUE; } // NO PLAYERS
    1576. 

  1576. 

  1577.       $buffer     = explode("\x00\x00",$buffer, 2);            // SPLIT FIELDS FROM ITEMS
    1578. 

  1578.       $buffer[0]  = str_replace("_",      "",     $buffer[0]); // REMOVE UNDERSCORES FROM FIELDS
    1579. 

  1579.       $buffer[0]  = str_replace("player", "name", $buffer[0]); // LGSL STANDARD
    1580. 

  1580.       $field_list = explode("\x00",$buffer[0]);                // SPLIT UP FIELDS
    1581. 

  1581.       $item       = explode("\x00",$buffer[1]);                // SPLIT UP ITEMS
    1582. 

  1582. 

  1583.       $item_position = 0;
    1584. 

  1584.       $item_total    = count($item);
    1585. 

  1585.       $player_key    = 0;
    1586. 

  1586. 

  1587.       do
    1588. 

  1588.       {
    1589. 

  1589.         foreach ($field_list as $field)
    1590. 

  1590.         {
    1591. 

  1591.           $server['p'][$player_key][$field] = $item[$item_position];
    1592. 

  1592. 

  1593.           $item_position ++;
    1594. 

  1594.         }
    1595. 

  1595. 

  1596.         $player_key ++;
    1597. 

  1597.       }
    1598. 

  1598.       while ($item_position < $item_total);
    1599. 

  1599.     }
    1600. 

  1600. 

  1601. //---------------------------------------------------------+
    1602. 

  1602. 

  1603.     return TRUE;
    1604. 

  1604.   }
    1605. 

  1605. 

  1606. //------------------------------------------------------------------------------------------------------------+
    1607. 

  1607. //------------------------------------------------------------------------------------------------------------+
    1608. 

  1608. 

  1609.   function lgsl_query_10(&$server, &$lgsl_need, &$lgsl_fp)
    1610. 

  1610.   {
    1611. 

  1611. //---------------------------------------------------------+
    1612. 

  1612. 

  1613.     if ($server['b']['type'] == "quakewars") { fwrite($lgsl_fp, "\xFF\xFFgetInfoEX\xFF"); }
    1614. 

  1614.     else                                     { fwrite($lgsl_fp, "\xFF\xFFgetInfo\xFF");   }
    1615. 

  1615. 

  1616.     $buffer = fread($lgsl_fp, 4096);
    1617. 

  1617. 

  1618.     if (!$buffer) { return FALSE; }
    1619. 

  1619. 

  1620. //---------------------------------------------------------+
    1621. 

  1621. 

  1622.     if     ($server['b']['type'] == "wolf2009")  { $buffer = substr($buffer, 31); }  // REMOVE HEADERS
    1623. 

  1623.     elseif ($server['b']['type'] == "quakewars") { $buffer = substr($buffer, 33); }
    1624. 

  1624.     else                                         { $buffer = substr($buffer, 23); }
    1625. 

  1625. 

  1626.     $buffer = lgsl_parse_color($buffer, "2");
    1627. 

  1627. 

  1628. //---------------------------------------------------------+
    1629. 

  1629. 

  1630.     while ($buffer && $buffer[0] != "\x00")
    1631. 

  1631.     {
    1632. 

  1632.       $item_key   = strtolower(lgsl_cut_string($buffer));
    1633. 

  1633.       $item_value = lgsl_cut_string($buffer);
    1634. 

  1634. 

  1635.       $server['e'][$item_key] = $item_value;
    1636. 

  1636.     }
    1637. 

  1637. 

  1638. //---------------------------------------------------------+
    1639. 

  1639. 

  1640.     $buffer = substr($buffer, 2);
    1641. 

  1641. 

  1642.     $player_key = 0;
    1643. 

  1643. 

  1644. //---------------------------------------------------------+
    1645. 

  1645. 

  1646.     if ($server['b']['type'] == "wolf2009") // WOLFENSTEIN: (PID)(PING)(NAME)(TAGPOSITION)(TAG)(BOT)
    1647. 

  1647.     {
    1648. 

  1648.       while ($buffer && $buffer[0] != "\x10") // STOPS AT PID 16
    1649. 

  1649.       {
    1650. 

  1650.         $server['p'][$player_key]['pid']     = ord(lgsl_cut_byte($buffer, 1));
    1651. 

  1651.         $server['p'][$player_key]['ping']    = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1652. 

  1652.         $server['p'][$player_key]['rate']    = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1653. 

  1653.         $server['p'][$player_key]['unknown'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1654. 

  1654.         $player_name                         = lgsl_cut_string($buffer);
    1655. 

  1655.         $player_tag_position                 = ord(lgsl_cut_byte($buffer, 1));
    1656. 

  1656.         $player_tag                          = lgsl_cut_string($buffer);
    1657. 

  1657.         $server['p'][$player_key]['bot']     = ord(lgsl_cut_byte($buffer, 1));
    1658. 

  1658. 

  1659.         if     ($player_tag == "")           { $server['p'][$player_key]['name'] = $player_name; }
    1660. 

  1660.         elseif ($player_tag_position == "0") { $server['p'][$player_key]['name'] = $player_tag." ".$player_name; }
    1661. 

  1661.         else                                 { $server['p'][$player_key]['name'] = $player_name." ".$player_tag; }
    1662. 

  1662. 

  1663.         $player_key ++;
    1664. 

  1664.       }
    1665. 

  1665.     }
    1666. 

  1666. 

  1667. //---------------------------------------------------------+
    1668. 

  1668. 

  1669.     elseif ($server['b']['type'] == "quakewars") // QUAKEWARS: (PID)(PING)(NAME)(TAGPOSITION)(TAG)(BOT)
    1670. 

  1670.     {
    1671. 

  1671.       while ($buffer && $buffer[0] != "\x20") // STOPS AT PID 32
    1672. 

  1672.       {
    1673. 

  1673.         $server['p'][$player_key]['pid']  = ord(lgsl_cut_byte($buffer, 1));
    1674. 

  1674.         $server['p'][$player_key]['ping'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1675. 

  1675.         $player_name                      = lgsl_cut_string($buffer);
    1676. 

  1676.         $player_tag_position              = ord(lgsl_cut_byte($buffer, 1));
    1677. 

  1677.         $player_tag                       = lgsl_cut_string($buffer);
    1678. 

  1678.         $server['p'][$player_key]['bot']  = ord(lgsl_cut_byte($buffer, 1));
    1679. 

  1679. 

  1680.             if ($player_tag_position == "")  { $server['p'][$player_key]['name'] = $player_name; }
    1681. 

  1681.         elseif ($player_tag_position == "1") { $server['p'][$player_key]['name'] = $player_name." ".$player_tag; }
    1682. 

  1682.         else                                 { $server['p'][$player_key]['name'] = $player_tag." ".$player_name; }
    1683. 

  1683. 

  1684.         $player_key ++;
    1685. 

  1685.       }
    1686. 

  1686. 

  1687.       $buffer                      = substr($buffer, 1);
    1688. 

  1688.       $server['e']['si_osmask']    = lgsl_unpack(lgsl_cut_byte($buffer, 4), "I");
    1689. 

  1689.       $server['e']['si_ranked']    = ord(lgsl_cut_byte($buffer, 1));
    1690. 

  1690.       $server['e']['si_timeleft']  = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 4), "I") / 1000);
    1691. 

  1691.       $server['e']['si_gamestate'] = ord(lgsl_cut_byte($buffer, 1));
    1692. 

  1692.       $buffer                      = substr($buffer, 2);
    1693. 

  1693. 

  1694.       $player_key = 0;
    1695. 

  1695. 

  1696.       while ($buffer && $buffer[0] != "\x20") // QUAKEWARS EXTENDED: (PID)(XP)(TEAM)(KILLS)(DEATHS)
    1697. 

  1697.       {
    1698. 

  1698.         $server['p'][$player_key]['pid']    = ord(lgsl_cut_byte($buffer, 1));
    1699. 

  1699.         $server['p'][$player_key]['xp']     = intval(lgsl_unpack(lgsl_cut_byte($buffer, 4), "f"));
    1700. 

  1700.         $server['p'][$player_key]['team']   = lgsl_cut_string($buffer);
    1701. 

  1701.         $server['p'][$player_key]['score']  = lgsl_unpack(lgsl_cut_byte($buffer, 4), "i");
    1702. 

  1702.         $server['p'][$player_key]['deaths'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "i");
    1703. 

  1703.         $player_key ++;
    1704. 

  1704.       }
    1705. 

  1705.     }
    1706. 

  1706. 

  1707. //---------------------------------------------------------+
    1708. 

  1708. 

  1709.     elseif ($server['b']['type'] == "quake4") // QUAKE4: (PID)(PING)(RATE)(NULLNULL)(NAME)(TAG)
    1710. 

  1710.     {
    1711. 

  1711.       while ($buffer && $buffer[0] != "\x20") // STOPS AT PID 32
    1712. 

  1712.       {
    1713. 

  1713.         $server['p'][$player_key]['pid']  = ord(lgsl_cut_byte($buffer, 1));
    1714. 

  1714.         $server['p'][$player_key]['ping'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1715. 

  1715.         $server['p'][$player_key]['rate'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1716. 

  1716.         $buffer                           = substr($buffer, 2);
    1717. 

  1717.         $player_name                      = lgsl_cut_string($buffer);
    1718. 

  1718.         $player_tag                       = lgsl_cut_string($buffer);
    1719. 

  1719.         $server['p'][$player_key]['name'] = $player_tag ? $player_tag." ".$player_name : $player_name;
    1720. 

  1720. 

  1721.         $player_key ++;
    1722. 

  1722.       }
    1723. 

  1723.     }
    1724. 

  1724. 

  1725. //---------------------------------------------------------+
    1726. 

  1726. 

  1727.     else // DOOM3 AND PREY: (PID)(PING)(RATE)(NULLNULL)(NAME)
    1728. 

  1728.     {
    1729. 

  1729.       while ($buffer && $buffer[0] != "\x20") // STOPS AT PID 32
    1730. 

  1730.       {
    1731. 

  1731.         $server['p'][$player_key]['pid']  = ord(lgsl_cut_byte($buffer, 1));
    1732. 

  1732.         $server['p'][$player_key]['ping'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1733. 

  1733.         $server['p'][$player_key]['rate'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1734. 

  1734.         $buffer                           = substr($buffer, 2);
    1735. 

  1735.         $server['p'][$player_key]['name'] = lgsl_cut_string($buffer);
    1736. 

  1736. 

  1737.         $player_key ++;
    1738. 

  1738.       }
    1739. 

  1739.     }
    1740. 

  1740. 

  1741. //---------------------------------------------------------+
    1742. 

  1742. 

  1743.     $server['s']['game']       = $server['e']['gamename'];
    1744. 

  1744.     $server['s']['name']       = $server['e']['si_name'];
    1745. 

  1745.     $server['s']['map']        = $server['e']['si_map'];
    1746. 

  1746.     $server['s']['players']    = $server['p'] ? count($server['p']) : 0;
    1747. 

  1747.     $server['s']['playersmax'] = $server['e']['si_maxplayers'];
    1748. 

  1748. 

  1749.     if ($server['b']['type'] == "wolf2009" || $server['b']['type'] == "quakewars")
    1750. 

  1750.     {
    1751. 

  1751.       $server['s']['map']      = str_replace(".entities", "", $server['s']['map']);
    1752. 

  1752.       $server['s']['password'] = $server['e']['si_needpass'];
    1753. 

  1753.     }
    1754. 

  1754.     else
    1755. 

  1755.     {
    1756. 

  1756.       $server['s']['password'] = $server['e']['si_usepass'];
    1757. 

  1757.     }
    1758. 

  1758. 

  1759. //---------------------------------------------------------+
    1760. 

  1760. 

  1761.     return TRUE;
    1762. 

  1762.   }
    1763. 

  1763. 

  1764. //------------------------------------------------------------------------------------------------------------+
    1765. 

  1765. //------------------------------------------------------------------------------------------------------------+
    1766. 

  1766. 

  1767.   function lgsl_query_11(&$server, &$lgsl_need, &$lgsl_fp)
    1768. 

  1768.   {
    1769. 

  1769. //---------------------------------------------------------+
    1770. 

  1770. //  REFERENCE: http://wiki.unrealadmin.org/UT3_query_protocol
    1771. 

  1771. //  UT3 RESPONSE IS REALLY MESSY SO THIS CLEANS IT UP
    1772. 

  1772. 

  1773.     $status = lgsl_query_06($server, $lgsl_need, $lgsl_fp);
    1774. 

  1774. 

  1775.     if (!$status) { return FALSE; }
    1776. 

  1776. 

  1777. //---------------------------------------------------------+
    1778. 

  1778. 

  1779.     $server['s']['map'] = $server['e']['p1073741825'];
    1780. 

  1780.                     unset($server['e']['p1073741825']);
    1781. 

  1781. 

  1782. //---------------------------------------------------------+
    1783. 

  1783. 

  1784.     $lgsl_ut3_key = array(
    1785. 

  1785.     "s0"          => "bots_skill",
    1786. 

  1786.     "s6"          => "pure",
    1787. 

  1787.     "s7"          => "password",
    1788. 

  1788.     "s8"          => "bots_vs",
    1789. 

  1789.     "s10"         => "forcerespawn",
    1790. 

  1790.     "p268435703"  => "bots",
    1791. 

  1791.     "p268435704"  => "goalscore",
    1792. 

  1792.     "p268435705"  => "timelimit",
    1793. 

  1793.     "p268435717"  => "mutators_default",
    1794. 

  1794.     "p1073741826" => "gamemode",
    1795. 

  1795.     "p1073741827" => "description",
    1796. 

  1796.     "p1073741828" => "mutators_custom");
    1797. 

  1797. 

  1798.     foreach ($lgsl_ut3_key as $old => $new)
    1799. 

  1799.     {
    1800. 

  1800.       if (!isset($server['e'][$old])) { continue; }
    1801. 

  1801.       $server['e'][$new] = $server['e'][$old];
    1802. 

  1802.       unset($server['e'][$old]);
    1803. 

  1803.     }
    1804. 

  1804. 

  1805. //---------------------------------------------------------+
    1806. 

  1806. 

  1807.     $part = explode(".", $server['e']['gamemode']);
    1808. 

  1808. 

  1809.     if ($part[0] && (stristr($part[0], "UT") === FALSE))
    1810. 

  1810.     {
    1811. 

  1811.       $server['s']['game'] = $part[0];
    1812. 

  1812.     }
    1813. 

  1813. 

  1814. //---------------------------------------------------------+
    1815. 

  1815. 

  1816.     $tmp = $server['e']['mutators_default'];
    1817. 

  1817.            $server['e']['mutators_default'] = "";
    1818. 

  1818. 

  1819.     if ($tmp & 1)     { $server['e']['mutators_default'] .= " BigHead";           }
    1820. 

  1820.     if ($tmp & 2)     { $server['e']['mutators_default'] .= " FriendlyFire";      }
    1821. 

  1821.     if ($tmp & 4)     { $server['e']['mutators_default'] .= " Handicap";          }
    1822. 

  1822.     if ($tmp & 8)     { $server['e']['mutators_default'] .= " Instagib";          }
    1823. 

  1823.     if ($tmp & 16)    { $server['e']['mutators_default'] .= " LowGrav";           }
    1824. 

  1824.     if ($tmp & 64)    { $server['e']['mutators_default'] .= " NoPowerups";        }
    1825. 

  1825.     if ($tmp & 128)   { $server['e']['mutators_default'] .= " NoTranslocator";    }
    1826. 

  1826.     if ($tmp & 256)   { $server['e']['mutators_default'] .= " Slomo";             }
    1827. 

  1827.     if ($tmp & 1024)  { $server['e']['mutators_default'] .= " SpeedFreak";        }
    1828. 

  1828.     if ($tmp & 2048)  { $server['e']['mutators_default'] .= " SuperBerserk";      }
    1829. 

  1829.     if ($tmp & 8192)  { $server['e']['mutators_default'] .= " WeaponReplacement"; }
    1830. 

  1830.     if ($tmp & 16384) { $server['e']['mutators_default'] .= " WeaponsRespawn";    }
    1831. 

  1831. 

  1832.     $server['e']['mutators_default'] = str_replace(" ",    " / ", trim($server['e']['mutators_default']));
    1833. 

  1833.     $server['e']['mutators_custom']  = str_replace("\x1c", " / ",      $server['e']['mutators_custom']);
    1834. 

  1834. 

  1835. //---------------------------------------------------------+
    1836. 

  1836. 

  1837.     return TRUE;
    1838. 

  1838.   }
    1839. 

  1839. 

  1840. //------------------------------------------------------------------------------------------------------------+
    1841. 

  1841. //------------------------------------------------------------------------------------------------------------+
    1842. 

  1842. 

  1843.   function lgsl_query_12(&$server, &$lgsl_need, &$lgsl_fp)
    1844. 

  1844.   {
    1845. 

  1845. //---------------------------------------------------------+
    1846. 

  1846. //  REFERENCE:
    1847. 

  1847. //  VICE CITY CURRENTLY ONLY SUPPORTS THE 'i' CHALLENGE
    1848. 

  1848. 

  1849.     if     ($server['b']['type'] == "samp") { $challenge_packet = "SAMP\x21\x21\x21\x21\x00\x00"; }
    1850. 

  1850.     elseif ($server['b']['type'] == "vcmp") { $challenge_packet = "VCMP\x21\x21\x21\x21\x00\x00"; $lgsl_need['e'] = FALSE; $lgsl_need['p'] = FALSE; }
    1851. 

  1851. 

  1852.     if     ($lgsl_need['s']) { $challenge_packet .= "i"; }
    1853. 

  1853.     elseif ($lgsl_need['e']) { $challenge_packet .= "r"; }
    1854. 

  1854.     elseif ($lgsl_need['p']) { $challenge_packet .= "d"; }
    1855. 

  1855. 

  1856.     fwrite($lgsl_fp, $challenge_packet);
    1857. 

  1857. 

  1858.     $buffer = fread($lgsl_fp, 4096);
    1859. 

  1859. 

  1860.     if (!$buffer) { return FALSE; }
    1861. 

  1861. 

  1862. //---------------------------------------------------------+
    1863. 

  1863. 

  1864.     $buffer = substr($buffer, 10); // REMOVE HEADER
    1865. 

  1865. 

  1866.     $response_type = lgsl_cut_byte($buffer, 1);
    1867. 

  1867. 

  1868. //---------------------------------------------------------+
    1869. 

  1869. 

  1870.     if ($response_type == "i")
    1871. 

  1871.     {
    1872. 

  1872.       $lgsl_need['s'] = FALSE;
    1873. 

  1873. 

  1874.       $server['s']['password']   = ord(lgsl_cut_byte($buffer, 1));
    1875. 

  1875.       $server['s']['players']    = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1876. 

  1876.       $server['s']['playersmax'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1877. 

  1877.       $server['s']['name']       = lgsl_cut_pascal($buffer, 4);
    1878. 

  1878.       $server['e']['gamemode']   = lgsl_cut_pascal($buffer, 4);
    1879. 

  1879.       $server['s']['map']        = lgsl_cut_pascal($buffer, 4);
    1880. 

  1880.     }
    1881. 

  1881. 

  1882. //---------------------------------------------------------+
    1883. 

  1883. 

  1884.     elseif ($response_type == "r")
    1885. 

  1885.     {
    1886. 

  1886.       $lgsl_need['e'] = FALSE;
    1887. 

  1887. 

  1888.       $item_total = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1889. 

  1889. 

  1890.       for ($i=0; $i<$item_total; $i++)
    1891. 

  1891.       {
    1892. 

  1892.         if (!$buffer) { return FALSE; }
    1893. 

  1893. 

  1894.         $data_key   = strtolower(lgsl_cut_pascal($buffer));
    1895. 

  1895.         $data_value = lgsl_cut_pascal($buffer);
    1896. 

  1896. 

  1897.         $server['e'][$data_key] = $data_value;
    1898. 

  1898.       }
    1899. 

  1899.     }
    1900. 

  1900. 

  1901. //---------------------------------------------------------+
    1902. 

  1902. 

  1903.     elseif ($response_type == "d")
    1904. 

  1904.     {
    1905. 

  1905.       $lgsl_need['p'] = FALSE;
    1906. 

  1906. 

  1907.       $player_total = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    1908. 

  1908. 

  1909.       for ($i=0; $i<$player_total; $i++)
    1910. 

  1910.       {
    1911. 

  1911.         if (!$buffer) { return FALSE; }
    1912. 

  1912. 

  1913.         $server['p'][$i]['pid']   = ord(lgsl_cut_byte($buffer, 1));
    1914. 

  1914.         $server['p'][$i]['name']  = lgsl_cut_pascal($buffer);
    1915. 

  1915.         $server['p'][$i]['score'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "S");
    1916. 

  1916.         $server['p'][$i]['ping']  = lgsl_unpack(lgsl_cut_byte($buffer, 4), "S");
    1917. 

  1917.       }
    1918. 

  1918.     }
    1919. 

  1919. 

  1920. //---------------------------------------------------------+
    1921. 

  1921. 

  1922.     return TRUE;
    1923. 

  1923.   }
    1924. 

  1924. 

  1925. //------------------------------------------------------------------------------------------------------------+
    1926. 

  1926. //------------------------------------------------------------------------------------------------------------+
    1927. 

  1927. 

  1928.   function lgsl_query_13(&$server, &$lgsl_need, &$lgsl_fp)
    1929. 

  1929.   {
    1930. 

  1930. //---------------------------------------------------------+
    1931. 

  1931. 

  1932.     $buffer_s = ""; fwrite($lgsl_fp, "\x21\x21\x21\x21\x00"); // REQUEST [s]
    1933. 

  1933.     $buffer_e = ""; fwrite($lgsl_fp, "\x21\x21\x21\x21\x01"); // REQUEST [e]
    1934. 

  1934.     $buffer_p = ""; fwrite($lgsl_fp, "\x21\x21\x21\x21\x02"); // REQUEST [p]
    1935. 

  1935. 

  1936. //---------------------------------------------------------+
    1937. 

  1937. 

  1938.     while ($packet = fread($lgsl_fp, 4096))
    1939. 

  1939.     {
    1940. 

  1940.       if     ($packet[4] == "\x00") { $buffer_s .= substr($packet, 5); }
    1941. 

  1941.       elseif ($packet[4] == "\x01") { $buffer_e .= substr($packet, 5); }
    1942. 

  1942.       elseif ($packet[4] == "\x02") { $buffer_p .= substr($packet, 5); }
    1943. 

  1943.     }
    1944. 

  1944. 

  1945.     if (!$buffer_s) { return FALSE; }
    1946. 

  1946. 

  1947. //---------------------------------------------------------+
    1948. 

  1948. //  SOME VALUES START WITH A PASCAL LENGTH AND END WITH A NULL BUT THERE IS AN ISSUE WHERE
    1949. 

  1949. //  CERTAIN CHARACTERS CAUSE A WRONG PASCAL LENGTH AND NULLS TO APPEAR WITHIN NAMES
    1950. 

  1950. 

  1951.     $buffer_s = str_replace("\xa0", "\x20", $buffer_s); // REPLACE SPECIAL SPACE WITH NORMAL SPACE
    1952. 

  1952.     $buffer_s = substr($buffer_s, 5);
    1953. 

  1953.     $server['e']['hostport']   = lgsl_unpack(lgsl_cut_byte($buffer_s, 4), "S");
    1954. 

  1954.     $buffer_s = substr($buffer_s, 4);
    1955. 

  1955.     $server['s']['name']       = lgsl_cut_string($buffer_s, 1);
    1956. 

  1956.     $server['s']['map']        = lgsl_cut_string($buffer_s, 1);
    1957. 

  1957.     $server['e']['gamemode']   = lgsl_cut_string($buffer_s, 1);
    1958. 

  1958.     $server['s']['players']    = lgsl_unpack(lgsl_cut_byte($buffer_s, 4), "S");
    1959. 

  1959.     $server['s']['playersmax'] = lgsl_unpack(lgsl_cut_byte($buffer_s, 4), "S");
    1960. 

  1960. 

  1961. //---------------------------------------------------------+
    1962. 

  1962. 

  1963.     while ($buffer_e && $buffer_e[0] != "\x00")
    1964. 

  1964.     {
    1965. 

  1965.       $item_key   = strtolower(lgsl_cut_string($buffer_e, 1));
    1966. 

  1966.       $item_value = lgsl_cut_string($buffer_e, 1);
    1967. 

  1967. 

  1968.       $item_key   = str_replace("\x1B\xFF\xFF\x01", "", $item_key);   // REMOVE MOD
    1969. 

  1969.       $item_value = str_replace("\x1B\xFF\xFF\x01", "", $item_value); // GARBAGE
    1970. 

  1970. 

  1971.       $server['e'][$item_key] = $item_value;
    1972. 

  1972.     }
    1973. 

  1973. 

  1974. //---------------------------------------------------------+
    1975. 

  1975. //  THIS PROTOCOL RETURNS MORE INFO THAN THE ALTERNATIVE BUT IT DOES NOT
    1976. 

  1976. //  RETURN THE GAME NAME ! SO WE HAVE MANUALLY DETECT IT USING THE GAME TYPE
    1977. 

  1977. 

  1978.     $tmp = strtolower(substr($server['e']['gamemode'], 0, 2));
    1979. 

  1979. 

  1980.         if ($tmp == "ro") { $server['s']['game'] = "Red Orchestra"; }
    1981. 

  1981.     elseif ($tmp == "kf") { $server['s']['game'] = "Killing Floor"; }
    1982. 

  1982. 

  1983.    $server['s']['password'] = empty($server['e']['password']) && empty($server['e']['gamepassword']) ? "0" : "1";
    1984. 

  1984. 

  1985. //---------------------------------------------------------+
    1986. 

  1986. 

  1987.     $player_key = 0;
    1988. 

  1988. 

  1989.     while ($buffer_p && $buffer_p[0] != "\x00")
    1990. 

  1990.     {
    1991. 

  1991.       $server['p'][$player_key]['pid']   = lgsl_unpack(lgsl_cut_byte($buffer_p, 4), "S");
    1992. 

  1992. 

  1993.       $end_marker = ord($buffer_p[0]) > 64 ? "\x00\x00" : "\x00"; // DIRTY WORK-AROUND FOR NAMES WITH PROBLEM CHARACTERS
    1994. 

  1994. 

  1995.       $server['p'][$player_key]['name']  = lgsl_cut_string($buffer_p, 1, $end_marker);
    1996. 

  1996.       $server['p'][$player_key]['ping']  = lgsl_unpack(lgsl_cut_byte($buffer_p, 4), "S");
    1997. 

  1997.       $server['p'][$player_key]['score'] = lgsl_unpack(lgsl_cut_byte($buffer_p, 4), "s");
    1998. 

  1998.       $tmp                               = lgsl_cut_byte($buffer_p, 4);
    1999. 

  1999. 

  2000.           if ($tmp[3] == "\x20") { $server['p'][$player_key]['team'] = 1; }
    2001. 

  2001.       elseif ($tmp[3] == "\x40") { $server['p'][$player_key]['team'] = 2; }
    2002. 

  2002. 

  2003.       $player_key ++;
    2004. 

  2004.     }
    2005. 

  2005. 

  2006. //---------------------------------------------------------+
    2007. 

  2007. 

  2008.     return TRUE;
    2009. 

  2009.   }
    2010. 

  2010. 

  2011. //------------------------------------------------------------------------------------------------------------+
    2012. 

  2012. //------------------------------------------------------------------------------------------------------------+
    2013. 

  2013. 

  2014.   function lgsl_query_14(&$server, &$lgsl_need, &$lgsl_fp)
    2015. 

  2015.   {
    2016. 

  2016. //---------------------------------------------------------+
    2017. 

  2017. //  REFERENCE: http://flstat.cryosphere.co.uk/global-list.php
    2018. 

  2018. 

  2019.     fwrite($lgsl_fp, "\x00\x02\xf1\x26\x01\x26\xf0\x90\xa6\xf0\x26\x57\x4e\xac\xa0\xec\xf8\x68\xe4\x8d\x21");
    2020. 

  2020. 

  2021.     $buffer = fread($lgsl_fp, 4096);
    2022. 

  2022. 

  2023.     if (!$buffer) { return FALSE; }
    2024. 

  2024. 

  2025. //---------------------------------------------------------+
    2026. 

  2026. 

  2027.     $buffer = substr($buffer, 4); // HEADER   ( 00 03 F1 26 )
    2028. 

  2028.     $buffer = substr($buffer, 4); // NOT USED ( 87 + NAME LENGTH )
    2029. 

  2029.     $buffer = substr($buffer, 4); // NOT USED ( NAME END TO BUFFER END LENGTH )
    2030. 

  2030.     $buffer = substr($buffer, 4); // UNKNOWN  ( 80 )
    2031. 

  2031. 

  2032.     $server['s']['map']        = "freelancer";
    2033. 

  2033.     $server['s']['password']   = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l") - 1 ? 1 : 0;
    2034. 

  2034.     $server['s']['playersmax'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l") - 1;
    2035. 

  2035.     $server['s']['players']    = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l") - 1;
    2036. 

  2036.     $buffer                    = substr($buffer, 4);  // UNKNOWN ( 88 )
    2037. 

  2037.     $name_length               = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    2038. 

  2038.     $buffer                    = substr($buffer, 56); // UNKNOWN
    2039. 

  2039.     $server['s']['name']       = lgsl_cut_byte($buffer, $name_length);
    2040. 

  2040. 

  2041.     lgsl_cut_string($buffer, 0, ":");
    2042. 

  2042.     lgsl_cut_string($buffer, 0, ":");
    2043. 

  2043.     lgsl_cut_string($buffer, 0, ":");
    2044. 

  2044.     lgsl_cut_string($buffer, 0, ":");
    2045. 

  2045.     lgsl_cut_string($buffer, 0, ":");
    2046. 

  2046. 

  2047.     // WHATS LEFT IS THE MOTD
    2048. 

  2048.     $server['e']['motd'] = substr($buffer, 0, -1);
    2049. 

  2049. 

  2050.     // REMOVE UTF-8 ENCODING NULLS
    2051. 

  2051.     $server['s']['name'] = str_replace("\x00", "", $server['s']['name']);
    2052. 

  2052.     $server['e']['motd'] = str_replace("\x00", "", $server['e']['motd']);
    2053. 

  2053. 

  2054.     // DOES NOT RETURN PLAYER INFORMATION
    2055. 

  2055. 

  2056. //---------------------------------------------------------+
    2057. 

  2057. 

  2058.     return TRUE;
    2059. 

  2059.   }
    2060. 

  2060. 

  2061. //------------------------------------------------------------------------------------------------------------+
    2062. 

  2062. //------------------------------------------------------------------------------------------------------------+
    2063. 

  2063. 

  2064.   function lgsl_query_15(&$server, &$lgsl_need, &$lgsl_fp)
    2065. 

  2065.   {
    2066. 

  2066. //---------------------------------------------------------+
    2067. 

  2067. 

  2068.     fwrite($lgsl_fp, "GTR2_Direct_IP_Search\x00");
    2069. 

  2069. 

  2070.     $buffer = fread($lgsl_fp, 4096);
    2071. 

  2071. 

  2072.     if (!$buffer) { return FALSE; }
    2073. 

  2073. 

  2074. //---------------------------------------------------------+
    2075. 

  2075. 

  2076.     $buffer = str_replace("\xFE", "\xFF", $buffer);
    2077. 

  2077.     $buffer = explode("\xFF", $buffer);
    2078. 

  2078. 

  2079.     $server['s']['name']       = $buffer[3];
    2080. 

  2080.     $server['s']['game']       = $buffer[7];
    2081. 

  2081.     $server['e']['version']    = $buffer[11];
    2082. 

  2082.     $server['e']['hostport']   = $buffer[15];
    2083. 

  2083.     $server['s']['map']        = $buffer[19];
    2084. 

  2084.     $server['s']['players']    = $buffer[25];
    2085. 

  2085.     $server['s']['playersmax'] = $buffer[27];
    2086. 

  2086.     $server['e']['gamemode']   = $buffer[31];
    2087. 

  2087. 

  2088.     // DOES NOT RETURN PLAYER INFORMATION
    2089. 

  2089. 

  2090. //---------------------------------------------------------+
    2091. 

  2091. 

  2092.     return TRUE;
    2093. 

  2093.   }
    2094. 

  2094. 

  2095. //------------------------------------------------------------------------------------------------------------+
    2096. 

  2096. //------------------------------------------------------------------------------------------------------------+
    2097. 

  2097. 

  2098.   function lgsl_query_16(&$server, &$lgsl_need, &$lgsl_fp)
    2099. 

  2099.   {
    2100. 

  2100. //---------------------------------------------------------+
    2101. 

  2101. //  REFERENCE:
    2102. 

  2102. //  http://www.planetpointy.co.uk/software/rfactorsspy.shtml
    2103. 

  2103. //  http://users.pandora.be/viperius/mUtil/
    2104. 

  2104. //  USES FIXED DATA POSITIONS WITH RANDOM CHARACTERS FILLING THE GAPS
    2105. 

  2105. 

  2106.     fwrite($lgsl_fp, "rF_S");
    2107. 

  2107. 

  2108.     $buffer = fread($lgsl_fp, 4096);
    2109. 

  2109. 

  2110.     if (!$buffer) { return FALSE; }
    2111. 

  2111. 

  2112. //---------------------------------------------------------+
    2113. 

  2113. 

  2114. //  $server['e']['gamename']         = lgsl_get_string($buffer);
    2115. 

  2115.     $buffer = substr($buffer, 8);
    2116. 

  2116. //  $server['e']['fullupdate']       = lgsl_unpack($buffer[0], "C");
    2117. 

  2117.     $server['e']['region']           = lgsl_unpack($buffer[1] .$buffer[2],  "S");
    2118. 

  2118. //  $server['e']['ip']               = ($buffer[3] .$buffer[4].$buffer[5].$buffer[6]); // UNSIGNED LONG
    2119. 

  2119. //  $server['e']['size']             = lgsl_unpack($buffer[7] .$buffer[8],  "S");
    2120. 

  2120.     $server['e']['version']          = lgsl_unpack($buffer[9] .$buffer[10], "S");
    2121. 

  2121. //  $server['e']['version_racecast'] = lgsl_unpack($buffer[11].$buffer[12], "S");
    2122. 

  2122.     $server['e']['hostport']         = lgsl_unpack($buffer[13].$buffer[14], "S");
    2123. 

  2123. //  $server['e']['queryport']        = lgsl_unpack($buffer[15].$buffer[16], "S");
    2124. 

  2124.     $buffer = substr($buffer, 17);
    2125. 

  2125.     $server['s']['game']             = lgsl_get_string($buffer);
    2126. 

  2126.     $buffer = substr($buffer, 20);
    2127. 

  2127.     $server['s']['name']             = lgsl_get_string($buffer);
    2128. 

  2128.     $buffer = substr($buffer, 28);
    2129. 

  2129.     $server['s']['map']              = lgsl_get_string($buffer);
    2130. 

  2130.     $buffer = substr($buffer, 32);
    2131. 

  2131.     $server['e']['motd']             = lgsl_get_string($buffer);
    2132. 

  2132.     $buffer = substr($buffer, 96);
    2133. 

  2133.     $server['e']['packed_aids']      = lgsl_unpack($buffer[0].$buffer[1], "S");
    2134. 

  2134. //  $server['e']['ping']             = lgsl_unpack($buffer[2].$buffer[3], "S");
    2135. 

  2135.     $server['e']['packed_flags']     = lgsl_unpack($buffer[4],  "C");
    2136. 

  2136.     $server['e']['rate']             = lgsl_unpack($buffer[5],  "C");
    2137. 

  2137.     $server['s']['players']          = lgsl_unpack($buffer[6],  "C");
    2138. 

  2138.     $server['s']['playersmax']       = lgsl_unpack($buffer[7],  "C");
    2139. 

  2139.     $server['e']['bots']             = lgsl_unpack($buffer[8],  "C");
    2140. 

  2140.     $server['e']['packed_special']   = lgsl_unpack($buffer[9],  "C");
    2141. 

  2141.     $server['e']['damage']           = lgsl_unpack($buffer[10], "C");
    2142. 

  2142.     $server['e']['packed_rules']     = lgsl_unpack($buffer[11].$buffer[12], "S");
    2143. 

  2143.     $server['e']['credits1']         = lgsl_unpack($buffer[13], "C");
    2144. 

  2144.     $server['e']['credits2']         = lgsl_unpack($buffer[14].$buffer[15], "S");
    2145. 

  2145.     $server['e']['time']   = lgsl_time(lgsl_unpack($buffer[16].$buffer[17], "S"));
    2146. 

  2146.     $server['e']['laps']             = lgsl_unpack($buffer[18].$buffer[19], "s") / 16;
    2147. 

  2147.     $buffer = substr($buffer, 23);
    2148. 

  2148.     $server['e']['vehicles']         = lgsl_get_string($buffer);
    2149. 

  2149. 

  2150.     // DOES NOT RETURN PLAYER INFORMATION
    2151. 

  2151. 

  2152. //---------------------------------------------------------+
    2153. 

  2153. 

  2154.     $server['s']['password']    = ($server['e']['packed_special'] & 2)  ? 1 : 0;
    2155. 

  2155.     $server['e']['racecast']    = ($server['e']['packed_special'] & 4)  ? 1 : 0;
    2156. 

  2156.     $server['e']['fixedsetups'] = ($server['e']['packed_special'] & 16) ? 1 : 0;
    2157. 

  2157. 

  2158.                                               $server['e']['aids']  = "";
    2159. 

  2159.     if ($server['e']['packed_aids'] & 1)    { $server['e']['aids'] .= " TractionControl"; }
    2160. 

  2160.     if ($server['e']['packed_aids'] & 2)    { $server['e']['aids'] .= " AntiLockBraking"; }
    2161. 

  2161.     if ($server['e']['packed_aids'] & 4)    { $server['e']['aids'] .= " StabilityControl"; }
    2162. 

  2162.     if ($server['e']['packed_aids'] & 8)    { $server['e']['aids'] .= " AutoShifting"; }
    2163. 

  2163.     if ($server['e']['packed_aids'] & 16)   { $server['e']['aids'] .= " AutoClutch"; }
    2164. 

  2164.     if ($server['e']['packed_aids'] & 32)   { $server['e']['aids'] .= " Invulnerability"; }
    2165. 

  2165.     if ($server['e']['packed_aids'] & 64)   { $server['e']['aids'] .= " OppositeLock"; }
    2166. 

  2166.     if ($server['e']['packed_aids'] & 128)  { $server['e']['aids'] .= " SteeringHelp"; }
    2167. 

  2167.     if ($server['e']['packed_aids'] & 256)  { $server['e']['aids'] .= " BrakingHelp"; }
    2168. 

  2168.     if ($server['e']['packed_aids'] & 512)  { $server['e']['aids'] .= " SpinRecovery"; }
    2169. 

  2169.     if ($server['e']['packed_aids'] & 1024) { $server['e']['aids'] .= " AutoPitstop"; }
    2170. 

  2170. 

  2171.     $server['e']['aids']     = str_replace(" ", " / ", trim($server['e']['aids']));
    2172. 

  2172.     $server['e']['vehicles'] = str_replace("|", " / ", trim($server['e']['vehicles']));
    2173. 

  2173. 

  2174.     unset($server['e']['packed_aids']);
    2175. 

  2175.     unset($server['e']['packed_flags']);
    2176. 

  2176.     unset($server['e']['packed_special']);
    2177. 

  2177.     unset($server['e']['packed_rules']);
    2178. 

  2178. 

  2179. //---------------------------------------------------------+
    2180. 

  2180. 

  2181.     return TRUE;
    2182. 

  2182.   }
    2183. 

  2183. 

  2184. //------------------------------------------------------------------------------------------------------------+
    2185. 

  2185. //------------------------------------------------------------------------------------------------------------+
    2186. 

  2186. 

  2187.   function lgsl_query_17(&$server, &$lgsl_need, &$lgsl_fp)
    2188. 

  2188.   {
    2189. 

  2189. //---------------------------------------------------------+
    2190. 

  2190. //  REFERENCE: http://masterserver.savage.s2games.com
    2191. 

  2191. 

  2192.     fwrite($lgsl_fp, "\x9e\x4c\x23\x00\x00\xce\x21\x21\x21\x21");
    2193. 

  2193. 

  2194.     $buffer = fread($lgsl_fp, 4096);
    2195. 

  2195. 

  2196.     if (!$buffer) { return FALSE; }
    2197. 

  2197. 

  2198. //---------------------------------------------------------+
    2199. 

  2199. 

  2200.     $buffer = substr($buffer, 12); // REMOVE HEADER
    2201. 

  2201. 

  2202.     while ($key = strtolower(lgsl_cut_string($buffer, 0, "\xFE")))
    2203. 

  2203.     {
    2204. 

  2204.       if ($key == "players") { break; }
    2205. 

  2205. 

  2206.       $value = lgsl_cut_string($buffer, 0, "\xFF");
    2207. 

  2207.       $value = str_replace("\x00", "", $value);
    2208. 

  2208.       $value = lgsl_parse_color($value, $server['b']['type']);
    2209. 

  2209. 

  2210.       $server['e'][$key] = $value;
    2211. 

  2211.     }
    2212. 

  2212. 

  2213.     $server['s']['name']       = $server['e']['name'];  unset($server['e']['name']);
    2214. 

  2214.     $server['s']['map']        = $server['e']['world']; unset($server['e']['world']);
    2215. 

  2215.     $server['s']['players']    = $server['e']['cnum'];  unset($server['e']['cnum']);
    2216. 

  2216.     $server['s']['playersmax'] = $server['e']['cmax'];  unset($server['e']['cnum']);
    2217. 

  2217.     $server['s']['password']   = $server['e']['pass'];  unset($server['e']['cnum']);
    2218. 

  2218. 

  2219. //---------------------------------------------------------+
    2220. 

  2220. 

  2221.     $server['t'][0]['name'] = $server['e']['race1'];
    2222. 

  2222.     $server['t'][1]['name'] = $server['e']['race2'];
    2223. 

  2223.     $server['t'][2]['name'] = "spectator";
    2224. 

  2224. 

  2225.     $team_key   = -1;
    2226. 

  2226.     $player_key = 0;
    2227. 

  2227. 

  2228.     while ($value = lgsl_cut_string($buffer, 0, "\x0a"))
    2229. 

  2229.     {
    2230. 

  2230.       if ($value[0] == "\x00") { break; }
    2231. 

  2231.       if ($value[0] != "\x20") { $team_key++; continue; }
    2232. 

  2232. 

  2233.       $server['p'][$player_key]['name'] = lgsl_parse_color(substr($value, 1), $server['b']['type']);
    2234. 

  2234.       $server['p'][$player_key]['team'] = $server['t'][$team_key]['name'];
    2235. 

  2235. 

  2236.       $player_key++;
    2237. 

  2237.     }
    2238. 

  2238. 

  2239. //---------------------------------------------------------+
    2240. 

  2240. 

  2241.     return TRUE;
    2242. 

  2242.   }
    2243. 

  2243. 

  2244. //------------------------------------------------------------------------------------------------------------+
    2245. 

  2245. //------------------------------------------------------------------------------------------------------------+
    2246. 

  2246. 

  2247.   function lgsl_query_18(&$server, &$lgsl_need, &$lgsl_fp)
    2248. 

  2248.   {
    2249. 

  2249. //---------------------------------------------------------+
    2250. 

  2250. //  REFERENCE: http://masterserver.savage2.s2games.com
    2251. 

  2251. 

  2252.     fwrite($lgsl_fp, "\x01");
    2253. 

  2253. 

  2254.     $buffer = fread($lgsl_fp, 4096);
    2255. 

  2255. 

  2256.     if (!$buffer) { return FALSE; }
    2257. 

  2257. 

  2258. //---------------------------------------------------------+
    2259. 

  2259. 

  2260.     $buffer = substr($buffer, 12); // REMOVE HEADER
    2261. 

  2261. 

  2262.     $server['s']['name']            = lgsl_cut_string($buffer);
    2263. 

  2263.     $server['s']['players']         = ord(lgsl_cut_byte($buffer, 1));
    2264. 

  2264.     $server['s']['playersmax']      = ord(lgsl_cut_byte($buffer, 1));
    2265. 

  2265.     $server['e']['time']            = lgsl_cut_string($buffer);
    2266. 

  2266.     $server['s']['map']             = lgsl_cut_string($buffer);
    2267. 

  2267.     $server['e']['nextmap']         = lgsl_cut_string($buffer);
    2268. 

  2268.     $server['e']['location']        = lgsl_cut_string($buffer);
    2269. 

  2269.     $server['e']['minimum_players'] = ord(lgsl_cut_string($buffer));
    2270. 

  2270.     $server['e']['gamemode']        = lgsl_cut_string($buffer);
    2271. 

  2271.     $server['e']['version']         = lgsl_cut_string($buffer);
    2272. 

  2272.     $server['e']['minimum_level']   = ord(lgsl_cut_byte($buffer, 1));
    2273. 

  2273. 

  2274.     // DOES NOT RETURN PLAYER INFORMATION
    2275. 

  2275. 

  2276. //---------------------------------------------------------+
    2277. 

  2277. 

  2278.     return TRUE;
    2279. 

  2279.   }
    2280. 

  2280. 

  2281. //------------------------------------------------------------------------------------------------------------+
    2282. 

  2282. //------------------------------------------------------------------------------------------------------------+
    2283. 

  2283. 

  2284.   function lgsl_query_19(&$server, &$lgsl_need, &$lgsl_fp)
    2285. 

  2285.   {
    2286. 

  2286. //---------------------------------------------------------+
    2287. 

  2287. 

  2288.     fwrite($lgsl_fp, "\xC0\xDE\xF1\x11\x42\x06\x00\xF5\x03\x21\x21\x21\x21");
    2289. 

  2289. 

  2290.     $buffer = fread($lgsl_fp, 4096);
    2291. 

  2291. 

  2292.     if (!$buffer) { return FALSE; }
    2293. 

  2293. 

  2294. //---------------------------------------------------------+
    2295. 

  2295. 

  2296.     $buffer = substr($buffer, 25); // REMOVE HEADER
    2297. 

  2297. 

  2298.     $server['s']['name']       = lgsl_get_string(lgsl_cut_pascal($buffer, 4, 3, -3));
    2299. 

  2299.     $server['s']['map']        = lgsl_get_string(lgsl_cut_pascal($buffer, 4, 3, -3));
    2300. 

  2300.     $server['e']['nextmap']    = lgsl_get_string(lgsl_cut_pascal($buffer, 4, 3, -3));
    2301. 

  2301.     $server['e']['gametype']   = lgsl_get_string(lgsl_cut_pascal($buffer, 4, 3, -3));
    2302. 

  2302. 

  2303.     $buffer = substr($buffer, 1);
    2304. 

  2304. 

  2305.     $server['s']['password']   = ord(lgsl_cut_byte($buffer, 1));
    2306. 

  2306.     $server['s']['playersmax'] = ord(lgsl_cut_byte($buffer, 4));
    2307. 

  2307.     $server['s']['players']    = ord(lgsl_cut_byte($buffer, 4));
    2308. 

  2308. 

  2309. //---------------------------------------------------------+
    2310. 

  2310. 

  2311.     for ($player_key=0; $player_key<$server['s']['players']; $player_key++)
    2312. 

  2312.     {
    2313. 

  2313.      $server['p'][$player_key]['name'] = lgsl_get_string(lgsl_cut_pascal($buffer, 4, 3, -3));
    2314. 

  2314.     }
    2315. 

  2315. 

  2316. //---------------------------------------------------------+
    2317. 

  2317. 

  2318.     $buffer = substr($buffer, 17);
    2319. 

  2319. 

  2320.     $server['e']['version']    = lgsl_get_string(lgsl_cut_pascal($buffer, 4, 3, -3));
    2321. 

  2321.     $server['e']['mods']       = lgsl_get_string(lgsl_cut_pascal($buffer, 4, 3, -3));
    2322. 

  2322.     $server['e']['dedicated']  = ord(lgsl_cut_byte($buffer, 1));
    2323. 

  2323.     $server['e']['time']       = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 4), "f"));
    2324. 

  2324.     $server['e']['status']     = ord(lgsl_cut_byte($buffer, 4));
    2325. 

  2325.     $server['e']['gamemode']   = ord(lgsl_cut_byte($buffer, 4));
    2326. 

  2326.     $server['e']['motd']       = lgsl_get_string(lgsl_cut_pascal($buffer, 4, 3, -3));
    2327. 

  2327.     $server['e']['respawns']   = ord(lgsl_cut_byte($buffer, 4));
    2328. 

  2328.     $server['e']['time_limit'] = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 4), "f"));
    2329. 

  2329.     $server['e']['voting']     = ord(lgsl_cut_byte($buffer, 4));
    2330. 

  2330. 

  2331.     $buffer = substr($buffer, 2);
    2332. 

  2332. 

  2333. //---------------------------------------------------------+
    2334. 

  2334. 

  2335.     for ($player_key=0; $player_key<$server['s']['players']; $player_key++)
    2336. 

  2336.     {
    2337. 

  2337.      $server['p'][$player_key]['team'] = ord(lgsl_cut_byte($buffer, 4));
    2338. 

  2338. 

  2339.      $unknown = ord(lgsl_cut_byte($buffer, 1));
    2340. 

  2340.     }
    2341. 

  2341. 

  2342. //---------------------------------------------------------+
    2343. 

  2343. 

  2344.     $buffer = substr($buffer, 7);
    2345. 

  2345. 

  2346.     $server['e']['platoon_1_color']   = ord(lgsl_cut_byte($buffer, 8));
    2347. 

  2347.     $server['e']['platoon_2_color']   = ord(lgsl_cut_byte($buffer, 8));
    2348. 

  2348.     $server['e']['platoon_3_color']   = ord(lgsl_cut_byte($buffer, 8));
    2349. 

  2349.     $server['e']['platoon_4_color']   = ord(lgsl_cut_byte($buffer, 8));
    2350. 

  2350.     $server['e']['timer_on']          = ord(lgsl_cut_byte($buffer, 1));
    2351. 

  2351.     $server['e']['timer_time']        = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 4), "f"));
    2352. 

  2352.     $server['e']['time_debriefing']   = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 4), "f"));
    2353. 

  2353.     $server['e']['time_respawn_min']  = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 4), "f"));
    2354. 

  2354.     $server['e']['time_respawn_max']  = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 4), "f"));
    2355. 

  2355.     $server['e']['time_respawn_safe'] = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 4), "f"));
    2356. 

  2356.     $server['e']['difficulty']        = ord(lgsl_cut_byte($buffer, 4));
    2357. 

  2357.     $server['e']['respawn_total']     = ord(lgsl_cut_byte($buffer, 4));
    2358. 

  2358.     $server['e']['random_insertions'] = ord(lgsl_cut_byte($buffer, 1));
    2359. 

  2359.     $server['e']['spectators']        = ord(lgsl_cut_byte($buffer, 1));
    2360. 

  2360.     $server['e']['arcademode']        = ord(lgsl_cut_byte($buffer, 1));
    2361. 

  2361.     $server['e']['ai_backup']         = ord(lgsl_cut_byte($buffer, 1));
    2362. 

  2362.     $server['e']['random_teams']      = ord(lgsl_cut_byte($buffer, 1));
    2363. 

  2363.     $server['e']['time_starting']     = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 4), "f"));
    2364. 

  2364.     $server['e']['identify_friends']  = ord(lgsl_cut_byte($buffer, 1));
    2365. 

  2365.     $server['e']['identify_threats']  = ord(lgsl_cut_byte($buffer, 1));
    2366. 

  2366. 

  2367.     $buffer = substr($buffer, 5);
    2368. 

  2368. 

  2369.     $server['e']['restrictions']      = lgsl_get_string(lgsl_cut_pascal($buffer, 4, 3, -3));
    2370. 

  2370. 

  2371. //---------------------------------------------------------+
    2372. 

  2372. 

  2373.     switch ($server['e']['status'])
    2374. 

  2374.     {
    2375. 

  2375.       case 3: $server['e']['status'] = "Joining"; break;
    2376. 

  2376.       case 4: $server['e']['status'] = "Joining"; break;
    2377. 

  2377.       case 5: $server['e']['status'] = "Joining"; break;
    2378. 

  2378.     }
    2379. 

  2379. 

  2380.     switch ($server['e']['gamemode'])
    2381. 

  2381.     {
    2382. 

  2382.       case 2: $server['e']['gamemode'] = "Co-Op"; break;
    2383. 

  2383.       case 3: $server['e']['gamemode'] = "Solo";  break;
    2384. 

  2384.       case 4: $server['e']['gamemode'] = "Team";  break;
    2385. 

  2385.     }
    2386. 

  2386. 

  2387.     switch ($server['e']['respawns'])
    2388. 

  2388.     {
    2389. 

  2389.       case 0: $server['e']['respawns'] = "None";       break;
    2390. 

  2390.       case 1: $server['e']['respawns'] = "Individual"; break;
    2391. 

  2391.       case 2: $server['e']['respawns'] = "Team";       break;
    2392. 

  2392.       case 3: $server['e']['respawns'] = "Infinite";   break;
    2393. 

  2393.     }
    2394. 

  2394. 

  2395.     switch ($server['e']['difficulty'])
    2396. 

  2396.     {
    2397. 

  2397.       case 0: $server['e']['difficulty'] = "Recruit"; break;
    2398. 

  2398.       case 1: $server['e']['difficulty'] = "Veteran"; break;
    2399. 

  2399.       case 2: $server['e']['difficulty'] = "Elite";   break;
    2400. 

  2400.     }
    2401. 

  2401. 

  2402. //---------------------------------------------------------+
    2403. 

  2403. 

  2404.     return TRUE;
    2405. 

  2405.   }
    2406. 

  2406. 

  2407. //------------------------------------------------------------------------------------------------------------+
    2408. 

  2408. //------------------------------------------------------------------------------------------------------------+
    2409. 

  2409. 

  2410.   function lgsl_query_20(&$server, &$lgsl_need, &$lgsl_fp)
    2411. 

  2411.   {
    2412. 

  2412. //---------------------------------------------------------+
    2413. 

  2413. 

  2414.     if ($lgsl_need['s'])
    2415. 

  2415.     {
    2416. 

  2416.       fwrite($lgsl_fp, "\xFF\xFF\xFF\xFFFLSQ");
    2417. 

  2417.     }
    2418. 

  2418.     else
    2419. 

  2419.     {
    2420. 

  2420.       fwrite($lgsl_fp, "\xFF\xFF\xFF\xFF\x57");
    2421. 

  2421. 

  2422.       $challenge_packet = fread($lgsl_fp, 4096);
    2423. 

  2423. 

  2424.       if (!$challenge_packet) { return FALSE; }
    2425. 

  2425. 

  2426.       $challenge_code = substr($challenge_packet, 5, 4);
    2427. 

  2427. 

  2428.       if     ($lgsl_need['e']) { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFF\x56{$challenge_code}"); }
    2429. 

  2429.       elseif ($lgsl_need['p']) { fwrite($lgsl_fp, "\xFF\xFF\xFF\xFF\x55{$challenge_code}"); }
    2430. 

  2430.     }
    2431. 

  2431. 

  2432.     $buffer = fread($lgsl_fp, 4096);
    2433. 

  2433.     $buffer = substr($buffer, 4); // REMOVE HEADER
    2434. 

  2434. 

  2435.     if (!$buffer) { return FALSE; }
    2436. 

  2436. 

  2437. //---------------------------------------------------------+
    2438. 

  2438. 

  2439.     $response_type = lgsl_cut_byte($buffer, 1);
    2440. 

  2440. 

  2441.     if ($response_type == "I")
    2442. 

  2442.     {
    2443. 

  2443.       $server['e']['netcode']     = ord(lgsl_cut_byte($buffer, 1));
    2444. 

  2444.       $server['s']['name']        = lgsl_cut_string($buffer);
    2445. 

  2445.       $server['s']['map']         = lgsl_cut_string($buffer);
    2446. 

  2446.       $server['s']['game']        = lgsl_cut_string($buffer);
    2447. 

  2447.       $server['e']['gamemode']    = lgsl_cut_string($buffer);
    2448. 

  2448.       $server['e']['description'] = lgsl_cut_string($buffer);
    2449. 

  2449.       $server['e']['version']     = lgsl_cut_string($buffer);
    2450. 

  2450.       $server['e']['hostport']    = lgsl_unpack(lgsl_cut_byte($buffer, 2), "n");
    2451. 

  2451.       $server['s']['players']     = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2452. 

  2452.       $server['s']['playersmax']  = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2453. 

  2453.       $server['e']['dedicated']   = lgsl_cut_byte($buffer, 1);
    2454. 

  2454.       $server['e']['os']          = lgsl_cut_byte($buffer, 1);
    2455. 

  2455.       $server['s']['password']    = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2456. 

  2456.       $server['e']['anticheat']   = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2457. 

  2457.       $server['e']['cpu_load']    = round(3.03 * lgsl_unpack(lgsl_cut_byte($buffer, 1), "C"))."%";
    2458. 

  2458.       $server['e']['round']       = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2459. 

  2459.       $server['e']['roundsmax']   = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2460. 

  2460.       $server['e']['timeleft']    = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 2), "S") / 250);
    2461. 

  2461.     }
    2462. 

  2462. 

  2463.     elseif ($response_type == "E")
    2464. 

  2464.     {
    2465. 

  2465.       $returned = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    2466. 

  2466. 

  2467.       while ($buffer)
    2468. 

  2468.       {
    2469. 

  2469.         $item_key   = strtolower(lgsl_cut_string($buffer));
    2470. 

  2470.         $item_value = lgsl_cut_string($buffer);
    2471. 

  2471. 

  2472.         $server['e'][$item_key] = $item_value;
    2473. 

  2473.       }
    2474. 

  2474.     }
    2475. 

  2475. 

  2476.     elseif ($response_type == "D")
    2477. 

  2477.     {
    2478. 

  2478.       $returned = ord(lgsl_cut_byte($buffer, 1));
    2479. 

  2479. 

  2480.       $player_key = 0;
    2481. 

  2481. 

  2482.       while ($buffer)
    2483. 

  2483.       {
    2484. 

  2484.         $server['p'][$player_key]['pid']   = ord(lgsl_cut_byte($buffer, 1));
    2485. 

  2485.         $server['p'][$player_key]['name']  = lgsl_cut_string($buffer);
    2486. 

  2486.         $server['p'][$player_key]['score'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "N");
    2487. 

  2487.         $server['p'][$player_key]['time']  = lgsl_time(lgsl_unpack(strrev(lgsl_cut_byte($buffer, 4)), "f"));
    2488. 

  2488.         $server['p'][$player_key]['ping']  = lgsl_unpack(lgsl_cut_byte($buffer, 2), "n");
    2489. 

  2489.         $server['p'][$player_key]['uid']   = lgsl_unpack(lgsl_cut_byte($buffer, 4), "N");
    2490. 

  2490.         $server['p'][$player_key]['team']  = ord(lgsl_cut_byte($buffer, 1));
    2491. 

  2491. 

  2492.         $player_key ++;
    2493. 

  2493.       }
    2494. 

  2494.     }
    2495. 

  2495. 

  2496. //---------------------------------------------------------+
    2497. 

  2497. 

  2498.     if     ($lgsl_need['s']) { $lgsl_need['s'] = FALSE; }
    2499. 

  2499.     elseif ($lgsl_need['e']) { $lgsl_need['e'] = FALSE; }
    2500. 

  2500.     elseif ($lgsl_need['p']) { $lgsl_need['p'] = FALSE; }
    2501. 

  2501. 

  2502. //---------------------------------------------------------+
    2503. 

  2503. 

  2504.     return TRUE;
    2505. 

  2505.   }
    2506. 

  2506. 

  2507. //------------------------------------------------------------------------------------------------------------+
    2508. 

  2508. //------------------------------------------------------------------------------------------------------------+
    2509. 

  2509. 

  2510.   function lgsl_query_21(&$server, &$lgsl_need, &$lgsl_fp)
    2511. 

  2511.   {
    2512. 

  2512. //---------------------------------------------------------+
    2513. 

  2513. 

  2514.     fwrite($lgsl_fp,"\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffgief");
    2515. 

  2515. 

  2516.     $buffer = fread($lgsl_fp, 4096);
    2517. 

  2517.     $buffer = substr($buffer, 20); // REMOVE HEADER
    2518. 

  2518. 

  2519.     if (!$buffer) { return FALSE; }
    2520. 

  2520. 

  2521. //---------------------------------------------------------+
    2522. 

  2522. 

  2523.     $server['s']['name']       = lgsl_cut_string($buffer);
    2524. 

  2524.     $server['s']['map']        = lgsl_cut_string($buffer);
    2525. 

  2525.     $server['e']['gamemode']   = lgsl_cut_string($buffer);
    2526. 

  2526.     $server['s']['password']   = lgsl_cut_string($buffer);
    2527. 

  2527.     $server['e']['progress']   = lgsl_cut_string($buffer)."%";
    2528. 

  2528.     $server['s']['players']    = lgsl_cut_string($buffer);
    2529. 

  2529.     $server['s']['playersmax'] = lgsl_cut_string($buffer);
    2530. 

  2530. 

  2531.     switch ($server['e']['gamemode'])
    2532. 

  2532.     {
    2533. 

  2533.       case 0: $server['e']['gamemode'] = "Deathmatch"; break;
    2534. 

  2534.       case 1: $server['e']['gamemode'] = "Team Deathmatch"; break;
    2535. 

  2535.       case 2: $server['e']['gamemode'] = "Capture The Flag"; break;
    2536. 

  2536.     }
    2537. 

  2537. 

  2538. //---------------------------------------------------------+
    2539. 

  2539. 

  2540.     $player_key = 0;
    2541. 

  2541. 

  2542.     while ($buffer)
    2543. 

  2543.     {
    2544. 

  2544.       $server['p'][$player_key]['name']  = lgsl_cut_string($buffer);
    2545. 

  2545.       $server['p'][$player_key]['score'] = lgsl_cut_string($buffer);
    2546. 

  2546. 

  2547.       $player_key ++;
    2548. 

  2548.     }
    2549. 

  2549. 

  2550. //---------------------------------------------------------+
    2551. 

  2551. 

  2552.     return TRUE;
    2553. 

  2553.   }
    2554. 

  2554. 

  2555. //------------------------------------------------------------------------------------------------------------+
    2556. 

  2556. //------------------------------------------------------------------------------------------------------------+
    2557. 

  2557. 

  2558.   function lgsl_query_22(&$server, &$lgsl_need, &$lgsl_fp)
    2559. 

  2559.   {
    2560. 

  2560. //---------------------------------------------------------+
    2561. 

  2561. 

  2562.     fwrite($lgsl_fp,"\x03\x00\x00");
    2563. 

  2563. 

  2564.     $buffer = fread($lgsl_fp, 4096);
    2565. 

  2565.     $buffer = substr($buffer, 3); // REMOVE HEADER
    2566. 

  2566. 

  2567.     if (!$buffer) { return FALSE; }
    2568. 

  2568. 

  2569.     $response_type = ord(lgsl_cut_byte($buffer, 1)); // TYPE SHOULD BE 4
    2570. 

  2570. 

  2571. //---------------------------------------------------------+
    2572. 

  2572. 

  2573.     $grf_count = ord(lgsl_cut_byte($buffer, 1));
    2574. 

  2574. 

  2575.     for ($a=0; $a<$grf_count; $a++)
    2576. 

  2576.     {
    2577. 

  2577.       $server['e']['grf_'.$a.'_id'] = strtoupper(dechex(lgsl_unpack(lgsl_cut_byte($buffer, 4), "N")));
    2578. 

  2578. 

  2579.       for ($b=0; $b<16; $b++)
    2580. 

  2580.       {
    2581. 

  2581.         $server['e']['grf_'.$a.'_md5'] .= strtoupper(dechex(ord(lgsl_cut_byte($buffer, 1))));
    2582. 

  2582.       }
    2583. 

  2583.     }
    2584. 

  2584. 

  2585. //---------------------------------------------------------+
    2586. 

  2586. 

  2587.     $server['e']['date_current']   = lgsl_unpack(lgsl_cut_byte($buffer, 4), "L");
    2588. 

  2588.     $server['e']['date_start']     = lgsl_unpack(lgsl_cut_byte($buffer, 4), "L");
    2589. 

  2589.     $server['e']['companies_max']  = ord(lgsl_cut_byte($buffer, 1));
    2590. 

  2590.     $server['e']['companies']      = ord(lgsl_cut_byte($buffer, 1));
    2591. 

  2591.     $server['e']['spectators_max'] = ord(lgsl_cut_byte($buffer, 1));
    2592. 

  2592.     $server['s']['name']           = lgsl_cut_string($buffer);
    2593. 

  2593.     $server['e']['version']        = lgsl_cut_string($buffer);
    2594. 

  2594.     $server['e']['language']       = ord(lgsl_cut_byte($buffer, 1));
    2595. 

  2595.     $server['s']['password']       = ord(lgsl_cut_byte($buffer, 1));
    2596. 

  2596.     $server['s']['playersmax']     = ord(lgsl_cut_byte($buffer, 1));
    2597. 

  2597.     $server['s']['players']        = ord(lgsl_cut_byte($buffer, 1));
    2598. 

  2598.     $server['e']['spectators']     = ord(lgsl_cut_byte($buffer, 1));
    2599. 

  2599.     $server['s']['map']            = lgsl_cut_string($buffer);
    2600. 

  2600.     $server['e']['map_width']      = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    2601. 

  2601.     $server['e']['map_height']     = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    2602. 

  2602.     $server['e']['map_set']        = ord(lgsl_cut_byte($buffer, 1));
    2603. 

  2603.     $server['e']['dedicated']      = ord(lgsl_cut_byte($buffer, 1));
    2604. 

  2604. 

  2605.     // DOES NOT RETURN PLAYER INFORMATION
    2606. 

  2606. 

  2607. //---------------------------------------------------------+
    2608. 

  2608. 

  2609.     return TRUE;
    2610. 

  2610.   }
    2611. 

  2611. 

  2612. //------------------------------------------------------------------------------------------------------------+
    2613. 

  2613. //------------------------------------------------------------------------------------------------------------+
    2614. 

  2614. 

  2615.   function lgsl_query_23(&$server, &$lgsl_need, &$lgsl_fp)
    2616. 

  2616.   {
    2617. 

  2617. //---------------------------------------------------------+
    2618. 

  2618. //  REFERENCE:
    2619. 

  2619. //  http://siteinthe.us
    2620. 

  2620. //  http://www.tribesmasterserver.com
    2621. 

  2621. 

  2622.     fwrite($lgsl_fp, "b++");
    2623. 

  2623. 

  2624.     $buffer = fread($lgsl_fp, 4096);
    2625. 

  2625. 

  2626.     if (!$buffer) { return FALSE; }
    2627. 

  2627. 

  2628.     $buffer = substr($buffer, 4); // REMOVE HEADER
    2629. 

  2629. 

  2630. //---------------------------------------------------------+
    2631. 

  2631. 

  2632.     $server['s']['game']       = lgsl_cut_pascal($buffer);
    2633. 

  2633.     $server['e']['version']    = lgsl_cut_pascal($buffer);
    2634. 

  2634.     $server['s']['name']       = lgsl_cut_pascal($buffer);
    2635. 

  2635.     $server['e']['dedicated']  = ord(lgsl_cut_byte($buffer, 1));
    2636. 

  2636.     $server['s']['password']   = ord(lgsl_cut_byte($buffer, 1));
    2637. 

  2637.     $server['s']['players']    = ord(lgsl_cut_byte($buffer, 1));
    2638. 

  2638.     $server['s']['playersmax'] = ord(lgsl_cut_byte($buffer, 1));
    2639. 

  2639.     $server['e']['cpu']        = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    2640. 

  2640.     $server['e']['mod']        = lgsl_cut_pascal($buffer);
    2641. 

  2641.     $server['e']['type']       = lgsl_cut_pascal($buffer);
    2642. 

  2642.     $server['s']['map']        = lgsl_cut_pascal($buffer);
    2643. 

  2643.     $server['e']['motd']       = lgsl_cut_pascal($buffer);
    2644. 

  2644.     $server['e']['teams']      = ord(lgsl_cut_byte($buffer, 1));
    2645. 

  2645. 

  2646. //---------------------------------------------------------+
    2647. 

  2647. 

  2648.     $team_field = "?".lgsl_cut_pascal($buffer);
    2649. 

  2649.     $team_field = split("\t", $team_field);
    2650. 

  2650. 

  2651.     foreach ($team_field as $key => $value)
    2652. 

  2652.     {
    2653. 

  2653.       $value = substr($value, 1);
    2654. 

  2654.       $value = strtolower($value);
    2655. 

  2655.       $team_field[$key] = $value;
    2656. 

  2656.     }
    2657. 

  2657. 

  2658. //---------------------------------------------------------+
    2659. 

  2659. 

  2660.     $player_field = "?".lgsl_cut_pascal($buffer);
    2661. 

  2661.     $player_field = split("\t", $player_field);
    2662. 

  2662. 

  2663.     foreach ($player_field as $key => $value)
    2664. 

  2664.     {
    2665. 

  2665.       $value = substr($value, 1);
    2666. 

  2666.       $value = strtolower($value);
    2667. 

  2667. 

  2668.       if ($value == "player name") { $value = "name"; }
    2669. 

  2669. 

  2670.       $player_field[$key] = $value;
    2671. 

  2671.     }
    2672. 

  2672. 

  2673.     $player_field[] = "unknown_1";
    2674. 

  2674.     $player_field[] = "unknown_2";
    2675. 

  2675. 

  2676. //---------------------------------------------------------+
    2677. 

  2677. 

  2678.     for ($i=0; $i<$server['e']['teams']; $i++)
    2679. 

  2679.     {
    2680. 

  2680.       $team_name = lgsl_cut_pascal($buffer);
    2681. 

  2681.       $team_info = lgsl_cut_pascal($buffer);
    2682. 

  2682. 

  2683.       if (!$team_info) { continue; }
    2684. 

  2684. 

  2685.       $team_info = str_replace("%t", $team_name, $team_info);
    2686. 

  2686.       $team_info = split("\t", $team_info);
    2687. 

  2687. 

  2688.       foreach ($team_info as $key => $value)
    2689. 

  2689.       {
    2690. 

  2690.         $field = $team_field[$key];
    2691. 

  2691.         $value = trim($value);
    2692. 

  2692. 

  2693.         if ($field == "team name") { $field = "name"; }
    2694. 

  2694. 

  2695.         $server['t'][$i][$field] = $value;
    2696. 

  2696.       }
    2697. 

  2697.     }
    2698. 

  2698. 

  2699. //---------------------------------------------------------+
    2700. 

  2700. 

  2701.     for ($i=0; $i<$server['s']['players']; $i++)
    2702. 

  2702.     {
    2703. 

  2703.       $player_bits   = array();
    2704. 

  2704.       $player_bits[] = ord(lgsl_cut_byte($buffer, 1)) * 4; // %p = PING
    2705. 

  2705.       $player_bits[] = ord(lgsl_cut_byte($buffer, 1));     // %l = PACKET LOSS
    2706. 

  2706.       $player_bits[] = ord(lgsl_cut_byte($buffer, 1));     // %t = TEAM
    2707. 

  2707.       $player_bits[] = lgsl_cut_pascal($buffer);           // %n = PLAYER NAME
    2708. 

  2708.       $player_info   = lgsl_cut_pascal($buffer);
    2709. 

  2709. 

  2710.       if (!$player_info) { continue; }
    2711. 

  2711. 

  2712.       $player_info = str_replace(array("%p","%l","%t","%n"), $player_bits, $player_info);
    2713. 

  2713.       $player_info = split("\t", $player_info);
    2714. 

  2714. 

  2715.       foreach ($player_info as $key => $value)
    2716. 

  2716.       {
    2717. 

  2717.         $field = $player_field[$key];
    2718. 

  2718.         $value = trim($value);
    2719. 

  2719. 

  2720.         if ($field == "team") { $value = $server['t'][$value]['name']; }
    2721. 

  2721. 

  2722.         $server['p'][$i][$field] = $value;
    2723. 

  2723.       }
    2724. 

  2724.     }
    2725. 

  2725. 

  2726. //---------------------------------------------------------+
    2727. 

  2727. 

  2728.     return TRUE;
    2729. 

  2729.   }
    2730. 

  2730. 

  2731. //------------------------------------------------------------------------------------------------------------+
    2732. 

  2732. //------------------------------------------------------------------------------------------------------------+
    2733. 

  2733. 

  2734.   function lgsl_query_24(&$server, &$lgsl_need, &$lgsl_fp)
    2735. 

  2735.   {
    2736. 

  2736. //---------------------------------------------------------+
    2737. 

  2737. //  REFERENCE: http://cubelister.sourceforge.net
    2738. 

  2738. 

  2739.     fwrite($lgsl_fp, "\x21\x21");
    2740. 

  2740. 

  2741.     $buffer = fread($lgsl_fp, 4096);
    2742. 

  2742. 

  2743.     if (!$buffer) { return FALSE; }
    2744. 

  2744. 

  2745.     $buffer = substr($buffer, 2); // REMOVE HEADER
    2746. 

  2746. 

  2747. //---------------------------------------------------------+
    2748. 

  2748. 

  2749.     if ($buffer[0] == "\x1b") // CUBE 1
    2750. 

  2750.     {
    2751. 

  2751.       // RESPONSE IS XOR ENCODED FOR SOME STRANGE REASON
    2752. 

  2752.       for ($i=0; $i<strlen($buffer); $i++) { $buffer[$i] = chr(ord($buffer[$i]) ^ 0x61); }
    2753. 

  2753. 

  2754.       $server['s']['game']       = "Cube";
    2755. 

  2755.       $server['e']['netcode']    = ord(lgsl_cut_byte($buffer, 1));
    2756. 

  2756.       $server['e']['gamemode']   = ord(lgsl_cut_byte($buffer, 1));
    2757. 

  2757.       $server['s']['players']    = ord(lgsl_cut_byte($buffer, 1));
    2758. 

  2758.       $server['e']['timeleft']   = lgsl_time(ord(lgsl_cut_byte($buffer, 1)) * 60);
    2759. 

  2759.       $server['s']['map']        = lgsl_cut_string($buffer);
    2760. 

  2760.       $server['s']['name']       = lgsl_cut_string($buffer);
    2761. 

  2761.       $server['s']['playersmax'] = "0"; // NOT PROVIDED
    2762. 

  2762. 

  2763.       // DOES NOT RETURN PLAYER INFORMATION
    2764. 

  2764. 

  2765.       return TRUE;
    2766. 

  2766.     }
    2767. 

  2767. 

  2768.     elseif ($buffer[0] == "\x80") // ASSAULT CUBE
    2769. 

  2769.     {
    2770. 

  2770.       $server['s']['game']       = "AssaultCube";
    2771. 

  2771.       $server['e']['netcode']    = ord(lgsl_cut_byte($buffer, 1));
    2772. 

  2772.       $server['e']['version']    = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    2773. 

  2773.       $server['e']['gamemode']   = ord(lgsl_cut_byte($buffer, 1));
    2774. 

  2774.       $server['s']['players']    = ord(lgsl_cut_byte($buffer, 1));
    2775. 

  2775.       $server['e']['timeleft']   = lgsl_time(ord(lgsl_cut_byte($buffer, 1)) * 60);
    2776. 

  2776.       $server['s']['map']        = lgsl_cut_string($buffer);
    2777. 

  2777.       $server['s']['name']       = lgsl_cut_string($buffer);
    2778. 

  2778.       $server['s']['playersmax'] = ord(lgsl_cut_byte($buffer, 1));
    2779. 

  2779.     }
    2780. 

  2780. 

  2781.     elseif ($buffer[1] == "\x05") // CUBE 2 - SAUERBRATEN
    2782. 

  2782.     {
    2783. 

  2783.       $server['s']['game']       = "Sauerbraten";
    2784. 

  2784.       $server['s']['players']    = ord(lgsl_cut_byte($buffer, 1));
    2785. 

  2785.       $info_returned             = ord(lgsl_cut_byte($buffer, 1)); // CODED FOR 5
    2786. 

  2786.       $server['e']['netcode']    = ord(lgsl_cut_byte($buffer, 1));
    2787. 

  2787.       $server['e']['version']    = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    2788. 

  2788.       $server['e']['gamemode']   = ord(lgsl_cut_byte($buffer, 1));
    2789. 

  2789.       $server['e']['timeleft']   = lgsl_time(ord(lgsl_cut_byte($buffer, 1)) * 60);
    2790. 

  2790.       $server['s']['playersmax'] = ord(lgsl_cut_byte($buffer, 1));
    2791. 

  2791.       $server['s']['password']   = ord(lgsl_cut_byte($buffer, 1)); // BIT FIELD
    2792. 

  2792.       $server['s']['password']   = $server['s']['password'] & 4 ? "1" : "0";
    2793. 

  2793.       $server['s']['map']        = lgsl_cut_string($buffer);
    2794. 

  2794.       $server['s']['name']       = lgsl_cut_string($buffer);
    2795. 

  2795.     }
    2796. 

  2796. 

  2797.     elseif ($buffer[1] == "\x06") // BLOODFRONTIER
    2798. 

  2798.     {
    2799. 

  2799.       $server['s']['game']       = "Blood Frontier";
    2800. 

  2800.       $server['s']['players']    = ord(lgsl_cut_byte($buffer, 1));
    2801. 

  2801.       $info_returned             = ord(lgsl_cut_byte($buffer, 1)); // CODED FOR 6
    2802. 

  2802.       $server['e']['netcode']    = ord(lgsl_cut_byte($buffer, 1));
    2803. 

  2803.       $server['e']['version']    = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    2804. 

  2804.       $server['e']['gamemode']   = ord(lgsl_cut_byte($buffer, 1));
    2805. 

  2805.       $server['e']['mutators']   = ord(lgsl_cut_byte($buffer, 1));
    2806. 

  2806.       $server['e']['timeleft']   = lgsl_time(ord(lgsl_cut_byte($buffer, 1)) * 60);
    2807. 

  2807.       $server['s']['playersmax'] = ord(lgsl_cut_byte($buffer, 1));
    2808. 

  2808.       $server['s']['password']   = ord(lgsl_cut_byte($buffer, 1)); // BIT FIELD
    2809. 

  2809.       $server['s']['password']   = $server['s']['password'] & 4 ? "1" : "0";
    2810. 

  2810.       $server['s']['map']        = lgsl_cut_string($buffer);
    2811. 

  2811.       $server['s']['name']       = lgsl_cut_string($buffer);
    2812. 

  2812.     }
    2813. 

  2813. 

  2814.     else // UNKNOWN
    2815. 

  2815.     {
    2816. 

  2816.       return FALSE;
    2817. 

  2817.     }
    2818. 

  2818. 

  2819. //---------------------------------------------------------+
    2820. 

  2820. //  CRAZY PROTOCOL - REQUESTS MUST BE MADE FOR EACH PLAYER
    2821. 

  2821. //  BOTS ARE RETURNED BUT NOT INCLUDED IN THE PLAYER TOTAL
    2822. 

  2822. //  AND THERE CAN BE ID GAPS BETWEEN THE PLAYERS RETURNED
    2823. 

  2823. 

  2824.     if ($lgsl_need['p'] && $server['s']['players'])
    2825. 

  2825.     {
    2826. 

  2826.       $player_key = 0;
    2827. 

  2827. 

  2828.       for ($player_id=0; $player_id<32; $player_id++)
    2829. 

  2829.       {
    2830. 

  2830.         fwrite($lgsl_fp, "\x00\x01".chr($player_id));
    2831. 

  2831. 

  2832.         // READ PACKET
    2833. 

  2833.         $buffer = fread($lgsl_fp, 4096);
    2834. 

  2834.         if (!$buffer) { break; }
    2835. 

  2835. 

  2836.         // CHECK IF PLAYER ID IS ACTIVE
    2837. 

  2837.         if ($buffer[5] != "\x00")
    2838. 

  2838.         {
    2839. 

  2839.           if ($player_key < $server['s']['players']) { continue; }
    2840. 

  2840.           break;
    2841. 

  2841.         }
    2842. 

  2842. 

  2843.         // IF PREVIEW PACKET GET THE FULL PACKET THAT FOLLOWS
    2844. 

  2844.         if (strlen($buffer) < 15)
    2845. 

  2845.         {
    2846. 

  2846.           $buffer = fread($lgsl_fp, 4096);
    2847. 

  2847.           if (!$buffer) { break; }
    2848. 

  2848.         }
    2849. 

  2849. 

  2850.         // REMOVE HEADER
    2851. 

  2851.         $buffer = substr($buffer, 7);
    2852. 

  2852. 

  2853.         // WE CAN NOW GET THE PLAYER DETAILS
    2854. 

  2854.         if ($server['s']['game'] == "Blood Frontier")
    2855. 

  2855.         {
    2856. 

  2856.           $server['p'][$player_key]['pid']       = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2857. 

  2857.           $server['p'][$player_key]['ping']      = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2858. 

  2858.           $server['p'][$player_key]['ping']      = $server['p'][$player_key]['ping'] == 128 ? lgsl_unpack(lgsl_cut_byte($buffer, 2), "S") : $server['p'][$player_key]['ping'];
    2859. 

  2859.           $server['p'][$player_key]['name']      = lgsl_cut_string($buffer);
    2860. 

  2860.           $server['p'][$player_key]['team']      = lgsl_cut_string($buffer);
    2861. 

  2861.           $server['p'][$player_key]['score']     = lgsl_unpack(lgsl_cut_byte($buffer, 1), "c");
    2862. 

  2862.           $server['p'][$player_key]['damage']    = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2863. 

  2863.           $server['p'][$player_key]['deaths']    = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2864. 

  2864.           $server['p'][$player_key]['teamkills'] = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2865. 

  2865.           $server['p'][$player_key]['accuracy']  = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C")."%";
    2866. 

  2866.           $server['p'][$player_key]['health']    = lgsl_unpack(lgsl_cut_byte($buffer, 1), "c");
    2867. 

  2867.           $server['p'][$player_key]['spree']     = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2868. 

  2868.           $server['p'][$player_key]['weapon']    = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2869. 

  2869.         }
    2870. 

  2870.         else
    2871. 

  2871.         {
    2872. 

  2872.           $server['p'][$player_key]['pid']       = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2873. 

  2873.           $server['p'][$player_key]['name']      = lgsl_cut_string($buffer);
    2874. 

  2874.           $server['p'][$player_key]['team']      = lgsl_cut_string($buffer);
    2875. 

  2875.           $server['p'][$player_key]['score']     = lgsl_unpack(lgsl_cut_byte($buffer, 1), "c");
    2876. 

  2876.           $server['p'][$player_key]['deaths']    = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2877. 

  2877.           $server['p'][$player_key]['teamkills'] = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2878. 

  2878.           $server['p'][$player_key]['accuracy']  = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C")."%";
    2879. 

  2879.           $server['p'][$player_key]['health']    = lgsl_unpack(lgsl_cut_byte($buffer, 1), "c");
    2880. 

  2880.           $server['p'][$player_key]['armour']    = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2881. 

  2881.           $server['p'][$player_key]['weapon']    = lgsl_unpack(lgsl_cut_byte($buffer, 1), "C");
    2882. 

  2882.         }
    2883. 

  2883. 

  2884.         $player_key++;
    2885. 

  2885.       }
    2886. 

  2886.     }
    2887. 

  2887. 

  2888. //---------------------------------------------------------+
    2889. 

  2889. 

  2890.     return TRUE;
    2891. 

  2891.   }
    2892. 

  2892. 

  2893. //------------------------------------------------------------------------------------------------------------+
    2894. 

  2894. //------------------------------------------------------------------------------------------------------------+
    2895. 

  2895. 

  2896.   function lgsl_query_25(&$server, &$lgsl_need, &$lgsl_fp)
    2897. 

  2897.   {
    2898. 

  2898. //---------------------------------------------------------+
    2899. 

  2899. //  REFERENCE: http://www.tribesnext.com
    2900. 

  2900. 

  2901.     fwrite($lgsl_fp,"\x12\x02\x21\x21\x21\x21");
    2902. 

  2902. 

  2903.     $buffer = fread($lgsl_fp, 4096);
    2904. 

  2904. 

  2905.     if (!$buffer) { return FALSE; }
    2906. 

  2906. 

  2907.     $buffer = substr($buffer, 6); // REMOVE HEADER
    2908. 

  2908. 

  2909. //---------------------------------------------------------+
    2910. 

  2910. 

  2911.     $server['s']['game']       = lgsl_cut_pascal($buffer);
    2912. 

  2912.     $server['e']['gamemode']   = lgsl_cut_pascal($buffer);
    2913. 

  2913.     $server['s']['map']        = lgsl_cut_pascal($buffer);
    2914. 

  2914.     $server['e']['bit_flags']  = ord(lgsl_cut_byte($buffer, 1));
    2915. 

  2915.     $server['s']['players']    = ord(lgsl_cut_byte($buffer, 1));
    2916. 

  2916.     $server['s']['playersmax'] = ord(lgsl_cut_byte($buffer, 1));
    2917. 

  2917.     $server['e']['bots']       = ord(lgsl_cut_byte($buffer, 1));
    2918. 

  2918.     $server['e']['cpu']        = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    2919. 

  2919.     $server['e']['motd']       = lgsl_cut_pascal($buffer);
    2920. 

  2920.     $server['e']['unknown']    = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    2921. 

  2921. 

  2922.     $server['e']['dedicated']  = ($server['e']['bit_flags'] & 1)  ? "1" : "0";
    2923. 

  2923.     $server['s']['password']   = ($server['e']['bit_flags'] & 2)  ? "1" : "0";
    2924. 

  2924.     $server['e']['os']         = ($server['e']['bit_flags'] & 4)  ? "L" : "W";
    2925. 

  2925.     $server['e']['tournament'] = ($server['e']['bit_flags'] & 8)  ? "1" : "0";
    2926. 

  2926.     $server['e']['no_alias']   = ($server['e']['bit_flags'] & 16) ? "1" : "0";
    2927. 

  2927. 

  2928.     unset($server['e']['bit_flags']);
    2929. 

  2929. 

  2930. //---------------------------------------------------------+
    2931. 

  2931. 

  2932.     $team_total = lgsl_cut_string($buffer, 0, "\x0A");
    2933. 

  2933. 

  2934.     for ($i=0; $i<$team_total; $i++)
    2935. 

  2935.     {
    2936. 

  2936.       $server['t'][$i]['name']  = lgsl_cut_string($buffer, 0, "\x09");
    2937. 

  2937.       $server['t'][$i]['score'] = lgsl_cut_string($buffer, 0, "\x0A");
    2938. 

  2938.     }
    2939. 

  2939. 

  2940.     $player_total = lgsl_cut_string($buffer, 0, "\x0A");
    2941. 

  2941. 

  2942.     for ($i=0; $i<$player_total; $i++)
    2943. 

  2943.     {
    2944. 

  2944.       lgsl_cut_byte($buffer, 1); // ? 16
    2945. 

  2945.       lgsl_cut_byte($buffer, 1); // ? 8 or 14 = BOT / 12 = ALIAS / 11 = NORMAL
    2946. 

  2946.       if (ord($buffer[0]) < 32) { lgsl_cut_byte($buffer, 1); } // ? 8 PREFIXES SOME NAMES
    2947. 

  2947. 

  2948.       $server['p'][$i]['name']  = lgsl_cut_string($buffer, 0, "\x11");
    2949. 

  2949.                                   lgsl_cut_string($buffer, 0, "\x09"); // ALWAYS BLANK
    2950. 

  2950.       $server['p'][$i]['team']  = lgsl_cut_string($buffer, 0, "\x09");
    2951. 

  2951.       $server['p'][$i]['score'] = lgsl_cut_string($buffer, 0, "\x0A");
    2952. 

  2952.     }
    2953. 

  2953. 

  2954. //---------------------------------------------------------+
    2955. 

  2955. 

  2956.     return TRUE;
    2957. 

  2957.   }
    2958. 

  2958. 

  2959. //------------------------------------------------------------------------------------------------------------+
    2960. 

  2960. //------------------------------------------------------------------------------------------------------------+
    2961. 

  2961. 

  2962.   function lgsl_query_26(&$server, &$lgsl_need, &$lgsl_fp)
    2963. 

  2963.   {
    2964. 

  2964. //---------------------------------------------------------+
    2965. 

  2965. //  REFERENCE:
    2966. 

  2966. //  http://hazardaaclan.com/wiki/doku.php?id=aa3_server_query
    2967. 

  2967. //  http://aluigi.altervista.org/papers.htm#aa3authdec
    2968. 

  2968. 

  2969.     if (!function_exists('gzuncompress')) { return FALSE; } // REQUIRES http://www.php.net/zlib
    2970. 

  2970. 

  2971.     $packet = "\x0A\x00playerName\x06\x06\x00query\x00";
    2972. 

  2972.     lgsl_gs_crypt($server['b']['type'], $packet, TRUE);
    2973. 

  2973.     fwrite($lgsl_fp, "\x4A\x35\xFF\xFF\x02\x00\x02\x00\x01\x00{$packet}");
    2974. 

  2974. 

  2975.     $buffer = array();
    2976. 

  2976.     $packet_count = 0;
    2977. 

  2977.     $packet_total = 4;
    2978. 

  2978. 

  2979.     do
    2980. 

  2980.     {
    2981. 

  2981.       $packet_count ++;
    2982. 

  2982.       $packet = fread($lgsl_fp, 4096);
    2983. 

  2983. 

  2984.       if (!isset($packet[5])) { return FALSE; }
    2985. 

  2985. 

  2986.       if ($packet[5] == "\x03") // MULTI PACKET
    2987. 

  2987.       {
    2988. 

  2988.         $packet_order = ord($packet[10]);
    2989. 

  2989.         $packet_total = ord($packet[12]);
    2990. 

  2990.         $packet = substr($packet, 14);
    2991. 

  2991.         $buffer[$packet_order] = $packet;
    2992. 

  2992.       }
    2993. 

  2993.       elseif ($packet[5] == "\x02") // SINGLE PACKET
    2994. 

  2994.       {
    2995. 

  2995.         $buffer[0] = substr($packet, 10);
    2996. 

  2996.         break;
    2997. 

  2997.       }
    2998. 

  2998.       else
    2999. 

  2999.       {
    3000. 

  3000.         return FALSE;
    3001. 

  3001.       }
    3002. 

  3002.     }
    3003. 

  3003.     while ($packet_count < $packet_total);
    3004. 

  3004. 

  3005. //---------------------------------------------------------+
    3006. 

  3006. 

  3007.     ksort($buffer);
    3008. 

  3008. 

  3009.     $buffer = implode("", $buffer);
    3010. 

  3010. 

  3011.     lgsl_gs_crypt($server['b']['type'], $buffer, FALSE);
    3012. 

  3012. 

  3013.     $buffer = @gzuncompress($buffer);
    3014. 

  3014. 

  3015.     if (!$buffer) { return FALSE; }
    3016. 

  3016. 

  3017. //---------------------------------------------------------+
    3018. 

  3018. 

  3019.     $raw = array();
    3020. 

  3020. 

  3021.     do
    3022. 

  3022.     {
    3023. 

  3023.       $raw_name = lgsl_cut_pascal($buffer, 2);
    3024. 

  3024.       $raw_type = lgsl_cut_byte($buffer, 1);
    3025. 

  3025. 

  3026.       switch ($raw_type)
    3027. 

  3027.       {
    3028. 

  3028.         // SINGLE INTEGER
    3029. 

  3029.         case "\x02":
    3030. 

  3030.         $raw[$raw_name] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "i");
    3031. 

  3031.         break;
    3032. 

  3032. 

  3033.         // ARRAY OF STRINGS
    3034. 

  3034.         case "\x07":
    3035. 

  3035.         $raw_total = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    3036. 

  3036. 

  3037.         for ($i=0; $i<$raw_total;$i++)
    3038. 

  3038.         {
    3039. 

  3039.           $raw_value = lgsl_cut_pascal($buffer, 2);
    3040. 

  3040.           if (substr($raw_value, -1) == "\x00") { $raw_value = substr($raw_value, 0, -1); } // SOME STRINGS HAVE NULLS
    3041. 

  3041.           $raw[$raw_name][] = $raw_value;
    3042. 

  3042.         }
    3043. 

  3043.         break;
    3044. 

  3044. 

  3045.         // 01=BOOLEAN|03=SHORT INTEGER|04=DOUBLE
    3046. 

  3046.         // 05=CHAR|06=STRING|09=ARRAY OF INTEGERS
    3047. 

  3047.         default:
    3048. 

  3048.         break 2;
    3049. 

  3049.       }
    3050. 

  3050.     }
    3051. 

  3051.     while ($buffer);
    3052. 

  3052. 

  3053.     if (!isset($raw['attributeNames'])  || !is_array($raw['attributeNames']))  { return FALSE; }
    3054. 

  3054.     if (!isset($raw['attributeValues']) || !is_array($raw['attributeValues'])) { return FALSE; }
    3055. 

  3055. 

  3056. //---------------------------------------------------------+
    3057. 

  3057. 

  3058.     foreach ($raw['attributeNames'] as $key => $field)
    3059. 

  3059.     {
    3060. 

  3060.       $field = strtolower($field);
    3061. 

  3061. 

  3062.       preg_match("/^player(.*)(\d+)$/U", $field, $match);
    3063. 

  3063. 

  3064.       if (isset($match[1]))
    3065. 

  3065.       {
    3066. 

  3066.         // IGNORE POINTLESS PLAYER FIELDS
    3067. 

  3067.         if ($match[1] == "mapname")         { continue; }
    3068. 

  3068.         if ($match[1] == "version")         { continue; }
    3069. 

  3069.         if ($match[1] == "servermapname")   { continue; }
    3070. 

  3070.         if ($match[1] == "serveripaddress") { continue; }
    3071. 

  3071. 

  3072.         // LGSL STANDARD ( SWAP NAME AS ITS ACTUALLY THE ACCOUNT NAME )
    3073. 

  3073.         if ($match[1] == "name")        { $match[1] = "username"; }
    3074. 

  3074.         if ($match[1] == "soldiername") { $match[1] = "name"; }
    3075. 

  3075. 

  3076.         $server['p'][$match[2]][$match[1]] = $raw['attributeValues'][$key];
    3077. 

  3077.       }
    3078. 

  3078.       else
    3079. 

  3079.       {
    3080. 

  3080.         if (substr($field, 0, 6) == "server") { $field = substr($field, 6); }
    3081. 

  3081.         $server['e'][$field] = $raw['attributeValues'][$key];
    3082. 

  3082.       }
    3083. 

  3083.     }
    3084. 

  3084. 

  3085.     $lgsl_conversion = array("gamename"=>"name","mapname"=>"map","playercount"=>"players","maxplayers"=>"playersmax","flagpassword"=>"password");
    3086. 

  3086.     foreach ($lgsl_conversion as $e => $s) { $server['s'][$s] = $server['e'][$e]; unset($server['ea'][$e]); } // LGSL STANDARD
    3087. 

  3087.     $server['s']['playersmax'] += intval($server['e']['maxspectators']); // ADD SPECTATOR SLOTS TO MAX PLAYERS
    3088. 

  3088. 

  3089. //---------------------------------------------------------+
    3090. 

  3090. 

  3091.     return TRUE;
    3092. 

  3092.   }
    3093. 

  3093. 

  3094. //------------------------------------------------------------------------------------------------------------+
    3095. 

  3095. //------------------------------------------------------------------------------------------------------------+
    3096. 

  3096. 

  3097.   function lgsl_query_27(&$server, &$lgsl_need, &$lgsl_fp)
    3098. 

  3098.   {
    3099. 

  3099. //---------------------------------------------------------+
    3100. 

  3100. //  REFERENCE:
    3101. 

  3101. //  http://skulltag.com/wiki/Launcher_protocol
    3102. 

  3102. //  http://en.wikipedia.org/wiki/Huffman_coding
    3103. 

  3103. //  http://www.greycube.com/help/lgsl_other/skulltag_huffman.txt
    3104. 

  3104. 

  3105.     $huffman_table = array(
    3106. 

  3106.     "010","110111","101110010","00100","10011011","00101","100110101","100001100","100101100","001110100","011001001","11001000","101100001","100100111","001111111","101110000","101110001","001111011",
    3107. 

  3107.     "11011011","101111100","100001110","110011111","101100000","001111100","0011000","001111000","10001100","100101011","100010000","101111011","100100110","100110010","0111","1111000","00010001",
    3108. 

  3108.     "00011010","00011000","00010101","00010000","00110111","00110110","00011100","01100101","1101001","00110100","10110011","10110100","1111011","10111100","10111010","11001001","11010101","11111110",
    3109. 

  3109.     "11111100","10001110","11110011","001101011","10000000","000101101","11010000","001110111","100000010","11100111","001100101","11100110","00111001","10001010","00010011","001110110","10001111",
    3110. 

  3110.     "000111110","11000111","11010111","11100011","000101000","001100111","11010100","000111010","10010111","100000111","000100100","001110001","11111010","100100011","11110100","000110111","001111010",
    3111. 

  3111.     "100010011","100110001","11101","110001011","101110110","101111110","100100010","100101001","01101","100100100","101100101","110100011","100111100","110110001","100010010","101101101","011001110",
    3112. 

  3112.     "011001101","11111101","100010001","100110000","110001000","110110000","0001001010","110001010","101101010","000110110","10110001","110001101","110101101","110001100","000111111","110010101",
    3113. 

  3113.     "111000100","11011001","110010110","110011110","000101100","001110101","101111101","1001110","0000","1000010","0001110111","0001100101","1010","11001110","0110011000","0110011001","1000011011",
    3114. 

  3114.     "1001100110","0011110011","0011001100","11111001","0110010001","0001010011","1000011010","0001001011","1001101001","101110111","1000001101","1000011111","1100000101","0110000000","1011011101",
    3115. 

  3115.     "11110101","0001111011","1101000101","1101000100","1001000010","0110000001","1011001000","100101010","1100110","111100101","1100101111","0001100111","1110000","0011111100","11111011","1100101110",
    3116. 

  3116.     "101110011","1001100111","1001111111","1011011100","111110001","101111010","1011010110","1001010000","1001000011","1001111110","0011111011","1000011110","1000101100","01100001","00010111",
    3117. 

  3117.     "1000000110","110000101","0001111010","0011001101","0110011110","110010100","111000101","0011001001","0011110010","110000001","101101111","0011111101","110110100","11100100","1011001001",
    3118. 

  3118.     "0011001000","0001110110","111111111","110101100","111111110","1000001011","1001011010","110000000","000111100","111110000","011000001","1001111010","111001011","011000111","1001000001",
    3119. 

  3119.     "1001111100","1000110111","1001101000","0110001100","1001111011","0011010101","1000101101","0011111010","0001100100","01100010","110000100","101101100","0110011111","1001011011","1000101110",
    3120. 

  3120.     "111100100","1000110110","0110001101","1001000000","110110101","1000001000","1000001001","1100000100","110001001","1000000111","1001111101","111001010","0011010100","1000101111","101111111",
    3121. 

  3121.     "0001010010","0011100000","0001100110","1000001010","0011100001","11000011","1011010111","1000001100","100011010","0110010000","100100101","1001010001","110000011");
    3122. 

  3122. 

  3123. //---------------------------------------------------------+
    3124. 

  3124. 

  3125.     fwrite($lgsl_fp, "\x02\xB8\x49\x1A\x9C\x8B\xB5\x3F\x1E\x8F\x07");
    3126. 

  3126. 

  3127.     $packet = fread($lgsl_fp, 4096);
    3128. 

  3128. 

  3129.     if (!$packet) { return FALSE; }
    3130. 

  3130. 

  3131.     $packet = substr($packet, 1); // REMOVE HEADER
    3132. 

  3132. 

  3133. //---------------------------------------------------------+
    3134. 

  3134. 

  3135.     $packet_binary = "";
    3136. 

  3136. 

  3137.     for ($i=0; $i<strlen($packet); $i++)
    3138. 

  3138.     {
    3139. 

  3139.       $packet_binary .= strrev(sprintf("%08b", ord($packet[$i])));
    3140. 

  3140.     }
    3141. 

  3141. 

  3142.     $buffer = "";
    3143. 

  3143. 

  3144.     while ($packet_binary)
    3145. 

  3145.     {
    3146. 

  3146.       foreach ($huffman_table as $ascii => $huffman_binary)
    3147. 

  3147.       {
    3148. 

  3148.         $huffman_length = strlen($huffman_binary);
    3149. 

  3149. 

  3150.         if (substr($packet_binary, 0, $huffman_length) === $huffman_binary)
    3151. 

  3151.         {
    3152. 

  3152.           $packet_binary = substr($packet_binary, $huffman_length);
    3153. 

  3153.           $buffer .= chr($ascii);
    3154. 

  3154.           continue 2;
    3155. 

  3155.         }
    3156. 

  3156.       }
    3157. 

  3157.       break;
    3158. 

  3158.     }
    3159. 

  3159. 

  3160. //---------------------------------------------------------+
    3161. 

  3161. 

  3162.     $response_status        = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l"); if ($response_status != "5660023") { return FALSE; }
    3163. 

  3163.     $response_time          = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3164. 

  3164.     $server['e']['version'] = lgsl_cut_string($buffer);
    3165. 

  3165.     $response_flag          = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3166. 

  3166. 

  3167. //---------------------------------------------------------+
    3168. 

  3168. 

  3169.     if ($response_flag & 0x00000001) { $server['s']['name']       = lgsl_cut_string($buffer); }
    3170. 

  3170.     if ($response_flag & 0x00000002) { $server['e']['wadurl']     = lgsl_cut_string($buffer); }
    3171. 

  3171.     if ($response_flag & 0x00000004) { $server['e']['email']      = lgsl_cut_string($buffer); }
    3172. 

  3172.     if ($response_flag & 0x00000008) { $server['s']['map']        = lgsl_cut_string($buffer); }
    3173. 

  3173.     if ($response_flag & 0x00000010) { $server['s']['playersmax'] = ord(lgsl_cut_byte($buffer, 1)); }
    3174. 

  3174.     if ($response_flag & 0x00000020) { $server['e']['playersmax'] = ord(lgsl_cut_byte($buffer, 1)); }
    3175. 

  3175.     if ($response_flag & 0x00000040)
    3176. 

  3176.     {
    3177. 

  3177.       $pwad_total = ord(lgsl_cut_byte($buffer, 1));
    3178. 

  3178. 

  3179.       $server['e']['pwads'] = "";
    3180. 

  3180. 

  3181.       for ($i=0; $i<$pwad_total; $i++)
    3182. 

  3182. 	    {
    3183. 

  3183.         $server['e']['pwads'] .= lgsl_cut_string($buffer)." ";
    3184. 

  3184.       }
    3185. 

  3185.     }
    3186. 

  3186.     if ($response_flag & 0x00000080)
    3187. 

  3187.     {
    3188. 

  3188.       $server['e']['gametype'] = ord(lgsl_cut_byte($buffer, 1));
    3189. 

  3189.       $server['e']['instagib'] = ord(lgsl_cut_byte($buffer, 1));
    3190. 

  3190.       $server['e']['buckshot'] = ord(lgsl_cut_byte($buffer, 1));
    3191. 

  3191.     }
    3192. 

  3192.     if ($response_flag & 0x00000100) { $server['s']['game']         = lgsl_cut_string($buffer); }
    3193. 

  3193.     if ($response_flag & 0x00000200) { $server['e']['iwad']         = lgsl_cut_string($buffer); }
    3194. 

  3194.     if ($response_flag & 0x00000400) { $server['s']['password']     = ord(lgsl_cut_byte($buffer, 1)); }
    3195. 

  3195.     if ($response_flag & 0x00000800) { $server['e']['playpassword'] = ord(lgsl_cut_byte($buffer, 1)); }
    3196. 

  3196.     if ($response_flag & 0x00001000) { $server['e']['skill']        = ord(lgsl_cut_byte($buffer, 1)) + 1; }
    3197. 

  3197.     if ($response_flag & 0x00002000) { $server['e']['botskill']     = ord(lgsl_cut_byte($buffer, 1)) + 1; }
    3198. 

  3198.     if ($response_flag & 0x00004000)
    3199. 

  3199.     {
    3200. 

  3200.       $server['e']['dmflags']     = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3201. 

  3201.       $server['e']['dmflags2']    = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3202. 

  3202.       $server['e']['compatflags'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3203. 

  3203.     }
    3204. 

  3204.     if ($response_flag & 0x00010000)
    3205. 

  3205.     {
    3206. 

  3206.       $server['e']['fraglimit'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3207. 

  3207.       $timelimit                = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    3208. 

  3208. 

  3209.       if ($timelimit) // FUTURE VERSION MAY ALWAYS RETURN THIS
    3210. 

  3210.       {
    3211. 

  3211.         $server['e']['timeleft'] = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 2), "S") * 60);
    3212. 

  3212.       }
    3213. 

  3213. 

  3214.       $server['e']['timelimit']  = lgsl_time($timelimit * 60);
    3215. 

  3215.       $server['e']['duellimit']  = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3216. 

  3216.       $server['e']['pointlimit'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3217. 

  3217.       $server['e']['winlimit']   = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3218. 

  3218.     }
    3219. 

  3219.     if ($response_flag & 0x00020000) { $server['e']['teamdamage'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "f"); }
    3220. 

  3220.     if ($response_flag & 0x00040000) // DEPRECIATED
    3221. 

  3221.     {
    3222. 

  3222.       $server['t'][0]['score'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3223. 

  3223.       $server['t'][1]['score'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3224. 

  3224.     }
    3225. 

  3225.     if ($response_flag & 0x00080000) { $server['s']['players'] = ord(lgsl_cut_byte($buffer, 1)); }
    3226. 

  3226.     if ($response_flag & 0x00100000)
    3227. 

  3227.     {
    3228. 

  3228.       for ($i=0; $i<$server['s']['players']; $i++)
    3229. 

  3229.       {
    3230. 

  3230.         $server['p'][$i]['name']      = lgsl_parse_color(lgsl_cut_string($buffer), $server['b']['type']);
    3231. 

  3231.         $server['p'][$i]['score']     = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3232. 

  3232.         $server['p'][$i]['ping']      = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    3233. 

  3233.         $server['p'][$i]['spectator'] = ord(lgsl_cut_byte($buffer, 1));
    3234. 

  3234.         $server['p'][$i]['bot']       = ord(lgsl_cut_byte($buffer, 1));
    3235. 

  3235. 

  3236.         if (($response_flag & 0x00200000) && ($response_flag & 0x00400000))
    3237. 

  3237.         {
    3238. 

  3238.           $server['p'][$i]['team'] = ord(lgsl_cut_byte($buffer, 1));
    3239. 

  3239.         }
    3240. 

  3240. 

  3241.         $server['p'][$i]['time'] = lgsl_time(ord(lgsl_cut_byte($buffer, 1)) * 60);
    3242. 

  3242.       }
    3243. 

  3243.     }
    3244. 

  3244.     if ($response_flag & 0x00200000)
    3245. 

  3245.     {
    3246. 

  3246.       $team_total = ord(lgsl_cut_byte($buffer, 1));
    3247. 

  3247. 

  3248.       if ($response_flag & 0x00400000)
    3249. 

  3249.       {
    3250. 

  3250.         for ($i=0; $i<$team_total; $i++) { $server['t'][$i]['name'] = lgsl_cut_string($buffer); }
    3251. 

  3251.       }
    3252. 

  3252.       if ($response_flag & 0x00800000)
    3253. 

  3253.       {
    3254. 

  3254.         for ($i=0; $i<$team_total; $i++) { $server['t'][$i]['color'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l"); }
    3255. 

  3255.       }
    3256. 

  3256.       if ($response_flag & 0x01000000)
    3257. 

  3257.       {
    3258. 

  3258.         for ($i=0; $i<$team_total; $i++) { $server['t'][$i]['score'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s"); }
    3259. 

  3259.       }
    3260. 

  3260. 

  3261.       for ($i=0; $i<$server['s']['players']; $i++)
    3262. 

  3262.       {
    3263. 

  3263.         if ($server['t'][$i]['name']) { $server['p'][$i]['team'] = $server['t'][$i]['name']; }
    3264. 

  3264.       }
    3265. 

  3265.     }
    3266. 

  3266. 

  3267. //---------------------------------------------------------+
    3268. 

  3268. 

  3269.     return TRUE;
    3270. 

  3270.   }
    3271. 

  3271. 

  3272. //------------------------------------------------------------------------------------------------------------+
    3273. 

  3273. //------------------------------------------------------------------------------------------------------------+
    3274. 

  3274. 

  3275.   function lgsl_query_28(&$server, &$lgsl_need, &$lgsl_fp)
    3276. 

  3276.   {
    3277. 

  3277. //---------------------------------------------------------+
    3278. 

  3278. //  REFERENCE: http://doomutils.ucoz.com
    3279. 

  3279. 

  3280.     fwrite($lgsl_fp, "\xA3\xDB\x0B\x00"."\xFC\xFD\xFE\xFF"."\x01\x00\x00\x00"."\x21\x21\x21\x21");
    3281. 

  3281. 

  3282.     $buffer = fread($lgsl_fp, 4096);
    3283. 

  3283. 

  3284.     if (!$buffer) { return FALSE; }
    3285. 

  3285. 

  3286. //---------------------------------------------------------+
    3287. 

  3287. 

  3288.     $response_status  = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l"); if ($response_status != "5560022") { return FALSE; }
    3289. 

  3289.     $response_version = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3290. 

  3290.     $response_time    = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3291. 

  3291. 

  3292.     $server['e']['invited']    = ord(lgsl_cut_byte($buffer, 1));
    3293. 

  3293.     $server['e']['version']    = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    3294. 

  3294.     $server['s']['name']       = lgsl_cut_string($buffer);
    3295. 

  3295.     $server['s']['players']    = ord(lgsl_cut_byte($buffer, 1));
    3296. 

  3296.     $server['s']['playersmax'] = ord(lgsl_cut_byte($buffer, 1));
    3297. 

  3297.     $server['s']['map']        = lgsl_cut_string($buffer);
    3298. 

  3298. 

  3299.     $pwad_total = ord(lgsl_cut_byte($buffer, 1));
    3300. 

  3300. 

  3301.     for ($i=0; $i<$pwad_total; $i++)
    3302. 

  3302.     {
    3303. 

  3303.       $server['e']['pwads'] .= lgsl_cut_string($buffer)." ";
    3304. 

  3304.       $pwad_optional         = ord(lgsl_cut_byte($buffer, 1));
    3305. 

  3305.       $pwad_alternative      = lgsl_cut_string($buffer);
    3306. 

  3306.     }
    3307. 

  3307. 

  3308.     $server['e']['gametype']   = ord(lgsl_cut_byte($buffer, 1));
    3309. 

  3309.     $server['s']['game']       = lgsl_cut_string($buffer);
    3310. 

  3310.     $server['e']['iwad']       = lgsl_cut_string($buffer);
    3311. 

  3311.     $iwad_altenative           = lgsl_cut_string($buffer);
    3312. 

  3312.     $server['e']['skill']      = ord(lgsl_cut_byte($buffer, 1)) + 1;
    3313. 

  3313.     $server['e']['wadurl']     = lgsl_cut_string($buffer);
    3314. 

  3314.     $server['e']['email']      = lgsl_cut_string($buffer);
    3315. 

  3315.     $server['e']['dmflags']    = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3316. 

  3316.     $server['e']['dmflags2']   = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3317. 

  3317.     $server['s']['password']   = ord(lgsl_cut_byte($buffer, 1));
    3318. 

  3318.     $server['e']['inviteonly'] = ord(lgsl_cut_byte($buffer, 1));
    3319. 

  3319.     $server['e']['players']    = ord(lgsl_cut_byte($buffer, 1));
    3320. 

  3320.     $server['e']['playersmax'] = ord(lgsl_cut_byte($buffer, 1));
    3321. 

  3321.     $server['e']['timelimit']  = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 2), "S") * 60);
    3322. 

  3322.     $server['e']['timeleft']   = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 2), "S") * 60);
    3323. 

  3323.     $server['e']['fraglimit']  = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3324. 

  3324.     $server['e']['gravity']    = lgsl_unpack(lgsl_cut_byte($buffer, 4), "f");
    3325. 

  3325.     $server['e']['aircontrol'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "f");
    3326. 

  3326.     $server['e']['playersmin'] = ord(lgsl_cut_byte($buffer, 1));
    3327. 

  3327.     $server['e']['removebots'] = ord(lgsl_cut_byte($buffer, 1));
    3328. 

  3328.     $server['e']['voting']     = ord(lgsl_cut_byte($buffer, 1));
    3329. 

  3329.     $server['e']['serverinfo'] = lgsl_cut_string($buffer);
    3330. 

  3330.     $server['e']['startup']    = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3331. 

  3331. 

  3332.     for ($i=0; $i<$server['s']['players']; $i++)
    3333. 

  3333.     {
    3334. 

  3334.       $server['p'][$i]['name']      = lgsl_cut_string($buffer);
    3335. 

  3335.       $server['p'][$i]['score']     = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3336. 

  3336.       $server['p'][$i]['death']     = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3337. 

  3337.       $server['p'][$i]['ping']      = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    3338. 

  3338.       $server['p'][$i]['time']      = lgsl_time(lgsl_unpack(lgsl_cut_byte($buffer, 2), "S") * 60);
    3339. 

  3339.       $server['p'][$i]['bot']       = ord(lgsl_cut_byte($buffer, 1));
    3340. 

  3340.       $server['p'][$i]['spectator'] = ord(lgsl_cut_byte($buffer, 1));
    3341. 

  3341.       $server['p'][$i]['team']      = ord(lgsl_cut_byte($buffer, 1));
    3342. 

  3342.       $server['p'][$i]['country']   = lgsl_cut_byte($buffer, 2);
    3343. 

  3343.     }
    3344. 

  3344. 

  3345.     $team_total                = ord(lgsl_cut_byte($buffer, 1));
    3346. 

  3346.     $server['e']['pointlimit'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3347. 

  3347.     $server['e']['teamdamage'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "f");
    3348. 

  3348. 

  3349.     for ($i=0; $i<$team_total; $i++) // RETURNS 4 TEAMS BUT IGNORE THOSE NOT IN USE
    3350. 

  3350.     {
    3351. 

  3351.       $server['t']['team'][$i]['name']  = lgsl_cut_string($buffer);
    3352. 

  3352.       $server['t']['team'][$i]['color'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3353. 

  3353.       $server['t']['team'][$i]['score'] = lgsl_unpack(lgsl_cut_byte($buffer, 2), "s");
    3354. 

  3354.     }
    3355. 

  3355. 

  3356.     for ($i=0; $i<$server['s']['players']; $i++)
    3357. 

  3357.     {
    3358. 

  3358.       if ($server['t'][$i]['name']) { $server['p'][$i]['team'] = $server['t'][$i]['name']; }
    3359. 

  3359.     }
    3360. 

  3360. 

  3361. //---------------------------------------------------------+
    3362. 

  3362. 

  3363.     return TRUE;
    3364. 

  3364.   }
    3365. 

  3365. 

  3366. //------------------------------------------------------------------------------------------------------------+
    3367. 

  3367. //------------------------------------------------------------------------------------------------------------+
    3368. 

  3368. 

  3369.   function lgsl_query_29(&$server, &$lgsl_need, &$lgsl_fp)
    3370. 

  3370.   {
    3371. 

  3371. //---------------------------------------------------------+
    3372. 

  3372. //  REFERENCE: http://www.cs2d.com/servers.php
    3373. 

  3373. 

  3374.     if ($lgsl_need['s'] || $lgsl_need['e'])
    3375. 

  3375.     {
    3376. 

  3376.       $lgsl_need['s'] = FALSE;
    3377. 

  3377.       $lgsl_need['e'] = FALSE;
    3378. 

  3378. 

  3379.       fwrite($lgsl_fp, "\x01\x00\x03\x10\x21\xFB\x01\x75\x00");
    3380. 

  3380. 

  3381.       $buffer = fread($lgsl_fp, 4096);
    3382. 

  3382. 

  3383.       if (!$buffer) { return FALSE; }
    3384. 

  3384. 

  3385.       $buffer = substr($buffer, 4); // REMOVE HEADER
    3386. 

  3386. 

  3387.       $server['e']['bit_flags']  = ord(lgsl_cut_byte($buffer, 1)) - 48;
    3388. 

  3388.       $server['s']['name']       = lgsl_cut_pascal($buffer);
    3389. 

  3389.       $server['s']['map']        = lgsl_cut_pascal($buffer);
    3390. 

  3390.       $server['s']['players']    = ord(lgsl_cut_byte($buffer, 1));
    3391. 

  3391.       $server['s']['playersmax'] = ord(lgsl_cut_byte($buffer, 1));
    3392. 

  3392.       $server['e']['gamemode']   = ord(lgsl_cut_byte($buffer, 1));
    3393. 

  3393.       $server['e']['bots']       = ord(lgsl_cut_byte($buffer, 1));
    3394. 

  3394. 

  3395.       $server['s']['password']        = ($server['e']['bit_flags'] & 1) ? "1" : "0";
    3396. 

  3396.       $server['e']['registered_only'] = ($server['e']['bit_flags'] & 2) ? "1" : "0";
    3397. 

  3397.       $server['e']['fog_of_war']      = ($server['e']['bit_flags'] & 4) ? "1" : "0";
    3398. 

  3398.       $server['e']['friendlyfire']    = ($server['e']['bit_flags'] & 8) ? "1" : "0";
    3399. 

  3399.     }
    3400. 

  3400. 

  3401.     if ($lgsl_need['p'])
    3402. 

  3402.     {
    3403. 

  3403.       $lgsl_need['p'] = FALSE;
    3404. 

  3404. 

  3405.       fwrite($lgsl_fp, "\x01\x00\xFB\x05");
    3406. 

  3406. 

  3407.       $buffer = fread($lgsl_fp, 4096);
    3408. 

  3408. 

  3409.       if (!$buffer) { return FALSE; }
    3410. 

  3410. 

  3411.       $buffer = substr($buffer, 4); // REMOVE HEADER
    3412. 

  3412. 

  3413.       $player_total = ord(lgsl_cut_byte($buffer, 1));
    3414. 

  3414. 

  3415.       for ($i=0; $i<$player_total; $i++)
    3416. 

  3416.       {
    3417. 

  3417.         $server['p'][$i]['pid']    = ord(lgsl_cut_byte($buffer, 1));
    3418. 

  3418.         $server['p'][$i]['name']   = lgsl_cut_pascal($buffer);
    3419. 

  3419.         $server['p'][$i]['team']   = ord(lgsl_cut_byte($buffer, 1));
    3420. 

  3420.         $server['p'][$i]['score']  = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3421. 

  3421.         $server['p'][$i]['deaths'] = lgsl_unpack(lgsl_cut_byte($buffer, 4), "l");
    3422. 

  3422.       }
    3423. 

  3423.     }
    3424. 

  3424. 

  3425. //---------------------------------------------------------+
    3426. 

  3426. 

  3427.     return TRUE;
    3428. 

  3428.   }
    3429. 

  3429. 

  3430. //------------------------------------------------------------------------------------------------------------+
    3431. 

  3431. //------------------------------------------------------------------------------------------------------------+
    3432. 

  3432. 

  3433.   function lgsl_query_30(&$server, &$lgsl_need, &$lgsl_fp)
    3434. 

  3434.   {
    3435. 

  3435. //---------------------------------------------------------+
    3436. 

  3436. //  REFERENCE: http://blogs.battlefield.ea.com/battlefield_bad_company/archive/2010/02/05/remote-administration-interface-for-bfbc2-pc.aspx
    3437. 

  3437. //  THIS USES TCP COMMUNICATION
    3438. 

  3438. 

  3439.     if ($lgsl_need['s'] || $lgsl_need['e'])
    3440. 

  3440.     {
    3441. 

  3441.       fwrite($lgsl_fp, "\x00\x00\x00\x00\x1B\x00\x00\x00\x01\x00\x00\x00\x0A\x00\x00\x00serverInfo\x00");
    3442. 

  3442.     }
    3443. 

  3443.     elseif ($lgsl_need['p'])
    3444. 

  3444.     {
    3445. 

  3445.       fwrite($lgsl_fp, "\x00\x00\x00\x00\x24\x00\x00\x00\x02\x00\x00\x00\x0B\x00\x00\x00listPlayers\x00\x03\x00\x00\x00all\x00");
    3446. 

  3446.     }
    3447. 

  3447. 

  3448. //---------------------------------------------------------+
    3449. 

  3449. 

  3450.     $buffer = fread($lgsl_fp, 4096);
    3451. 

  3451. 

  3452.     if (!$buffer) { return FALSE; }
    3453. 

  3453. 

  3454.     $length = lgsl_unpack(substr($buffer, 4, 4), "L");
    3455. 

  3455. 

  3456.     while (strlen($buffer) < $length)
    3457. 

  3457.     {
    3458. 

  3458.       $packet = fread($lgsl_fp, 4096);
    3459. 

  3459. 

  3460.       if ($packet) { $buffer .= $packet; } else { break; }
    3461. 

  3461.     }
    3462. 

  3462. 

  3463. //---------------------------------------------------------+
    3464. 

  3464. 

  3465.     $buffer = substr($buffer, 12); // REMOVE HEADER
    3466. 

  3466. 

  3467.     $response_type = lgsl_cut_pascal($buffer, 4, 0, 1);
    3468. 

  3468. 

  3469.     if ($response_type != "OK") { return FALSE; }
    3470. 

  3470. 

  3471. //---------------------------------------------------------+
    3472. 

  3472. 

  3473.     if ($lgsl_need['s'] || $lgsl_need['e'])
    3474. 

  3474.     {
    3475. 

  3475.       $lgsl_need['s'] = FALSE;
    3476. 

  3476.       $lgsl_need['e'] = FALSE;
    3477. 

  3477. 

  3478.       $server['s']['name']            = lgsl_cut_pascal($buffer, 4, 0, 1);
    3479. 

  3479.       $server['s']['players']         = lgsl_cut_pascal($buffer, 4, 0, 1);
    3480. 

  3480.       $server['s']['playersmax']      = lgsl_cut_pascal($buffer, 4, 0, 1);
    3481. 

  3481.       $server['e']['gamemode']        = lgsl_cut_pascal($buffer, 4, 0, 1);
    3482. 

  3482.       $server['s']['map']             = lgsl_cut_pascal($buffer, 4, 0, 1);
    3483. 

  3483.       $server['e']['score_attackers'] = lgsl_cut_pascal($buffer, 4, 0, 1);
    3484. 

  3484.       $server['e']['score_defenders'] = lgsl_cut_pascal($buffer, 4, 0, 1);
    3485. 

  3485. 

  3486.       // CONVERT MAP NUMBER TO DESCRIPTIVE NAME
    3487. 

  3487. 

  3488.       $server['e']['level'] = $server['s']['map'];
    3489. 

  3489.       $map_check = strtolower($server['s']['map']);
    3490. 

  3490.       if     (strpos($map_check, "mp_001") !== FALSE) { $server['s']['map'] = "Panama Canal";   }
    3491. 

  3491.       elseif (strpos($map_check, "mp_002") !== FALSE) { $server['s']['map'] = "Valparaiso";     }
    3492. 

  3492.       elseif (strpos($map_check, "mp_003") !== FALSE) { $server['s']['map'] = "Laguna Alta";    }
    3493. 

  3493.       elseif (strpos($map_check, "mp_004") !== FALSE) { $server['s']['map'] = "Isla Inocentes"; }
    3494. 

  3494.       elseif (strpos($map_check, "mp_005") !== FALSE) { $server['s']['map'] = "Atacama Desert"; }
    3495. 

  3495.       elseif (strpos($map_check, "mp_006") !== FALSE) { $server['s']['map'] = "Arica Harbor";   }
    3496. 

  3496.       elseif (strpos($map_check, "mp_007") !== FALSE) { $server['s']['map'] = "White Pass";     }
    3497. 

  3497.       elseif (strpos($map_check, "mp_008") !== FALSE) { $server['s']['map'] = "Nelson Bay";     }
    3498. 

  3498.       elseif (strpos($map_check, "mp_009") !== FALSE) { $server['s']['map'] = "Laguna Presa";   }
    3499. 

  3499.       elseif (strpos($map_check, "mp_012") !== FALSE) { $server['s']['map'] = "Port Valdez";    }
    3500. 

  3500.       elseif (strpos($map_check, "mp_01_elimination") !== FALSE) { $server['s']['map'] = "Bagram Hangar";    }
    3501. 

  3501.       elseif (strpos($map_check, "mp_01") !== FALSE) { $server['s']['map'] = "Mazar-i-Sharif Airfield";    }
    3502. 

  3502.       elseif (strpos($map_check, "mp_02_koth2") !== FALSE) { $server['s']['map'] = "Shah-i-Khot Village";     }
    3503. 

  3503.       elseif (strpos($map_check, "mp_02_koth") !== FALSE) { $server['s']['map'] = "Hindu Kush Pass";     }
    3504. 

  3504.       elseif (strpos($map_check, "mp_02") !== FALSE) { $server['s']['map'] = "Shah-i-Khot Mountains";     }
    3505. 

  3505.       elseif (strpos($map_check, "mp_03") !== FALSE) { $server['s']['map'] = "Khyber Caves"; }
    3506. 

  3506.       elseif (strpos($map_check, "mp_04_koth") !== FALSE) { $server['s']['map'] = "Helmand River Hill"; }
    3507. 

  3507.       elseif (strpos($map_check, "mp_04") !== FALSE) { $server['s']['map'] = "Helmand Valley"; }
    3508. 

  3508.       elseif (strpos($map_check, "mp_05") !== FALSE) { $server['s']['map'] = "Kandahar Marketplace"; }
    3509. 

  3509.       elseif (strpos($map_check, "mp_06") !== FALSE) { $server['s']['map'] = "Diwagal Camp";   }
    3510. 

  3510.       elseif (strpos($map_check, "mp_07") !== FALSE) { $server['s']['map'] = "Korengal Outpost"; }
    3511. 

  3511.       elseif (strpos($map_check, "mp_08") !== FALSE) { $server['s']['map'] = "Kunar Base";     }
    3512. 

  3512.       elseif (strpos($map_check, "mp_09") !== FALSE) { $server['s']['map'] = "Kabul City Ruins";   }
    3513. 

  3513.       elseif (strpos($map_check, "mp_10") !== FALSE) { $server['s']['map'] = "Garmzir Town";    }
    3514. 

  3514.     }
    3515. 

  3515. 

  3516. //---------------------------------------------------------+
    3517. 

  3517. 

  3518.     elseif ($lgsl_need['p'])
    3519. 

  3519.     {
    3520. 

  3520.       $lgsl_need['p'] = FALSE;
    3521. 

  3521. 

  3522.       $field_total = lgsl_cut_pascal($buffer, 4, 0, 1);
    3523. 

  3523.       $field_list  = array();
    3524. 

  3524. 

  3525.       for ($i=0; $i<$field_total; $i++)
    3526. 

  3526.       {
    3527. 

  3527.         $field_list[] = strtolower(lgsl_cut_pascal($buffer, 4, 0, 1));
    3528. 

  3528.       }
    3529. 

  3529. 

  3530.       $player_squad = array("","Alpha","Bravo","Charlie","Delta","Echo","Foxtrot","Golf","Hotel");
    3531. 

  3531.       $player_team  = array("","Attackers","Defenders");
    3532. 

  3532.       $player_total = lgsl_cut_pascal($buffer, 4, 0, 1);
    3533. 

  3533. 

  3534.       for ($i=0; $i<$player_total; $i++)
    3535. 

  3535.       {
    3536. 

  3536.         foreach ($field_list as $field)
    3537. 

  3537.         {
    3538. 

  3538.           $value = lgsl_cut_pascal($buffer, 4, 0, 1);
    3539. 

  3539. 

  3540.           switch ($field)
    3541. 

  3541.           {
    3542. 

  3542.             case "clantag": $server['p'][$i]['name']  = $value;                                                                             break;
    3543. 

  3543.             case "name":    $server['p'][$i]['name']  = empty($server['p'][$i]['name']) ? $value : "[{$server['p'][$i]['name']}] {$value}"; break;
    3544. 

  3544.             case "teamid":  $server['p'][$i]['team']  = isset($player_team[$value]) ? $player_team[$value] : $value;                        break;
    3545. 

  3545.             case "squadid": $server['p'][$i]['squad'] = isset($player_squad[$value]) ? $player_squad[$value] : $value;                      break;
    3546. 

  3546.             default:        $server['p'][$i][$field]  = $value;                                                                             break;
    3547. 

  3547.           }
    3548. 

  3548.         }
    3549. 

  3549.       }
    3550. 

  3550.     }
    3551. 

  3551. 

  3552. //---------------------------------------------------------+
    3553. 

  3553. 

  3554.     return TRUE;
    3555. 

  3555.   }
    3556. 

  3556. 

  3557. //------------------------------------------------------------------------------------------------------------+
    3558. 

  3558. //------------------------------------------------------------------------------------------------------------+
    3559. 

  3559. 

  3560.   function lgsl_query_31(&$server, &$lgsl_need, &$lgsl_fp)
    3561. 

  3561.   {
    3562. 

  3562. //---------------------------------------------------------+
    3563. 

  3563. //  AVP 2010 ONLY ROUGHLY FOLLOWS THE SOURCE QUERY FORMAT
    3564. 

  3564. //  SERVER RULES ARE ON THE END OF THE INFO RESPONSE
    3565. 

  3565. 

  3566.     fwrite($lgsl_fp, "\xFF\xFF\xFF\xFF\x54Source Engine Query\x00");
    3567. 

  3567. 

  3568.     $buffer = fread($lgsl_fp, 4096);
    3569. 

  3569. 

  3570.     if (!$buffer) { return FALSE; }
    3571. 

  3571. 

  3572.     $buffer = substr($buffer, 5); // REMOVE HEADER
    3573. 

  3573. 

  3574.     $server['e']['netcode']     = ord(lgsl_cut_byte($buffer, 1));
    3575. 

  3575.     $server['s']['name']        = lgsl_cut_string($buffer);
    3576. 

  3576.     $server['s']['map']         = lgsl_cut_string($buffer);
    3577. 

  3577.     $server['s']['game']        = lgsl_cut_string($buffer);
    3578. 

  3578.     $server['e']['description'] = lgsl_cut_string($buffer);
    3579. 

  3579.     $server['e']['appid']       = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    3580. 

  3580.     $server['s']['players']     = ord(lgsl_cut_byte($buffer, 1));
    3581. 

  3581.     $server['s']['playersmax']  = ord(lgsl_cut_byte($buffer, 1));
    3582. 

  3582.     $server['e']['bots']        = ord(lgsl_cut_byte($buffer, 1));
    3583. 

  3583.     $server['e']['dedicated']   = lgsl_cut_byte($buffer, 1);
    3584. 

  3584.     $server['e']['os']          = lgsl_cut_byte($buffer, 1);
    3585. 

  3585.     $server['s']['password']    = ord(lgsl_cut_byte($buffer, 1));
    3586. 

  3586.     $server['e']['anticheat']   = ord(lgsl_cut_byte($buffer, 1));
    3587. 

  3587.     $server['e']['version']     = lgsl_cut_string($buffer);
    3588. 

  3588. 

  3589.     $buffer = substr($buffer, 1);
    3590. 

  3590.     $server['e']['hostport']     = lgsl_unpack(lgsl_cut_byte($buffer, 2), "S");
    3591. 

  3591.     $server['e']['friendlyfire'] = $buffer[124];
    3592. 

  3592. 

  3593.     // DOES NOT RETURN PLAYER INFORMATION
    3594. 

  3594. 

  3595. //---------------------------------------------------------+
    3596. 

  3596. 

  3597.     return TRUE;
    3598. 

  3598.   }
    3599. 

  3599. 

  3600. //------------------------------------------------------------------------------------------------------------+
    3601. 

  3601. //------------------------------------------------------------------------------------------------------------+
    3602. 

  3602. 

  3603.   function lgsl_query_32(&$server, &$lgsl_need, &$lgsl_fp)
    3604. 

  3604.   {
    3605. 

  3605. //---------------------------------------------------------+
    3606. 

  3606. 

  3607.     fwrite($lgsl_fp, "\x05\x00\x00\x01\x0A");
    3608. 

  3608. 

  3609.     $buffer = fread($lgsl_fp, 4096);
    3610. 

  3610. 

  3611.     if (!$buffer) { return FALSE; }
    3612. 

  3612. 

  3613.     $buffer = substr($buffer, 5); // REMOVE HEADER
    3614. 

  3614. 

  3615.     $server['s']['name']       = lgsl_cut_pascal($buffer);
    3616. 

  3616.     $server['s']['map']        = lgsl_cut_pascal($buffer);
    3617. 

  3617.     $server['s']['players']    = ord(lgsl_cut_byte($buffer, 1));
    3618. 

  3618.     $server['s']['playersmax'] = 0; // HELD ON MASTER
    3619. 

  3619. 

  3620.     // DOES NOT RETURN PLAYER INFORMATION
    3621. 

  3621. 

  3622. //---------------------------------------------------------+
    3623. 

  3623. 

  3624.     return TRUE;
    3625. 

  3625.   }
    3626. 

  3626. 

  3627. //------------------------------------------------------------------------------------------------------------+
    3628. 

  3628. //------------------------------------------------------------------------------------------------------------+
    3629. 

  3629.   function lgsl_query_33(&$server, &$lgsl_need, &$lgsl_fp)
    3630. 

  3630.   {
    3631. 

  3631. //---------------------------------------------------------+
    3632. 

  3632. //  REFERENCE: http://blogs.battlefield.ea.com/battlefield_bad_company/archive/2010/02/05/remote-administration-interface-for-bfbc2-pc.aspx
    3633. 

  3633. //  THIS USES TCP COMMUNICATION
    3634. 

  3634. //	Modified for BF3
    3635. 

  3635. 

  3636.     if ($lgsl_need['s'] || $lgsl_need['e'])
    3637. 

  3637.     {
    3638. 

  3638.       fwrite($lgsl_fp, "\x00\x00\x00\x00\x1B\x00\x00\x00\x01\x00\x00\x00\x0A\x00\x00\x00serverInfo\x00");
    3639. 

  3639.     }
    3640. 

  3640.     elseif ($lgsl_need['p'])
    3641. 

  3641.     {
    3642. 

  3642.       fwrite($lgsl_fp, "\x00\x00\x00\x00\x24\x00\x00\x00\x02\x00\x00\x00\x0B\x00\x00\x00listPlayers\x00\x03\x00\x00\x00all\x00");
    3643. 

  3643.     }
    3644. 

  3644. 

  3645. //---------------------------------------------------------+
    3646. 

  3646. 

  3647.     $buffer = fread($lgsl_fp, 4096);
    3648. 

  3648. 

  3649.     if (!$buffer) { return FALSE; }
    3650. 

  3650. 

  3651.     $buffer = substr($buffer, 12); // REMOVE HEADER
    3652. 

  3652. 

  3653.     $response_type = lgsl_cut_pascal($buffer, 4, 0, 1);
    3654. 

  3654. 

  3655.     if ($response_type != "OK") { return FALSE; }
    3656. 

  3656. 

  3657. //---------------------------------------------------------+
    3658. 

  3658. 

  3659.     if ($lgsl_need['s'] || $lgsl_need['e'])
    3660. 

  3660.     {
    3661. 

  3661.       $lgsl_need['s'] = FALSE;
    3662. 

  3662.       $lgsl_need['e'] = FALSE;
    3663. 

  3663. 

  3664.       $server['s']['name']            = lgsl_cut_pascal($buffer, 4, 0, 1);
    3665. 

  3665.       $server['s']['players']         = lgsl_cut_pascal($buffer, 4, 0, 1);
    3666. 

  3666.       $server['s']['playersmax']      = lgsl_cut_pascal($buffer, 4, 0, 1);
    3667. 

  3667.       $server['e']['gamemode']        = lgsl_cut_pascal($buffer, 4, 0, 1);
    3668. 

  3668.       $server['s']['map']             = lgsl_cut_pascal($buffer, 4, 0, 1);
    3669. 

  3669.       $server['e']['score_attackers'] = lgsl_cut_pascal($buffer, 4, 0, 1);
    3670. 

  3670.       $server['e']['score_defenders'] = lgsl_cut_pascal($buffer, 4, 0, 1);
    3671. 

  3671. 

  3672.       // CONVERT MAP NUMBER TO DESCRIPTIVE NAME
    3673. 

  3673. 

  3674.       $server['e']['level'] = $server['s']['map'];
    3675. 

  3675.       $map_check = strtolower($server['s']['map']);
    3676. 

  3676. 

  3677.       if            (strpos($map_check, "mp_001") !== FALSE) { $server['s']['map'] = "Grand Bazaar";    }
    3678. 

  3678.       elseif (strpos($map_check, "mp_003") !== FALSE) { $server['s']['map'] = "Teheran Highway";    }
    3679. 

  3679.       elseif (strpos($map_check, "mp_007") !== FALSE) { $server['s']['map'] = "Caspian Border";    }
    3680. 

  3680.       elseif (strpos($map_check, "mp_011") !== FALSE) { $server['s']['map'] = "Seine Crossing";    }
    3681. 

  3681.       elseif (strpos($map_check, "mp_012") !== FALSE) { $server['s']['map'] = "Operation Firestorm";    }
    3682. 

  3682.       elseif (strpos($map_check, "mp_013") !== FALSE) { $server['s']['map'] = "Damavand Peak";    }
    3683. 

  3683.       elseif (strpos($map_check, "mp_017") !== FALSE) { $server['s']['map'] = "Noshahr Canals";    }
    3684. 

  3684.       elseif (strpos($map_check, "mp_018") !== FALSE) { $server['s']['map'] = "Kharg Island";    }
    3685. 

  3685.       elseif (strpos($map_check, "mp_subway") !== FALSE) { $server['s']['map'] = "Operation Metro";   }
    3686. 

  3686.     }
    3687. 

  3687. 

  3688. //---------------------------------------------------------+
    3689. 

  3689. 

  3690.     elseif ($lgsl_need['p'])
    3691. 

  3691.     {
    3692. 

  3692.       $lgsl_need['p'] = FALSE;
    3693. 

  3693. 

  3694.       $field_total = lgsl_cut_pascal($buffer, 4, 0, 1);
    3695. 

  3695.       $field_list  = array();
    3696. 

  3696. 

  3697.       for ($i=0; $i<$field_total; $i++)
    3698. 

  3698.       {
    3699. 

  3699.         $field_list[] = strtolower(lgsl_cut_pascal($buffer, 4, 0, 1));
    3700. 

  3700.       }
    3701. 

  3701. 

  3702.       $player_squad = array("","Alpha","Bravo","Charlie","Delta","Echo","Foxtrot","Golf","Hotel");
    3703. 

  3703.       $player_team  = array("","Attackers","Defenders");
    3704. 

  3704.       $player_total = lgsl_cut_pascal($buffer, 4, 0, 1);
    3705. 

  3705. 

  3706.       for ($i=0; $i<$player_total; $i++)
    3707. 

  3707.       {
    3708. 

  3708.         foreach ($field_list as $field)
    3709. 

  3709.         {
    3710. 

  3710.           $value = lgsl_cut_pascal($buffer, 4, 0, 1);
    3711. 

  3711. 

  3712.           switch ($field)
    3713. 

  3713.           {
    3714. 

  3714.             case "clantag": $server['p'][$i]['name']  = $value;                                                                             break;
    3715. 

  3715.             case "name":    $server['p'][$i]['name']  = empty($server['p'][$i]['name']) ? $value : "[{$server['p'][$i]['name']}] {$value}"; break;
    3716. 

  3716.             case "teamid":  $server['p'][$i]['team']  = isset($player_team[$value]) ? $player_team[$value] : $value;                        break;
    3717. 

  3717.             case "squadid": $server['p'][$i]['squad'] = isset($player_squad[$value]) ? $player_squad[$value] : $value;                      break;
    3718. 

  3718.             default:        $server['p'][$i][$field]  = $value;                                                                             break;
    3719. 

  3719.           }
    3720. 

  3720.         }
    3721. 

  3721.       }
    3722. 

  3722.     }
    3723. 

  3723. 

  3724. //---------------------------------------------------------+
    3725. 

  3725. 

  3726.     return TRUE;
    3727. 

  3727.   }
    3728. 

  3728. 

  3729. //------------------------------------------------------------------------------------------------------------+
    3730. 

  3730. //------------------------------------------------------------------------------------------------------------+
    3731. 

  3731. 

  3732.   function lgsl_query_feed(&$server, $request, $lgsl_feed_method, $lgsl_feed_url)
    3733. 

  3733.   {
    3734. 

  3734. //---------------------------------------------------------+
    3735. 

  3735. 

  3736.     $lgsl_feed_error = 0;
    3737. 

  3737. 

  3738.     $host = parse_url($lgsl_feed_url);
    3739. 

  3739. 

  3740.     if (empty($host['host']) || empty($host['path'])) { exit("LGSL FEED PROBLEM: INVALID URL"); }
    3741. 

  3741. 

  3742.     $host_query = "?type={$server['b']['type']}&ip={$server['b']['ip']}&c_port={$server['b']['c_port']}&q_port={$server['b']['q_port']}&s_port={$server['b']['s_port']}&request={$request}&version=5.8";
    3743. 

  3743. 

  3744.     if (function_exists("json_decode")) { $host_query .= function_exists("gzuncompress") ? "&format=4" : "&format=3"; }
    3745. 

  3745.     else                                { $host_query .= function_exists("gzuncompress") ? "&format=2" : "&format=1"; }
    3746. 

  3746. 

  3747.     $referrer = preg_replace("/(.*):\/\//i", "", $_SERVER['HTTP_HOST'])."/{$_SERVER['SCRIPT_NAME']}";
    3748. 

  3748.     $referrer = "http://".str_replace("//", "/", $referrer);
    3749. 

  3749.     $referrer = empty($_SERVER['QUERY_STRING']) ? $referrer : "{$referrer}?{$_SERVER['QUERY_STRING']}";
    3750. 

  3750. 

  3751. //---------------------------------------------------------+
    3752. 

  3752. 

  3753.     if (function_exists('curl_init') && function_exists('curl_setopt') && function_exists('curl_exec') && $lgsl_feed_method == 1)
    3754. 

  3754.     {
    3755. 

  3755.       $lgsl_curl = curl_init();
    3756. 

  3756. 

  3757.       curl_setopt($lgsl_curl, CURLOPT_HEADER, 0);
    3758. 

  3758.       curl_setopt($lgsl_curl, CURLOPT_HTTPGET, 1);
    3759. 

  3759.       curl_setopt($lgsl_curl, CURLOPT_TIMEOUT, 6);
    3760. 

  3760.       curl_setopt($lgsl_curl, CURLOPT_ENCODING, "");
    3761. 

  3761.       curl_setopt($lgsl_curl, CURLOPT_FORBID_REUSE, 1);
    3762. 

  3762.       curl_setopt($lgsl_curl, CURLOPT_FRESH_CONNECT, 1);
    3763. 

  3763.       curl_setopt($lgsl_curl, CURLOPT_RETURNTRANSFER, 1);
    3764. 

  3764.       curl_setopt($lgsl_curl, CURLOPT_CONNECTTIMEOUT, 6);
    3765. 

  3765.       curl_setopt($lgsl_curl, CURLOPT_REFERER, $referrer);
    3766. 

  3766.       curl_setopt($lgsl_curl, CURLOPT_URL, "http://{$host['host']}{$host['path']}{$host_query}");
    3767. 

  3767. 

  3768.       $http_reply = curl_exec($lgsl_curl);
    3769. 

  3769. 

  3770.       if (curl_error($lgsl_curl))
    3771. 

  3771.       {
    3772. 

  3772.         $lgsl_feed_error = 1;
    3773. 

  3773.       }
    3774. 

  3774. 

  3775.       curl_close($lgsl_curl);
    3776. 

  3776.     }
    3777. 

  3777. 

  3778. //---------------------------------------------------------+
    3779. 

  3779. 

  3780.     elseif (function_exists('fsockopen'))
    3781. 

  3781.     {
    3782. 

  3782.       $lgsl_fp = @fsockopen($host['host'], "80", $errno, $errstr, 6);
    3783. 

  3783. 

  3784.       if (!$lgsl_fp)
    3785. 

  3785.       {
    3786. 

  3786.         $lgsl_feed_error = 1;
    3787. 

  3787.       }
    3788. 

  3788.       else
    3789. 

  3789.       {
    3790. 

  3790.         stream_set_timeout($lgsl_fp, 6, 0);
    3791. 

  3791.         stream_set_blocking($lgsl_fp, TRUE);
    3792. 

  3792. 

  3793.         $http_send  = "GET {$host['path']}{$host_query} HTTP/1.0\r\n";
    3794. 

  3794.         $http_send .= "Host: {$host['host']}\r\n";
    3795. 

  3795.         $http_send .= "Referer: {$referrer}\r\n";
    3796. 

  3796.         $http_send .= "Pragma: no-cache\r\n";
    3797. 

  3797.         $http_send .= "Cache-Control: max-age=0\r\n";
    3798. 

  3798.         $http_send .= "Accept-Encoding: \r\n";
    3799. 

  3799.         $http_send .= "Accept-Language: en-us,en;q=0.5\r\n";
    3800. 

  3800.         $http_send .= "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\n";
    3801. 

  3801.         $http_send .= "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\r\n";
    3802. 

  3802.         $http_send .= "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-GB; rv:1.9.1.4) Gecko/20091028\r\n";
    3803. 

  3803.         $http_send .= "Connection: Close\r\n\r\n";
    3804. 

  3804. 

  3805.         fwrite($lgsl_fp, $http_send);
    3806. 

  3806. 

  3807.         $http_reply = "";
    3808. 

  3808. 

  3809.         while (!feof($lgsl_fp))
    3810. 

  3810.         {
    3811. 

  3811.           $http_chunk = fread($lgsl_fp, 4096);
    3812. 

  3812.           if ($http_chunk === "") { break; }
    3813. 

  3813.           $http_reply .= $http_chunk;
    3814. 

  3814.         }
    3815. 

  3815. 

  3816.         @fclose($lgsl_fp);
    3817. 

  3817.       }
    3818. 

  3818.     }
    3819. 

  3819. 

  3820. //---------------------------------------------------------+
    3821. 

  3821. 

  3822.     else
    3823. 

  3823.     {
    3824. 

  3824.       exit("LGSL FEED PROBLEM: NO CURL OR FSOCKOPEN SUPPORT");
    3825. 

  3825.     }
    3826. 

  3826. 

  3827. //---------------------------------------------------------+
    3828. 

  3828. 

  3829.     if (!$lgsl_feed_error)
    3830. 

  3830.     {
    3831. 

  3831.       if (preg_match("/_F([1-4])_(.*)_F([1-4])_/U", $http_reply, $match))
    3832. 

  3832.       {
    3833. 

  3833.         if     ($match[1] == 4 && $match[3] == 4) { $server = json_decode(gzuncompress(base64_decode($match[2])), TRUE); }
    3834. 

  3834.         elseif ($match[1] == 3 && $match[3] == 3) { $server = json_decode(            (base64_decode($match[2])), TRUE); }
    3835. 

  3835.         elseif ($match[1] == 2 && $match[3] == 2) { $server = unserialize(gzuncompress(base64_decode($match[2]))); }
    3836. 

  3836.         elseif ($match[1] == 1 && $match[3] == 1) { $server = unserialize(            (base64_decode($match[2]))); }
    3837. 

  3837.       }
    3838. 

  3838.       elseif (preg_match("/_SLGSLF_(.*)_SLGSLF_/U", $http_reply, $match))
    3839. 

  3839.       {
    3840. 

  3840.         $server = unserialize($match[1]);
    3841. 

  3841.       }
    3842. 

  3842.       else
    3843. 

  3843.       {
    3844. 

  3844.         $lgsl_feed_error = 2;
    3845. 

  3845.       }
    3846. 

  3846. 

  3847.       if (!$lgsl_feed_error && empty($server))
    3848. 

  3848.       {
    3849. 

  3849.         $lgsl_feed_error = 3;
    3850. 

  3850.       }
    3851. 

  3851.     }
    3852. 

  3852. 

  3853. //---------------------------------------------------------+
    3854. 

  3854. 

  3855.     switch($lgsl_feed_error)
    3856. 

  3856.     {
    3857. 

  3857.       case 1: // CONNECTION PROBLEM - FEED MAYBE TEMPORARLY OFFLINE
    3858. 

  3858.         $server['s']['name'] = "---";
    3859. 

  3859.         $server['s']['map']  = "---";
    3860. 

  3860.         $server['e'] = array("feed" => "Failed To Connect");
    3861. 

  3861.         $server['p'] = array();
    3862. 

  3862.       break;
    3863. 

  3863. 

  3864.       case 2: // NO FEED DATA - MAYBE WRONG FEED URL
    3865. 

  3865.         exit("<div style='width:100%;overflow:auto'>FEED MISSING FROM: {$host['host']}{$host['path']} RETURNED: ".htmlspecialchars($http_reply, ENT_QUOTES)." :END</div>");
    3866. 

  3866.       break;
    3867. 

  3867. 

  3868.       case 3: // UNABLE TO UNPACK FEED DATA - MAYBE ERRORS ON FEED
    3869. 

  3869.         exit("<div style='width:100%;overflow:auto'>FEED CORRUPTION FROM: {$host['host']}{$host['path']} RETURNED: ".htmlspecialchars($http_reply, ENT_QUOTES)." :END</div>");
    3870. 

  3870.       break;
    3871. 

  3871.     }
    3872. 

  3872. 

  3873. //---------------------------------------------------------+
    3874. 

  3874. 

  3875.     // FALSE IS SO LOCAL OFFLINE CODE TAKES OVER
    3876. 

  3876.     return $server['b']['status'] ? TRUE : FALSE;
    3877. 

  3877.   }
    3878. 

  3878. 

  3879. //------------------------------------------------------------------------------------------------------------+
    3880. 

  3880. //------------------------------------------------------------------------------------------------------------+
    3881. 

  3881. 

  3882.   function lgsl_parse_color($string, $type)
    3883. 

  3883.   {
    3884. 

  3884.     switch($type)
    3885. 

  3885.     {
    3886. 

  3886.       case "1":
    3887. 

  3887.         $string = preg_replace("/\^x.../", "", $string);
    3888. 

  3888.         $string = preg_replace("/\^./",    "", $string);
    3889. 

  3889. 

  3890.         $string_length = strlen($string);
    3891. 

  3891.         for ($i=0; $i<$string_length; $i++)
    3892. 

  3892.         {
    3893. 

  3893.           $char = ord($string[$i]);
    3894. 

  3894.           if ($char > 160) { $char = $char - 128; }
    3895. 

  3895.           if ($char > 126) { $char = 46; }
    3896. 

  3896.           if ($char == 16) { $char = 91; }
    3897. 

  3897.           if ($char == 17) { $char = 93; }
    3898. 

  3898.           if ($char  < 32) { $char = 46; }
    3899. 

  3899.           $string[$i] = chr($char);
    3900. 

  3900.         }
    3901. 

  3901.       break;
    3902. 

  3902. 

  3903.       case "2":
    3904. 

  3904.         $string = preg_replace("/\^[\x20-\x7E]/", "", $string);
    3905. 

  3905.       break;
    3906. 

  3906. 

  3907.       case "doomskulltag":
    3908. 

  3908.         $string = preg_replace("/\\x1c./", "", $string);
    3909. 

  3909.       break;
    3910. 

  3910. 

  3911.       case "farcry":
    3912. 

  3912.         $string = preg_replace("/\\$\d/", "", $string);
    3913. 

  3913.       break;
    3914. 

  3914. 

  3915.       case "painkiller":
    3916. 

  3916.         $string = preg_replace("/#./", "", $string);
    3917. 

  3917.       break;
    3918. 

  3918. 

  3919.       case "quakeworld":
    3920. 

  3920.         $string_length = strlen($string);
    3921. 

  3921.         for ($i=0; $i<$string_length; $i++)
    3922. 

  3922.         {
    3923. 

  3923.           $char = ord($string[$i]);
    3924. 

  3924.           if ($char > 141) { $char = $char - 128; }
    3925. 

  3925.           if ($char < 32)  { $char = $char + 30;  }
    3926. 

  3926.           $string[$i] = chr($char);
    3927. 

  3927.         }
    3928. 

  3928.       break;
    3929. 

  3929. 

  3930.       case "savage":
    3931. 

  3931.         $string = preg_replace("/\^[a-z]/",   "", $string);
    3932. 

  3932.         $string = preg_replace("/\^[0-9]+/",  "", $string);
    3933. 

  3933.         $string = preg_replace("/lan .*\^/U", "", $string);
    3934. 

  3934.         $string = preg_replace("/con .*\^/U", "", $string);
    3935. 

  3935.       break;
    3936. 

  3936. 

  3937.       case "swat4":
    3938. 

  3938.         $string = preg_replace("/\[c=......\]/Usi", "", $string);
    3939. 

  3939.       break;
    3940. 

  3940.     }
    3941. 

  3941.     return $string;
    3942. 

  3942.   }
    3943. 

  3943. 

  3944. //---------------------------------------------------------+
    3945. 

  3945. 

  3946.   function lgsl_time($seconds)
    3947. 

  3947.   {
    3948. 

  3948.     if ($seconds === "") { return ""; }
    3949. 

  3949. 

  3950.     $n = $seconds < 0 ? "-" : "";
    3951. 

  3951. 

  3952.     $seconds = abs($seconds);
    3953. 

  3953. 

  3954.     $h = intval($seconds / 3600);
    3955. 

  3955.     $m = intval($seconds / 60  ) % 60;
    3956. 

  3956.     $s = intval($seconds       ) % 60;
    3957. 

  3957. 

  3958.     $h = str_pad($h, "2", "0", STR_PAD_LEFT);
    3959. 

  3959.     $m = str_pad($m, "2", "0", STR_PAD_LEFT);
    3960. 

  3960.     $s = str_pad($s, "2", "0", STR_PAD_LEFT);
    3961. 

  3961. 

  3962.     return "{$n}{$h}:{$m}:{$s}";
    3963. 

  3963.   }
    3964. 

  3964. 

  3965. //---------------------------------------------------------+
    3966. 

  3966. 

  3967.   function lgsl_unpack($string, $format)
    3968. 

  3968.   {
    3969. 

  3969.     list(,$string) = @unpack($format, $string);
    3970. 

  3970. 

  3971.     return $string;
    3972. 

  3972.   }
    3973. 

  3973. 

  3974. //---------------------------------------------------------+
    3975. 

  3975. 

  3976.   function lgsl_cut_byte(&$buffer, $length)
    3977. 

  3977.   {
    3978. 

  3978.     $string = substr($buffer, 0, $length);
    3979. 

  3979.     $buffer = substr($buffer, $length);
    3980. 

  3980. 

  3981.     return $string;
    3982. 

  3982.   }
    3983. 

  3983. 

  3984. //---------------------------------------------------------+
    3985. 

  3985. 

  3986.   function lgsl_cut_string(&$buffer, $start_byte = 0, $end_marker = "\x00")
    3987. 

  3987.   {
    3988. 

  3988.     $buffer = substr($buffer, $start_byte);
    3989. 

  3989.     $length = strpos($buffer, $end_marker);
    3990. 

  3990. 

  3991.     if ($length === FALSE) { $length = strlen($buffer); }
    3992. 

  3992. 

  3993.     $string = substr($buffer, 0, $length);
    3994. 

  3994.     $buffer = substr($buffer, $length + strlen($end_marker));
    3995. 

  3995. 

  3996.     return $string;
    3997. 

  3997.   }
    3998. 

  3998. 

  3999. //---------------------------------------------------------+
    4000. 

  4000. 

  4001.   function lgsl_cut_pascal(&$buffer, $start_byte = 1, $length_adjust = 0, $end_byte = 0)
    4002. 

  4002.   {
    4003. 

  4003.     $length = ord(substr($buffer, 0, $start_byte)) + $length_adjust;
    4004. 

  4004.     $string = substr($buffer, $start_byte, $length);
    4005. 

  4005.     $buffer = substr($buffer, $start_byte + $length + $end_byte);
    4006. 

  4006. 

  4007.     return $string;
    4008. 

  4008.   }
    4009. 

  4009. 

  4010. //---------------------------------------------------------+
    4011. 

  4011. 

  4012.   function lgsl_get_string($buffer, $start_byte = 0, $end_marker = "\x00")
    4013. 

  4013.   {
    4014. 

  4014.     $buffer = substr($buffer, $start_byte);
    4015. 

  4015.     $length = strpos($buffer, $end_marker);
    4016. 

  4016. 

  4017.     if ($length === FALSE) { $length = strlen($buffer); }
    4018. 

  4018. 

  4019.     $string = substr($buffer, 0, $length);
    4020. 

  4020. 

  4021.     return $string;
    4022. 

  4022.   }
    4023. 

  4023. 

  4024. //---------------------------------------------------------+
    4025. 

  4025. 

  4026.   function lgsl_gs_crypt($type, &$buffer, $encrypt = FALSE)
    4027. 

  4027.   {
    4028. 

  4028.     $master_key = pack("H*",
    4029. 

  4029.     "f5c5914b27235dc0dc274200ddd187c32fe02aed5fc5c079518f49208e4c5548aaef313c5d2e7c91dc580d3cd9e1aec577595325d3c5c84b44a020802becb17e".
    4030. 

  4030.     "7d6b6b87e8a4ebc8e4cafbaf5720f9600818b334ad2695ba0f19e1fbd48d0139f05e9059e98a15c79ebabb4f3aa8039d8720aef2bf1b4693a67a20a114b8505b".
    4031. 

  4031.     "693cf5b24a236503582ecdb8109a7d89a8d90d660b96435b4656ecec3fff2086e94c54988843d2aa55adefb2d47fc804c0024a7897e993b2326e8990e425f7c8".
    4032. 

  4032.     "38aef55f2002f22d84479f43849de260a8a2de6a7de09225c275a172729e65be687182bde68cb17b3fd77bf513c8045f0b6696d3a501b255db0632e36c0e7806".
    4033. 

  4033.     "c5c193b5b9a9c621f0ac9a0ee72196edbb336e7431b75eba95d02191048ab7c3874578218d79a2623e308184fdac98a1568c09b8907d8411e29c53823a3a68bc".
    4034. 

  4034.     "c785547ebb29401822da7fa59c6fc412cf2a9201f31336bcdffe78501058b1d7814e920ceee7aca8fa798f10f0a8ba19a1deae864e1c77f974880e5571a4380b".
    4035. 

  4035.     "52d3357ec8cbf8ff6ff7e8f3fa6223f923e4a7bb1918054bcd2a115e466307f39d964c051983f8b2e5db0b39332ec08c94d9b36a4594ab5e868bc888e4586687".
    4036. 

  4036.     "b6e62b2bb06ad0903544e379d744896f95346a0238b2b72c6d38ed1bf011185bad1910812cfe2c5b38db10433088f2e5a3746e7302467d35e8f07722fad1f7d4".
    4037. 

  4037.     "283fbea23fa6f50f710491b1f0a8dd3a187939e7f344de57c256ffb063791fc556d3791570a873537c3f05f8ca08aa1eb2e3f641e0fb46fde7394f8fb4c216d7".
    4038. 

  4038.     "55c020b405a21b8e4340136fc9583800afd87a677d3d9b6b95585ba502d6db2dec504f25b612340e29be64700682f4f012908e2672916ba83d35deb58d826d83".
    4039. 

  4039.     "d75a61f726876747d78df10a31f6acb36cb64dec47b7da11c7e7177dcc097965a50065e8e5f91732e20647604c00c0fa451f7ee140d93515b7b5e6f9e0c92ad0".
    4040. 

  4040.     "29648ab1e0ea363c5a19d12832c54c0ae67baa7e029217ede5f97cd07ebf3aaf14c020f4646e3792e2472409299868b9ee1ce7a69a30203218289523d848a2ee".
    4041. 

  4041.     "42b96edf05f24182491dfb048c17f815aa8983d9ab72723defbe9750cd694bc1318c92862ed7b7ab1e37472b986a7f4745224fd723e4e6ef53ff6d5f51f1b8cd".
    4042. 

  4042.     "34b32b9ac92968e5ec8b631aa750e7cec51e7fddca5da1cdc836c0243ab2a2f86d072479c117738fafba4d72db6fee13274d652a7c76ff962c1389b32f95f3c0".
    4043. 

  4043.     "04d178b71646fe084507e7dd4b4db98405cb72399f78f989c188fb2ed6e18e5aa417adae504d33ad8414f9e3a6e466837062e8ea91664f63134539679b119d6b".
    4044. 

  4044.     "3918f833ceddc249933b0ae83e0965b38fb86d3da02622d02f57c7282e5f0cdb18f71e7450c538ddca55588575f80754dd0c89840bcf7e246e8f041309069f15".
    4045. 

  4045.     "a49c27fa0a5913c72be881ae27ff6b0332701d96dc295576d2a9bc0fd266f5604da647f78d1c2ced95c4cf8a929c55bf524198898b444c67040d7c7debcc3cc9".
    4046. 

  4046.     "7cab1a8fe190f4db097beaccea9a34e38380b43bd2b2bf98f471c02894aaaf3944680988497aa74d293238d503a4df19d90af204fdcbb1875170a96b7f3e288c".
    4047. 

  4047.     "0f24e1c8b9ce4f77f2b03944c2abbacba69331a244923c38f731f368d10eca82dd503bdece016064c68cb38a4e3408712959cb5216dc42bf5365eb789c484bcc".
    4048. 

  4048.     "5813a1f1680fc5606e8da06bd5a68a73bd593fcd4aeb9aca06bb258f84a38dd0d4c6c0c355c4d5e0e1a97abaa11869f26285a99db4dfb8eab0b0f53e80d2486b".
    4049. 

  4049.     "9a6cc63affac0b830b12434ddbc1c4ef3ee46af67fcc711b88a352d2b324c0acfb35bfbe74865afd7f3293a944cd9f69230a206c5112ed9858497ddc118c0338".
    4050. 

  4050.     "63f1a974b033a225c74e83c9d1bec1a3e6a7b2b7ddab58aec40fe4bed9e2fd1beaded608c695dafaf4d683fdf3b9175d1283d7d99b47c40209a555c317e29bad".
    4051. 

  4051.     "574ac49e78ae91896b527d27f04d89b10d5f754b953d1218bf01fc06086c031ff334eab692e9c6fb221ac0f3027283ac5350d860f2d6125d31edf4b7ac806f21".
    4052. 

  4052.     "abeb04f84230e8c17455e54a27d6862cfb3279370eae1cdb1f84c10209e89241182c307b45a6b97520a62bc263c66f78d27b52ad9728f5d78c1626297b1d1cdd".
    4053. 

  4053.     "e47fd67d9f1f4846a3643810359f2cc6b22a662683836eb48f6e1605be3a830fe29f0c54412e7d82aefff9748a2fddb368dd0103161e2a17da69216e22adf6b5".
    4054. 

  4054.     "7ce255e400279188655820eedd5a1935aa3d8cf621fa312bab89cbb3071bfbe7e0635126de8217bd5c342f35824511769ac6b72de09b87012cd85f2cbef53e11".
    4055. 

  4055.     "9aba484771b15bddda183501230ae6a16fcde55a161df16f178e04478a3711437dc91eeabe92e14b44d2f49036532be42c425346df9d91288aa409a63272e061".
    4056. 

  4056.     "baaaca491cc04c44b2ac739290baa76d9fdc7b66733548af6411a6ba790c4962ddf033e63fab462bc0ccbfa45d45ce377d32f4c7e905cab5fbbb524f8c2907d0".
    4057. 

  4057.     "41b304d1f38f348efd34a7d51c118445d05353b5f0449f368450782df457ca55169bdfa817a94e1082faf4115cf3d6d890481affb2feb95145691f152485465d".
    4058. 

  4058.     "0f8dba4cde2079784574fadbe805222e3a132934f1a419cda032b310fd7dfa2830d3f3385d646ba0c373cba4d624a6267300014cdd2dd5e87999aa5b0e5df0a8".
    4059. 

  4059.     "de50f3473918474ccf82f9c8ab9f31379a9d8d00bead3bc8b9d00f4ebba9c7b0ea882454e3a785e096d7887b3a507f089dba88925df12c633241ed2f9f68905b".
    4060. 

  4060.     "66775d1d0ca3cc312f7be8641856be8de24248e55dd737df8410e23e9457024f534261f09ab278821b1c89da824f7f546a4163f4d53ccf07ee9bd59adb673822".
    4061. 

  4061.     "87092b94a7847141a796a6abf90f7bfa5d8967bfba2275283863bfc3f8283f0e5b223748a55dff04f3c6bf228bb1e0bfd2c80289abf5819e165268b4e687bcf4".
    4062. 

  4062.     "a33f1c42c47a6236ca14c26778ad2cbe013c20807e45276d49a4e0df7df7c42d2c73f298f61fc8e778ba953a71c6b7d1779624552df0f3896a790671a3a981fa".
    4063. 

  4063.     "17914d856321d0997ff4b2d05944335ceac60b63b1d827eab5ef7483990e9bd1b5453a473e1efd476ba1e093466cb21dc72e35dc12bb8c8d3bb29db420251590".
    4064. 

  4064.     "32441b8a7e9458cad9cdc1551ce52312bb27d858a8ae319e525b38f20242a60933b2a21bd858e147cc6ee702983c84bf535d1575a54dc46c03cdb42a39d1a64e".
    4065. 

  4065.     "433d9bea41f9915f7d9d462d4308baccb19bb1adc3e0125715950f7c7f8b54312826204fd512386da587bad7bf81069dc554fd8fd77153832225e56a7fa4046b".
    4066. 

  4066.     "d588ed258dc7e54ccf1c021f9800376376bdcfc62116555ab0e06b3161b3b7a6a7a87de2371215207c43fce54c82feddc5d444b08f6a30c0095007d526da1b02".
    4067. 

  4067.     "41563a9360f86ef3b824294bd174679f4dee74912acdeb00ac96a713ad86dc212a544b7420fa6c83d5dec48400e1f11f8163e20c932bc893820a8261939e0f85".
    4068. 

  4068.     "fdb416c6a0a18cc0182d675702a8362694f23ce686962150f862357fe84a0b572068c7e0578909d7f82c87cd17e7ef50e5566eab694ac76edb4b6d8a85cd2910".
    4069. 

  4069.     "0b93272b0a524a24db8db7d4622fae63d982e4090fb519e30736d5b5152d58a234919d216d0294628841cba91ed72d985ba92f7cc548378e7ddf812816ad99dd".
    4070. 

  4070.     "27adffdf5b6d762a79a942d8af9a8f0ac81afc98869dcdcc06835478947ced5ccbb22d02624e207c774042fa8c133221c362bef69582c52ca9c014db1ec2d351".
    4071. 

  4071.     "a1d72bb01c06e32ca0a4ecfe923737f0f7145b27c943a9be1f174dd46d3af58e7a2f612177affd11ae7e1b9231aadb46bcb732ee79de7e62f467721f06d8e9e5".
    4072. 

  4072.     "59b526bb702ddbc0f0b46a2162458c15c0154cbb1b1edad3fa198a0781279ecc5e5391269c335bc94b2f21da781cf943cd0e700206128fe1f1e3af4e70bfbaec".
    4073. 

  4073.     "1c7ae4884c7e7544050036b001f87fc2f10762888701c160010e7691ea2b53b646d22178ebf1a56eb9cba86ffa2b570d846e231037d403298103c61732b04113".
    4074. 

  4074.     "ff7ec74e0a671332f7df9da231f995c1fb53523c17c23105312b7d8ab63e5f6a0e7b9d106f3ce575d14befb3a5803aabcc9edb5f1ddf9dcabff4efbd785b169d".
    4075. 

  4075.     "f7fb1b991faf63f064b5fc8f2c7fcac4b35a61f19c92dec36a6aadf02dc3942dde51d7225aefeaf6b7527183c2adc832c6bc8735bc7be2c18ad3d70653f91581".
    4076. 

  4076.     "ce42a275ef6715932ae7513d0ecb726be54c167cc89445a08cb8e12fc583aee815b3947bd1ac781fcbfbdda25fe3e931a21c47058197ceffbe9bd2ac6394b2d5".
    4077. 

  4077.     "95c3e10076c3aceba33b1556029edfbc04849e0d66713f7beeb1517dcd43279a5073ec9fa221bfaceef0f639e771a44156778cbb696af28e2437eea3fc025d27".
    4078. 

  4078.     "70b1409d978e4ec808c58288d525ac977db0ace80d9554925bf8767b8e91a9bf1ed25deabdbb93315ca08f711ae3f768a911eeacd93bfa6db3957da83c0fd945".
    4079. 

  4079.     "a7e596b66530aa7347e04590fd31db6b49485a9ea8208c0aab4068f482b185aaed6ee69e32f9ff7b882763da34f6e3bce94c79353ef6849d47e6345d8727e076".
    4080. 

  4080.     "f1aa0133c2399e4d777525fe9aa29e75d23df6e829f9058580413d5c24f85568beb1343430f393adee28ab54e220b4c884fa6ebc2825705f863ba7d82977f653".
    4081. 

  4081.     "edb2088abd84ad52a1810a52abc6e7c3b5687f3bf4744941ce48c876205f2497b641e6e4bb565ab816425c348e1f034104efda9a21723b00cdadc6ed2af6b225".
    4082. 

  4082.     "524ae512afba6bc19c471e14bbba042dba641424005a816f25aee44ee84cf2f729b79b1b9d58218f0274d92168c9bb1cd1c141b5f8341a3a4dc78c0ddf08dfd4".
    4083. 

  4083.     "110b4eb0b71b265fe70aa5a4b2186cafad5ff94dafd5b4b4560bac45cb47c4c863274ac2d84af46b75bfde496d39984ff0af8ab7d98bc12c02ce782b23268d03".
    4084. 

  4084.     "864826b0201d8d1e0c09c9ab229a2f7fe1504795bafa8b8ae13fb046a2f35233a49b772b57862ada835951742439693ed9f3a080aea7a1309de4ae04b1ce3d78".
    4085. 

  4085.     "72cdd85a3544906afaf55aff8255bdb2367c7ecf184c91c8f4c60a1301b80f8bb9f0ff6d80ac6e1c9d6c9fafbc65199790e0a9c323e68b105f5c56eed2f60294".
    4086. 

  4086.     "5ab59d79698829ba092cc97f37dd023595d3fa014e718cda23d6bdbbfd70c2c6cc1b9121d22eae0bde7b94277dc8e5e096d60351f2740ddb986c7e10e0af8a40".
    4087. 

  4087.     "e9bd526f863cde028dd253e18013d3c76c2006a9ab9ec3e7b6b1aca865b2ace8c8debb50ae1efbc0e49dd69f128c28bd02d79f22717e2679d5142540733cb278".
    4088. 

  4088.     "0969944106122d5f2baf97f7e09ef67b894cd191411126ad962e4b9c5a0bbe83215563662ce5f063ce2a76c2e09613539fbb094d389e739ca0a3fc34bd1692ba".
    4089. 

  4089.     "f0601e2122a70fdf68ede6c431090896622362c59801000727718f4b551f32340fc5f740e15fc0a023791aa57a6cc97af3077f5d71d33cbc864049b30cb11ea5".
    4090. 

  4090.     "23c15141ea5ac620aec5f81e6661bf8f01a3c817ac1ab592570b63764402e4934d776df03cadae448c5d9082c30c00737e4bbe5c184a1167507d9b99bdd05592".
    4091. 

  4091.     "456ac25dadb5beafe282028611db969c44db7bfb2cad349c0ecbebc281a00ad4f70cfd889b3533833ab845f86403e6a1970da6b5c8b8e82e9f42a82c7c14e535".
    4092. 

  4092.     "16b3d9efbaae6ca6b9c93977f17f58ec29a1a8bb188fb15f377bf50d37e84781ca1716052f657a361cbe44eb227002a57390873e54b8695f76fe0f84f873e021".
    4093. 

  4093.     "c92945f3d7b54861be3c237701c140c3a4e1b84fa4bab910cd265393e0172293d6fc40fa1872e175d7d3f06153a9eca3f8db85c2166f68415eda3bf4aee35adc".
    4094. 

  4094.     "0231cd6cfe5d3a23b51fb0105176b9cdadc28304d27fef698cf4155235d07ecfaf5a2c5f8610a63ee809b0e0260251c33873dceebdda1ec3725d1376031e45cc".
    4095. 

  4095.     "731a870b39edc97b549b96624c891984acf7a422584bc56f2104256f15da552d0a8376a546b6966153728ca1f38514df0d458375e99bc01fa498b07abb33803f".
    4096. 

  4096.     "da07c4149e6e5773f9ec65ac3c87ca7c515f263de3cda2d53edbc20c47486ee33f9810c8226bbc9c52fcadb1f01fe28bf099b8afb9f1798e0b9815210c559187".
    4097. 

  4097.     "c562b5e45350a5d0708c2fb96bad405ef4b8b535066ed02da198e4a3a4eaf075450c87f6d9840c8e00b8e316bcc7a5c6113fefbd72b0c7f6860fcecc8a3f33fb".
    4098. 

  4098.     "a2999e4f3f3e3da5d7bfcf5d22a93f4d16ae6dd053685dfc7223628f92086735d09551bd29e8d0f537d06f33536fce8360d7443f583e9079685efce0347c1ffa".
    4099. 

  4099.     "fedd0b7d1125f0dfc9bb21460079f286abbbeb549bb744aeea0b7a6bc66a272c8af945621b57b8380d40fa067c3060b9d44b79bd4333ec96d47632124a9aad0a".
    4100. 

  4100.     "2df287eda9312f70f12f544fd7bdef9e6cc5e110effb8dbdebb821571f0fa95301db9da0bb60b77af6d5b7de00ca26039f1dda92f7a777c75d02fc340f1b81b5".
    4101. 

  4101.     "e7c5efc6aaa6ffe3b77db348b7a5973a9465cb1e01841fa10f398318bfb73a4f8f53a4bded656f35db0ef00685826d8eac3aa0941623b3401ffdaba927bc91f4".
    4102. 

  4102.     "808818548a60f653e9f340f79e40d666525923c4847ac3c0a9b36f3069620b0aea677ee7afa2c333987d9a5afade1b0e1e22ef7470228b07c9f482a6c343a37c".
    4103. 

  4103.     "462a749c02d4cc86447cc16c3c68955afa80e63a3a41aaa1375c7ca0cffa0335e96e599e1b6841ae5693b5fa6ff437c3c1dca20075b7a58aafa81845af0aa8f6".
    4104. 

  4104.     "30520d89a362d667447045c2b39f88f573f6b76b95ea4a98950ad797570b841975e9841306223dbefd21a4f092d69452c4539c664e27e110622ae7a7db5073d6".
    4105. 

  4105.     "17eb023b36f28a13eeeebdbd964df63dcb18762950b6bd3eeead2a25b9bba48060ac8b82af3f41ecafbb7134140ca8cc687b92eded8bdabd9567e50950ed617a".
    4106. 

  4106.     "a114d3db8648f9ab48a622456aec56fe79cfa6225fc7fd3fb0607f9dbc1bd861b316600fc10163fe8098ea685bc3fe06435f51cb1ce7ffebae67b3114fadf8c8".
    4107. 

  4107.     "808a4044bb06638d05bc9a73c44c5b1eb7c83cdb4bde51ffa85413a97fbd534ddb17dc899fc4e2ced6ed81eeb117b4c77f9ecd03251367649a5649ec58567907".
    4108. 

  4108.     "4fc8c2702dc42a58308f4023fb2cd30c79ecb9a952cde77dfcf92d8ef234811c327112abd568c49d4bf693f611d07e433fcd0a396530c6a279eb3ba567d780b7".
    4109. 

  4109.     "271b6bfc7f1683a6b9159e143788662e8c5f73dd25ab623633efe781edd647b32003c9f3eaf236d968244e4561bc855848b839bfb93af2ea3e230a30089230c4".
    4110. 

  4110.     "2e593ed3b9be53d677a7c9da744ee1961aaccac237f9e0bc1f886a92d5f335c6c0b0250ea76fbdcd85ae9cf6afe7ab25fd6b4753be6505b986757b003b94a089".
    4111. 

  4111.     "d6a42b1fb24d2249ec917bb0ad50c8bd31265f82071a0816c3f8985edf0311205f83eaf8ff5587a3c7c24938a3f0cf9ff438b567d71407a51292e6d7e3f939e6".
    4112. 

  4112.     "cdbecd49e913793f73cb964406934907ca4d48f44bec301bdf0110986757fcac6c2cca84eb7c5fad1662d1a833d24fa356771d6b772759a4837d9872d23ff1ab".
    4113. 

  4113.     "219597aadc062f317d6cbc044bf65dc5ddda95ddc34d68584b7db991c8441a43e0511f71b88dda141f36b7cb326650c3244b989f1b992d2baa318e2a76dd1c34".
    4114. 

  4114.     "a946c843255f65c6896eac3a6774ceff50b6f66b752672f5ce8dc84149ba6b227da844254d01bf470f6c987e8b5df2168414bcee11ad8c131d16e43addbdd493".
    4115. 

  4115.     "595117f4f211c5d6460ee1be41e72b42c21252ce6dcd9838e53b0e1fd8d1864c2d3d219b82d42d0446865848431658732a78f0d9348f8044fa7f576d11562d25".
    4116. 

  4116.     "d7b681f714c4b43532543d27069a21d1d152e646c56d75229bb198f87676108306e68fa49751f3b1d678bbf1ea38b2e0712d896882b5ea1494136f23a7e1d528".
    4117. 

  4117.     "ca456c6c2a2cfc8cb6b6e7e6526aaa1da082653492b624936213569892706d8f9c6496b1193ec5a4294e3c1da14b25c24337cf9bb3490ea3f8a54e0a5b9f77af".
    4118. 

  4118.     "fc70fe8dcb7687a9f45c7ae3ee8f2a94fa58e6c920cce1f447fd60526fa71b6f1048a3dcc7680e3b20ac66d78290bfc3878e72d4876e014036b0b80b6be4bf2e".
    4119. 

  4119.     "a358125bea811b51af76a0077b3a615750a9ca3368d1d17e060a0d37bfd3b13c91412ca83298b06aea3048607f718c04667dcfc7faa4ac5a594be1c1551140ba".
    4120. 

  4120.     "9c1ea7cebc074b1fbd338eef831fa3eb1f39088bcf1cf13bf706b1d287e12b165f4fb3e6c4586067c5e2f461c4cc86400b456428e8767c1b57a7bc3e64a8abe6".
    4121. 

  4121.     "d253646f8796763b2a33de35c6f1667d06f30bb12c0fd0e28e4859ebdc2f96236af4a895d9a7d6fb90cbb60084db28a0c628faf7653c316ec69b5c5103aea495".
    4122. 

  4122.     "792efd58ec42bc950f8608d5fa6834aab7bd2aaece33b3e16756f518a5410e8957dd534437e8c152451d86beb20124e8fb9e672d13fb7e98e153c124fdb2eaf7".
    4123. 

  4123.     "f94a23efffeea25ec31f821e492d9de00a6d056c67e565f734f864d425035bb13620b7a1f44ec02ab7a6b1c4a38511b6902cfcf199d3918eb07da11d634add44".
    4124. 

  4124.     "0860d123fa2b8003f87270777c6415e32f1b34dd6e1e22df3a78684e1169fce84b61cf461544f4e891fcd9d1f5a1e5fef148aeddbfcc922f5d7bfd3bd2480e8a".
    4125. 

  4125.     "3318c75ce0afc24ca179fc0e832ab64368c174407bf2cd45a72cd5c9e7dd0b9def7500cec54d4d692938a1bb18289189d4b2445640d8abc9a0b70c3ffc8ba3c8".
    4126. 

  4126.     "d483119a4f63851a57cf30f48c88616785a5ee00cb9221db45dd8dff118ca33bb4ae254937891f2c971edc8614fa3fc43e56f297a44a234fb1737f23d44a15f0".
    4127. 

  4127.     "6a9e364fe1daa8e28bf72927526296202713f76dc8342e3843483b479ff793697b11a934bdc206905dd020e2f321cf8d65c245a8e7c4275f87301211800f0751".
    4128. 

  4128.     "4e9cb59b88540f5441e6b09b4b73112d855ba0dffd4affd670c4f76ec11ac07a6cc2201ac65c83b3b3e4dc10d991ef4424cd001d34f0393dc262957df641469a".
    4129. 

  4129.     "e00f74c527f8c99f50432c5ff4c4260ec6998b7ef2a0223290762126542d8aa89bfd241ac59e3a9a6c6f13afc9d69a771d124d16359525e4b374605b699e32bd".
    4130. 

  4130.     "fb393d9397767bce32ab2d5557d05c33fa54183b0d5facc73a097441aa34abf7d6ac36fb35d6be7f19d0c26c7ad564c06f8a4f616ff4819c53e8b29e782b8791".
    4131. 

  4131.     "c4039e5d049bd36819ae6d01a113eae6260e25150b935ee364011558dea97e1ee0e7f2938b7368ad9a5a86bae4f89a9ffbd06638566a785cb6ad3982b133ce6a".
    4132. 

  4132.     "3edb13aa2c4ad4db7052ac646fcf336b375efb6a360d448862f2b711db3d8e657a706c14013664beae06b1a067fd078b0a8800c01dd610d583bee4fa4634e4f3".
    4133. 

  4133.     "5251372b8144a7194ed60dc2539283ce909e7d65338a9050b09b66b647f30b6d595d7e03d9a77029afce140df7717f64949ae1362f94602dc2e70840e3117ab1".
    4134. 

  4134.     "a26cc8e8ffd068ec225f0b75b2de63e3511f4485c87fb0087e4421675f3754bc4bc9c0a38db6392661e8a59802d83f887cf81aa99ed13a10b4b8a176144f76ce".
    4135. 

  4135.     "3a192cc77b09e3f8a087db488f3d304d048623f46a031ba9251896cd08ff601dd0b933f5110b4cc9d943b5705b2435fa1c0adaad6c3aed88022f57cc3d71048f".
    4136. 

  4136.     "9d5f420cfaf737b8a9f2434601b296b14384618fa9b76e6acbf1b55ad7130f582f36920a5aff71e15d120b11d6e0dd374554803538f3b12305512cf24322ed52".
    4137. 

  4137.     "cd7ce5f409efd2f2752684bc326bf4548fa17169028c819ba342ee672682860a6de09752f509caad897484160895dc712b70bd05d588fe218fd85718b9b833ff".
    4138. 

  4138.     "2c18e2566416ce1e52c3d7dc696cca1ad02b9b99e2953f92d8fe7ac0e4d75bd2ae2834b9ad8e87f179cdaf5e75609abdf1236787fe366347c32991f20c7faf41".
    4139. 

  4139.     "b65da4ed5edc3cab1134a4ee0a3b565cab7c6dcd6f93feb528ddf0a1e992f6ad4814e51d338433dc5b52fddd8e780a312d12c80c4dbdaf8818b1c84883d8be41".
    4140. 

  4140.     "186de5fdeeb9c7b7542a8429e53645a313cd8c9a53c3790b9fcf0143421da3bb586762790c91b0110f68b5fd111338560437d7d77457fb5587efb40a90ed1c02".
    4141. 

  4141.     "838ba4e83b0c6adb175d94b6e14767a4f4a127e80f79be7741f4dc446c520176fd5b0412cc4d7a8f3d293e438d50e4e79e52bbc2c3bc6707d97b6289f1b39733".
    4142. 

  4142.     "48c9351b66be55b2152bee9b76c42dc057d12134180488f45aee9491fe72f8634e3beeda8006869a829d2d58614150ab489dca7af268c09dde668cc20428ff88".
    4143. 

  4143.     "366a3c0119446bdba29c39b0723fcd639393d397d138ab241c187beac647d8f73e5e42b3468e3958e0e73908c081ce0b6c894f0409f3bd321807a1633860a8e7".
    4144. 

  4144.     "49cb4a10875a65b3f0a073f48f141747c88afe9039ef0795752dbd07ef51a2dadb40bb09bb9d4fcb328f68af28f8d76085fccaef4afe848a93c4cac43f55863a".
    4145. 

  4145.     "21b540e6d408eb55fdfbd2a0c13fbae6fdf68e51423737f6966105d1ed57570bb521adb9576b06988d7d5a6445fe77d177076d47ca45b437a9780b376d49689e".
    4146. 

  4146.     "6b0be983d90f46dbf935e14b53f3bf7ac7aec7fc1b92c14f161e59ae2620f7552206f22a365c91476943b8b51e920661efc19d040070407ba1cf011d3a0e072e".
    4147. 

  4147.     "68d10e064619aa2184d7e848729b254af6b83db15fca2134d0d54efc761fff25c1169d608ed2434de8ae3cafb8c3af0b5b23a16183b5ead5dc5d175c955f4db5".
    4148. 

  4148.     "454623d611244c462776118992ba03e8e20e6e1d9d6101d2286d7e040d5a56f22d6e3ae86bd6a0605c8b34d7a385fee5f3c9b6d0cf550f7aa67f338d8a014dfd".
    4149. 

  4149.     "639cade855e8d25df73ea01bc5635bb5e032269b2a10f6b2baea7c4a88ede42caf91d7c9d3b2802608fdc361e23ee8cdcc1c954da86f929e9721130ef6d74e99".
    4150. 

  4150.     "180f8c8c2263b41f538e105bc5f411f8dd1c2d3e0dc4540ff9cbdb9a6c44524ebcdfe37d9427a43dc24fd28c2fc25baef96490ae847b435ef4eea87db030829d".
    4151. 

  4151.     "06b4c5d9271c8ffda114c336f5d82f9e6ca0d140112f364b1613cfe84c6e924629cba51a7d21f92ce26802bda0651340a8aad0c1ef439acc5552634304321cf6".
    4152. 

  4152.     "02851751630d671a8cce7028f1cc6fdbce64f762c8ed522c2a81c2886986999a85d41a87d2ba5281dcbc2dbd728559470017e12fd70a97a771de499d2953c49b".
    4153. 

  4153.     "0e60abac5ced203dd26bb75df922938723b1341bb07b0250d7af1bf91788994f8ed193221dd829e6665b114763e490fd8482955b097ac3b5b124bf92ae8ce902".
    4154. 

  4154.     "1897b67db820cbfd646fe2c61e63baa972651a47bb1aae56f5e623a1167beff84166ea78cc9854b21a9478ebf3a1429226213c20a7a9ce8031eced508b937263".
    4155. 

  4155.     "1357591069d5c482c0f6f99e4a6084f34fdab7b26399b4efcb0e5217e4e9115d0f6011bcfe55e0f05d3d8850febab0a6100bab8142a3913662a568f9d32367bf".
    4156. 

  4156.     "5db46b6572cb76bd6a49d84bd567e1f834bbd705dd395c1609e9eba7fe8b9c59f1c4cb2561461204805c25a384140314e515f84050949529050279393884f8d0");
    4157. 

  4157. 

  4158.     if ($type == "aarmy3") { $game_key = "c6mw4it2kg7sz5o0813d9qyufenhj\x00"; } else { exit("UNKNOWN GAME CRYPT KEY"); }
    4159. 

  4159. 

  4160.     $buffer_length   = strlen($buffer);
    4161. 

  4161.     $game_key_length = strlen($game_key);
    4162. 

  4162. 

  4163.     if ($encrypt == TRUE)
    4164. 

  4164.     {
    4165. 

  4165.       for ($i=1; $i<$buffer_length; $i++) { $buffer[$i] = chr(ord($buffer[$i]) ^ ord($buffer[$i-1])); }
    4166. 

  4166.       for ($i=0; $i<$buffer_length; $i++) { $buffer[$i] = chr(ord($buffer[$i]) ^ ord($game_key[($i%128) % $game_key_length]) ^ ord($master_key[$i%128]) ^ ord($master_key[$i])); }
    4167. 

  4167.     }
    4168. 

  4168.     else
    4169. 

  4169.     {
    4170. 

  4170.       for ($i=0; $i<$buffer_length; $i++) { $buffer[$i] = chr(ord($buffer[$i]) ^ ord($master_key[$i]) ^ ord($master_key[$i%128]) ^ ord($game_key[($i%128) % $game_key_length])); }
    4171. 

  4171.       for ($i=$buffer_length; $i>0; $i--) { $buffer[$i] = chr(ord($buffer[$i]) ^ ord($buffer[$i-1])); }
    4172. 

  4172.     }
    4173. 

  4173.   }
    4174. 

  4174. 

  4175. //------------------------------------------------------------------------------------------------------------+
    4176. 

  4176. //--------- PLEASE MAKE A DONATION OR SIGN THE GUESTBOOK AT GREYCUBE.COM IF YOU REMOVE THIS CREDIT -----------+
    4177. 

  4177. 

  4178.   function lgsl_version()
    4179. 

  4179.   {
    4180. 

  4180.     return "LGSL 5.8 Beta 21 By Richard Perry";
    4181. 

  4181.   }
    4182. 

  4182. 

  4183. //------------------------------------------------------------------------------------------------------------+
    4184. 

  4184. //------------------------------------------------------------------------------------------------------------+
    4185. 

  4185. 

  4186.   } // END OF DOUBLE LOAD PROTECTION
    4187. 

  4187. 

  4188. //------------------------------------------------------------------------------------------------------------+
    4189. 

  4189. //------------------------------------------------------------------------------------------------------------+
    4190. 

  4190. 

  4191. ?>
    4192.