zero allmovement in collision direction
This commit is contained in:
parent
a1af74be74
commit
f9ff9d1db2
|
@ -162,5 +162,13 @@ instance Collidible Pituicat where
|
||||||
if dirx /= 0
|
if dirx /= 0
|
||||||
then V2 0 1
|
then V2 0 1
|
||||||
else V2 1 1
|
else V2 1 1
|
||||||
|
, pcTMoveVel = pcTMoveVel ncat *
|
||||||
|
if dirx /= 0
|
||||||
|
then V2 0 1
|
||||||
|
else V2 1 1
|
||||||
|
, pcVel = pcVel ncat *
|
||||||
|
if dirx /= 0
|
||||||
|
then V2 0 1
|
||||||
|
else V2 1 1
|
||||||
}
|
}
|
||||||
)
|
)
|
||||||
|
|
Loading…
Reference in a new issue