Rename WorldActions to WorldEvent

2021-03-23 03:26:27 +01:00
parent afb3d8a712
commit 63a50f0e05
5 changed files with 767 additions and 0 deletions
@@ -0,0 +1,8 @@
+module Dodge.WorldEvent.HelperParticle
+    where
+
+import Dodge.Data
+
+ptTimer' :: Int -> World -> Particle' -> (World, Maybe Particle')
+ptTimer' 0 w pt = (w, Nothing)
+ptTimer' n w pt = (w, Just $ pt {_ptUpdate' = ptTimer' (n-1)})