what Am I doing wrong here? Sprite movement problem

Author

Message

Fang

23

Years of Service

User Offline

Joined: 2nd Jul 2003

Location:

Posted: 30th Aug 2003 05:43

Link

Hi people,

Please assit me on this one...don't know what's going on, an since I can't debug properly(bug in DBP)
The code is supposed to make a grid, load a sprite and when i us the arrow keys, move the sprite ONE square in the direction pressed, but this isn't work...it speeds all the way across the grid....

Thanks in Advance.

Fang

load image "stone02.jpg", 1
  set sprite 1,0,1
  sprite 1, 0, 0, 1
  size sprite 1,50,50
  show sprite 1
  xc = sprite x (1)
  yc = sprite y (1)
  print xc
  print yc

do
 _afterkey:
  drawgrid(800,600)

if leftkey()=1 then cls : gosub lk
  if upkey()=1 then cls : gosub uk
  if rightkey()=1 then cls : gosub rk
  if downkey()=1 then cls : gosub dk

loop

lk:
    if xc = 0
    xc = 0
    else xc = xc - 50
    endif
    movesprite(1,xc - 50,0)
  return

uk:
    if xy = 0
    yc = 0
    else yxc = yc - 50
    endif
    movesprite(1,0,yc - 50)
  return

rk:
    if xc > 600
    xc = 600
    else xc = xc + 50
    endif
    movesprite(1,xc + 50,0)
  return

dk:
    if yc = 800
    yc = 800
    else yc = yc - 50
    endif
    movesprite(1,0,yc + 50)
  return

function drawgrid(xcoord as integer,ycoord as integer)
  ink rgb(255,255,255),rgb(0,0,0)
  for x = 0 to xcoord step 50
   line x,0,x,xcoord
  next x

for y = 0 to ycoord step 50
   line 0,y,xcoord,y
  next y
  result = 0
endfunction result

function movesprite(sprite_num as integer, xcoord as integer, ycoord as integer)
  set sprite 1,0,1
  sprite 1, xcoord, ycoord, 1
  size sprite 1,50,50
  show sprite 1
  result = 0
endfunction result

+ Code Snippet

  load image "stone02.jpg", 1
  set sprite 1,0,1
  sprite 1, 0, 0, 1
  size sprite 1,50,50
  show sprite 1
  xc = sprite x (1)
  yc = sprite y (1)
  print xc
  print yc

do
 _afterkey:
  drawgrid(800,600)

  if leftkey()=1 then cls : gosub lk
  if upkey()=1 then cls : gosub uk
  if rightkey()=1 then cls : gosub rk
  if downkey()=1 then cls : gosub dk

loop

  lk:
    if xc = 0
    xc = 0
    else xc = xc - 50
    endif
    movesprite(1,xc - 50,0)
  return

  uk:
    if xy = 0
    yc = 0
    else yxc = yc - 50
    endif
    movesprite(1,0,yc - 50)
  return

  rk:
    if xc > 600
    xc = 600
    else xc = xc + 50
    endif
    movesprite(1,xc + 50,0)
  return

  dk:
    if yc = 800
    yc = 800
    else yc = yc - 50
    endif
    movesprite(1,0,yc + 50)
  return

function drawgrid(xcoord as integer,ycoord as integer)
  ink rgb(255,255,255),rgb(0,0,0)
  for x = 0 to xcoord step 50
   line x,0,x,xcoord
  next x

  for y = 0 to ycoord step 50
   line 0,y,xcoord,y
  next y
  result = 0
endfunction result


function movesprite(sprite_num as integer, xcoord as integer, ycoord as integer)
  set sprite 1,0,1
  sprite 1, xcoord, ycoord, 1
  size sprite 1,50,50
  show sprite 1
  result = 0
endfunction result

"I really don't know how WWIII will be fought, but WWIV will be with sticks and stones"
- Albert Einstien

Back to top

Profile PM

Fallout

23

Years of Service

User Offline

Joined: 1st Sep 2002

Location: Basingstoke, England

Posted: 30th Aug 2003 06:21

Link

From the looks of things, its just that your program is running really quickly, and as you hold the key down it's moving it square by square in quick succession.

Try doing this:

