2048小游戏lua

最新推荐文章于 2024-06-13 14:39:33 发布
最新推荐文章于 2024-06-13 14:39:33 发布
阅读量538 收藏 3
点赞数 1
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_15117535/article/details/125217923
版权

2048游戏 玩家数据管理 排行榜 云服务器 数值存储
关键词由CSDN通过智能技术生成

1f02b983977c46bc94cdff6f3a294bd8.jpg

e982309af1f444e49e6a00063aadd026.jpg 

 

--2048小游戏
--作者韩永旗
--bug,建议
--核心运算，来自负负
--待完善


--UI2048,UI主页
local ui={"7104543079461138338","7104543079461138338_",}
--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 num={}
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 P={}
local P0={}
local list=0
local maxnum=0
local maxscore=0
local ret={}
--[[
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}},
         }
  ]]              
--原件颜色 原件位置,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 drct,ising,isend,has=0,0,0,0
local i,j,k=0,0,0
local score=0


--表格数据转字符串
local function setad(p)  local t=""  for k,v in ipairs(P[p]) do   for k0,v0 in ipairs(v) do   t=t..v0.." "  end  end return t end

--上传玩家数据
local function setstr(p)
    local v2=p
    local actionattr=4--变量类型：数值
    local msg="字符串"--变量名
    local val=setad(p)--要设置的值      
    local v1=class.TriggerVarLibVar2.new(110850001).Data
    VarLib2:setPlayerVarByName(v2,actionattr,msg,val)
    Trigger.CloudSever:setDataListAnyValue(v1, v2, val)
end

-- 字符串转表格数值
 local function strad1(str)  for j=1,#str do  if string.sub(str,j,j) ==" "  then  if tonumber(string.sub(str,1,j-1))~=nil then  return tonumber(string.sub(str,1,j-1)),string.sub(str,j+1,#str) else return string.sub(str,1,j-1),string.sub(str,j+1,#str)  end  end end end
 local function strad2(p,v0)
   local A0={{},{}}   for i=0,25 do   if i<6 then  if #v0>0 then   A0[1][#A0[1]+1],v0=strad1(v0)  end  else  if #v0>0 then   A0[2][#A0[2]+1],v0=strad1(v0)  end end end
   P[p]=A0
   end
--获取玩家数据
local callback = function (ret,k,v)  if ret == true then strad2(k,v) else    end end
local function getstr(p) local v1=class.TriggerVarLibVar2.new(110850001).Data local v2=p local ret = CloudSever:getDataListByKey(v1,v2,callback)  if ret == ErrorCode.OK then    else  end end

--获取指定分数的值
local function CloudSevergetv(score)
  local callbackscore = function (ret,k,v,ix)
        if ret == true then
            print('返回数据成功 键= '..k..' 值='..v)
        else
            print('返回数据失败')
        end
    end
    local v1=class.TriggerVarLibVar2.new(110840001).Data
    local v2=score
    local ret = CloudSever:getDataListByKey(v1,v2,callbackscore) --获取key1的分数
    if ret == ErrorCode.OK then
        print('请求排行榜数据成功')
    else
        print("请求排行榜数据失败")
    end
  end
--获取指定排名的值
    local callbackgetix = function (ret,k,v,ix)
        if ret == true then
        print('返回数据成功 键= '..k..' 值='..v..' 排名='..ix )
        getstr(k)
        P0[k]={P[k][1][3],P[k][1][2],P[k][1][1],P[k][1][4],P[k][1][5],P[k][1][6],ix}        
        else
            print('返回数据失败')
        end
    end
  local function CloudSevergetix(k0)
    local v1=class.TriggerVarLibVar2.new(110840001).Data
    local v2=k0
    local ret = CloudSever:getOrderDataIndexValue(v1,v2,callbackgetix) -- 请求第1名的数据
    if ret == ErrorCode.OK then
        print('请求排行榜数据成功')
    else
        print("请求排行榜数据失败")
    end
 end 
