equal
deleted
inserted
replaced
194 function RectToStr(Rect: TSDL_Rect): shortstring; |
194 function RectToStr(Rect: TSDL_Rect): shortstring; |
195 {$ENDIF} |
195 {$ENDIF} |
196 procedure MakeScreenshot(filename: shortstring); |
196 procedure MakeScreenshot(filename: shortstring); |
197 |
197 |
198 implementation |
198 implementation |
199 uses uConsole, uStore, uIO, uSound, typinfo, sysutils; |
199 uses uConsole, uStore, uIO, uSound, typinfo, sysutils, uMobile; |
200 |
200 |
201 var KBnum: Longword; |
201 var KBnum: Longword; |
202 {$IFDEF DEBUGFILE} |
202 {$IFDEF DEBUGFILE} |
203 f: textfile; |
203 f: textfile; |
204 {$ENDIF} |
204 {$ENDIF} |
789 cInactDelay := 1250; |
789 cInactDelay := 1250; |
790 ReadyTimeLeft := 0; |
790 ReadyTimeLeft := 0; |
791 |
791 |
792 ScreenFade := sfNone; |
792 ScreenFade := sfNone; |
793 |
793 |
|
794 {$IFDEF SDL13} |
|
795 SDLwindow := nil; |
|
796 {$ENDIF} |
|
797 |
794 // those values still aren't perfect |
798 // those values still aren't perfect |
795 cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth); |
799 cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth); |
796 cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH); |
800 cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH); |
797 cScreenSpace:= cRightScreenBorder - cLeftScreenBorder; |
801 cScreenSpace:= cRightScreenBorder - cLeftScreenBorder; |
798 |
802 |
799 {$IFDEF IPHONEOS} |
|
800 if isPhone() then |
803 if isPhone() then |
801 cMaxCaptions:= 3 |
804 cMaxCaptions:= 3 |
802 else |
805 else |
803 {$ENDIF} |
|
804 cMaxCaptions:= 4; |
806 cMaxCaptions:= 4; |
805 |
807 |
806 {$IFDEF SDL13} |
|
807 SDLwindow := nil; |
|
808 {$ENDIF} |
|
809 {$IFDEF DEBUGFILE} |
808 {$IFDEF DEBUGFILE} |
810 {$I-} |
809 {$I-} |
811 {$IFDEF IPHONEOS} |
810 {$IFDEF IPHONEOS} |
812 Assign(f,'../Documents/hw-' + cLogfileBase + '.log'); |
811 Assign(f,'../Documents/hw-' + cLogfileBase + '.log'); |
813 Rewrite(f); |
812 Rewrite(f); |