require "wait"
PPI = require("ppi")
ppi = PPI.Load("aedf0cb0be5bf045860d54b7")
json=require("json_rxi")
path = GetInfo(56).."worlds/CoreMUD/sounds/"
snd_ext = ".wav"
volumes = {50, 20, 30} -- global volume, ambience volume, communications volume
selected_volume = 1 -- index to above numerically-indexed table
dirs = {}
dirs["north"] = "south"
dirs["south"] = "north"
dirs["east"] = "west"
dirs["west"] = "east"
dirs["northeast"] = "southwest"
dirs["southwest"] = "northeast"
dirs["northwest"] = "southeast"
dirs["southeast"] = "northwest"
hp = 0
max_hp = 0
sp = 0
max_sp = 0
exp = 0
exp_to_next = 0
pct_full = 0 -- ore satchel
satchel_spoken = false -- tracks whether english sentence regarding satchel fullness has recently been spoken
satchel_last_msg = ""
automine = false
times_mined = 0 -- for inspecting the drill and recharging
needs_repair = false -- for drill maintenance
drill_dir = "north" -- for new shafts

AcceleratorTo("F5", "adjust_volume(-5)", 12)
AcceleratorTo("F6", "adjust_volume(5)", 12)
AcceleratorTo("F7", "select_volume()", 12)
Accelerator("ctrl+t", "tts", 12)
AcceleratorTo("ALT+SHIFT+H", "speak_health()", 12)
AcceleratorTo("ALT+SHIFT+S", "speak_satchel_pct()", 12)

function play(arg)

    if type(arg.snd) ~= "string" then
        error("The first argument must be the string name of a sound you wish to use.")
    else
        local fullpath = path..arg.snd..snd_ext
        local looping = arg.looping or 0
        local pan = arg.pan or 0
local volume = volumes[1]
        if arg.vol ~= nil and type(arg.vol) == "string" then
volume = get_volume(arg.vol)
elseif arg.vol ~= nil and type(arg.vol) == "number" then
volume = arg.vol
end -- if
sndobj = ppi.play(fullpath, looping, pan, volume)
    end -- if
return sndobj
end -- func

function play_random(arg)
if type(arg.snd) == "string" and type(arg.max) == "number" then
play{snd=arg["snd"]..tostring(math.random(1, arg["max"])), vol=arg.vol}
else
error("One or more invalid arguments encountered.")
end -- if
end -- func

