Global Bonus=0
Type Bonus
Field entity
End Type
....
a.Bonus=New Bonus
a\entity=CreateCube()
EntityType a\entity,BonusType
PositionEntity a\entity,x#,y#,z#
...
Repeat
...
Speed=speed+Bonus
For s.Bonus=Each Bonus
If EntityCollided(player,BonusType)<> 0
Bonus=5
free s\entity
delete s
next
чо то типо этого