If KeyHit(2)   ;fire?
   bull_x=-bull_x
   i.iontype=New iontype
   ionlife#=150
   i\ilife=ionlife
   i\ent=CopyEntity(ion,car)
   TranslateEntity i\ent,bull_x,0,3
   EntityParent i\ent,0
   ;EmitSound shoot,i\ent
EndIf

For i.ionType=Each iontype
   MoveEntity i\ent,0,0,2
   EntityRadius i\ent,.1
   If CountCollisions( i\ent )
      If EntityCollided(i\ent,PLAYER)>1
         FreeEntity i\ent
         Delete i
      End If
   End If    
   If i\ilife<0
      FreeEntity i\ent
      Delete i
   Else
      i\ilife=i\ilife-1
   EndIf   
Next   
   ion=LoadSprite( "data\sprites\bluspark.bmp" )
   ScaleSprite ion,3,3
   EntityRadius ion,1.5
   EntityType ion,IONS
   HideEntity ion