Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Cobalt on July 23, 2020, 04:20:57 pm

Title: Alis does the jitter bug!(fixed)
Post by: Cobalt on July 23, 2020, 04:20:57 pm
Ok so I am trying to get the movement working in my current Clone Project 'Phantasy Star' from the sega master system c.1987

but the main character Alis, seem to have a jitter bug. its like one of the frames is momentarily getting popped in just enough to affect the look of the movement. I've tried variations on the routine I use to work the animation, but it persists. I even tried moving the sprites around on the sprite sheet to see if something was up there.  the program still has the original data lines from the first sprite setup. before I rearranged them.

Time for another set of eyes to look.(or many sets)

its not pretty code as this isn't the final product its just a proof of concept and R&D program.
Code: QB64: [Select]
  1. TYPE Game
  2.  Status AS _BYTE
  3.  Facing AS _BYTE
  4.  Moving AS _BYTE
  6. TYPE SpriteData
  7.  Lx AS INTEGER 'sprite location
  8.  Ly AS INTEGER
  9.  Sx AS INTEGER 'sprite size
  10.  Sy AS INTEGER
  12.  
  13. CONST standing = 1, walking = 2
  14. CONST down = 0, up = 1, right = 2, left = 3
  15. CONST TRUE = -1, FALSE = NOT TRUE
  16.  
  17. CONST Default_Key_Right = 19712, Default_Key_Left = 19200, Default_Key_Up = 18432, Default_Key_Down = 20480
  18. CONST Default_A_Button = 32, Default_B_Button = 13, Default_Start_Button = 65, Default_Select_Button = 66
  19.  
  20.  
  21. DIM SHARED g AS Game, char&, frame%%, AlisFrames(16) AS SpriteData, AlisAnim(4) AS _BYTE, MIX&
  22. '--------------Alis Character Sprites-----------------
  23. DATA 47,0,17,24,49,27,14,24,50,54,15,24,49,81,14,24: 'Standing Sprites DN\UP\RT\LT
  24. DATA 0,1,15,24,16,1,14,24,31,1,15,24: 'walking down sprites
  25. DATA 0,28,14,24,17,28,13,24,32,28,14,24: 'walking Up sprites
  26. DATA 0,54,16,24,17,54,15,24,34,54,13,24: 'walking Right sprites
  27. DATA 0,81,13,24,15,81,14,24,31,81,16,24: 'walking Left sprites
  28. DATA 0,1,2,1: 'animation frame order
  29. FOR I%% = 0 TO 15
  30.  READ AlisFrames(I%%).Lx, AlisFrames(I%%).Ly, AlisFrames(I%%).Sx, AlisFrames(I%%).Sy
  31.  PRINT AlisFrames(I%%).Lx
  32. NEXT I%%
  33. FOR I%% = 0 TO 3
  34.  READ AlisAnim(I%%)
  35. NEXT I%%
  36.  
  37. 'map& = _LOADIMAGE("PStarTownsALL.bmp", 32) '1760x1600[110x100tiles]
  38. tile& = _LOADIMAGE("TownTileMasterLinear.png", 32) '
  39. char& = _LOADIMAGE("CharacterSheetC.png", 32) '
  40. OPEN "PhantasyStarTowns.dat" FOR BINARY AS #1
  41. DIM SHARED TownMap(256, 256) AS _UNSIGNED _BYTE
  42. _CLEARCOLOR _RGB32(62), char&
  43. 'alis start point 1968x128
  44. GET #1, , TownMap()
  45.  
  46. SCREEN _NEWIMAGE(640, 480, 32)
  47. MIX& = _NEWIMAGE(640, 480, 32)
  48. Townlayer& = _NEWIMAGE(8192, 8192, 32)
  49. 'build a section of the towns map sheet
  50. FOR y%% = 0 TO 99
  51.  FOR x%% = 0 TO 109
  52.   _PUTIMAGE (0 + 32 * x%%, 0 + 32 * y%%)-STEP(31, 31), tile&, Townlayer&, (0 + 17 * TownMap(x%%, y%%), 0)-STEP(15, 15)
  53.  NEXT x%%
  54. NEXT y%%
  55. '_SCREENMOVE 10, 10
  56. 'SLEEP
  57. '---------------------------------------
  58. g.Status = standing
  59. 'g.Status = walking
  60. g.Facing = down
  61. Px% = 0: Py% = 0
  62.  
  63. Mx% = 69 'players position within map array X
  64. My% = 10 ' players position within map array Y
  65.  
  66. 'FOR I%% = 0 TO 15
  67. '_PUTIMAGE (0 + 32 * I%%, 10)-STEP(-1 + AlisFrames(I%%).Sx * 2, -1 + AlisFrames(I%%).Sy * 2), char&, _DISPLAY, (AlisFrames(I%%).Lx, AlisFrames(I%%).Ly)-STEP(AlisFrames(I%%).Sx - 1, AlisFrames(I%%).Sy - 1)
  68. 'NEXT I%%
  69. 'END
  70.  
  71.  
  73.  _PUTIMAGE (64, 48)-STEP(511, 383), Townlayer&, MIX&, (1968 + Px%, 128 + Py%)-STEP(511, 383)
  74.  Place_Alis
  76.  '---------------debuging-----------------------
  77.  _PRINTSTRING (580, 0), STR$(Px%) + "  "
  78.  _PRINTSTRING (580, 16), STR$(Py%) + "  "
  79.  _PRINTSTRING (580, 32), STR$((ABS(Py%) MOD 32)) + "  "
  80.  _PRINTSTRING (580, 48), STR$((ABS(Px%) MOD 32)) + "  "
  81.  _PRINTSTRING (580, 64), STR$(g.Moving) + "  "
  82.  _PRINTSTRING (580, 80), STR$(Mx%) + "  "
  83.  _PRINTSTRING (580, 96), STR$(My%) + "  "
  84.  _PRINTSTRING (580, 112), STR$(Collision(Mx%, My%)) + "  "
  85.  _PRINTSTRING (580, 128), STR$(TownMap(Mx%, My%)) + "  "
  86.  _PRINTSTRING (580, 144), STR$(TownMap(Mx%, My% - 1)) + "  "
  87.  _PRINTSTRING (580, 160), STR$(TownMap(Mx% - 1, My%)) + "  "
  88.  _PRINTSTRING (580, 176), STR$(TownMap(Mx% + 1, My%)) + "  "
  89.  _PRINTSTRING (580, 192), STR$(TownMap(Mx%, My% + 1)) + "  "
  90.  _PRINTSTRING (580, 208), STR$(frame%%) + "  "
  91.  _PRINTSTRING (580, 224), STR$(4 + 3 * g.Facing + AlisAnim(frame%%)) + "  "
  92.  '-------------------------------------------
  93.  
  94.  '-----------------Controls------------------
  95.  IF _KEYDOWN(Default_Key_Up) AND (NOT g.Moving) AND (NOT Collision(Mx%, My% - 1)) THEN g.Facing = up: g.Moving = TRUE
  96.  IF _KEYDOWN(Default_Key_Left) AND (NOT g.Moving) AND (NOT Collision(Mx% - 1, My%)) THEN g.Facing = left: g.Moving = TRUE
  97.  IF _KEYDOWN(Default_Key_Right) AND (NOT g.Moving) AND (NOT Collision(Mx% + 1, My%)) THEN g.Facing = right: g.Moving = TRUE
  98.  IF _KEYDOWN(Default_Key_Down) AND (NOT g.Moving) AND (NOT Collision(Mx%, My% + 1)) THEN g.Facing = down: g.Moving = TRUE
  99.  IF _KEYDOWN(27) THEN exitflag%% = -1
  100.  '--------------------------------------------
  101.  
  102.  '----------------Movement--------------------
  103.  IF g.Moving THEN
  104.   SELECT CASE g.Facing
  105.    CASE up
  106.     Py% = Py% - 2
  107.     IF (ABS(Py%) MOD 32) = 0 THEN g.Moving = FALSE: My% = My% - 1
  108.     IF NOT _KEYDOWN(Default_Key_Up) THEN Ft%% = 0: frame%% = 0
  109.    CASE down
  110.     Py% = Py% + 2
  111.     IF (Py% MOD 32) = 0 THEN g.Moving = FALSE: My% = My% + 1
  112.     IF NOT _KEYDOWN(Default_Key_Down) THEN Ft%% = 0: frame%% = 0
  113.    CASE left
  114.     Px% = Px% - 2
  115.     IF (ABS(Px%) MOD 32) = 0 THEN g.Moving = FALSE: Mx% = Mx% - 1
  116.     IF NOT _KEYDOWN(Default_Key_Left) THEN Ft%% = 0: frame%% = 0
  117.    CASE right
  118.     Px% = Px% + 2
  119.     IF (Px% MOD 32) = 0 THEN g.Moving = FALSE: Mx% = Mx% + 1
  120.     IF NOT _KEYDOWN(Default_Key_Right) THEN Ft%% = 0: frame%% = 0
  123.  '---------------------------------------------
  124.  '---------------animated moving---------------
  125.  ' IF g.Moving THEN
  126.  '  Ft%% = Ft%% + 1
  127.  '  IF Ft%% = 8 THEN frame%% = frame%% + 1: Ft%% = 0
  128.  '  IF frame%% = 4 THEN frame%% = 0
  129.  ' END IF
  130.  '-------------Fellippe's suggestion.-------------
  131.  totalFrames = 4
  132.  IF g.Moving AND TIMER - lastFrameUpdate! >= .125 THEN 'adjust .3 to whatever interval you want
  133.   frame%% = (frame%% + 1) MOD totalFrames
  134.   lastFrameUpdate! = TIMER
  136.  
  137.  '---------------------------------------------
  138.  _LIMIT 60
  139. LOOP UNTIL exitflag%%
  141.  
  142.  
  143. SUB Place_Alis
  144.  IF NOT g.Moving THEN
  145.   _PUTIMAGE (304, 226)-STEP(31, 45), char&, MIX&, (0 + 17 * g.Facing, 120)-STEP(15, 22)
  147.   _PUTIMAGE (304, 226)-STEP(31, 45), char&, MIX&, (68 + 51 * g.Facing + AlisAnim(frame%%) * 17, 120)-STEP(15, 22)
  150.  
  151. FUNCTION Collision%% (x%, y%)
  152.  Result%% = FALSE
  153.  SELECT CASE TownMap(x%, y%)
  154.   CASE 6 'stone path (walkable)
  155.   CASE 9 'concrete path(walkable)
  156.   CASE 42, 43, 34, 35 'houses
  157.   CASE 75, 76 'shops
  158.   CASE 77, 78 ' exits
  159.   CASE 68, 69 'church
  160.   CASE 28, 29 'caves
  162.    Result%% = TRUE
  164.  Collision%% = Result%%
