equal
deleted
inserted
replaced
134 Gear:= GearsList; |
134 Gear:= GearsList; |
135 while Gear <> nil do |
135 while Gear <> nil do |
136 begin |
136 begin |
137 case Gear^.Kind of |
137 case Gear^.Kind of |
138 gtCase: AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 33, 25); |
138 gtCase: AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 33, 25); |
|
139 gtFlame: if (Gear^.State and gsttmpFlag) <> 0 then |
|
140 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 20, -50); |
139 gtMine: if (Gear^.State and gstAttacking) = 0 then |
141 gtMine: if (Gear^.State and gstAttacking) = 0 then |
140 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -50) |
142 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 50, -50) |
141 else |
143 else |
142 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 100, -50); // mine is on |
144 AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 100, -50); // mine is on |
143 gtDynamite: AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 150, -75); |
145 gtDynamite: AddBonus(hwRound(Gear^.X), hwRound(Gear^.Y), 150, -75); |