hedgewars/GSHandlers.inc
changeset 7745 0326e1bf674d
parent 7739 8d5d6b1be9ba
child 7754 e81dc9bef8b8
equal deleted inserted replaced
7744:75e1d0c0ba72 7745:0326e1bf674d
  4174     sdY := _1 - hwAbs(ldY/sdY);
  4174     sdY := _1 - hwAbs(ldY/sdY);
  4175     if (ldX.isNegative = ldY.isNegative) then
  4175     if (ldX.isNegative = ldY.isNegative) then
  4176         sdY := -sdY;
  4176         sdY := -sdY;
  4177 
  4177 
  4178     // initial angle depends on current GameTicks
  4178     // initial angle depends on current GameTicks
  4179     t := GameTicks mod 4096;
  4179     t := getRandom(4096);
  4180 
  4180 
  4181 
  4181 
  4182     // used for a work-around detection of area that is within land array, but outside borders
  4182     // used for a work-around detection of area that is within land array, but outside borders
  4183     justCollided := false;
  4183     justCollided := false;
  4184 
  4184 
  4283     DeleteGear(Gear);
  4283     DeleteGear(Gear);
  4284     AfterAttack;
  4284     AfterAttack;
  4285 end;
  4285 end;
  4286 
  4286 
  4287 procedure doStepSineGunShot(Gear: PGear);
  4287 procedure doStepSineGunShot(Gear: PGear);
  4288 var 
  4288 var
  4289     HHGear: PGear;
  4289     HHGear: PGear;
  4290 begin
  4290 begin
  4291     PlaySound(sndSineGun); 
  4291     PlaySound(sndSineGun); 
  4292 
  4292 
  4293     // push the shooting Hedgehog back
  4293     // push the shooting Hedgehog back