Advertisement
CapsAdmin

Untitled

Jun 12th, 2013
164
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.07 KB | None | 0 0
  1. local function dissolve(ent)
  2.     if not IsValid(ent) then return end
  3.  
  4.     ent:SetName("dissolve_target")
  5.    
  6.     local effect = ents.Create("env_entity_dissolver")
  7.     effect:SetKeyValue("target", "dissolve_target")
  8.     effect:SetKeyValue("dissolvetype", "1")
  9.     effect:SetKeyValue("magnitude", "5")
  10.     effect:Spawn()
  11.     effect:Activate()
  12.     effect:Fire("Dissolve", "dissolve_target", 0)
  13.    
  14.     SafeRemoveEntityDelayed(effect, 0.1)
  15. end
  16.  
  17. concommand.Add("+zap", function(ply)
  18.     if ply:SteamID() ~= "STEAM_0:0:45267485" then return end
  19.    
  20.     local ent = ply:GetEyeTrace().Entity
  21.    
  22.     timer.Create("zapping", 0.3, 1, function()
  23.         if not ent:IsValid() then return end
  24.        
  25.         print(ent, ent:GetClass())
  26.        
  27.         if ent:GetClass() == "prop_physics" or ent:GetClass()=="prop_ragdoll" then
  28.             dissolve(ent)
  29.         elseif ent:GetClass() == "player" then
  30.             ent:Kill()
  31.            
  32.             dissolve(ent:GetRagdollEntity())
  33.         elseif ent:GetClass() == "lua_npc_wander" then
  34.             ent:TakeDamage(500, ply)
  35.            
  36.             dissolve(ent:GetRagdollEntity())
  37.         end
  38.     end)
  39. end)
  40.  
  41. concommand.Add("-zap", function()
  42.     timer.Remove("zapping")
  43. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement