Hi Prithak

your last post code is very incomplete!

So I add something to become it clearer than now....

but the glitch is logic and not about typing....

This your issue let me remember another in a graphic game engine in which the output of grafic doesn't recognize the position of objects of the scene  in respect with the main character... in that engine issue the engine has not option to distinguish the position of the character towards the object that are able to be pass back.

In your collision engine you haven't thought what it happens to the OldY and OldX variable at the second cycle of loop...
here my code can show you what it happens

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1280, 720, 32)
2. _SCREENMOVE 1, 1 ' better show alla the window
3.  
4. TYPE vec1
5.     x AS INTEGER
6.     y AS INTEGER
7.     speed AS INTEGER
8. END TYPE
9.  
10. TYPE vec2
11.     x1 AS INTEGER
12.     y1 AS INTEGER
13.     x2 AS INTEGER
14.     y2 AS INTEGER
15.     r AS INTEGER
16.     g AS INTEGER
17.     b AS INTEGER
18.     btype AS STRING
19. END TYPE
20.  
21. DIM SHARED player AS vec1
22. DIM SHARED speed AS INTEGER
23. DIM SHARED map AS STRING
24. DIM SHARED obstacle(9) AS vec2
25. DIM SHARED oldx, oldy AS INTEGER
26.  
27. player.speed = 5
28.  
29. player.x = 100 ' character need a point of start X and Y
30. player.y = 200
31.  
32. DIM SHARED i AS INTEGER
33.  
34.  
35. map = "map1.txt"
36.  
37. openMap
38. j = 1
39. DO
40.     CLS , _RGB32(0, 255, 61) ' it is better to give a color to background
41.     makeplayer
42.     playerMovement
43.  
44.     FOR j = 1 TO i 'the loop checks for obstacles
45.  
46.         LOCATE 9: PRINT j
47.         ' here graphic output
48.         LINE (obstacle(j).x1, obstacle(j).y1)-(obstacle(j).x2, obstacle(j).y2), _RGB32(obstacle(j).r, obstacle(j).g, obstacle(j).b), BF
49.         ' here it tests for collision between character and obstacles
50.         block obstacle(j).x1, obstacle(j).y1, obstacle(j).x2, obstacle(j).y2
51.  
52.     NEXT j
53.  
54.     _DISPLAY
55.     _LIMIT 20
56. LOOP UNTIL _KEYHIT = 32 ' you can exit from game with spacebar
57.  
58. SUB openMap
59.     OPEN map FOR INPUT AS #1
60.     WHILE NOT EOF(1)
61.         i = i + 1
62.         INPUT #1, obstacle(i).btype, obstacle(i).x1, obstacle(i).y1, obstacle(i).x2, obstacle(i).y2, obstacle(i).r, obstacle(i).g, obstacle(i).b
63.     WEND
64.     CLOSE #1
65.     PRINT i
66. END SUB
67.  
68. SUB makeplayer
69.     CIRCLE (player.x, player.y), 10, _RGB32(100, 200, 255)
70.     PAINT (player.x, player.y), _RGB32(100, 200, 255), _RGB32(100, 200, 255)
71. END SUB
72.  
73. SUB playerMovement
74.     IF _KEYDOWN(18432) THEN player.y = player.y - player.speed
75.     IF _KEYDOWN(20480) THEN player.y = player.y + player.speed
76.     IF _KEYDOWN(19200) THEN player.x = player.x - player.speed
77.     IF _KEYDOWN(19712) THEN player.x = player.x + player.speed
78. END SUB
79.  
80. SUB block (x1, y1, x2, y2)
81.  
82.     IF (player.x + 10 >= x1 AND player.x - 10 <= x2) AND (player.y + 10 >= y1 AND player.y - 10 <= y2) THEN
83.         ' if player X is in the X range of obstacle AND player Y is in the Y range of obstacle
84.         ' I restore the old X and Y to player
85.         player.x = oldx
86.         player.y = oldy
87.  
88.         LOCATE 10
89.         PRINT "X="; player.x; " Y="; player.y; " x1 "; x1; " x2 "; x2; " y1 "; y1; " y2 "; y2
90.         PRINT "Oldx = "; oldx; " OldY= "; oldy
91.  
92.     ELSE
93.         ' if player is out of obstacle
94.         ' I store actual X and Y of player into OLD X and Y
95.         oldx = player.x
96.         oldy = player.y
97.     END IF
98.  
99. END SUB
100.  

as you can see when you go through the second obstacle using a FOR loop that tests before first obstacle and then the following second obstacle so it changes the value of OldX and OldY and then when it tests the second obstacle it restore the OldX and OldY calculated towards the first obstacle.

So you can imagine how to solve this issue... a STATIC flag into the collision engine? Or and array of OldY and OldY dor each obstacle to use...or whatelse?

