equal
deleted
inserted
replaced
132 function Surface2Tex(surf: PSDL_Surface): PTexture; |
132 function Surface2Tex(surf: PSDL_Surface): PTexture; |
133 procedure FreeTexture(tex: PTexture); |
133 procedure FreeTexture(tex: PTexture); |
134 function toPowerOf2(i: Longword): Longword; |
134 function toPowerOf2(i: Longword): Longword; |
135 function DecodeBase64(s: shortstring): shortstring; |
135 function DecodeBase64(s: shortstring): shortstring; |
136 procedure MakeScreenshot(s: shortstring); |
136 procedure MakeScreenshot(s: shortstring); |
|
137 function modifyDamage(dmg: Longword): Longword; |
137 |
138 |
138 var CursorPoint: TPoint; |
139 var CursorPoint: TPoint; |
139 TargetPoint: TPoint = (X: NoPointX; Y: 0); |
140 TargetPoint: TPoint = (X: NoPointX; Y: 0); |
140 |
141 |
141 implementation |
142 implementation |
402 {$I+} |
403 {$I+} |
403 |
404 |
404 FreeMem(p) |
405 FreeMem(p) |
405 end; |
406 end; |
406 |
407 |
|
408 function modifyDamage(dmg: Longword): Longword; |
|
409 begin |
|
410 ModifyDamage:= hwRound(int2HwFloat(dmg) * cDamageModifier) |
|
411 end; |
|
412 |
407 {$IFDEF DEBUGFILE} |
413 {$IFDEF DEBUGFILE} |
408 procedure AddFileLog(s: shortstring); |
414 procedure AddFileLog(s: shortstring); |
409 begin |
415 begin |
410 writeln(f, GameTicks: 6, ': ', s); |
416 writeln(f, GameTicks: 6, ': ', s); |
411 flush(f) |
417 flush(f) |