Construct 3 with AI help

// Global variables
Variables:
 cellSize = 118 
 cellHeight = 102 
 gridWidth = 10 
 gridHeight = 10 

// Function for converting screen coordinates to grid coordinates
Function ConvertToGridCoord(x, y):
 let qF = (Math.sqrt(3)/3 * x - 1/3 * y) / cellSize
 let rF = (2/3 * y) / cellSize
 let q = Math.round(qF)
 let r = Math.round(rF)
 let s = Math.round(-qF - rF)
 
 let qDiff = Math.abs(q - qF)
 let rDiff = Math.abs(r - rF)
 let sDiff = Math.abs(s - (-qF - rF))
 
 if (qDiff > rDiff && qDiff > sDiff):
 q = -r - s
 else if (rDiff > sDiff):
 r = -q - s
 
 return {q: q, r: r}

// Function for converting grid coordinates to screen coordinates
Function ConvertToScreenCoord(q, r):
 let x = cellSize * (Math.sqrt(3) * q + Math.sqrt(3)/2 * r)
 let y = cellSize * (3/2 * r)
 return {x: x, y: y}

// Function to check if a cell is within the grid boundaries
Function IsInGrid(q, r):
 return q >= 0 && q < gridWidth && r >= 0 && r < gridHeight

// Function to get the neighbors of a cell
Function GetNeighbors(q, r):
 let directions = [
 {q: 1, r: 0}, {q: 1, r: -1}, {q: 0, r: -1},
 {q: -1, r: 0}, {q: -1, r: 1}, {q: 0, r: 1}
 ]
 let neighbors = []
 for (let dir of directions):
 let newQ = q + dir.q
 let newR = r + dir.r
 if (IsInGrid(newQ, newR)):
 neighbors.push({q: newQ, r: newR})
 return neighbors

// Function for pathfinding (A* algorithm)
Function FindPath(startQ, startR, endQ, endR):
 let openSet = [{q: startQ, r: startR, g: 0, h: 0, f: 0, parent: null}]
 let closedSet = []
 
 while (openSet.length > 0):
 let current = openSet.reduce((min, item) => item.f < min.f ? item : min, openSet[0])
 
 if (current.q === endQ && current.r === endR):
 let path = []
 while (current):
 path.push({q: current.q, r: current.r})
 current = current.parent
 return path.reverse()
 
 openSet = openSet.filter(item => item !== current)
 closedSet.push(current)
 
 let neighbors = GetNeighbors(current.q, current.r)
 for (let neighbor of neighbors):
 if (closedSet.some(item => item.q === neighbor.q && item.r === neighbor.r)):
 continue
 
 let gScore = current.g + 1
 let isInOpenSet = openSet.some(item => item.q === neighbor.q && item.r === neighbor.r)
 
 if (!isInOpenSet || gScore < neighbor.g):
 let h = Math.abs(neighbor.q - endQ) + Math.abs(neighbor.r - endR)
 let f = gScore + h
 
 if (!isInOpenSet):
 openSet.push({q: neighbor.q, r: neighbor.r, g: gScore, h: h, f: f, parent: current})
 else:
 let existingNeighbor = openSet.find(item => item.q === neighbor.q && item.r === neighbor.r)
 existingNeighbor.g = gScore
 existingNeighbor.f = f
 existingNeighbor.parent = current
 
 return null // путь не найден

// Events

On start of layout:
 // Grid initialization (creating cell sprites)
 For q = 0 to gridWidth - 1:
 For r = 0 to gridHeight - 1:
 let pos = ConvertToScreenCoord(q, r)
 Create object Cell at (pos.x, pos.y)

On Touch object Cell:
 let touchX = Touch.X
 let touchY = Touch.Y
 let gridCoord = ConvertToGridCoord(touchX, touchY)
 let path = FindPath(Ship.GridQ, Ship.GridR, gridCoord.q, gridCoord.r)
 
 if (path):
 Ship.PathToFollow = path
 Ship.CurrentPathIndex = 0
 System.Trigger("MoveShipAlongPath")

System event: MoveShipAlongPath:
 if (Ship.CurrentPathIndex < Ship.PathToFollow.length):
 let nextCell = Ship.PathToFollow[Ship.CurrentPathIndex]
 let screenCoord = ConvertToScreenCoord(nextCell.q, nextCell.r)
 
 Ship.TweenPosition(screenCoord.x, screenCoord.y, 0.5, "ease-out-quad")
 Ship.GridQ = nextCell.q
 Ship.GridR = nextCell.r
 
 Ship.CurrentPathIndex += 1
 else:
 Ship.PathToFollow = null
 Ship.CurrentPathIndex = 0

On TweenPosition completed for Ship:
 System.Trigger("MoveShipAlongPath")