Safe Haskell | None |
---|---|

Language | Haskell2010 |

Game time and speed.

## Synopsis

- data Time
- timeZero :: Time
- timeEpsilon :: Time
- timeClip :: Time
- timeTurn :: Time
- timeSecond :: Time
- absoluteTimeAdd :: Time -> Time -> Time
- absoluteTimeSubtract :: Time -> Time -> Time
- absoluteTimeNegate :: Time -> Time
- timeFit :: Time -> Time -> Int
- timeFitUp :: Time -> Time -> Int
- newtype Delta a = Delta a
- timeShift :: Time -> Delta Time -> Time
- timeDeltaToFrom :: Time -> Time -> Delta Time
- timeDeltaAdd :: Delta Time -> Delta Time -> Delta Time
- timeDeltaSubtract :: Delta Time -> Delta Time -> Delta Time
- timeDeltaReverse :: Delta Time -> Delta Time
- timeDeltaScale :: Delta Time -> Int -> Delta Time
- timeDeltaPercent :: Delta Time -> Int -> Delta Time
- timeDeltaDiv :: Delta Time -> Int -> Delta Time
- timeDeltaToDigit :: Delta Time -> Delta Time -> Char
- data Speed
- toSpeed :: Int -> Speed
- fromSpeed :: Speed -> Int
- minSpeed :: Int
- speedZero :: Speed
- speedWalk :: Speed
- speedLimp :: Speed
- speedThrust :: Speed
- modifyDamageBySpeed :: Int64 -> Speed -> Int64
- speedScale :: Rational -> Speed -> Speed
- speedAdd :: Speed -> Speed -> Speed
- speedNegate :: Speed -> Speed
- ticksPerMeter :: Speed -> Delta Time
- speedFromWeight :: Int -> Int -> Speed
- rangeFromSpeedAndLinger :: Speed -> Int -> Int
- _timeTick :: Time
- turnsInSecond :: Int64
- sInMs :: Int64
- minimalSpeed :: Int64
- rangeFromSpeed :: Speed -> Int

# Documentation

Game time in ticks. The time dimension. One tick is 1 microsecond (one millionth of a second), one turn is 0.5 s.

timeEpsilon :: Time Source #

An infinitesimal time period.

At least once per clip all moves are resolved and a frame or a frame delay is generated. Currently one clip is 0.05 s, but it may change, and the code should not depend on this fixed value.

One turn is 0.5 s. The code may depend on that. Actors at normal speed (2 m/s) take one turn to move one tile (1 m by 1 m).

timeSecond :: Time Source #

This many ticks fits in a single second. Do not export,

absoluteTimeAdd :: Time -> Time -> Time Source #

Absolute time addition, e.g., for summing the total game session time from the times of individual games.

absoluteTimeNegate :: Time -> Time Source #

Absolute time negation. To be used for reversing time flow, e.g., for comparing absolute times in the reverse order.

timeFit :: Time -> Time -> Int Source #

How many time intervals of the latter kind fits in an interval of the former kind.

timeFitUp :: Time -> Time -> Int Source #

How many time intervals of the latter kind cover an interval of the former kind (rounded up).

One-dimentional vectors. Introduced to tell apart the 2 uses of Time: as an absolute game time and as an increment.

Delta a |

## Instances

Functor Delta Source # | |

Bounded a => Bounded (Delta a) Source # | |

Enum a => Enum (Delta a) Source # | |

Eq a => Eq (Delta a) Source # | |

Ord a => Ord (Delta a) Source # | |

Defined in Game.LambdaHack.Common.Time | |

Show a => Show (Delta a) Source # | |

Binary a => Binary (Delta a) Source # | |

timeDeltaToFrom :: Time -> Time -> Delta Time Source #

Time time vector between the second and the first absolute times. The arguments are in the same order as in the underlying scalar subtraction.

timeDeltaSubtract :: Delta Time -> Delta Time -> Delta Time Source #

Subtraction of time deltas. The arguments are in the same order as in the underlying scalar subtraction.

timeDeltaScale :: Delta Time -> Int -> Delta Time Source #

Scale the time vector by an `Int`

scalar value.

timeDeltaPercent :: Delta Time -> Int -> Delta Time Source #

Take the given percent of the time vector.

timeDeltaToDigit :: Delta Time -> Delta Time -> Char Source #

Represent the main 10 thresholds of a time range by digits, given the total length of the time range.

Speed in meters per 1 million seconds (m/Ms). Actors at normal speed (2 m/s) take one time turn (0.5 s) to make one step (move one tile, which is 1 m by 1 m).

fromSpeed :: Speed -> Int Source #

Pretty-printing of speed in the format used in content definitions.

Limp speed (1 m/s) that suffices to move one tile in two turns. This is the minimal speed for projectiles to fly just one space and drop.

speedThrust :: Speed Source #

Sword thrust speed (10 m/s). Base weapon damages, both melee and ranged, are given assuming this speed and ranged damage is modified accordingly when projectile speeds differ. Differences in melee weapon swing speeds are captured in damage bonuses instead, since many other factors influence total damage.

Billiard ball is 25 m*s, sword swing at the tip is 35 m*s,
medieval bow is 70 m*s, AK47 is 700 m*s.

modifyDamageBySpeed :: Int64 -> Speed -> Int64 Source #

Modify damage when projectiles is at a non-standard speed. Energy and so damage is proportional to the square of speed, hence the formula.

speedNegate :: Speed -> Speed Source #

Speed negation.

ticksPerMeter :: Speed -> Delta Time Source #

The number of time ticks it takes to walk 1 meter at the given speed.

speedFromWeight :: Int -> Int -> Speed Source #

Calculate projectile speed from item weight in grams and velocity percent modifier. See https://github.com/LambdaHack/LambdaHack/wiki/Item-statistics.

rangeFromSpeedAndLinger :: Speed -> Int -> Int Source #

Calculate maximum range taking into account the linger percentage.

# Internal operations

The smallest unit of time. Should not be exported and used elsewhere, because the proportion of turn to tick is an implementation detail. The significance of this detail is only that it determines resolution of the time dimension.

turnsInSecond :: Int64 Source #

This many turns fit in a single second.

minimalSpeed :: Int64 Source #

The minimal speed is half a meter (half a step across a tile) per second (two standard turns, which the time span during which projectile moves, unless it has modified linger value). This is four times slower than standard human movement speed.

It needen't be lower, because `rangeFromSpeed`

gives 0 steps
with such speed, so the actor's trajectory is empty, so it drops down
at once. Twice that speed already moves a normal projectile one step
before it stops. It shouldn't be lower or a slow actor would incur
such a time debt for performing a single action that he'd be paralyzed
for many turns, e.g., leaving his dead body on the screen for very long.

rangeFromSpeed :: Speed -> Int Source #

Calculate maximum range in meters of a projectile from its speed. See https://github.com/LambdaHack/LambdaHack/wiki/Item-statistics. With this formula, each projectile flies for at most 1 second, that is 2 standard turns, and then drops to the ground.