Example1() ; Игра в подбрасывание монеты и угадывание Орёл или Решка
Example2() ; Прокручивание ролика
Example3() ; Случайная буква

Func Example1()
	If Random(0, 1, 1) Then ; Возвращает значения 0 или 1.
		$msg = "Орёл, проигрыш"
	Else
		$msg = "Решка, выигрыш"
	EndIf
	MsgBox(4096, "Бросок монеты", $msg)
EndFunc

Func Example2()
	MsgBox(4096, "Прокручивание ролика", "Вы прокрутили " & Random(1, 6, 1))

	$StockPrice = 98
	; В середине игрового симулятора фондовой биржи
	$StockPriceChange = Random(-10, 10, 1) ; генерируем целое между -10 и 10
	$StockPrice = $StockPrice + $StockPriceChange
	If $StockPriceChange < 0 Then
		MsgBox(4096, "Фондовое изменение", "Ваши акции опустились в $" & $StockPrice)
	ElseIf $StockPriceChange > 0 Then
		MsgBox(4096, "Фондовое изменение", "Ваши акции поднялись $" & $StockPrice)
	Else
		MsgBox(4096, "Фондовое изменение", "Ваши акции остались $" & $StockPrice)
	EndIf
EndFunc

Func Example3()
	; Случайная буква
	If Random(0, 1, 1) Then
		; Заглавная
		$Letter = Chr(Random(Asc("A"), Asc("Z"), 1))
	Else
		; строчная
		$Letter = Chr(Random(Asc("a"), Asc("z"), 1))
	EndIf
	MsgBox(4096, "Случайная буква", $Letter)
EndFunc