Blogs - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|641\|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!

So we start again...

Comments