equal
deleted
inserted
replaced
1138 |
1138 |
1139 procedure checkCakeWalk(Me, Gear: PGear; var ap: TAttackParams); |
1139 procedure checkCakeWalk(Me, Gear: PGear; var ap: TAttackParams); |
1140 var i: Longword; |
1140 var i: Longword; |
1141 v: LongInt; |
1141 v: LongInt; |
1142 begin |
1142 begin |
1143 while (not TestColl(hwRound(Gear^.X), hwRound(Gear^.Y), 6)) and (Gear^.Y.Round < LAND_HEIGHT) do |
1143 while (not TestColl(hwRound(Gear^.X), hwRound(Gear^.Y), 6)) and (Gear^.Y.Round < LongWord(LAND_HEIGHT)) do |
1144 Gear^.Y:= Gear^.Y + _1; |
1144 Gear^.Y:= Gear^.Y + _1; |
1145 |
1145 |
1146 for i:= 0 to 2040 do |
1146 for i:= 0 to 2040 do |
1147 begin |
1147 begin |
1148 cakeStep(Gear); |
1148 cakeStep(Gear); |