equal
deleted
inserted
replaced
139 |
139 |
140 {$IFDEF SDL13} |
140 {$IFDEF SDL13} |
141 SDLwindow : PSDL_Window; |
141 SDLwindow : PSDL_Window; |
142 {$ENDIF} |
142 {$ENDIF} |
143 |
143 |
|
144 WorldDx: LongInt; |
|
145 WorldDy: LongInt; |
144 |
146 |
145 const |
147 const |
146 cHHFileName = 'Hedgehog'; |
148 cHHFileName = 'Hedgehog'; |
147 cCHFileName = 'Crosshair'; |
149 cCHFileName = 'Crosshair'; |
148 cThemeCFGFilename = 'theme.cfg'; |
150 cThemeCFGFilename = 'theme.cfg'; |
1983 AMask : AMask; |
1985 AMask : AMask; |
1984 colorkey: 0; |
1986 colorkey: 0; |
1985 alpha : 255 |
1987 alpha : 255 |
1986 ); |
1988 ); |
1987 |
1989 |
|
1990 |
|
1991 var |
|
1992 Land: TCollisionArray; |
|
1993 LandPixels: TLandArray; |
|
1994 LandDirty: TDirtyTag; |
|
1995 hasBorder: boolean; |
|
1996 hasGirders: boolean; |
|
1997 isMap: boolean; |
|
1998 playHeight, playWidth, leftX, rightX, topY, MaxHedgehogs: Longword; // idea is that a template can specify height/width. Or, a map, a height/width by the dimensions of the image. If the map has pixels near top of image, it triggers border. |
|
1999 LandBackSurface: PSDL_Surface; |
|
2000 digest: shortstring; |
|
2001 |
|
2002 |
1988 procedure initModule; |
2003 procedure initModule; |
1989 procedure freeModule; |
2004 procedure freeModule; |
1990 |
2005 |
1991 implementation |
2006 implementation |
1992 |
2007 |