Made truly adjustable 'period event'.

Thanks to guy from Haskell
subreddit(http://www.reddit.com/r/haskell/comments/1zvw4n/reactivebanana_how_to_implement_period_of_time/)