equal
deleted
inserted
replaced
1314 HHGear: PGear; |
1314 HHGear: PGear; |
1315 shell: PVisualGear; |
1315 shell: PVisualGear; |
1316 begin |
1316 begin |
1317 cArtillery := true; |
1317 cArtillery := true; |
1318 HHGear := Gear^.Hedgehog^.Gear; |
1318 HHGear := Gear^.Hedgehog^.Gear; |
|
1319 |
|
1320 if HHGear = nil then |
|
1321 begin |
|
1322 DeleteGear(gear); |
|
1323 exit |
|
1324 end; |
|
1325 |
1319 HHGear^.State := HHGear^.State or gstNotKickable; |
1326 HHGear^.State := HHGear^.State or gstNotKickable; |
1320 HedgehogChAngle(HHGear); |
1327 HedgehogChAngle(HHGear); |
1321 if not cLaserSighting then |
1328 if not cLaserSighting then |
1322 // game does not have default laser sight. turn it on and give them a chance to aim |
1329 // game does not have default laser sight. turn it on and give them a chance to aim |
1323 begin |
1330 begin |