diff options
| author | Matthias Schiffer <matthias@gamezock.de> | 2010-03-18 09:14:32 +0100 |
|---|---|---|
| committer | Matthias Schiffer <matthias@gamezock.de> | 2010-03-18 09:14:32 +0100 |
| commit | 5c34cd694117421e570b3a6cc3bb813e17e50b33 (patch) | |
| tree | 65391fc23ac2eedbd5caf2c88f8a1ac2d5efb6fd /src/HTanks.hs | |
| parent | a1294859c7512f3416612f0911946e7768d95bdd (diff) | |
| download | htanks-5c34cd694117421e570b3a6cc3bb813e17e50b33.tar htanks-5c34cd694117421e570b3a6cc3bb813e17e50b33.zip | |
Added bullet/tank collision; reduced tick count
Diffstat (limited to 'src/HTanks.hs')
| -rw-r--r-- | src/HTanks.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/HTanks.hs b/src/HTanks.hs index 15c3ed6..63e647d 100644 --- a/src/HTanks.hs +++ b/src/HTanks.hs @@ -61,11 +61,11 @@ mainLoop = do liftIO $ threadDelay $ truncate $ 1e6*(minFrameTime - drender) currenttime <- liftIO getCurrentTime - let d = round $ 1e3*(diffUTCTime currenttime t) + let d = round $ 1e2*(diffUTCTime currenttime t) replicateM_ d simulationStep - let newtime = addUTCTime ((1e-3)*(fromIntegral d)) t + let newtime = addUTCTime ((1e-2)*(fromIntegral d)) t modify $ \state -> state {time = newtime} |