--获取指定玩家的值
local function CloudSevergetk(p)
  local callbackk = function (ret,k,v,ix) -- 返回结果不一定有排名
        if ret == true then
            if ix then
                print('返回数据成功 键= '..k..' 值='..v..' 排名='..ix )
            else
                print('返回数据成功 键= '..k..' 值='..v)
            end
        else
            print('返回数据失败')
        end
    end
    local v1=class.TriggerVarLibVar2.new(110840001).Data
    local v2=p
    local ret = CloudSever:getOrderDataByKey(v1,v2,callbackk)
    if ret == ErrorCode.OK then
        print('请求排行榜数据成功')
    else
        print("请求排行榜数据失败")
    end
  end
--获取 所有玩家数据
local function getallstr(p)  
    local v1=class.TriggerVarLibVar2.new(110840001).Data
    local ret,values = CloudSever:getlistCache(v1) 
    if ret == ErrorCode.OK then
        print('获取数据成功')
    local P0={}
     for k0=#values,1 do 
        CloudSevergetix(k0)
     end
         else
        print('获取数据失败')
    end             
end

--设置玩家最高记录数值
local function maxscorenum(p)  
    local v2=p
    local actionattr=3--变量类型：数值
    local msg="数值"--变量名
    local val=P[p][1][5]--要设置的值
    --设置私有数值“数值01”的值为50
    local v1=class.TriggerVarLibVar2.new(110840001).Data
    local v2=p
    VarLib2:setPlayerVarByName(v2,actionattr,msg,val)
    Trigger.CloudSever:setDataListAnyValue(v1, v2, val)   
    end
--界面
local function add0(p,i)
     if num[i]==0 then
      Trigger.UI:hideElement(p, ui[1],ui[2]..(2*i+8))
    else
      Trigger.UI:showElement(p, ui[1],ui[2]..(2*i+8))
      Trigger.UI:setColor(p, ui[1],ui[2]..(2*i+8),A[num[i]][1])
      Trigger.UI:setText(p, ui[1],ui[2]..(2*i+9),A[num[i]][5])
      Trigger.UI:setPosition(p, ui[1],ui[2]..(2*i+9),A[num[i]][2],A[num[i]][3])
      Trigger.UI:setFontSize(p, ui[1],ui[2]..(2*i+9),A[num[i]][4])
    end
end
--当前分数
local function add1(p)
  local maxnum=nil
  for k,v in ipairs(num) do
    if maxnum==nil then maxnum=v 
    elseif maxnum<v then maxnum=v 
    end
  end  
    local maxscore=score
    if maxnum<P[p][1][4] then else P[p][1][4]=maxnum  end
    if maxscore<P[p][1][5] then  else P[p][1][5]=maxscore  maxscorenum(p) end   
    setstr(p)
      Trigger.UI:setColor(p, ui[1],ui[2]..42,A[maxnum][1])
      Trigger.UI:setText(p, ui[1],ui[2]..43,A[maxnum][5])
      Trigger.UI:setPosition(p, ui[1],ui[2]..43,A[maxnum][2],A[maxnum][3])
      Trigger.UI:setFontSize(p, ui[1],ui[2]..43,A[maxnum][4])
      Trigger.UI:setText(p, ui[1],ui[2]..45,maxscore)
      Trigger.UI:setText(p, ui[1],ui[2]..47,P[p][1][5])
 end
