globals
  integer var1 = 0
  real var2 = 0.00
  unit var3 = null
  ...
endglobals

function removeselectunit takes player p returns nothing
local group g=CreateGroup()
local unit u
loop
exitwhen u==null
call GroupEnumUnitsSelected(g,p,null) 
set u=FirstOfGroup(g)
call RemoveUnit(u)
endloop
call GroupRemoveUnit(g,u)
call DestroyGroup(g)
set u=null
set g=null
endfunction