Pasted

 
 
gui = {}
 
gui.rgb = function(r,g,b)
    return r * 256 * 256 + g * 256 + b
end
 
gui.controls = {}
gui.baseid = 0
gui.defaultbg = gui.rgb(0,128,0)
gui.defaultbc = gui.rgb(255,255,255)
gui.defaultba = 0.5
 
gui.control = {}
 
gui.control.show = function(c,p)
    --print('gui.show:'..tostring(c)..':'..tostring(c.x)..','..tostring(c.y))
    
    -- auto close members of same autoCloseGroup
    if c.autoCloseGroup then
        for i,c2 in ipairs(gui.controls) do
            if c.id ~= c2.id and c.autoCloseGroup == c2.autoCloseGroup then
                c2:hide(p)
            end
        end
    end
    
    -- call onShow
    if c.onShow then
        c:onShow()
    end
 
    -- show
    ui.addTextArea(gui.baseid + c.id, c.html, p, c.x, c.y, c.w, c.h, c.bg, c.bc, c.ba)
    if p then
        c.isVisible[p] = true
    else
        c.isVisible = {}
        c.isVisible['*'] = true
    end
end
 
gui.control.hide = function(c,p)
    -- call onHide
    if c.onHide then
        c:onHide()
    end
    -- hide
    ui.removeTextArea(gui.baseid + c.id, p)
    if p then
        c.isVisible[p] = false
    else
        c.isVisible = {}
    end
end
 
gui.control.toggle = function(c,p)
    if c:isVisibleForPlayer(p) then
        c:hide(p)
    else
        c:show(p)
    end
end
 
gui.control.isVisibleForPlayer = function(c,p)
    if c.isVisible[p] == true then
        return true
    end
    if c.isVisible['*'] == true then
        return true
    end     
    return false
end
 
 
gui.newControl = function(x,y,w,h)
    local c = {}
    c.x    = x
    c.y    = y
    c.w    = w
    c.h    = h
    c.id   = table.getn(gui.controls)+1
    c.text = ""
    c.html = ""
    c.isVisible = {}
    c.isVisibleForPlayer = gui.control.isVisibleForPlayer
    c.bg   = gui.defaultbg
    c.bc   = gui.defaultbc
    c.ba   = gui.defaultba
    --print("id:" .. c.id)
    table.insert(gui.controls,c)
    
    -- set up methods
    c.show   = gui.control.show
    c.hide   = gui.control.hide
    c.toggle = gui.control.toggle
    
    return c
end
 
-- Label ----------------------------------------------------------------------
gui.label = {}
gui.label.setText = function(c,text)
    c.text = text
    c.html = text
end
 
gui.newLabel = function(x,y,w,h,text)
    c = gui.newControl(x,y,w,h)
    c.type = "gui.label"
    c.setText = gui.label.setText
    c:setText(text)
    return c
end
 
-- Button ---------------------------------------------------------------------
gui.button = {}
gui.button.setText = function(c,text)
    c.text = text
    c.html = '<a href="event:' .. c.id .. '" >' .. text .. '</a>'
end
 
gui.newButton = function(x,y,w,h,text)
    c = gui.newControl(x,y,w,h)
    c.type = "gui.button"
    c.setText = gui.button.setText
    c:setText(text)
    return c
end
    
-- List -----------------------------------------------------------------------
gui.list = {}   
 
gui.list.resetItems = function(c)
    c.children = {}
end
 
gui.list.addItem = function(c,child)
    -- update the id to reflect it's position in the table
    child.parent = c
    child.id = table.getn(c.children) + 1
    child:setText(child.text)
    table.insert(c.children, child)
    c.html = '<ol>'
    for i,child in ipairs(c.children) do
        if child.type == "gui.label" then
            c.html = c.html .. child.html .. '<br>'
        elseif child.type == "gui.button" then
            c.html = c.html .. '<li>' .. child.html .. '</li>'
        end
    end
    c.html = c.html .. '</ol>'
end
 
gui.newList = function(x,y,w,h)
    c = gui.newControl(x,y,w,h)
    c.type = "gui.list"
    c.children = {}
    c.addItem    = gui.list.addItem
    c.resetItems = gui.list.resetItems
    return c
end
 
 
-- Default event callback handler.
gui.eventTextAreaCallback = function(id,p,callback)
    --tfm.exec.chatMessage('['..p..'] id:'.. id .. ' event:' .. callback)
    local c = gui.controls[id]
    if c then
        if c.onClick then
            c:onClick(id,p,callback)
        end
    end
end
 
gui.eventMouse = function(p,x,y)
    bAutoClose = true
    r = false
    
    -- see if the click was on an open control
    for i,c in ipairs(gui.controls) do
        if c:isVisibleForPlayer(p) and x > c.x and x < (c.x+c.w) and y > c.y and y < (c.y + c.h) then
            bAutoClose = false
            r = true
        end
    end
 
    -- auto close members of same autoCloseGroup
    if bAutoClose == true then
        for i,c in ipairs(gui.controls) do
            if c.autoCloseGroup and c:isVisibleForPlayer(p) then
                c:hide(p)
                r = true
            end
        end
    end
    
    --print('gui.eventMouse: consumed:' .. tostring(r))
    return r
end
 
 
 
a = { "setShaman", "killPlayer", "respawnPlayer", "giveCheese", "playerVictory" , "giveMeep", "setVampirePlayer" }
m = {}
for i,f in ipairs(a) do
    list = gui.newList(140,i*29,120,200)
    list.autoCloseGroup = 1
    list.header = f
 
    list.onShow = function(self)
        self:resetItems()
        self:addItem( gui.newLabel(0,0,0,0,self.header)  )
        for p,_ in pairs(tfm.get.room.playerList) do
            self:addItem( gui.newButton(0,0,0,0,p)  )
        end
    end
 
    list.onClick = function(self,id,p,callback)
        --tfm.exec.chatMessage('list1: onClick: event:' .. callback)
        player = self.children[tonumber(callback)].text
        tfm.exec[self.children[1].text](player)
    end
    
    button = gui.newButton(20,i*29,100,20,f..' >')
    m[button.id] = list
    button.onClick = function(self,id,p,callback)
        m[self.id]:toggle(p)
    end
    button:show()
end
 
 
 
 
tfm.exec.newGame()
 
function eventNewGame()
    for p,_ in pairs(tfm.get.room.playerList) do
        system.bindMouse(p,yes)
    end
end
 
function eventTextAreaCallback(id,p,callback)
    --print('eventTextAreaCallback')
    gui.eventTextAreaCallback(id,p,callback)
end
 
function eventMouse(p,x,y)
    --print('eventMouse')
    if not gui.eventMouse(p,x,y) then
        -- gui did not handle this event
    end
end