n00b sprite related issues

wolfwood2x · Post by **wolfwood2x** » Sun Oct 02, 2005 5:18 am

Im still learning PB and have only been messing with it since Friday. That being said i am working on a pac man clone with a slight twist in relation to a co-worker. The problem I am having is with sprite collision and score keeping . However for the sake of making this simple i want to be able to collide with the pellets to eat them have them dissapear and accrue points.

My original code looked like
"DisplayTransparentSprite(1001,100,100)
if SpriteCollision(1, imagex, imagey, 1001, 100, 100)<>0
freesprite(1001)
endif"

which crashed the program since its in part of a loop and it cant display what doesnt exist. Next i tried this:

"While SpriteCollision(1, imagex, imagey, 1001, 100, 100)<>0
DisplayTransparentSprite(1001,100,100)
Wend

If SpriteCollision(1, imagex, imagey, 1001, 100, 100)<>0
points = points + 10
StartDrawing(ScreenOutput())
DrawingMode(1)
DrawingFont(UseFont(1))
FrontColor(255,255,255):Locate(400,400):DrawText(Str(points))
StopDrawing()
EndIf
"

and the problem here is that the while statement causes my screen to go black when i try to run and my pc hangs for several minutes until i alt-tab alt-f4 repeatedly. If i comment it out the program runs fine just doesnt do what i want it to. I can post all my code if that will help i just didnt want to stick 100 lines in here if i didnt need to. Can anyone help me with this?

wolfwood2x · Post by **wolfwood2x** » Sun Oct 02, 2005 5:36 am

Well Now that i see the code option here im gonna post the whole thing so its easier to trouble shoot.

Code: Select all

imagex.l=384
imagey.l=384
points.l=0
b1.w=0

If InitSprite() = 0 Or InitKeyboard() = 0
 MessageRequester("error", "Can't open", 0)
 End
EndIf

