equal
deleted
inserted
replaced
1062 end; |
1062 end; |
1063 |
1063 |
1064 if ((Gear^.State and gstWait) = 0) and |
1064 if ((Gear^.State and gstWait) = 0) and |
1065 (prevState <> Gear^.State) then |
1065 (prevState <> Gear^.State) then |
1066 begin |
1066 begin |
1067 Gear^.State:= gstWait; |
1067 Gear^.State:= Gear^.State or gstWait; |
1068 Gear^.Timer:= 150 |
1068 Gear^.Timer:= 150 |
1069 end else |
1069 end else |
1070 begin |
1070 begin |
1071 if Gear^.Timer = 0 then |
1071 if Gear^.Timer = 0 then |
1072 begin |
1072 begin |
1073 Gear^.State:= 0; |
1073 Gear^.State:= Gear^.State and not gstWait; |
1074 Gear^.Active:= false; |
1074 Gear^.Active:= false; |
1075 AddGearCI(Gear); |
1075 AddGearCI(Gear); |
1076 exit |
1076 exit |
1077 end else dec(Gear^.Timer) |
1077 end else dec(Gear^.Timer) |
1078 end; |
1078 end; |
1092 if (Gear^.State and gstHHDriven) = 0 then |
1092 if (Gear^.State and gstHHDriven) = 0 then |
1093 doStepHedgehogFree(Gear) |
1093 doStepHedgehogFree(Gear) |
1094 else |
1094 else |
1095 begin |
1095 begin |
1096 with Gear^.Hedgehog^ do |
1096 with Gear^.Hedgehog^ do |
1097 if Team^.hasGone then |
1097 if Team^.hasGone then |
1098 TeamGoneEffect(Team^) |
1098 TeamGoneEffect(Team^) |
1099 else |
1099 else |
1100 doStepHedgehogDriven(Gear) |
1100 doStepHedgehogDriven(Gear) |
1101 end; |
1101 end; |
1102 end; |
1102 end; |