Advertisement
Noneatme

Untitled

Jul 4th, 2013
685
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 16.15 KB | None | 0 0
  1. -- Decompiled using luadec 2.1 UNICODE r69 from http://code.google.com/p/luadec
  2. -- Command line: -l LDS survivorsystem.luac
  3.  
  4. addEventHandler("onClientResourceStart", getResourceRootElement(), function()
  5.   dayzVersion = "MTA:DayZ 0.6 r256"
  6.   versionLabel = guiCreateLabel(1, 1, 0.3, 0.3, dayzVersion, true)
  7.   guiSetSize(versionLabel, guiLabelGetTextExtent(versionLabel), guiLabelGetFontHeight(versionLabel), false)
  8.   x, y = guiGetSize(versionLabel, true), versionLabel
  9.   guiSetPosition(versionLabel, 1 - x, 1 - y * 1.8, true)
  10.   guiSetAlpha(versionLabel, 0.5)
  11. end
  12. )
  13. setPedTargetingMarkerEnabled(false)
  14. snipertxd = engineLoadTXD("mods/sniper.txd")
  15. engineImportTXD(snipertxd, 285)
  16. sniperdff = engineLoadDFF("mods/sniper.dff", 285)
  17. engineReplaceModel(sniperdff, 285)
  18. snipertxd = engineLoadTXD("mods/civilian.txd")
  19. engineImportTXD(snipertxd, 179)
  20. sniperdff = engineLoadDFF("mods/civilian.dff", 179)
  21. engineReplaceModel(sniperdff, 179)
  22. snipertxd = engineLoadTXD("mods/bandit3.txd")
  23. engineImportTXD(snipertxd, 180)
  24. sniperdff = engineLoadDFF("mods/bandit3.dff", 180)
  25. engineReplaceModel(sniperdff, 180)
  26. snipertxd = engineLoadTXD("mods/bandit2.txd")
  27. engineImportTXD(snipertxd, 288)
  28. sniperdff = engineLoadDFF("mods/bandit2.dff", 288)
  29. engineReplaceModel(sniperdff, 288)
  30. snipertxd = engineLoadTXD("mods/standart.txd")
  31. engineImportTXD(snipertxd, 73)
  32. sniperdff = engineLoadDFF("mods/standart.dff", 73)
  33. engineReplaceModel(sniperdff, 73)
  34. snipertxd = engineLoadTXD("mods/femalestandard.txd")
  35. engineImportTXD(snipertxd, 191)
  36. sniperdff = engineLoadDFF("mods/femalestandard.dff", 191)
  37. engineReplaceModel(sniperdff, 191)
  38. snipertxd = engineLoadTXD("mods/hero.txd")
  39. engineImportTXD(snipertxd, 210)
  40. sniperdff = engineLoadDFF("mods/hero.dff", 210)
  41. engineReplaceModel(sniperdff, 210)
  42. itemTXD = engineLoadTXD("items/army_clothes.txd")
  43. engineImportTXD(itemTXD, 1247)
  44. itemDFF = engineLoadDFF("items/army_clothes.dff", 1247)
  45. engineReplaceModel(itemDFF, 1247)
  46. itemTXD = engineLoadTXD("items/sniper_clothes.txd")
  47. engineImportTXD(itemTXD, 1213)
  48. itemDFF = engineLoadDFF("items/sniper_clothes.dff", 1213)
  49. engineReplaceModel(itemDFF, 1213)
  50. itemTXD = engineLoadTXD("items/civilian_clothes.txd")
  51. engineImportTXD(itemTXD, 1241)
  52. itemDFF = engineLoadDFF("items/civilian_clothes.dff", 1241)
  53. engineReplaceModel(itemDFF, 1241)
  54. itemTXD = engineLoadTXD("items/standard_clothes.txd")
  55. engineImportTXD(itemTXD, 1577)
  56. itemDFF = engineLoadDFF("items/standard_clothes.dff", 1577)
  57. engineReplaceModel(itemDFF, 1577)
  58. itemTXD = engineLoadTXD("items/beans_can.txd")
  59. engineImportTXD(itemTXD, 2601)
  60. itemDFF = engineLoadDFF("items/beans_can.dff", 2601)
  61. engineReplaceModel(itemDFF, 2601)
  62. itemTXD = engineLoadTXD("items/first_aid_kit.txd")
  63. engineImportTXD(itemTXD, 2891)
  64. itemDFF = engineLoadDFF("items/first_aid_kit.dff", 2891)
  65. engineReplaceModel(itemDFF, 2891)
  66. itemTXD = engineLoadTXD("items/heat_pack.txd")
  67. engineImportTXD(itemTXD, 1576)
  68. itemDFF = engineLoadDFF("items/heat_pack.dff", 1576)
  69. engineReplaceModel(itemDFF, 1576)
  70. itemTXD = engineLoadTXD("items/pain_killers.txd")
  71. engineImportTXD(itemTXD, 2709)
  72. itemDFF = engineLoadDFF("items/pain_killers.dff", 2709)
  73. engineReplaceModel(itemDFF, 2709)
  74. itemTXD = engineLoadTXD("items/pasta_can.txd")
  75. engineImportTXD(itemTXD, 2770)
  76. itemDFF = engineLoadDFF("items/pasta_can.dff", 2770)
  77. engineReplaceModel(itemDFF, 2770)
  78. itemTXD = engineLoadTXD("items/pistol_ammo.txd")
  79. engineImportTXD(itemTXD, 3013)
  80. itemDFF = engineLoadDFF("items/pistol_ammo.dff", 3013)
  81. engineReplaceModel(itemDFF, 3013)
  82. itemTXD = engineLoadTXD("items/shotgun_ammo.txd")
  83. engineImportTXD(itemTXD, 2358)
  84. itemDFF = engineLoadDFF("items/shotgun_ammo.dff", 2358)
  85. engineReplaceModel(itemDFF, 2358)
  86. itemTXD = engineLoadTXD("items/backpack_small.txd")
  87. engineImportTXD(itemTXD, 3026)
  88. itemDFF = engineLoadDFF("items/backpack_small.dff", 3026)
  89. engineReplaceModel(itemDFF, 3026)
  90. itemTXD = engineLoadTXD("items/smg_ammo.txd")
  91. engineImportTXD(itemTXD, 2041)
  92. itemDFF = engineLoadDFF("items/smg_ammo.dff", 2041)
  93. engineReplaceModel(itemDFF, 2041)
  94. itemTXD = engineLoadTXD("items/sniper_ammo.txd")
  95. engineImportTXD(itemTXD, 2358)
  96. itemDFF = engineLoadDFF("items/sniper_ammo.dff", 2358)
  97. engineReplaceModel(itemDFF, 2358)
  98. itemTXD = engineLoadTXD("items/soda_can.txd")
  99. engineImportTXD(itemTXD, 2647)
  100. itemDFF = engineLoadDFF("items/soda_can.dff", 2647)
  101. engineReplaceModel(itemDFF, 2647)
  102. itemTXD = engineLoadTXD("items/water_bottle.txd")
  103. engineImportTXD(itemTXD, 2683)
  104. itemDFF = engineLoadDFF("items/water_bottle.dff", 2683)
  105. engineReplaceModel(itemDFF, 2683)
  106. itemTXD = engineLoadTXD("items/assault_ammo.txd")
  107. engineImportTXD(itemTXD, 1271)
  108. itemDFF = engineLoadDFF("items/assault_ammo.dff", 1271)
  109. engineReplaceModel(itemDFF, 1271)
  110. itemTXD = engineLoadTXD("items/backpack_alice.txd")
  111. engineImportTXD(itemTXD, 1248)
  112. itemDFF = engineLoadDFF("items/backpack_alice.dff", 1248)
  113. engineReplaceModel(itemDFF, 1248)
  114. itemTXD = engineLoadTXD("items/backpack_coyote.txd")
  115. engineImportTXD(itemTXD, 1252)
  116. itemDFF = engineLoadDFF("items/backpack_coyote.dff", 1252)
  117. engineReplaceModel(itemDFF, 1252)
  118. itemTXD = engineLoadTXD("items/backpack_czech.txd")
  119. engineImportTXD(itemTXD, 1575)
  120. itemDFF = engineLoadDFF("items/backpack_czech.dff", 1575)
  121. engineReplaceModel(itemDFF, 1575)
  122. itemTXD = engineLoadTXD("items/tent.txd")
  123. engineImportTXD(itemTXD, 3243)
  124. itemDFF = engineLoadDFF("items/tent.dff", 3243)
  125. engineReplaceModel(itemDFF, 3243)
  126. itemTXD = engineLoadTXD("items/wirefence.txd")
  127. engineImportTXD(itemTXD, 983)
  128. itemDFF = engineLoadDFF("items/wirefence.dff", 983)
  129. engineReplaceModel(itemDFF, 983)
  130. weaponTXD = engineLoadTXD("items/camera.txd")
  131. engineImportTXD(weaponTXD, 367)
  132. weaponDFF = engineLoadDFF("items/camera.dff", 367)
  133. engineReplaceModel(weaponDFF, 367)
  134. weaponTXD = engineLoadTXD("items/katana.txd")
  135. engineImportTXD(weaponTXD, 339)
  136. weaponDFF = engineLoadDFF("items/katana.dff", 339)
  137. engineReplaceModel(weaponDFF, 339)
  138. playerStatsClientSite = function()
  139.   if getElementData(getLocalPlayer(), "logedin") then
  140.     toggleControl("radar", false)
  141.     showPlayerHudComponent("clock", false)
  142.     showPlayerHudComponent("radar", false)
  143.     showPlayerHudComponent("money", false)
  144.     showPlayerHudComponent("health", false)
  145.     showPlayerHudComponent("breath", false)
  146.     if getElementData(getLocalPlayer(), "Map") >= 1 then
  147.       toggleControl("radar", true)
  148.     end
  149.     if getElementData(getLocalPlayer(), "GPS") >= 1 then
  150.       showPlayerHudComponent("radar", true)
  151.     end
  152.   end
  153.   if getElementData(getLocalPlayer(), "Watch") >= 1 then
  154.     showPlayerHudComponent("clock", true)
  155.   end
  156. end
  157.  
  158. setTimer(playerStatsClientSite, 1000, 0)
  159. playerZoom = function(ERROR_nil, ERROR_nil)
  160.    -- DECOMPILER ERROR: unhandled construct in 'if'
  161.  
  162.   if ERROR_nil == "n" and getElementData(getLocalPlayer(), "Night Vision Goggles") > 0 then
  163.     if nightvision then
  164.       nightvision = false
  165.       setCameraGoggleEffect("normal")
  166.     end
  167.     if gameplayVariables.enablenight then
  168.       setClientNight(getTime(), R6_PC26)
  169.     end
  170.   else
  171.     nightvision = true
  172.     setCameraGoggleEffect("nightvision")
  173.     setFarClipDistance(1000)
  174.   end
  175.   do return end
  176.   if ERROR_nil == "i" and getElementData(getLocalPlayer(), "Infrared Goggles") > 0 then
  177.     if infaredvision then
  178.       infaredvision = false
  179.       setCameraGoggleEffect("normal")
  180.     end
  181.     if gameplayVariables.enablenight then
  182.       setClientNight(hour, minutes)
  183.     end
  184.   else
  185.     infaredvision = true
  186.     setCameraGoggleEffect("thermalvision")
  187.   end
  188.   if gameplayVariables.enablenight then
  189.     setClientNight(hour, minutes)
  190.   end
  191. end
  192.  
  193. bindKey("n", "down", playerZoom)
  194. bindKey("i", "up", playerZoom)
  195. setClientNight = function(ERROR_nil, ERROR_nil)
  196.   if ERROR_nil == 21 then
  197.     setSkyGradient(0, 100 / ERROR_nil, 196 / ERROR_nil, 136 / ERROR_nil, 170 / ERROR_nil, 212 / ERROR_nil)
  198.     setFarClipDistance(120 + (880 - ERROR_nil * 14.6))
  199.     setFogDistance(-150 + (250 - ERROR_nil * 4.16))
  200.   elseif ERROR_nil == 7 then
  201.     setSkyGradient(0, 1.6 * ERROR_nil, 638.96, 307.36, 481.1, 748.36)
  202.     setFarClipDistance(120 + ERROR_nil * 14.6)
  203.     setFogDistance(-150 + ERROR_nil * 4.16)
  204.   elseif ERROR_nil == 22 or ERROR_nil == 23 then
  205.     setSkyGradient(0, 0, 0, 0, 0, 0)
  206.     setFarClipDistance(120)
  207.     setFogDistance(-150)
  208.   elseif ERROR_nil >= 0 and ERROR_nil <= 7 then
  209.     setSkyGradient(0, 0, 0, 0, 0, 0)
  210.     setFarClipDistance(120)
  211.     setFogDistance(-150)
  212.   else
  213.     setSkyGradient(0, 100, 196, 136, 170, 212)
  214.     setFarClipDistance(1000)
  215.     setFogDistance(100)
  216.   end
  217. end
  218.  
  219. getGroundMaterial = function(ERROR_nil, ERROR_nil, ERROR_nil)
  220.   return false
  221.    -- WARNING: undefined locals caused missing assignments!
  222. end
  223.  
  224. isInBuilding = function(ERROR_nil, ERROR_nil, ERROR_nil)
  225.   if processLineOfSight(ERROR_nil, ERROR_nil, ERROR_nil, ERROR_nil, ERROR_nil, ERROR_nil + 10, true, false, false, true, false, false, false, false, nil) then
  226.     return true
  227.   end
  228.   return false
  229. end
  230.  
  231. isObjectAroundPlayer2 = function(ERROR_nil, ERROR_nil, ERROR_nil)
  232.   material_value = 0
  233.   -- WARNING: pending registers. Declaring locals.
  234.   local l_7_3 = getElementPosition(ERROR_nil)
  235.   for i = math.random(0, 360), 360 do
  236.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  237.  
  238.     R12_PC18 = processLineOfSight
  239.     if false == 0 then
  240.       material_value = material_value + 1
  241.     end
  242.     if material_value > 40 then
  243.       return 0, R22_PC47, R23_PC47, R24_PC47
  244.     end
  245.   end
  246.   return false
  247. end
  248.  
  249. isObjectAroundPlayer = function(ERROR_nil, ERROR_nil, ERROR_nil)
  250.   -- WARNING: pending registers. Declaring locals.
  251.   local l_8_3 = getElementPosition(ERROR_nil)
  252.   for i = math.random(0, 360), 360 do
  253.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  254.  
  255.     R12_PC16 = processLineOfSight
  256.     if R20_PC25 == 0 then
  257.       return R21_PC31, R22_PC31, R23_PC31, R24_PC31
  258.     end
  259.   end
  260.   return false
  261. end
  262.  
  263. getPointFromDistanceRotation = function(ERROR_nil, ERROR_nil, ERROR_nil, ERROR_nil)
  264.   return ERROR_nil + math.cos(math.rad(90 - ERROR_nil)) * ERROR_nil, ERROR_nil + math.sin(math.rad(90 - ERROR_nil)) * ERROR_nil
  265. end
  266.  
  267. zombieSpawning = function()
  268.    -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  269.  
  270.   if isObjectAroundPlayer2(getLocalPlayer(), 30, 3) == 0 and not isInBuilding(getElementPosition(getLocalPlayer()), R9_PC16, R10_PC16) then
  271.     triggerServerEvent("createZomieForPlayer", R9_PC16, R10_PC16, R11_PC26, R12_PC26)
  272.     R10_PC16, R9_PC16 = getLocalPlayer
  273.   end
  274. end
  275.  
  276. setTimer(zombieSpawning, 3000, 0)
  277. stopZombieSound = function()
  278.   for i_1,i_2 in ipairs(getElementsByType("ped")) do
  279.     setPedVoice(i_2, "PED_TYPE_DISABLED")
  280.   end
  281. end
  282.  
  283. setTimer(stopZombieSound, 5000, 0)
  284. engineImportTXD(engineLoadTXD("skins/22.txd"), 22)
  285. engineImportTXD(engineLoadTXD("skins/56.txd"), 56)
  286. engineImportTXD(engineLoadTXD("skins/67.txd"), 67)
  287. engineImportTXD(engineLoadTXD("skins/68.txd"), 68)
  288. engineImportTXD(engineLoadTXD("skins/69.txd"), 69)
  289. engineImportTXD(engineLoadTXD("skins/70.txd"), 70)
  290. engineImportTXD(engineLoadTXD("skins/84.txd"), 84)
  291. engineImportTXD(engineLoadTXD("skins/97.txd"), 97)
  292. engineImportTXD(engineLoadTXD("skins/105.txd"), 105)
  293. engineImportTXD(engineLoadTXD("skins/107.txd"), 107)
  294. engineImportTXD(engineLoadTXD("skins/108.txd"), 108)
  295. engineImportTXD(engineLoadTXD("skins/111.txd"), 111)
  296. engineImportTXD(engineLoadTXD("skins/126.txd"), 126)
  297. engineImportTXD(engineLoadTXD("skins/127.txd"), 127)
  298. engineImportTXD(engineLoadTXD("skins/128.txd"), 128)
  299. engineImportTXD(engineLoadTXD("skins/152.txd"), 152)
  300. engineImportTXD(engineLoadTXD("skins/162.txd"), 162)
  301. engineImportTXD(engineLoadTXD("skins/167.txd"), 167)
  302. engineImportTXD(engineLoadTXD("skins/188.txd"), 188)
  303. engineImportTXD(engineLoadTXD("skins/192.txd"), 192)
  304. engineImportTXD(engineLoadTXD("skins/195.txd"), 195)
  305. engineImportTXD(engineLoadTXD("skins/206.txd"), 206)
  306. engineImportTXD(engineLoadTXD("skins/209.txd"), 209)
  307. engineImportTXD(engineLoadTXD("skins/212.txd"), 212)
  308. engineImportTXD(engineLoadTXD("skins/229.txd"), 229)
  309. engineImportTXD(engineLoadTXD("skins/230.txd"), 230)
  310. engineImportTXD(engineLoadTXD("skins/258.txd"), 258)
  311. engineImportTXD(engineLoadTXD("skins/264.txd"), 264)
  312. engineImportTXD(engineLoadTXD("skins/274.txd"), 274)
  313. engineImportTXD(engineLoadTXD("skins/277.txd"), 277)
  314. engineImportTXD(engineLoadTXD("skins/280.txd"), 280)
  315. guiSetAlpha(statsWindows, 0.8)
  316. guiLabelSetHorizontalAlign(statsLabel.zombieskilled, "center")
  317. guiSetFont(statsLabel.zombieskilled, "default-bold-small")
  318. setElementData(statsLabel.zombieskilled, "identifikation", "zombieskilled")
  319. guiLabelSetHorizontalAlign(statsLabel.headshots, "center")
  320. guiSetFont(statsLabel.headshots, "default-bold-small")
  321. setElementData(statsLabel.headshots, "identifikation", "headshots")
  322. guiLabelSetHorizontalAlign(statsLabel.murders, "center")
  323. guiSetFont(statsLabel.murders, "default-bold-small")
  324. setElementData(statsLabel.murders, "identifikation", "murders")
  325. guiLabelSetHorizontalAlign(statsLabel.banditskilled, "center")
  326. guiSetFont(statsLabel.banditskilled, "default-bold-small")
  327. setElementData(statsLabel.banditskilled, "identifikation", "banditskilled")
  328. guiLabelSetHorizontalAlign(statsLabel.blood, "center")
  329. guiSetFont(statsLabel.blood, "default-bold-small")
  330. setElementData(statsLabel.blood, "identifikation", "blood")
  331. guiLabelSetHorizontalAlign(statsLabel.zombies, "center")
  332. guiSetFont(statsLabel.zombies, "default-bold-small")
  333. setElementData(statsLabel.zombies, "identifikation", "zombies")
  334. guiLabelSetHorizontalAlign(statsLabel.temperature, "center")
  335. guiSetFont(statsLabel.temperature, "default-bold-small")
  336. setElementData(statsLabel.temperature, "identifikation", "temperature")
  337. guiLabelSetHorizontalAlign(statsLabel.humanity, "center")
  338. guiSetFont(statsLabel.humanity, "default-bold-small")
  339. setElementData(statsLabel.humanity, "identifikation", "humanity")
  340. guiLabelSetHorizontalAlign(statsLabel.name, "center")
  341. guiSetFont(statsLabel.name, "default-bold-small")
  342. setElementData(statsLabel.name, "identifikation", "name")
  343. if getElementData(localPlayer, "logedin") then
  344.   guiSetVisible(statsWindows, true)
  345. else
  346.   guiSetVisible(statsWindows, false)
  347. end
  348. bindKey("F5", "down", showDebugMonitor)
  349. addEvent("onClientPlayerDayZLogin", true)
  350. addEventHandler("onClientPlayerDayZLogin", root, showDebugMintorOnLogin)
  351. setTimer(refreshDebugMonitor, 2000, 0)
  352. addEventHandler("onClientPlayerDamage", getLocalPlayer(), playerGetDamageDayZ)
  353. addEventHandler("onClientPedDamage", getRootElement(), pedGetDamageDayZ)
  354. setTimer(checkStats, 3000, 0)
  355. setTimer(createBloodForBleedingPlayers, 300, 0)
  356. setTimer(checkBrokenbone, 1400, 0)
  357. setTimer(setPain, 1500, 0)
  358. setTimer(checkCold, 3000, 0)
  359. setTimer(setCold, 1500, 0)
  360. setTimer(setVolume, 100, 0)
  361. setTimer(setVisibility, 100, 0)
  362. setTimer(debugJump, 100, 0)
  363. setTimer(debugShooting, 100, 0)
  364. setTimer(checkZombies, 5000, 0)
  365. setTimer(checkZombies3, 500, 0)
  366. addEventHandler("onClientRender", getRootElement(), updateIcons)
  367. addEventHandler("onClientPlayerTarget", getRootElement(), targetingActivated)
  368. addEvent("onClientPlayerDeathInfo", true)
  369. addEventHandler("onClientPlayerDeathInfo", getRootElement(), dayZDeathInfo)
  370. guiSetVisible(whiteWindow, false)
  371. addEventHandler("onClientPlayerDamage", getLocalPlayer(), showWhiteScreen)
  372. guiSetVisible(supportWindow, false)
  373. bindKey("o", "down", openSupportChat)
  374. addEventHandler("onClientGUIClick", closeButton, outputEditBox, false)
  375. bindKey("o", "down", outputEditBox)
  376. addEventHandler("onClientGUIAccepted", messageInput, function(ERROR_nil)
  377.   if not isSpamTimer() then
  378.     triggerServerEvent("onServerSupportChatMessage", getLocalPlayer(), getLocalPlayer(), guiGetText(ERROR_nil))
  379.   end
  380.   setAntiSpamActive()
  381.   guiSetText(messageInput, "")
  382. end
  383. )
  384. addEvent("onSupportChatMessage", true)
  385. addEventHandler("onSupportChatMessage", getRootElement(), outputSupportChat, true)
  386. checkTopPlayer()
  387. setTimer(checkTopPlayer, 10000, 0)
  388. addEventHandler("onClientPlayerQuit", getRootElement(), onQuitGame)
  389. addEventHandler("onClientRender", getRootElement(), scoreBoard)
  390. addEvent("checkVehicleInWaterClient", true)
  391. addEventHandler("checkVehicleInWaterClient", getRootElement(), checkVehicleInWaterClient)
  392. setTimer(updatePlayTime, 60000, 0)
  393. bindKey("z", "down", "chatbox", "radiochat")
  394. setTimer(playerPingCheck, 4000, 0)
  395.  -- WARNING: undefined locals caused missing assignments!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement