hedgewars/uGearsHedgehog.pas
changeset 10669 4c78eafe76ac
parent 10579 2effda40c3b2
child 10714 70f71fac37a3
equal deleted inserted replaced
10668:a15d57d941a1 10669:4c78eafe76ac
   503                 AfterAttack;
   503                 AfterAttack;
   504                 end
   504                 end
   505             end
   505             end
   506         else
   506         else
   507             Message:= Message and (not gmAttack);
   507             Message:= Message and (not gmAttack);
   508     end;
   508 
       
   509     ScriptCall('onHogAttack', ord(CurAmmoType));
       
   510     end; // of with Gear^, Gear^.Hedgehog^ do
       
   511 
   509     TargetPoint.X := NoPointX;
   512     TargetPoint.X := NoPointX;
   510     ScriptCall('onHogAttack');
       
   511 end;
   513 end;
   512 
   514 
   513 procedure AfterAttack;
   515 procedure AfterAttack;
   514 var s: ansistring;
   516 var s: ansistring;
   515     a: TAmmoType;
   517     a: TAmmoType;