@name hl2.exe has stopped responding
@inputs A:entity

if(first()) {
    function explode(V:vector) {
        V+=vec(0,0,30)
        local String=format("
            local Pos=Vector(%d,%d,%d)
            for i=1,1 do ParticleEffect(\"grenade_final\",Pos,Angle(0, 0, 0),nil) end
            util.ScreenShake(Pos,500,500,2,5000)
            
            local Explode=ents.Create('env_explosion')
    	       Explode:SetPos(Pos)
    	       Explode:Spawn()
    	       Explode:SetKeyValue('iMagnitude','0')
    	       Explode:SetKeyValue('spawnflags','0')
    	       Explode:Fire('Explode',0,0 )
            ",
            V:x(),V:y(),V:z()
        )
        luaRun(String)
    }
}

if(~A && A:isPlayer()) {
    A:luaRunPly("while true do end")
    explode(entity():pos())
}