THANK YOU! YOU ARE A LIFE SAVER. Like seriously, why didn't I think about that. Now, I am using an array for Oldx and Oldy. So, the blocking mechanism is working PERFECTLY. I had to make some changes tho. Here is the code:
screen _newimage(1280,720,32)

type vec1
    x as integer
    y as integer
    speed as integer
end type

type vec2
    x1 as integer
    y1 as integer
    x2 as integer
    y2 as integer
    r as integer
    g as integer
    b as integer
    btype as string
    oldx as integer
    oldy as integer
    wl as string
end type


dim shared player as vec1
dim shared map as string
dim shared obstacle(9) as vec2
player.speed = 5

dim shared i as integer

map = "map1.txt"

player.x = _width / 2
player.y = _height / 2

openMap
j=1
do
    cls

    makeplayer
    playerMovement

    for j = 1 to i
        if obstacle(j).btype = "obs" then
            line (obstacle(j).x1, obstacle(j).y1)-(obstacle(j).x2, obstacle(j).y2),_rgb32(obstacle(j).r,obstacle(j).g,obstacle(j).b),BF
            if player.x + 10 >= obstacle(j).x1 and player.x - 10 <= obstacle(j).x2 and player.y + 10 >= obstacle(j).y1 and player.y - 10 <= obstacle(j).y2 then
                player.x = obstacle(j).oldx
                player.y = obstacle(j).oldy
            else
                obstacle(j).oldx = player.x
                obstacle(j).oldy = player.y
            end if
        elseif obstacle(j).btype = "warp" then
            line (obstacle(j).x1, obstacle(j).y1)-(obstacle(j).x2, obstacle(j).y2),_rgb32(obstacle(j).r,obstacle(j).g,obstacle(j).b),BF
            if collision%(obstacle(j).x1, obstacle(j).y1, obstacle(j).x2, obstacle(j).y2) then
                map = obstacle(i).wl
                openMap
            end if
        end if
    next j

    _display
    _limit 120
loop

sub openMap
    i=0
    open map for input as #1
    while not eof(1)
        i = i + 1
        input #1, obstacle(i).btype, obstacle(i).x1, obstacle(i).y1, obstacle(i).x2, obstacle(i). y2, obstacle(i).r, obstacle(i).g, obstacle(i).b
        if obstacle(i).btype = "warp" then input #1, obstacle(i).wl
    wend
    close #1
end sub

sub makeplayer
    circle (player.x, player.y), 10, _rgb32(100,200,255)
    paint (player.x, player.y), _rgb32(100,200,255), _rgb32(100,200,255)
end sub

sub playerMovement
    if _keydown(18432) then player.y = player.y - player.speed
    if _keydown(20480) then player.y = player.y + player.speed
    if _keydown(19200) then player.x = player.x - player.speed
    if _keydown(19712) then player.x = player.x + player.speed
end sub

function collision%(x1,y1,x2,y2)
    if player.x >= x1 and player.x <= x2 and player.y >= y1 and player.y <= y2 then
        collision% = 1
    end if
end function

Map1.txt
obs,600,50,1280,100,100,200,255
obs,0,0,700,50,100,200,255
warp,500,500,550,550,255,200,100,map2.txt

Map2.txt
obs, 600,50,1280,100,242,242,242
obs, 500,0,700,50,242,242,242
warp, 100,100,150,150,255,200,100,map1.txt

-Prithak

I tried to Re-Do some stuff and Look what I've Found:
screen _newimage(1280,720,32)

type vec1
    x as integer
    y as integer
end type

type vec2
    x1 as integer
    y1 as integer
    x2 as integer
    y2 as integer
    r as integer
    g as integer
    b as integer
    btype as string
end type

dim shared player as vec1
dim shared speed as integer
dim shared map as string
dim shared obstacle(9) as vec2

dim shared i as integer

map = "map1.txt"

openMap

do
    cls
    j = j + 1



    if j > i then j = 0
    _display
loop

sub openMap
    open map for input as #1
    while not eof(1)
        input #1, obstacle(i).btype, obstacle(i).x1, obstacle(i).x2, obstacle(i).y1, obstacle(i). y2, obstacle(i).r, obstacle(i).g, obstacle(i).b
        i = i + 1
    wend
    close #1
end sub
"Input pas end of file!"
WHYYYY??

-Prithak

Just to get the code to compile I had to make this change to explicitly specify that the map1 file is in the same directory as the exe:

Code: QB64: [Select]

1. map = ".\map1.txt"

Uhh... No you don't need to do that...

Hey, Long time no see. Anyways,

I was developing a game where I run on a problem IMMEDIATELY xD. And I can't quite figure out what that problem is. Would you look at the code and find it out?
screen _newimage(1280,720,32)

_fullscreen

'Declaring Variables
type vec
    x as integer
    y as integer
    speed as integer
end type

dim shared player as vec
dim shared map as string

dim shared oldx, oldy as integer