If OpenScreen(1024,768,16,"test")
    UseJPEGImageDecoder()
    
    ;--Sprite Loader--
    LoadSprite(0,"background.jpg",0)
    LoadSprite(1,"char.jpg",0)
    LoadSprite(1000, "smburger.jpg", 0)
    LoadSprite(1001, "smburger.jpg", 0)
    LoadFont(1,"Arial",10,#PB_Font_Underline)
      
      ;--Game Engine--  
      Repeat
         FlipBuffers()
         ClearScreen(0,0,0)
         ExamineKeyboard()
         
          If KeyboardPushed(#PB_Key_A) Or KeyboardPushed(#PB_Key_Left)
            Gosub Move_left
          EndIf
          
          If KeyboardPushed(#PB_Key_D) Or KeyboardPushed(#PB_Key_Right)
            Gosub Move_right
          EndIf

          If KeyboardPushed(#PB_Key_W) Or KeyboardPushed(#PB_Key_Up)
            Gosub Move_up
          EndIf
          
          If KeyboardPushed(#PB_Key_S) Or KeyboardPushed(#PB_Key_Down)
            Gosub Move_down
          EndIf
        
        Gosub Update_back 
        Gosub Update_char
        Gosub Burger_count
        Gosub Check_score
            
      
      Until KeyboardPushed(#PB_Key_Escape)
EndIf

End

;--Update Screen Functions--

Update_char:
   DisplaySprite(1,imagex, imagey)
Return

Update_back:
   DisplaySprite(0,0,0)
Return

Burger_count:                ; Burger checking sub (may need array here)
    DisplayTransparentSprite(1000,150,100) 
    ;While SpriteCollision(1, imagex, imagey, 1001, 100, 100)<>0
          DisplayTransparentSprite(1001,100,100)
    ;Wend
    
      
    If SpriteCollision(1, imagex, imagey, 1001, 100, 100)<>0
      points = points + 10 
    EndIf
Return
    


;--Movement--
Move_left:
   Imagex= imagex-1
   DisplaySprite(1, imagex, imagey)
 Return
 
Move_right:
   Imagex= imagex+1
   DisplaySprite(1, imagex, imagey)
Return

Move_up:
    Imagey= imagey-1
    DisplaySprite(1, imagex, imagey)
Return

Move_down:
    Imagey= imagey+1
    DisplaySprite(1, imagex, imagey)
Return


;--Scoring Algorithm--
Check_score:

        StartDrawing(ScreenOutput()) 
          DrawingMode(1)
          DrawingFont(UseFont(1)) 
          FrontColor(255,255,255):Locate(400,400):DrawText("Score: " + Str(points)) 
        StopDrawing()
Return

Comtois · Post by **Comtois** » Sun Oct 02, 2005 11:52 am

Code: Select all

imagex.l=384
imagey.l=384
points.l=0
b1.w=0

Structure POINT
X.l
Y.L
EndStructure

NewList Burger.Point()

AddElement(burger())
Burger()\x=150
Burger()\y=100

AddElement(burger())
Burger()\x=100
Burger()\y=100

If InitSprite() = 0 Or InitKeyboard() = 0
 MessageRequester("error", "Can't open", 0)
 End
EndIf

If OpenScreen(1024,768,16,"test")
    UseJPEGImageDecoder()
   
    ;--Sprite Loader--
    CreateSprite(1,32,32)
    StartDrawing(SpriteOutput(1))
    Box(0,0,32,32,RGB(255,255,0))
    StopDrawing()
   
   
    CreateSprite(1000,32,32)
    StartDrawing(SpriteOutput(1000))
    Circle(16,16,16,RGB(50,255,50))
    StopDrawing()
   
    LoadFont(1,"Arial",10,#PB_Font_Underline)
     
      ;--Game Engine--
      Repeat
         FlipBuffers()
         ClearScreen(0,0,0)
         ExamineKeyboard()
         
          If KeyboardPushed(#PB_Key_A) Or KeyboardPushed(#PB_Key_Left)
            Imagex - 1
          EndIf
         
          If KeyboardPushed(#PB_Key_D) Or KeyboardPushed(#PB_Key_Right)
            Imagex + 1
          EndIf

          If KeyboardPushed(#PB_Key_W) Or KeyboardPushed(#PB_Key_Up)
            Imagey - 1
          EndIf
         
          If KeyboardPushed(#PB_Key_S) Or KeyboardPushed(#PB_Key_Down)
            imagey + 1
          EndIf
       

       DisplaySprite(1,imagex, imagey)
        Gosub Burger_count
        Gosub Check_score
           
     
      Until KeyboardPushed(#PB_Key_Escape)
EndIf

End



Burger_count:                ; Burger checking sub (may need array here)
ForEach  Burger()
    DisplayTransparentSprite(1000,burger()\x,Burger()\y)      
    If SpriteCollision(1, imagex, imagey, 1000, burger()\x, burger()\y)
      points + 10
      DeleteElement(Burger())   
      Continue   
    EndIf
Next     
Return
   

;--Scoring Algorithm--
Check_score:

        StartDrawing(ScreenOutput())
          DrawingMode(1)
          DrawingFont(UseFont(1))
          FrontColor(255,255,255):Locate(400,400):DrawText("Score: " + Str(points))
        StopDrawing()
Return

wolfwood2x · Post by **wolfwood2x** » Sun Oct 02, 2005 3:26 pm

that doesnt seem to work, debugger errors on line 6 with the
list burger.point but youve at the least given me a direction to try and made me realize i had a lot of unneccesary code. So for that i thank you.

On a side note is it possible the reason the pointer list didnt work is that i am using the demo compiler?

Comtois · Post by **Comtois** » Sun Oct 02, 2005 4:34 pm

yes with demo version , you need to add this before line 6.

Code: Select all

Structure Point
x.l
y.l
EndStructure

wolfwood2x · Post by **wolfwood2x** » Sun Oct 02, 2005 10:39 pm

oh my thats embarassing ^_^ thanks for pointing that out haha

wolfwood2x · Post by **wolfwood2x** » Mon Oct 03, 2005 12:53 am

any tips on sprite collision for the background?
it is after all a maze with limits
I tried setting sprite collision for the background at certain coords but it seems to interpret any collision of the background and character sprite as one meaning its in a constant state of collision.

MadMax · Post by **MadMax** » Mon Oct 03, 2005 12:11 pm

any tips on sprite collision for the background?
it is after all a maze with limits

a simple way is to have an image the same size as the background with the walls drawn on it, you don't need to display this image. Just use it to check collisions. (the bits without wall have to be maskedColor obviously).

wolfwood2x · Post by **wolfwood2x** » Mon Oct 03, 2005 4:46 pm

great idea thanks!!

wolfwood2x · Post by **wolfwood2x** » Tue Oct 04, 2005 3:12 am

still seems to be in a constant state of collision, how do i cut out the parts that are not part of the wall

(the bits without wall have to be maskedColor obviously).

im still a n00b at this so can you elaborate a bit? I have cut away all the un needed parts but how do i make it masked color? I am sorry if these are stupid questions. I am still learning

wolfwood2x · Post by **wolfwood2x** » Tue Oct 04, 2005 3:07 pm

I tried doing a cut out of the walls and putting them on a transparent background saving it to PNG format since jpeg wouldnt preserve the transparency. I tried adding a layer mask and doing the entire layer transparent but the problem there is the walls become invis as i place them so i cant tell if everything is lined up properly. The end result is still a constant state of collision.

I know im just going about this the wrong way so if a more educated user than myself could once again point me in the right direction I would appreciate it. Thanks again you guys are the best

wolfwood2x · Post by **wolfwood2x** » Wed Oct 05, 2005 5:25 pm

I am still having trouble with this if anyone knows the solution.
I have 1 image at 1024x768 that is the visible background image, and one 1024x768 image that has the walls on it and nothing else. Everything that is not a wall is part of the alpha channel. This image is loaded but not displayed on screen. When i try to use it to check for sprite collisions it seems to always think its in a collsion.
It seems like the only way to do it would be to take several small peices of the wall and position them on the map 1 at a time which would mean a lot more code and would be very very tedious. Can anyone help me here?

MadMax · Post by **MadMax** » Wed Oct 05, 2005 11:26 pm

Leave the non-wall parts of the image pure black rgb(0,0,0) and to check collisions use SpritePixelCollision(#Sprite1, x1, y1, #Sprite2, x2, y2).

I've used this b4 so I know it works, I'll try and make an example, but you'll have to wait until Friday for that cos I'm very busy at the moment.

wolfwood2x · Post by **wolfwood2x** » Thu Oct 06, 2005 12:47 am

Thats what I did. Still is in a constant state of collision. The actual background is black though so does that have anything to do with it?
so the sections without the walls are the same color as the background
they are both 0,0,0 the walls are a light blue color and even if i am over 400 pixels away from one of the walls it says there is a collisionso id love to see one of your examples on friday.

EDIT

Oh i did

Code: Select all

Spritecollsion

instead of spritepixelcol....
id still love to see your example if you can post it

dracflamloc · Post by **dracflamloc** » Thu Oct 06, 2005 4:23 am

You should buy purebasic