--排行榜
 local function add2(p) 
   getallstr(p)
   print("排行榜")
   Trigger.UI:showElement(p, ui[1],ui[2]..51)
  if #P0==0 then getallstr(p) end
   print("排行榜")
    table.sort(P0 ,function(a, b)    if a[4] > b[4] then return a[4] > b[4]  elseif a[4] == b[4] then return a[5]>b[5]   end end)
    print("P0排名")
    print(P0)

   for i,v in ipairs(P0) do      
    if i<=10 then
      if i>#P0 then Trigger.UI:hideElement(p, ui[1],ui[2]..(10*i+p0))
        else
      Trigger.UI:showElement(p, ui[1],ui[2]..(10*i+p0))   
      Trigger.UI:setText(p, ui[1],ui[2]..(10*i+p0+1),i)
      Trigger.UI:setTexture(p, ui[1],ui[2]..(10*i+p0+2), P0[i][1])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*i+p0+3),P0[i][2])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*i+p0+4),P0[i][3])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*i+p0+5),A[P0[i][4]][5])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*i+p0+6),P0[i][5])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*i+p0+7),P0[i][6])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*i+p0+8),P0[i][7])
      end
    end
    if v[3]==p then
      Trigger.UI:setText(p, ui[1],ui[2]..(10*11+p0+1),i)
      Trigger.UI:setTexture(p, ui[1],ui[2]..(10*11+p0+2), v[1])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*11+p0+3),v[2])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*11+p0+4),v[3])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*11+p0+5),A[v[4]][5])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*11+p0+6),v[5])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*11+p0+7),v[6])
      Trigger.UI:setText(p, ui[1],ui[2]..(10*11+p0+8),v[7])
    end      
  end
end

local function Check(p)
    for i=1,16 do
        if num[i]==11 then
            isend=99999
        end
    end
    if isend==99999 then Game:msgBox("恭喜！2048！")    has=2  
     Player:playMusic(p,mid[5],100,1,false)
     Chat:sendSystemMsg("恭喜！玩家"..P[p][1][2].."2048！")
    end
end
--刷新
local function Re(p)
    for i=1,16 do
        add0(p,i)
    end
setstr(p)
    if has==1 then
        Check(p)
    end
end
--随机生成1个2/4
local function Add(p)
    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
    Re(p)
end
--四个数字的合并
local function Fin(num1,num2,num3,num4)
      local numr={0,0,0,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]~=11) 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]~=11) then
            numr[2]=numr[3]+1
            score=score+math.pow(2,numr[2])
            isend=1
            numr[3]=0
            numr[4]=0
            return numr
        else
            numr[2]=numr[3]
            numr[3]=numr[4]
            numr[4]=0
            return numr
        end
    elseif (numr[2]==numr[3])and(numr[2]~=0)and(numr[2]~=11) then
        numr[2]=numr[2]+1
        score=score+math.pow(2,numr[2])
        isend=1
        numr[3]=numr[4]
        numr[4]=0
        return numr
    elseif (numr[3]==numr[4])and(numr[3]~=0)and(numr[3]~=11) then
        numr[3]=numr[3]+1
        score=score+math.pow(2,numr[3])
        isend=1
        numr[4]=0
        return numr
    else
        return numr
    end
end
--滑动
local function Move(p,drct)
    isend=0
 score=P[p][1][6]
    if has==0 then
        isend=1
        has=1
    end
    for i=1,4 do
        local wn=(drct-1)*16+i*4        
        local nw=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
    end
    if isend==0 then
     Player:playMusic(p,mid[3],100,1,false)
    else Player:playMusic(p,mid[2],100,1,false)  Add(p)    
    end
   P[p][1][6]=score add1(p)
end
--初始化
local function setnum(p) P[p][1][6],P[p][2]=0,{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}  
  num,score=P[p][2],P[p][1][6]  Add(p)   P[p][1][6]=score  add1(p)
end

