zero allmovement in collision direction
This commit is contained in:
parent
87b2b2ad05
commit
de22c2fffe
1 changed files with 8 additions and 0 deletions
|
@ -166,5 +166,13 @@ instance Collidible Pituicat where
|
|||
if dirx /= 0
|
||||
then V2 0 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