Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
smoke for molotov
authorsheepluva
Mon, 12 Sep 2011 00:47:49 +0200
changeset 5870 b9b9fb00c9dd
parent 5869 07eae0e35d73
child 5871 09daa06191d7
smoke for molotov
hedgewars/GSHandlers.inc file | annotate | diff | comparison | revisions 
--- a/hedgewars/GSHandlers.inc	Sun Sep 11 18:09:49 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Mon Sep 12 00:47:49 2011 +0200
@@ -518,6 +518,11 @@
     doStepFallingGear(Gear);
     CalcRotationDirAngle(Gear);
 
+    // let's add some smoke depending on speed
+    i:= max(32,152 - hwRound(Distance(Gear^.dX,Gear^.dY)*120));
+    if (GameTicks mod i) = 0 then
+        AddVisualGear(hwRound(Gear^.X)-round(cos((Gear^.DirAngle+50) * pi / 180)*20), hwRound(Gear^.Y)-round(sin((Gear^.DirAngle+50) * pi / 180)*20), vgtSmoke);
+
     if (Gear^.State and gstCollision) <> 0 then
     begin
         PlaySound(sndMolotov);
hedgewars