i used my own method
im not too much into looking at code for this kinda stuff...but anyhoo
what i do is have a 2D array of the tile names then i check the tile that the player will move into and see if it is a tile that is "walkable" (in this instance the black squares), if there are more than one tiles that are "walkable" then u can just organize the pictures of the tiles so they divides into two groups...walkable and nonwalkable...and just say tiles between this number and another number are ok to walk on
| code: |
procedure Movement (var dir : string) var num1 : int var num2 : int if dir = "up" then fy += 16 elsif dir = "down" then fy -= 16 elsif dir = "left" then fx -= 16 elsif dir = "right" then fx += 16 end if num1 := ((((maxy + 1) div 2 + 156) - fy) div 16) num2 := ((fx - ((maxx + 1) div 2 - 216)) div 16) locate (2, 2) %put "num1: ", num1, " num2: ", num2 if num1 <= 19 and num1 >= 1 and num2 >= 1 and num2 <= 25 then if tiles (num1, num2) = "Q" then move_allowed := true if coins (num1, num2) = false then Pic.Draw (Q, fx, fy, picCopy) coins_collected += 1 coins (num1, num2) := true end if end if end if end Movement |
If u want a more detailed description then just pm me
