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
obs, 0,0,700,50,242,242,242
obs, 800,50,1280,100,242,242,242
Hi,Ya. I figured. But, Using Arrays would SIGNIFICANTLY slow down the computer. So, I figured this plan out. If this works, I won't have to worry about performance. Soo... If there is a way out, PLEASE TEACH MEH!!!
Its cause your only storing one set of data for the obstacles. You need to use an array to store more than one.
Id suggest you define a TYPE for the obstacles and then use an array of that type to handle them
i.e
type Obstacle
X1 AS integer
X2 as integer
Y1 as integer
Y2 as integer
Color as _unsigned long
End type
Dim Obstacle(9) as obstacle '// Creates an array of ten Obstacle type variables.
Have fun and happy coding!
Unseen
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:Uhh... No you don't need to do that...Code: QB64: [Select]
Uhh... No you don't need to do that...
But, Using Arrays would SIGNIFICANTLY slow down the computer
Are you sure? I easily get 25-35 fps with my current programs and they are far more CPU/Memory heavy than what you've posted. I cant see that you'd notice any difference in speed if you used arrays aposed to individual variables to store each value.Ok. Would you mind sending me an example. Cuz, when I tried to do it. It just didn't work.
Good luck,
Unseen
But, Using Arrays would SIGNIFICANTLY slow down the computer.
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!""Input pas end of file!"
WHYYYY??
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
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 oldx, oldy as integer
player.speed = 5
dim shared i as integer
map = "map1.txt"
openMap
j=1
do
cls
makeplayer
playerMovement
for j = 1 to i
line (obstacle(j).x1, obstacle(j).y1)-(obstacle(j).x2, obstacle(j).y2),_rgb32(obstacle(j).r,obstacle(j).g,obstacle(j).b),BF
block obstacle(j).x1, obstacle(j).y1, obstacle(j).x2, obstacle(j).y2
next j
_display
_limit 60
loop
sub openMap
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
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
sub block(x1,y1,x2,y2)
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
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 happensCode: QB64: [Select]
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?
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
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
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
Then we can argue about if it is the best way to store informations for a program, but that is another issue about talk.