20time.txt
44 lines
| 1.5 KiB
| text/plain
|
TextLexer
/ examples / 20time.txt
r1 | ||||
# time | ||||
! устанавливает период выполнения кода | ||||
! на локации-счётчике в 100 миллисекунд | ||||
SETTIMER 100 | ||||
settimer 20 | ||||
if стихотворение=0: | ||||
if время_первая_строка=0: | ||||
время_первая_строка=msecscount+1500 | ||||
end | ||||
if msecscount>=время_первая_строка: | ||||
*pl 'Веленью совести, о Муза, будь послушна!' | ||||
стихотворение=1 | ||||
end | ||||
end | ||||
if стихотворение=1: | ||||
if время_вторая_строка=0: | ||||
время_вторая_строка=msecscount+1500 | ||||
end | ||||
if msecscount>=время_вторая_строка: | ||||
*pl 'Обиды не страшась, не требуя венца,' | ||||
стихотворение=2 | ||||
end | ||||
end | ||||
if стихотворение=2: | ||||
if время_третья_строка=0: | ||||
время_третья_строка=msecscount+1500 | ||||
end | ||||
if msecscount>=время_третья_строка: | ||||
*pl 'Хвалу и клевету приемли равнодушно' | ||||
стихотворение=3 | ||||
end | ||||
end | ||||
if стихотворение=3: | ||||
if время_четвёртая_строка=0: | ||||
время_четвёртая_строка=msecscount+1500 | ||||
end | ||||
if msecscount>=время_четвёртая_строка: | ||||
*pl 'И не оспаривай глупца.' | ||||
стихотворение=4 | ||||
end | ||||
end | ||||
- | ||||