equal
deleted
inserted
replaced
148 |
148 |
149 hedgewarsMountPackages; |
149 hedgewarsMountPackages; |
150 |
150 |
151 i:= PHYSFS_mount(Str2PChar(UserPathPrefix), nil, false); |
151 i:= PHYSFS_mount(Str2PChar(UserPathPrefix), nil, false); |
152 // need access to teams and frontend configs (for bindings) |
152 // need access to teams and frontend configs (for bindings) |
153 AddFileLog('[PhysFS] mount ' + UserPathPrefix + ': ' + inttostr(i)); |
153 AddFileLog('[PhysFS] mount ' + UserPathPrefix + ': ' + inttostr(i)); |
|
154 |
|
155 if cTestLua then |
|
156 begin |
|
157 i:= PHYSFS_mount(Str2PChar(ExtractFileDir(cScriptName)), nil, false); |
|
158 AddFileLog('[PhysFS] mount ' + ExtractFileDir(cScriptName) + ': ' + inttostr(i)); |
|
159 cScriptName := ExtractFileName(cScriptName); |
|
160 end; |
154 end; |
161 end; |
155 |
162 |
156 procedure freeModule; |
163 procedure freeModule; |
157 begin |
164 begin |
158 PHYSFS_deinit; |
165 PHYSFS_deinit; |