421 TLandArray = packed array of array of LongWord; |
421 TLandArray = packed array of array of LongWord; |
422 TCollisionArray = packed array of array of Word; |
422 TCollisionArray = packed array of array of Word; |
423 TPreview = packed array[0..127, 0..31] of byte; |
423 TPreview = packed array[0..127, 0..31] of byte; |
424 TDirtyTag = packed array of array of byte; |
424 TDirtyTag = packed array of array of byte; |
425 |
425 |
426 TOnScreenWidget = record |
426 PWidgetMovement = ^TWidgetMovement; |
427 x, y: LongInt; // graphical coordinates |
427 TWidgetMovement = record |
428 hOffset, width: LongInt; // horizontal active region |
428 animate: Boolean; |
429 vOffset, height: LongInt; // vertical active region |
429 targetFromX, targetFromY: LongInt; |
|
430 targetToX, targetToY: LongInt; |
|
431 startTime: Longword; |
|
432 end; |
|
433 |
|
434 POnScreenWidget = ^TOnScreenWidget; |
|
435 TOnScreenWidget = record |
|
436 show: boolean; |
|
437 sprite: TSprite; |
|
438 x, y: LongInt; // graphical coordinates |
|
439 hOffset, width: LongInt; // horizontal active region |
|
440 vOffset, height: LongInt; // vertical active region |
|
441 fadeAnimStart: Longword; //time the fade started, 0 means don't fade |
|
442 moveAnim: TWidgetMovement; |
430 end; |
443 end; |
431 |
444 |
432 implementation |
445 implementation |
433 |
446 |
434 end. |
447 end. |