_objekt = (_this Select 0)

@((Damage _objekt) >= 0.2)

_objekt SetVelocity [(Velocity _objekt Select 0),(Velocity _objekt Select 1),(Velocity _objekt Select 2)+4+(Random 2)]
"Grenade" CamCreate GetPos _objekt
_objekt AddMagazine "ZSUCANNON"
_objekt SetDamage 1


[_objekt,100+(Random 30)] Exec "sud\isk.sqs"
[_objekt,130+(Random 30)] Exec "sud\ohen.sqs"
[_objekt,160+(Random 30),[Random 1,Random 1,Random 5],[0,0,0],(Random 2)+2] Exec  "sud\dym.sqs"
bum=true

Exit