hedgewars/uFLScripts.pas
branchqmlfrontend
changeset 11456 ab77e2ea2f82
parent 10888 a04e04aaf599
equal deleted inserted replaced
11455:96decedd9400 11456:ab77e2ea2f82
     4 
     4 
     5 function getScriptsList: PPChar; cdecl;
     5 function getScriptsList: PPChar; cdecl;
     6 procedure freeScriptsList;
     6 procedure freeScriptsList;
     7 
     7 
     8 implementation
     8 implementation
     9 uses uFLUtils, uFLIPC, uPhysFSLayer, uFLData;
     9 uses uFLUtils, uFLIPC, uPhysFSLayer, uFLThemes;
    10 
    10 
    11 const MAX_SCRIPT_NAMES = 64;
    11 const MAX_SCRIPT_NAMES = 64;
    12 type
    12 type
    13     TScript = record
    13     TScript = record
    14             scriptName: shortstring;
    14             scriptName: shortstring;