Just a lil thing im working on, basically it allows you to create a matrix and you control a lil pointer for the X,Y,Z variables, and then you can change the texture of whatever tile you are in.
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
REM *-* Matrix Texture Editor *-*
REM *-* By Grahame Williams *-*
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
REM *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
rem Initial
sync on
set display mode 800,600,32
randomize timer()
hide mouse
REM *-* MAP SETTINGS DETERMINED HERE *-*
REM MAPWIDTH = changes the maps width
REM MAPHEIGHT = changes the maos height
REM STARTS = changes how many times random places are picked
REM DIRE = changes how often the direction of the corridor changes
REM CORS = changes how long each corridor is
REM ROOMS = unknown as of now
mapwidth = 50
mapheight = 50
STARTS = 10
Dire = 3
CORS = 20
rooms = 4
make object cone 1,1
color object 1,rgb(255,0,0)
position object 1,1,1,1
xrotate object 1,180
scale object 1,100,500,100
make matrix 1,mapwidth,mapheight,mapwidth,mapheight
position camera 25,50,-10
xrotate camera 56
load image "matrix4.bmp",1
prepare matrix texture 1,1,2,2
REM Drec 1 = U , 2 = R , 3 = D , 4 = L
Drec = 0
REM Array = GRID
DIM grid(mapwidth,mapheight)
For I = 1 to Mapwidth
For A = 1 to mapheight
Grid(I,A)=A
Next A
Next I
REM Array = Visited
DIM GV(mapwidth+1,mapheight+1,1)
Y=1:X=1
TEX=1
do
REM INPUT
if upkey()=1
Y=Y+1 : position object 1,X,1,Y : wait 10
if tex = 0
else
GV(X,Y,1)=TEX
endif
ENDIF
if downkey()=1
Y=Y-1 : position object 1,X,1,Y : wait 10
if tex = 0
else
GV(X,Y,1)=TEX
endif
ENDIF
if leftkey()=1
X=X-1 : position object 1,X,1,Y : wait 10
if tex = 0
else
GV(X,Y,1)=TEX
endif
ENDIF
if rightkey()=1
X=X+1 : position object 1,X,1,Y : wait 10
if tex=0
else
GV(X,Y,1)=TEX
endif
ENDIF
if spacekey()=1
For I = 1 to mapheight
For A = 1 to mapwidth
GV(I,A,1)=1
Next A
Next I
Tex = 1
endif
if inkey$()="1"
TEX=1
GV(X,Y,1)=1
endif
if inkey$()="2"
TEX=2
GV(X,Y,1)=2
endif
if inkey$()="3"
TEX=3
GV(X,Y,1)=3
endif
if inkey$()="4"
TEX=4
GV(X,Y,1)=4
endif
if inkey$()="`"
tex=0
endif
REM STAGE ONE - DIGGABLE (CEMENT)
For I = 1 to mapwidth
For A = 1 to mapheight
if GV(I,A,1)=1
set matrix tile 1,I-1,A-1,1
endif
Next A
Next I
REM STAGE TWO - PASSABLE (GRASS)
For I = 1 to mapwidth
For A = 1 to mapheight
if GV(I,A,1)=2
set matrix tile 1,I-1,A-1,2
endif
Next A
Next I
REM STAGE THREE - INPASSABLE (RED)
For I = 1 to mapwidth
For A = 1 to mapheight
if GV(I,A,1)=3
set matrix tile 1,I-1,A-1,3
endif
Next A
Next I
REM STAGE FOUR - SELECTION (YELLOW)
For I = 1 to mapwidth
For A = 1 to mapheight
if GV(I,A,1)=4
set matrix tile 1,I-1,A-1,4
endif
Next A
Next I
update matrix 1
sync
loop
make sure you make a new project and copy the media to it.
AS i sed.. is rather incomplete, but i would say it was a decent platform to build upon to suit your needs.
*-* CONTROLS *-*
Cursor Keys = Control Red Cone
"`" = No Texture Selected
"1" = Texture 1 - Grey
"2" = Texture 2 - Green
"3" = Texture 3 - Red
"4" = Texture 4 - Yellow
SpaceBar = Clear Matrix - Sets it all to Texture 1
As i said, its incomplete, and still has a few bugs, but hey, im not amayzing and i've only been wrking on it today.
Feel free to leave comments
*-* EDIT *-*
Only just realised that this would be more acceptable in W.I.P, tho i dont often scrol dwn that far .. SORRY!
