hedgewars/uAIMisc.pas
changeset 7285 a9016b157535
parent 7279 18a620394623
child 7360 d833d1010710
equal deleted inserted replaced
7283:322ff9418461 7285:a9016b157535
   541 
   541 
   542             if r <= 18 then
   542             if r <= 18 then
   543                 if Score > 0 then 
   543                 if Score > 0 then 
   544                     inc(rate, Score div 3)
   544                     inc(rate, Score div 3)
   545                 else
   545                 else
   546                     dec(rate, Score div 3 * friendlyfactor div 100)
   546                     inc(rate, Score div 3 * friendlyfactor div 100)
   547             end;
   547             end;
   548 RateHammer:= rate * 1024;
   548 RateHammer:= rate * 1024;
   549 end;
   549 end;
   550 
   550 
   551 function HHJump(Gear: PGear; JumpType: TJumpType; var GoInfo: TGoInfo): boolean;
   551 function HHJump(Gear: PGear; JumpType: TJumpType; var GoInfo: TGoInfo): boolean;