EssentialChat by Geniusz1

--------------------------------------------
--             Essential Chat             --
--               by Geniusz1              --
--                                        --
--               version 1.2              --
--------------------------------------------

--SETTINGS----------
visualsync=false
serverversion=4
--------------------
--Essential Chat
laistchan = ''
--mod version:
ECdate="26.12.2019"
ECversion="1.2"

if MANAGER.getsetting('tptmp','autoconnect') == 'true' then
    temp = 1
end

local socket = require "socket"

function sleep(sec)
    if sec then
        socket.select(nil, nil, sec)
    end
end

temp2 = 1

scrollrage = true

isTyping = false

cursoradjust = 0

local text

local inputBx

local windowy = 0
local windowx = 0
local acON = false
local acSuggest = ''
local selected = 1


function isIn(tab, val)
    for index, value in ipairs(tab) do
        if value == val then
            return true
        end
    end

    return false
end

if MANAGER.getsetting('tptmp', 'autocomplete') then
    autocompleteV = MANAGER.getsetting('tptmp', 'autocomplete')
else
    autocompleteV = false
end

local versionstring = "EssentialChat v1.2"
local trueversion="1.2"
local intversion= tostring(trueversion)
--version check was here

TPTMP = {["version"] = serverversion, ["versionStr"] = trueversion} -- script version sent on connect to ensure server protocol is the same
local issocket,socket = pcall(require,"socket")
if not sim.clearRect then error"Tpt version not supported" end
local using_manager = false
local type = type -- people like to overwrite this function with a global a lot
local _print = print
if MANAGER ~= nil or MANAGER_EXISTS then
    using_manager = true
    _print = MANAGER and MANAGER.print or MANAGER_PRINT
else
    _print = print
end
local hooks_enabled = true --hooks only enabled once you maximize the button
--WTF Why it was turned OFF

local PORT = 34403 --Change 34403 to your desired port
local KEYBOARD = 1 --only change if you have issues. Only other option right now is 2(finnish).
--Local player vars we need to keep
local L = {mousex=0, mousey=0, realMouseX=0, realMouseY=0, brushx=0, brushy=0, sell=1, sela=296, selr=0, selrep=0, replacemode = 0, mButt=0, mEvent=0, isDrawing=false, dcolour=0, stick2=false, chatHidden=true, flashChat=false,
shift=false, alt=false, ctrl=false, tabs = false, z=false, skipClick=false, pauseNextFrame=false, copying=false, stamp=false, placeStamp=false, lastStamp=nil, lastCopy=nil, smoved=false, rotate=false, sendScreen=false}

tptversion = 999 --disable version check
local jacobsmod = nil --disable jacobsmod support (bruh)
math.randomseed(os.time())

