So we start again...

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|580\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Blogs Home -> Blogs

waroffice	Created : 20 March 2013 Edited : 20 March 2013 So we start again... the last time? unlikely
So I was dabbling in GLBasic today. I actually coded something too, wanna see? Course you do. This is where the files will be at ag33k.net What I managed to do in a couple of hours was load my old tile map image, some how load the old tile map data file and get it to show the map and scroll around without a crash in site! the code is dead easy too, it needs some optimisations for future growth but I like it. waroffice.Motivation++ // --------------------------------- // // Project: RPG // Start: Wednesday, March 20, 2013 // IDE Version: 10.202 // FREE-VERSION: // Need Premium for Features: // 3D Graphics // Network Commands // INLINE C/C+++ code TYPE maptype flags // for different switches, see constants below Collision // Flags for collision map tEvent // Event to trigger if fHasEvent = 1 SwX // Switched Cell X coord, initiated if fHasSwitch = 1 SwY // Switched Cell Y coord SwT // Switch to this type exitMap // Map number to load, initiated if fHasExitCoords = 1 eCoordX // Starting coord x eCoordY // Starting coord y eData1 // Event Data 1 eData2 // Event Data 2 L1_tile% // Tile number, Layer 1 L2_tile% // Tile number 2 L3_tile% // Tile number 3 L4_tile% // Tile number 4 ENDTYPE SETCURRENTDIR("Media") // go to media files SETSCREEN 640,480,0 LOADANIM "TILES.png",0,32,32 GLOBAL map[] AS maptype DIM map[100][100] GLOBAL x,y,off_x,off_y //FOR x = 0 TO 49 // FOR y = 0 TO 49 // map[x][y]=RND(35) // NEXT //NEXT LoadMap() WHILE NOT KEY(1) IF KEY(208); IF off_y<48; off_y=off_y+1; ENDIF; ENDIF // DOWN IF KEY(203); IF off_x>1; off_x=off_x-1; ENDIF; ENDIF // LEFT IF KEY(200); IF off_y>1; off_y=off_y-1; ENDIF; ENDIF // UP IF KEY(205); IF off_x<48; off_x=off_x+1; ENDIF; ENDIF // RIGHT DrawMap() PRINT "RPG 0.1 ", 0,0 SHOWSCREEN WEND FUNCTION LoadMap: LOCAL map_w% , map_h% , tmp_int%, handle% handle%=1 OPENFILE(handle%,"lilly.map",1) READULONG handle%, map_w READULONG handle%, map_h FOR x= 0 TO map_w FOR y = 0 TO map_h READULONG handle%,tmp_int //mapdata[x,y].Flags=ReadInt(mfile) READULONG handle%,tmp_int //mapdata[x,y].Collision=Readint(mfile) READULONG handle%,tmp_int //mapdata[x,y].tEvent=ReadInt(mfile) READULONG handle%,tmp_int //mapdata[x,y].SwX=ReadInt(mfile) READULONG handle%,tmp_int //mapdata[x,y].SwY=ReadInt(mfile) READULONG handle%,tmp_int //mapdata[x,y].SwT=Readint(mfile) READULONG handle%,tmp_int //mapdata[x,y].exitMap=Readint(mfile) READULONG handle%,tmp_int //mapdata[x,y].eCoordX=ReadInt(mfile) READULONG handle%,tmp_int //mapdata[x,y].eCoordY=ReadInt(mfile) READULONG handle%,tmp_int //mapdata[x,y].eData1=ReadInt(mfile) READULONG handle%,tmp_int //mapdata[x,y].eData2=ReadInt(mfile) READULONG handle%,map[x][y].L1_tile //mapdata[x,y].L1_tile=ReadInt(mfile) READULONG handle%,map[x][y].L2_tile //mapdata[x,y].L2_tile=ReadInt(mfile) READULONG handle%,map[x][y].L3_tile //mapdata[x,y].L3_tile=ReadInt(mfile) READULONG handle%,map[x][y].L4_tile //mapdata[x,y].L4_tile=ReadInt(mfile) NEXT NEXT CLOSEFILE 1 ENDFUNCTION FUNCTION DrawMap: LOCAL u,v FOR u = 0 TO 49 FOR v = 0 TO 49 DRAWANIM 0,map[u+off_x][v+off_y].L1_tile,u32,v32 DRAWANIM 0,map[u+off_x][v+off_y].L2_tile,u32,v32 DRAWANIM 0,map[u+off_x][v+off_y].L3_tile,u32,v32 DRAWANIM 0,map[u+off_x][v+off_y].L4_tile,u32,v32 NEXT NEXT ENDFUNCTION --v

Comments
Thursday, 21 March 2013, 01:46
Jayenkai	Woohoo
Thursday, 21 March 2013, 07:41
waroffice	Just thought I would try the download, seems my HTML was wrong. Try it now.
Thursday, 21 March 2013, 07:50
Jayenkai	Keep it going! You can do it! Reach for the Stars! Try your Best! Generic Motivation Comment #8! Great Stuff! Seems to work ok. Shouldn't be too hard to add smoother scrolling, either, or go old-skool and have it do screen-flipping as you reach the sides
Friday, 22 March 2013, 02:07
Dabz	Nice work there WO, looks great! Dabz
Friday, 22 March 2013, 02:33
Afr0	Nice, just needs some networking now!
Friday, 22 March 2013, 03:22
waroffice	Haha I'll make one of the puzzle a subnetting question I'm on call from today so that means no beer which means the missus will go out and leave me alone. Time to get programming!

Comments