« previous next »
Pages: [1]   Go Down

Author Topic: last thing to ask today, i promise...  (Read 6053 times)

0 Members and 1 Guest are viewing this topic.

Offline codevsb12

  • Newbie
  • Posts: 23
    • View Profile
last thing to ask today, i promise...
« on: February 16, 2020, 08:33:19 pm »
what do i need to do so that my character stops moving when it hits the corner of the screen?
i already set up some variables such as x speed, y speed, x max, y max, etc.
Logged

FellippeHeitor

  • Guest
Re: last thing to ask today, i promise...
« Reply #1 on: February 16, 2020, 08:35:14 pm »
Show the code you already have first, so people can help debug it.
Logged

Offline codevsb12

  • Newbie
  • Posts: 23
    • View Profile
Re: last thing to ask today, i promise...
« Reply #2 on: February 16, 2020, 08:36:18 pm »
Code: QB64: [Select]
  1. DEFINT A-Z
  3.  
  4.  
  5. DATA 00,00,00,00,00,00,00,00,14,14,14,14,14,00,00,00,00,00,00,00,00
  6. DATA 00,00,00,00,00,00,00,14,14,14,14,14,14,14,00,00,00,00,00,00,00
  7. DATA 00,00,00,00,00,00,14,14,14,14,00,14,14,14,14,00,00,00,00,00,00
  8. DATA 00,00,00,00,00,00,14,14,14,14,14,14,14,00,00,00,00,00,00,00,00
  9. DATA 00,00,00,00,00,00,14,14,14,14,14,14,00,00,00,00,00,00,14,14,00
  10. DATA 00,00,00,00,00,00,14,14,14,14,14,14,14,00,00,00,00,14,14,14,14
  11. DATA 00,00,00,00,00,00,14,14,14,14,14,14,14,14,14,00,00,14,14,14,14
  12. DATA 00,00,00,00,00,00,00,14,14,14,14,14,14,14,00,00,00,00,14,14,00
  13. DATA 00,00,00,00,00,00,00,00,14,14,14,14,14,00,00,00,00,00,14,14,00
  14. DATA 00,00,00,00,00,00,00,14,14,14,14,14,14,14,00,00,00,00,14,14,00
  15. DATA 00,00,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,00
  16. DATA 00,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,00,00
  17. DATA 00,14,14,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  18. DATA 00,14,14,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  19. DATA 00,14,14,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  20. DATA 14,14,14,14,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  21. DATA 14,14,14,14,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  22. DATA 00,14,14,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  23. DATA 00,00,00,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  24. DATA 00,00,00,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  25. DATA 00,00,00,00,00,14,14,14,14,14,00,14,14,14,14,14,00,00,00,00,00
  26. DATA 00,00,00,00,00,14,14,14,14,00,00,00,14,14,14,14,00,00,00,00,00
  27. DATA 00,00,00,00,14,14,14,14,14,00,00,00,14,14,14,14,00,00,00,00,00
  28. DATA 00,00,00,00,14,14,14,14,00,00,00,00,00,14,14,14,14,00,00,00,00
  29. DATA 00,00,00,14,14,14,14,14,00,00,00,00,00,14,14,14,14,00,00,00,00
  30. DATA 00,00,00,14,14,14,14,00,00,00,00,00,00,14,14,14,14,00,14,14,00
  31. DATA 00,00,14,14,14,14,14,00,00,00,00,00,00,14,14,14,14,14,14,14,00
  32. DATA 00,00,00,14,14,14,14,14,14,00,00,00,00,14,14,14,14,14,14,14,00
  33. DATA 00,00,00,00,14,14,14,14,14,00,00,00,14,14,14,14,14,14,00,00,00
  34. DATA 00,00,00,00,00,14,14,14,00,00,00,00,00,14,14,00,00,00,00,00,00
  35.  
  36. FOR y = 1 TO 30
  37.     FOR x = 0 TO 20
  38.         READ sprite%: PSET (x, y), sprite%
  39.     NEXT x
  41.  
  42. DIM player%(500)
  43.  
  44. GET (0, 1)-(20, 30), player%()
  45.  
  46. xp = 64
  47. yp = 70
  48. xb = 400
  49. yb = 300
  50. xmax = 639
  51. ymax = 349
  52. xspd = 0
  53. yspd = 0
  54.  
  56.  
  57.  
  58. tecla:
  59. PUT (xp, yp), player%()
  60. WAIT &H3DA, 8
  61. PUT (xp, yp), player%()
  62. te$ = INKEY$
  63. IF te$ = "d" THEN xp = xp + 2
  64. IF te$ = "a" THEN xp = xp - 2
  65. IF te$ = "w" THEN yp = yp - 2
  66. IF te$ = "s" THEN yp = yp + 2
  67. IF te$ = "q" THEN END
  68. GOTO tecla:
  69.  