Title: Re: Alis does the jitter bug!
Post by: johnno56 on July 23, 2020, 04:40:46 pm
I must be doing something wrong... The only key that seems to work is the escape key. I checked the '_KEYHIT' keyboard scan codes and they appear to be correct. All I get is a sword carrying girl in the center of a grassed area.
Title: Re: Alis does the jitter bug!
Post by: FellippeHeitor on July 23, 2020, 04:59:55 pm
I fixed the jitter bug, but now she goes off road. That's your business now 😂

By the way, the erratic movement was due to setting g.Moving = FALSE every time the landing spot on each tile was reached, even if the arrow keys were still being held down.

Code: QB64: [Select]
  1. TYPE Game
  2.     Status AS _BYTE
  3.     Facing AS _BYTE
  4.     Moving AS _BYTE
  6. TYPE SpriteData
  7.     Lx AS INTEGER 'sprite location
  8.     Ly AS INTEGER
  9.     Sx AS INTEGER 'sprite size
  10.     Sy AS INTEGER
  12.  
  13. CONST standing = 1, walking = 2
  14. CONST down = 0, up = 1, right = 2, left = 3
  15. CONST TRUE = -1, FALSE = NOT TRUE
  16.  
  17. CONST Default_Key_Right = 19712, Default_Key_Left = 19200, Default_Key_Up = 18432, Default_Key_Down = 20480
  18. CONST Default_A_Button = 32, Default_B_Button = 13, Default_Start_Button = 65, Default_Select_Button = 66
  19.  
  20.  
  21. DIM SHARED g AS Game, char&, frame%%, AlisFrames(16) AS SpriteData, AlisAnim(4) AS _BYTE, MIX&
  22. '--------------Alis Character Sprites-----------------
  23. DATA 47,0,17,24,49,27,14,24,50,54,15,24,49,81,14,24: 'Standing Sprites DN\UP\RT\LT
  24. DATA 0,1,15,24,16,1,14,24,31,1,15,24: 'walking down sprites
  25. DATA 0,28,14,24,17,28,13,24,32,28,14,24: 'walking Up sprites
  26. DATA 0,54,16,24,17,54,15,24,34,54,13,24: 'walking Right sprites
  27. DATA 0,81,13,24,15,81,14,24,31,81,16,24: 'walking Left sprites
  28. DATA 0,1,2,1: 'animation frame order
  29. FOR I%% = 0 TO 15
  30.     READ AlisFrames(I%%).Lx, AlisFrames(I%%).Ly, AlisFrames(I%%).Sx, AlisFrames(I%%).Sy
  31.     PRINT AlisFrames(I%%).Lx
  32. NEXT I%%
  33. FOR I%% = 0 TO 3
  34.     READ AlisAnim(I%%)
  35. NEXT I%%
  36.  
  37. 'map& = _LOADIMAGE("PStarTownsALL.bmp", 32) '1760x1600[110x100tiles]
  38. tile& = _LOADIMAGE("TownTileMasterLinear.png", 32) '
  39. char& = _LOADIMAGE("CharacterSheetC.png", 32) '
  40. OPEN "PhantasyStarTowns.dat" FOR BINARY AS #1
  41. DIM SHARED TownMap(256, 256) AS _UNSIGNED _BYTE
  42. _CLEARCOLOR _RGB32(62), char&
  43. 'alis start point 1968x128
  44. GET #1, , TownMap()
  45.  
  46. SCREEN _NEWIMAGE(640, 480, 32)
  47. MIX& = _NEWIMAGE(640, 480, 32)
  48. Townlayer& = _NEWIMAGE(8192, 8192, 32)
  49. 'build a section of the towns map sheet
  50. FOR y%% = 0 TO 99
  51.     FOR x%% = 0 TO 109
  52.         _PUTIMAGE (0 + 32 * x%%, 0 + 32 * y%%)-STEP(31, 31), tile&, Townlayer&, (0 + 17 * TownMap(x%%, y%%), 0)-STEP(15, 15)
  53.     NEXT x%%
  54. NEXT y%%
  55. '_SCREENMOVE 10, 10
  56. 'SLEEP
  57. '---------------------------------------
  58. g.Status = standing
  59. 'g.Status = walking
  60. g.Facing = down
  61. Px% = 0: Py% = 0
  62.  
  63. Mx% = 69 'players position within map array X
  64. My% = 10 ' players position within map array Y
  65.  
  66. 'FOR I%% = 0 TO 15
  67. '_PUTIMAGE (0 + 32 * I%%, 10)-STEP(-1 + AlisFrames(I%%).Sx * 2, -1 + AlisFrames(I%%).Sy * 2), char&, _DISPLAY, (AlisFrames(I%%).Lx, AlisFrames(I%%).Ly)-STEP(AlisFrames(I%%).Sx - 1, AlisFrames(I%%).Sy - 1)
  68. 'NEXT I%%
  69. 'END
  70.  
  71.  
  73.     _PUTIMAGE (64, 48)-STEP(511, 383), Townlayer&, MIX&, (1968 + Px%, 128 + Py%)-STEP(511, 383)
  74.     Place_Alis
  75.     _PUTIMAGE , MIX&, _DISPLAY
  76.     '---------------debuging-----------------------
  77.     _PRINTSTRING (580, 0), STR$(Px%) + "  "
  78.     _PRINTSTRING (580, 16), STR$(Py%) + "  "
  79.     _PRINTSTRING (580, 32), STR$((ABS(Py%) MOD 32)) + "  "
  80.     _PRINTSTRING (580, 48), STR$((ABS(Px%) MOD 32)) + "  "
  81.     _PRINTSTRING (580, 64), STR$(g.Moving) + "  "
  82.     _PRINTSTRING (580, 80), STR$(Mx%) + "  "
  83.     _PRINTSTRING (580, 96), STR$(My%) + "  "
  84.     _PRINTSTRING (580, 112), STR$(Collision(Mx%, My%)) + "  "
  85.     _PRINTSTRING (580, 128), STR$(TownMap(Mx%, My%)) + "  "
  86.     _PRINTSTRING (580, 144), STR$(TownMap(Mx%, My% - 1)) + "  "
  87.     _PRINTSTRING (580, 160), STR$(TownMap(Mx% - 1, My%)) + "  "
  88.     _PRINTSTRING (580, 176), STR$(TownMap(Mx% + 1, My%)) + "  "
  89.     _PRINTSTRING (580, 192), STR$(TownMap(Mx%, My% + 1)) + "  "
  90.     _PRINTSTRING (580, 208), STR$(frame%%) + "  "
  91.     _PRINTSTRING (580, 224), STR$(4 + 3 * g.Facing + AlisAnim(frame%%)) + "  "
  92.     '-------------------------------------------
  93.  
  94.     '-----------------Controls------------------
  95.     IF _KEYDOWN(Default_Key_Up) AND (NOT g.Moving) AND (NOT Collision(Mx%, My% - 1)) THEN g.Facing = up: g.Moving = TRUE
  96.     IF _KEYDOWN(Default_Key_Left) AND (NOT g.Moving) AND (NOT Collision(Mx% - 1, My%)) THEN g.Facing = left: g.Moving = TRUE
  97.     IF _KEYDOWN(Default_Key_Right) AND (NOT g.Moving) AND (NOT Collision(Mx% + 1, My%)) THEN g.Facing = right: g.Moving = TRUE
  98.     IF _KEYDOWN(Default_Key_Down) AND (NOT g.Moving) AND (NOT Collision(Mx%, My% + 1)) THEN g.Facing = down: g.Moving = TRUE
  99.     IF _KEYDOWN(27) THEN exitflag%% = -1
  100.     '--------------------------------------------
  101.  
  102.     '----------------Movement--------------------
  103.     IF g.Moving THEN
  104.         SELECT CASE g.Facing
  105.             CASE up
  106.                 Py% = Py% - 2
  107.                 IF (ABS(Py%) MOD 32) = 0 AND NOT _KEYDOWN(Default_Key_Up) THEN
  108.                     g.Moving = FALSE: My% = My% - 1
  109.                     Ft%% = 0: frame%% = 0
  110.                 END IF
  111.             CASE down
  112.                 Py% = Py% + 2
  113.                 IF (Py% MOD 32) = 0 AND NOT _KEYDOWN(Default_Key_Down) THEN
  114.                     g.Moving = FALSE: My% = My% + 1
  115.                     Ft%% = 0: frame%% = 0
  116.                 END IF
  117.             CASE left
  118.                 Px% = Px% - 2
  119.                 IF (ABS(Px%) MOD 32) = 0 AND NOT _KEYDOWN(Default_Key_Left) THEN
  120.                     g.Moving = FALSE: Mx% = Mx% - 1
  121.                     Ft%% = 0: frame%% = 0
  122.                 END IF
  123.             CASE right
  124.                 Px% = Px% + 2
  125.                 IF (Px% MOD 32) = 0 AND NOT _KEYDOWN(Default_Key_Right) THEN
  126.                     g.Moving = FALSE: Mx% = Mx% + 1
  127.                     Ft%% = 0: frame%% = 0
  128.                 END IF
  129.         END SELECT
  130.     END IF
  131.     '---------------------------------------------
  132.     '---------------animated moving---------------
  133.     ' IF g.Moving THEN
  134.     '  Ft%% = Ft%% + 1
  135.     '  IF Ft%% = 8 THEN frame%% = frame%% + 1: Ft%% = 0
  136.     '  IF frame%% = 4 THEN frame%% = 0
  137.     ' END IF
  138.     '-------------Fellippe's suggestion.-------------
  139.     totalFrames = 4
  140.     IF g.Moving AND TIMER - lastFrameUpdate! >= .125 THEN 'adjust .3 to whatever interval you want
  141.         frame%% = (frame%% + 1) MOD totalFrames
  142.         lastFrameUpdate! = TIMER
  143.     END IF
  144.  
  145.     '---------------------------------------------
  146.     _LIMIT 60
  147. LOOP UNTIL exitflag%%
  149.  
  150.  
  151. SUB Place_Alis
  152.     IF NOT g.Moving THEN
  153.         _PUTIMAGE (304, 226)-STEP(31, 45), char&, MIX&, (0 + 17 * g.Facing, 120)-STEP(15, 22)
  154.     ELSE
  155.         _PUTIMAGE (304, 226)-STEP(31, 45), char&, MIX&, (68 + 51 * g.Facing + AlisAnim(frame%%) * 17, 120)-STEP(15, 22)
  156.     END IF
  158.  
  159. FUNCTION Collision%% (x%, y%)
  160.     Result%% = FALSE
  161.     SELECT CASE TownMap(x%, y%)
  162.         CASE 6 'stone path (walkable)
  163.         CASE 9 'concrete path(walkable)
  164.         CASE 42, 43, 34, 35 'houses
  165.         CASE 75, 76 'shops
  166.         CASE 77, 78 ' exits
  167.         CASE 68, 69 'church
  168.         CASE 28, 29 'caves
  169.         CASE ELSE
  170.             Result%% = TRUE
  171.     END SELECT
  172.     Collision%% = Result%%
  174.  
