hedgewars/uAIAmmoTests.pas
changeset 7433 c7fff3e61d49
parent 7427 48f9d53c844a
child 7441 5d64f59f2ca5
equal deleted inserted replaced
7430:9c132b368ddb 7433:c7fff3e61d49
   816 
   816 
   817     // check left direction
   817     // check left direction
   818     {first RateShove checks farthermost of two whip's AmmoShove attacks 
   818     {first RateShove checks farthermost of two whip's AmmoShove attacks 
   819     to encourage distant attacks (damaged hog is excluded from view of second 
   819     to encourage distant attacks (damaged hog is excluded from view of second 
   820     RateShove call)}
   820     RateShove call)}
   821     v1:= RateShove(Me, x - 15, y
   821     v1:= RateShove(Me, x - 13, y
   822             , 30, 30, 25
   822             , 30, 30, 25
   823             , -1, -0.8, trackFall or afSetSkip);
   823             , -1, -0.8, trackFall or afSetSkip);
   824     v1:= v1 +
   824     v1:= v1 +
   825         RateShove(Me, x, y
   825         RateShove(Me, x, y
   826             , 30, 30, 25
   826             , 30, 30, 25
   827             , -1, -0.8, trackFall);
   827             , -1, -0.8, trackFall);
   828     // now try opposite direction
   828     // now try opposite direction
   829     v2:= RateShove(Me, x + 15, y
   829     v2:= RateShove(Me, x + 13, y
   830             , 30, 30, 25
   830             , 30, 30, 25
   831             , 1, -0.8, trackFall or afSetSkip);
   831             , 1, -0.8, trackFall or afSetSkip);
   832     v2:= v2 +
   832     v2:= v2 +
   833         RateShove(Me, x, y
   833         RateShove(Me, x, y
   834             , 30, 30, 25
   834             , 30, 30, 25