129 

   129 

   130     ScreenFade : TScreenFade;

   130     ScreenFade : TScreenFade;

   131     ScreenFadeValue : LongInt;

   131     ScreenFadeValue : LongInt;

   132     ScreenFadeSpeed : LongInt;

   132     ScreenFadeSpeed : LongInt;

   133 

   133 

   134 

   137 

   135 procedure initModule;

   138 procedure initModule;

   136 procedure freeModule;

   139 procedure freeModule;

   137 procedure SplitBySpace(var a, b: shortstring);

   140 procedure SplitBySpace(var a, b: shortstring);

   138 procedure SplitByChar(var a, b: ansistring; c: char);

   141 procedure SplitByChar(var a, b: ansistring; c: char);

   775     cHasFocus       := true;

   778     cHasFocus       := true;

   776     cInactDelay     := 1250;

   779     cInactDelay     := 1250;

   777     cAltDamage      := true;

   780     cAltDamage      := true;

   778 

   781 

   779     ScreenFade      := sfNone;

   782     ScreenFade      := sfNone;

   780 {$IFDEF DEBUGFILE}

   787 {$IFDEF DEBUGFILE}

   781 {$I-}

   788 {$I-}

   782 {$IFDEF IPHONEOS}

   789 {$IFDEF IPHONEOS}

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

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

   784     Rewrite(f);

   791     Rewrite(f);