Problem with Particule from Wiedo

you could do something like:

Function FreeEmitter(e.p_emit)
   For part.p_smoke=Each p_smoke
      If part\p_emit=e
         FreeEntity part\entity
         Delete part
      EndIf
   Next
   FreeEntity e\entity
   Delete e
End Function

see if that works.