20 lines
440 B
Haskell
20 lines
440 B
Haskell
{-# LANGUAGE DeriveDataTypeable #-}
|
|
|
|
module CPUPlayer ( CPUPlayer(..)
|
|
) where
|
|
|
|
|
|
import Data.Fixed
|
|
import Data.Ratio ((%))
|
|
import Data.Typeable
|
|
|
|
import GLDriver
|
|
import Player
|
|
import Tank
|
|
|
|
|
|
data CPUPlayer = CPUPlayer Micro
|
|
deriving (Typeable, Show)
|
|
|
|
instance Player CPUPlayer where
|
|
playerMovement (CPUPlayer angle) _ = (CPUPlayer (if (angle+0.1) > 180 then angle-359.9 else angle+0.1), Just angle, True)
|