71 function  GetLaunchY(at: TAmmoType; angle: LongInt): LongInt;

    71 function  GetLaunchY(at: TAmmoType; angle: LongInt): LongInt;

    72 

    72 

    73 {$IFNDEF PAS2C}

    73 {$IFNDEF PAS2C}

    74 procedure Write(var f: textfile; s: shortstring);

    74 procedure Write(var f: textfile; s: shortstring);

    75 procedure WriteLn(var f: textfile; s: shortstring);

    75 procedure WriteLn(var f: textfile; s: shortstring);

    76 {$ENDIF}

    77 {$ENDIF}

    77 

    78 

    78 function  isPhone: Boolean; inline;

    79 function  isPhone: Boolean; inline;

    79 

    80 

    80 {$IFDEF IPHONEOS}

    81 {$IFDEF IPHONEOS}

   439 

   440 

   440 procedure WriteLn(var f: textfile; s: shortstring);

   441 procedure WriteLn(var f: textfile; s: shortstring);

   441 begin

   442 begin

   442 system.writeln(f, s)

   443 system.writeln(f, s)

   443 end;

   444 end;

   444 {$ENDIF}

   450 {$ENDIF}

   445 

   451 

   446 // this function is just to determine whether we are running on a limited screen device

   452 // this function is just to determine whether we are running on a limited screen device

   447 function isPhone: Boolean; inline;

   453 function isPhone: Boolean; inline;

   448 begin

   454 begin