| changeset 8838 | aa2ffd427f6a |
| parent 8370 | 0c79946e96f8 |
| child 8847 | ff7fbab7cd56 |
| child 8848 | e9ebd63f8a03 |
| 8835:01bcf9ea68c1 | 8838:aa2ffd427f6a |
|---|---|
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 {$IF GLunit = GL}{$DEFINE GLunit:=GL,GLext}{$ENDIF} |
20 {$IF GLunit = GL}{$DEFINE GLunit:=GL,GLext}{$ENDIF} |
21 |
21 |
22 unit uStore; |
22 unit uStore; |
23 interface |
23 interface |
24 uses {$IFNDEF PAS2C} StrUtils, {$ENDIF}SysUtils, uConsts, SDLh, GLunit, uTypes, uLandTexture, uCaptions, uChat; |
24 uses StrUtils, SysUtils, uConsts, SDLh, GLunit, uTypes, uLandTexture, uCaptions, uChat; |
25 |
25 |
26 procedure initModule; |
26 procedure initModule; |
27 procedure freeModule; |
27 procedure freeModule; |
28 |
28 |
29 procedure StoreLoad(reload: boolean); |
29 procedure StoreLoad(reload: boolean); |
763 {$IFDEF USE_VIDEO_RECORDING} |
763 {$IFDEF USE_VIDEO_RECORDING} |
764 glGetIntegerv(GL_AUX_BUFFERS, @AuxBufNum); |
764 glGetIntegerv(GL_AUX_BUFFERS, @AuxBufNum); |
765 AddFileLog(' |----- Number of auxiliary buffers: ' + inttostr(AuxBufNum)); |
765 AddFileLog(' |----- Number of auxiliary buffers: ' + inttostr(AuxBufNum)); |
766 {$ENDIF} |
766 {$ENDIF} |
767 AddFileLog(' \----- Extensions: '); |
767 AddFileLog(' \----- Extensions: '); |
768 {$IFNDEF PAS2C} |
768 |
769 // fetch extentions and store them in string |
769 // fetch extentions and store them in string |
770 tmpstr := StrPas(PChar(glGetString(GL_EXTENSIONS))); |
770 tmpstr := StrPas(PChar(glGetString(GL_EXTENSIONS))); |
771 tmpn := WordCount(tmpstr, [' ']); |
771 tmpn := WordCount(tmpstr, [' ']); |
772 tmpint := 1; |
772 tmpint := 1; |
773 |
773 |
781 ExtractWord(tmpint+2, tmpstr, [' ']) |
781 ExtractWord(tmpint+2, tmpstr, [' ']) |
782 )); |
782 )); |
783 tmpint := tmpint + 3; |
783 tmpint := tmpint + 3; |
784 end; |
784 end; |
785 until (tmpint > tmpn); |
785 until (tmpint > tmpn); |
786 {$ELSE} |
|
787 // doesn't seem to print >256 chars |
|
788 AddFileLogRaw(PChar(glGetString(GL_EXTENSIONS))); |
|
789 {$ENDIF} |
|
790 AddFileLog(''); |
786 AddFileLog(''); |
791 |
787 |
792 defaultFrame:= 0; |
788 defaultFrame:= 0; |
793 {$IFDEF USE_VIDEO_RECORDING} |
789 {$IFDEF USE_VIDEO_RECORDING} |
794 if GameType = gmtRecord then |
790 if GameType = gmtRecord then |