equal
deleted
inserted
replaced
534 end; |
534 end; |
535 |
535 |
536 {$IFDEF DEBUGFILE} |
536 {$IFDEF DEBUGFILE} |
537 procedure AddFileLog(s: shortstring); |
537 procedure AddFileLog(s: shortstring); |
538 begin |
538 begin |
539 {$IFDEF IPHONEOS} |
|
540 //we are not able (and it is useless) to write a file on device, so we will print on the computer console instead |
|
541 f:=stderr; |
|
542 {$ENDIF} |
|
543 writeln(f, GameTicks: 6, ': ', s); |
539 writeln(f, GameTicks: 6, ': ', s); |
544 flush(f) |
540 flush(f) |
545 end; |
541 end; |
546 |
542 |
547 function RectToStr(Rect: TSDL_Rect): shortstring; |
543 function RectToStr(Rect: TSDL_Rect): shortstring; |
562 cVampiric:= false; |
558 cVampiric:= false; |
563 cArtillery:= false; |
559 cArtillery:= false; |
564 |
560 |
565 {$IFDEF DEBUGFILE} |
561 {$IFDEF DEBUGFILE} |
566 {$I-} |
562 {$I-} |
567 f:=stderr; |
563 f:= stderr; |
568 rewrite(f); |
564 rewrite(f); |
569 {$IFNDEF IPHONEOS} |
565 {$IFNDEF IPHONEOS} |
570 if ParamCount <> 0 then |
566 if ParamCount <> 0 then |
571 for i:= 0 to 7 do |
567 for i:= 0 to 7 do |
572 begin |
568 begin |
573 assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt'); |
569 assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt'); |
574 rewrite(f); |
570 rewrite(f); |
575 if IOResult = 0 then break |
571 if IOResult = 0 then break |
576 end; |
572 end; |
577 {$ENDIF} |
573 {$ENDIF} |
578 {$I+} |
574 {$I+} |