This commit is contained in:
2024-11-25 23:13:54 +00:00
parent 6aea049b80
commit f91a5cebb5
5 changed files with 98 additions and 218 deletions
+1 -1
View File
@@ -21,7 +21,7 @@ import qualified SDL
-- | The AI equivalent for your control.
yourControl :: Creature -> World -> World
yourControl _ w
| inInputFocus w = w
| inTextInputFocus w = w
| not intopinv =
w & cWorld . lWorld . creatures . ix 0 %~ wasdWithAiming w
| otherwise =