Game issues... display sprite...

[Hydrate]

I am simply trying to display a sprite, ive done it hundreds of times before with no problems. The codebelow returns the following error: "#Sprite object not initialised".

The only issue is that the file is exactly in the right place, and it returns no error loading the sprite itself, so it cant be that, am i making some huge obvious mistake?? I ahve used initsprite, initkeyboard, and usepngimagedecoder before you ask:

Code: Select all

OpenScreen(\lWidth,\lHeight,\lDepth,\sTitle);
  LoadSprite(0,"TitleScreen.png");
  
  FreeImage(MainWindow\Images\lBannerImage);
  FreeGadget(MainWindow\Gadgets\lImageBannerGadget);
  CloseWindow(MainWindow\lHwnd);
  Repeat;
    FlipBuffers();
    ClearScreen(RGB(0,0,0));
    DisplaySprite(0,0,0) ; Error is here
    
    ExamineKeyboard();
  Until KeyboardPushed(#PB_Key_Escape);

[Kale]

You should always test the opening of a screen. I don't like the look of '\lWidth,\lHeight,\lDepth' in the OpenScreen command. Try removing the back slashes.

[Hydrate]

You should always test the opening of a screen. I don't like the look of '\lWidth,\lHeight,\lDepth' in the OpenScreen command. Try removing the back slashes.

Perhaps i should post more code to show you why i used these:

Code: Select all

With MainScreen;
  \lWidth=640;
  \lHeight=480;
  \lDepth=16;
  \sTitle="";
  
  OpenScreen(\lWidth,\lHeight,\lDepth,\sTitle);
  
  \Sprites\lSpriteTitleScreen=0;
  LoadSprite(\Sprites\lSpriteTitleScreen,"Graphics\Loading\TitleScreen.jpg");
  
  FreeImage(MainWindow\Images\lBannerImage);
  FreeGadget(MainWindow\Gadgets\lImageBannerGadget);
  CloseWindow(MainWindow\lHwnd);
  Repeat;
    FlipBuffers();
    ClearScreen(RGB(0,0,0));
    DisplaySprite(\Sprites\lSpriteTitleScreen,0,0);

    ExamineKeyboard();
  Until KeyboardPushed(#PB_Key_Escape);
EndWith;

[Kale]

That doesn't look like legal syntax to me. I'm not surprised it doesn't work. Try moving the screen commands out of the 'With' macro.

[Trond]

It should be legal syntax. But i you want us to help you must post code we can run. Include all the necessary code.

[citystate]

I've encountered this problem when I use either JPG or PNG files and it's usually been that I've forgotten to use the appropriate image decoder.

Try including UsePNGDecoder() or UseJPEGDecoder() before the LoadSprite()

[netmaestro]

The code as written does work if I add the necessary structures, InitSprite(), etc. Structured variables and the With macro are an unusual choice for this task, but once everything's available to the code it runs without error. So, if you're still looking for assistance, a more complete version of the code will be necessary in order to expose a problem.

[Hydrate]

Code: Select all

; Loading Window Gadget Structure
Structure WindowMainGadget;
  lImageBannerGadget.l;
EndStructure;

; Loading Window Image Structure
Structure WindowImages;
  lBannerImage.l;
EndStructure;

; Loading Window Structure
Structure Windows;
  lx.l;
  ly.l;
  lWidth.l;
  lHeight.l
  sTitle.s;
  lParams.l;
  lWID.l;
  lHwnd.l;
  lGadgetList.l;
  Gadgets.WindowMainGadget;
  Images.WindowImages;
  lLoaded.l;
EndStructure;
Define MainWindow.Windows;

; Game Screen Sprites Structure
Structure ScreenSprites;
  lSpriteTitleScreen.l;
EndStructure;

; Game Screen Structure
Structure Screens;
  lWidth.l;
  lHeight.l;
  lDepth.l;
  sTitle.s;
  Sprites.ScreenSprites;
  sSection.s;
  
EndStructure;
Define MainScreen.Screens;

; Initialisations
If InitSprite()=0 Or InitKeyboard()=0
  MessageRequester("Error","Can't initialise DirectX 7 or later",0)
  End
EndIf

; Image Loading
UsePNGImageDecoder();
UseJPEGImageDecoder();

Macro LoadingWindow();
  \lx=10;
  \ly=10;
  \lWidth=304;
  \lHeight=151;
  \sTitle="Test";
  \lParams=#PB_Window_BorderLess|#PB_Window_ScreenCentered;
  \lHwnd=OpenWindow(#PB_Any,\lx,\ly,\lWidth,\lHeight,\sTitle,\lParams);
  \lWID=WindowID(\lHwnd);
  
  \Images\lBannerImage=LoadImage(#PB_Any,"Graphics/Banner.png");
  
  \lGadgetList=CreateGadgetList(\lWID);
  \Gadgets\lImageBannerGadget=0;
  \Gadgets\lImageBannerGadget=ImageGadget(#PB_Any,0,0,\lWidth,\lHeight,ImageID(\Images\lBannerImage));
  \lLoaded=#False;
  Repeat;
    lEvent=WindowEvent();
    Delay(1000);
    \lLoaded=#True;
  Until \lLoaded=#True;
EndMacro;

With MainWindow;
  LoadingWindow();
EndWith;

With MainScreen;
  \lWidth=640;
  \lHeight=480;
  \lDepth=16;
  \sTitle="Test";
  \sSection="Menu";
  
  OpenScreen(\lWidth,\lHeight,\lDepth,\sTitle);
  
  \Sprites\lSpriteTitleScreen=0;
  LoadSprite(\Sprites\lSpriteTitleScreen,"Graphics\Loading\TitleScreen.jpg");
  
  FreeImage(MainWindow\Images\lBannerImage);
  FreeGadget(MainWindow\Gadgets\lImageBannerGadget);
  CloseWindow(MainWindow\lHwnd);
  Repeat;
    FlipBuffers();
    ClearScreen(RGB(0,0,0));
    If \sSection="Menu";
      DisplaySprite(\Sprites\lSpriteTitleScreen,0,0);
    EndIf;

    ExamineKeyboard();
  Until KeyboardPushed(#PB_Key_Escape);
  FreeSprite(\Sprites\lSpriteTitleScreen);
EndWith;

End;

This is my entire code, far as i can see, no errors, no obvious ones anyway. Is there any reason this might not work? It simply doesnt display the sprite...

[netmaestro]

I executed your code unmodified except for the paths to the images and it ran without error. Let's look for a second at your paths:

Graphics/Banner.png

Graphics\Loading\TitleScreen.jpg

Your banner path has the wrong slash character, could you fix it and retry?

[Hydrate]

I executed your code unmodified except for the paths to the images and it ran without error. Let's look for a second at your paths:

Graphics/Banner.png

Graphics\Loading\TitleScreen.jpg

Your banner path has the wrong slash character, could you fix it and retry?

Thank you very very much, but may i ask why the slash character on an image i loaded would effect loading a sprite with a different image and correct slash characters?

[netmaestro]

Nothing leaps to mind.. is it working now?

[GBeebe]

This may sound dumb, but I had the same problem where I could load some PNGs but not others... Try this:

Open your PNG file in your image editor, duplicate the image to a new layer. hide the origional layer. save the image.

I don't know why, but it works for me.