Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Mudkip In Disguise

Pages: [1]
1
QB64 Discussion / Re: How do I make collision work between the player and the level?
« on: March 22, 2020, 04:18:03 pm »
This looks very interesting. I would like to see a bit of an in-depth explanation about how this works.

2
QB64 Discussion / Re: How do I make collision work between the player and the level?
« on: March 22, 2020, 03:25:43 pm »
Thank you!

3
QB64 Discussion / How do I make collision work between the player and the level?
« on: March 22, 2020, 02:16:08 pm »
I am trying to make a game where the player walks through rooms.
I can't figure out how to prevent the player from walking through the walls.
Move with WASD
if the screen is black when ran, press WASD

***Here is the code***
Code: QB64: [Select]
  3. 'COLOR VARIBLES AND STUFF
  4. MAPX = 15
  5. MAPY = 15
  6. PC = 7
  7. SC = 8
  8. FC = 6
  9. CC = 4
  10. x = 3
  11. y = 3
  13.     'This makes the map
  14.     jail:
  15.     DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  16.     DATA 1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,2
  17.     DATA 1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,1
  18.     DATA 1,0,0,0,1,0,0,0,1,1,1,1,1,0,1,1
  19.     DATA 1,3,0,3,1,3,3,3,1,0,0,0,0,0,0,1
  20.     DATA 1,0,0,0,0,0,0,0,1,0,1,1,1,1,1,1
  21.     DATA 1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1
  22.     DATA 1,1,1,1,1,1,2,1,1,1,1,1,0,1,1,1
  23.     DATA 1,0,0,0,0,0,0,0,1,0,0,0,0,1,0,1
  24.     DATA 1,0,0,0,0,0,0,0,1,0,1,1,1,1,0,1
  25.     DATA 1,0,0,0,0,0,0,0,2,0,0,0,0,0,0,1
  26.     DATA 1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1
  27.     DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  28.     DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  29.     DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  30.     DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  31.  
  32.     'KEYPRESSES
  33.     PRINT MID$(PSCANY$, y - 1, y - 1)
  34.     K$ = LCASE$(INKEY$)
  35.     IF K$ = "w" THEN
  36.         y = y - 1: u = 1
  37.         IF a = y AND u = 1 AND num = 1 THEN
  38.             y = y + 1
  39.         END IF
  40.     END IF
  41.     IF K$ = "s" THEN
  42.         y = y + 1: d = 1
  43.         IF a = y AND d = 1 AND num = 1 THEN
  44.             y = y - 1
  45.             d = 0
  46.         END IF
  47.     END IF
  48.     IF K$ = "a" THEN x = x - 1: l = 1
  49.     IF K$ = "d" THEN x = x + 1: r = 1
  50.     IF K$ = "w" OR K$ = "s" OR K$ = "a" OR K$ = "d" THEN
  51.         'RENDER/UPDATE ROOM WHEN MOVEMENT IS DETECTED
  52.         PLAY "MB O1 GL64"
  53.         RESTORE jail:
  54.         DIM room(15, 15)
  55.         FOR a = 0 TO MAPX
  56.             FOR b = 0 TO MAPY
  57.                 READ room
  58.                 num = room
  59.                 IF num = 0 THEN
  60.                     LOCATE a + 1, b + 1
  61.                     COLOR CC, FC
  62.                     PRINT "_"
  63.  
  64.  
  65.                 END IF
  66.  
  67.                 IF num = 1 THEN
  68.                     LOCATE a + 1, b + 1
  69.                     COLOR PC, SC
  70.                     PRINT "°"
  71.                 END IF
  72.  
  73.                 IF num = 2 THEN
  74.                     LOCATE a + 1, b + 1
  75.                     COLOR 9, 12
  76.                     PRINT ""
  77.  
  78.  
  79.                 END IF
  80.                 IF num = 3 THEN
  81.                     LOCATE a + 1, b + 1
  82.                     COLOR 3, FC
  83.                     PRINT "Ñ"
  84.  
  85.  
  86.                 END IF
  87.                 u = 0
  88.  
  89.  
  90.                 LOCATE 20, 10
  91.             NEXT b
  92.  
  93.         NEXT a
  94.  
  95.         'DRAW PLAYER
  96.         LOCATE y, x
  97.         COLOR 14, 0
  98.         PRINT ""
  99.         _DISPLAY
  100.         CLS
  101.  
  102.  
  103.     END IF
  105.  

Pages: [1]