hexgrid boardgame framework

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|661\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic -> hexgrid boardgame framework
Tue, 29 Sep 2015, 19:55
gameleaper	'this is a hexgrid, with 40x40 size 'you must provide 2 files for this program to work troops.png 40 pixels high 80 across 2 chits 'a 1024x768 backdrop these files are to be placed in a folder called "HexGame" Graphics 1024,768,32,60 Global chit = LoadAnimImage(".\HexGame\troops.PNG",40,40,0,2,flags=ALPHABITS ) '2 forty by forty chits Global backdrop = LoadImage(".\HexGame\backdrop.PNG" ) 'plain backdrop Global gameboard[40,40,40] '40 x 40 grid gameboard with 40 items of info per location Global x1 = 0 Global y1 = 0 Global shift = 0 Global sa = 0 Global ba = 0 'try setting the gameboard as shown below gameboard[1,1,1] = 1 gameboard[1,3,1] = 1 While Not KeyHit(KEY_ESCAPE) 'hit escape to exit Cls 'clear screen before redrawing each loop through DrawImage(backdrop ,0,0) 'draw backdrop drawhexgrid() 'call the function to draw hexgrid x1 = MouseX() /40 y1 = MouseY() /40 'this adjusts the code for a hexgrid rather than squares shift = 0 'initialise shift If x1 = 0 Or x1 = 2 Or x1 = 4 Or x1 = 6 Or x1 = 8 Or x1 = 10 Or x1 = 12 Or x1 = 14 Or x1 = 16 Or x1 = 18 Or x1 = 20 Or x1 = 22 Or x1 = 24 Or x1 = 26 Then shift = 1 If shift = 1 y1 = (MouseY()-20) /40 '-20 because the +20 we added in the display loop and the mousey EndIf 'use a for next loop to draw chits For x= 0 To 26 For y = 0 To 16 shift = 0 'initialise shift If x = 0 Or x = 2 Or x = 4 Or x = 6 Or x = 8 Or x = 10 Or x = 12 Or x = 14 Or x = 16 Or x = 18 Or x = 20 Or x = 22 Or x = 24 Or x = 26 Then shift = 1 'check to see if we are on a shifted down hex If gameboard[x,y,1] = 1 And shift = 0 Then DrawImage(chit,x40,y40,frame=1) 'frame is chit number 1 or 2 If gameboard[x,y,1] = 1 And shift = 1 Then DrawImage(chit,x40,(y40)+20,frame=1) 'frame is chit number 1 or 2, adds 10 to Y(down) Next Next ' devise x and y by 20 pixels, this is because the chits are 20 pixels 'the idea is to find where the mouse pointer is 'this sets gameboard on off by left or right clicking If x1 < 25 And x1 > 0 And y1 < 16 And y1 > -1 'x has 25 across, y has 16 down If MouseDown(1) 'Left click set on gameboard[x1,y1,1] = 1 EndIf If MouseDown(2) 'right click set off gameboard[x1,y1,1] = 0 EndIf EndIf Flip 'this flips the board onto the screen Wend End Function drawhexgrid() ' the loops draw 6 hexsides and repeat through the loops a = 80 b = 0 c = 80 d = 0 For a2 = 0 To 15 For a1 = 0 To 26 Step 2 DrawLine(5+a,20+b,35+c,20+d) DrawLine(35+a,20+b,45+c,40+d) DrawLine(45+a,40+b,35+c,60+d) DrawLine(35+a,60+b,5+c,60+d) DrawLine(5+a,60+b,-5+c,40+d) DrawLine(-5+a,40+b,5+c,20+d) a=a+80 c=c+80 Next a = 80 c = 80 b = b+40 d = d+40 Next a = 40 b = -20 c = 40 d = -20 For a2 = 0 To 15 For a1 = 0 To 23 Step 2 DrawLine(5+a,20+b,35+c,20+d) DrawLine(35+a,20+b,45+c,40+d) DrawLine(45+a,40+b,35+c,60+d) DrawLine(35+a,60+b,5+c,60+d) DrawLine(5+a,60+b,-5+c,40+d) DrawLine(-5+a,40+b,5+c,20+d) a=a+80 c=c+80 Next a = 40 c = 40 b = b+40 d = d+40 Next End Function End --v
Tue, 29 Sep 2015, 21:47
rockford	You could use the "MOD" command for the "IF x=0 OR x=2 OR x=..." bits you know. Much neater and a LOT less typing!
Tue, 29 Sep 2015, 22:06
gameleaper	I never used MOD, not ever! I shall have a look at it