equal
deleted
inserted
replaced
168 Gear:= GearsList; |
168 Gear:= GearsList; |
169 while Gear <> nil do |
169 while Gear <> nil do |
170 begin |
170 begin |
171 case Gear^.Kind of |
171 case Gear^.Kind of |
172 gtCase: |
172 gtCase: |
173 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y) + 3, 33, 28); |
173 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y) + 3, 37, 25); |
174 gtFlame: |
174 gtFlame: |
175 if (Gear^.State and gsttmpFlag) <> 0 then |
175 if (Gear^.State and gsttmpFlag) <> 0 then |
176 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 20, -50); |
176 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 20, -50); |
177 // avoid mines unless they are very likely to be duds, or are duds. also avoid if they are about to blow |
177 // avoid mines unless they are very likely to be duds, or are duds. also avoid if they are about to blow |
178 gtMine: |
178 gtMine: |
695 begin |
695 begin |
696 inc(GoInfo.Ticks); |
696 inc(GoInfo.Ticks); |
697 Gear^.dY:= Gear^.dY + cGravity; |
697 Gear^.dY:= Gear^.dY + cGravity; |
698 if Gear^.dY > _0_4 then |
698 if Gear^.dY > _0_4 then |
699 begin |
699 begin |
700 Goinfo.FallPix:= 0; |
700 GoInfo.FallPix:= 0; |
701 // try ljump instead of fall with damage |
701 // try ljump instead of fall with damage |
702 HHJump(AltGear, jmpLJump, GoInfo); |
702 HHJump(AltGear, jmpLJump, GoInfo); |
703 if AltGear^.Hedgehog^.BotLevel < 4 then |
703 if AltGear^.Hedgehog^.BotLevel < 4 then |
704 AddWalkBonus(pX, tY, 175, -20); |
704 AddWalkBonus(pX, tY, 175, -20); |
705 exit(false) |
705 exit(false) |