Questions about Clear your mind

[Running_tape]

I've got two questions about it.

First question. Is there a Windows alternative to Terminal?

Second question. The program does not seem to recognise procecdure LoadGame. Is there some way around that?

Thanks in advance.

[acain]

The terminal is the same as the Command Line in Windows. If you run "cmd" it should open a Command Line (Terminal) window for you.

Not sure about the LoadGame problem. Where is it being called from?

[Running_tape]

I'm sure it's called from the MainGame procedure. Do you want to see the code?

[acain]

That would be good, upload the code you are working with and I'll see if I can see the issue.

[Running_tape]

Code: Select all

function CreateSprite(image: Bitmap; framesPerCell, frames, width, height: Integer): Sprite;
procedure MainGame();   
var
   game : GameData;
begin
   repeat
      ProcessEvents();
      RefreshScreen();
   until WindowCloseRequested();
procedure LoadGame(var game: GameData);
   const
   PLAYEROFFSET = 150;
begin
   //Create the player ship
   game.player.theSprite := CreateSprite(GameImage('Ship'), 2, 2, 40, 43);
   game.player.theSprite.xPos := Round(ScreenWidth / 2 - game.player.theSprite.width / 2);
   game.player.theSprite.yPos := ScreenHeight - PLAYEROFFSET;
   game.player.speed := 4;
   end;
end;

procedure Main();
const
   SCREENWIDTH = 480;
   SCREENHEIGHT = 600;
begin
   OpenGraphicsWindow('EmptyYourMind1.1', SCREENWIDTH, SCREENHEIGHT);
   LoadResources();
   MainGame();
   FreeResources();
end;

end.

Sorry for the absence.

[acain]

The problem seems to be that you have declared some functions and procedures within others... try this:

Code: Select all


procedure LoadGame(var game: GameData);
   const
   PLAYEROFFSET = 150;
begin
   //Create the player ship
   game.player.theSprite := CreateSprite(GameImage('Ship'), 2, 2, 40, 43);
   game.player.theSprite.xPos := Round(ScreenWidth / 2 - game.player.theSprite.width / 2);
   game.player.theSprite.yPos := ScreenHeight - PLAYEROFFSET;
   game.player.speed := 4;
end;

procedure MainGame();   
var
   game : GameData;
begin
   LoadGame(game);
   repeat
      ProcessEvents();
      RefreshScreen();
   until WindowCloseRequested();
end;

procedure Main();
const
   SCREENWIDTH = 480;
   SCREENHEIGHT = 600;
begin
   OpenGraphicsWindow('EmptyYourMind1.1', SCREENWIDTH, SCREENHEIGHT);
   LoadResources();
   MainGame();
   FreeResources();
end;

begin
    Main();
end.


[Running_tape]

Thanks for your help.

But now a new error has occured.

GameLogic.exe (41,84)Error: Incompatible types: got "Int64" expected "^Single"
GameLogic.exe (42,46)Error: Incompatible types: got "LongInt" expected "^Single"

[acain]

Sorry, use "x" rather than "xPos". Same for y...