Private Messages

Private Messages

http://i.imgur.com/Zw2VGsW.png

Configuration

It'll show all the private messages sent and received on your screen.

Configuration

Change Sent to true to show messages sent by your character on the display, set it to false to hide them.
Change Received to true to show messages received by your character on the display, set it to false to hide them.
Change MaxLines to the number of lines you want to display.
Change Scroll to true to enable mouse scroll between messages on the display, set it to false to ignore this feature.
Change Length to the maximum text length you want to display.

Code

init start



	-- VERSION 2.2.0 --



	local Config = {

		Sent = true,

		Received = true,

		MaxLines = 8,

		Scroll = true,

		Length = 60,

	}



	-- DO NOT EDIT BELOW THIS LINE --



	PrivateMessages = PrivateMessages or {}



	local HUD = {

		Restart = -1,

		Start = 1,

		End = Config.MaxLines,

		strStart = 1,

		strEnd = 60,

		strMax = 60,

		Position = {$worldwin.right + 3, $worldwin.bottom - (Config.MaxLines * 16)},

		Auxiliar = {0, 0},

		ColumnWidth = {125, 12},

		Moving = false,

		Blue = {0.0, color(36, 68, 105, 20), 0.23, color(39, 73, 114, 20), 0.76, color(21, 39, 60, 20)},

		Black = {0.0, color(75, 75, 75, 20), 0.23, color(45, 45, 45, 20), 0.76, color(19, 19, 19, 20)},

		Orange = {0.0, color(145, 95, 0, 20), 0.23, color(158, 104, 0, 20), 0.76, color(84, 55, 0, 20)},

		Green = {0.0, color(65, 96, 12, 20), 0.23, color(67, 99, 13, 20), 0.76, color(36, 52, 6, 20)},

		Red = {0.0, color(90, 12, 15, 20), 0.23, color(98, 13, 17, 20), 0.76, color(52, 6, 9, 20)},

	}



	local tempPos = $chardb:getvalue('AWE.PM', 'POSITION')



	if tempPos then

		tempPos = tempPos:explode(":")

		HUD.Position = {tonumber(tempPos[1]), tonumber(tempPos[2])}

	end



	filterinput(true, true, true, Config.Scroll) setfillstyle('gradient', 'linear', 2, 0, 0, 0, 14) setfontstyle('Tahoma', 8, 50, 0xFFFFFF, 1, color(0, 0, 0, 50))



    function inputevents(e)

        if e.type == IEVENT_RMOUSEDOWN or e.type == IEVENT_MMOUSEDOWN then

            HUD.Moving, HUD.Auxiliar = true, {$cursor.x - HUD.Position[1], $cursor.y - HUD.Position[2]}

        elseif e.type == IEVENT_RMOUSEUP or e.type == IEVENT_MMOUSEUP then

            HUD.Moving = false

        elseif e.type == IEVENT_MOUSEWHEEL then

			if iskeypressed(0x12) then

				if e.value2 < 0 then

					HUD.strStart, HUD.strEnd = HUD.strStart - 1, HUD.strEnd - 1

				elseif e.value2 > 0 then

					HUD.strStart, HUD.strEnd = HUD.strStart + 1, HUD.End + 1

				end

				if HUD.strStart > HUD.strMax then

					HUD.strStart, HUD.strEnd = 1, 30

				end

			else

				if #PrivateMessages > Config.MaxLines then

					if e.value2 < 0 then

						if HUD.Start <= #PrivateMessages - Config.MaxLines then

							HUD.Start, HUD.End = HUD.Start + 1, HUD.End + 1

						end

					elseif e.value2 > 0 then

						if HUD.End > Config.MaxLines then

							HUD.Start, HUD.End = HUD.Start - 1, HUD.End - 1

						end

					end

				end

			end

	    elseif e.type == IEVENT_LMOUSEUP then

			if e.elementid == HUD.Restart then

				PrivateMessages = {}

			end

		end

	end



	local function displaytext(text, x, y, c)

		addgradcolors(unpack(c))

		local w, h = measurestring(text)

		HUD.ColumnWidth[1], HUD.ColumnWidth[2] = math.max(HUD.ColumnWidth[1], w or 0), math.max(HUD.ColumnWidth[2], h or 0)

		local t = drawroundrect(x, y, HUD.ColumnWidth[1] + 7, HUD.ColumnWidth[2], 2, 2)

		drawtext(text, x + 2, y + math.floor(HUD.ColumnWidth[2] / 4) - 2.4)

		return t

	end