« Last Edit: February 16, 2020, 08:44:37 pm by odin »
Logged

FellippeHeitor

  • Guest
Re: last thing to ask today, i promise...
« Reply #3 on: February 16, 2020, 08:47:33 pm »
Use IF to limit xp and yp to the screen boundaries:

Code: QB64: [Select]
  1. DEFINT A-Z
  3.  
  4.  
  5. DATA 00,00,00,00,00,00,00,00,14,14,14,14,14,00,00,00,00,00,00,00,00
  6. DATA 00,00,00,00,00,00,00,14,14,14,14,14,14,14,00,00,00,00,00,00,00
  7. DATA 00,00,00,00,00,00,14,14,14,14,00,14,14,14,14,00,00,00,00,00,00
  8. DATA 00,00,00,00,00,00,14,14,14,14,14,14,14,00,00,00,00,00,00,00,00
  9. DATA 00,00,00,00,00,00,14,14,14,14,14,14,00,00,00,00,00,00,14,14,00
  10. DATA 00,00,00,00,00,00,14,14,14,14,14,14,14,00,00,00,00,14,14,14,14
  11. DATA 00,00,00,00,00,00,14,14,14,14,14,14,14,14,14,00,00,14,14,14,14
  12. DATA 00,00,00,00,00,00,00,14,14,14,14,14,14,14,00,00,00,00,14,14,00
  13. DATA 00,00,00,00,00,00,00,00,14,14,14,14,14,00,00,00,00,00,14,14,00
  14. DATA 00,00,00,00,00,00,00,14,14,14,14,14,14,14,00,00,00,00,14,14,00
  15. DATA 00,00,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,00
  16. DATA 00,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,00,00
  17. DATA 00,14,14,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  18. DATA 00,14,14,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  19. DATA 00,14,14,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  20. DATA 14,14,14,14,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  21. DATA 14,14,14,14,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  22. DATA 00,14,14,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  23. DATA 00,00,00,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  24. DATA 00,00,00,00,00,00,14,14,14,14,14,14,14,14,14,00,00,00,00,00,00
  25. DATA 00,00,00,00,00,14,14,14,14,14,00,14,14,14,14,14,00,00,00,00,00
  26. DATA 00,00,00,00,00,14,14,14,14,00,00,00,14,14,14,14,00,00,00,00,00
  27. DATA 00,00,00,00,14,14,14,14,14,00,00,00,14,14,14,14,00,00,00,00,00
  28. DATA 00,00,00,00,14,14,14,14,00,00,00,00,00,14,14,14,14,00,00,00,00
  29. DATA 00,00,00,14,14,14,14,14,00,00,00,00,00,14,14,14,14,00,00,00,00
  30. DATA 00,00,00,14,14,14,14,00,00,00,00,00,00,14,14,14,14,00,14,14,00
  31. DATA 00,00,14,14,14,14,14,00,00,00,00,00,00,14,14,14,14,14,14,14,00
  32. DATA 00,00,00,14,14,14,14,14,14,00,00,00,00,14,14,14,14,14,14,14,00
  33. DATA 00,00,00,00,14,14,14,14,14,00,00,00,14,14,14,14,14,14,00,00,00
  34. DATA 00,00,00,00,00,14,14,14,00,00,00,00,00,14,14,00,00,00,00,00,00
  35.  
  36. FOR y = 1 TO 30
  37.     FOR x = 0 TO 20
  38.         READ sprite%: PSET (x, y), sprite%
  39.     NEXT x
  41.  
  42. DIM player%(500)
  43.  
  44. GET (0, 1)-(20, 30), player%()
  45.  
  46. xp = 64
  47. yp = 70
  48. xb = 400
  49. yb = 300
  50. xmax = 639
  51. ymax = 349
  52. xspd = 0
  53. yspd = 0
  54.  
  56.  
  57.  
  59.     CLS
  60.     IF xp > _WIDTH - 20 THEN xp = _WIDTH - 20
  61.     IF xp < 0 THEN xp = 0
  62.     IF yp > _HEIGHT - 30 THEN yp = _HEIGHT - 30
  63.     IF yp < 0 THEN yp = 0
  64.     PUT (xp, yp), player%(), _CLIP
  65.     _DISPLAY
  66.     te$ = INKEY$
  67.     IF te$ = "d" THEN xp = xp + 2
  68.     IF te$ = "a" THEN xp = xp - 2
  69.     IF te$ = "w" THEN yp = yp - 2
  70.     IF te$ = "s" THEN yp = yp + 2
  71.     IF te$ = "q" THEN END
  73.  
  74.  

