Вот пример таймера в одну секунду
Code
second=0
oldTime=MilliSecs()
Repeat
If KeyDown(1) Then Exit
;Отсюда начало кода реализации таймера, где 1000 - равно секунда
;к примеру нам нужно 5 секунд значит 5*1000=5000
If MilliSecs()>oldTime+1000 Then
oldTime=MilliSecs();обновляем счётчик таймера
second=second+1
Cls
EndIf
;-----------------------------------------
Text 10,10,second
Forever
End
А вот код с реализацией смены дня и ночи, делать долго и нужна модель, чтоб эффект был заметен.
И самая главная проблема это не игра со светом(с этим я за пять минут справился бы), а смена неба, то есть был ясный день, потом набежали тучки, появилась луна, тучки рассосались и появились звёзды. Дальше к примеру рассветает и лёгкий туман.
Тут гиммора на много часов.
Но тема интересная, пара идей уже бурлит в голове, попробуем.