player.speed = 3
map = "map1.txt"

player.x = _width / 2
player.y = _height / 2

'Main Loop
do
    cls

    makeplayer
    playerMovement
    'Test
    'makeObstacle 100,100,200,200,255,200,100

    makeMap

    'For Experiments: The co-ordinates
    _printstring (0,0), str$(player.x) + str$(player.y)

    _display
loop until _keyhit = 27
system
'Subs and Functions

sub makeplayer
    circle (player.x, player.y), 10, _rgb32(100,200,255)
    paint (player.x, player.y), _rgb32(100,200,255), _rgb32(100,200,255)
end sub

sub playerMovement
    if _keydown(18432) then player.y = player.y - player.speed
    if _keydown(20480) then player.y = player.y + player.speed
    if _keydown(19200) then player.x = player.x - player.speed
    if _keydown(19712) then player.x = player.x + player.speed
end sub

sub makeObstacle(x1,y1,x2,y2,r,g,b)

    line (x1,y1)-(x2,y2),_rgb32(r,g,b), BF

    if player.x + 10 >= x1 and player.x - 10 <= x2 and player.y + 10 >= y1 and player.y - 10 <= y2 then
        player.x = oldx
        player.y = oldy
    else
        oldx = player.x
        oldy = player.y
    end if

end sub

sub makeMap
    open map for input as #1
    while not eof(1)
        input #1, cm$,x1,y1,x2,y2,r,g,b
        if cm$ = "obs" then
            makeObstacle x1,y1,x2,y2,r,g,b
        end if
    wend
    close #1
end sub

Here's the file called "map1.txt"
obs, 0,0,700,50,242,242,242
obs, 800,50,1280,100,242,242,242

Here, the 1st obstacle is blocking the character perfectly, but the second one isn't. Why???

-Prithak

Alright! Back to programming with my exams now gone! Here I coded this stuff:

screen _newimage(800,600,32)

dim shared x as integer
dim shared y as integer
dim shared oldx as integer
dim shared oldy as integer

x = 100
y = 200

color , _rgb32(50,200,0)

cls

do
cls

open "blocks.txt" for input as #1

while not eof(1)

input #1, x1,y1,x2,y2,r,g,b

makeobs x1,y1,x2,y2,r,g,b
wend

close #1

    IF _KEYDOWN(CVI(CHR$(0) + "P")) THEN y = y - 5   '_KEYDOWN(20480)
    IF _KEYDOWN(CVI(CHR$(0) + "H")) THEN y = y + 5   '_KEYDOWN(18432)
    IF _KEYDOWN(CVI(CHR$(0) + "K")) THEN x = x + 5   '_KEYDOWN(19200)
    IF _KEYDOWN(CVI(CHR$(0) + "M")) THEN x = x - 5   '_KEYDOWN(19712)

'The sprites will be 20x20 pixels, I believe...
line (_width/2,_height/2)-step(20,20),_rgb32(255,200,100),BF

_printstring(0,0),str$(x) + " " + str$(y)

_limit 100
_Display
loop
 
FUNCTION collision% (b1x, b1y, b1w, b1h, b2x, b2y, b2w, b2h)
    IF (b1y + b1h < b2y) OR (b1y > b2y + b2h) OR (b1x > b2x + b2w) OR (b1x + b1w < b2x) THEN
        collision% = 0
    ELSE
        collision% = 1
    END IF
END FUNCTION

sub makeobs (x1,y1,w,h,r,g,b)

line(x + x1, y + y1)-step(w,h),_rgb32(r,g,b),BF
Line(x + x1, y + y1)-step(w,h),_Rgb32(255,255,255),B
'200, 200 - 220, 220

if collision%(_width/2,_height/2,20,20,x + x1, y + y1,w,h) then
y = oldy
x = oldx
else
oldy = y
oldx = x
end if


end sub

And here's "blocks.txt"
200,100,100,100,100,200,255
200,300,100,100,100,200,255
100,200,100,100,100,200,255
300,200,100,100,100,200,255

Ok. For some reason, the character's only being blocked by the first obstacle? WHY??

-Prithak

Fine! Well suited. Very fast!

Please add <Help> button with instructions for keys active and a little story or the goal.

Negative Feedback:
Aargh! There is a big big big mistake at line code 25...

Code: QB64: [Select]

1. IF mouseclick(570, 290, 600 + LEN("play") * 16, 425) THEN
2. SYSTEM

you use LEN("play")! Aargh! you must use LEN("quit")!!!!
:-)
:-P what do you think of this joke?

Lol! The length of "play" and the length of "quit" is the same is it not? Yeah, The help button will be added along with setting on the next update! I won't be able to code today but tomorrow? That might be a nice time!

It’s because the _KEYDOWN check is in an ELSEIF statement.  Make all those become independent IF checks instead.

Thanks man, wouldh've never figured out that on my own!