function string:split(sep)
    local sep, fields = sep or ":", {}
    local pattern = string.format("([^%s]+)", sep)
    self:gsub(pattern, function(c) fields[#fields+1] = c end)
    return fields
end

function reverse(arr)
    temparr = {}
    for i = #arr, 1, -1 do
        table.insert(temparr, arr[i])
    end
    return temparr
end
-------------------------------------------------------------------------------------------------------------------------------
function EC_loop()

end

function EC_info()
    tpt.message_box("EssentialChat INFO",versionstring.."\n".."VERSION "..ECversion.." ("..ECdate..")".."\n\nIt is a modification of Cracker64's Powder Toy Multiplayer.\n\nCreated by Geniusz1")
end

local chatwindow
--EC vars
lastchan=''
lastip=''
lastport=''

function toboolean(input1)
    if (input1==("1" or "true")) then
        return true
    else
        return false
    end
end

function printbool(input2,onoff)
    if onoff then
        if input2 then
            return "ON"
        else
            return "OFF"
        end
    else
        if input2 then
            return "TRUE"
        else
            return "FALSE"
        end
    end
end

username = tpt.get_name()

if username == "" then
    username="Guest"..math.random(10000,99999)
end

local con = {connected = false,
         socket = nil,
         members = nil,
         pingTime = os.time()+60}

local function disconnected(reason)
    if con.socket then
        con.socket:close()
    end
    if reason then
        chatwindow:addline(reason,255,50,50)
    else
        chatwindow:addline("Connection was closed",255,50,50)
    end
    con.connected = false
    con.members = {}
    lastchan = ''
end

local function conSend(cmd,msg,endNull)
    if not con.connected then return false,"Not connected" end
    msg = msg or ""
    if endNull then msg = msg.."\0" end
    if cmd then msg = string.char(cmd)..msg end
    con.socket:settimeout(10)
    con.socket:send(msg)
    con.socket:settimeout(0)
end
local function joinChannel(chan)
    lastchan=chan --EC
    laistchan=chan
    conSend(16,chan,true)
    --send some things to new channel
    conSend(34,string.char(L.brushx,L.brushy))
    conSend(37,string.char(math.floor(L.sell/256),L.sell%256))
    conSend(37,string.char(math.floor(64 + L.sela/256),L.sela%256))
    conSend(37,string.char(math.floor(128 + L.selr/256),L.selr%256))
    conSend(37,string.char(math.floor(192 + L.selrep/256),L.selrep%256))
    conSend(38,L.replacemode)
    conSend(65,string.char(math.floor(L.dcolour/16777216),math.floor(L.dcolour/65536)%256,math.floor(L.dcolour/256)%256,L.dcolour%256))
end
function connectToServer(ip,port,nick)
    if con.connected then return false,"Already connected" end
    ip = ip or "tptmp.starcatcher.us"
    port = port or PORT
    if tpt.get_name() ~= '' then username = tpt.get_name() end
    nick = nick or username
    last=''--EC
    lastip=ip
    lastport=port


    local sock = socket.tcp()
    sock:settimeout(10)
    local s,r = sock:connect(ip,port)
    if not s then return false,r end
    sock:settimeout(0)
    sock:setoption("keepalive",true)
    sock:send(string.char(tpt.version.major)..string.char(tpt.version.minor)..string.char(TPTMP.version)..nick.."\0")
    local c,r
    while not c do
    c,r = sock:receive(1)
    if not c and r~="timeout" then break end
    end
    if not c and r~="timeout" then return false,r end

    if c~= "\1" then
    if c=="\0" then
        local err=""
        c,r = sock:receive(1)
        while c~="\0" do
        err = err..c
        c,r = sock:receive(1)
        end
        if err=="This nick is already on the server" then
            nick = nick:gsub("(.)$",function(s) local n=tonumber(s) if n and n+1 <= 9 then return n+1 else return nick:sub(-1)..'0' end end)
            return connectToServer(ip,port,nick)
        end
        return false,err
    end
    return false,"Bad Connect"
    end

    con.socket = sock
    con.connected = true
    username = nick
    conSend(34,string.char(L.brushx,L.brushy))
    conSend(37,string.char(math.floor(L.sell/256),L.sell%256))
    conSend(37,string.char(math.floor(64 + L.sela/256),L.sela%256))
    conSend(37,string.char(math.floor(128 + L.selr/256),L.selr%256))
    conSend(37,string.char(math.floor(192 + L.selrep/256),L.selrep%256))
    conSend(38,L.replacemode)
    conSend(65,string.char(math.floor(L.dcolour/16777216),math.floor(L.dcolour/65536)%256,math.floor(L.dcolour/256)%256,L.dcolour%256))
    return true
end
--get up to a null (\0)
local function conGetNull()
    con.socket:settimeout(nil)
    local c,r = con.socket:receive(1)
    if not c and r ~= "timeout" then disconnected() return nil end
    local rstring=""
    while c~="\0" do
    rstring = rstring..c
    c,r = con.socket:receive(1)
    if not c and r ~= "timeout" then disconnected() return nil end
    end
    con.socket:settimeout(0)
    return rstring
end
--get next char/byte
local function cChar()
    con.socket:settimeout(nil)
    local c,r = con.socket:receive(1)
    con.socket:settimeout(0)
    if not c then disconnected() end
    return c
end
local function cByte()
    local byte = cChar()
    return byte and byte:byte() or nil
end
--return table of arguments
local function getArgs(msg)
    if not msg then return {} end
    local args = {}
    for word in msg:gmatch("([^%s%c]+)") do
    table.insert(args,word)
    end
    return args
end

local ui_base local ui_box local ui_text local ui_button local ui_scrollbar local ui_inputbox local ui_chatbox
ui_base = {
new = function()
    local b={}
    b.drawlist = {}
    function b:drawadd(f)
        table.insert(self.drawlist,f)
    end
    function b:draw(...)
        for _,f in ipairs(self.drawlist) do
            if type(f)=="function" then
                f(self,...)
            end
        end
    end
    b.movelist = {}
    function b:moveadd(f)
        table.insert(self.movelist,f)
    end
    function b:onmove(x,y)
        for _,f in ipairs(self.movelist) do
            if type(f)=="function" then
                f(self,x,y)
            end
        end
    end
    return b
end
}
ui_box = {
new = function(x,y,w,h,r,g,b)
    local box=ui_base.new()
    box.x=x box.y=y box.w=w box.h=h box.x2=x+w box.y2=y+h
    box.r=r or 255 box.g=g or 255 box.b=b or 255
    function box:setcolor(r,g,b) self.r=r self.g=g self.b=b end
    function box:setbackground(r,g,b,a) self.br=r self.bg=g self.bb=b self.ba=a end
    box.drawbox=true
    box.drawbackground=false
    box:drawadd(function(self) if self.drawbackground then gfx.fillRect(self.x,self.y,self.w+1,self.h+1,self.br,self.bg,self.bb,self.ba) end
                                if self.drawbox then gfx.drawRect(self.x,self.y,self.w+1,self.h+1,self.r,self.g,self.b) end end)
    box:moveadd(function(self,x,y)
        if x then self.x=self.x+x self.x2=self.x2+x end
        if y then self.y=self.y+y self.y2=self.y2+y end
    end)
    return box
end
}
ui_text = {
new = function(text,x,y,r,g,b)
    local txt = ui_base.new()
    txt.text = text
    txt.x=x or 0 txt.y=y or 0 txt.r=r or 255 txt.g=g or 255 txt.b=b or 255
    function txt:setcolor(r,g,b) self.r=r self.g=g self.b=b end
    txt:drawadd(function(self,x,y)
        gfx.drawText(x or self.x,y or self.y,self.text,self.r,self.g,self.b)
    end)
    txt:moveadd(function(self,x,y)
        if x then self.x=self.x+x end
        if y then self.y=self.y+y end
    end)
    return txt
end,
--Scrolls while holding mouse over
newscroll = function(text,x,y,vis,force,r,g,b)
    local txt = ui_text.new(text,x,y,r,g,b)
    if not force and tpt.textwidth(text)<vis then return txt end
    txt.visible=vis
    txt.length=string.len(text)
    txt.start=1
    local last=2
    while tpt.textwidth(text:sub(1,last))<vis and last<=txt.length do
        last=last+1
    end
    txt.last=last-1
    txt.minlast=last-1
    txt.ppl=((txt.visible-6)/(txt.length-txt.minlast+1))
    function txt:update(text,pos)
        if text then
            self.text=text
            self.length=string.len(text)
            local last=2
            while tpt.textwidth(text:sub(1,last))<self.visible and last<=self.length do
                last=last+1
            end
            self.minlast=last-1
            self.ppl=((self.visible-6)/(self.length-self.minlast+1))
            if not pos then self.last=self.minlast end
        end
        if pos then
            if pos>=self.last and pos<=self.length then --more than current visible
                local newlast = pos
                local newstart=1
                while tpt.textwidth(self.text:sub(newstart,newlast))>= self.visible do
                    newstart=newstart+1
                end
                self.start=newstart self.last=newlast
            elseif pos<self.start and pos>0 then --position less than current visible
                local newstart=pos
                local newlast=pos+1
                while tpt.textwidth(self.text:sub(newstart,newlast))<self.visible and newlast<self.length do
                        newlast=newlast+1
                end
                self.start=newstart self.last=newlast-1
            end
            --keep strings as long as possible (pulls from left)
            local newlast=self.last
            if newlast<self.minlast then newlast=self.minlast end
            local newstart=1
            while tpt.textwidth(self.text:sub(newstart,newlast))>= self.visible do
                    newstart=newstart+1
            end
            self.start=newstart self.last=newlast
        end
    end
    txt.drawlist={} --reset draw
    txt:drawadd(function(self,x,y)
        gfx.drawText(x or self.x,y or self.y, self.text:sub(self.start,self.last) ,self.r,self.g,self.b)
    end)
    function txt:mouseMove(mx,my,dX,dY)
        local newlast = math.floor((mx-self.x)/self.ppl)+self.minlast
        if newlast<self.minlast then newlast=self.minlast end
        if newlast>0 and newlast~=self.last then
            local newstart=1
            while tpt.textwidth(self.text:sub(newstart,newlast))>= self.visible do
                newstart=newstart+1
            end
            self.start=newstart self.last=newlast
        end
    end
    return txt
end
}

ui_inputbox = {
new=function(x,y,w,h)
    local intext=ui_box.new(x,y,w,h)
    intext.x = x
    intext.y = y
    intext.x2 = x+w
    intext.y2 = y+h
    intext.cursor=0
    intext.line=1
    intext.currentline = ""
    intext.focus=false
    intext.t=ui_text.newscroll("",x+2,y+2,w-2,true)
    intext.history={}
    intext.max_history=200
    intext.ratelimit = 0
    intext:drawadd(function(self)
        cursoradjust=tpt.textwidth(self.t.text:sub(self.t.start,self.cursor))+2
        self.t:draw()
        cursor = self.cursor
        if #self.t.text ~= 0 and self.focus then
            if (math.floor(os.clock()*2.5))%2==0 and not isTyping then
                gfx.drawLine(
                    self.x+cursoradjust,
                    self.y,
                    self.x+cursoradjust,
                    self.y2
                )
            elseif isTyping then
                gfx.drawLine(
                    self.x+cursoradjust,
                    self.y,
                    self.x+cursoradjust,
                    self.y2
                )
            end
        end
        if (math.floor(os.clock()*5))%2~=0 then
            isTyping = false
        end
    end)
    intext:moveadd(function(self,x,y) self.t:onmove(x,y) end)
    function intext:setfocus(focus)
        self.focus=focus
        if focus then self:setcolor(255,255,0)
        else self:setcolor(255,255,255) end
    end
    function intext:movecursor(amt)
        self.cursor = self.cursor+amt
        isTyping = true
        if self.cursor>self.t.length then self.cursor = self.t.length end
        if self.cursor<0 then self.cursor = 0 return end
    end
    function intext:addhistory(str)
        self.history[#self.history+1] = str
        if #self.history >= self.max_history then
            table.remove(self.history, 1)
        end
    end
    function intext:moveline(amt)
        self.line = self.line+amt
        local max = #self.currentline and #self.history+2 or #self.history+1
        if self.line>max then self.line=max
        elseif self.line<1 then self.line=1 end
        local history = self.history[self.line] or ""
        if self.line == #self.history+1 then history = self.currentline end
        self.cursor = string.len(history)
        self.t:update(history, self.cursor)
    end

    function intext:keypress(key, scan, rep, shift, ctrl, alt)
        if not self.focus then
            if key == 13 then
                self:setfocus(true)
            end
            return
        end
        -- Esc
        if key == 27 then
            self:setfocus(false)
        -- Enter
        elseif key == 13 and not rep then
            if acON == true then
                self.t:update(acSuggest)
                self.cursor = #acSuggest
            else
                local text = self.t.text
                if text == "" then
                    self:setfocus(false)
                else
                    self.cursor = 0
                    self.t.text = ""
                    self:addhistory(text)
                    self.line = #self.history + 1
                    self.currentline = ""
                    self.ratelimit = socket.gettime() + 1
                    return text --now the text is transfered to the server
                end
            end
        -- Up
        elseif key == 1073741906 then
            if acON == true then
                selected = selected+1
            else
                self:moveline(-1)
            end
        -- Down
        elseif key == 1073741905 then
            if acON == true then
                selected = selected-1
            else
                self:moveline(1)
            end
        -- Right
        elseif key == 1073741903 then
            self:movecursor(1)
            self.t:update(nil, self.cursor)
        -- Left
        elseif key == 1073741904 then
            self:movecursor(-1)
            self.t:update(nil, self.cursor)
        end

        local newstr
        -- Backspace
        if key == 8 then
            if self.cursor > 0 then
                newstr = self.t.text:sub(1,self.cursor-1) .. self.t.text:sub(self.cursor+1)
                self:movecursor(-1)
            end
        -- Delete
        elseif key == 127 then
            newstr=self.t.text:sub(1,self.cursor) .. self.t.text:sub(self.cursor+2)
        -- Tab
        elseif key == 9 then
            local nickstart, nickend, nick = self.t.text:sub(1,self.cursor+1):find("([^%s%c]+)"..(self.cursor == #self.t.text and "" or " ").."$")
            if con.members and nick then
                for k, v in pairs(con.members) do
                    if v.name:sub(1, #nick) == nick then
                        nick = v.name
                        if nickstart == 1 then
                            nick = nick .. ":"
                        end
                        newstr = self.t.text:sub(1,nickstart-1)..nick.." "..self.t.text:sub(nickend+1, #self.t.text)
                        self.cursor = nickstart + #nick
                    end
                end
            end
        end
        if newstr then
            self.t:update(newstr,self.cursor)
        end
    end
    function intext:textinput(text)
        if not self.focus then
            return
        end
        -- TPT font has no unicode characters at the moment, nor does it have a good enough api to support them
        if #text > 1 or string.byte(text) < 20 or string.byte(text) > 126 then return end
        newstr = self.t.text:sub(1, self.cursor) .. text .. self.t.text:sub(self.cursor + 1)
        self.currentline = newstr
        if #self.t.text > 200 then
            tpt.log('Message too long!')
        else
            self.t:update(newstr, self.cursor + 1)
            self:movecursor(1)
        end
    end
    return intext
end
}
ui_scrollbar = {
new = function(x,y,h,t,m)
    local bar = ui_base.new() --use line object as base?
    bar.x=x bar.y=y bar.h=h
    bar.total=t
    bar.numshown=m
    bar.pos=0
    bar.length=math.floor((1/math.ceil(bar.total-bar.numshown+1))*bar.h)
    bar.soffset=math.floor(bar.pos*((bar.h-bar.length)/(bar.total-bar.numshown)))
    function bar:update(total,shown,pos)
        self.pos=pos or 0
        if self.pos<0 then self.pos=0 end
        self.total=total
        self.numshown=shown
        self.length= math.floor((1/math.ceil(self.total-self.numshown+1))*self.h)
        self.soffset= math.floor(self.pos*((self.h-self.length)/(self.total-self.numshown)))
    end
    function bar:move(wheel)
        self.pos = self.pos-wheel
        if self.pos < 0 then self.pos=0 end
        if self.pos > (self.total-self.numshown) then self.pos=(self.total-self.numshown) end
        self.soffset= math.floor(self.pos*((self.h-self.length)/(self.total-self.numshown)))
    end
    bar:drawadd(function(self)
        if self.total > self.numshown then
            gfx.drawLine(self.x,self.y+self.soffset + 2,self.x,self.y+self.soffset+self.length)
        end
    end)
    bar:moveadd(function(self,x,y)
        if x then self.x=self.x+x end
        if y then self.y=self.y+y end
    end)
    function bar:mouseWheel(mx,my,wheel)
        if wheel~=0 and not hidden_mode then
            if self.total > self.numshown then
                local previous = self.pos
                self:move(wheel)
                if self.pos~=previous then
                    return wheel
                end
            end
        end
    end
    return bar
end
}
ui_button = {
new = function(x,y,w,h,f,text,justify)
    local b = ui_box.new(x,y,w,h)
    if justify == true then justify = 1 else justify = 0 end
    b.f=f
    b.t=ui_text.new(text,x+2,y+2-justify)
    b.drawbox=false
    b.clicked = false
    b.invert = false
    b:drawadd(function(self)
        if self.clicked or self.invert then
            gfx.fillRect(self.x,self.y,self.w+1,self.h)
            local tr=self.t.r local tg=self.t.g local tb=self.t.b
            b.t:setcolor(0,0,0)
            b.t:draw()
            b.t:setcolor(tr,tg,tb)
        else
            b.t:draw()
        end
    end)
    b:moveadd(function(self,x,y)
        self.t:onmove(x,y)
    end)
    function b:mouseDown(mouseX, mouseY, button, reason)
        if mouseX >= self.x and mouseX <= self.x2 and mouseY >= self.y and mouseY <= self.y2 then
            self.clicked = true
            return true
        end
    end
    function b:mouseMove(mouseX, mouseY, dX, dY)
        if not (mouseX >= self.x and mouseX <= self.x2 and mouseY >= self.y and mouseY <= self.y2) then
            self.clicked = false
        end
    end
    function b:mouseUp(mouseX, mouseY, button, reason)
        if self.clicked and mouseX >= self.x and mouseX <= self.x2 and mouseY >= self.y and mouseY <= self.y2 then
            self:f()
            return true
        end
    end
    return b
end
}
------------------------------------

ui_checkbox = {
    new = function(x,y,text,prop,fT,fF,r,g,b)
        local cb = ui_box.new(x,y,8,8)
        if MANAGER.getsetting('tptmp', prop) == 'true' then
            cb.selected = true
        else
            cb.selected = false
        end
        cb.x=x cb.y=y cb.r=r cb.g=g cb.b=b
        cb.check=ui_button.new(x+1, y+1, 11+tpt.textwidth(text), 7,
        function()
            if cb.selected then
                cb.selected = false
                fT()
            else
                cb.selected = true
                fF()
            end
        end, '')
        cb:drawadd(
        function(self)
            if cb.selected then
                gfx.fillRect(cb.x+2,cb.y+2,5,5,255,255,255)
            end
            gfx.drawText(cb.x+12, cb.y+1, text, r or 255, g or 255, b or 255)
        end)
        return cb
    end
}

local results = {}
local longestS = ''

ui_autocompleteBox = {
    new = function(x,y)
        local ac = ui_base.new()
        ac.x=x ac.y=y-10 ac.w=10 ac.h=10 ac.x2=x+10 ac.y2=y+10
        ac.jumper = ui_box.new(x, y-10, 10, 10)
        ac:drawadd(
        function(self)
            if MANAGER.getsetting('tptmp', 'autocomplete') == 'true' then
                if text:find(' ') then
                    sample = text:reverse():find(' ')
                else
                    sample = #text+1
                end
                word = text:reverse():sub(1, sample-1):reverse()
                pattern=''
                for i=1, #word do
                    pattern = pattern..'['..word:sub(i,i):upper()..','..word:sub(i,i):lower()..']'
                end
                pattern = pattern..'.*'
                pattern1 = '^'..pattern..':'
                pattern2 = '^'..pattern..' has joined'
                pattern3 = '^'..pattern..' has left'
                --pattern4 = 'Online:%(.%)* '..pattern..'%( %)+'
                results = {}
                if #word > 2 then
                    for i, v in ipairs(theLines) do
                        if v:match(pattern1) ~= nil then
                            found = v:match(pattern1)
                            found = found:gsub(':', '')
                            if found:find(' ') then
                                found = found:sub(1,found:find(' ')-1)
                            end
                            if found ~= word then
                                table.insert(results, found)
                            end
                        elseif v:match(pattern2) ~= nil then
                            found = v:match(pattern2)
                            found = found:gsub(' has joined', '')
                            if found ~= word then
                                table.insert(results, found)
                            end
                        elseif v:match(pattern3) ~= nil then
                            found = v:match(pattern3)
                            found = found:gsub(' has left', '')
                            if found ~= word then
                                table.insert(results, found)
                            end
                        -- elseif v:match(pattern4) ~= nil then
                        --  found = v:match(pattern4)
                        --  found = found:gsub('Online: ', '')
                        --  tpt.log('pat4: '..found)
                        end
                    end
                end
                --
                if #word > 2 then
                    for i,v in ipairs(theLines) do
                        if v:match('^Online: ') then
                            onlines = v:split(' ')
                            table.remove(onlines, 1)
                            for i,n in ipairs(onlines) do
                                if n:match(pattern) then
                                    if n:match(pattern) ~= word then
                                        table.insert(results, n)
                                    end
                                end
                            end
                        end
                    end
                end
                temptable = {}
                for i,v in ipairs(results) do
                    if not isIn(temptable, v) then table.insert(temptable, v) end
                end
                results = temptable
                for i,v in ipairs(results) do
                    if v == 'Online' then table.remove(results, i) end
                end

                --
                acON = #results > 0 and cursor > #text-#word-1
                if acON then self.jumper:draw() end
                self.jumper.y = windowy - 10*#results - 12
                self.jumper.h = 10*#results+2
                self.jumper:setbackground(10,10,10,235)
                self.jumper.drawbackground=true
                self.jumper.x = windowx + cursoradjust
                --
                longestN = 0
                longestS = ''
                for i,v in ipairs(results) do
                    if #v > longestN then
                        longestN = #v
                        longestS = v
                    end
                end

                if selected > #results then selected = #results end
                if selected < 1 then selected = 1 end


                self.jumper.w = tpt.textwidth(longestS)+2
                --
                if acON then
                    if #results > 0 then
                        gfx.fillRect(windowx+cursoradjust+1, windowy-10*selected-11, tpt.textwidth(longestS)+1, 11, 100,100,100)
                    end
                    for i,v in ipairs(results) do
                        gfx.drawText(windowx+cursoradjust+2,windowy-10*i-10, v)
                    end
                    acSuggest = text:sub(1,-#word-1)..results[selected]
                end
            end --if end
        end)
        return ac
    end
}

------------------------------------
settingsOpened = false

theLines = {}
lineNum = 1

ui_settings = {
    new = function(x,y,w,h)
        local set=ui_box.new(x,y,w,h)
        set.x=x set.y=y set.w=w set.h=h set.x2=x+w set.y2=y+h
        set.cLine = ui_box.new(set.x+tpt.textwidth('Copy to clipboard line no.  '), set.y+4, 20, 10)
        set.downbutt = ui_button.new(
            set.x+tpt.textwidth('Copy to clipboard line no.')+31,
            set.y+4,
            8,
            11,
            function()
                if lineNum > 1 then
                    lineNum = lineNum - 1
                    if lineNum > 1 then
                        if string.match(chatwindow.lines[lineNum-1].text, '^(>> )(.*)') then
                            chatwindow.lines[lineNum-1].text = chatwindow.lines[lineNum-1].text:sub(4)
                        end
                    end
                    if string.match(chatwindow.lines[lineNum+1].text, '^(>> )(.*)') then
                        chatwindow.lines[lineNum+1].text = chatwindow.lines[lineNum+1].text:sub(4)
                    end
                    if not string.match(chatwindow.lines[lineNum].text, '^(>> )(.*)') then
                        chatwindow.lines[lineNum].text = '>> '..chatwindow.lines[lineNum].text
                    end
                end
            end,
            '<', true)
        set.defbutt = ui_button.new(
            set.x+tpt.textwidth('Copy to clipboard line no.')+41,
            set.y+4,
            tpt.textwidth('last')+3,
            11,
            function()
                lineNum = #chatwindow.lines
                for i, v in ipairs(chatwindow.lines) do
                    if string.match(v.text, '^(>> )(.*)') then
                        chatwindow.lines[i].text = v.text:sub(4)
                    end
                end
                chatwindow.lines[lineNum].text = '>> '..chatwindow.lines[lineNum].text
            end,
            'last')
        set.upbutt = ui_button.new(
            set.x+tpt.textwidth('Copy to clipboard line no.')+63,
            set.y+4,
            8,
            11,
            function()
                if lineNum < #chatwindow.lines then
                    lineNum = lineNum + 1
                    if string.match(chatwindow.lines[lineNum-1].text, '^(>> )(.*)') then
                        chatwindow.lines[lineNum-1].text = chatwindow.lines[lineNum-1].text:sub(4)
                    end
                    if lineNum < #chatwindow.lines then
                        if string.match(chatwindow.lines[lineNum+1].text, '^(>> )(.*)') then
                            chatwindow.lines[lineNum+1].text = chatwindow.lines[lineNum+1].text:sub(4)
                        end
                    end
                    if not string.match(chatwindow.lines[lineNum].text, '^(>> )(.*)') then
                        chatwindow.lines[lineNum].text = '>> '..chatwindow.lines[lineNum].text
                    end
                elseif lineNum == #chatwindow.lines then
                    if string.match(chatwindow.lines[lineNum-1].text, '^(>> )(.*)') then
                        chatwindow.lines[lineNum-1].text = chatwindow.lines[lineNum-1].text:sub(4)
                    end
                    if not string.match(chatwindow.lines[lineNum].text, '^(>> )(.*)') then
                        chatwindow.lines[lineNum].text = '>> '..chatwindow.lines[lineNum].text
                    end
                end
            end,
            '>', true)
        set.copy = ui_button.new(
            set.x+4,
            set.y+4,
            tpt.textwidth('Copy to clipboard line no.')+3,
            11,
            function()
                tpt.set_clipboard(theLines[lineNum])
                tpt.log('Copied to clipboard')
                for i, v in ipairs(chatwindow.lines) do
                    if string.match(v.text, '^(>> )(.*)') then
                        chatwindow.lines[i].text = v.text:sub(4)
                    end
                end
            end,
            'Copy to clipboard line no.')
        set.paste = ui_button.new(
            set.x+4,
            set.y+16,
            tpt.textwidth('Paste text from clipboard')+3,
            11,
            function()
                local txt = tpt.get_clipboard()
                txt:gsub('\n', ' ')
                chatwindow.inputbox.t:update(chatwindow.inputbox.t.text..txt, chatwindow.inputbox.cursor + #txt)
                chatwindow.inputbox.cursor = #chatwindow.inputbox.t.text
            end,
            'Paste text from clipboard')
        set.info = ui_button.new(
            set.x+set.w/2-tpt.textwidth('INFO')/2,
            set.y+67,
            tpt.textwidth('INFO')+3,
            10,
            function()
                EC_info()
            end,
            'INFO')
        set.autocomplete = ui_checkbox.new(set.x+6, set.y+42,'Autocomplete usernames','autocomplete',
            function()
                --whenUNSelected
                autocompleteV = false
                MANAGER.savesetting('tptmp', 'autocomplete', 'false')
            end,
            function()
                --whenSelected
                autocompleteV = true
                MANAGER.savesetting('tptmp', 'autocomplete', 'true')
            end, 200,200,200)
        set.downtick = ui_checkbox.new(set.x+6, set.y+30,'Freeze the chat',nil,
        function()
            --whenUNSelected
            scrollrage = true
            chatwindow.scrollbar:update(#chatwindow.lines,chatwindow.shown_lines,#chatwindow.lines-chatwindow.shown_lines)
        end,
        function()
            --whenSelected
            scrollrage = false
        end, 200,200,200)
        set.connectonstart = ui_checkbox.new(set.x+6, set.y+54,'Auto-connect on start', 'autoconnect',
        function()
            --whenUNSelected
            MANAGER.savesetting('tptmp', 'autoconnect', 'false')
        end,
        function()
            --whenSelected
            MANAGER.savesetting('tptmp', 'autoconnect', 'true')
        end, 200,200,200)
        set:drawadd(
        function(self)
            gfx.fillRect(self.x+1,self.y+1,self.w-1,self.h-1, 10,10,10,235)
            gfx.drawRect(self.x+tpt.textwidth('Copy to clipboard line no.')+30, self.y+4,43, 11, 100,100,100)
            gfx.drawLine(self.x+tpt.textwidth('Copy to clipboard line no.')+40, self.y+4,self.x+tpt.textwidth('Copy to clipboard line no.')+40, self.y+14, 100,100,100)
            gfx.drawLine(self.x+tpt.textwidth('Copy to clipboard line no.')+62, self.y+4,self.x+tpt.textwidth('Copy to clipboard line no.')+62, self.y+14, 100,100,100)
            actualLineNum = tostring(lineNum)
            if lineNum < 10 then actualLineNum = '00'..lineNum
            elseif lineNum < 100 then actualLineNum = '0'..lineNum end
            gfx.drawText(set.x+tpt.textwidth('Copy to clipboard line no.  ')+2, set.y+6,actualLineNum)
            self.autocomplete:draw()
            self.copy:draw()
            self.paste:draw()
            self.connectonstart:draw()
            self.info.t:setcolor(127,255,255)
            self.info:draw()
            self.cLine:draw()
            self.upbutt:draw()
            self.downbutt:draw()
            self.defbutt:draw()
            self.downtick:draw()
        end)
        return set
    end
}

ui_chatbox = {
new=function(x,y,w,h)
    local chat=ui_box.new(x,y,w,h)
    chat.moving=false
    chat.lastx=0
    chat.lasty=0
    chat.relx=0
    chat.rely=0
    chat.shown_lines=math.floor(chat.h/10)-2--one line for top, one for chat
    chat.max_width=chat.w-4
    chat.max_lines=500
    chat.lines = {}
    chat.inputbox = ui_inputbox.new(x+15, chat.y2-10, w-42, 10)
    chat.acBox = ui_autocompleteBox.new(x+15, chat.y2-10)
    chat.settings = ui_settings.new(chat.x, chat.y2, chat.w, 82)
    chat.scrollbar = ui_scrollbar.new(chat.x2-2,chat.y+11,chat.h-22,0,chat.shown_lines)
    chat.send = ui_button.new(chat.x2-27,chat.y2-10,27,10,
    function()
        chat:keypress(13,40,false,false,false,false)
    end, 'SEND')
    chat.show = ui_button.new(x,chat.y2-10,15,10,
    function()
        if settingsOpened then
            settingsOpened = false
        else
            settingsOpened = true
        end
    end,'++')
    chat.minimize = ui_button.new(chat.x2-15,chat.y,15,12,function() chat.moving=false chat.inputbox:setfocus(false) L.chatHidden=true TPTMP.chatHidden=true end,">>")
    chat:drawadd(function(self)
        --gfx.fillRect(self.x,self.y,self.w, 13, 180, 180, 180)
        -- local var = self.inputbox.cursor*(tpt.textwidth(self.inputbox.t.text)/#self.inputbox.t.text)
        -- if self.inputbox.t.text == nil then var = 0 end
        -- if var+2 > self.inputbox.w then var = self.inputbox.w-2 end
        -- gfx.drawRect(self.inputbox.x+var+2,self.inputbox.y,1,self.inputbox.h)
        gfx.drawLine(self.x, self.y2-10, self.x+15, self.y2-10)
        gfx.drawLine(self.x2-27, self.y2-10, self.x2, self.y2-10)
        gfx.drawText(self.x+self.w-tpt.textwidth("tahClaitnessE")-20,self.y+3,"E",255, 92, 13)
        gfx.drawText(self.x+self.w-tpt.textwidth("tahClaitness")-20,self.y+3,"s",255, 188, 1)
        gfx.drawText(self.x+self.w-tpt.textwidth("tahClaitnes")-20,self.y+3,"s",255, 254, 13)
        gfx.drawText(self.x+self.w-tpt.textwidth("tahClaitne")-20,self.y+3,"e",188, 255, 0)
        gfx.drawText(self.x+self.w-tpt.textwidth("tahClaitn")-20,self.y+3,"n",13, 255, 255)
        gfx.drawText(self.x+self.w-tpt.textwidth("tahClait")-20,self.y+3,"t",0, 150, 203)
        gfx.drawText(self.x+self.w-tpt.textwidth("tahClai")-20,self.y+3,"i",207, 143, 254)
        gfx.drawText(self.x+self.w-tpt.textwidth("tahCla")-20,self.y+3,"a",255, 92, 13)
        gfx.drawText(self.x+self.w-tpt.textwidth("tahCl")-20,self.y+3,"l",255, 188, 1)
        gfx.drawText(self.x+self.w-tpt.textwidth("tahC")-20,self.y+3,"C",255, 254, 13)
        gfx.drawText(self.x+self.w-tpt.textwidth("tah")-20,self.y+3,"h",188, 255, 0)
        gfx.drawText(self.x+self.w-tpt.textwidth("ta")-20,self.y+3,"a",13, 255, 255)
        gfx.drawText(self.x+self.w-tpt.textwidth("t")-20,self.y+3,"t",0, 150, 203)

        text = self.inputbox.t.text
        inputBx = self.inputbox.x2

        if MANAGER.getsetting('tptmp','autoconnect') == 'true' and temp == 1 then
            connectToServer()
            lastchan = 'null'
            temp = 0
        end

        local chaname = lastchan

        if tpt.textwidth(lastchan) > self.w - tpt.textwidth("EssentialChat") - 30 then
            chaname = lastchan:sub(1, (self.w - tpt.textwidth("EssentialChat") - 30) / 4 - 6)..'...'
        end
        if lastchan == 'null' then
            chaname = 'lobby'
            gfx.drawText(self.x + 4,self.y+3, chaname, 200, 200, 50)
        else
            gfx.drawText(self.x + 4,self.y+3, chaname, 23, 161, 190)
        end
        gfx.drawLine(self.x+1,self.y+12,self.x2-1,self.y+12,120,120,120)
        self.scrollbar:draw()
        local count=0
        for i,line in ipairs(self.lines) do
            if i>self.scrollbar.pos and i<= self.scrollbar.pos+self.shown_lines then
                line:draw(self.x+3,self.y+15+(count*9.5))
                count = count+1
            end
        end
        if settingsOpened then
            self.settings:draw()
        end
        self.show:draw()
        self.send:draw()
        self.inputbox:draw()
        self.minimize:draw()
        self.acBox:draw()
        windowy = self.y2
        windowx = self.x
    end)
    chat:moveadd(function(self,x,y)
        for i,line in ipairs(self.lines) do
            line:onmove(x,y)
        end
        self.scrollbar:onmove(x,y)
        self.settings:onmove(x,y)
        self.settings.connectonstart:onmove(x,y)
        self.settings.connectonstart.check:onmove(x,y)
        self.settings.autocomplete:onmove(x,y)
        self.settings.autocomplete.check:onmove(x,y)
        self.settings.downtick:onmove(x,y)
        self.settings.downtick.check:onmove(x,y)
        self.settings.info:onmove(x,y)
        self.inputbox:onmove(x,y)
        self.minimize:onmove(x,y)
        self.show:onmove(x,y)
        self.acBox:onmove(x,y)
        self.acBox.jumper:onmove(x,y)
        self.send:onmove(x,y)
        self.settings.copy:onmove(x,y)
        self.settings.paste:onmove(x,y)
        self.settings.cLine:onmove(x,y)
        self.settings.upbutt:onmove(x,y)
        self.settings.downbutt:onmove(x,y)
        self.settings.defbutt:onmove(x,y)
    end)
    function chat:addline(line,r,g,b,noflash)
        if not line or line=="" then return end --No blank lines
        local linebreak,lastspace = 0,nil
        for i=0,#line do
            local width = tpt.textwidth(line:sub(linebreak,i+1))
            if width > self.max_width/2 and line:sub(i,i):match("[%s,_%.%-?!]") then
                lastspace = i
            end
            if width > self.max_width or i==#line then
                local pos = (i==#line or not lastspace) and i or lastspace
                table.insert(self.lines,ui_text.new(line:sub(linebreak,pos),self.x,0,r,g,b))
                table.insert(theLines, line:sub(linebreak,pos))
                linebreak = pos+1
                lastspace = nil
            end
        end
        while #self.lines>self.max_lines do table.remove(self.lines,1) end
        if scrollrage then
            self.scrollbar:update(#self.lines,self.shown_lines,#self.lines-self.shown_lines)
        end
        if L.chatHidden and not noflash then L.flashChat=true end
    end
    chat:addline(versionstring,127,255,255,true)
    chat:addline("Main commands:",200,200,200,true)
    chat:addline("/connect - connect to the server",200,200,200,true)
    chat:addline("/join - join a channel",200,200,200,true)
    chat:addline("/info - information about the script",200,200,200,true)
    chat:addline("/reconnect - rejoin server or channel",200,200,200,true)
    chat:addline("/lobby - go to the lobby",200,200,200,true)
    chat:addline("/list - list of all commands",200,200,200,true)
    chat:addline("\n",200,200,200,true)
    local date = os.date('*t')
    if date.month == 12 and date.day >= 24 and date.day <= 26 then
        chat:addline("***************",255,0,0,true)
        chat:addline(" Merry Christmas!",0,255,0,true)
        chat:addline("***************",255,0,0,true)
        chat:addline("\n",255,0,0,true)
    elseif date.month == 12 and date.day == 31 then
        chat:addline("***************",0,0,255,true)
        chat:addline(" Happy New Year's Eve!",255,0,0,true)
        chat:addline("***************",0,0,255,true)
        chat:addline("\n",255,0,0,true)
    elseif date.month == 1 and date.day == 1 then
        chat:addline("***************",0,0,255,true)
        chat:addline(" Happy New Year!",255,0,0,true)
        chat:addline("***************",0,0,255,true)
        chat:addline("\n",255,0,0,true)
    end
    function chat:mouseDown(mouseX, mouseY, button)
        if L.chatHidden then return false end
        self.minimize:mouseDown(mouseX, mouseY, button)
        self.show:mouseDown(mouseX, mouseY, button)
        self.send:mouseDown(mouseX, mouseY, button)
        if settingsOpened then
            self.settings.connectonstart.check:mouseDown(mouseX, mouseY, button)
            self.settings.autocomplete.check:mouseDown(mouseX, mouseY, button)
            self.settings.downtick.check:mouseDown(mouseX, mouseY, button)
            self.settings.info:mouseDown(mouseX, mouseY, button)
            self.settings.copy:mouseDown(mouseX, mouseY, button)
            self.settings.paste:mouseDown(mouseX, mouseY, button)
            self.settings.upbutt:mouseDown(mouseX, mouseY, button)
            self.settings.downbutt:mouseDown(mouseX, mouseY, button)
            self.settings.defbutt:mouseDown(mouseX, mouseY, button)
        end
        local selectedLine = math.floor((mouseY - self.y) / 10)
        -- Mouse outside chat window, defocus it
        if not settingsOpened then
            if mouseX < self.x or mouseX > self.x2 or mouseY < self.y or mouseY > self.y2 then
                for i, v in ipairs(self.lines) do
                    if string.match(v.text, '^(>> )(.*)') then
                        self.lines[i].text = v.text:sub(4)
                    end
                end
                self.inputbox:setfocus(false)
                return false
            end
        end

        if settingsOpened then
            if mouseX < self.x or mouseX > self.x2 or mouseY < self.y or mouseY > self.y2+self.settings.h then
                for i, v in ipairs(self.lines) do
                    if string.match(v.text, '^(>> )(.*)') then
                        self.lines[i].text = v.text:sub(4)
                    end
                end
                self.inputbox:setfocus(false)
                return false
            end
        end

        -- header was grabbed, enable window movement
        if selectedLine == 0 and mouseX < self.minimize.x then
            self.moving = true
            self.lastx = mx
            self.lasty = my
            self.relx = mouseX - self.x
            self.rely = mouseY - self.y
            return true
        -- Textbox clicked
        elseif selectedLine == self.shown_lines + 1 then
            self.inputbox:setfocus(true)
            return true
        end

        -- At this point we know chatbox is selected, ensure window is focused then block mouse events
        if not self.inputbox.focus then
            self.inputbox:setfocus(true)
        end
        return true
    end
    function chat:mouseMove(mouseX, mouseY, dX, dY)
        if self.moving then
            local newx, newy = self.x + dX, self.y + dY
            if newx < 0 then dX = dX - newx end
            if newy < 0 then dY = dY - newy end
            if (newx + self.w) >= sim.XRES then dX = dX - (newx + self.w - sim.XRES) end
            if (newy + self.h) >= sim.YRES then dY = dY - (newy + self.h - sim.YRES) end

            if dX < 0 and mouseX > self.relx + self.x then dX = 0 end
            if dX > 0 and mouseX < self.relx + self.x then dX = 0 end
            if dY < 0 and mouseY > self.rely + self.y then dY = 0 end
            if dY > 0 and mouseY < self.rely + self.y then dY = 0 end

            self:onmove(dX, dY)
        end
        self.minimize:mouseMove(mouseX, mouseY, dX, dY)
        self.show:mouseMove(mouseX, mouseY, dX, dY)
        self.send:mouseMove(mouseX, mouseY, dX, dY)
        self.settings.connectonstart.check:mouseMove(mouseX, mouseY, dX, dY)
        self.settings.autocomplete.check:mouseMove(mouseX, mouseY, dX, dY)
        self.settings.downtick.check:mouseMove(mouseX, mouseY, dX, dY)
        self.settings.info:mouseMove(mouseX, mouseY, dX, dY)
        self.settings.info:mouseMove(mouseX, mouseY, dX, dY)
        self.settings.copy:mouseMove(mouseX, mouseY, dX, dY)
        self.settings.paste:mouseMove(mouseX, mouseY, dX, dY)
        self.settings.upbutt:mouseMove(mouseX, mouseY, dX, dY)
        self.settings.downbutt:mouseMove(mouseX, mouseY, dX, dY)
        self.settings.defbutt:mouseMove(mouseX, mouseY, dX, dY)
    end
    function chat:mouseUp(mouseX, mouseY, button, reason)
        self.minimize:mouseUp(mouseX, mouseY, button, reason)
        self.show:mouseUp(mouseX, mouseY, button, reason)
        self.send:mouseUp(mouseX, mouseY, button, reason)
        if settingsOpened then
            self.settings.connectonstart.check:mouseUp(mouseX, mouseY, button, reason)
            self.settings.autocomplete.check:mouseUp(mouseX, mouseY, button, reason)
            self.settings.downtick.check:mouseUp(mouseX, mouseY, button, reason)
            self.settings.info:mouseUp(mouseX, mouseY, button, reason)
            self.settings.copy:mouseUp(mouseX, mouseY, button, reason)
            self.settings.paste:mouseUp(mouseX, mouseY, button, reason)
            self.settings.upbutt:mouseUp(mouseX, mouseY, button, reason)
            self.settings.downbutt:mouseUp(mouseX, mouseY, button, reason)
            self.settings.defbutt:mouseUp(mouseX, mouseY, button, reason)
        end
        if self.moving then
            self.moving = false
            return true
        end
    end
    function chat:mouseWheel(mouseX, mouseY, wheel)
        self.scrollbar:mouseWheel(mouseX, mouseY, wheel)
    end
    --commands for chat window
    chatcommands = {
    reconnect= function(self,msg,args)
    chat:addline("Reconnecting",100,255,10,true)
        reconnect()
    end,
    clear= function(self,msg,args)
        chatwindow.lines = {}
    end,
    info= function(self,msg,args)
        EC_info()
    end,
    connect= function(self,msg,args)
        if not issocket then self:addline("No luasockets found") return end
        --local newname = pcall(string.dump, get_name) and "Gue".."st"..math["random"](1111,9888) or tpt.get_name()
        if tpt.get_name() ~= '' then username = tpt.get_name() end
        local s,r = connectToServer(args[1],tonumber(args[2]),username)
        laistchan = lastchan
        lastchan = 'null'
        if not s then self:addline(r,255,50,50) end
        pressedKeys = nil
    end,
    lobby= function(self,msg,args)
        joinChannel('null')
    end,
    send= function(self,msg,args)
        if tonumber(args[1]) and args[2] then
        local withNull=false
        if args[2]=="true" then withNull=true end
        msg = msg:sub(#args[1]+1+(withNull and #args[2]+2 or 0))
        conSend(tonumber(args[1]),msg,withNull)
        end
    end,
    quit= function(self,msg,args)
        disconnected("Disconnected")
    end,
    disconnect= function(self,msg,args)
        disconnected("Disconnected")
    end,
    join= function(self,msg,args)
        if con.connected then
            if args[1] then
                joinChannel(args[1])
                self:addline("joined channel "..args[1],50,255,50)
            end
        else
            self:addline("Not connected to server!",255,50,50)
        end
    end,
    sync= function(self,msg,args)
        if con.connected then L.sendScreen=true end --need to send 67 clear screen
        self:addline("Synced screen to server",255,255,50)
    end,
    help= function(self,msg,args)
        if not args[1] then self:addline("/help <command>, type /list for a list of commands") end
        if args[1] == "connect" then self:addline("(/connect [ip] [port]) -- connect to a TPT multiplayer server, or no args to connect to the default one")
        --elseif args[1] == "send" then self:addline("(/send <something> <somethingelse>) -- send raw data to the server") -- send a raw command
        elseif args[1] == "quit" or args[1] == "disconnect" then self:addline("(/quit, no arguments) -- quit the game")
        elseif args[1] == "join" then self:addline("(/join <channel> -- joins a room on the server")
        elseif args[1] == "sync" then self:addline("(/sync, no arguments) -- syncs your screen to everyone else in the room")
        elseif args[1] == "me" then self:addline("(/me <message>) -- say something in 3rd person") -- send a raw command
        elseif args[1] == "kick" then self:addline("(/kick <nick> <reason>) -- kick a user, only works if you have been in a channel the longest")
        elseif args[1] == "size" then self:addline("(/size <width> <height>) -- sets the size of the chat window")
        elseif args[1] == "clear" then self:addline("(/clear, no arguments) -- clears whole chat")
        end
    end,
    list= function(self,msg,args)
        self:addline("Commands: \n")
        for name in pairs(chatcommands) do
            self:addline(name.."\n")
        end

    end,
    me= function(self, msg, args)
        if not con.connected then return end
        self:addline("* " .. username .. " ".. table.concat(args, " "),200,200,200)
        conSend(20,table.concat(args, " "),true)
    end,
    kick= function(self, msg, args)
        if not con.connected then return end
        if not args[1] then self:addline("Need a nick! '/kick <nick> [reason]'") return end
        conSend(21, args[1].."\0"..table.concat(args, " ", 2),true)
    end,
    size= function(self, msg, args)
        if not args[1] then self:addline("Need values! '/size <width> <height>'") return end
        if args[2] then
            local w, h = tonumber(args[1]), tonumber(args[2])
            if w < 200 and not h < 150 then self:addline("Width too small") return
            elseif h < 150 and not w < 200 then self:addline('Height too small') return
            elseif h < 150 and w < 200 then self:addline('Width and height too small') return
            elseif w > gfx.WIDTH and not h > gfx.HEIGHT then self:addline("Width too big") return
            elseif h > gfx.HEIGHT and not w > gfx.WIDTH then self:addline('Height too big') return
            elseif h > gfx.HEIGHT and w > gfx.WIDTH then self:addline('Width and height too big') return
            end
            chatwindow = ui_chatbox.new(100,100,w,h)
            chatwidth = w
            chatheight = h
            chatwindow:setbackground(10,10,10,235) chatwindow.drawbackground=true
            if using_manager then
                MANAGER.savesetting("tptmp", "width", w)
                MANAGER.savesetting("tptmp", "height", h)
            end
        end
    end
    }
    function chat:keypress(key, scan, rep, shift, ctrl, alt)
        if L.chatHidden then return nil end
        local text = self.inputbox:keypress(key, scan, rep, shift, ctrl, alt)
        if text and text~="" then
            local cmd = text:match("^/([^%s]+)")
            if cmd then
                local msg=text:sub(#cmd+3)
                local args = getArgs(msg)
                if chatcommands[cmd] then
                    chatcommands[cmd](self,msg,args)
                    --self:addline("Executed "..cmd.." "..rest)
                    return
                end
            end
            --normal chat
            if con.connected then
                conSend(19,text,true)
                self:addline(username .. ": ".. text,200,200,200)
            else
                self:addline("Not connected to server!",255,50,50)
            end
        end
        if self.inputbox.focus then
            return true
        end
    end
    function chat:textinput(text)
        if L.chatHidden then return end
        self.inputbox:textinput(text)
    end
    return chat
end
}
local fadeText = {}
--A little text that fades away, (align text (left/center/right)?)
local function newFadeText(text,frames,x,y,r,g,b,noremove)
    local t = {ticks=frames,max=frames,text=text,x=x,y=y,r=r,g=g,b=b,keep=noremove}
    t.reset = function(self,text) self.ticks=self.max if text then self.text=text end end
    table.insert(fadeText,t)
    return t
end
--Some text locations for repeated usage
local infoText = newFadeText("",150,245,370,255,255,255,true)
local cmodeText = newFadeText("",120,250,180,255,255,255,true)

local function getypos()
    local ypos = 136
    if jacobsmod and tpt.oldmenu and tpt.oldmenu()==1 then
        ypos = 392
    elseif tpt.num_menus then
        ypos = 392-16*tpt.num_menus()-(not jacobsmod and 16 or 0)
    end
    if using_manager then ypos = ypos - 17 end
    return ypos
end
local jacobsmod_old_menu_check = false
local showbutton = ui_button.new(613,getypos(),14,14,function() if using_manager and not MANAGER.hidden then _print("minimize the manager before opening TPTMP") return end if not hooks_enabled then TPTMP.enableMultiplayer() end L.chatHidden=false TPTMP.chatHidden=false L.flashChat=false end,"<<")
local flashCount=0
showbutton.drawbox = true showbutton:drawadd(function(self) if L.flashChat then self.almostselected=true flashCount=flashCount+1 if flashCount%25==0 then self.invert=not self.invert end end end)
if using_manager then
    local loadsettings = function()
        chatwindow = ui_chatbox.new(100, 100, tonumber(MANAGER.getsetting("tptmp", "width")), tonumber(MANAGER.getsetting("tptmp", "height")))
        chatwidth = w
        chatheight = h
    end
    if not pcall(loadsettings) then
        chatwindow = ui_chatbox.new(100, 100, 225, 150)
        chatwidth = w
        chatheight = h
    end
else
    chatwindow = ui_chatbox.new(100, 100, 225, 150)
    chatwidth = w
    chatheight = h
end
chatwindow:setbackground(10,10,10,235) chatwindow.drawbackground=true

local eleNameTable = {
["DEFAULT_PT_LIFE_GOL"] = 256,["DEFAULT_PT_LIFE_HLIF"] = 257,["DEFAULT_PT_LIFE_ASIM"] = 258,["DEFAULT_PT_LIFE_2x2"] = 259,["DEFAULT_PT_LIFE_DANI"] = 260,
["DEFAULT_PT_LIFE_AMOE"] = 261,["DEFAULT_PT_LIFE_MOVE"] = 262,["DEFAULT_PT_LIFE_PGOL"] = 263,["DEFAULT_PT_LIFE_DMOE"] = 264,["DEFAULT_PT_LIFE_34"] = 265,
["DEFAULT_PT_LIFE_LLIF"] = 276,["DEFAULT_PT_LIFE_STAN"] = 267,["DEFAULT_PT_LIFE_SEED"] = 268,["DEFAULT_PT_LIFE_MAZE"] = 269,["DEFAULT_PT_LIFE_COAG"] = 270,
["DEFAULT_PT_LIFE_WALL"] = 271,["DEFAULT_PT_LIFE_GNAR"] = 272,["DEFAULT_PT_LIFE_REPL"] = 273,["DEFAULT_PT_LIFE_MYST"] = 274,["DEFAULT_PT_LIFE_LOTE"] = 275,
["DEFAULT_PT_LIFE_FRG2"] = 276,["DEFAULT_PT_LIFE_STAR"] = 277,["DEFAULT_PT_LIFE_FROG"] = 278,["DEFAULT_PT_LIFE_BRAN"] = 279,
--walls
["DEFAULT_WL_ERASE"] = 280,["DEFAULT_WL_CNDTW"] = 281,["DEFAULT_WL_EWALL"] = 282,["DEFAULT_WL_DTECT"] = 283,["DEFAULT_WL_STRM"] = 284,
["DEFAULT_WL_FAN"] = 285,["DEFAULT_WL_LIQD"] = 286,["DEFAULT_WL_ABSRB"] = 287,["DEFAULT_WL_WALL"] = 288,["DEFAULT_WL_AIR"] = 289,["DEFAULT_WL_POWDR"] = 290,
["DEFAULT_WL_CNDTR"] = 291,["DEFAULT_WL_EHOLE"] = 292,["DEFAULT_WL_GAS"] = 293,["DEFAULT_WL_GRVTY"] = 294,["DEFAULT_WL_ENRGY"] = 295,
["DEFAULT_WL_NOAIR"] = 296,["DEFAULT_WL_ERASEA"] = 297,["DEFAULT_WL_STASIS"] = 298,
--special tools
["DEFAULT_UI_SAMPLE"] = 299,["DEFAULT_UI_SIGN"] = 300,["DEFAULT_UI_PROPERTY"] = 301,["DEFAULT_UI_WIND"] = 302,
--tools
["DEFAULT_TOOL_HEAT"] = 303,["DEFAULT_TOOL_COOL"] = 304,["DEFAULT_TOOL_AIR"] = 305,["DEFAULT_TOOL_VAC"] = 306,["DEFAULT_TOOL_PGRV"] = 307,["DEFAULT_TOOL_NGRV"] = 308, ["DEFAULT_TOOL_MIX"] = 309,
--decoration tools
["DEFAULT_DECOR_SET"] = 310,["DEFAULT_DECOR_CLR"] = 311,["DEFAULT_DECOR_ADD"] = 312,["DEFAULT_DECOR_SUB"] = 313,["DEFAULT_DECOR_MUL"] = 314,["DEFAULT_DECOR_DIV"] = 315,["DEFAULT_DECOR_SMDG"] = 316,
["DEFAULT_DECOR_LIGH"] = 317, ["DEFAULT_DECOR_DARK"] = 318
}
local gravList= {[0]="Vertical",[1]="Off",[2]="Radial"}
local airList= {[0]="On",[1]="Pressure Off",[2]="Velocity Off",[3]="Off",[4]="No Update"}
local noFlood = {[15]=true,[55]=true,[87]=true,[128]=true,[158]=true}
local noShape = {[55]=true,[87]=true,[128]=true,[158]=true}
local createOverride = {
    [55] = function(rx,ry,c) return 0,0,c end,
    [87] = function(rx,ry,c) local tmp=rx+ry if tmp>55 then tmp=55 end return 0,0,c+bit.lshift(tmp,8) end,
    [88] = function(rx,ry,c) local tmp=rx*4+ry*4+7 if tmp>300 then tmp=300 end return rx,ry,c+bit.lshift(tmp,8) end,
    [128] = function(rx,ry,c) return 0,0,c end,
    [158] = function(rx,ry,c) return 0,0,c end}
local golStart,golEnd=256,279
local wallStart,wallEnd=280,298
local toolStart,toolEnd=303,309
local decoStart,decoEnd=310,318

--Functions that do stuff in powdertoy
local function createPartsAny(x,y,rx,ry,c,brush,user)
    if c>=wallStart then
        if c<= wallEnd then
            if c == 284 then rx,ry = 0,0 end
            sim.createWalls(x,y,rx,ry,c-wallStart,brush)
        elseif c<=toolEnd then
            if c>=toolStart then sim.toolBrush(x,y,rx,ry,c-toolStart,brush) end
        elseif c<= decoEnd then
            sim.decoBrush(x,y,rx,ry,user.dcolour[2],user.dcolour[3],user.dcolour[4],user.dcolour[1],c-decoStart,brush)
        end
        return
    elseif c>=golStart then
        c = 78+(c-golStart)*bit.lshift(1, sim.PMAPBITS)
    end
    if createOverride[c] then
        rx,ry,c = createOverride[c](rx,ry,c)
    end
    sim.createParts(x,y,rx,ry,c,brush,user.replacemode)
end
local function createLineAny(x1,y1,x2,y2,rx,ry,c,brush,user)
    if noShape[c] then return end
    if jacobsmod and c == tpt.element("ball") and not user.shift then return end
    if c>=wallStart then
        if c<= wallEnd then
            if c == 284 then rx,ry = 0,0 end
            sim.createWallLine(x1,y1,x2,y2,rx,ry,c-wallStart,brush)
        elseif c<=toolEnd then
            if c>=toolStart then local str=1.0 if user.drawtype==4 then if user.shift then str=10.0 elseif user.alt then str=0.1 end end sim.toolLine(x1,y1,x2,y2,rx,ry,c-toolStart,brush,str) end
        elseif c<= decoEnd then
            sim.decoLine(x1,y1,x2,y2,rx,ry,user.dcolour[2],user.dcolour[3],user.dcolour[4],user.dcolour[1],c-decoStart,brush)
        end
        return
    elseif c>=golStart then
        c = 78+(c-golStart)*bit.lshift(1, sim.PMAPBITS)
    end
    if createOverride[c] then
        rx,ry,c = createOverride[c](rx,ry,c)
    end
    sim.createLine(x1,y1,x2,y2,rx,ry,c,brush,user.replacemode)
end
local function createBoxAny(x1,y1,x2,y2,c,user)
    if noShape[c] then return end
    if c>=wallStart then
        if c<= wallEnd then
            sim.createWallBox(x1,y1,x2,y2,c-wallStart)
        elseif c<=toolEnd then
            if c>=toolStart then sim.toolBox(x1,y1,x2,y2,c-toolStart) end
        elseif c<= decoEnd then
            sim.decoBox(x1,y1,x2,y2,user.dcolour[2],user.dcolour[3],user.dcolour[4],user.dcolour[1],c-decoStart)
        end
        return
    elseif c>=golStart then
        c = 78+(c-golStart)*bit.lshift(1, sim.PMAPBITS)
    end
    if createOverride[c] then
        _,_,c = createOverride[c](user.brushx,user.brushy,c)
    end
    sim.createBox(x1,y1,x2,y2,c,user and user.replacemode)
end
local function floodAny(x,y,c,cm,bm,user)
    if noFlood[c] then return end
    if c>=wallStart then
        if c<= wallEnd then
            sim.floodWalls(x,y,c-wallStart,bm)
        end
        --other tools shouldn't flood
        return
    elseif c>=golStart then --GoL adjust
        c = 78+(c-golStart)*bit.lshift(1, sim.PMAPBITS)
    end
    if createOverride[c] then
        _,_,c = createOverride[c](user.brushx,user.brushy,c)
    end
    sim.floodParts(x,y,c,cm,user.replacemode)
end
local function lineSnapCoords(x1,y1,x2,y2)
    local nx,ny
    local snapAngle = math.floor(math.atan2(y2-y1, x2-x1)/(math.pi*0.25)+0.5)*math.pi*0.25;
    local lineMag = math.sqrt(math.pow(x2-x1,2)+math.pow(y2-y1,2));
    nx = math.floor(lineMag*math.cos(snapAngle)+x1+0.5);
    ny = math.floor(lineMag*math.sin(snapAngle)+y1+0.5);
    return nx,ny
end

local function rectSnapCoords(x1,y1,x2,y2)
    local nx,ny
    local snapAngle = math.floor((math.atan2(y2-y1, x2-x1)+math.pi*0.25)/(math.pi*0.5)+0.5)*math.pi*0.5 - math.pi*0.25;
    local lineMag = math.sqrt(math.pow(x2-x1,2)+math.pow(y2-y1,2));
    nx = math.floor(lineMag*math.cos(snapAngle)+x1+0.5);
    ny = math.floor(lineMag*math.sin(snapAngle)+y1+0.5);
    return nx,ny
end
local function wallSnapCoords(x, y)
    return math.floor(x / 4) * 4, math.floor(y / 4) * 4
end
local renModes = {[0xff00f270]=1,[-16715152]=1,[0x0400f381]=2,[0xf382]=4,[0xf388]=8,[0xf384]=16,[0xfff380]=32,[1]=0xff00f270,[2]=0x0400f381,[4]=0xf382,[8]=0xf388,[16]=0xf384,[32]=0xfff380}
local function getViewModes()
    local t={0,0,0}
    for k,v in pairs(ren.displayModes()) do
        t[1] = t[1]+v
    end
    for k,v in pairs(ren.renderModes()) do
        t[2] = t[2]+(renModes[v] or 0)
    end
    t[3] = ren.colorMode()
    return t
end

--clicky click
local function playerMouseClick(id,btn,ev)
    local user = con.members[id]
    local createE, checkBut

    --_print(tostring(btn)..tostring(ev))
    if ev==0 then return end
    -- Mouse up event, TPT will "draw" whatever element was last clicked, even if we are releasing a different button
    -- This covers the case where we start drawing a line with rmb, switch to lmb, but then release rmb. The lmb element is drawn
    if ev == 2 then
        if user.lbtn then
            createE,checkBut=user.selectedl,user.lbtn
        elseif user.abtn then
            createE,checkBut=user.selecteda,user.abtn
        elseif user.rbtn then
            createE,checkBut=user.selectedr,user.rbtn
        else
            return
        end
    else
        if btn==1 then
            user.rbtn,user.abtn = false,false
            createE,checkBut=user.selectedl,user.lbtn
        elseif btn==2 then
            user.rbtn,user.lbtn = false,false
            createE,checkBut=user.selecteda,user.abtn
        elseif btn==3 then
            user.lbtn,user.abtn = false,false
            createE,checkBut=user.selectedr,user.rbtn
        else
            return
        end
    end

    --if user.mousex>=sim.XRES or user.mousey>=sim.YRES then user.drawtype=false return end

    if ev==1 then
        if user.mousex >= 0 and user.mousey >= 0 and user.mousex < sim.XRES and user.mousey < sim.YRES then
            user.pmx,user.pmy = user.mousex,user.mousey
            --left box
            if user.ctrl and not user.shift then user.drawtype = 2 return end
            --left line
            if user.shift and not user.ctrl then user.drawtype = 1 return end
            --floodfill
            if user.ctrl and user.shift then floodAny(user.mousex,user.mousey,createE,-1,-1,user) user.drawtype = 3 return end
            --an alt click
            if user.alt then return end
            user.drawtype=4 --normal hold
            createPartsAny(user.mousex,user.mousey,user.brushx,user.brushy,createE,user.brush,user)
        end
    elseif ev==2 and checkBut and user.drawtype then
        local releaseX, releaseY = user.mousex, user.mousey

        if user.drawtype==2 then
            if user.alt then user.mousex,user.mousey = rectSnapCoords(user.pmx,user.pmy,releaseX,releaseY) end
            createBoxAny(releaseX,releaseY,user.pmx,user.pmy,createE,user)
        elseif user.drawtype ~= 3 then
            if user.alt then user.mousex,user.mousey = lineSnapCoords(user.pmx,user.pmy,user.mousex,user.mousey) end
            createLineAny(releaseX,releaseY,user.pmx,user.pmy,user.brushx,user.brushy,createE,user.brush,user)
        end
        user.drawtype=false
        user.pmx,user.pmy = user.mousex,user.mousey
    end
end
--To draw continued lines
local function playerMouseMove(id)
    local user = con.members[id]
    local createE, checkBut
    if user.lbtn then
        createE,checkBut=user.selectedl,user.lbtn
    elseif user.rbtn then
        createE,checkBut=user.selectedr,user.rbtn
    elseif user.abtn then
        createE,checkBut=user.selecteda,user.abtn
    else return end
    if user.drawtype~=4 then if user.drawtype==3 then floodAny(user.mousex,user.mousey,createE,-1,-1,user) end return end

    if user.mousex>=sim.XRES then user.mousex=sim.XRES-1 end
    if user.mousey>=sim.YRES then user.mousey=sim.YRES-1 end
    createLineAny(user.mousex,user.mousey,user.pmx,user.pmy,user.brushx,user.brushy,createE,user.brush,user)
    user.pmx,user.pmy = user.mousex,user.mousey
end
local function loadStamp(size,x,y,reset)
    con.socket:settimeout(10)
    local s = con.socket:receive(size)
    con.socket:settimeout(0)
    if s then
        local f = io.open(".tmp.stm","wb")
        f:write(s)
        f:close()
        if reset then sim.clearSim() end
        if not sim.loadStamp(".tmp.stm",x,y) then
            infoText:reset("Error loading stamp")
        end
        os.remove".tmp.stm"
    else
        infoText:reset("Error loading empty stamp")
    end
end
local function saveStamp(x, y, w, h)
    local stampName = sim.saveStamp(x, y, w, h) or "errorsavingstamp"
    local fullName = "stamps/"..stampName..".stm"
    return stampName, fullName
end
local function deleteStamp(name)
    if sim.deleteStamp then
        sim.deleteStamp(name)
    else
        os.remove("stamps/"..name..".stm")
    end
end

local dataCmds = {
    [16] = function()
    --room members
        con.members = {}
        local amount = cByte()
        local peeps = {}
        for i=1,amount do
            local id = cByte()
            con.members[id]={name=conGetNull(),mousex=0,mousey=0,brushx=4,brushy=4,brush=0,selectedl=1,selectedr=0,selecteda=296,replacemode=0,dcolour={0,0,0,0},lbtn=false,abtn=false,rbtn=false,ctrl=false,shift=false,alt=false}
            local name = con.members[id].name
            table.insert(peeps,name)
        end
        chatwindow:addline("Online: "..table.concat(peeps," "),255,255,50)
    end,
    [17]= function()
        local id = cByte()
        con.members[id] ={name=conGetNull(),mousex=0,mousey=0,brushx=4,brushy=4,brush=0,selectedl=1,selectedr=0,selecteda=296,replacemode=0,dcolour={0,0,0,0},lbtn=false,abtn=false,rbtn=false,ctrl=false,shift=false,alt=false}
        chatwindow:addline(con.members[id].name.." has joined",100,255,100)
    end,
    [18] = function()
        local id = cByte()
        chatwindow:addline(con.members[id].name.." has left",255,255,100)
        con.members[id]=nil
    end,
    [19] = function()
        chatwindow:addline(con.members[cByte()].name .. ": " .. conGetNull())
    end,
    [20] = function()
        chatwindow:addline("* "..con.members[cByte()].name .. " " .. conGetNull())
    end,
    [22] = function()
        chatwindow:addline("[SERVER] "..conGetNull(), cByte(), cByte(), cByte())
    end,
    --Mouse Position
    [32] = function()
        local id = cByte()
        local b1,b2,b3=cByte(),cByte(),cByte()
        con.members[id].mousex,con.members[id].mousey=((b1*16)+math.floor(b2/16)),((b2%16)*256)+b3
        playerMouseMove(id)
    end,
    --Mouse Click
    [33] = function()
        local id = cByte()
        local d=cByte()
        local btn,ev=math.floor(d/16),d%16
        -- Fake mouseup due to either blur or zoom window
        if btn == 0 then
            local user = con.members[id]
            user.lbtn, user.rbtn, user.abtn, user.drawtype = nil, nil, nil, nil
            return
        end
        playerMouseClick(id,btn,ev)
        if ev==0 then return end
        if ev==2 then ev = nil end
        if btn==1 then
            con.members[id].lbtn=ev
        elseif btn==2 then
            con.members[id].abtn=ev
        elseif btn==3 then
            con.members[id].rbtn=ev
        end
    end,
    --Brush size
    [34] = function()
        local id = cByte()
        con.members[id].brushx,con.members[id].brushy=cByte(),cByte()
    end,
    --Brush Shape change, no args
    [35] = function()
        local id = cByte()
        con.members[id].brush=(con.members[id].brush+1)%3
    end,
    --Modifier (mod and state)
    [36] = function()
        local id = cByte()
        local d=cByte()
        local mod,state=math.floor(d/16),d%16~=0
        if mod==0 then
            con.members[id].ctrl=state
        elseif mod==1 then
            con.members[id].shift=state
        elseif mod==2 then
            con.members[id].alt=state
        end
    end,
    --selected elements (2 bits button, 14-element)
    [37] = function()
        local id = cByte()
        local b1,b2=cByte(),cByte()
        local btn,el=math.floor(b1/64),(b1%64)*256+b2
        if btn==0 then
            con.members[id].selectedl=el
        elseif btn==1 then
            con.members[id].selecteda=el
        elseif btn==2 then
            con.members[id].selectedr=el
        elseif btn==3 then
            --sync replace mode element between all players since apparently you have to set tpt.selectedreplace to use replace mode ...
            tpt.selectedreplace = elem.property(el, "Identifier")
        end
    end,
    --replace mode / specific delete
    [38] = function()
        local id = cByte()
        local mod = cByte()
        con.members[id].replacemode = mod
    end,
    --cmode defaults (1 byte mode)
    [48] = function()
        local id = cByte()
        if (visualsync) then
            tpt.display_mode(cByte())
        end
        cmodeText:reset(con.members[id].name.." set:")
    end,
    --pause set (1 byte state)
    [49] = function()
        local id = cByte()
        local p,str = cByte(),"Pause"
        tpt.set_pause(p)
        if p==0 then str="Unpause" end
        infoText:reset(str.." from "..con.members[id].name)
    end,
    --step frame, no args
    [50] = function()
        local id = cByte()
        tpt.set_pause(0)
        L.pauseNextFrame=true
    end,
    --deco mode, (1 byte state)
    [51] = function()
        local id = cByte()
        if (visualsync) then  --EC---------------------------------------------
            tpt.decorations_enable(cByte())
        end
        cmodeText:reset(con.members[id].name.." set:")
    end,
    --amb heat mode, (1 byte state)
    [53] = function()
        local id = cByte()
        tpt.ambient_heat(cByte())
    end,
    --newt_grav mode, (1 byte state)
    [54] = function()
        local id = cByte()
        tpt.newtonian_gravity(cByte())
    end,

    --legacy heat mode, (1 byte state)
    [56] = function()
        local id = cByte()
        tpt.heat(cByte())
    end,
    --water equal, (1 byte state)
    [57] = function()
        local id = cByte()
        sim.waterEqualisation(cByte())
    end,

    --grav mode, (1 byte state)
    [58] = function()
        local id = cByte()
        local mode = cByte()
        sim.gravityMode(mode)
        cmodeText:reset(con.members[id].name.." set: Gravity: "..gravList[mode])
    end,
    --air mode, (1 byte state)
    [59] = function()
        local id = cByte()
        local mode=cByte()
        sim.airMode(mode)
        cmodeText:reset(con.members[id].name.." set: Air: "..airList[mode])
    end,

    --clear sparks (no args)
    [60] = function()
        local id = cByte()
        tpt.reset_spark()
    end,
    --clear pressure/vel (no args)
    [61] = function()
        local id = cByte()
        tpt.reset_velocity()
        tpt.set_pressure()
    end,
    --invert pressure (no args)
    [62] = function()
        local id = cByte()
        for x=0,152 do
            for y=0,95 do
                sim.pressure(x,y,-sim.pressure(x,y))
            end
        end
    end,
    --Clearsim button (no args)
    [63] = function()
        local id = cByte()
        sim.clearSim()
        L.lastSave=nil
        infoText:reset(con.members[id].name.." cleared the screen")
    end,
    --Full graphics view mode (for manual changes in display menu) (3 bytes)
    [64] = function()
        local id = cByte()
        local disM,renM,colM = cByte(),cByte(),cByte()
        if(visualsync) then
            ren.displayModes({disM})
            local t,i={},1
            while i<=32 do
                if bit.band(renM,i)>0 then table.insert(t,renModes[i]) end
                i=i*2
            end
            ren.renderModes(t)
            ren.colorMode(colM)
        end
    end,
    --Selected deco colour (4 bytes)
    [65] = function()
        local id = cByte()
        con.members[id].dcolour = {cByte(),cByte(),cByte(),cByte()}
    end,
    --Recieve a stamp, with location (6 bytes location(3),size(3))
    [66] = function()
        local id = cByte()
        local b1,b2,b3=cByte(),cByte(),cByte()
        local x,y =((b1*16)+math.floor(b2/16)),((b2%16)*256)+b3
        local d = cByte()*65536+cByte()*256+cByte()
        loadStamp(d,x,y,false)
        infoText:reset("Stamp from "..con.members[id].name)
    end,
    --Clear an area, helper for cut (6 bytes, start(3), end(3))
    [67] = function()
        local id = cByte()
        local b1,b2,b3,b4,b5,b6=cByte(),cByte(),cByte(),cByte(),cByte(),cByte()
        local x1,y1 =((b1*16)+math.floor(b2/16)),((b2%16)*256)+b3
        local x2,y2 =((b4*16)+math.floor(b5/16)),((b5%16)*256)+b6
        sim.clearRect(x1,y1,x2-x1+1,y2-y1+1)
    end,
    --Edge mode (1 byte state)
    [68] = function()
        local id = cByte()
        sim.edgeMode(cByte())
    end,
    --Load a save ID (3 bytes ID)
    [69] = function()
        local id = cByte()
        local saveID = cByte()*65536+cByte()*256+cByte()
        L.lastSave=saveID
        sim.loadSave(saveID,1)
    end,
    --Reload sim(from a stamp right now, no args)
    [70] = function()
        local id = cByte()
        sim.reloadSave()
        infoText:reset(con.members[id].name.." reloaded the save")
    end,
    --A request to sync a player, from server, send screen, and various settings
    [128] = function()
        local id = cByte()
        conSend(130,string.char(id,49,tpt.set_pause()))
        local stampName,fullName = saveStamp(0,0,sim.XRES-1,sim.YRES-1)
        local f = assert(io.open(fullName,"rb"))
        local s = f:read"*a"
        f:close()
        deleteStamp(stampName)
        local d = #s
        conSend(128,string.char(id,math.floor(d/65536),math.floor(d/256)%256,d%256)..s)
        conSend(130,string.char(id,53,tpt.ambient_heat()))
        conSend(130,string.char(id,54,tpt.newtonian_gravity()))
        conSend(130,string.char(id,56,tpt.heat()))
        conSend(130,string.char(id,57,sim.waterEqualisation()))
        conSend(130,string.char(id,58,sim.gravityMode()))
        conSend(130,string.char(id,59,sim.airMode()))
        conSend(130,string.char(id,68,sim.edgeMode()))
        conSend(64,string.char(unpack(getViewModes())))
        conSend(34,string.char(tpt.brushx,tpt.brushy))
    end,
    --Recieve sync stamp
    [129] = function()
        local d = cByte()*65536+cByte()*256+cByte()
        loadStamp(d,0,0,true)
    end,
}

local function connectThink()
    if not con.connected then return end
    if not con.socket then disconnected() return end
    --read all messages
    while 1 do
        local s,r = con.socket:receive(1)
        if s then
            local cmd = string.byte(s)
            --_print("GOT "..tostring(cmd))
            if dataCmds[cmd] then dataCmds[cmd]() else _print("TPTMP: Unknown protocol "..tostring(cmd),255,20,20) end
        else
            if r ~= "timeout" then disconnected() end
            break
        end
    end

    --ping every minute
    if os.time()>con.pingTime then conSend(2) con.pingTime=os.time()+60 end
end
--Track if we have STKM2 out, for WASD key changes
elements.property(128,"Update",function() L.stick2=true end)

local function drawStuff()
    if con.members then
        for i,user in pairs(con.members) do
            local x,y = user.mousex,user.mousey
            local brx,bry=user.brushx,user.brushy
            local brush,drawBrush=user.brush,true
            gfx.drawText(x,y,("%s %dx%d"):format(user.name,brx,bry),0,255,0,192)

            -- Draw player cursors
            if user.drawtype==1 then
                if user.alt then x,y = lineSnapCoords(user.pmx,user.pmy,x,y) end
                gfx.drawLine(user.pmx,user.pmy,x,y,0,255,0,128)
            elseif user.drawtype==2 then
                if user.alt then x,y = rectSnapCoords(user.pmx,user.pmy,x,y) end
                local tpmx,tpmy = user.pmx,user.pmy
                if tpmx>x then tpmx,x=x,tpmx end
                if tpmy>y then tpmy,y=y,tpmy end
                gfx.drawRect(tpmx,tpmy,x-tpmx+1,y-tpmy+1,0,255,0,128)
                drawBrush=false
            elseif user.drawtype==3 or (user.shift and user.ctrl) then
                gfx.drawLine(x,y,x+5,y,0,255,0,128)
                gfx.drawLine(x,y,x-5,y,0,255,0,128)
                gfx.drawLine(x,y,x,y+5,0,255,0,128)
                gfx.drawLine(x,y,x,y-5,0,255,0,128)
                drawBrush=false
            end

            if drawBrush then
                if user.selectedl >= wallStart and user.selectedl <= wallEnd then
                    local blockX, blockY = wallSnapCoords(x, y)
                    local blockRadX, blockRadY = wallSnapCoords(brx, bry)

                    local x1, y1 = blockX - blockRadX, blockY - blockRadY
                    local x2, y2 = blockX + blockRadX + 3, blockY + blockRadY + 3
                    gfx.drawRect(x1, y1, x2 - x1, y2 - y1)
                elseif brush==0 then
                    gfx.drawCircle(x,y,brx,bry,0,255,0,128)
                elseif brush==1 then
                    gfx.drawRect(x-brx,y-bry,brx*2+1,bry*2+1,0,255,0,128)
                elseif brush==2 then
                    gfx.drawLine(x-brx,y+bry,x,y-bry,0,255,0,128)
                    gfx.drawLine(x-brx,y+bry,x+brx,y+bry,0,255,0,128)
                    gfx.drawLine(x,y-bry,x+brx,y+bry,0,255,0,128)
                end
            end
        end
    end
    for k,v in pairs(fadeText) do
        if v.ticks > 0 then
            local a = math.floor(255*(v.ticks/v.max))
            gfx.drawText(v.x,v.y,v.text,v.r,v.g,v.b,a)
            v.ticks = v.ticks-1
        else if not v.keep then table.remove(fadeText,k) end
        end
    end
end

local function sendStuff()
    if not con.connected then return end
    if tpt.brushx > 255 then tpt.brushx = 255 end
    if tpt.brushy > 255 then tpt.brushy = 255 end
    local nbx,nby = tpt.brushx,tpt.brushy
    if L.brushx~=nbx or L.brushy~=nby then
        L.brushx,L.brushy = nbx,nby
        conSend(34,string.char(L.brushx,L.brushy))
    end
    --check selected elements
    local nsell,nsela,nselr,nselrep = elements[tpt.selectedl] or eleNameTable[tpt.selectedl],elements[tpt.selecteda] or eleNameTable[tpt.selecteda],elements[tpt.selectedr] or eleNameTable[tpt.selectedr],elements[tpt.selectedreplace] or eleNameTable[tpt.selectedreplace]
    if L.sell~=nsell then
        L.sell=nsell
        if nsell == nil then
            _print("Unsupported wall/tool "..tpt.selectedl)
        else
            conSend(37,string.char(math.floor(L.sell/256),L.sell%256))
        end
    elseif L.sela~=nsela then
        L.sela=nsela
        if nsela == nil then
            _print("Unsupported wall/tool "..tpt.selecteda)
        else
            conSend(37,string.char(math.floor(64 + L.sela/256),L.sela%256))
        end
    elseif L.selr~=nselr then
        L.selr=nselr
        if nselr == nil then
            _print("Unsupported wall/tool "..tpt.selectedr)
        else
            conSend(37,string.char(math.floor(128 + L.selr/256),L.selr%256))
        end
    elseif L.selrep~=nselrep then
        L.selrep=nselrep
        if nselrep == nil then
            _print("Unsupported wall/tool "..tpt.selectedreplace)
        else
            conSend(37,string.char(math.floor(192 + L.selrep/256),L.selrep%256))
        end
    end
    local ncol = sim.decoColour()
    if L.dcolour~=ncol then
        L.dcolour=ncol
        conSend(65,string.char(math.floor(ncol/16777216),math.floor(ncol/65536)%256,math.floor(ncol/256)%256,ncol%256))
    end

    --Tell others to open this save ID, or send screen if opened local browser
    if L.browseMode==1 then
        --loaded online save
        local id=sim.getSaveID()
        if L.lastSave~=id then
            L.lastSave=id
            conSend(69,string.char(math.floor(id/65536),math.floor(id/256)%256,id%256))
        end
        L.browseMode=nil
    elseif L.browseMode==2 then
        --loaded local save (should probably clear sim first instead?)
        L.sendScreen=true
        L.browseMode=nil
    end

    --Send screen (or an area for known size) for stamps
    if jacobsmod and L.sendScreen == 2 then
        L.sendScreen = true
    elseif L.sendScreen then
        local x,y,w,h = 0,0,sim.XRES-1,sim.YRES-1
        if L.smoved then
            local stm
            if L.copying then stm=L.lastCopy else stm=L.lastStamp end
            if L.rotate then stm.w,stm.h=stm.h,stm.w end
            x,y,w,h = math.floor((L.mousex-stm.w/2)/4)*4,math.floor((L.mousey-stm.h/2)/4)*4,stm.w,stm.h
            L.smoved=false
            L.copying=false
        end
        L.sendScreen=false
        local stampName,fullName = saveStamp(x,y,w,h)
        local f = assert(io.open(fullName,"rb"))
        local s = f:read"*a"
        f:close()
        deleteStamp(stampName)
        local d = #s
        local b1,b2,b3 = math.floor(x/16),((x%16)*16)+math.floor(y/256),(y%256)
        conSend(67,string.char(math.floor(x/16),((x%16)*16)+math.floor(y/256),(y%256),math.floor((x+w)/16),(((x+w)%16)*16)+math.floor((y+h)/256),((y+h)%256)))
        conSend(66,string.char(b1,b2,b3,math.floor(d/65536),math.floor(d/256)%256,d%256)..s)
        conSend(49,string.char(tpt.set_pause()))
    end

    --Check if custom modes were changed
    if jacobsmod and L.checkRen == 2 then
        L.checkRen = true
    elseif L.checkRen then
        L.checkRen=false
        local t,send=getViewModes(),false
        for k,v in pairs(t) do
            if v~=L.pModes[k] then
                send=true break
            end
        end
        if send then conSend(64,string.char(t[1],t[2],t[3])) end
    end

    --Send option menu settings
    if L.checkOpt then
        L.checkOpt=false
        conSend(49,string.char(tpt.set_pause()))
        conSend(56,string.char(tpt.heat()))
        conSend(53,string.char(tpt.ambient_heat()))
        conSend(54,string.char(tpt.newtonian_gravity()))
        conSend(57,string.char(sim.waterEqualisation()))
        conSend(58,string.char(sim.gravityMode()))
        conSend(59,string.char(sim.airMode()))
        conSend(68,string.char(sim.edgeMode()))
    end

end
local function updatePlayers()
    if con.members then
        for k,v in pairs(con.members) do
            playerMouseMove(k)
        end
    end
    --Keep last frame of stick2
    L.lastStick2=L.stick2
    L.stick2=false
end

local pressedKeys
local function step()
    if jacobsmod_old_menu_check then showbutton:onmove(0, getypos()-showbutton.y) end
    if not L.chatHidden then chatwindow:draw() else showbutton:draw() end
    if hooks_enabled then
        drawStuff()
        sendStuff()
        if L.pauseNextFrame then L.pauseNextFrame=false tpt.set_pause(1) end
        connectThink()
        updatePlayers()
    EC_loop()
    end
end

--some button locations that emulate tpt, return false will disable button
local tpt_buttons = {
    ["open"] = {x1=1, y1=408, x2=17, y2=422, f=function() if not L.ctrl then L.browseMode=1 else L.browseMode=2 end L.lastSave=sim.getSaveID() end},
    ["rload"] = {x1=19, y1=408, x2=35, y2=422, f=function()
        if L.lastSave then
            if L.ctrl then
                infoText:reset("If you re-opened the save, please type /sync")
            else
                conSend(70)
                infoText:reset("Sent sync")
            end
        else
            --[[infoText:reset("Reloading local saves is not synced currently. Type /sync")]]
            L.checkOpt = true
            L.sendScreen = true
        end
    end},
    ["clear"] = {x1=470, y1=408, x2=486, y2=422, f=function() conSend(63) L.lastSave=nil end},
    ["opts"] = {x1=581, y1=408, x2=595, y2=422, f=function() L.checkOpt=true end},
    ["disp"] = {x1=597, y1=408, x2=611, y2=422, f=function() L.checkRen=true L.pModes=getViewModes() end},
    ["pause"] = {x1=gfx.WIDTH-16, y1=408, x2=gfx.WIDTH-2, y2=422, f=function() conSend(49,tpt.set_pause()==0 and "\1" or "\0") end},
    ["deco"] = {x1=gfx.WIDTH-16, y1=33, x2=gfx.WIDTH-2, y2=47, f=function() if jacobsmod and (L.tabs or L.ctrl) then return end conSend(51,tpt.decorations_enable()==0 and "\1" or "\0") end},
    ["newt"] = {x1=gfx.WIDTH-16, y1=49, x2=gfx.WIDTH-2, y2=63, f=function() if jacobsmod and (L.tabs or L.ctrl) then return end conSend(54,tpt.newtonian_gravity()==0 and "\1" or "\0") end},
    ["ambh"] = {x1=gfx.WIDTH-16, y1=65, x2=gfx.WIDTH-2, y2=79, f=function() if jacobsmod and (L.tabs or L.ctrl) then return end conSend(53,tpt.ambient_heat()==0 and "\1" or "\0") end},
}
if jacobsmod then
    tpt_buttons["tab"] = {x1=gfx.WIDTH-16, y1=1, x2=gfx.WIDTH-2, y2=15, f=function() L.tabs = not L.tabs end}
    tpt_buttons["tabs"] = {x1=gfx.WIDTH-16, y1=17, x2=gfx.WIDTH-2, y2=147, f=function() if L.tabs or L.ctrl then L.sendScreen = true end end}
    tpt_buttons["opts"] = {x1=465, y1=408, x2=479, y2=422, f=function() L.checkOpt=true end}
    tpt_buttons["clear"] = {x1=481, y1=408, x2=497, y2=422, f=function() conSend(63) L.lastSave=nil end}
    tpt_buttons["disp"] = {x1=595, y1=408, x2=611, y2=422,f=function() L.checkRen=2 L.pModes=getViewModes() end}
    tpt_buttons["open"] = {x1=1, y1=408, x2=17, y2=422, f=function() if not L.ctrl then L.browseMode=1 else L.browseMode=2 end L.lastSave=sim.getSaveID() end}
end

local function inZoomWindow(x, y)
    if not L.isDrawing and (x < 0 or x >= sim.XRES or y < 0 or y >= sim.YRES) then
        return false
    end
    local snappedX, snappedY = x, y
    -- When the mouse is outside the window, TPT will snap coords to simulation area then check for zoom window
    if snappedX < 0 then snappedX = 0 elseif snappedX >= sim.XRES then snappedX = sim.XRES end
    if snappedY < 0 then snappedY = 0 elseif snappedY >= sim.YRES then snappedY = sim.YRES end
    local zoomX, zoomY = sim.adjustCoords(snappedX, snappedY)
    return zoomX ~= x or zoomY ~= y
end

local function sendMouseUpdate(mouseX, mouseY)
    L.realMouseX, L.realMouseY = mouseX, mouseY
    if inZoomWindow(mouseX, mouseY) then
        mouseX, mouseY = sim.adjustCoords(mouseX, mouseY)
    else
        if mouseX < 0 then mouseX = 0 end
        if mouseY < 0 then mouseY = 0 end
        if mouseX > gfx.WIDTH then mouseX = gfx.WIDTH end
        if mouseY > gfx.HEIGHT then mouseY = gfx.HEIGHT end
    end

    if L.mousex ~= mouseX or L.mousey ~= mouseY then
        local b1, b2, b3 = math.floor(mouseX / 16), ((mouseX % 16) * 16) + math.floor(mouseY / 256), (mouseY % 256)
        conSend(32, string.char(b1, b2, b3))
        L.mousex, L.mousey = mouseX, mouseY
    end
end

local function mouseDown(mouseX, mouseY, button)
    if L.chatHidden then
        showbutton:mouseDown(mouseX, mouseY, button)
        if not hooks_enabled then
            return true
        end
    end
    if L.stamp and button == 1 then
        L.stampx, L.stampy = mouseX, mouseY
        return true
    end
    if L.stamp or L.placeStamp then
        return true
    end
    if L.skipClick then
        L.skipClick = false
        return true
    end
    if chatwindow:mouseDown(mouseX, mouseY, button) then
        return false
    end

    sendMouseUpdate(mouseX, mouseY)
    local obut, oevnt = L.mButt, L.mEvent
    if button ~= obut or 1 ~= oevnt then
        L.mButt, L.mEvent = button, 1
        if mouseX >= 0 and mouseY >= 0 and mouseX < sim.XRES and mouseY < sim.YRES then
            L.isDrawing = true
        end
        conSend(33, string.char(L.mButt * 16 + L.mEvent))
    end

    -- Click inside button first
    if button==1 then
        for k, v in pairs(tpt_buttons) do
            if mouseX >= v.x1 and mouseX <= v.x2 and mouseY >= v.y1 and mouseY <= v.y2 then
                v.downInside = true
            end
        end
    end
end

local function mouseUp(mouseX, mouseY, button, reason)
    if L.chatHidden then
        showbutton:mouseUp(mouseX, mouseY, button)
        if not hooks_enabled then
            return true
        end
    end
    if L.stamp then
        if L.skipClick then
            L.skipClick = false
            return true
        end
        --stamp has been saved, make our own copy
        if button==1 then
            --save stamp ourself for data, delete it
            local sx,sy = mouseX, mouseY
            if sx<L.stampx then L.stampx,sx=sx,L.stampx end
            if sy<L.stampy then L.stampy,sy=sy,L.stampy end
            --cheap cut hook to send a clear
            if L.copying==1 then
                --maybe this is ctrl+x? 67 is clear area
                conSend(67,string.char(math.floor(L.stampx/16),((L.stampx%16)*16)+math.floor(L.stampy/256),(L.stampy%256),math.floor(sx/16),((sx%16)*16)+math.floor(sy/256),(sy%256)))
            end
            local w,h = sx-L.stampx,sy-L.stampy
            local stampName,fullName = saveStamp(L.stampx,L.stampy,w,h)
            sx,sy,L.stampx,L.stampy = math.ceil((sx+1)/4)*4,math.ceil((sy+1)/4)*4,math.floor(L.stampx/4)*4,math.floor(L.stampy/4)*4
            w,h = sx-L.stampx, sy-L.stampy
            local f = assert(io.open(fullName,"rb"))
            if L.copying then L.lastCopy = {data=f:read"*a",w=w,h=h} else L.lastStamp = {data=f:read"*a",w=w,h=h} end
            f:close()
            deleteStamp(stampName)
        end
        L.stamp=false
        L.copying=false
    end
    if L.placeStamp and reason == 0 then
        if L.skipClick then
            L.skipClick=false
            return true
        end
        if button==1 then
            local stm
            if L.copying then stm=L.lastCopy else stm=L.lastStamp end
            if stm then
                if not stm.data then
                    --unknown stamp, send full screen on next step, how can we read last created stamp, timestamps on files?
                    L.sendScreen = (jacobsmod and 2 or true)
                else
                    --send the stamp
                    if L.smoved then
                        --moved from arrows or rotate, send area next frame
                        L.placeStamp=false
                        L.sendScreen=true
                        return true
                    end
                    local sx,sy = mouseX-math.floor(stm.w/2),mouseY-math.floor((stm.h)/2)
                    if sx<0 then sx=0 end
                    if sy<0 then sy=0 end
                    if sx+stm.w>sim.XRES-1 then sx=sim.XRES-stm.w end
                    if sy+stm.h>sim.YRES-1 then sy=sim.YRES-stm.h end
                    local b1,b2,b3 = math.floor(sx/16),((sx%16)*16)+math.floor(sy/256),(sy%256)
                    local d = #stm.data
                    conSend(66,string.char(b1,b2,b3,math.floor(d/65536),math.floor(d/256)%256,d%256)..stm.data)
                end
            end
        end
        L.placeStamp=false
        L.copying=false
    end

    if L.skipClick then
        L.skipClick = false
        return true
    end
    if chatwindow:mouseUp(mouseX, mouseY, button, reason) then
        return false
    end

    -- Ignore fake mouseups due to blur (don't send 0, 0 coordinate)
    -- Also ignore fake mouseups due to going into / outside of zoom window
    -- In both cases, tell other clients we're no longer holding the mouse, without causing it to draw the line
    if reason == 1 or reason == 2 then
        L.mButt, L.mEvent = button, 2
        L.isDrawing = false
        conSend(33, string.char(0 * 16 + L.mEvent))
        return
    end

    sendMouseUpdate(mouseX, mouseY)
    local obut, oevnt = L.mButt, L.mEvent
    if button ~= obut or 2 ~= oevnt then
        L.isDrawing = false
        L.mButt, L.mEvent = button, 2
        conSend(33, string.char(L.mButt * 16 + L.mEvent))
    end

    -- Up inside the button we started with
    if button == 1 then
        local ret = true
        for k,v in pairs(tpt_buttons) do
            if v.downInside and (mouseX>=v.x1 and mouseX<=v.x2 and mouseY>=v.y1 and mouseY<=v.y2) then
                if v.f() == false then ret = false end
            end
            v.downInside = nil
        end
        return ret
    end
end

local function mouseMove(mouseX, mouseY, dX, dY)
    if L.chatHidden then
        showbutton:mouseMove(mouseX, mouseY, dX, dY)
        if not hooks_enabled then
            return true
        end
    end
    if chatwindow:mouseMove(mouseX, mouseY, dX, dY) then
        return false
    end

    -- Always send mouse update, unless we're currently drawing and entered/exited the zoom window
    -- TPT sends a fake mouseup event in this case, but the mouse move happens first so we need to stop it ourselves
    local shouldBlockMove = L.isDrawing and not inZoomWindow(mouseX, mouseY) ~= inZoomWindow(L.realMouseX, L.realMouseY)
    if shouldBlockMove then
        L.isDrawing = false
    else
        sendMouseUpdate(mouseX, mouseY)
    end

    --Mouse hold, we MUST stay inside button or don't trigger on up
    if button == 1 then
        for k, v in pairs(tpt_buttons) do
            if v.downInside and (mouseX < v.x1 or mouseX > v.x2 or mouseY < v.y1 or mouseY > v.y2) then
                v.downInside = nil
            end
        end
    end
end

local function mouseWheel(mouseX, mouseY, wheel)
    if chatwindow.inputbox.focus and chatwindow:mouseWheel(mousex, mousey, wheel) then
        return false
    end
end

local keyFuncs = {
    --TAB
    [9] = function() if not jacobsmod or not L.ctrl then conSend(35) end end,

    --View modes 0-9
    [48] = function() conSend(48,"\10") end,
    [49] = function() if L.shift then conSend(48,"\9") tpt.display_mode(9)--[[force local display mode, screw debug check for now]] return false end conSend(48,"\0") end,
    [50] = function() conSend(48,"\1") end,
    [51] = function() conSend(48,"\2") end,
    [52] = function() conSend(48,"\3") end,
    [53] = function() conSend(48,"\4") end,
    [54] = function() conSend(48,"\5") end,
    [55] = function() conSend(48,"\6") end,
    [56] = function() conSend(48,"\7") end,
    [57] = function() conSend(48,"\8") end,

    -- ins / del for replace mode
    [1073741897] = function() L.replacemode = bit.bxor(L.replacemode, 1) conSend(38, L.replacemode) end,
    [127] = function() L.replacemode = bit.bxor(L.replacemode, 2) conSend(38, L.replacemode) end,

    --Arrows for stamp adjust
    [273] = function() if L.placeStamp then L.smoved=true end end,
    [274] = function() if L.placeStamp then L.smoved=true end end,
    [275] = function() if L.placeStamp then L.smoved=true end end,
    [276] = function() if L.placeStamp then L.smoved=true end end
}

local scanFuncs = {
    --`, console
    [53] = function() if not L.shift and con.connected then infoText:reset("Console does not sync, use shift+` to open instead") return false else jacobsmod_old_menu_check = true end end,

    --b, deco, pauses sim
    [5] = function() if L.ctrl then conSend(51,tpt.decorations_enable()==0 and "\1" or "\0") else conSend(49,"\1") conSend(51,"\1") end end,

    --c, copy
    [6] = function() if L.ctrl then L.stamp=true L.copying=true L.stampx = -1 L.stampy = -1 end end,

    --d key, debug, api broken right now
    --[7] = function() conSend(55) end,

    --F, frame step
    [9] = function() if not jacobsmod or not L.ctrl then conSend(50) end end,

    --H, HUD and intro text
    [11] = function() if L.ctrl and jacobsmod then return false end end,

    --I, invert pressure
    [12] = function() conSend(62) end,

    --K, stamp menu, abort our known stamp, who knows what they picked, send full screen?
    [14] = function() L.lastStamp={data=nil,w=0,h=0} L.placeStamp=true end,

    --L, last Stamp
    [15] = function() if L.lastStamp then L.placeStamp=true end end,

    --N, newtonian gravity or new save
    [17] = function() if jacobsmod and L.ctrl then L.sendScreen=2 L.lastSave=nil else conSend(54,tpt.newtonian_gravity()==0 and "\1" or "\0") end end,

    --O, old menu in jacobs mod
    [18] = function() if jacobsmod and not L.ctrl then jacobsmod_old_menu_check = true end end,

    --R, for stamp rotate or save reload
    [21] = function()
        if L.placeStamp then
            L.smoved = true
            if L.shift then
                return
            end
            L.rotate = not L.rotate
        elseif L.ctrl then
            if L.lastSave then
                conSend(70)
                infoText:reset("Sent reload command")
            else
                L.sendScreen = true
                infoText:reset("Send sync")
            end
        end
    end,

    --S, stamp
    [22] = function() if (L.lastStick2 and not L.ctrl) or (jacobsmod and L.ctrl) then return end L.stamp=true L.stampx = -1 L.stampy = -1 end,

    --T, tabs
    [23] = function() if jacobsmod then L.tabs = not L.tabs end end,

    --U, ambient heat toggle
    [24] = function() conSend(53,tpt.ambient_heat()==0 and "\1" or "\0") end,

    --V, paste the copystamp
    [25] = function() if L.ctrl and L.lastCopy then L.placeStamp=true L.copying=true end end,

    --W, gravity mode
    [26] = function() if L.lastStick2 and not L.ctrl then return end conSend(58,string.char((sim.gravityMode()+1)%3)) return true end,

    --X, cut a copystamp and clear
    [27] = function() if L.ctrl then L.stamp=true L.copying=1 L.stampx = -1 L.stampy = -1 end end,

    --Y, air mode
    [28] = function() if L.ctrl then L.sendScreen = true else conSend(59,string.char((sim.airMode()+1)%5)) return true end end,

    --Z
    [29] = function() if L.ctrl then L.sendScreen = true else L.skipClick=true end end,

    --ESC
    [41] = function() if not L.chatHidden then L.chatHidden = true TPTMP.chatHidden = true return false end end,

    --space, pause toggle
    [44] = function() conSend(49,tpt.set_pause()==0 and "\1" or "\0") end,

    --= key, pressure/spark reset
    [46] = function() if L.ctrl then conSend(60) else conSend(61) end end,

    --;, replace mode or specific delete
    [59] = function() if L.ctrl then  L.replacemode = bit.bxor(L.replacemode, 2) else  L.replacemode = bit.bxor(L.replacemode, 1) end conSend(38, L.replacemode) end,

    --F1 , intro text
    [58] = function() if jacobsmod then return false end end,

    --F5 , save reload
    [62] = function()
        if L.lastSave then
            conSend(70)
            infoText:reset("Sent reload command")
        else
            L.sendScreen = true
            infoText:reset("Sent sync")
        end
    end,
}
local scanUnpressFuncs = {
    --Z
    [29] = function() L.skipClick=false if L.alt then L.skipClick=true end end,
}

local function keypress(key, scan, rep, shift, ctrl, alt)
    if shift and not L.shift then
        L.shift = true
        conSend(36, string.char(17))
    end
    if ctrl and not L.ctrl then
        L.ctrl = true
        conSend(36, string.char(1))
    end
    if alt and not L.alt then
        L.alt = true
        conSend(36, string.char(33))
    end

    local check = chatwindow:keypress(key, scan, rep, shift, ctrl, alt)
    if type(check) == "boolean" then
        return not check
    end

    if rep then return end

    if scanFuncs[scan] then
        ret = scanFuncs[scan]()
        if ret ~= nil then
            return ret
        end
    elseif keyFuncs[key] then
        ret = keyFuncs[key]()
        if ret ~= nil then
            return ret
        end
    end
end
local function keyrelease(key, scan, rep, shift, ctrl, alt)
    if not shift and L.shift then
        L.shift = false
        conSend(36, string.char(16))
    end
    if not ctrl and L.ctrl then
        L.ctrl = false
        conSend(36, string.char(0))
    end
    if not alt and L.alt then
        L.alt = false
        conSend(36, string.char(32))
    end

    if rep then return end

    if scanUnpressFuncs[scan] then
        ret = scanUnpressFuncs[scan]()
        if ret~= nil then
            return ret
        end
    end
end
local function textinput(text)
    chatwindow:textinput(text)
end
local function blur()
    if L.shift then
        L.shift = false
        conSend(36, string.char(16))
    end
    if L.ctrl then
        L.ctrl = false
        conSend(36, string.char(0))
    end
    if L.alt then
        L.alt = false
        conSend(36, string.char(32))
    end
end
function TPTMP.disableMultiplayer()
    evt.unregister(evt.tick, step)
    evt.unregister(evt.mousedown, mouseDown)
    evt.unregister(evt.mouseup, mouseUp)
    evt.unregister(evt.mousemove, mouseMove)
    evt.unregister(evt.mousewheel, mouseQheel)
    evt.unregister(evt.keypress, keypress)
    evt.unregister(evt.keyrelease, keyrelease)
    evt.unregister(evt.textinput, textinput)
    evt.unregister(evt.blur, blur)
    TPTMP = nil
    disconnected("TPTMP unloaded")
end

function TPTMP.enableMultiplayer()
    hooks_enabled = true
    TPTMP.enableMultiplayer = nil
    debug.sethook(nil,"",0)
    if jacobsmod then
        --clear intro text tooltip
        gfx.toolTip("", 0, 0, 0, 4)
    end
end

function reconnect()
    disconnected()
    if tpt.get_name() ~= '' then username = tpt.get_name() end
    connectToServer(lastip,lastport,username)
    if laistchan~='' then
        joinChannel(laistchan)
    end
end

TPTMP.con = con
TPTMP.chatHidden = true
evt.register(evt.tick, step)
evt.register(evt.mousedown, mouseDown)
evt.register(evt.mouseup, mouseUp)
evt.register(evt.mousemove, mouseMove)
evt.register(evt.mousewheel, mouseWheel)
evt.register(evt.keypress, keypress)
evt.register(evt.keyrelease, keyrelease)
evt.register(evt.textinput, textinput)
evt.register(evt.blur, blur)