function get_volume(vol)
if type(vol) == "string" then
if vol == "gv" then
return volumes[1]
elseif vol == "av" then
return volumes[2]
elseif vol == "cv" then
return volumes[3]
else
error("Expected gv, av, or cv")
end -- if
elseif type(vol) == "number" and not(vol > #volumes)then
return volumes[vol]
else
error("Invalid volume index.")
end -- if
end -- func

function get_volume_name(vol)
if type(vol) == "number" then
if vol == 1 then
return "global volume"
elseif vol == 2 then
return "ambience volume"
elseif vol == 3 then
return "communications volume"
else
error("The given numeric argument was not one of the valid volume indices.")
end -- if
else
return
end -- if
end -- func
function select_volume()
if selected_volume + 1 > #volumes then
selected_volume = 1
else
selected_volume = selected_volume + 1
end -- if
Execute("tts_interrupt "..get_volume_name(selected_volume).." at "..tostring(volumes[selected_volume]))
end -- func

function adjust_volume(amt)
-- provide positive or negative amount. Do not include the plus sign to indicate a positive amount, lua doesn't like it.
local internal_vol = volumes[selected_volume]
if internal_vol + amt < 0 then
internal_vol = 0
elseif internal_vol + amt > 100 then
internal_volume = 100
else
internal_vol = internal_vol + amt
end -- if
volumes[selected_volume] = internal_vol
Execute("tts_interrupt "..get_volume_name(selected_volume).." now at "..tostring(volumes[selected_volume]))
end -- func

function save_volumes()
SetVariable("gv", volumes[1])
SetVariable("av", volumes[2])
SetVariable("cv", volumes[3])
end -- func

function load_volumes()
volumes[1] = tonumber(GetVariable("gv"))or 50
volumes[2] = tonumber(GetVariable("av"))or 20
volumes[3] = tonumber(GetVariable("cv"))or 30
end -- func

function split_words(split_str)
words = {}
for word in split_str:gmatch("%w+") do
table.insert(words, word)
end -- loop
return(words)
end -- func
function split_items(split_str)
items = {}
for item in split_str:gmatch("%w+,") do
table.insert(items, item)
end -- loop
return(items)
end -- func
function last_word(word_str)
lst = split_words(word_str)
ln = #lst
return(lst[ln])
end -- func
function list_to_string(l1)
if not(type(l1) == "table") then
return
else
returnstr = ""
for i,j in ipairs(l1) do
if type(j) == "string" then
if string.len(returnstr) == 0 then
returnstr = returnstr .. j
else
returnstr = returnstr .. ", " .. j
end
end
end
end
return returnstr
end -- func

function casefold_words(str)
-- calls split_words, then casefolds every element in the resulting list, then returns the list
lst = split_words(str)
for k,v in ipairs(lst) do
lst[v] = string.lower(lst[v])
end -- for
return lst
end -- func

function do_buff(buffname, msg)
if type(buffname) == "string" and buffname ~= "" and type(msg) == "string" and msg ~= "" then
buffname = buffname:gsub("%s", "_")
Execute("history_add "..buffname.."="..msg)
Execute("history_add all="..msg)
else
error("Buffname and msg must both be non-empty strings")
end -- if
end -- func

function strSplit(str, delim, maxNb)
   -- Eliminate bad cases...
   if string.find(str, delim) == nil then
      return { str }
   end
   if maxNb == nil or maxNb < 1 then
      maxNb = 0    -- No limit
   end
   local result = {}
   local pat = "(.-)" .. delim .. "()"
   local nb = 0
   local lastPos
   for part, pos in string.gmatch(str, pat) do
      nb = nb + 1
      result[nb] = part
      lastPos = pos
      if nb == maxNb then
         break
      end
   end
   -- Handle the last field
   if nb ~= maxNb then
      result[nb + 1] = string.sub(str, lastPos)
   end
   return result
end

function get_health()
if max_hp == 0 then
-- So we don't go kerflunk by dividing by 0
Execute("tts_interrupt Information not available")
return
else
return tonumber((hp / max_hp) * 100)
end
end -- func

function speak(msg)
Execute("tts_interrupt "..msg)
end -- func
function speak_health()
local health = get_health() -- as percent of total
msg = tostring(health) .. " percent"
speak(msg)
end -- func

function OnPluginBroadcast (msg, id, name, text)
if id=="74f8c420df7d59ad5aa66246" then
--it's the gmcp handler!

text=Replace(text,"\\u00","~")
package,params=unpack(strSplit(StripANSI(text)," ___ "))
f=_G["gmcp_handle_"..Replace(package:lower(),".","_")]
if f~=nil then
f(json.decode(params))
else
end
end
end -- func

function gmcp_handle_char_mine(data)

local tot = data.total_ore
local max = data.max_ore
pct_full = math.modf(tot / max * 100)

if pct_full == 100 then
msg = "Your satchel is full."
elseif pct_full >= 75 then
msg = "Your satchel is three-quarters full."
elseif pct_full >= 50 then
msg = "Your satchel is half full."
elseif pct_full >= 25 then
msg = "Your satchel is one-quarter full."
end -- if
speak_satchel_english_sentence(msg)
end -- func

function speak_satchel_english_sentence(msg)
if msg == satchel_last_msg then
-- nothing to do so drop out
return
end -- if
if not(satchel_spoken) then
wait.make(function ()
satchel_spoken = true
Note(msg)
wait.time(1.5)
satchel_spoken = false
satchel_last_msg = msg
end)
else
-- nothing to do so drop out
return
end -- if
end -- func

function speak_satchel_pct()
speak(tostring(pct_full).."%")
end -- func

function gmcp_handle_char_vitals(data)
hp = data.hp
max_hp = data.maxhp
sp = data.sp
max_sp = data.maxsp
xp = data.experience
xp_to_next = data.next_level
end -- func

function gmcp_handle_comm_channel(data)
who = data.player
channel = data.chan
message = data.msg or ""
buff_msg = who..": "..message
do_buff(channel, buff_msg)
play_channel_sound(channel)
end -- func

function play_channel_sound(channel)

if type(channel) ~= "string" or channel == "" then
return
else
if channel == "rl" then
sound = "communication/chat"
elseif channel == "qa" then
sound = "communication/question"
end -- if

if sound ~= nil then
play{snd=sound, vol="cv"}
end -- if
end -- if
end -- func

function do_mine(op)
-- 0 for mining, 1 for drilling in shaft.
if not automine then return end
if pct_full >= 100 then
Execute("tts_interrupt automine terminated because satchel is full")
return
end -- if
if times_mined >= 12 then
 do_drill_maintenance()
times_mined = 0
end -- if
wait.make(function ()
wait.time(math.random(3, 5))
if op == 0 then
Send("drill ore")
times_mined = times_mined + 1
else
if drill_dir ~= nil then
if drill_dir == "floor" or drill_dir == "ceiling" then
Send("drill "..drill_dir)
else
Send("drill "..drill_dir.." wall")
end -- if
end -- if
end -- if
end)
end -- func

function do_drill_maintenance()
wait.make(function ()
Send("inspect drill")
wait.time(1)
if needs_repair then
Send("repair drill")
needs_repair = false
    wait.time(3)
end -- if
Send("recharge drill")
end)
end -- func

function get_opposite_direction(dir)
if dirs[dir] ~= nil then
return dirs[dir]
else
return
end -- if
end -- func

function parse_drill(dstr)
local dlst = split_words(dstr)
local ln = #dlst
if ln == 1 then
if dlst[1] == "ore" then
-- drop out since mining is handled by do_mine()
return
elseif dlst[1] == "ceiling" or dlst[1] == "floor" then
drill_dir = dlst[1]
end -- if
elseif ln == 2 then
if dlst[2] == "wall" then
-- it should else the game will bitch
for dir,opp in pairs(dirs) do
if dlst[1] == dir then drill_dir = dir end
end -- for
else
return
end -- if
else
return
end --if
end -- func
function get_var(var)
print(var)
end -- func

function trim(str)
-- trims the leading and trailing spaces from the given string and returns it
return (str:gsub("^%s*(.-)%s*$", "%1"))
end --func

function parse_atrium(argstr)
argstr = trim(argstr)
local points = {}
for itm in arg:gmatch("%l%d+") do
table.insert(points, itm)
end --loop
if #points > 2 then
for i=3, #points do
table.remove(points, i)
end -- loop
end -- if
return (points)
end -- func

#include <windows.h>

const char g_szClassName[] = "TheWindowClass";

LRESULT CALLBACK WndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
    switch(msg)
    {
        case WM_CLOSE:
            DestroyWindow(hwnd);
        break;
        case WM_DESTROY:
            PostQuitMessage(0);
        break;
        default:
            return DefWindowProc(hwnd, msg, wParam, lParam);
    }
    return 0;
}

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
    WNDCLASSEX wc;
    HWND hwnd;
    MSG Msg;
    wc.cbSize         = sizeof(WNDCLASSEX);
    wc.style         = 0;
    wc.lpfnWndProc     = WndProc;
    wc.cbClsExtra     = 0;
    wc.cbWndExtra     = 0;
    wc.hInstance     = hInstance;
    wc.hIcon         = LoadIcon(NULL, IDI_APPLICATION);
    wc.hCursor         = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = (HBRUSH)(COLOR_WINDOW+1);
    wc.lpszMenuName  = NULL;
    wc.lpszClassName = g_szClassName;
    wc.hIconSm         = LoadIcon(NULL, IDI_APPLICATION);
    if(!RegisterClassEx(&wc))
    {
        MessageBox(NULL, "Window Registration Failed!", "Error!", MB_ICONEXCLAMATION | MB_OK);
        return 0;
    }
    hwnd = CreateWindowEx(WS_EX_CLIENTEDGE, g_szClassName, "Window", WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 240, 120, NULL, NULL, hInstance, NULL);
    if(hwnd == NULL)
    {
        MessageBox(NULL, "Window Creation Failed!", "Error!", MB_ICONEXCLAMATION | MB_OK);
        return 0;
    }
    ShowWindow(hwnd, nCmdShow);
    UpdateWindow(hwnd);
    while(GetMessage(&Msg, NULL, 0, 0) > 0)
    {
        TranslateMessage(&Msg);
        DispatchMessage(&Msg);
    }
    return Msg.wParam;
}

fib(5)
fib(4) + fib(3)
fib(3) + fib(2) + fib(4) + fib(3)
fib(2) + fib(1) + fib(1) + fib(0) + fib(3) + fib(2) + fib(2) + fib(1)