equal
deleted
inserted
replaced
1 (* |
1 (* |
2 * Hedgewars, a worms-like game |
2 * Hedgewars, a worms-like game |
3 * Copyright (c) 2004, 2005, 2006 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2004-2007 Andrey Korotaev <unC0Rr@gmail.com> |
4 * |
4 * |
5 * This program is free software; you can redistribute it and/or modify |
5 * This program is free software; you can redistribute it and/or modify |
6 * it under the terms of the GNU General Public License as published by |
6 * it under the terms of the GNU General Public License as published by |
7 * the Free Software Foundation; version 2 of the License |
7 * the Free Software Foundation; version 2 of the License |
8 * |
8 * |
185 SDL_KEYDOWN, SDL_KEYUP: (key: TSDL_KeyboardEvent); |
185 SDL_KEYDOWN, SDL_KEYUP: (key: TSDL_KeyboardEvent); |
186 SDL_QUITEV: (quit: TSDL_QuitEvent); |
186 SDL_QUITEV: (quit: TSDL_QuitEvent); |
187 end; |
187 end; |
188 |
188 |
189 PByteArray = ^TByteArray; |
189 PByteArray = ^TByteArray; |
190 TByteArray = array[0..32767] of Byte; |
190 TByteArray = array[0..65535] of Byte; |
|
191 PLongWordArray = ^TLongWordArray; |
|
192 TLongWordArray = array[0..16383] of LongWord; |
191 |
193 |
192 function SDL_Init(flags: Longword): integer; cdecl; external SDLLibName; |
194 function SDL_Init(flags: Longword): integer; cdecl; external SDLLibName; |
193 procedure SDL_Quit; cdecl; external SDLLibName; |
195 procedure SDL_Quit; cdecl; external SDLLibName; |
194 function SDL_VideoDriverName(var namebuf; maxlen: integer): PChar; cdecl; external SDLLibName; |
196 function SDL_VideoDriverName(var namebuf; maxlen: integer): PChar; cdecl; external SDLLibName; |
195 |
197 |
371 procedure SDLNet_TCP_Close(sock: PTCPsocket); cdecl; external SDL_NetLibName; |
373 procedure SDLNet_TCP_Close(sock: PTCPsocket); cdecl; external SDL_NetLibName; |
372 procedure SDLNet_FreeSocketSet(_set: PSDLNet_SocketSet); cdecl; external SDL_NetLibName; |
374 procedure SDLNet_FreeSocketSet(_set: PSDLNet_SocketSet); cdecl; external SDL_NetLibName; |
373 function SDLNet_AddSocket(_set: PSDLNet_SocketSet; sock: PTCPSocket): LongInt; cdecl; external SDL_NetLibName; |
375 function SDLNet_AddSocket(_set: PSDLNet_SocketSet; sock: PTCPSocket): LongInt; cdecl; external SDL_NetLibName; |
374 function SDLNet_CheckSockets(_set: PSDLNet_SocketSet; timeout: LongInt): LongInt; cdecl; external SDL_NetLibName; |
376 function SDLNet_CheckSockets(_set: PSDLNet_SocketSet; timeout: LongInt): LongInt; cdecl; external SDL_NetLibName; |
375 |
377 |
376 procedure SDLNet_Write16(value: SmallInt; buf: pointer); cdecl; external SDL_NetLibName; |
378 procedure SDLNet_Write16(value: Word; buf: pointer); cdecl; external SDL_NetLibName; |
377 procedure SDLNet_Write32(value: LongInt; buf: pointer); cdecl; external SDL_NetLibName; |
379 procedure SDLNet_Write32(value: LongWord; buf: pointer); cdecl; external SDL_NetLibName; |
378 function SDLNet_Read16(buf: pointer): SmallInt; cdecl; external SDL_NetLibName; |
380 function SDLNet_Read16(buf: pointer): Word; cdecl; external SDL_NetLibName; |
379 function SDLNet_Read32(buf: pointer): LongInt; cdecl; external SDL_NetLibName; |
381 function SDLNet_Read32(buf: pointer): LongWord; cdecl; external SDL_NetLibName; |
380 |
382 |
381 implementation |
383 implementation |
382 |
384 |
383 function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
385 function SDL_MustLock(Surface: PSDL_Surface): Boolean; |
384 begin |
386 begin |