load image "stone02.jpg", 1
  set sprite 1,0,1
  sprite 1, 0, 0, 1
  size sprite 1,50,50
  show sprite 1
  xc = sprite x (1)
  yc = sprite y (1)
  print xc
  print yc
  keybeingheld = 0

do
 _afterkey:
  drawgrid(800,600)

if scancode() = 0 then keybeingheld = 0
  if keybeingheld = 0
     if leftkey()=1 then cls : gosub lk
     if upkey()=1 then cls : gosub uk
     if rightkey()=1 then cls : gosub rk
     if downkey()=1 then cls : gosub dk
  endif
loop

lk:
    if xc = 0
    xc = 0
    else xc = xc - 50
    endif
    movesprite(1,xc - 50,0)
    keybeingheld = 1
  return

uk:
    if xy = 0
    yc = 0
    else yxc = yc - 50
    endif
    movesprite(1,0,yc - 50)
    keybeingheld = 1
  return

rk:
    if xc > 600
    xc = 600
    else xc = xc + 50
    endif
    movesprite(1,xc + 50,0)
    keybeingheld = 1
  return

dk:
    if yc = 800
    yc = 800
    else yc = yc - 50
    endif
    movesprite(1,0,yc + 50)
    keybeingheld = 1
  return

function drawgrid(xcoord as integer,ycoord as integer)
  ink rgb(255,255,255),rgb(0,0,0)
  for x = 0 to xcoord step 50
   line x,0,x,xcoord
  next x

for y = 0 to ycoord step 50
   line 0,y,xcoord,y
  next y
  result = 0
endfunction result

function movesprite(sprite_num as integer, xcoord as integer, ycoord as integer)
  set sprite 1,0,1
  sprite 1, xcoord, ycoord, 1
  size sprite 1,50,50
  show sprite 1
  result = 0
endfunction result

+ Code Snippet

load image "stone02.jpg", 1
  set sprite 1,0,1
  sprite 1, 0, 0, 1
  size sprite 1,50,50
  show sprite 1
  xc = sprite x (1)
  yc = sprite y (1)
  print xc
  print yc
  keybeingheld = 0

do
 _afterkey:
  drawgrid(800,600)

  if scancode() = 0 then keybeingheld = 0
  if keybeingheld = 0
     if leftkey()=1 then cls : gosub lk
     if upkey()=1 then cls : gosub uk
     if rightkey()=1 then cls : gosub rk
     if downkey()=1 then cls : gosub dk
  endif
loop

  lk:
    if xc = 0
    xc = 0
    else xc = xc - 50
    endif
    movesprite(1,xc - 50,0)
    keybeingheld = 1
  return

  uk:
    if xy = 0
    yc = 0
    else yxc = yc - 50
    endif
    movesprite(1,0,yc - 50)
    keybeingheld = 1
  return

  rk:
    if xc > 600
    xc = 600
    else xc = xc + 50
    endif
    movesprite(1,xc + 50,0)
    keybeingheld = 1
  return

  dk:
    if yc = 800
    yc = 800
    else yc = yc - 50
    endif
    movesprite(1,0,yc + 50)
    keybeingheld = 1
  return

function drawgrid(xcoord as integer,ycoord as integer)
  ink rgb(255,255,255),rgb(0,0,0)
  for x = 0 to xcoord step 50
   line x,0,x,xcoord
  next x

  for y = 0 to ycoord step 50
   line 0,y,xcoord,y
  next y
  result = 0
endfunction result


function movesprite(sprite_num as integer, xcoord as integer, ycoord as integer)
  set sprite 1,0,1
  sprite 1, xcoord, ycoord, 1
  size sprite 1,50,50
  show sprite 1
  result = 0
endfunction result

That's not tested, but that should solve it. It should force the player to release the key before it will accept any more key presses.

Insiiiiiiiiiiiiiiiiiiiiiiiide!

Back to top

Profile PM

Fang

23

Years of Service

User Offline

Joined: 2nd Jul 2003

Location:

Posted: 30th Aug 2003 06:24

Link

Thanks!
I should have thought about it before...using a semaphore...

Thanks!!

"I really don't know how WWIII will be fought, but WWIV will be with sticks and stones"
- Albert Einstien

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / what Am I doing wrong here? Sprite movement problem