Gammon Forum

--I need to make 'layout window variables for use with many interfaces (triggers alias's etc)




<aliases>
  <alias
   match="+layout=(battle|ooc|ic)$"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>

local layout = %1 -- Create a var named layout with the value of whatever the wildcard was used for the Alias

-- determine what layout was requested and then set the global variables to reflect this as well as enable the specific trigger set that goes with it.
if layout == "battle" then
    SetVariable(battlelayout) == 1
      SetTriggerOption ("battlewindow_mod", "enabled", 1)
    SetVariable(ooclayout) == 0
      SetTriggerOption ("oocwindow_mod", "enabled", 0)
    SetVariable(iclayout) == 0
      SetTriggerOption ("icwindow_mod", "enabled", 0)

    local battlewin = GetPluginID () .. ":battlewindow" -- get a unique name for Var battlewin
    WindowCreate (battlewin, 0, 0, 400, 800, 4, 10, ColourNameToRGB("white"))  -- create window
    
    local battlewin2 = GetPluginID () .. ":battlewindow2" -- get a unique name for Var battlewin2
    WindowCreate (battlewin, 0, 400, 400, 800, 0, 10, ColourNameToRGB("white"))  -- create window

    local dexwin = GetPluginID () .. ":dexwindow" -- get a unique name for Var dexwin
    WindowCreate (oocwin, 0, 0, 200, 200, 12, 0, ColourNameToRGB("white"))  -- create window


end --if

if layout == "ooc" then
    SetVariable(battlelayout) == 0
      SetTriggerOption ("battlewindow_mod", "enabled", 0)
    SetVariable(ooclayout) == 1
      SetTriggerOption ("oocwindow_mod", "enabled", 1)
    SetVariable(iclayout) == 0
      SetTriggerOption ("icwindow_mod", "enabled", 0)
end --if

if layout == "ic" then
    SetVariable(battlelayout) == 1
      SetTriggerOption ("battlewindow_mod", "enabled", 0)
    SetVariable(ooclayout) == 0
      SetTriggerOption ("oocwindow_mod", "enabled", 0)
    SetVariable(iclayout) == 0
      SetTriggerOption ("icwindow_mod", "enabled", 1)
end --if


-- Create windows - but not show yet


-- Main window for ooc text  while RPing
local oocwin = GetPluginID () .. ":oocwindow" -- get a unique name for Var oocwin
WindowCreate (oocwin, 0, 0, 200, 200, 12, 0, ColourNameToRGB("white"))  -- create window

-- Main window for battle data
local icwin = GetPluginID () .. ":icwindow" -- get a unique name for Var icwin
WindowCreate (oocwin, 0, 0, 200, 200, 12, 0, ColourNameToRGB("white"))  -- create window

-- Main window for battle data
local whowin = GetPluginID () .. ":whowindow" -- get a unique name for Var whowin
WindowCreate (oocwin, 0, 0, 200, 200, 12, 0, ColourNameToRGB("white"))  -- create window







if layout == "battle" then
WindowShow (battlewin,  true)  -- show Battlewindow miniwindow




if not WindowInfo (battlewin, 1) then
  WindowCreate (battlewin, 0, 0, 0, 0, 4, 0, 0)  -- positioned at the top left corner
  WindowFont (battlewin, font, "Lucida Console", 9)  
end -- if
      battleenabled = GetTriggerOption ("battlewindow_mod", "enabled")
   end -- if
end -- if

if battleenabled == 1 then
   print
</send>
  </alias>
</aliases>

  if string.match (line, "<Battle> Input command for *. +attack +item +switch +run") then
  print ("Battle")
    break
  end -- if

<triggers>
  <trigger
   match="^\=\=(.*?)\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=Team\=(.*?)\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=\=$"
   name="battlewindow_mod"
   regexp="y"
   send_to="12"
   sequence="100"
  >
  <send>require "wait"

wait.make (function ()  -- coroutine starts here
SetTriggerOption ("battlewindow_mod", "omit_from_output", "y")


local font = "f"

  WindowFont (battlewin, font, "Lucida Console", 9)  
end -- if

local battlewindow = { TriggerStyleRuns }
local max_width = WindowTextWidth (battlewin, font, "Battlewindow")

-- loop until end of battlewindow data

while true do
  local line, wildcards, styles = wait.match ("*", trigger_flag.OmitFromOutput)

-- see if end of battlewindow data

  if string.match (line, "&amp;lt;Battle&amp;gt; Input command for *. +attack +item +switch +run") then
  print ("Battle")
    break
  end -- if

  -- save battlewindow data lines
  table.insert (battlewindow, styles)
  -- work out max width
  max_width = math.max (max_width, WindowTextWidth (battlewin, font, line))

end -- while loop

local font_height = WindowFontInfo (battlewin, font, 1)

local window_width = max_width + 10
local window_height = font_height * (#battlewindow + 2) + 10

-- make window correct size

WindowCreate ("battlewin", 0 , 0 , 640 , 100 , 0 , 0 , ColourNameToRGB ("blue") )
WindowRectOp ("battlewin", 1, 5, 635, 635, 95, ColourNameToRGB ("black"))

-- heading line

WindowText (battlewin, font, "Battlewindow", 5, 5, 0, 0, ColourNameToRGB  "yellow")

-- draw each inventory line

local y = font_height * 2 + 5

for i, styles in ipairs (battlewindow) do

  local x = 5
  for _, style in ipairs (styles) do
    x = x + WindowText (battlewin, font, style.text, x, y, 0, 0, style.textcolour)
  end -- for
  y = y + font_height

end -- for each battlewindow data item

WindowShow (battlewin, true)


end)   -- end of coroutine
</send>
  </trigger>
</triggers>