Title: Re: Alis does the jitter bug!
Post by: Cobalt on July 23, 2020, 05:15:57 pm
Jitter is gone, but now it sticks, cant move up or down. or else all the sudden the collision detection completely fails.
Title: Re: Alis does the jitter bug!
Post by: FellippeHeitor on July 23, 2020, 05:16:53 pm
It looks like it's probably not stopping at the proper landing spot sometimes. But at least now you know what was the root of it ;-)
Title: Re: Alis does the jitter bug!
Post by: Cobalt on July 23, 2020, 05:22:11 pm
@FellippeHeitor  Yep, and by simply relocating the screen update lines problem solved. Extra eyes are always a big help!

Code: QB64: [Select]
  1. TYPE Game
  2.  Status AS _BYTE
  3.  Facing AS _BYTE
  4.  Moving AS _BYTE
  6. TYPE SpriteData
  7.  Lx AS INTEGER 'sprite location
  8.  Ly AS INTEGER
  9.  Sx AS INTEGER 'sprite size
  10.  Sy AS INTEGER
  12.  
  13. CONST standing = 1, walking = 2
  14. CONST down = 0, up = 1, right = 2, left = 3
  15. CONST TRUE = -1, FALSE = NOT TRUE
  16.  
  17. CONST Default_Key_Right = 19712, Default_Key_Left = 19200, Default_Key_Up = 18432, Default_Key_Down = 20480
  18. CONST Default_A_Button = 32, Default_B_Button = 13, Default_Start_Button = 65, Default_Select_Button = 66
  19.  
  20.  
  21. DIM SHARED g AS Game, char&, frame%%, AlisFrames(16) AS SpriteData, AlisAnim(4) AS _BYTE, MIX&
  22. '--------------Alis Character Sprites-----------------
  23. DATA 47,0,17,24,49,27,14,24,50,54,15,24,49,81,14,24: 'Standing Sprites DN\UP\RT\LT
  24. DATA 0,1,15,24,16,1,14,24,31,1,15,24: 'walking down sprites
  25. DATA 0,28,14,24,17,28,13,24,32,28,14,24: 'walking Up sprites
  26. DATA 0,54,16,24,17,54,15,24,34,54,13,24: 'walking Right sprites
  27. DATA 0,81,13,24,15,81,14,24,31,81,16,24: 'walking Left sprites
  28. DATA 0,1,2,1: 'animation frame order
  29. FOR I%% = 0 TO 15
  30.  READ AlisFrames(I%%).Lx, AlisFrames(I%%).Ly, AlisFrames(I%%).Sx, AlisFrames(I%%).Sy
  31.  PRINT AlisFrames(I%%).Lx
  32. NEXT I%%
  33. FOR I%% = 0 TO 3
  34.  READ AlisAnim(I%%)
  35. NEXT I%%
  36.  
  37. 'map& = _LOADIMAGE("PStarTownsALL.bmp", 32) '1760x1600[110x100tiles]
  38. tile& = _LOADIMAGE("TownTileMasterLinear.png", 32) '
  39. char& = _LOADIMAGE("CharacterSheetC.png", 32) '
  40. OPEN "PhantasyStarTowns.dat" FOR BINARY AS #1
  41. DIM SHARED TownMap(256, 256) AS _UNSIGNED _BYTE
  42. _CLEARCOLOR _RGB32(62), char&
  43. 'alis start point 1968x128
  44. GET #1, , TownMap()
  45.  
  46. SCREEN _NEWIMAGE(640, 480, 32)
  47. MIX& = _NEWIMAGE(640, 480, 32)
  48. Townlayer& = _NEWIMAGE(8192, 8192, 32)
  49. 'build a section of the towns map sheet
  50. FOR y%% = 0 TO 99
  51.  FOR x%% = 0 TO 109
  52.   _PUTIMAGE (0 + 32 * x%%, 0 + 32 * y%%)-STEP(31, 31), tile&, Townlayer&, (0 + 17 * TownMap(x%%, y%%), 0)-STEP(15, 15)
  53.  NEXT x%%
  54. NEXT y%%
  55. '_SCREENMOVE 10, 10
  56. 'SLEEP
  57. '---------------------------------------
  58. g.Status = standing
  59. 'g.Status = walking
  60. g.Facing = down
  61. Px% = 0: Py% = 0
  62.  
  63. Mx% = 69 'players position within map array X
  64. My% = 10 ' players position within map array Y
  65.  
  66. 'FOR I%% = 0 TO 15
  67. '_PUTIMAGE (0 + 32 * I%%, 10)-STEP(-1 + AlisFrames(I%%).Sx * 2, -1 + AlisFrames(I%%).Sy * 2), char&, _DISPLAY, (AlisFrames(I%%).Lx, AlisFrames(I%%).Ly)-STEP(AlisFrames(I%%).Sx - 1, AlisFrames(I%%).Sy - 1)
  68. 'NEXT I%%
  69. 'END
  70.  
  71.  
  73.  
  74.  '-----------------Controls------------------
  75.  IF _KEYDOWN(Default_Key_Up) AND (NOT g.Moving) AND (NOT Collision(Mx%, My% - 1)) THEN g.Facing = up: g.Moving = TRUE
  76.  IF _KEYDOWN(Default_Key_Left) AND (NOT g.Moving) AND (NOT Collision(Mx% - 1, My%)) THEN g.Facing = left: g.Moving = TRUE
  77.  IF _KEYDOWN(Default_Key_Right) AND (NOT g.Moving) AND (NOT Collision(Mx% + 1, My%)) THEN g.Facing = right: g.Moving = TRUE
  78.  IF _KEYDOWN(Default_Key_Down) AND (NOT g.Moving) AND (NOT Collision(Mx%, My% + 1)) THEN g.Facing = down: g.Moving = TRUE
  79.  IF _KEYDOWN(27) THEN exitflag%% = -1
  80.  '--------------------------------------------
  81.  '-------------Screen updating-----------------
  82.  _PUTIMAGE (64, 48)-STEP(511, 383), Townlayer&, MIX&, (1968 + Px%, 128 + Py%)-STEP(511, 383)
  83.  Place_Alis
  85.  '---------------------------------------------
  86.  '---------------debuging-----------------------
  87.  _PRINTSTRING (580, 0), STR$(Px%) + "  "
  88.  _PRINTSTRING (580, 16), STR$(Py%) + "  "
  89.  _PRINTSTRING (580, 32), STR$((ABS(Py%) MOD 32)) + "  "
  90.  _PRINTSTRING (580, 48), STR$((ABS(Px%) MOD 32)) + "  "
  91.  _PRINTSTRING (580, 64), STR$(g.Moving) + "  "
  92.  _PRINTSTRING (580, 80), STR$(Mx%) + "  "
  93.  _PRINTSTRING (580, 96), STR$(My%) + "  "
  94.  _PRINTSTRING (580, 112), STR$(Collision(Mx%, My%)) + "  "
  95.  _PRINTSTRING (580, 128), STR$(TownMap(Mx%, My%)) + "  "
  96.  _PRINTSTRING (580, 144), STR$(TownMap(Mx%, My% - 1)) + "  "
  97.  _PRINTSTRING (580, 160), STR$(TownMap(Mx% - 1, My%)) + "  "
  98.  _PRINTSTRING (580, 176), STR$(TownMap(Mx% + 1, My%)) + "  "
  99.  _PRINTSTRING (580, 192), STR$(TownMap(Mx%, My% + 1)) + "  "
  100.  _PRINTSTRING (580, 208), STR$(frame%%) + "  "
  101.  _PRINTSTRING (580, 224), STR$(4 + 3 * g.Facing + AlisAnim(frame%%)) + "  "
  102.  '-------------------------------------------
  103.  
  104.  '----------------Movement--------------------
  105.  IF g.Moving THEN
  106.   SELECT CASE g.Facing
  107.    CASE up
  108.     Py% = Py% - 2
  109.     IF (ABS(Py%) MOD 32) = 0 THEN g.Moving = FALSE: My% = My% - 1
  110.     IF NOT _KEYDOWN(Default_Key_Up) THEN Ft%% = 0: frame%% = 0
  111.    CASE down
  112.     Py% = Py% + 2
  113.     IF (Py% MOD 32) = 0 THEN g.Moving = FALSE: My% = My% + 1
  114.     IF NOT _KEYDOWN(Default_Key_Down) THEN Ft%% = 0: frame%% = 0
  115.    CASE left
  116.     Px% = Px% - 2
  117.     IF (ABS(Px%) MOD 32) = 0 THEN g.Moving = FALSE: Mx% = Mx% - 1
  118.     IF NOT _KEYDOWN(Default_Key_Left) THEN Ft%% = 0: frame%% = 0
  119.    CASE right
  120.     Px% = Px% + 2
  121.     IF (Px% MOD 32) = 0 THEN g.Moving = FALSE: Mx% = Mx% + 1
  122.     IF NOT _KEYDOWN(Default_Key_Right) THEN Ft%% = 0: frame%% = 0
  125.  '---------------------------------------------
  126.  '---------------animated moving---------------
  127.  IF g.Moving THEN
  128.   Ft%% = Ft%% + 1
  129.   IF Ft%% = 8 THEN frame%% = frame%% + 1: Ft%% = 0
  130.   IF frame%% = 4 THEN frame%% = 0
  132.  '---------------------------------------------
  133.  _LIMIT 60
  134. LOOP UNTIL exitflag%%
  136.  
  137.  
  138. SUB Place_Alis
  139.  IF NOT g.Moving THEN
  140.   _PUTIMAGE (304, 226)-STEP(31, 45), char&, MIX&, (0 + 17 * g.Facing, 120)-STEP(15, 22)
  142.   _PUTIMAGE (304, 226)-STEP(31, 45), char&, MIX&, (68 + 51 * g.Facing + AlisAnim(frame%%) * 17, 120)-STEP(15, 22)
  145.  
  146. FUNCTION Collision%% (x%, y%)
  147.  Result%% = FALSE
  148.  SELECT CASE TownMap(x%, y%)
  149.   CASE 6 'stone path (walkable)
  150.   CASE 9 'concrete path(walkable)
  151.   CASE 42, 43, 34, 35 'houses
  152.   CASE 75, 76 'shops
  153.   CASE 77, 78 ' exits
  154.   CASE 68, 69 'church
  155.   CASE 28, 29 'caves
  157.    Result%% = TRUE
  159.  Collision%% = Result%%

