types - passing as parameter in function

You seem to be using an array of types so can't you just pass the index, like so?

start_gearchange_timer(1) 

Function start_gearchange_timer(i%) 
player(i)\gearchange_timer = Millisecs() 
End Function