Separate out concrete part of world
This commit is contained in:
@@ -17,7 +17,7 @@ makeShockwaveAt
|
||||
-> Color -- ^ Color of shockwave.
|
||||
-> World -- ^ Start world.
|
||||
-> World
|
||||
makeShockwaveAt is p rad dam push col = shockwaves .:~ Shockwave
|
||||
makeShockwaveAt is p rad dam push col = cWorld . shockwaves .:~ Shockwave
|
||||
{ _swInvulnerableCrs = is
|
||||
, _swDirection = OutwardShockwave
|
||||
, _swColor = col
|
||||
@@ -37,7 +37,7 @@ inverseShockwaveAt
|
||||
-> Float -- Push amount
|
||||
-> World
|
||||
-> World
|
||||
inverseShockwaveAt p rad dam push = shockwaves .:~ Shockwave
|
||||
inverseShockwaveAt p rad dam push = cWorld . shockwaves .:~ Shockwave
|
||||
{ _swDirection = InwardShockwave
|
||||
, _swInvulnerableCrs = []
|
||||
, _swColor = cyan
|
||||
|
||||
Reference in New Issue
Block a user