equal
deleted
inserted
replaced
172 function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
172 function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface; |
173 {$IFNDEF IPHONEOS} |
173 {$IFNDEF IPHONEOS} |
174 procedure MakeScreenshot(s: shortstring); |
174 procedure MakeScreenshot(s: shortstring); |
175 {$ENDIF} |
175 {$ENDIF} |
176 |
176 |
|
177 function ToggleLongInt(t: Boolean; a, b: LongInt): LongInt; |
|
178 function ToggleString(t: Boolean; a, b: string): string; |
|
179 |
177 function modifyDamage(dmg: Longword): Longword; |
180 function modifyDamage(dmg: Longword): Longword; |
178 |
181 |
179 var CursorPoint: TPoint; |
182 var CursorPoint: TPoint; |
180 TargetPoint: TPoint = (X: NoPointX; Y: 0); |
183 TargetPoint: TPoint = (X: NoPointX; Y: 0); |
181 |
184 |
558 end |
561 end |
559 else doSurfaceConversion:= tmpsurf; |
562 else doSurfaceConversion:= tmpsurf; |
560 end; |
563 end; |
561 |
564 |
562 |
565 |
|
566 {$inline on} |
|
567 function ToggleLongInt(t: Boolean; a, b: LongInt): LongInt; |
|
568 begin |
|
569 if t then |
|
570 ToggleLongInt:= a |
|
571 else |
|
572 ToggleLongInt:= b; |
|
573 end; |
|
574 |
|
575 function ToggleString(t: Boolean; a, b: string): string; |
|
576 begin |
|
577 if t then |
|
578 ToggleString:= a |
|
579 else |
|
580 ToggleString:= b; |
|
581 end; |
|
582 {$inline off} |
|
583 |
563 initialization |
584 initialization |
564 cDrownSpeed.QWordValue:= 257698038;// 0.06 |
585 cDrownSpeed.QWordValue:= 257698038;// 0.06 |
565 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005 |
586 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005 |
566 cWindSpeed.QWordValue:= 429496;// 0.0001 |
587 cWindSpeed.QWordValue:= 429496;// 0.0001 |
567 cGravity:= cMaxWindSpeed; |
588 cGravity:= cMaxWindSpeed; |