init end



if HUD.Moving then

    auto(10)

    HUD.Position = {$cursor.x - HUD.Auxiliar[1], $cursor.y - HUD.Auxiliar[2]}

	$chardb:setvalue('AWE.PM', 'POSITION', table.concat(HUD.Position, ':'))

end



foreach newmessage m do

	if m.channel:lower() ~= 'npcs' and (Config.Sent and m.type == MSG_SENT) or (Config.Received and m.type == MSG_PVT) then

		table.insert(PrivateMessages, {text = string.format("%s %s [%s]: %s", os.date('%H:%M'), m.sender, m.level, m.content), color = m.type == MSG_PVT and HUD.Orange or HUD.Black})

	end

end



local x, y, w, h = 0, 0, 0, 0



displaytext(" Private Messages:", x, y, HUD.Blue)

addgradcolors(unpack(#PrivateMessages > 0 and HUD.Green or HUD.Red))



w, h = measurestring("RESET")

HUD.ColumnWidth[1] = math.max(HUD.ColumnWidth[1], w)

HUD.Restart = drawroundrect(x - w + HUD.ColumnWidth[1], y, w + 7, h, 2, 2)



drawtext("RESET", 5 + x - w + HUD.ColumnWidth[1], y + math.floor(h / 4) - 2.4)



y = y + 20



for i = HUD.Start, HUD.End do

	if PrivateMessages[i] then

		local msg = PrivateMessages[i].text

		local h, j = math.max(1, HUD.strStart), math.max(msg:len(), HUD.strEnd)

		HUD.strMax = math.max(HUD.strMax, msg:len())

		if h == 2 then

			msg = "." .. msg:sub(h, j)

		elseif h == 3 then

			msg = ".." .. msg:sub(h, j)

		elseif h >= 4 then

			msg = "..." .. msg:sub(h, j)

		else

			msg = msg:sub(h, j)

		end

		displaytext(msg:fit(Config.Length or 60), x, y, PrivateMessages[i].color)



		y = y + 16

	end

end



setposition(HUD.Position[1], HUD.Position[2])

Download

I've got problem with this script.
I have to put it in Persistent , ye?

When I try to enable it :

14:43:19 error in Persistent script NewPersistentScript:
["HUD.ColumnWidth[1] = math.max(H..."]:NewPersistentScript:108 bad argument #2 to 'max' (number expected, got nil)
stack traceback:
["HUD.ColumnWidth[1] = math.max(HUD.ColumnWidth[1], w)"]:NewPersistentScript:108 in user script

Quote:

---

Originally Posted by ralixi

I've got problem with this script.
I have to put it in Persistent , ye?

When I try to enable it :

14:43:19 error in Persistent script NewPersistentScript:
["HUD.ColumnWidth[1] = math.max(H..."]:NewPersistentScript:108 bad argument #2 to 'max' (number expected, got nil)
stack traceback:
["HUD.ColumnWidth[1] = math.max(HUD.ColumnWidth[1], w)"]:NewPersistentScript:108 in user script

---

No, you need to put it in HUD.

Thanks for this lovely script

would be nice if it has auto scroll.

Hey there!
How can I move this HUD to the bottom left side instead of the right side? :)

What lines do I edit?

Quote:

---

Originally Posted by Banantwist

Hey there!
How can I move this HUD to the bottom left side instead of the right side? :)

What lines do I edit?

---

Just hold down your middle mouse button on the blue bar and you can drag it wherever you like :)

Quote:

---

Originally Posted by Dragoon

Just hold down your middle mouse button on the blue bar and you can drag it wherever you like :)

---

You're awesome! Thanks a lot! :)

Ever since adding this HUD to a script, I've had odd crashes (bot crashing that is) within minutes of starting it.

Quote:

---

Originally Posted by strahowski

Ever since adding this HUD to a script, I've had odd crashes (bot crashing that is) within minutes of starting it.

---

Sorry for the long delay between this response, this is a Windows problem and by far can't be fixed, the solution is to go back to v2 if you have these problems

v2.0.0 download

