hedgewars/uGearsHedgehog.pas
changeset 15639 afeffdb4a712
parent 15627 ea189ee9394f
child 15650 85d2afe34116
equal deleted inserted replaced
15638:1ee7790caa0f 15639:afeffdb4a712
   398                                  if not ((not dX.isNegative) xor ((State and gstHHHJump) <> 0)) then
   398                                  if not ((not dX.isNegative) xor ((State and gstHHHJump) <> 0)) then
   399                                      newGear^.Tag:= -1
   399                                      newGear^.Tag:= -1
   400                                  else
   400                                  else
   401                                      newGear^.Tag:= 1;
   401                                      newGear^.Tag:= 1;
   402                                  end;
   402                                  end;
       
   403                     amSentry: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtSentry, 0, SignAs(_0_03, dX), _0, 0);
   403                     amFirePunch: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtFirePunch, 0, xx, _0, 0);
   404                     amFirePunch: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtFirePunch, 0, xx, _0, 0);
   404                          amWhip: begin
   405                          amWhip: begin
   405                                  newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtWhip, 0, SignAs(_1, dX), - _0_8, 0);
   406                                  newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtWhip, 0, SignAs(_1, dX), - _0_8, 0);
   406                                  PlaySound(sndWhipCrack)
   407                                  PlaySound(sndWhipCrack)
   407                                  end;
   408                                  end;