diff options
| author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-06-26 16:00:17 +0200 |
|---|---|---|
| committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-06-26 16:00:17 +0200 |
| commit | 6d9a72b9c893d02649c7336c8defbc0282acaf8c (patch) | |
| tree | ac5b23233758b7921abf3de5cbb01ea320f07be5 | |
| parent | 266c90da6b94a928d6e02241e8ae1ffda7913dc4 (diff) | |
| download | 2017-01-16_17:13:37-6d9a72b9c893d02649c7336c8defbc0282acaf8c.tar 2017-01-16_17:13:37-6d9a72b9c893d02649c7336c8defbc0282acaf8c.tar.gz 2017-01-16_17:13:37-6d9a72b9c893d02649c7336c8defbc0282acaf8c.tar.bz2 2017-01-16_17:13:37-6d9a72b9c893d02649c7336c8defbc0282acaf8c.tar.xz 2017-01-16_17:13:37-6d9a72b9c893d02649c7336c8defbc0282acaf8c.zip | |
fixed delay
| -rw-r--r-- | src/Main.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index 3576a7a..b056aff 100644 --- a/src/Main.hs +++ b/src/Main.hs | |||
| @@ -312,6 +312,7 @@ delay = withFocus $ fmap (\_ -> ()) . runMaybeT . delay' | |||
| 312 | guard $ focusSeq >= tipSeq | 312 | guard $ focusSeq >= tipSeq |
| 313 | tipName <- toName tipId | 313 | tipName <- toName tipId |
| 314 | lift $ spendSeq (focusSeq - tipSeq) ("Wait for " ++ tipName) | 314 | lift $ spendSeq (focusSeq - tipSeq) ("Wait for " ++ tipName) |
| 315 | gFocus ?= tipId | ||
| 315 | 316 | ||
| 316 | addNote :: String -> Sh GameState () | 317 | addNote :: String -> Sh GameState () |
| 317 | addNote note = withFocus $ \focusId -> gEntities . ix focusId . eNotes %= (note :) | 318 | addNote note = withFocus $ \focusId -> gEntities . ix focusId . eNotes %= (note :) |