Gammon Forum

Window = {
  new = function(name)
    local o = setmetatable({}, Window)
    
    o.name = name
    o.x = 0
    o.y = 0
    o.width = 1
    o.height = 1
    
    -- Dummy window.
    WindowCreate(o.name, 0, 0, 1, 1, 0, 0, 0)

    return o
  end,
  
  __index = {
    Clear = function(self, color)
      WindowRectOp(self.name, 2, 0, 0, 0, 0, color or 0x000000)
    end,
    
    Show = function(self, bShow)
      WindowShow(self.name, bShow)
    end,

    SelectFont = function(self, fontname, fontsize)
      local fid = nil
      local fontlist = WindowFontList(self.name)

      if fontlist then
        for _,v in ipairs(fontlist) do
          if WindowFontInfo(self.name, v, 21) == fontname and
             WindowFontInfo(self.name, v, 8) == fontsize then
            break
          end
        end
        
        if not fid then
          fid = self.name .. "-f" .. #fontlist+1
          WindowFont(self.name, fid, fontname, fontsize, false, false, false, false, 1, 0)
        end
      else
        fid = self.name .. "-f1"
        WindowFont(self.name, fid, fontname, fontsize, false, false, false, false, 1, 0)
      end
      
      return fid      
    end,
  },
}
setmetatable(Window, {__index = Window.__index})

CharacterGrid = {
  new = function(name, width, height, font, px)
    local o = Window.new(name)
    setmetatable(o, CharacterGrid)
    
    o.mapwidth = width
    o.mapheight = height
    
    o.font = {
      name = font or "fixedsys",
      id = nil,
      size = px or 10,
      width = 1,
      height = 1,
    }
    o.grid = {
    }
    
    o.font.id = o:SelectFont(o.font.name, o.font.size)
    
    return o
  end,
  
  -- "Instance" methods
  __index = {
    DrawCell = function(self, cell, x, y)
      -- Index into the appropriate cell, and add for the window edge
      local x = self.font.width*x + 1
      local y = self.font.height*y + 1
      
      WindowText(self.name, self.font.id, cell.char, x, y, 0, 0, cell.style, false)
    end,
        
    DrawRow = function(self, line, row)
      for i = 1, math.min(table.getn(line), self.mapwidth) do
        self:DrawCell(line[i], i-1, row)
      end
    end,
    
    DrawGrid = function(self)
      self.font.id = self:SelectFont(self.font.name, self.font.size)
      
      self.font.width = WindowTextWidth(self.name, self.font.id, "#")
      self.font.height = WindowFontInfo(self.name, self.font.id,  1)
      
      self.width = self.font.width * self.mapwidth;
      self.height = self.font.height * self.mapheight;
      
      WindowCreate(self.name, self.x, self.y, self.width, self.height, 6, 2, 0x000000)
      WindowPosition(self.name, self.x, self.y, 6, 2)
      
      for i = 1, math.min(table.getn(self.grid), self.mapheight) do
        self:DrawRow(self.grid[i], i-1)
      end
    end,
    
    Draw = function(self)
      self:Clear(0x000000)
      self:DrawGrid()
    end,
  },
}
setmetatable(CharacterGrid.__index, Window)
setmetatable(CharacterGrid, {__index = CharacterGrid.__index})

grid = CharacterGrid.new("TestGrid", 5, 5)
grid.x = 10
grid.y = 10

for i = 1, 5 do
  local line = {}
  for j = 1, 5 do
    line[j] = {char = "X", style = 0xFF0000}
  end
  grid.grid[i] = line
end

grid:Draw()
grid:Show(true)

MXP: #FF0000
JScript: 0x0000FF

require "InfoBox"
MW = InfoBox:New("Test")
MW.Bar.barStyle = 0 -- no frame or gauge
MW:Font("Dina", 9) -- monospaced font
MW.padding = 0 -- smoosh lines together

local LookupColors = {}
for k,v in pairs(MW.ansiColors) do
  LookupColors[v] = k
end
for k,v in pairs(MW.customColourCodes) do
  LookupColors[v]=k
end

MW.Bars={}

local Caption = ""
for k,v in ipairs(TriggerStyleRuns) do
  if not LookupColors[v.textcolour] then
    -- Code to append to LookupColors if not found
  end
  Caption = string.format("%s@%s%s", Caption, LookupColors[v.textcolour], v.text)
