View difference between Paste ID: LBWhLECs and 1acQQm2Z

 // Hexagon Manipulation
 
 // Macros
 // Manupulate hex_size to chance the size
 #macro hex_size 0.5
 #macro hex_side 16*hex_size
 #macro hex_radius_type_normal 1
 #macro hex_radius_type_offset 2
 #macro hex_radius_type_extra 3
 #macro hex_apothem 13.8564*hex_size
 
 // This will result in a point from the x and y the determined distance and angle
 function Vector2(vx, vy, vdist, vdir) constructor {
 	x = vx+lengthdir_x(vdist, vdir);
 	y = vy+lengthdir_y(vdist, vdir);
 }
 
 // This is to draw a single hexagon
 // You can change whatever it is inside this and it will be replicated to every hexagon in the grid
 function draw_hex(xHex, yHex) {
 
 	// Draw the six lines of the hexagon
 	for (var sp = 0 ; sp < 6 ; sp++) {
 		var s1a = sp*60;
 		var s2a = (sp+1)*60;
 
 		// This is to get the points of the side of the line to be drawed
 		var s1 = new Vector2(xHex, yHex, hex_side, s1a);
 		var s2 = new Vector2(xHex, yHex, hex_side, s2a);
 
 		// Draw a single line of the hexagon
 		draw_line_width(s1.x, s1.y, s2.x, s2.y, 1);
 
 		// Honestly I just put this just in case
 		delete s1;
 		delete s2;
 	}
 }
 
 // This is to draw a single hexagon with two lines depending on the
 // magnitude(number of hex of the lines) and the angle (needs to be (angle mod 60 == 0) to work)
 function draw_hex_vertex(xHex, yHex, magnitude, angle) {
 	magnitude = is_undefined(magnitude) ? 0 :  abs(magnitude);
 	angle = is_undefined(angle) ? 0 :  abs(angle);
 	var cc = draw_get_color();
 	draw_set_color(c_purple);
 	var hexM = 1;
 
 	// Draw the number of hexagons in the desired angle
 	repeat(magnitude) {
 		var hexDist = (hex_apothem*2*(hexM+0));
 		var hexVector1 = new Vector2(xHex, yHex, hexDist, angle-30);
 		var hexVector2 = new Vector2(xHex, yHex, hexDist, angle+30);
 
 		draw_hex(hexVector1.x, hexVector1.y);
 		draw_hex(hexVector2.x, hexVector2.y);
 
 		// Honestly I just put this just in case
 		delete hexVector1;
 		delete hexVector2;
 
 		hexM++;
 	}
 
 	// Draw the central hexagon of the vertex
 	draw_set_color(cc);
 	draw_hex(xHex, yHex);
 }
 
 // Draw a central hexagon surrounded by a number of hexagons delimited by the radius
 function draw_hex_radius(xHex, yHex, radius) {
 	radius = is_undefined(radius) ? 0 :  abs(radius);
 	if (radius > 0) {
 		for (var hr = 0 ; hr < radius ; hr++) {
 			var hexTotal = (hr+1)*6
 			for (var sp = 0 ; sp < hexTotal ; sp++) {
 
 				var sa = (sp*(360 div clamp(hexTotal, 6, 12)))+90;
 
 				// Determine the type of hexagon
 				var modRType = hex_radius_type_extra;
 				if (((sa-90) mod 60) == 0) {
 					modRType = hex_radius_type_normal;
 				} else if ((sa mod 60) == 0) {
 					modRType = hex_radius_type_offset;
 				}
 
 				// Draw the hexagon if not extra (purple ones)
 				if (modRType != hex_radius_type_extra) {
 					if (modRType == hex_radius_type_normal) {
 						var hexDist = (hex_apothem*2*(hr+1));
 						var hexVector = new Vector2(xHex, yHex, hexDist, sa);
 
 						// Draw the hexagon if normal (green or red)
 						var cc = ((hr mod 2) == 0) ? c_green : c_red;
 						draw_set_color(cc);
 						draw_hex(hexVector.x, hexVector.y);
 					} else if ((hr-1) < floor(radius/2)) {
 						var hexDist = (hex_side*3*(hr));
 						var hexVector = new Vector2(xHex, yHex, hexDist, sa);
 
 						// Draw the hexagon if offset (yellow)
 						draw_set_color(c_yellow);
 						draw_hex_vertex(hexVector.x, hexVector.y, radius-(2*(hr)), sa);
 					}
 
 					// Honestly I just put this just in case
 					delete hexVector;
 				}
 			}
 		}
 	}
 
 	// Draw central hexagon
 	draw_set_color(c_ltgrey);
 	draw_hex(xHex, yHex);
 }