新增聊天框控件,用于联网场景(未完成)

This commit is contained in:
MrZ626
2021-01-24 00:45:08 +08:00
parent 4643ef6179
commit eb370ba88f
7 changed files with 104 additions and 62 deletions

View File

@@ -258,7 +258,6 @@ return{
down="",
},
net_chat={
clear="Clear",
send="Send",
},
setting_game={

View File

@@ -236,7 +236,6 @@ return{
down="",
},
net_chat={
-- clear="Clear",
-- send="Send",
},
setting_game={

View File

@@ -257,7 +257,6 @@ return{
down="",
},
net_chat={
clear="Limpar",
send="Mandar",
},
setting_game={

View File

@@ -240,7 +240,6 @@ return{
down="",
},
net_chat={
-- clear="Clear",
-- send="Send",
},
setting_game={

View File

@@ -261,7 +261,6 @@ return{
down="",
},
net_chat={
clear="清空",
send="发送",
},
setting_game={

View File

@@ -1,18 +1,20 @@
local gc=love.graphics
local ins,rem=table.insert,table.remove
local max,min=math.max,math.min
local texts={}
local chatBox=WIDGET.newChatBox{name="texts",x=50,y=50,w=1200,h=430}
local remain--People in chat room
local scrollPos--Scroll up length
local newMessage=false--If there is a new message
local heartBeatTimer
local escapeTimer=0
local function focusAtTextbox()
local function _init()
coroutine.yield()
WIDGET.sel=WIDGET.active.text
local texts=chatBox.texts
if #texts==0 then
chatBox:push{COLOR.dG,text.chatStart}
elseif #texts>1 and texts[#texts][1]~=COLOR.dG then
chatBox:push{COLOR.dG,text.chatHistory}
end
chatBox:scroll(1)
end
local function sendMessage()
local W=WIDGET.active.text
@@ -20,14 +22,6 @@ local function sendMessage()
W.value=""
end
end
local function pushText(t)
ins(texts,t)
end
local function clearHistory()
while #texts>1 do rem(texts)end
scrollPos=1
SFX.play("fall")
end
local scene={}
@@ -35,13 +29,7 @@ function scene.sceneInit()
heartBeatTimer=0
remain=false
if #texts==0 then
pushText{COLOR.dG,text.chatStart}
elseif #texts>1 and texts[#texts][1]~=COLOR.dG then
pushText{COLOR.dG,text.chatHistory}
end
scrollPos=#texts
TASK.new(focusAtTextbox)--Widgets are not initialized, so active after 1 frame
TASK.new(_init)--Widgets are not initialized, so active after 1 frame
TASK.new(TICK_wsRead)
BG.set("none")
end
@@ -56,12 +44,9 @@ function scene.wheelMoved(_,y)
end
function scene.keyDown(k)
if k=="up"then
scrollPos=max(scrollPos-1,min(#texts,12))
chatBox:scroll(-1)
elseif k=="down"then
scrollPos=min(scrollPos+1,#texts)
if scrollPos==#texts then
newMessage=false
end
chatBox:scroll(1)
elseif k=="return"then
sendMessage()
elseif k=="escape"then
@@ -80,14 +65,14 @@ function scene.socketRead(mes)
local cmd=mes:sub(1,1)
local args=splitStr(mes:sub(2),":")
if cmd=="J"or cmd=="L"then
pushText{
chatBox:push{
COLOR.lR,args[1],
COLOR.dY,args[2].." ",
COLOR.Y,text[cmd=="J"and"chatJoin"or"chatLeave"]
}
remain=tonumber(args[3])
elseif cmd=="T"then
pushText{
chatBox:push{
COLOR.W,args[1],
COLOR.dY,args[2].." ",
COLOR.sky,args[3]
@@ -96,12 +81,6 @@ function scene.socketRead(mes)
LOG.print("Illegal message: "..mes,30,COLOR.green)
return
end
if scrollPos==#texts-1 then
scrollPos=scrollPos+1
else
SFX.play("spin_0",.8)
newMessage=true
end
end
function scene.update(dt)
@@ -116,31 +95,10 @@ function scene.draw()
gc.setColor(1,1,1)
gc.printf(text.chatRemain,800,10,400,"right")
gc.print(remain or"?",1205,10)
setFont(30)
for i=max(scrollPos-11,1),scrollPos do
gc.printf(texts[i],40,416-36*(scrollPos-i),1240)
end
--Slider
if #texts>12 then
gc.setLineWidth(2)
gc.rectangle("line",10,30,20,420)
local len=420*12/#texts
gc.rectangle("fill",13,33+(414-len)*(scrollPos-12)/(#texts-12),14,len)
end
--Draw
if newMessage and scrollPos~=#texts then
setFont(40)
gc.setColor(1,TIME()%.4<.2 and 1 or 0,0)
gc.print("v",8,480)
end
end
scene.widgetList={
WIDGET.newTextBox{name="text", x=40, y=500,w=980,h=180,font=40},
WIDGET.newButton{name="clear", x=1140, y=440,w=170,h=80,font=40,code=clearHistory,hide=function()return #texts<2 or newMessage end},
chatBox,
WIDGET.newButton{name="send", x=1140, y=540,w=170,h=80,font=40,code=sendMessage},
WIDGET.newButton{name="back", x=1140, y=640,w=170,h=80,font=40,code=backScene},
}