equal
deleted
inserted
replaced
44 procedure DrawGears; |
44 procedure DrawGears; |
45 procedure DrawGearsGui; |
45 procedure DrawGearsGui; |
46 procedure FreeGearsList; |
46 procedure FreeGearsList; |
47 procedure AddMiscGears; |
47 procedure AddMiscGears; |
48 procedure AssignHHCoords; |
48 procedure AssignHHCoords; |
|
49 procedure RandomizeHHAnim; |
49 procedure StartSuddenDeath; |
50 procedure StartSuddenDeath; |
50 function GearByUID(uid : Longword) : PGear; |
51 function GearByUID(uid : Longword) : PGear; |
51 function IsClockRunning() : boolean; |
52 function IsClockRunning() : boolean; |
52 |
53 |
53 implementation |
54 implementation |
1062 // divided teams: sort the hedgehogs from left to right by clan and shuffle clan members |
1063 // divided teams: sort the hedgehogs from left to right by clan and shuffle clan members |
1063 if divide and (not sectionDivide) then |
1064 if divide and (not sectionDivide) then |
1064 SortHHsByClan(); |
1065 SortHHsByClan(); |
1065 end; |
1066 end; |
1066 |
1067 |
|
1068 // Set random pos for all hogs so their animations have different starting points |
|
1069 procedure RandomizeHHAnim; |
|
1070 var i, j, p: LongInt; |
|
1071 begin |
|
1072 for p:= 0 to (ClansCount - 1) do |
|
1073 with SpawnClansArray[p]^ do |
|
1074 for j:= 0 to Pred(TeamsNumber) do |
|
1075 with Teams[j]^ do |
|
1076 for i:= 0 to cMaxHHIndex do |
|
1077 if (Hedgehogs[i].Gear <> nil) then |
|
1078 Hedgehogs[i].Gear^.Pos:= GetRandom(19); |
|
1079 end; |
1067 |
1080 |
1068 {procedure AmmoFlameWork(Ammo: PGear); |
1081 {procedure AmmoFlameWork(Ammo: PGear); |
1069 var t: PGear; |
1082 var t: PGear; |
1070 begin |
1083 begin |
1071 t:= GearsList; |
1084 t:= GearsList; |