34     isInMultiShoot  : boolean;

    34     isInMultiShoot  : boolean;

    35     isSpeed         : boolean;

    35     isSpeed         : boolean;

    36     isFirstFrame    : boolean;

    36     isFirstFrame    : boolean;

    37 

    37 

    38     isStereoEnabled : boolean = true;

    38     isStereoEnabled : boolean = true;

    39 

    41 

    40     fastUntilLag    : boolean;

    42     fastUntilLag    : boolean;

    41 

    43 

    42     GameState       : TGameState;

    44     GameState       : TGameState;

    43     GameType        : TGameType;

    45     GameType        : TGameType;

   757 {$IFDEF IPHONEOS}

   759 {$IFDEF IPHONEOS}

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

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

   759     Rewrite(f);

   761     Rewrite(f);

   760 {$ELSE}

   762 {$ELSE}

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

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

   763         begin

   765         begin

   764             for i:= 0 to 7 do

   766             for i:= 0 to 7 do

   765             begin

   767             begin

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

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

   767                 rewrite(f);

   769                 rewrite(f);

   782     else

   784     else

   783         f:= stderr;

   785         f:= stderr;

   784 {$ENDIF}

   786 {$ENDIF}

   785 {$I+}

   787 {$I+}

   786 {$ENDIF}

   788 {$ENDIF}

   788 end;

   789 end;

   789 

   790 

   790 procedure freeModule;

   791 procedure freeModule;

   791 begin

   792 begin

   792     recordFileName:= '';

   793     recordFileName:= '';