44     uGearsUtils, uGearsList

    44     uGearsUtils, uGearsList

    45     {$IFDEF USE_TOUCH_INTERFACE}, uTouch{$ENDIF};

    45     {$IFDEF USE_TOUCH_INTERFACE}, uTouch{$ENDIF};

    46 

    46 

    47 var MaxTeamHealth: LongInt;

    47 var MaxTeamHealth: LongInt;

    48     GameOver: boolean;

    48     GameOver: boolean;

    49 

    50 

    50 function CheckForWin: boolean;

    51 function CheckForWin: boolean;

    51 var AliveClan: PClan;

    52 var AliveClan: PClan;

    52     s: shortstring;

    53     s: shortstring;

    53     t, AliveCount, i, j: LongInt;

    54     t, AliveCount, i, j: LongInt;

    93                     for i:= 0 to cMaxHHIndex do

    94                     for i:= 0 to cMaxHHIndex do

    94                         with Hedgehogs[i] do

    95                         with Hedgehogs[i] do

    95                             if (Gear <> nil) then

    96                             if (Gear <> nil) then

    96                                 Gear^.State:= gstWinner;

    97                                 Gear^.State:= gstWinner;

    97             if Flawless then

    98             if Flawless then

    99             else

   100             else

   100                 AddVoice(sndVictory, Teams[0]^.voicepack);

   101                 AddVoice(sndVictory, Teams[0]^.voicepack);

   101 

   102 

   102             AddCaption(s, cWhiteColor, capgrpGameState);

   103             AddCaption(s, cWhiteColor, capgrpGameState);

   103             SendStat(siGameResult, s);

   104             SendStat(siGameResult, s);

   575 CurrentHedgehog^.Gear^.Y:= int2hwFloat(t)

   576 CurrentHedgehog^.Gear^.Y:= int2hwFloat(t)

   576 end;

   577 end;

   577 

   578 

   578 procedure chBind(var id: shortstring);

   579 procedure chBind(var id: shortstring);

   579 var KeyName, Modifier, tmp : shortstring;

   580 var KeyName, Modifier, tmp : shortstring;

   582 begin

   583 begin

   583 KeyName:= '';

   584 KeyName:= '';

   584 Modifier:= '';

   585 Modifier:= '';

   585 

   586 

   586 if CurrentTeam = nil then

   587 if CurrentTeam = nil then