--星空露珠工作室制作
--作者韩永旗
--迷你号247312290
--已制作游戏模组z
local Script={}
local ui={"7586698161104465826-38451","7586698161104465826-38451_1",}
--创建原件
function Script:createElement(p,url) local gridElementId=CustomUI:CreateElement(p,ui[1],url) return gridElementId end
--设置原件子父
function Script:changeParent(p,uia,uib) CustomUI:ChangeParent(p,ui[1],uia,uib) end
--设置元件图片
function Script:setTexture(p,id,url) CustomUI:SetTexture(p,ui[1],id,url) end
--设置元件大小
function Script:setsize(p,id,d,h) CustomUI:SetSize(p,ui[1],id,d,h) end
--设置元件位置
function Script:setpos(p,id,x,y) CustomUI:SetPosition(p,ui[1],id,x,y) end
--设置元件颜色
function Script:setcolor(p,id,color) CustomUI:SetColor(p,ui[1],id,color) end
--显示界面
function Script:openUIview(p,id) Player:OpenUIView(p,id) end
--显示元件
function Script:show(p,id) CustomUI:ShowElement(p,ui[1],id) end
--隐藏元件
function Script:hide(p,id) CustomUI:HideElement(p,ui[1],id) end
--设置文字框
function Script:setstr(p,id,str) CustomUI:SetText(p,ui[1],id,str) end
--设置元件文字大小
function Script:setfontsize(p,id,size) CustomUI:SetFontSize(p, ui[1],id,size) end
--旋转元件
--function Script: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
--元件平滑旋转到指定角度
function Script:smoothrotateto(p,id,time,angle) CustomUI:SmoothRotateTo(p,ui[1],id,time,angle) end
--元件平滑旋转到相对角度
function Script:smoothrotateby(p,id,time,angle) CustomUI:SmoothRotateBy(p,ui[1],id,time,angle) end
--播放声音
function Script:music(p,id) Actor:PlaySoundEffectById(p,id,15,1,false) end
-- 界面UI配置
--按钮上下左右,界面1-16图案和数字,合成数,当前分数，最好分数
--p={{p,name,iconid,maxnum,maxscore,nowscore},{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}}
--上下左右,重开,关闭,
--界面1-16,最大数,当前分数,最高分数,
--排行榜，关闭，排行榜 1-7.1
local id={2,3,4,5,7,6,175,174,}
--[[ "2*n+8,2*n+9",42,43,45,47,
51,
"6*n+47",
95,96,97,98,99,
]]
local p0=42
--音效
local mid={10948,10946,10949,10947,10379}
local P={}
local num={}
local score=0
local lbrt={1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,13,9,5,1,14,10,6,2,15,11,7,3,16,12,8,4,4,3,2,1,8,7,6,5,12,11,10,9,16,15,14,13,1,5,9,13,2,6,10,14,3,7,11,15,4,8,12,16,}
local list=0
local maxnum=0
local maxscore=0
local drct,ising,isend,has=0,0,0,0
local i,j,k=0,0,0
local score=0
--[[
local P2048={1000,247312290,331488399,1562836700}
local P={[1000]={{"迷你队长",1000,"role_4",10,10000,6666},{10,9,8,7,6,5,4,3,2,1,0,0,0,0,0,0}},
331488399\]={{"XD迷你村长",331488399,"skin_79",11,35864,35864},{11,10,8,6,5,6,7,5,3,5,4,2,1,2,3,1}}, \[247312290\]={{"韩永旗",247312290,"role_1",10,18678,18678},{2,3,1,2,2,4,3,1,5,7,6,4,8,10,9,7}}, \[1562836700\]={{"无敌的小雯",1562836700,"role_2",9,9152,9152},{2,3,1,2,2,4,3,1,5,7,6,4,8,8,9,7}}, } \]
a={ "0_10212","0_10219","0_20018"}
--界面 600,原件4*150 ,合成数 150
--原件颜色 原件位置,x,y,大小
local A={
{"0xFFEFD7",40,10,120,"2"},
{"0xFFE57F",40,10,120,"4"},
{"0xFFFF00",40,10,120,"8"},
{"0xFF6E40",20,20,100,"16"},
{"0xF57F17",20,20,100,"32"},
{"0xFF1744",20,20,100,"64"},
{"0xD500F9",10,25,80,"128"},
{"0x3D5AFE",10,25,80,"256"},
{"0x00E5FF",10,25,80,"512"},
{"0x76FF03",10,35,60,"1024"},
{"0xE77B17",10,35,60,"2048"},
{"0xE040FB",10,35,60,"4096"},
{"0xF50057",10,35,60,"8192"},
{"0x64DD17",10,45,45,"16384"},
{"0xF57F17",10,45,45,"32768"},
{"0x3D5AFE",10,45,45,"65536"},
}
local butn={
--上下左右按钮重新开始
{"0x3D5AFE",10,45,30,"最大合成数"},
{"0xFFFF00",10,20,30,"分数"},
{"0xF50057",20,10,120,"上"},
{"0x64DD17",20,10,120,"下"},
{"0xF57F17",20,10,120,"左"},
{"0x3D5AFE",20,10,120,"右"},
{"0xFFEFD7",10,45,30,"重新开始"},
}
-- 组件启动时初始化背包UI
function Script:OnStart()
-- 监听玩家打开背包指令（示例：按下K键打开）
--self:AddTriggerEvent(TriggerEvent.PlayerInputKeyClick, self.OnKeyClick)
self:AddTriggerEvent(TriggerEvent.PlayerClickBlock, self.OnPlayerClickBlock)
-- 监听UI按钮点击事件
self:AddTriggerEvent(TriggerEvent.UIButtonClick, self.OnUIButtonClick)
self:AddTriggerEvent(TriggerEvent.GameAnyPlayerEnterGame,self.GameAnyPlayerEnterGame)
end
function Script:GameAnyPlayerEnterGame(e) threadpool:work(function() self:upui(e) end) end
function Script:upui(e) print(e) local p=e.CurEventParam.TriggerByPlayer ui[p]={} self:CreateUI(p) end
-- 创建背包UI界面
function Script:CreateUI(p)
P[p]={}
P[p].score,P[p].num=0,{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
-- print(ui)
-- 1. 打开自定义UI界面
--self:openUIview(p,uin[1])
-- 2. 设置界面大小和位置
self:setsize(p,ui[2],600,600)
self:setpos(p,ui[2],60,60)
-- 3. 循环创建界面格子
for k,v in pairs(A) do
local v1=self:createElement(p,ElementType.Button)
table.insert(ui[p],v1)
self:changeParent(p,v1,ui[2])
local x,y=150*((k-1)%4),150*math. floor((k-1)/4)
self:setsize(p,v1,150,150)
self:setpos(p,v1,x,y)
self:setTexture(p,v1,"0_20018")
local v2=self:createElement(p,ElementType.Texture)
table.insert(ui[p],v2)
self:changeParent(p,v2,v1)
local x,y=0,0
self:setsize(p,v2,150,150)
self:setpos(p,v2,x,y)
self:setTexture(p,v2,"0_10219")
self:setcolor(p,v2,v[1])
--local color=string.format("0x%x",math.random(0,255))..string.format("%x",math.random(0,255))..string.format("%x",math.random(0,255))
--self:setcolor(p,v2,color)
local v3=self:createElement(p,ElementType.Text)
table.insert(ui[p],v3)
self:changeParent(p,v3,v2)
self:setsize(p,v3,150,100)
self:setfontsize(p,v3,v[4])
self:setpos(p,v3,v[2],v[3])
self:setstr(p,v3,v[5])
ui[p][tostring(k)]={v1,v2,v3}
ui[p][v1]=k
end
-- 3. 循环创建界面按钮
for k,v in pairs(butn) do
local v1=self:createElement(p,ElementType.Button)
table.insert(ui[p],v1)
self:changeParent(p,v1,ui[2])
local x,y=150*(5+(k-1)%2),150*math. floor((k-1)/2)
self:setsize(p,v1,150,150)
self:setpos(p,v1,x,y)
self:setTexture(p,v1,"0_20018")
local v2=self:createElement(p,ElementType.Texture)
table.insert(ui[p],v2)
self:changeParent(p,v2,v1)
local x,y=0,0
self:setsize(p,v2,150,150)
self:setpos(p,v2,x,y)
self:setTexture(p,v2,"0_10219")
self:setcolor(p,v2,v[1])
--local color=string.format("0x%x",math.random(0,255))..string.format("%x",math.random(0,255))..string.format("%x",math.random(0,255))
--self:setcolor(p,v2,color)
local v3=self:createElement(p,ElementType.Text)
table.insert(ui[p],v3)
self:changeParent(p,v3,v2)
self:setsize(p,v3,150,100)
self:setfontsize(p,v3,v[4])
self:setpos(p,v3,v[2],v[3])
self:setstr(p,v3,v[5])
ui[p][v[5]]=v1
ui[p][v1]=v[5]
end
--print(ui)
self:Add(p)
end
-- UI按钮点击事件（拾取/使用道具）
function Script:OnUIButtonClick(event)
local playerId = event.eventobjid
local uiId = event.CustomUI
local elementId = event.uielement
-- print(elementId)
-- print(ui[playerId][elementId])
if ui[playerId][elementId]=='上' then self:Move(playerId,4)
elseif ui[playerId][elementId]=='下' then self:Move(playerId,2)
elseif ui[playerId][elementId]=='左' then self:Move(playerId,1)
elseif ui[playerId][elementId]=='右' then self:Move(playerId,3)
elseif ui[playerId][elementId]=='重新开始' then self:music(playerId,mid[1]) self:setnum(playerId)
end
end
--界面刷新
function Script:add0(p,i,n)
if n==0 then self:hide(p,ui[p][3*i-2])
else
self:show(p,ui[p][3*i-2])
self:setcolor(p,ui[p][3*i-1],A[n][1])
self:setstr(p,ui[p][3*i],A[n][5])
self:setfontsize(p,ui[p][3*i],A[n][4])
self:setpos(p,ui[p][3*i],A[n][2],A[n][3])
end
end
--刷新
function Script:Re(p)
num,score=P[p].num,P[p].score
for i=1,16 do
self:add0(p,i,num[i])
end
local nummax=math.max(unpack(num))
self:add0(p,17,nummax)
self:setstr(p,ui[p][3*18],'score:\n'..score)
if has==1 then
for i=1,16 do
if num[i]==11 then
isend=99999
end
end
if isend==99999 then --Game:msgBox("恭喜！2048！")
self:music(p,mid[5])
has=2
end
end
end
--随机生成1个2/4
function Script:Add(p)
num,score=P[p].num,P[p].score
math.randomseed(os.time())
local z=0
for i=1,16 do
if num[i]==0 then
z=z+1
end
end
if z>0 then
local r=math.random(1,z)
for j=1,16 do
if num[j]==0 then
r=r-1
end
if r==0 then
math.randomseed(os.time())
num[j]=math.random(1,10)
if num[j]<3 then
num[j]=2
score=score+4
else
num[j]=1
score=score+2
end
r=-1
end
end
end
self:Re(p)
end
--四个数字的合并
function Script:Fin(num1,num2,num3,num4)
local numr={0,0,0,0,}
local score=0
local m=1
if num1~=0 then
numr[m]=num1
m=m+1
elseif (num2~=0)or(num3~=0)or(num4~=0) then
isend=1
end
if num2~=0 then
numr[m]=num2
m=m+1
elseif (num3~=0)or(num4~=0) then
isend=1
end
if num3~=0 then
numr[m]=num3
m=m+1
elseif (num4~=0) then
isend=1
end
if num4~=0 then
numr[m]=num4
m=m+1
end
if (numr[1]==numr[2])and(numr[1]~=0)and(numr[1]~=18) then
numr[1]=numr[1]+1
score=score+math.pow(2,numr[1])
isend=1
if (numr[3]==numr[4])and(numr[3]~=0)and(numr[3]~=18) then
numr[2]=numr[3]+1
score=score+math.pow(2,numr[2])
isend=1
numr[3]=0
numr[4]=0
return numr,score
else
numr[2]=numr[3]
numr[3]=numr[4]
numr[4]=0
return numr,score
end
elseif (numr[2]==numr[3])and(numr[2]~=0)and(numr[2]~=18) then
numr[2]=numr[2]+1
score=score+math.pow(2,numr[2])
isend=1
numr[3]=numr[4]
numr[4]=0
return numr,score
elseif (numr[3]==numr[4])and(numr[3]~=0)and(numr[3]~=18) then
numr[3]=numr[3]+1
score=score+math.pow(2,numr[3])
isend=1
numr[4]=0
return numr,score
else
return numr,score
end
end
--滑动
function Script:Move(p,drct)
isend=0
num=P[p].num
if has==0 then
isend=1
has=1
end
for i=1,4 do
local wn=(drct-1)*16+i*4
local nw,sc=self:Fin(num[lbrt[wn-3]],num[lbrt[wn-2]],num[lbrt[wn-1]],num[lbrt[wn]])
for j=1,4 do
num[lbrt[wn+j-4]]=nw[j]
end
P[p].score=sc+P[p].score
end
if isend==0 then
self:music(p,mid[3])
else self:music(p,mid[2])
self:Add(p)
end
end
--初始化
function Script:setnum(p) P[p].score,P[p].num=0,{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
self:Add(p)
end
return Scrihpt