types - passing as parameter in function

Yes. Its late but I'll try this. It goes something like this. Best to put it in a dll.
in the dll....

Type timer
 field ID$
 field starttimer
 ect...
end type
;call the function in your game loop
start_timer( "paramters eg. player(1)\timer",starttimer,ect ) 

function start_timer.timer(ID$,starttimer,ect..)
 ticktock.timer = new timer
 ticktock\ID = ID
 ticktock\starttimer = timer
 ticktock\ect... = ect...
return ticktock
end function

;return the timer instance given its ID
function timer_getID.timer(ID$)
 For this.timer = each timer
  if this\ID = ID then return this
 next
return null
end function

;one more function for your timer
Function time()
 for this.timer = each timer 
  ticktock\timer = Millisecs()
 next 
End Function 

Hope it helps.
If it did not then goto the source.
Look in blitz coder and in the article section find the article Reusable Code: portable moduals in blitz by Morduun.