aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/lib/LSLGuiMess.lua
blob: bee02c13945391f08523af6c4f24bbff4426c9dd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
--[[  LSLGuiMess - replicates the horrid and barely usable LSL user interface crap.
]]

do

  local skang = require 'skang'
  -- This module has no default skin, it creates windows as needed.
  local _M = skang.moduleBegin('LSLGuiMess', nil, 'Copyright 2014 David Seikel', '0.1', '2014-05-16 11:07:00')
  local purkle = require 'purkle'


--[[ TODO -

llTextBox()
  http://wiki.secondlife.com/wiki/LlTextBox

llSetText(string text, vector color, float alpha)
  http://lslwiki.net/lslwiki/wakka.php?wakka=llSetText

llSetSitText(string text)
  http://lslwiki.net/lslwiki/wakka.php?wakka=llSetSitText

llSetTouchText(string text)
  http://lslwiki.net/lslwiki/wakka.php?wakka=llSetTouchText

]]


--[[ llDialog(key id, string message, list buttons, integer chat_channel)
     http://lslwiki.net/lslwiki/wakka.php?wakka=llDialog
]]

  local dialogs = {count = 0, current = 0}
  local buttCount = 12 * 8
  local w = 80
  local h = 20
  local l = 4
  local x = 2 + (((1 - 1) % 3) * w)
  local y = h * math.floor((1 - 1) / 3)
  local dialog = skang.window(4 + w * 3, (h * l) + (h * math.ceil((buttCount + 1) / 3)), message, 'llDialogWindow')

  skang.thingasm{dialog, 'message', 'Dialog message',    types = 'widget', widget='"textbox", "", ' .. 2 .. ', ' .. 2 ..  ', ' .. (w * 3) .. ', ' .. (h * l)}
  for i = 1, buttCount do
    x = 2 + (((i - 1) % 3) * w)
    y = 2 + (h * l) + (h * math.floor((i - 1) / 3))
    skang.thingasm{dialog, 'button' .. i, 'Selects button ' .. i, types = 'widget', widget='"button", "' .. i .. '", ' .. x .. ', ' .. y ..  ', ' .. w .. ', ' .. h}
    skang.hide(dialog.W['button' .. i].Cwidget)
  end
  x = 2 + (((3 - 1) % 3) * w)
  y = 2 + (h * l) + (h * math.floor((buttCount + 1) / 3))
  -- TODO - LL's V3 has a block button to.  Dunno how I'll deal with blocking stuff, think about that later.
  skang.thingasm{dialog, 'ignore', 'Ignore this dialog',    types = 'widget', widget='"button", "ignore", ' .. x            .. ', ' .. y ..  ', ' .. w - 20 .. ', ' .. h}
  dialog.W['ignore'].action = 'dialogIgnore()'
  skang.thingasm{dialog, 'switch', 'Switch to next dialog', types = 'widget', widget='"button", ">", '      .. (x + w - 20) .. ', ' .. y ..  ', ' .. 20     .. ', ' .. h}
  dialog.W['switch'].action = 'dialogSwitch()'
  skang.vanish(dialog.window)

  llDialog = function (id, message, buttons, channel)
    buttons.channel = channel
    -- TODO - Should do a llKey2Name(id) here, and let the dialogChoose function catch it so we are not waiting for it.
    --        On the other hand, this should only be used by the viewer, so only one user ever, could stash that somewhere else.
    --        On the gripping hand, does llDialog() send back as the user?  I think it does, but should check.
    buttons.name = 'onefang rejected'
    buttons.id = id
    buttons.message = message
    dialogs.count = dialogs.count + 1
    dialogs[dialogs.count] = buttons
    dialogs.current = dialogs.count
    dialogUpdate()
  end

  -- Update the current dialog.
  dialogUpdate = function ()
    local last = 1

    dialog.W['message'].text = dialogs[dialogs.current].message
    if 0 ~= dialogs.current then
      for i, v in ipairs(dialogs[dialogs.current]) do
        dialog.W['button' .. i].action = 'dialogChoose(' .. i .. ')'
        dialog.W['button' .. i].text = v
        skang.show(dialog.W['button' .. i].Cwidget)
        last = i + 1
      end
    end

    -- Hide the excess buttons
    for i = last, buttCount do
      skang.hide(dialog.W['button' .. i].Cwidget)
    end
    if dialogs.count > 1 then
      skang.show(dialog.W['switch'].Cwidget)
    else
      skang.hide(dialog.W['switch'].Cwidget)
    end
    skang.appear(dialog.window)
  end

  dialogChoose = function (i)
    local c  = dialogs[dialogs.current].channel
    local n  = dialogs[dialogs.current].name
    local id = dialogs[dialogs.current].id
    local t  = dialogs[dialogs.current][i]
    dialogIgnore()
    purkle.say(c, n, id, t)
  end

  -- Ignore button.
  dialogIgnore = function ()
    table.remove(dialogs, dialogs.current)
    dialogs.count = dialogs.count - 1
    if dialogs.current > dialogs.count then dialogs.current = dialogs.count end
    if 0 == dialogs.current then
      skang.vanish(dialog.window)
    else
      dialogUpdate()
    end
  end

  -- Switch button.
  dialogSwitch = function ()
    dialogs.current = dialogs.current + 1
    if dialogs.current > dialogs.count then dialogs.current = 1 end
    dialogUpdate()
  end


  -- TODO - This should be generalised and moved elsewhere.
  local doLua = function (command)
    -- Yes I know, it hurt my brain just writing this.  lol
    -- It just swaps square brackets for curly ones, coz LSL uses [] to surround lists, and Lua uses {} to surround tables.
    local c, err = loadstring(string.gsub(command, '[%[%]]', {['['] = '{', [']'] = '}'}))
    if c then
      setfenv(c, _M)
      c()
    else
      print("ERROR - " .. err)
    end
  end
  skang.thingasm('doLua', 'Run a Lua command.', doLua, 'string')

  skang.moduleEnd(_M)
end