I have the same problem, even with the v2.0.0, :(

Using Windows 8.1

Me too .. windbot crashes whenever this HUD is enabled, even with the old version you gave to us.
Is there any fix for this situation?
I really would appreciate (and even pay for it!) a working PM HUD script.

Quote:

---

Originally Posted by Pitoquinha

Me too .. windbot crashes whenever this HUD is enabled, even with the old version you gave to us.
Is there any fix for this situation?
I really would appreciate (and even pay for it!) a working PM HUD script.

---

Quote:

---

Originally Posted by leleog

I have the same problem, even with the v2.0.0, :(

Using Windows 8.1

---

Not that I don't want to do a working version, I can't recreate the error, it works good for me. I was talking with Lucas about it and he'll be checking future crash reports for this so I can find the bug, just make sure you use this hud again tomorrow and send the picture of your crash reports.

Quote:

---

Originally Posted by Leonardo

Not that I don't want to do a working version, I can't recreate the error, it works good for me. I was talking with Lucas about it and he'll be checking future crash reports for this so I can find the bug, just make sure you use this hud again tomorrow and send the picture of your crash reports.

---

Where is the crash reports located? Is there a log or something I could check?
Because the bot doesnt shows up any alert box or anything, it just completely closes.

Quote:

---

Originally Posted by Pitoquinha

Where is the crash reports located? Is there a log or something I could check?
Because the bot doesnt shows up any alert box or anything, it just completely closes.

---

windbot folder

Quote:

---

Originally Posted by Pitoquinha

Where is the crash reports located? Is there a log or something I could check?
Because the bot doesnt shows up any alert box or anything, it just completely closes.

---

The crashes are sent to Lucas if there are any, but only if they appear in the screen I guess.

Its not crashing for me but if i keep the bot running ANY script with this PMhud it will suddenly close itself without any kind of crash. Died twice because i didnt notice the windbot wasnt running anymore. Deleting this hud made it stop

Quote:

---

Originally Posted by downloadkct

Its not crashing for me but if i keep the bot running ANY script with this PMhud it will suddenly close itself without any kind of crash. Died twice because i didnt notice the windbot wasnt running anymore. Deleting this hud made it stop

---

Yep, thats exactly what happens .. the bot simply closes.

I saw it happening
Someone sent me a message then the PMHUD was partially black and totally to the right (like a giant message) and 2 seconds later the entire windbot wasnt responding, then it closed itself with no crashes. Maybe decreasing the Length = 60 to 20~30 will solve the problem (decreasing to 20~30 will make the message unreadable but atleast we will know someone sent a message when we wasnt looking)


Edit:

SEEMS to be working, didnt test it long enough but i tested some spam and stuff:

Code:

---

init start

        -- VERSION 2.2.0a --

        local Config = {
                Sent = false,
                Received = true,
                MaxLines = 5,
                Scroll = false,
                Length = 20,
        }

        -- DO NOT EDIT BELOW THIS LINE --

        PrivateMessages = PrivateMessages or {}

        local HUD = {
                Restart = -1,
                Start = 1,
                End = Config.MaxLines,
                strStart = 1,
                strEnd = 60,
                strMax = 60,
                Position = {$worldwin.right + 3, $worldwin.bottom - (Config.MaxLines * 16)},
                Auxiliar = {0, 0},
                ColumnWidth = {125, 12},
                Moving = false,
                Blue = {0.0, color(36, 68, 105, 20), 0.23, color(39, 73, 114, 20), 0.76, color(21, 39, 60, 20)},
                Black = {0.0, color(75, 75, 75, 20), 0.23, color(45, 45, 45, 20), 0.76, color(19, 19, 19, 20)},
                Orange = {0.0, color(145, 95, 0, 20), 0.23, color(158, 104, 0, 20), 0.76, color(84, 55, 0, 20)},
                Green = {0.0, color(65, 96, 12, 20), 0.23, color(67, 99, 13, 20), 0.76, color(36, 52, 6, 20)},
                Red = {0.0, color(90, 12, 15, 20), 0.23, color(98, 13, 17, 20), 0.76, color(52, 6, 9, 20)},
        }

        local tempPos = $chardb:getvalue('AWE.PM', 'POSITION')

        if tempPos then
                tempPos = tempPos:explode(":")
                HUD.Position = {tonumber(tempPos[1]), tonumber(tempPos[2])}
        end

        filterinput(true, true, true, Config.Scroll) setfillstyle('gradient', 'linear', 2, 0, 0, 0, 14) setfontstyle('Tahoma', 8, 50, 0xFFFFFF, 1, color(0, 0, 0, 50))

    function inputevents(e)
        if e.type == IEVENT_RMOUSEDOWN or e.type == IEVENT_MMOUSEDOWN then
            HUD.Moving, HUD.Auxiliar = true, {$cursor.x - HUD.Position[1], $cursor.y - HUD.Position[2]}
        elseif e.type == IEVENT_RMOUSEUP or e.type == IEVENT_MMOUSEUP then
            HUD.Moving = false
        elseif e.type == IEVENT_MOUSEWHEEL then
                        if iskeypressed(0x12) then
                                if e.value2 < 0 then
                                        HUD.strStart, HUD.strEnd = HUD.strStart - 1, HUD.strEnd - 1
                                elseif e.value2 > 0 then
                                        HUD.strStart, HUD.strEnd = HUD.strStart + 1, HUD.End + 1
                                end
                                if HUD.strStart > HUD.strMax then
                                        HUD.strStart, HUD.strEnd = 1, 30
                                end
                        else
                                if #PrivateMessages > Config.MaxLines then
                                        if e.value2 < 0 then
                                                if HUD.Start <= #PrivateMessages - Config.MaxLines then
                                                        HUD.Start, HUD.End = HUD.Start + 1, HUD.End + 1
                                                end
                                        elseif e.value2 > 0 then
                                                if HUD.End > Config.MaxLines then
                                                        HUD.Start, HUD.End = HUD.Start - 1, HUD.End - 1
                                                end
                                        end
                                end
                        end
            elseif e.type == IEVENT_LMOUSEUP then
                        if e.elementid == HUD.Restart then
                                PrivateMessages = {}
                        end
                end
        end

        local function displaytext(text, x, y, c)
                addgradcolors(unpack(c))
                local w, h = measurestring(text)
                HUD.ColumnWidth[1], HUD.ColumnWidth[2] = math.max(HUD.ColumnWidth[1], w or 0), math.max(HUD.ColumnWidth[2], h or 0)
                local t = drawroundrect(x, y, HUD.ColumnWidth[1] + 7, HUD.ColumnWidth[2], 2, 2)
                drawtext(text, x + 2, y + math.floor(HUD.ColumnWidth[2] / 4) - 2.4)
                return t
        end

init end

if HUD.Moving then
    auto(10)
    HUD.Position = {$cursor.x - HUD.Auxiliar[1], $cursor.y - HUD.Auxiliar[2]}
        $chardb:setvalue('AWE.PM', 'POSITION', table.concat(HUD.Position, ':'))
end

foreach newmessage m do
        if m.channel:lower() ~= 'npcs' and (Config.Sent and m.type == MSG_SENT) or (Config.Received and m.type == MSG_PVT) then
                table.insert(PrivateMessages, {text = string.format("%s %s [%s]: %s", os.date('%H:%M'), m.sender, m.level, m.content), color = m.type == MSG_PVT and HUD.Orange or HUD.Black})
        end
end

local x, y, w, h = 0, 0, 0, 0

displaytext(" Private Messages:", x, y, HUD.Blue)
addgradcolors(unpack(#PrivateMessages > 0 and HUD.Green or HUD.Red))

w, h = measurestring("RESET")
HUD.ColumnWidth[1] = math.max(HUD.ColumnWidth[1], w)
HUD.Restart = drawroundrect(x - w + HUD.ColumnWidth[1], y, w + 7, h, 2, 2)

drawtext("RESET", 5 + x - w + HUD.ColumnWidth[1], y + math.floor(h / 4) - 2.4)

y = y + 20

for i = HUD.Start, HUD.End do
        if PrivateMessages[i] then
                local msg = PrivateMessages[i].text
                local h, j = math.max(1, HUD.strStart), math.max(msg:len(), HUD.strEnd)
                HUD.strMax = math.max(HUD.strMax, msg:len())
                if h == 2 then
                        msg = "." .. msg:sub(h, j)
                elseif h == 3 then
                        msg = ".." .. msg:sub(h, j)
                elseif h >= 4 then
                        msg = "..." .. msg:sub(h, j)
                else
                        msg = msg:sub(h, j)
                end
                displaytext(msg:fit(Config.Length or 60), x, y, PrivateMessages[i].color)

                y = y + 16
        end
end

setposition(HUD.Position[1], HUD.Position[2])

---

Quote:

---

Originally Posted by downloadkct

I saw it happening
Someone sent me a message then the PMHUD was partially black and totally to the right (like a giant message) and 2 seconds later the entire windbot wasnt responding, then it closed itself with no crashes. Maybe decreasing the Length = 60 to 20~30 will solve the problem (decreasing to 20~30 will make the message unreadable but atleast we will know someone sent a message when we wasnt looking)


Edit:

SEEMS to be working, didnt test it long enough but i tested some spam and stuff:

Code:

---

init start

        -- VERSION 2.2.0a --

        local Config = {
                Sent = false,
                Received = true,
                MaxLines = 5,
                Scroll = false,
                Length = 20,
        }

        -- DO NOT EDIT BELOW THIS LINE --

        PrivateMessages = PrivateMessages or {}

        local HUD = {
                Restart = -1,
                Start = 1,
                End = Config.MaxLines,
                strStart = 1,
                strEnd = 60,
                strMax = 60,
                Position = {$worldwin.right + 3, $worldwin.bottom - (Config.MaxLines * 16)},
                Auxiliar = {0, 0},
                ColumnWidth = {125, 12},
                Moving = false,
                Blue = {0.0, color(36, 68, 105, 20), 0.23, color(39, 73, 114, 20), 0.76, color(21, 39, 60, 20)},
                Black = {0.0, color(75, 75, 75, 20), 0.23, color(45, 45, 45, 20), 0.76, color(19, 19, 19, 20)},
                Orange = {0.0, color(145, 95, 0, 20), 0.23, color(158, 104, 0, 20), 0.76, color(84, 55, 0, 20)},
                Green = {0.0, color(65, 96, 12, 20), 0.23, color(67, 99, 13, 20), 0.76, color(36, 52, 6, 20)},
                Red = {0.0, color(90, 12, 15, 20), 0.23, color(98, 13, 17, 20), 0.76, color(52, 6, 9, 20)},
        }

        local tempPos = $chardb:getvalue('AWE.PM', 'POSITION')

        if tempPos then
                tempPos = tempPos:explode(":")
                HUD.Position = {tonumber(tempPos[1]), tonumber(tempPos[2])}
        end

        filterinput(true, true, true, Config.Scroll) setfillstyle('gradient', 'linear', 2, 0, 0, 0, 14) setfontstyle('Tahoma', 8, 50, 0xFFFFFF, 1, color(0, 0, 0, 50))

    function inputevents(e)
        if e.type == IEVENT_RMOUSEDOWN or e.type == IEVENT_MMOUSEDOWN then
            HUD.Moving, HUD.Auxiliar = true, {$cursor.x - HUD.Position[1], $cursor.y - HUD.Position[2]}
        elseif e.type == IEVENT_RMOUSEUP or e.type == IEVENT_MMOUSEUP then
            HUD.Moving = false
        elseif e.type == IEVENT_MOUSEWHEEL then
                        if iskeypressed(0x12) then
                                if e.value2 < 0 then
                                        HUD.strStart, HUD.strEnd = HUD.strStart - 1, HUD.strEnd - 1
                                elseif e.value2 > 0 then
                                        HUD.strStart, HUD.strEnd = HUD.strStart + 1, HUD.End + 1
                                end
                                if HUD.strStart > HUD.strMax then
                                        HUD.strStart, HUD.strEnd = 1, 30
                                end
                        else
                                if #PrivateMessages > Config.MaxLines then
                                        if e.value2 < 0 then
                                                if HUD.Start <= #PrivateMessages - Config.MaxLines then
                                                        HUD.Start, HUD.End = HUD.Start + 1, HUD.End + 1
                                                end
                                        elseif e.value2 > 0 then
                                                if HUD.End > Config.MaxLines then
                                                        HUD.Start, HUD.End = HUD.Start - 1, HUD.End - 1
                                                end
                                        end
                                end
                        end
            elseif e.type == IEVENT_LMOUSEUP then
                        if e.elementid == HUD.Restart then
                                PrivateMessages = {}
                        end
                end
        end

        local function displaytext(text, x, y, c)
                addgradcolors(unpack(c))
                local w, h = measurestring(text)
                HUD.ColumnWidth[1], HUD.ColumnWidth[2] = math.max(HUD.ColumnWidth[1], w or 0), math.max(HUD.ColumnWidth[2], h or 0)
                local t = drawroundrect(x, y, HUD.ColumnWidth[1] + 7, HUD.ColumnWidth[2], 2, 2)
                drawtext(text, x + 2, y + math.floor(HUD.ColumnWidth[2] / 4) - 2.4)
                return t
        end

init end

if HUD.Moving then
    auto(10)
    HUD.Position = {$cursor.x - HUD.Auxiliar[1], $cursor.y - HUD.Auxiliar[2]}
        $chardb:setvalue('AWE.PM', 'POSITION', table.concat(HUD.Position, ':'))
end

foreach newmessage m do
        if m.channel:lower() ~= 'npcs' and (Config.Sent and m.type == MSG_SENT) or (Config.Received and m.type == MSG_PVT) then
                table.insert(PrivateMessages, {text = string.format("%s %s [%s]: %s", os.date('%H:%M'), m.sender, m.level, m.content), color = m.type == MSG_PVT and HUD.Orange or HUD.Black})
        end
end

local x, y, w, h = 0, 0, 0, 0

displaytext(" Private Messages:", x, y, HUD.Blue)
addgradcolors(unpack(#PrivateMessages > 0 and HUD.Green or HUD.Red))

w, h = measurestring("RESET")
HUD.ColumnWidth[1] = math.max(HUD.ColumnWidth[1], w)
HUD.Restart = drawroundrect(x - w + HUD.ColumnWidth[1], y, w + 7, h, 2, 2)

drawtext("RESET", 5 + x - w + HUD.ColumnWidth[1], y + math.floor(h / 4) - 2.4)

y = y + 20

for i = HUD.Start, HUD.End do
        if PrivateMessages[i] then
                local msg = PrivateMessages[i].text
                local h, j = math.max(1, HUD.strStart), math.max(msg:len(), HUD.strEnd)
                HUD.strMax = math.max(HUD.strMax, msg:len())
                if h == 2 then
                        msg = "." .. msg:sub(h, j)
                elseif h == 3 then
                        msg = ".." .. msg:sub(h, j)
                elseif h >= 4 then
                        msg = "..." .. msg:sub(h, j)
                else
                        msg = msg:sub(h, j)
                end
                displaytext(msg:fit(Config.Length or 60), x, y, PrivateMessages[i].color)

                y = y + 16
        end
end

setposition(HUD.Position[1], HUD.Position[2])

---

---

Work good, but its possible to make it automatic scrool when is 6+msgs?

Test changing the Scroll = false to Scroll = true then you can scroll the messages but i dont know if it will automatic scroll down

Quote:

---

Originally Posted by downloadkct

Test changing the Scroll = false to Scroll = true then you can scroll the messages but i dont know if it will automatic scroll down

---

I replace it before, i must scroll it :/

can u make script to answer private and default msg on huntingcave? like "hello im here, like 4h."

Quote:

---

Originally Posted by Kaszta

can u make script to answer private and default msg on huntingcave? like "hello im here, like 4h."

---

Take a look: https://forums.tibiawindbot.com/show...p?157#post1084

Quote:

---

Originally Posted by Leonardo

Not that I don't want to do a working version, I can't recreate the error, it works good for me. I was talking with Lucas about it and he'll be checking future crash reports for this so I can find the bug, just make sure you use this hud again tomorrow and send the picture of your crash reports.

---

For me it crashes when writing "å", "ä", or "ö" and probably some other special characters.
Might be a hint for you :)

Has someone got the autoscroll? I just can have 6PM then I don't know if anyone else is msg me.

It crashed (windbot just closed) to me and I didnt received any PM.. Editing the length to 20 solve that problem?

Quote:

---

Originally Posted by skolzacker

It crashed (windbot just closed) to me and I didnt received any PM.. Editing the length to 20 solve that problem?

---

Edit the length to 20 and the bug is solved. @Leonardo could you please update your main thread ? Lenght 60 is crashing windbot. Actually i tried some config and lenght that does not crash is 20, 30 crashes as well