equal
deleted
inserted
replaced
1274 end; |
1274 end; |
1275 |
1275 |
1276 //////////////////////////////////////////////////////////////////////////////// |
1276 //////////////////////////////////////////////////////////////////////////////// |
1277 procedure doStepHedgehog(Gear: PGear); |
1277 procedure doStepHedgehog(Gear: PGear); |
1278 begin |
1278 begin |
1279 WorldWrap(Gear); |
1279 if WorldWrap(Gear) and (Gear = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.Kind =gtRope) then |
|
1280 CurAmmoGear^.PortalCounter:= 1; |
|
1281 |
1280 CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel; |
1282 CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel; |
1281 if (Gear^.Message and gmDestroy) <> 0 then |
1283 if (Gear^.Message and gmDestroy) <> 0 then |
1282 begin |
1284 begin |
1283 DeleteGear(Gear); |
1285 DeleteGear(Gear); |
1284 exit |
1286 exit |