hedgewars/uAIMisc.pas
changeset 8960 bc8295dc8970
parent 8958 3818b38d72c0
child 8961 b157302674cf
equal deleted inserted replaced
8959:ad680848a5c9 8960:bc8295dc8970
   487     begin
   487     begin
   488     Point.x:= hwRound(Me^.X);
   488     Point.x:= hwRound(Me^.X);
   489     Point.y:= hwRound(Me^.Y);
   489     Point.y:= hwRound(Me^.Y);
   490     skip:= false;
   490     skip:= false;
   491     matters:= true;
   491     matters:= true;
       
   492     Kind:= gtHedgehog;
   492     Score:= - ThinkingHH^.Health
   493     Score:= - ThinkingHH^.Health
   493     end;
   494     end;
   494 // rate explosion
   495 // rate explosion
   495 dmgBase:= r + cHHRadius div 2;
   496 dmgBase:= r + cHHRadius div 2;
   496 
   497 
   658     begin
   659     begin
   659     Point.x:= hwRound(Me^.X);
   660     Point.x:= hwRound(Me^.X);
   660     Point.y:= hwRound(Me^.Y);
   661     Point.y:= hwRound(Me^.Y);
   661     skip:= false;
   662     skip:= false;
   662     matters:= true;
   663     matters:= true;
       
   664     Kind:= gtHedgehog;
   663     Score:= - ThinkingHH^.Health
   665     Score:= - ThinkingHH^.Health
   664     end;
   666     end;
   665 // rate shot
   667 // rate shot
   666 baseDmg:= cHHRadius + cShotgunRadius + 4;
   668 baseDmg:= cHHRadius + cShotgunRadius + 4;
   667 
   669