Changed NextTick var to UINT

This commit is contained in:
Armando Rivera 2013-11-10 21:22:16 -05:00
parent 307cc98b8e
commit 2315c249d5

View File

@ -12,7 +12,8 @@ SUB txtIt(CSTRING pStr , ...) BEGIN
ENDSUB ENDSUB
DIM AS INT FPS = 40; // Assign a FPS DIM AS INT FPS = 40; // Assign a FPS
DIM AS INT NextTick , interval; // Used by FPS_Fn DIM AS UINT NextTick; // Used by FPS_Fn
DIM AS INT interval; // Used by FPS_Fn
// Initialize FPS_Fn( ) // Initialize FPS_Fn( )
SUB FPS_Initialize() BEGIN SUB FPS_Initialize() BEGIN
@ -86,8 +87,8 @@ MAIN
DIM AS INT aTick = 0; DIM AS INT aTick = 0;
DIM AS SHORT dx = 2; // The movement value when moving the object anim[ ] DIM AS SHORT dx = 2; // The movement value when moving the object anim[ ]
PSURFACE screen; PSURFACE screen;
ENUM ENUM
pic1, pic1,
pic_No pic_No
ENDENUM ENDENUM
@ -148,8 +149,8 @@ MAIN
txtRect.x = 30 + i*30; txtRect.x = 30 + i*30;
txtRect.y = 30 + j*15; txtRect.y = 30 + j*15;
SDL_BlitSurface( imgTxt , NULL , screen , &txtRect ); SDL_BlitSurface( imgTxt , NULL , screen , &txtRect );
END END
END END
txtIt("%1d %1d %1d %1d", bKeyUP , bKeyDOWN , bKeyLEFT , bKeyRIGHT); txtIt("%1d %1d %1d %1d", bKeyUP , bKeyDOWN , bKeyLEFT , bKeyRIGHT);
fColor = fColorW; // Default is white color fColor = fColorW; // Default is white color
@ -180,7 +181,7 @@ MAIN
CASE_ELSE: CASE_ELSE:
ENDCASE ENDCASE
ENDSELECT ENDSELECT
ENDCASE ENDCASE
CASE SDL_KEYUP: CASE SDL_KEYUP:
SELECT ( event.key.keysym.sym ){ SELECT ( event.key.keysym.sym ){
@ -198,17 +199,17 @@ MAIN
ENDCASE ENDCASE
CASE_ELSE: CASE_ELSE:
ENDCASE ENDCASE
ENDSELECT ENDSELECT
ENDCASE ENDCASE
CASE SDL_QUIT: CASE SDL_QUIT:
bRun = 0; bRun = 0;
ENDCASE ENDCASE
CASE_ELSE: CASE_ELSE:
ENDCASE ENDCASE
ENDSELECT ENDSELECT
WEND WEND
// Deal with key states // Deal with key states
IF (bKeyUP) animRect.y = animRect.y - dx; IF (bKeyUP) animRect.y = animRect.y - dx;