equal
deleted
inserted
replaced
148 procedure FreeTexture(tex: PTexture); |
148 procedure FreeTexture(tex: PTexture); |
149 function toPowerOf2(i: Longword): Longword; |
149 function toPowerOf2(i: Longword): Longword; |
150 function DecodeBase64(s: shortstring): shortstring; |
150 function DecodeBase64(s: shortstring): shortstring; |
151 function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
151 function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
152 function endian(independent: LongWord): LongWord; |
152 function endian(independent: LongWord): LongWord; |
153 function modifyDamage(dmg: Longword): Longword; |
|
154 {$IFDEF DEBUGFILE} |
153 {$IFDEF DEBUGFILE} |
155 procedure AddFileLog(s: shortstring); |
154 procedure AddFileLog(s: shortstring); |
156 function RectToStr(Rect: TSDL_Rect): shortstring; |
155 function RectToStr(Rect: TSDL_Rect): shortstring; |
157 {$ENDIF} |
156 {$ENDIF} |
158 {$IFNDEF IPHONEOS} |
157 {$IFNDEF IPHONEOS} |
524 {$I+} |
523 {$I+} |
525 |
524 |
526 FreeMem(p) |
525 FreeMem(p) |
527 end; |
526 end; |
528 {$ENDIF} |
527 {$ENDIF} |
529 |
|
530 function modifyDamage(dmg: Longword): Longword; |
|
531 begin |
|
532 ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * cDamagePercent) |
|
533 end; |
|
534 |
528 |
535 {$IFDEF DEBUGFILE} |
529 {$IFDEF DEBUGFILE} |
536 procedure AddFileLog(s: shortstring); |
530 procedure AddFileLog(s: shortstring); |
537 begin |
531 begin |
538 writeln(f, GameTicks: 6, ': ', s); |
532 writeln(f, GameTicks: 6, ': ', s); |