equal
deleted
inserted
replaced
579 cMaxWindSpeed.QWordValue:= 2147484; // 0.0005 |
579 cMaxWindSpeed.QWordValue:= 2147484; // 0.0005 |
580 cWindSpeed.QWordValue := 429496; // 0.0001 |
580 cWindSpeed.QWordValue := 429496; // 0.0001 |
581 cGravity := cMaxWindSpeed; |
581 cGravity := cMaxWindSpeed; |
582 cDamageModifier := _1; |
582 cDamageModifier := _1; |
583 TargetPoint := cTargetPointRef; |
583 TargetPoint := cTargetPointRef; |
584 TextureList := nil; |
584 TextureList := nil; |
585 |
585 |
586 // int, longint longword and byte |
586 // int, longint longword and byte |
587 CursorMovementX := 0; |
587 CursorMovementX := 0; |
588 CursorMovementY := 0; |
588 CursorMovementY := 0; |
589 GameTicks := 0; |
589 GameTicks := 0; |
679 rewrite(f); |
679 rewrite(f); |
680 end; |
680 end; |
681 if IOResult = 0 then break; |
681 if IOResult = 0 then break; |
682 end; |
682 end; |
683 {$ENDIF} |
683 {$ENDIF} |
684 |
|
685 {$I+} |
684 {$I+} |
686 {$ENDIF} |
685 {$ENDIF} |
687 |
686 |
688 end; |
687 end; |
689 |
688 |
690 procedure free_uMisc; |
689 procedure free_uMisc; |
691 begin |
690 begin |
692 while TextureList <> nil do FreeTexture(TextureList); |
691 //uRandom.DumpBuffer; |
693 //uRandom.DumpBuffer; |
692 while TextureList <> nil do FreeTexture(TextureList); |
694 |
693 |
695 {$IFDEF DEBUGFILE} |
694 {$IFDEF DEBUGFILE} |
696 writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft); |
695 writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft); |
697 flush(f); |
696 flush(f); |
698 close(f); |
697 close(f); |
699 {$ENDIF} |
698 {$ENDIF} |
700 end; |
699 end; |
701 |
700 |
702 end. |
701 end. |