I am making a 2D shoot-em-up for the compotition(thread in Geek Culture board). I have gotten it to load all the tiles, but all the diagonal tiles have a border between them.
Example(Click for larger image to see border):
It is not like this for the other tiles though:
????? Here is the tile pack:
Here is the source if you need it:
remstart
-------------------------------------------------------------------
program name: Laser Assault 3
-------------------------------------------------------------------
written by: UFO
date started: 1/23/06
date finished: N/A
-------------------------------------------------------------------
comments: 3rd Game in the series. Shoot the aliens!!!!! Now with
waves and a ground that you fly over :O (At least it will)
-------------------------------------------------------------------
image info: 200+ = Ground Tiles
-------------------------------------------------------------------
object info: 2000+ = Ground
-------------------------------------------------------------------
remend
`BEGIN GAME SETUP
Sync on
sync rate 0
Hide mouse
CLS
`BEGIN GAME VARIABLE SETUPS
MAxlevels = 1
Dim level(0)
Level(0) = 1
Dim Map(maxlevels,150,20,2)
`BEGIN GAME LEVEL SETUPS
Load_Ground_Tiles
For I = 1 to maxlevels
Load_Map(I)
next I
Create_Ground
Texture_Ground
Position camera 0,40,0
Point camera 0,0,0
Do
If upkey() = 1 then position camera camera position x(),camera position y(),camera position z()-1
IF downkey() = 1 then position camera camera position x(),camera position y(),camera position z()+1
IF rightkey() = 1 then position camera camera position x()+1,camera position y(),camera position z()
IF leftkey() = 1 then position camera camera position x()-1,camera position y(),camera position z()
If inkey$() = "=" then position camera camera position x(),camera position y()-1,camera position z()
IF inkey$() = "-" then position camera camera position x(),camera position y()+1,camera position z()
sync
Loop
end
Function Load_Ground_Tiles
Loading("Loading Ground Images...")
Load image "Ground Tiles.bmp",1
Paste image 1,0,0
I = 200
for y = 0 to 9
for x = 0 to 9
get image i,(x*17)+1,(y*17)+1,(x*17)+17,(y*17)+17
i = i + 1
next x
next y
cls 0
Endfunction
Function Load_Map(Level)
Loading("Loading Levels...")
Filename$ = "Level"+str$(level)+".bn2"
open to Read 1 , FileName$
rem read map header
Read String 1 , File_Input$ : M_Max_X = Val(File_Input$)
Read String 1 , File_Input$ : M_Max_Y = Val(File_Input$)
Read String 1 , File_Input$ : M_N_Layes = Val(File_Input$)
Rem Read map data
FOR N = 1 to M_N_Layes
FOR X = 1 to M_Max_X
FOR Y = M_Max_Y to 1 step -1
Read byte 1 , junk
Read byte 1 , Map(level,x,y,n)
NEXT Y
NEXT X
NEXT N
close file 1
Endfunction
Function Create_Ground
Loading("Making Ground Objects...")
Objectnum = 2000
For y = 0 to 19
For x = 0 to 149
Make object plain objectnum,2,2
Position object objectnum,x*2+1,0,y*2+1
xrotate object objectnum,90
Objectnum = Objectnum + 1
next x
next y
Endfunction
Function Texture_Ground
Loading("Texturing Ground...")
Objectnum = 2000
For y = 1 to 20
For x = 1 to 150
Texture object objectnum,Map(Level(0),x,y,1)+200
objectnum = objectnum + 1
next x
next y
Endfunction
Function Loading(Message$)
Cls 0
Ink rgb(255,0,0),0
Center text screen width()/2,screen height()/2,Message$
sync
endfunction
And the level1.bn2 is attached it you want to run the program.
Thanks for your attention, and help would be greatly appreciated
Hippopotomonstrosesquippedaliophobia-Fear of long words
