disable selection sprite, nudge ship into the air on launch
authornemo
Mon, 22 Jun 2009 00:14:24 +0000
changeset 2186 5ec3e4a03d51
parent 2185 cf8f98e75bf9
child 2187 66c0f9b3bd6f
disable selection sprite, nudge ship into the air on launch
hedgewars/GSHandlers.inc
hedgewars/uGears.pas
--- a/hedgewars/GSHandlers.inc	Sun Jun 21 22:43:38 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Mon Jun 22 00:14:24 2009 +0000
@@ -2267,6 +2267,7 @@
 with HHGear^ do
 	begin
 	State:= State and not gstAttacking;
-	Message:= Message and not gm_Attack
+	Message:= Message and not gm_Attack;
+    dY:= dY - _0_2
 	end
 end;
--- a/hedgewars/uGears.pas	Sun Jun 21 22:43:38 2009 +0000
+++ b/hedgewars/uGears.pas	Mon Jun 22 00:14:24 2009 +0000
@@ -1165,13 +1165,13 @@
 	end;
 if (Gear^.State and gstHHDriven) <> 0 then
     begin
-    if (CurAmmoGear = nil) then
+(*    if (CurAmmoGear = nil) then
         begin
         amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
         case amt of
             amJetpack: DrawSprite(sprJetpack, sx-32, sy-32, 0);
             end
-        end;
+        end; *)
     if CurAmmoGear <> nil then
         begin
         case CurAmmoGear^.Kind of