直接放入Zframework文件

Zframework/message.lua

@@ -0,0 +1,153 @@
+local ins,rem=table.insert,table.remove
+local max=math.max
+
+local mesList={}
+local mesIcon={
+    check=GC.DO{40,40,
+        {'setLW',10},
+        {'setCL',0,0,0},
+        {'line',4,19,15,30,36,9},
+        {'setLW',6},
+        {'setCL',.7,1,.6},
+        {'line',5,20,15,30,35,10},
+    },
+    info=GC.DO{40,40,
+        {'setCL',.2,.25,.85},
+        {'fCirc',20,20,15},
+        {'setCL',1,1,1},
+        {'setLW',2},
+        {'dCirc',20,20,15},
+        {'fRect',18,11,4,4},
+        {'fRect',18,17,4,12},
+    },
+    broadcast=GC.DO{40,40,
+        {'setCL',1,1,1},
+        {'fRect',2,4,36,26,3},
+        {'fPoly',2,27,2,37,14,25},
+        {'setCL',.5,.5,.5},
+        {'fRect',6,11,4,4,1},{'fRect',14,11,19,4,1},
+        {'fRect',6,19,4,4,1},{'fRect',14,19,19,4,1},
+    },
+    warn=GC.DO{40,40,
+        {'setCL',.95,.83,.4},
+        {'fPoly',20.5,1,0,38,40,38},
+        {'setCL',0,0,0},
+        {'dPoly',20.5,1,0,38,40,38},
+        {'fRect',17,10,7,18,2},
+        {'fRect',17,29,7,7,2},
+        {'setCL',1,1,1},
+        {'fRect',18,11,5,16,2},
+        {'fRect',18,30,5,5,2},
+    },
+    error=GC.DO{40,40,
+        {'setCL',.95,.3,.3},
+        {'fCirc',20,20,19},
+        {'setCL',0,0,0},
+        {'dCirc',20,20,19},
+        {'setLW',6},
+        {'line',10.2,10.2,29.8,29.8},
+        {'line',10.2,29.8,29.8,10.2},
+        {'setLW',4},
+        {'setCL',1,1,1},
+        {'line',11,11,29,29},
+        {'line',11,29,29,11},
+    },
+    music=GC.DO{40,40,
+        {'setLW',2},
+        {'dRect',1,3,38,34,3},
+        {'setLW',4},
+        {'line',21,26,21,10,28,10},
+        {'fElps',17,26,6,5},
+    },
+}
+
+local MES={}
+local backColors={
+    check={.3,.6,.3,.7},
+    broadcast={.3,.3,.6,.8},
+    warn={.4,.4,.2,.9},
+    error={.4,.2,.2,.9},
+    music={.2,.4,.4,.9},
+    other={.5,.5,.5,.7},
+}
+function MES.new(icon,str,time)
+    local color=backColors.other
+    if type(icon)=='string' then
+        color=TABLE.shift(backColors[icon] or color)
+        icon=mesIcon[icon]
+    end
+    local text=GC.newText(FONT.get(30),str)
+    local w=math.max(text:getWidth()+(icon and 45 or 5),200)+15
+    local h=math.max(text:getHeight(),46)+2
+    local k=h>400 and 1/math.min(h/400,2.6) or 1
+
+    ins(mesList,1,{
+        startTime=.26,
+        endTime=.26,
+        time=time or 3,
+
+        color=color,
+        text=text,icon=icon,
+        w=w,h=h,k=k,
+        y=-h,
+    })
+end
+
+function MES.update(dt)
+    for i=#mesList,1,-1 do
+        local m=mesList[i]
+        if m.startTime>0 then
+            m.startTime=max(m.startTime-dt,0)
+        elseif m.time>0 then
+            m.time=max(m.time-dt,0)
+        elseif m.endTime>0 then
+            m.endTime=m.endTime-dt
+        else
+            rem(mesList,i)
+        end
+        if i>1 then
+            local _m=mesList[i-1]
+            m.y=MATH.expApproach(m.y,_m.y+_m.h*_m.k+3,dt*26)
+        else
+            m.y=MATH.expApproach(m.y,3,dt*26)
+        end
+    end
+end
+
+function MES.draw()
+    if #mesList>0 then
+        GC.setLineWidth(2)
+        for i=1,#mesList do
+            local m=mesList[i]
+            local a=3.846*(m.endTime-m.startTime)
+            GC.push('transform')
+            GC.translate(3+SCR.safeX,m.y)
+            GC.scale(m.k)
+
+            GC.setColor(m.color[1],m.color[2],m.color[3],m.color[4]*a)
+            GC.rectangle('fill',0,0,m.w,m.h,8)
+            GC.setColor(.62,.62,.62,a*.626)
+            GC.rectangle('line',1,1,m.w-2,m.h-2,4)
+            GC.setColor(1,1,1,a)
+            if m.icon then
+                GC.draw(m.icon,4,4,nil,40/m.icon:getWidth(),40/m.icon:getHeight())
+            end
+            GC.simpY(m.text,m.icon and 50 or 10,m.h/2)
+            GC.pop()
+        end
+    end
+end
+
+function MES.traceback()
+    local mes=
+        debug.traceback('',1)
+        :gsub(': in function',', in')
+        :gsub(':',' ')
+        :gsub('\t','')
+    MES.new('error',mes:sub(
+        mes:find("\n",2)+1,
+        mes:find("\n%[C%], in 'xpcall'")
+    ),5)
+end
+
+return MES