_DISPLAY is used here to stop the flickering, and instead of a GOTO, I added a DO/LOOP block.

PS: When you post code in the forum, make sure to add [code=qb64] before and [/code] after your code block.
« Last Edit: February 16, 2020, 08:50:57 pm by FellippeHeitor »
Logged

Offline codevsb12

  • Newbie
  • Posts: 23
    • View Profile
Re: last thing to ask today, i promise...
« Reply #4 on: February 17, 2020, 07:06:13 pm »
just wanna check if it runs on dos box or something before i put it in my code

edit: it doesnt

c'mon, i know someone has the solution...

edit2: i tried it by myself, and now my character dies when going straight to the right

i dont even need to put the entire code, so...

Code: QB64: [Select]
  1. xp = 64
  2. yp = 70
  3. xb = 400
  4. yb = 300
  5. xmax = 639
  6. ymax = 349
  7.  
  9.  
  10.  
  11. tecla:
  12. PUT (xp, yp), player%()
  13. PUT (xp, yp), player%()
  14. IF xp <= 1 THEN xp = 1
  15. IF xp > 639 THEN xp = xmax
  16. IF yp <= 1 THEN yp = 1
  17. IF yp >= ymax THEN yp = ymax
  18. te$ = INKEY$
  19. IF te$ = "d" THEN xp = xp + 2
  20. IF te$ = "a" THEN xp = xp - 2
  21. IF te$ = "w" THEN yp = yp - 2
  22. IF te$ = "s" THEN yp = yp + 2
  23. IF te$ = "q" THEN END
  24. GOTO tecla:
  25.  

« Last Edit: February 17, 2020, 07:32:32 pm by codevsb12 »
Logged

FellippeHeitor

  • Guest
Re: last thing to ask today, i promise...
« Reply #5 on: February 17, 2020, 07:21:30 pm »
Quote
c'mon, i know someone has the solution...

Love your attitude.

When is your homework due?
« Last Edit: February 17, 2020, 07:51:01 pm by FellippeHeitor »
Logged

Offline Richard Frost

  • Seasoned Forum Regular
  • Posts: 316
  • Needle nardle noo. - Peter Sellers
    • View Profile
Re: last thing to ask today, i promise...
« Reply #6 on: February 17, 2020, 08:24:08 pm »
The bounds checking should be immediately after you change the variables.
The way you've got it, if that code is in a loop, you'll get PUTs with invalid
parameters.  It probably won't crash QB64, but why take a chance?
Logged
It works better if you plug it in.

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: last thing to ask today, i promise...
« Reply #7 on: February 18, 2020, 09:20:10 am »
Quote
just wanna check if it runs on dos box or something before i put it in my code

Are you using QB64 or some other QB? Dosbox shouldn't matter if you're using QB64, amirite?
Logged
You're not done when it works, you're done when it's right.
Pages: [1]   Go Up
« previous next »