local function cunid(p)
  local vartype=7--变量组类型，3是数值
    local libname="玩家组"--组名
    local value=p--值
    local playerid=0--私有变量组所属玩家id，0代表全局变量组
    --添加value到vartype类型的变量组的最后一位
    Valuegroup:insertInGroupByName(vartype, libname, value, playerid)  
  end

 local function funcevent(event)
    
  local p,uid,uiid=event.eventobjid,event.CustomUI,event.btnelenemt
  if uid==ui[1] then    num=P[p][2]
    if uiid==ui[2]..2 then     Move(p,4)
    elseif uiid==ui[2]..3 then     Move(p,2)
    elseif uiid==ui[2]..4 then     Move(p,1)
    elseif uiid==ui[2]..5 then     Move(p,3)
    elseif uiid==ui[2]..7 then    Player:playMusic(p,mid[1],100,1,false)    Chat:sendSystemMsg("2048已重新开始",p)     setnum(p)
    elseif uiid==ui[2]..6 then Trigger.UI:hideElement(p, ui[1],ui[2]..1) Trigger.UI:showElement(p, ui[1],ui[2]..179)
    elseif uiid==ui[2]..174 then Trigger.UI:hideElement(p, ui[1],ui[2]..51)  
    elseif uiid==ui[2]..175 then add2(p) 
    elseif uiid==ui[2]..179 then Trigger.UI:hideElement(p, ui[1],ui[2]..179) Trigger.UI:showElement(p, ui[1],ui[2]..1)
    end
  end
end
  --点击按钮
ScriptSupportEvent:registerEvent([=[UI.Button.Click]=],funcevent)
  local function EnterGame(param)
    local p=param.eventobjid 
    local result,name=Player:getNickname(p)
    local result,iconid = Customui:getRoleIcon(p)
    --[[    
      local objid=p
      local actionattr=4--变量类型：数值
      local msg="字符串"--变量名
      local result,value = VarLib2:getPlayerVarByName(objid,actionattr,msg)
      local v1=class.TriggerVarLibVar2.new(110850001).Data
      local v2=p
      local v3=value
      Trigger.CloudSever:setDataListAnyValue(v1, v2, v3)
      ]]
      
    local v1 = class.TriggerVarLibVar2.new(110850001).Data
    local v2 = p
    local v3 = class.TriggerVarLibVar2.new(210100001, v2).PrivateData
    Trigger.CloudSever:setDataListAnyValue(v1, v2, v3)
      
      
    threadpool:wait(2)
      if v3==nil or #v3<50 then
        Player:notifyGameInfo2Self(p,"欢迎玩家"..name.."来到2048游戏房间")
       P[p]={{p,name,iconid,0,0,0},{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,}} 
       setstr(p)
       else
       Player:notifyGameInfo2Self(p,"欢迎玩家"..name.."再次来到2048游戏房间")
       local v1=class.TriggerVarLibVar2.new(110850001).Data
       local v2=p
       local v3=class.TriggerVarLibVar2.new(210100001, v2).PrivateData
       Trigger.CloudSever:setDataListAnyValue(v1, v2, v3)
       end       
      cunid(p) 
      maxscorenum(p)  
   P[p][1][3]=iconid
   threadpool:wait(2)
   Player:openUIView(p,ui[1])
   Trigger.UI:hideElement(p, ui[1],ui[2]..179)
   num,score=P[p][2],P[p][1][6]  
   for i=1,16 do add0(p,i)end   add1(p)  add2(p) 
   end
 --玩家进入游戏
ScriptSupportEvent:registerEvent_NoError([=[Game.AnyPlayer.EnterGame]=], EnterGame)

local function LeaveGame(param)
    local p=param.eventobjid       
    setstr(p)   
    maxscorenum(p)  
 end  
--玩家离开游戏
ScriptSupportEvent:registerEvent_NoError([=[Game.AnyPlayer.LeaveGame]=], LeaveGame)