end
MW:AddBar(Caption)

MW:Update()

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>

<muclient>
<plugin
   name="TicTacToe"
   author="Soludra"
   id="03829336f30e9f2dcace86e9"
   language="Lua"
   purpose="Play a game of Tic Tac Toe!"
   date_written="2009-11-22 07:46:00"
   requires="4.43"
   version="1.0"
/>

<!--  Script  -->

<script>
<![CDATA[

CharacterGrid = require("MWidget.CharacterGrid")

-- Defines the default grid font.
TICTACTOE_FONT = "Lucida Console"

players = {
  [1] = {
    piece = 'X',
    color = 0x00FF00,
    lastmove = nil,
  },
  [2] = {
    piece = 'O',
    color = 0x0000FF,
    lastmove = nil,
  },
}
current_player = 1

-- cell we're hovering over now
hovered = nil

-- has the game been finished?
done = false

CheckRow = function(cell1, cell2, cell3)
  if cell1.char ~= ' ' and
     cell1.char == cell2.char and
     cell2.char == cell3.char then
    cell1.forecolor, cell2.forecolor, cell3.forecolor = 0xFF0000, 0xFF0000, 0xFF0000
    return true
  else
    return false
  end
end

CheckWin = function()
  done = CheckRow(grid:Cell(1, 1), grid:Cell(1, 2), grid:Cell(1, 3)) or
         CheckRow(grid:Cell(2, 1), grid:Cell(2, 2), grid:Cell(2, 3)) or
         CheckRow(grid:Cell(3, 1), grid:Cell(3, 2), grid:Cell(3, 3)) or
         CheckRow(grid:Cell(1, 1), grid:Cell(2, 1), grid:Cell(3, 1)) or
         CheckRow(grid:Cell(1, 2), grid:Cell(2, 2), grid:Cell(3, 2)) or
         CheckRow(grid:Cell(1, 3), grid:Cell(2, 3), grid:Cell(3, 3)) or
         CheckRow(grid:Cell(1, 1), grid:Cell(2, 2), grid:Cell(3, 3)) or
         CheckRow(grid:Cell(3, 1), grid:Cell(2, 2), grid:Cell(1, 3))
  return done
end

CellClick = function(flags, id)
  if done then
    return
  end
  
  local cell = grid:HotspotToCell(id)
  
  if cell.char ~= " " then
    return
  end
  
  local player = players[current_player]
  if player.lastmove then
    player.lastmove.backcolor = 0xFFFFFF
  end
  
  cell.char = player.piece
  cell.backcolor = player.color
  
  CheckWin()
  
  player.lastmove = cell
  current_player = (current_player%2) + 1
  grid:Draw()
end

CellFocus = function(flags, id)
  if done then
    return
  end
  
  local cell = grid:HotspotToCell(id)
  
  if cell.char ~= " " then
    return
  end
  
  cell.forecolor = players[current_player].color
  cell.char = players[current_player].piece
  
  hovered = id
  grid:Draw()
end

CellBlur = function(flags, id)
  if done then
    return
  end
  
  if id ~= hovered then
    return
  end
  local cell = grid:HotspotToCell(hovered)
  
  cell.forecolor = 0x000000
  cell.char = ' '
  
  hovered = nil
  grid:Draw()
end

Reset = function()
  current_player = 1
  done = false
  
  grid:ResetGrid()
  
  for y = 1, 3 do
    for x = 1, 3 do
      local cell = grid:Cell(x, y)
      cell.forecolor = 0x000000
      cell.hotspot = {
        mouseup = "CellClick",
        mouseover = "CellFocus",
        cancelmouseover = "CellBlur",
      }
    end
  end
  
  grid:Draw()
end

OnPluginInstall = function()
  grid = CharacterGrid.new(3, 3)
  grid:Anchor(12)
  grid:Font(TICTACTOE_FONT, 15)
  grid.backcolor = 0xFFFFFF

  Reset()
  grid:Show()
end

OnPluginClose = function()
  grid:Destroy()
end

OnPluginEnable = OnPluginInstall
OnPluginDisable = OnPluginClose

]]>
</script>
</muclient>