603 RecountAllTeamsHealth(); |
603 RecountAllTeamsHealth(); |
604 end; |
604 end; |
605 |
605 |
606 procedure initModule; |
606 procedure initModule; |
607 begin |
607 begin |
608 RegisterVariable('addhh', vtCommand, @chAddHH, false); |
608 RegisterVariable('addhh', @chAddHH, false); |
609 RegisterVariable('addteam', vtCommand, @chAddTeam, false); |
609 RegisterVariable('addteam', @chAddTeam, false); |
610 RegisterVariable('hhcoords', vtCommand, @chSetHHCoords, false); |
610 RegisterVariable('hhcoords', @chSetHHCoords, false); |
611 RegisterVariable('bind', vtCommand, @chBind, true ); |
611 RegisterVariable('bind', @chBind, true ); |
612 RegisterVariable('teamgone', vtCommand, @chTeamGone, true ); |
612 RegisterVariable('teamgone', @chTeamGone, true ); |
613 RegisterVariable('finish', vtCommand, @chFinish, true ); // all teams gone |
613 RegisterVariable('finish', @chFinish, true ); // all teams gone |
614 |
614 |
615 CurrentTeam:= nil; |
615 CurrentTeam:= nil; |
616 PreviousTeam:= nil; |
616 PreviousTeam:= nil; |
617 CurrentHedgehog:= nil; |
617 CurrentHedgehog:= nil; |
618 TeamsCount:= 0; |
618 TeamsCount:= 0; |