Sprite not recognized because... it's blue?

Author

Message

Cairne

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: The Internet

Posted: 6th Jun 2005 13:12

Link

I'm working on a game and making a lot of progress, however I have encountered a slight snag, my "I'm too lazy to draw" flat red ground and flat red circle sprite function fine, however, when I change the flat red circle to a "I'm too lazy to draw" flat blue triangle as part of a weapon change feature, the sprite stops responding to the ground it's placed on. I've tried everything, and the only thing that works is... changing the color of the triangle to red. Any idea what is going on? I've attached my code...

ink rgb(255,0,0),1

Load Image "Player 1 Beta.bmp",101
Load Image "Ground.bmp",2

DO
Titlescreen:

Set Cursor 310,240
Print "Hax!"

Set Cursor 310,260
Print "Press Spacebar to Continue"

PlayerY=332
Lives=3
Animation=1

If Spacekey()=1 then goto GamePrep

Goto Titlescreen
Gameprep:

If Spacekey()=1 then Goto Gameprep

Game:

`Basic movements

Sprite 1,PlayerposX,380,2
Sprite 2,280,PlayerY,100+Animation

If Leftkey()=1 then PlayerposX=PlayerposX+3
If Rightkey()=1 then PlayerposX=PlayerposX-3

`Jumping
If Upkey()=1 and Jump=0 then momentum=20:Jump=1:Grounding=0
If Grounding=0 then momentum=momentum-1:PlayerY=PlayerY-Momentum
If Sprite Hit(1,2)=1 then Jump=0:PlayerY=332:Grounding=1:momentum=0
If Sprite Collision(1,2)=0 then Grounding=0

`Weapon Select
If Spacekey()=1 then CLS:Goto WeaponSelect

`Lives
If PlayerY>500 then Lives=Lives-1: goto lifecount

CLS

Goto Game

`Weapon Selection Continued
Weaponselect:

Hide Sprite 1
Hide Sprite 2

Set Cursor 100,300
Print "1. Select Axe"
Set Cursor 100,320
Print "2. Select Handgun"

If Keystate(2)=1 then Weapon=1:Delete Image 101:Load Image "Player 1 Beta.bmp",101:Show Sprite 1:Show Sprite 2:CLS:Goto Game
If Keystate(3)=1 then Weapon=2:Delete Image 101:Load Image "Player 1 Handgun.bmp",101:Show Sprite 1: Show Sprite 2:CLS:Goto Game

Goto Weaponselect

`Life Count
Lifecount:

Set Cursor 280,100
Print "Lives =",Lives
If Lives>0 then Wait 5000:PlayerposX=0:PlayerY=332:Goto Game
If Lives=0 then CLS:Goto Titlescreen

Loop

+ Code Snippet

ink rgb(255,0,0),1

Load Image "Player 1 Beta.bmp",101
Load Image "Ground.bmp",2

DO
Titlescreen:

Set Cursor 310,240
Print "Hax!"

Set Cursor 310,260
Print "Press Spacebar to Continue"

PlayerY=332
Lives=3
Animation=1

If Spacekey()=1 then goto GamePrep

Goto Titlescreen
Gameprep:

If Spacekey()=1 then Goto Gameprep

Game:

`Basic movements

Sprite 1,PlayerposX,380,2
Sprite 2,280,PlayerY,100+Animation

If Leftkey()=1 then PlayerposX=PlayerposX+3
If Rightkey()=1 then PlayerposX=PlayerposX-3

`Jumping
If Upkey()=1 and Jump=0 then momentum=20:Jump=1:Grounding=0
If Grounding=0 then momentum=momentum-1:PlayerY=PlayerY-Momentum
If Sprite Hit(1,2)=1 then Jump=0:PlayerY=332:Grounding=1:momentum=0
If Sprite Collision(1,2)=0 then Grounding=0

`Weapon Select
If Spacekey()=1 then CLS:Goto WeaponSelect

`Lives
If PlayerY>500 then Lives=Lives-1: goto lifecount

CLS

Goto Game

`Weapon Selection Continued
Weaponselect:

Hide Sprite 1
Hide Sprite 2

Set Cursor 100,300
Print "1. Select Axe"
Set Cursor 100,320
Print "2. Select Handgun"

If Keystate(2)=1 then Weapon=1:Delete Image 101:Load Image "Player 1 Beta.bmp",101:Show Sprite 1:Show Sprite 2:CLS:Goto Game
If Keystate(3)=1 then Weapon=2:Delete Image 101:Load Image "Player 1 Handgun.bmp",101:Show Sprite 1: Show Sprite 2:CLS:Goto Game

Goto Weaponselect

`Life Count
Lifecount:

Set Cursor 280,100
Print "Lives =",Lives
If Lives>0 then Wait 5000:PlayerposX=0:PlayerY=332:Goto Game
If Lives=0 then CLS:Goto Titlescreen

Loop

here.

The world would be a far better place when people stop posting "I need help" as their thread title. If you want your question answered quickly, we need to know your problem quickly!

Back to top

Profile PM

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 6th Jun 2005 20:47 Edited at: 6th Jun 2005 20:47

Link

I'm not sure exactly what the problem is but.

1. Try not to use goto unless you have to. Use functions or gosubs to group blocks of code you want to reuse.

+ Code Snippet

disable escapekey

do
  cls
  input "press y to play or n to quit ", s$
  if s$ = "y" then gosub _game
  if s$ = "n" then end
loop

_game:
  box 0,0,32,32
  get image 1,0,0,32,32,1
  sprite 1,0,0,1
  repeat
    cls
    if leftkey() then sprite 1,sprite x(1)-1,sprite y(1),1
    if rightkey() then sprite 1,sprite x(1)+1,sprite y(1),1
    if upkey() then sprite 1,sprite x(1),sprite y(1)-1,1
    if downkey() then sprite 1,sprite x(1),sprite y(1)+1,1
  until escapekey()
  delete sprite 1
return

Using gosubs, funtions or loops groups blocks of code together and makes it easier to keep organised. With goto it's easy to end up with code that jumps all over the place and is very difficult to follow and debug.

2. Assign images numbers and load them all outside the game loop.

+ Code Snippet

`images
`Beta = 10
`handgun = 11
`
Load Image "Player 1 Beta.bmp", 10
Load Image "Player 1 Handgun.bmp", 11

I suspect this is what is causing your problem. Sprite 2 has image no 101. In the weapon change bit you delete image 101. Sprite 2 no has no image which may cause the problem.
If you have the images loaded you just need to swap the sprites image number.
Either by using the sprite command

+ Code Snippet

`image no 1 red box
ink rgb(255,0,0),0
box 0,0,32,32
get image 1,0,0,32,32,1

`image no 2 white box
ink rgb(255,255,255),0
box 0,0,32,32
get image 2,0,0,32,32,1

sprite 1,200,200,1
do

  cls
  print "press return to swap image"
  sprite 1,200,200,sprite image(1)
  
  if returnkey()
    if sprite image(1) = 1
      sprite 1, 200, 200, 2
    else
      sprite 1, 200, 200, 1
    endif
    repeat 
      `
    until returnkey() = 0
  endif
loop

Or store the image number in a variable

+ Code Snippet

`image no 1 red box
ink rgb(255,0,0),0
box 0,0,32,32
get image 1,0,0,32,32,1

`image no 2 white box
ink rgb(255,255,255),0
box 0,0,32,32
get image 2,0,0,32,32,1

sprite_image = 1

do
  cls
  print "press return to swap image"
  sprite 1,200,200,sprite_image
  
  if returnkey()
    if sprite_image = 1
      sprite_image = 2
    else
      sprite_image = 1
    endif
    repeat 
      `
    until returnkey() = 0
  endif
loop

dbhelp - online dbpro help files with user comments

Back to top

Profile PM Website

Cairne

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: The Internet

Posted: 7th Jun 2005 07:21

Link

Honestly, I taught myself darkbasic and have never used gosub before, so it's all pretty confusing to me. I'll try to take your advice though, thanks for the help.

The world would be a far better place when people stop posting "I need help" as their thread title. If you want your question answered quickly, we need to know your problem quickly!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Sprite not recognized because... it's blue?