--[[


class.TriggerVarLibVar2.new(210100001, CurEventParam.TriggerByPlayer).PrivateData = v2
local v1 = class.TriggerVarLibVar2.new(110850001).Data
    local v2 = p
    local v3 = class.TriggerVarLibVar2.new(210100001, p).PrivateData
Trigger.CloudSever:setDataListAnyValue(v1, v2, v3)

local v1 = class.TriggerVarLibVar2.new(110840001).Data
    local v2 = p
    local v3 = class.TriggerVarLibVar2.new(210050001, p).PrivateData
Trigger.CloudSever:setDataListValue(v1, v2, v3)
class.TriggerVarLibVar2.new(210050001, CurEventParam.TriggerByPlayer).PrivateData = v2
class.TriggerVarLibVar2.new(210050001, CurEventParam.TriggerByPlayer).PrivateData = v2

    local actionattr=3--变量类型：数值
    local msg="数值01"--变量名
    local val=50--要设置的值    
    VarLib2:setGlobalVarByName(actionattr,msg,val)
    function clickblock(event)


    local actionattr=3--变量类型：数值
    local msg="数值01"--变量名   
    local result,value = VarLib2:getGlobalVarByName(actionattr,msg)
    --在聊天框显示数值
    Chat:sendSystemMsg("数值“数值01”的值为"..value)
    local objid=event.eventobjid--点击方块的玩家迷你号（私有变量所属对象）

    local objid=event.eventobjid
    local actionattr=3--变量类型：数值
    local msg="字符串01"--变量名
    local val=50--要设置的值  
    VarLib2:setPlayerVarByName(objid,actionattr,msg,val)
    local objid=event.eventobjid--点击方块的玩家迷你号（私有变量所属对象）

    local objid=p
    local actionattr=3--变量类型：数值
    local msg="字符串01"--变量名
    local result,value = VarLib2:getPlayerVarByName(objid,actionattr,msg)
   
    local objid=247312290
    local actionattr=7--变量类型：数值
    local msg="玩家组01"--变量名
    local val=p--要设置的值  
    VarLib2:setPlayerVarByName(objid,actionattr,msg,val)(
    
    local objid=247312290
    local actionattr=7--变量类型：数值
    local msg="玩家组01"--变量名
    local result,value = VarLib2:getPlayerVarByName(objid,actionattr,msg)
  
  local objid=p
    local actionattr=4--变量类型：数值
    local msg="字符串"--变量名
    local result,value = VarLib2:getPlayerVarByName(objid,actionattr,msg)
    print("get",value)
    strad2(p,value)
    print(P)
    
  local vartype=3--变量组类型，3是数值
    local libname="数值"--组名
    local sortType=1--排序方式：0升序 1降序
    local playerid=0--私有变量组所属玩家id，0代表全局变量组
    --对组中的值排序
    Valuegroup:sortGroupByName(vartype, libname, sortType, playerid)
  
  
  local vartype=3--要获取的变量组类型，3是数值
    local libname="数值"--要获取的组名
    local playerid=0--私有变量组所属玩家id，0代表全局变量组
    --获取类型为vartype的变量组中所有变量的值
    local result,ret=Valuegroup:getAllGroupItem(vartype, libname, playerid)
    print(ret)--在日志输出
 
 
 local vartype=3--变量组类型，3是数值
    local libname="数值"--组名
    local value=10--值
    local playerid=0--私有变量组所属玩家id，0代表全局变量组
    --删除类型为vartype的变量组中值为value的值，删除后值为nil
    Valuegroup:removeValueByName(vartype, libname, value, playerid)
   
   local vartype=3--变量组类型，3是数值
    local libname="数值"--组名
    local value=10--值
    local playerid=0--私有变量组所属玩家id，0代表全局变量组
    --添加value到vartype类型的变量组的最后一位
    Valuegroup:insertInGroupByName(vartype, libname, value, playerid)
 ]]
  

--[[
数值    用法描述
POSITION    1    位置
AREAINS    2    区域
NUMBER    3    数值
STRING    4    字符串
BOOLEAN    5    布尔值
PLAYER    6    玩家
PLAYERGROUT    7    玩家组
BLOCKTYPE    8    方块类型
ITEMTYPE    9    道具类型
CREATURE    10    生物
ACTORID    11    actor类型
CREATUREGROUP    12    生物组
TIMER    13    计时器
EFFECTTYPE    14    特效类型
SITEGROUP    15    位置组
AREAGROUP    16    区域组
NUMBERGROUP    17    数值组
STRINGGROUP    18    字符串组
BOOLEANGROUP    19    布尔值组
BLOCKTYPEGROUP    20    方块类型组
ITEMTYPEGROUP    21    道具类型组
CREATURETYPEGROUP    22    生物类型组
TIMERGROUP    23    计时器组
EFFECTTYPEGROUP    24    特效类型组
--获取排行榜名次 


    local v1 = class.TriggerVarLibVar2.new(110850001).Data
    local v2 = p
    local v3 = class.TriggerVarLibVar2.new(210100001, v2).PrivateData
    Trigger.CloudSever:setDataListAnyValue(v1, v2, v3)
 -- 云服务器      
local CS2048={class.TriggerVarLibVar2.new(110840001).Data,                        
             class.TriggerVarLibVar2.new(110850001).Data,           
            } 
          
    --表格数据转字符串
local function setad(p)  local t=""  for k,v in ipairs(P[p]) do   for k0,v0 in ipairs(v) do   t=t..v0.." "  end  end return t end

--上传玩家数据
local function setstr(p)
local v1=CS2048[2]
local v2=p
local v3=setad(p)
Trigger.CloudSever:setDataListAnyValue(v1, v2, v3)
end

-- 字符串转表格数值
local function strad1(str)  for j=1,#str do  if string.sub(str,j,j) ==" "  then  if tonumber(string.sub(str,1,j-1))~=nil then  return tonumber(string.sub(str,1,j-1)),string.sub(str,j+1,#str) else return string.sub(str,1,j-1),string.sub(str,j+1,#str)  end  end end end
local function strad2(k,v)
 local A0={{},{}} local v0=v for i=0,25 do   if i<6 then  if #v0>0 then   A0[1][#A0[1]+1],v0=strad1(v0)  end  else  if #v0>0 then   A0[2][#A0[2]+1],v0=strad1(v0)  end end end
  for i=4,6 do if P[k][1][i]<A0[1][i] then P[k][1][i]=A0[1][i] end end P[k][2]=A0[2]
end

--获取玩家数据
local callback = function (ret,k,v)  if ret == true then strad2(k,v) else    end end
local function getstr(p) local v1=CS2048[2] local v2=p local ret = CloudSever:getDataListByKey(v1,v2,callback)  if ret == ErrorCode.OK then    else  end end

--获取所有数据110850001或排行榜110840001数据
   local v1 = class.TriggerVarLibVar2.new(110850002).Data
    local ret,values = CloudSever:getlistCache(v1) 
    if ret == ErrorCode.OK then
        print('获取数据成功')
    print(values)     
    else
        print('获取数据失败')
    end      
        
        --删除排行榜的值
local function add19(p,maxnum)
    local v1=CS2048[1][maxnum-1]
    local v2=p
    local ret = CloudSever:removeOrderDataByKey(v1,v2)
    if ret == ErrorCode.OK then
        print('删除排行榜数据成功')
    else
        print("删除排行榜数据失败")
    end
  end  
          
          
  --获取所有数据110850001或排行榜110840001数据
 local function getlist(p) 
    local v1=CS2048[1][1]
    local ret,values = CloudSever:getlistCache(v1) 
    if ret == ErrorCode.OK then        
    --  print(values)
      local list=0
     for k,v in ipairs(values) do
       list=list+1 
      if v[k]==p then 
         local v3=#values-list+1
         local v2=p
      --   print(v3)
         class.TriggerVarLibVar2.new(210050002, v2).PrivateData=v3
         return v3
         end
      end
    else
     end        
 end
 

  local callback3 = function (ret,k,v,ix) -- 返回结果不一定有排名
   if ret == true then
            if ix then
                print('返回数据成功 键= '..k..' 值='..v..' 排名='..ix )
             print(list)
             
            else
                print('返回数据成功 键= '..k..' 值='..v)
            end
        else
            print('返回数据失败')
        end
    
   end 
local function getlistcs(p)
   local list=getlist()
    local v1=CS2048[1]
    local v2=p
    local ret = CloudSever:getOrderDataByKey(v1,v2,callback3)
    if ret == ErrorCode.OK then
        print('请求排行榜数据成功')
    else
        print("请求排行榜数据失败")
    end
 -- print("排行")
 -- print(list)
 end

--删除排行榜的值
local function removecs(p)
    local v1=CS2048[1]
    local v2=p
    local ret = CloudSever:removeOrderDataByKey(v1,v2)
    if ret == ErrorCode.OK then        
    else      
    end
  end
 

--设定排行榜分数值
 local function setcs(p)
    local v1=class.TriggerVarLibVar2.new(110840001).Data
    local v2=p
    local v3=P[p][1][5]
    Trigger.CloudSever:setDataListAnyValue(v1, v2, v3)

   -- class.TriggerVarLibVar2.new(210050001, v2).PrivateData=v3
        if ret == ErrorCode.OK then
      getlistcs(p)
    else        
    end
  end
]]

星空露珠
关注
  • 1
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
lua语言入门学习（三）lua语言的小demo之游戏2048
qq_43108889的博客
04-13 1629
lua语言入门学习 这是lua的demo小游戏2048 文章目录lua语言入门学习前言一、选取代码二、使用步骤1.摘录代码2.运行总结 前言 今天前辈给我早上装了新系统，目前还在装软件，索性记录一下第一个demo的小游戏2048 那就迫不及待的开始吧！ 一、选取代码 2048代码原地址 二、使用步骤 1.摘录代码 代码如下： --因为是摘录的代码，所以前面就不去掉了 --[[==============================================================
lua实现一个2048小游戏
Freedom！
01-06 4146
用lua写了个在consle上运行的2048，这里简单说下是如何实现的。（源代码地址：http://download.csdn.net/detail/c_boy_lu/9393255） 1.实现一个简单的游戏循环 游戏循环实际上是一个死循环，只有在退出游戏的时候，终止循环。 初始化更新                    逻辑更新                    显示
lua实现的2048小游戏
09-22
之前给大家分享了好几个语言版本的2048了，今天再给大家分享一个lua脚本实现的2048小游戏，小伙伴们参考下吧。
lua-小游戏
05-19
lua小游戏
ssRender+Lua开发小游戏＜俄罗斯方块＞(一)
最新发布
m6kzz的博客
06-13 2103
ssRender引擎，配合使用Lua脚本语言，开发一个俄罗斯方块小游戏的案例。本篇文章将会详细介绍开发初期的构想、前端界面的布局、各个按钮的功能和部分俄罗斯方块功能的实现（包括出现、掉落、左移、右移、旋转等功能）
Cocos2d-x-Lua 开发简单的小游戏（记数字踩白块）
热门推荐
巫山老妖
07-05 2万+
Cocos2d-x-Lua 开发简单的小游戏（记数字踩白块） 本篇博客来给大家介绍如何使用Lua这门语言来开发一个简单的小游戏—记数字踩白块。 游戏的流程是这样的：在界面上生成5个数1~5字并显示在随机的位置上，点击第一个数字，其他数字会显示成白块数字消失，玩家可以通过记住数字的显示的位置点击按顺序消除白块，直到白块消除完，游戏成功。 效果图如下： 先说明一下笔者的开发环境：Xcode 5.1(
cocos2dx+Lua 实现2048小游戏
04-29
lua文件直接放到cocos2dx的例子HelloLua项目中即可 参考目录 E:\cocos2d-x-2.2\samples\Lua\HelloLua\Resources 窗口大小 480 * 640
【quick-cocos2d-lua】 2048小游戏
Super_Cola的博客
06-20 589
玩法示例： 图1为初始游戏场景（只有一个游戏场景），4x4个格子上随机产生两个数，数字2或4。 图2：玩家向左滑动屏幕，整体向左移动，相邻相同数字进行相加，并再随机产生2或4的数字。当16个格子充满数字且滑动屏幕无法进行数字相加时，游戏失败。当最大数为2048时，游戏胜利。   场景：一个游戏场景 界面UI：游戏标题标签，游戏最高分和当前游戏分数标签，重新开始游戏的button  ...
微信小游戏服务器，房间及卡牌类游戏服务器 支持websocket,wss及tcp协议，lua编写游戏逻辑
08-21
微信小游戏服务器，facebook instant game server,房间及卡牌类游戏服务器。支持websocket,wss及tcp协议，lua编写游戏逻辑。C++底层已支持四十余款线上产品，跨平台。lua函数支持不停机热更新。包含一个斗地主游戏...
lua5.3.5最新版安装文件（包含c源码、解释器、编译器、静态库、用户手册和一个2048游戏脚本）
01-28
lua5.3.5最新解释器、编译器、静态库、用户手册及c源码的安装包，附加2048游戏脚本，完整实用资源，请下载。 Lua是一个小巧的脚本语言。它是于1993年开发的。 其设计目的是为了通过灵活嵌入应用程序中从而为应用...
cocos2dx + Lua 实现的2048小游戏
卖萌的大叔的专栏
04-29 3210
刚学Lua，  写个脚本试试看 [img=http://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/003/monkey/2.gif][/img] 实现了2048的游戏逻辑，触摸事件，动画等 直接将248.lua文件放到cocos2dx的HelloLua项目中即可，窗口大小 480 * 640 下载地址：[url=http://downl
2048小游戏
05-31
2048游戏操作说明 1、可使用鼠标或大小键盘上的方向键进行操作； 2、Play按钮 重新开始游戏； 3、Undo按钮 取消本次操作，回到上一步。 Ctrip2048游戏算法 1、游戏开始时随机的产生2个数值为2/4的方格，其中1个方格置于4个角中的一个位置， 另一个方格随机的置于其它位置，其余方格值为0。 2、每次移动鼠标或按方向键后，逐行计算移动后的方格值。每行移动的算法是：先将所 有值为0的数移至行首。能后从行尾开始逐一和前一个数比较，如果相等则合并这2个格子。 3、每合并一次格子，将其值累计到游戏总分中。 4、一次移动操作结束后，如果有方格移动了位置，则在所有值为0的方格中随机的分配一个2/4的值。 5、所有方格值不为0且上下、左右相邻的方格都不相等，则游戏结束。 6、2出现的概率为90%，4出现的概率为为10%。
2048小游戏-2048.war
04-26
2048，非常小的一个包，可以用来测试。当然，工作累了玩玩也可以。
unity lua 微信小游戏
05-30
Unity可以使用Lua作为脚本语言，同时也可以发布为微信小游戏。下面是Unity与Lua开发微信小游戏的基本流程： 1. 安装Unity和Lua插件 首先需要安装Unity和支持Lua的插件。常用的插件有UniLua、MoonSharp等。 2. 创建Unity项目 创建Unity项目，并在项目中导入Lua插件。 3. 编写Lua脚本 使用Lua脚本编写游戏逻辑，并将脚本导入Unity项目中。 4. 构建微信小游戏 在Unity中使用微信小游戏插件对游戏进行构建和打包，生成小游戏项目。 5. 将小游戏上传至微信开发者平台 将生成的小游戏项目上传至微信开发者平台，进行审核和发布。 需要注意的是，微信小游戏的性能和功能受到一定的限制。开发者需要根据微信小游戏的规范和要求进行开发，避免使用过多的资源和功能，以保证游戏的稳定性和流畅性。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值