equal
deleted
inserted
replaced
375 |
375 |
376 CheckSum:= CheckSum xor GameTicks; |
376 CheckSum:= CheckSum xor GameTicks; |
377 gi := GearsList; |
377 gi := GearsList; |
378 while gi <> nil do |
378 while gi <> nil do |
379 begin |
379 begin |
380 with gi^ do CheckSum:= CheckSum xor X.round xor X.frac xor dX.round xor dX.frac xor Y.round xor Y.frac xor dY.round xor dY.frac; |
380 with gi^ do CheckSum:= CheckSum xor X.round xor X.frac xor dX.round xor dX.frac xor Y.round xor Y.frac xor dY.round xor dY.frac xor State; |
381 AddRandomness(CheckSum); |
381 AddRandomness(CheckSum); |
382 gi := gi^.NextGear |
382 gi := gi^.NextGear |
383 end; |
383 end; |
384 |
384 |
385 if not isExternalSource then |
385 if not isExternalSource then |