|
|
Post by atomose on Jan 1, 2024 9:25:03 GMT -5
nomainwin
dim p(x,y)
x = 10 : y = 40 : GameVersion = 0.01
WindowWidth=606 : WindowHeight=606 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
graphicbox #ini.main, 0, 0, 607, 577
open "3D ISO - v ";GameVersion for window_nf as #ini
#ini, "trapclose [quit]"
print #ini.main, "down; fill WHITE; size 1; color ";0;" ";0;" ";0
print #ini.main, "when leftButtonDown [click1]"
[map]
redim p(x,y)
data 01,02,03,04,05,06,07,08,09,010
data 11,12,13,14,15,16,17,18,19,020
data 21,22,23,24,25,26,27,28,29,030
data 31,32,33,34,35,36,37,38,39,040
data 41,42,43,44,45,46,47,48,49,050
data 51,52,53,54,55,56,57,58,59,060
data 61,62,63,64,65,66,67,68,69,070
data 71,72,73,74,75,76,77,78,79,080
data 81,82,83,84,85,86,87,88,89,090
data 91,92,93,94,95,96,97,98,99,100
data 01,02,03,04,05,06,07,08,09,010
data 11,12,13,14,15,16,17,18,19,020
data 21,22,23,24,25,26,27,28,29,030
data 31,32,33,34,35,36,37,38,39,040
data 41,42,43,44,45,46,47,48,49,050
data 51,52,53,54,55,56,57,58,59,060
data 61,62,63,64,65,66,67,68,69,070
data 71,72,73,74,75,76,77,78,79,080
data 81,82,83,84,85,86,87,88,89,090
data 91,92,93,94,95,96,97,98,99,100
data 01,02,03,04,05,06,07,08,09,010
data 11,12,13,14,15,16,17,18,19,020
data 21,22,23,24,25,26,27,28,29,030
data 31,32,33,34,35,36,37,38,39,040
data 41,42,43,44,45,46,47,48,49,050
data 51,52,53,54,55,56,57,58,59,060
data 61,62,63,64,65,66,67,68,69,070
data 71,72,73,74,75,76,77,78,79,080
data 81,82,83,84,85,86,87,88,89,090
data 91,92,93,94,95,96,97,98,99,100
data 01,02,03,04,05,06,07,08,09,010
data 11,12,13,14,15,16,17,18,19,020
data 21,22,23,24,25,26,27,28,29,030
data 31,32,33,34,35,36,37,38,39,040
data 41,42,43,44,45,46,47,48,49,050
data 51,52,53,54,55,56,57,58,59,060
data 61,62,63,64,65,66,67,68,69,070
data 71,72,73,74,75,76,77,78,79,080
data 81,82,83,84,85,86,87,88,89,090
data 91,92,93,94,95,96,97,98,99,100
restore [map]
for b=1 to y
for a=1 to x
read valeur : p(x,y)= valeur
next a
next b
valX = -60 : valY = 0
for y=0 to 10
for x=0 to 10
#ini.main, "line "; valX; " "; valY; " "; valX+120; " "; valY-60
#ini.main, "line "; valX; " "; valY; " "; valX+120; " "; valY+60
valX = valX + 60
next
valX = -60
valY = valY + 60
next
wait
[click1]
mX = MouseX : mY = MouseY
notice p(x,y) ' here is the problem
WAIT
[quit]
close #ini : end
As you can see we have a 3D iso board. I try to have to value of each case but i dont have any result  ! Any idea for you the correct case (maybe my draw line are false to ? ^^) |
|
|
|
Post by tsh73 on Jan 1, 2024 10:22:50 GMT -5
First, your array is empty - it needs "p(a,b)= valeur" Second, as you draw drid, I added slanted vertical lines of p(x,y) length. Is it supposed to be like this? It might as well be different (X along one line of grid, Y along another) Have a look at libertybasiccom.proboards.com/thread/1817/falling-sand-simulation to see how it could be
nomainwin
dim p(x,y)
x = 10 : y = 40 : GameVersion = 0.01
WindowWidth=606 : WindowHeight=606 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2)
graphicbox #ini.main, 0, 0, 607, 577
open "3D ISO - v ";GameVersion for window_nf as #ini
#ini, "trapclose [quit]"
print #ini.main, "down; fill WHITE; size 1; color ";0;" ";0;" ";0
print #ini.main, "when leftButtonDown [click1]"
[map]
redim p(x,y)
data 01,02,03,04,05,06,07,08,09,010
data 11,12,13,14,15,16,17,18,19,020
data 21,22,23,24,25,26,27,28,29,030
data 31,32,33,34,35,36,37,38,39,040
data 41,42,43,44,45,46,47,48,49,050
data 51,52,53,54,55,56,57,58,59,060
data 61,62,63,64,65,66,67,68,69,070
data 71,72,73,74,75,76,77,78,79,080
data 81,82,83,84,85,86,87,88,89,090
data 91,92,93,94,95,96,97,98,99,100
data 01,02,03,04,05,06,07,08,09,010
data 11,12,13,14,15,16,17,18,19,020
data 21,22,23,24,25,26,27,28,29,030
data 31,32,33,34,35,36,37,38,39,040
data 41,42,43,44,45,46,47,48,49,050
data 51,52,53,54,55,56,57,58,59,060
data 61,62,63,64,65,66,67,68,69,070
data 71,72,73,74,75,76,77,78,79,080
data 81,82,83,84,85,86,87,88,89,090
data 91,92,93,94,95,96,97,98,99,100
data 01,02,03,04,05,06,07,08,09,010
data 11,12,13,14,15,16,17,18,19,020
data 21,22,23,24,25,26,27,28,29,030
data 31,32,33,34,35,36,37,38,39,040
data 41,42,43,44,45,46,47,48,49,050
data 51,52,53,54,55,56,57,58,59,060
data 61,62,63,64,65,66,67,68,69,070
data 71,72,73,74,75,76,77,78,79,080
data 81,82,83,84,85,86,87,88,89,090
data 91,92,93,94,95,96,97,98,99,100
data 01,02,03,04,05,06,07,08,09,010
data 11,12,13,14,15,16,17,18,19,020
data 21,22,23,24,25,26,27,28,29,030
data 31,32,33,34,35,36,37,38,39,040
data 41,42,43,44,45,46,47,48,49,050
data 51,52,53,54,55,56,57,58,59,060
data 61,62,63,64,65,66,67,68,69,070
data 71,72,73,74,75,76,77,78,79,080
data 81,82,83,84,85,86,87,88,89,090
data 91,92,93,94,95,96,97,98,99,100
restore [map]
for b=1 to y
for a=1 to x
'read valeur : p(x,y)= valeur
read valeur : p(a,b)= valeur
next a
next b
#ini.main, "north; turn 5"
valX = -60 : valY = 0
for y=0 to 10
for x=0 to 10
#ini.main, "line "; valX; " "; valY; " "; valX+120; " "; valY-60
#ini.main, "line "; valX; " "; valY; " "; valX+120; " "; valY+60
#ini.main, "set "; valX; " "; valY
#ini.main, "go "; p(x,y)
valX = valX + 60
next
#ini.main, "flush"
timer 5, [nxt]
'timer 500, [nxt]
wait
[nxt]
timer 0
valX = -60
valY = valY + 60
next
print #ini.main, "when mouseMove [Move]"
wait
[click1]
mX = MouseX : mY = MouseY
notice p(x,y) ' here is the problem
WAIT
[Move]
#ini.main "place 0 0"
#ini.main "\\";space$(200)
#ini.main "place 0 0"
x=int((MouseX+60+30)/60) ' 'cause it starts -60
y=int((MouseY+30)/60)
if (x<0) or (x>10) or (y<0) or (y>10) then wait
#ini.main "\\";MouseX; "-";MouseY;" p(";x; "," ;y;")= ";p(x,y)
wait
[quit]
close #ini : end
|
|
! Any idea for you the correct case (maybe my draw line are false to ? ^^)
