32 

    32 

    33     isSEBackup      : boolean;

    33     isSEBackup      : boolean;

    34     isInMultiShoot  : boolean;

    34     isInMultiShoot  : boolean;

    35     isSpeed         : boolean;

    35     isSpeed         : boolean;

    36     isFirstFrame    : boolean;

    36     isFirstFrame    : boolean;

    37 

    39 

    38     fastUntilLag    : boolean;

    40     fastUntilLag    : boolean;

    39 

    41 

    40     GameState       : TGameState;

    42     GameState       : TGameState;

    41     GameType        : TGameType;

    43     GameType        : TGameType;

   755 {$IFDEF IPHONEOS}

   757 {$IFDEF IPHONEOS}

   756     Assign(f,'../Documents/debug.txt');

   758     Assign(f,'../Documents/debug.txt');

   757     Rewrite(f);

   759     Rewrite(f);

   758 {$ELSE}

   760 {$ELSE}

   759     if (ParamStr(1) <> '') and (ParamStr(2) <> '') then

   761     if (ParamStr(1) <> '') and (ParamStr(2) <> '') then

   761         begin

   763         begin

   762             for i:= 0 to 7 do

   764             for i:= 0 to 7 do

   763             begin

   765             begin

   764                 assign(f, ExtractFileDir(ParamStr(2)) + '/debug' + inttostr(i) + '.txt');

   766                 assign(f, ExtractFileDir(ParamStr(2)) + '/debug' + inttostr(i) + '.txt');

   765                 rewrite(f);

   767                 rewrite(f);

   780     else

   782     else

   781         f:= stderr;

   783         f:= stderr;

   782 {$ENDIF}

   784 {$ENDIF}

   783 {$I+}

   785 {$I+}

   784 {$ENDIF}

   786 {$ENDIF}

   786 end;

   787 end;

   787 

   788 

   788 procedure freeModule;

   789 procedure freeModule;

   789 begin

   790 begin

   790     recordFileName:= '';

   791     recordFileName:= '';