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;

    39 

    37 

    40     fastUntilLag    : boolean;

    38     fastUntilLag    : boolean;

    41 

    39 

    42     GameState       : TGameState;

    40     GameState       : TGameState;

    43     GameType        : TGameType;

    41     GameType        : TGameType;

   757 {$IFDEF IPHONEOS}

   755 {$IFDEF IPHONEOS}

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

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

   759     Rewrite(f);

   757     Rewrite(f);

   760 {$ELSE}

   758 {$ELSE}

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

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

   763         begin

   761         begin

   764             for i:= 0 to 7 do

   762             for i:= 0 to 7 do

   765             begin

   763             begin

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

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

   767                 rewrite(f);

   765                 rewrite(f);

   782     else

   780     else

   783         f:= stderr;

   781         f:= stderr;

   784 {$ENDIF}

   782 {$ENDIF}

   785 {$I+}

   783 {$I+}

   786 {$ENDIF}

   784 {$ENDIF}

   787 end;

   786 end;

   788 

   787 

   789 procedure freeModule;

   788 procedure freeModule;

   790 begin

   789 begin

   791     recordFileName:= '';

   790     recordFileName:= '';