Sub runExplosion(myscene As SKScene, position As Point)
Dim explosion As SKEmitterNode = EmitterNodeWithFile(File.DirAssets,"Explosion.sks")
explosion.Position = position
explosion.SetScale(0.02)
myscene.AddChild(explosion)
Sleep(2000)
explosion.RemoveFromParent
End Sub
Sub EmitterNodeWithFile(Dir As String, Name As String) As SKEmitterNode
Dim skEmitter As SKEmitterNode
skEmitter.Initialize("")
Dim NaObj As NativeObject
skEmitter = NaObj.Initialize("NSKeyedUnarchiver").RunMethod("unarchiveObjectWithFile:",Array(File.Combine(Dir,Name)))
Return skEmitter
End Sub