罗盘时钟lua迷你世界

--罗盘时钟

--星空露珠工作室制作

--作者:韩永旗

--数字换中文

local zhChar = {'一','二','三','四','五','六','七','八','九'}

function formatNumber( num )

if type(num)~='number' then return num..'is not a num' end

if num>99 then return num..'不是两位数' end

if num==0 then return '零'

elseif num>0 and num<10 then return zhChar $num$

elseif num>=10 then

if num==10 then return '十' end

if num%10==0 then return zhChar $math.floor(num/10)$ ..'十'

elseif num>10 and num<20 then return '十'..zhChar $num%10$

else return zhChar $math.floor(num/10)$ ..'十'..zhChar $num%10$

end

end

end

-- 测试一下：(禁用002)

--print(formatNumber(20))

迷你世界监听函数方便使用

local ui={'7382219973642268578','7382219973642268578_'}

--设置元件图片

local function setgip(p,id,url) Customui:setTexture(p,ui $1$ ,ui $2$ ..id,url) end

--设置元件大小

local function setsize(p,id,d,h) Coustomui:setSize(p,ui $1$ ,ui $2$ ..id,d,h) end

--设置元件位置

local function setpos(p,id,x,y) Trigger.UI:setPosition(p,ui $1$ ,ui $2$ ..id,x,y) end

--设置元件颜色

local function setcolor(p,id,color) Trigger.UI:setColor(p,ui $1$ ,ui $2$ ..id,color) end

--显示元件

local function show(p,id) Trigger.UI:showElement(p,ui $1$ ,ui $2$ ..id) end

--隐藏元件

local function hide(p,id) Trigger.UI:hideElement(p,ui $1$ ,ui $2$ ..id) end

--设置文字框

local function setstr(p,id,str) Trigger.UI:setText(p,ui $1$ ,ui $2$ ..id,str) end

--设置元件文字大小

local function setfontsize(p,id,size) Trigger.UI:setFontSize(p, ui $1$ ,ui $2$ ..id,size) end

--旋转元件

local function rotate(p,pi) Customui:rotateElement(p,ui $1$ ,ui $2$ ..button.rotate1,pi) Trigger.UI:setText(p,ui $1$ ,ui $2$ ..button.rotate2,pi) end

--元件平滑旋转到指定角度

local function smoothrotateto(p,id,time,angle) Customui:SmoothRotateTo(p,ui $1$ ,ui $2$ ..id,time,angle) end

--元件平滑旋转到相对角度

local function smoothrotateby(p,id,time,angle) Customui:SmoothRotateBy(p,ui $1$ ,ui $2$ ..id,time,angle) end

--播放声音

local function music(p) Player:playMusic(p,10948,50,1,false) end

等待时间

local function wait(time)

local v1 = time

if logidx then

Trigger.Debug:ReportActionRunData(logidx, status_idx, 1, v1)

end

if v1 == nil then

print("-- $func_1$ Warnning -- param is nil:", v1)

return

end

if Trigger and Trigger.wait then

return Trigger:wait(v1)

end

end

设置参数大小数量文字位置

--显示框 2 年份228 节日158

local ui0={3,64,125,150,183,215}
local data={{'秒',0,59,6,1,370, 15},{'分',0,59,6,1,300, 14},{'时',0,23,15,1,235, 13},{'星期',1,7,45,0,185, 13},{'号',1,31,11.25,0,135, 12},{'月',1,12,30,0,75, 13},}

设置界面大小位置

local p=247312290

local function upui(p)

show(p,1)

-- setpos(p,1,0,0)

setsize(p,1,0,0)

show(p,2)

setpos(p,2,-20,0)

setsize(p,2,400,25)

show(p,228)

setpos(p,228,-15,0)

setsize(p,228,70,20)

setstr(p,228,'2024年')

setfontsize(p,228,15)

设置秒分时等等日期界面

for k,v in pairs(data) do

local id=ui0 $k$

show(p,id)

setpos(p,id,0,0)

setsize(p,id,0,0)

local str=''

for i=v $2$ ,v $3$ do if v $1$ =='星期' then if i==1 then str=v $1$ ..'日' else str=v $1$ ..formatNumber(i-1) end else str=formatNumber(i)..v $1$ end

local id=ui0 $k$ +i+v $5$

local color=Trigger.Graphics:getRandomColor()

local angle=-(i+v $5$ -1)*v $4$

show(p,id)

setpos(p,id,0,0)

setsize(p,id,v $6$ ,20)

setstr(p,id,str)

setcolor(p,id,color)

setfontsize(p,id,v $7$ )

smoothrotateto(p,id,4,angle)

end

wait(3)

end

wait(1)

uptime(p)

end

每秒加一时间角度换算刷新界面

function uptime(p)

local t=os.date("*t",timeInterval)

--print('当前时间:'..t.year.."年"..t.month.."月"..t.day.."日"..B $t.wday$ ..t.hour..":"..t.min ..":"..t.sec)

local time={t.sec,t.min,t.hour,t.wday,t.day,t.month,t.year}

for k,v in pairs(data) do

local id=ui0 $k$

local angle=(time $k$ +v $5$ -1)*v $4$

smoothrotateto(p,id,0.6,angle)

end

music(p)

wait(1)

uptime(p)

end

玩家进入游戏执行

local function EventMain_1(e)

local p=e.eventobjid

upui(p)

end

ScriptSupportEvent:registerEvent_NoError('Game.AnyPlayer.EnterGame', EventMain_1)