@johnno56  try this version and let me know if you still cannot move.
Title: Re: Alis does the jitter bug!(mostly fixed)
Post by: johnno56 on July 23, 2020, 05:57:09 pm
Sorry. No change. A complete Walt Disney. Frozen solid.... Escape still works... That's good, right?
Title: Re: Alis does the jitter bug!(mostly fixed)
Post by: johnno56 on July 23, 2020, 06:04:47 pm
Update: Modified the key controls to bypass "not g.moving and not collision" and the cursor keys function just fine.

ie: changed: IF _KEYDOWN(Default_Key_Up) AND (NOT g.Moving) AND (NOT Collision(Mx%, My% - 1)) THEN g.Facing = up: g.Moving = TRUE
to: IF _KEYDOWN(Default_Key_Up) THEN g.Facing = up: g.Moving = TRUE
(same for other keys)
Title: Re: Alis does the jitter bug!(mostly fixed)
Post by: Cobalt on July 23, 2020, 06:50:47 pm
@johnno56  what version QB64 you running? and OS?
Title: Re: Alis does the jitter bug!(mostly fixed)
Post by: johnno56 on July 24, 2020, 06:56:10 am
Version 1.4 Stable release from git 0f49b2c. Linux Mint 19.3
Title: Re: Alis does the jitter bug!(mostly fixed)
Post by: Cobalt on July 24, 2020, 11:09:17 am
I really don't know then. Unless you can upload a screen shot of when its not working so I can see the numbers at the right side of the screen. All that is debugging information and maybe there is something there but it is just bizarre.

