Описание игры
Игра происходит на бильярдной доске. Игрок управляет красным шаром, кликнув в любую точку экрана,
он может изменить направление вектора скорости красного шара. Шар покатится туда, куда кликнул пользо-
ватель в последний раз. Из луз будут вылетать шары трёх типов: синие, зелёные и оранжевые. Столкновение
красного шара с синим означает минус одну жизнь, с зелёным – плюс одну жизнь, оранжевый шар означает
бонус. Если шар игрока сталкивается с оранжевым шаром все шары в определённом радиусе от места столк-
новения исчезают и записываются в бонусные очки, за каждый шар по одному очку, при этом шар с которым
произошло столкновение не считается. Все столкновения – абсолютно упругие, поэтому при столкновении
энергия сохраняется и шары никогда не остановятся. Если шар попадает в лузу, то он исчезает. Если в лузу
попал шар игрока – это означает, что игра окончена. Игрок стартует с несколькими жизнями, когда их чис-
ло подходит к нулю игра останавливается. После столкновения с зелёным шаром, шар пропадает, а после
столкновения с синим – нет. В итоге все против игрока, кроме зелёных и оранжевых шаров.
20.1 Основные библиотеки
Контролировать физику игрового мира будет библиотека Chipmunk, а библиотека OpenGL будет рисовать
(конечно если мы её этому научим). Пришло время с ними познакомится.
288 | Глава 20: Императивное программирование
Изменяемые значения
Перед тем как мы перейдём к библиотекам нам нужно узнать ещё кое-что. В Haskell мы не можем изменять
значения. Но в С это делается постоянно, а соответственно и в библиотеках написанных на С тоже. Для того
чтобы имитировать в Haskell механизм обновления значений были придуманы специальные типы. Мы можем
объявить изменяемое значение и обновлять его, но только в пределах типа IO.
IORef
Тип IORef из модуля Data.IORef описывает изменяемые значения:
newIORef :: a -> IO IORef
readIORef
:: IORef a -> IO a
writeIORef
:: IORef a -> a -> IO ()
modifyIORef :: IORef a -> (a -> a) -> IO ()
Функция newIORef создаёт изменяемое значение и инициализирует его некоторым значением, кото-
рые мы можем считать с помощью функции readIORef или обновить с помощью функций writeIORef или
modifyIORef. Посмотрим как это работает:
module Main where
import Data.IORef
main = var >>= (\v ->
readIORef v >>= print
>> writeIORef v 4
>> readIORef v >>= print)
where var = newIORef 2
Теперь посмотрим на ответ ghci:
*Main> :l HelloIORef
[1 of 1] Compiling Main
( HelloIORef. hs, interpreted )
Ok, modules loaded: Main.
*Main> main
2
4
Самое время вернуться к главе 17 и вспомнить о do-нотации. Такой императивный код гораздо нагляднее
писать так: