sprite not appearing on the correct coordinates

Author

Message

Zeus

18

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 3rd Apr 2007 20:05

Link

I hate to ask so many questions in one day. I have spent nearly an hour to figure out where the sprite should be pasted after you have moved. Example,

When I press the down key it moves down slowly.
When I get to the bottom I press the up key.
Then the sprite appears WAY up to the top of the screen.
It was supposed to go up where ever the player moved it to (e.g the bottom of the screen).

Code:

+ Code Snippet

cls
`Set players start Position
PlayerX=50
PlayerY=50
direction=0
sprite 1,PlayerX,PlayerY,5
sprite 2,PlayerX,PlayerY,6
hide sprite 2
do
backdrop off
paste image 3,0,0
paste image 4,0,0
if upkey()=1
if spritehidden=1 then show sprite 1
direction=1
endif
if rightkey()=1
direction=2
endif
if downkey()=1
hide sprite 1
spritehidden=1
show sprite 2
spriteshown=2
direction=3
endif
if leftkey()=1
direction=4
endif
if direction = 1
if spriteshown=2 then hide sprite 2
hide sprite 1
move sprite 1,0.1
endif
if direction=3
move sprite 2,-0.1
endif
loop

Any help would be greatly appreciated.

Back to top

Profile PM Email

zeddex2

17

Years of Service

User Offline

Joined: 4th Mar 2007

Location:

Posted: 3rd Apr 2007 20:25

Link

+ Code Snippet

if direction = 1
if spriteshown=2 then hide sprite 2
hide sprite 1
move sprite 1,0.1
endif


if direction=3
move sprite 2,-0.1
endif

basicaly, if downkey is press , sprite 2 go down
if upkey is press sprite 1 go up

so your not moving the same sprite !!!!

PS i just want to help but your code is like really hard to read. Can you anderstand it like he are now ??

If you can, I can!

Back to top

Profile PM Email

Zeus

18

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 3rd Apr 2007 20:53

Link

sorry, here it's easier now.

+ Code Snippet

cls
`Set players start Position
PlayerX=50
PlayerY=50
direction=0


sprite 1,PlayerX,PlayerY,5
sprite 2,PlayerX,PlayerY,6
hide sprite 2


do
backdrop off
paste image 3,0,0
paste image 4,0,0

if upkey()=1
if spritehidden=1 then show sprite 1
direction=1
endif

if rightkey()=1
direction=2
endif

if downkey()=1
hide sprite 1
spritehidden=1
show sprite 2
spriteshown=2
direction=3

endif
if leftkey()=1
direction=4
endif

if direction = 1
if spriteshown=2 then hide sprite 2
hide sprite 1
move sprite 1,0.1
endif

if direction=3
move sprite 2,-0.1
endif
loop

Back to top

Profile PM Email

zeddex2

17

Years of Service

User Offline

Joined: 4th Mar 2007

Location:

Posted: 3rd Apr 2007 21:00

Link

i read your code like this,

sprite 1 and 2 are at position 50, 50
you hide sprite 2

if upkey then dir = 1
if downkey dir = 3

if dir = 1 then move sprite 1 up
if dir = 3 move sprite 2 down

but basically sprite 2 is hide so you don't see anything and sprite. just try that with 1 sprite first

+ Code Snippet

if direction = 1 then move sprite 1, 0.1
if direction = 3 then move sprite 1, -0.1

just tell me if the sprite move correctly

If you can, I can!

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 5th Apr 2007 20:14

Link

Jordan:

Try indenting your code!

You'll find it much easier to read and more people will help if it doesn't look like a jumbled mess...

+ Code Snippet

cls
`Set players start Position
PlayerX=50
PlayerY=50
direction=0

sprite 1,PlayerX,PlayerY,5
sprite 2,PlayerX,PlayerY,6
hide sprite 2

do
  backdrop off
  paste image 3,0,0
  paste image 4,0,0

  if upkey()=1
    if spritehidden=1 then show sprite 1
    direction=1
  endif
  
  if rightkey()=1
    direction=2
  endif

  if downkey()=1
    hide sprite 1
    spritehidden=1
    show sprite 2
    spriteshown=2
    direction=3

  endif
  if leftkey()=1
    direction=4
  endif
  
  if direction = 1
    if spriteshown=2 then hide sprite 2
    hide sprite 1
    move sprite 1,0.1
  endif
  
  if direction=3
    move sprite 2,-0.1
  endif
loop

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 6th Apr 2007 02:58

Link

here is a sprite example JSG

read each part for an idea how to set this up.
this example is using arrays to manage things.
you could use typed arrays as well for a more effecient way to manage multiple objects.

rem --------------------------------------------------------------------
rem Sprite and 3D example
rem using arrays instead of typed arrays for compatability DBC/DBP
rem indi
rem april 6 2007
rem --------------------------------------------------------------------

REM BASIC GAME SETUP
sync rate 60 : sync on : randomize timer()
set text font "verdana" : set text size 24 :ink rgb(255,255,255),1

REM MAKE BGD CUBE
make object cube 1,25
position object 1,0,0,0

REM PRECALC SINEWAVE into an array : Usage is tSin#(var)
Dim tSin#(360) : For i = 0 To 360 : tSin#(i) = Sin(i) : Next i

REM PLAYER ARRAYS FOR X AND Y
dim plr1x(1) : dim plr1y(1)

REM PLAYER START LOCATION
plr1_start_pos_x = 10 : plr1_start_pos_y = 10

REM FILL PLAYER ARRAYS WITH DATA
plr1x(1) = plr1_start_pos_x : plr1y(1) = plr1_start_pos_y

REM CREATE AN ARRAY TO STORE THE OLD LOCATION WHEN COLLISION OCCURS
dim oldplr1x(1) : dim oldplr1y(1)

REM FILL OLD PLAYER LOCATION ARRAYS WITH DATA
oldplr1x(1) = plr1_start_pos_x : oldplr1y(1) = plr1_start_pos_y

REM CREATE A PLAYER LIVES ARRAY AND FILL IT
dim plr1lives(1) : plr1lives(1) = 5

REM CREATE AN ENEMY ARRAY
dim enemyx(6) : dim enemyy(6)

REM TEMP PLAYER COLOUR
cls
ink rgb(rnd(255),rnd(255),rnd(255)),1 : box 0,0,16,16
get image 1,0,0,16,16
cls

REM TEMP ENEMY COLOURS
for i = 2 to 6
   ink rgb(rnd(255),rnd(255),rnd(255)),1 : box 0,0,16,16
   get image i,0,0,16,16
next i

cls

REM PLACE ENEMIES FROM ARRAY DATA
for i = 2 to 6
   enemyx(i) = i * 50
   enemyy(i) = i * 50
   sprite i,enemyx(i),enemyy(i),i
next i

REM PRE MAIN
position camera 0,50,-50
point camera 0,0,0

REM MAIN LOOP START
disable escapekey : while escapekey()=0

r = wrapvalue(r+1)
      rotate object 1,r,r,r

REM CONTROL PLAYER
      if upkey()=1 then plr1y(1) = plr1y(1)-3
      if downkey()=1 then plr1y(1) = plr1y(1)+3
      if leftkey()=1 then plr1x(1) = plr1x(1)-3
      if rightkey()=1 then plr1x(1) = plr1x(1)+3

REM UPDATE PLAYERS POSITION
      sprite 1,plr1x(1),plr1y(1),1

REM UPDATE MOVING ENEMY Number 6
      h = h + 1
      h = wrapvalue(h)
      v = v + 4
      v = wrapvalue(v)
      enemyx(6) = int(tSin#(h)*-145) + 320
      enemyy(6) = int(tSin#(v)*-145) + 240
      sprite 6,enemyx(6),enemyy(6),6

REM CHECK PLAYERS COLLISION FOR ALL ENEMYS
      REM CHANGE LIVES AND END GAME IF LIVES = 0
      if sprite hit(1,0)>0
        if sprite collision(1,0)>0
           plr1x(1) = oldplr1x(1)
           plr1y(1) = oldplr1y(1)
           plr1lives(1) = plr1lives(1) - 1
           if plr1lives(1) = 0
            cls
            REM GAME OVER
            end
           endif
           text 100,10," plr1 lives :" + STR$(plr1lives(1))
           sprite 1,plr1x(1),plr1y(1),1
        endif
      endif

REM UPDATE THE SCREEN EACH LOOP WITH TEXT
text 1,1,"Fps:" + STR$(screen fps())
text 1,30,"Lives :" + STR$(plr1lives(1))

REM END MAIN LOOP
sync : endwhile

REM END
end

+ Code Snippet

rem --------------------------------------------------------------------
rem Sprite and 3D example
rem using arrays instead of typed arrays for compatability DBC/DBP
rem indi
rem april 6 2007
rem --------------------------------------------------------------------

REM BASIC GAME SETUP
sync rate 60 : sync on : randomize timer()
set text font "verdana" : set text size 24 :ink rgb(255,255,255),1

REM MAKE BGD CUBE
make object cube 1,25
position object 1,0,0,0



REM PRECALC SINEWAVE into an array : Usage is tSin#(var)
Dim tSin#(360) : For i = 0 To 360 : tSin#(i) = Sin(i) : Next i



REM PLAYER ARRAYS FOR X AND Y
dim plr1x(1) : dim plr1y(1)

REM PLAYER START LOCATION
plr1_start_pos_x = 10 : plr1_start_pos_y = 10


REM FILL PLAYER ARRAYS WITH DATA
plr1x(1) = plr1_start_pos_x : plr1y(1) = plr1_start_pos_y


REM CREATE AN ARRAY TO STORE THE OLD LOCATION WHEN COLLISION OCCURS
dim oldplr1x(1) : dim oldplr1y(1)


REM FILL OLD PLAYER LOCATION ARRAYS WITH DATA
oldplr1x(1) = plr1_start_pos_x : oldplr1y(1) = plr1_start_pos_y


REM CREATE A PLAYER LIVES ARRAY AND FILL IT
dim plr1lives(1) : plr1lives(1) = 5


REM CREATE AN ENEMY ARRAY
dim enemyx(6) : dim enemyy(6)



REM TEMP PLAYER COLOUR
cls
ink rgb(rnd(255),rnd(255),rnd(255)),1 : box 0,0,16,16
get image 1,0,0,16,16
cls

REM TEMP ENEMY COLOURS
for i = 2 to 6
   ink rgb(rnd(255),rnd(255),rnd(255)),1 : box 0,0,16,16
   get image i,0,0,16,16
next i

cls

REM PLACE ENEMIES FROM ARRAY DATA
for i = 2 to 6
   enemyx(i) = i * 50
   enemyy(i) = i * 50
   sprite i,enemyx(i),enemyy(i),i
next i


REM PRE MAIN
position camera 0,50,-50
point camera 0,0,0

REM MAIN LOOP START
disable escapekey : while escapekey()=0

      r = wrapvalue(r+1)
      rotate object 1,r,r,r

      REM CONTROL PLAYER
      if upkey()=1 then plr1y(1) = plr1y(1)-3
      if downkey()=1 then plr1y(1) = plr1y(1)+3
      if leftkey()=1 then plr1x(1) = plr1x(1)-3
      if rightkey()=1 then plr1x(1) = plr1x(1)+3

      REM UPDATE PLAYERS POSITION
      sprite 1,plr1x(1),plr1y(1),1

      REM UPDATE MOVING ENEMY Number 6
      h = h + 1
      h = wrapvalue(h)
      v = v + 4
      v = wrapvalue(v)
      enemyx(6) = int(tSin#(h)*-145) + 320
      enemyy(6) = int(tSin#(v)*-145) + 240
      sprite 6,enemyx(6),enemyy(6),6

      REM CHECK PLAYERS COLLISION FOR ALL ENEMYS
      REM CHANGE LIVES AND END GAME IF LIVES = 0
      if sprite hit(1,0)>0
        if sprite collision(1,0)>0
           plr1x(1) = oldplr1x(1)
           plr1y(1) = oldplr1y(1)
           plr1lives(1) = plr1lives(1) - 1
           if plr1lives(1) = 0
            cls
            REM GAME OVER
            end
           endif
           text 100,10," plr1 lives :" + STR$(plr1lives(1))
           sprite 1,plr1x(1),plr1y(1),1
        endif
      endif

REM UPDATE THE SCREEN EACH LOOP WITH TEXT
text 1,1,"Fps:" + STR$(screen fps())
text 1,30,"Lives :" + STR$(plr1lives(1))

REM END MAIN LOOP
sync : endwhile

REM END
end

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / sprite not appearing on the correct coordinates