Re-reading your posts makes me wonder, are you seeing the screen I have attached below?

if not make sure you have downloaded all 3 files from above; the 2 images and the DAT file.
Title: Re: Alis does the jitter bug!(mostly fixed)
Post by: johnno56 on July 24, 2020, 07:26:43 pm
This is the only  image I see.

ps: All three files were downloaded and placed in the same directory as the ".bas" file.
Title: Re: Alis does the jitter bug!(mostly fixed)
Post by: Cobalt on July 24, 2020, 08:56:48 pm
its a Linux issue, make sure the file name match in case too. It looks like I didn't match case with the town data file when opening.

as you see you have 2 dat files now(one will be roughly 64.5k the other probably 0), So the town data isn't being loaded hence nothing works. Not an issue I have running Windows nor Fellippe running Mac, so it took me a while to pick up on it.

so if you change this line(40):
OPEN "PhantasyStarTowns.dat" FOR BINARY AS #1

to this

OPEN "PhantasyStarTowns.Dat" FOR BINARY AS #1

it should be fixed.

I just didn't catch when you originally said "grassed area". I may add signs in the game that read "Keep off the Grass" cause you can't walk on nearly any the grass areas in towns, only paved areas!

But yeah let me know if changing that line makes the difference.
Title: Re: Alis does the jitter bug!(mostly fixed)
Post by: johnno56 on July 24, 2020, 10:59:24 pm
Changing the file name did the trick. I'm surprised. Linux is painfully critical of filenames. Surprised, in the sense, that I didn't receive an error message... No matter... The display is "normal"... Now. Where are the aliens?
Text Only | Text with Attachments