hedgewars/uFLSchemes.pas
branchqmlfrontend
changeset 11440 330c14f4ba69
parent 10821 efb861d1489e
child 11456 ab77e2ea2f82
equal deleted inserted replaced
11439:dd1350a475d9 11440:330c14f4ba69
    19     schemesList: PScheme;
    19     schemesList: PScheme;
    20     schemesNumber: LongInt;
    20     schemesNumber: LongInt;
    21     listOfSchemeNames: array[0..MAX_SCHEME_NAMES] of PChar;
    21     listOfSchemeNames: array[0..MAX_SCHEME_NAMES] of PChar;
    22     tmpScheme: TScheme;
    22     tmpScheme: TScheme;
    23 
    23 
    24 const ints: array[0 .. 16] of record
    24 const ints: array[0 .. 17] of record
    25             name: shortstring;
    25             name: shortstring;
    26             param: ^LongInt;
    26             param: ^LongInt;
    27         end = (
    27         end = (
    28               (name: 'damagefactor'; param: @tmpScheme.damagefactor)
    28               (name: 'damagefactor'; param: @tmpScheme.damagefactor)
    29             , (name: 'turntime'; param: @tmpScheme.turntime)
    29             , (name: 'turntime'; param: @tmpScheme.turntime)
    40             , (name: 'waterrise'; param: @tmpScheme.waterrise)
    40             , (name: 'waterrise'; param: @tmpScheme.waterrise)
    41             , (name: 'healthdecrease'; param: @tmpScheme.healthdecrease)
    41             , (name: 'healthdecrease'; param: @tmpScheme.healthdecrease)
    42             , (name: 'ropepct'; param: @tmpScheme.ropepct)
    42             , (name: 'ropepct'; param: @tmpScheme.ropepct)
    43             , (name: 'getawaytime'; param: @tmpScheme.getawaytime)
    43             , (name: 'getawaytime'; param: @tmpScheme.getawaytime)
    44             , (name: 'worldedge'; param: @tmpScheme.worldedge)
    44             , (name: 'worldedge'; param: @tmpScheme.worldedge)
       
    45             , (name: 'airmines'; param: @tmpScheme.airmines)
    45               );
    46               );
    46 const bools: array[0 .. 19] of record
    47 const bools: array[0 .. 25] of record
    47             name: shortstring;
    48             name: shortstring;
    48             param: ^boolean;
    49             param: ^boolean;
    49         end = (
    50         end = (
    50               (name: 'fortsmode'; param: @tmpScheme.fortsmode)
    51               (name: 'fortsmode'; param: @tmpScheme.fortsmode)
    51             , (name: 'divteams'; param: @tmpScheme.divteams)
    52             , (name: 'divteams'; param: @tmpScheme.divteams)
    65             , (name: 'disablegirders'; param: @tmpScheme.disablegirders)
    66             , (name: 'disablegirders'; param: @tmpScheme.disablegirders)
    66             , (name: 'disablewind'; param: @tmpScheme.disablewind)
    67             , (name: 'disablewind'; param: @tmpScheme.disablewind)
    67             , (name: 'morewind'; param: @tmpScheme.morewind)
    68             , (name: 'morewind'; param: @tmpScheme.morewind)
    68             , (name: 'tagteam'; param: @tmpScheme.tagteam)
    69             , (name: 'tagteam'; param: @tmpScheme.tagteam)
    69             , (name: 'bottomborder'; param: @tmpScheme.bottomborder)
    70             , (name: 'bottomborder'; param: @tmpScheme.bottomborder)
       
    71             , (name: 'resethealth'; param: @tmpScheme.resethealth)
       
    72             , (name: 'disablelandobjects'; param: @tmpScheme.disablelandobjects)
       
    73             , (name: 'aisurvival'; param: @tmpScheme.aisurvival)
       
    74             , (name: 'infattack'; param: @tmpScheme.infattack)
       
    75             , (name: 'resetweps'; param: @tmpScheme.resetweps)
       
    76             , (name: 'perhogammo'; param: @tmpScheme.perhogammo)
    70               );
    77               );
    71 
    78 
    72 
    79 
    73 procedure loadSchemes;
    80 procedure loadSchemes;
    74 var f: PFSFile;
    81 var f: PFSFile;