equal
deleted
inserted
replaced
1344 |
1344 |
1345 //////////////////////////////////////////////////////////////////////////////// |
1345 //////////////////////////////////////////////////////////////////////////////// |
1346 procedure doStepHedgehog(Gear: PGear); |
1346 procedure doStepHedgehog(Gear: PGear); |
1347 var tX: hwFloat; |
1347 var tX: hwFloat; |
1348 begin |
1348 begin |
1349 AddFileLog('[HOG] -#' + inttostr(Gear^.uid) + ': ' + floattostr(Gear^.X) + ', ' + floattostr(Gear^.Y) + ' (' + floattostr(Gear^.dX) + ', ' + floattostr(Gear^.dY) + ')'); |
|
1350 CheckGearDrowning(Gear); |
1349 CheckGearDrowning(Gear); |
1351 if Gear = nil then exit; |
1350 if Gear = nil then exit; |
1352 tX:= Gear^.X; |
1351 tX:= Gear^.X; |
1353 if WorldWrap(Gear) then |
1352 if WorldWrap(Gear) then |
1354 begin |
1353 begin |
1388 if Team^.hasGone then |
1387 if Team^.hasGone then |
1389 TeamGoneEffect(Team^) |
1388 TeamGoneEffect(Team^) |
1390 else |
1389 else |
1391 doStepHedgehogDriven(Gear) |
1390 doStepHedgehogDriven(Gear) |
1392 end; |
1391 end; |
1393 AddFileLog('[HOG] +#' + inttostr(Gear^.uid) + ': ' + floattostr(Gear^.X) + ', ' + floattostr(Gear^.Y) + ' (' + floattostr(Gear^.dX) + ', ' + floattostr(Gear^.dY) + ')'); |
|
1394 end; |
1392 end; |
1395 |
1393 |
1396 end. |
1394 end. |