equal
deleted
inserted
replaced
567 function RectToStr(Rect: TSDL_Rect): shortstring; |
567 function RectToStr(Rect: TSDL_Rect): shortstring; |
568 begin |
568 begin |
569 RectToStr:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')' |
569 RectToStr:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')' |
570 end; |
570 end; |
571 |
571 |
|
572 {$IFNDEF IPHONEOS} |
572 var i: LongInt; |
573 var i: LongInt; |
|
574 {$ENDIF} |
573 {$ENDIF} |
575 {$ENDIF} |
574 |
576 |
575 initialization |
577 initialization |
576 cDrownSpeed.QWordValue:= 257698038;// 0.06 |
578 cDrownSpeed.QWordValue:= 257698038;// 0.06 |
577 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005 |
579 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005 |
598 {$I+} |
600 {$I+} |
599 |
601 |
600 finalization |
602 finalization |
601 //uRandom.DumpBuffer; |
603 //uRandom.DumpBuffer; |
602 |
604 |
603 writeln(f, 'halt at ',GameTicks,' ticks'); |
605 writeln(f, 'halt at ', GameTicks, ' ticks'); |
604 flush(f); |
606 flush(f); |
605 close(f) |
607 close(f) |
606 |
608 |
607 {$ENDIF} |
609 {$ENDIF} |
608 |
610 |