equal
deleted
inserted
replaced
1056 for i:= 0 to cMaxHHIndex do |
1056 for i:= 0 to cMaxHHIndex do |
1057 with Hedgehogs[i] do |
1057 with Hedgehogs[i] do |
1058 if (Gear <> nil) and (Gear^.X.QWordValue = 0) then |
1058 if (Gear <> nil) and (Gear^.X.QWordValue = 0) then |
1059 begin |
1059 begin |
1060 FindPlace(Gear, false, t, t + 1024); |
1060 FindPlace(Gear, false, t, t + 1024); |
1061 Gear^.Pos:= GetRandom(19) |
1061 Gear^.Pos:= GetRandom(19); |
|
1062 Gear^.dX.isNegative:= p = 1; |
1062 end; |
1063 end; |
1063 inc(t, 1024) |
1064 inc(t, 1024) |
1064 end |
1065 end |
1065 end else // mix hedgehogs |
1066 end else // mix hedgehogs |
1066 begin |
1067 begin |