From 4e47abad1ffb52eb8c900086da6da09ae500af6e Mon Sep 17 00:00:00 2001 From: qatby Date: Sat, 7 Dec 2024 19:58:12 +0800 Subject: [PATCH] 111111111 --- dbgsv.jh | Bin 2476 -> 2647 bytes dbgsvbuding.lua | 106 +++++++---------------- lst.txt | 2 +- tesxbb.lua | 161 +++++++++++++++++++++++++++++++---- ui1118.jh | Bin 2148 -> 1669 bytes ui1118.lua | 221 ++++++++++++++++++++++++++++++++++++++++++++++++ 6 files changed, 397 insertions(+), 93 deletions(-) create mode 100644 ui1118.lua diff --git a/dbgsv.jh b/dbgsv.jh index e41222d7402d5b86ed09b29b5fdbfe915648dbc0..1e1fdf4e6a89a4a4f91ce49a53f802049250c0b2 100644 GIT binary patch literal 2647 zcmV-d3aIt%S?g~U*A@Rhf5qs!!87)F*xB_1tS%A(w}}!+L?BXS9CUZ)?t1V%wllNq zU6A{~G_FdNrVb>S5E}yq17?e&JbZ zdmg`g?m6dPJHCk>IjkCnu|v+w$7MGxl>^_T?HPGS;`6>^g(NCFxNeamOf@@FvErGL z?R%-QY*xW$wJS?4pb+#ts9?`Mm7O(IoMtqm#8lp@dzc|8(Dren~7qeXBQb zJ|0C{RkKK;QqrRUo1}ovDMeK!;#pFQCSsMRRrzG1OGLtGs;E#h5~#w6njz;)Br4#L z*j~{Wv)W)hU++9Wl&sInc_T9tQ`6pH+^Yd7E{-O3TnLq#F;L4UT+=gkW1ybQSat|= zwZ59%FDpvDudenPx}i!io`;{;GWw7NbWUgnb~z%oSRn~LS8=hoH}K1cLh^h>Tm)kS z2GY$MED|bA=}}b+s51?o!JZSKM8!dmH*ykL5l>=yonj{fDFuziCdreVzXb-zqJAd_8oK&JVzfL6#`)1%XY4N8Vw!Rb-c z@k65UUW>Cg1sAg+aD;==DmsWI14K;uV%+bfNxIMNsdeUC;6+g0cgQ@(}f7kL>WZcT&>4$*BdBtgWeL#>6j39B%QFED-2 z#L0r*!(Ol2(NypTmv~XDo$W+!#ffans!1LuwBW9wkx%U!E!v)?^gc5HpYictI0G$1 z6BE76RJugQo<z5~r&e1eUHj9pkMD2B#|2V_Il^`~jX$bnD4oTF#M35i64zz-C3 z=HvDCJFhp^&OUA|o&N0R=ImQbpEUk?>fyO-x9(nevvH2LHs-FKL|ee*5kC=yB*;i5OJEsTjEctd)u)$IR&DN=+9^&cv1@(AA^VZpS$wX3=(t zVirqUh^rtWDmbQTGE{gIRE7WciF`PwDE93NY;&XB@EI0Kt%-k$SmghVWVR7p^*ZHJr$iT`Ezq-(W3(AysTz-lPnz*g7B6B&$#j3ak0n z7|K;M9mt*Gc19o)+)T;_CV-}p{MH?dg@0Gn(p*cn2k50nAUG$o)T9_G6l@C+F-DBs zj@(GoeVDq~tBcyGY-r`IR?ewXydv_wid!I%{*89^($$Zs;0#rhU>MvsjN&o$;~yP* zW$eK2J$qg{wEy5Pq-rRZ4GNk!C3bOZW}>3&dTa|Wv6C*tP*QO+Q7{b(bK}N@7!0Et zJ<}c4gw-s>FJ97-Di6x;H2jK{l4h~I6 zrAY|T4xxn;Nn|p=%dig|;_T7T_mmE9rN$oKwnN{t6;v!=$%}ej6!hb?L(fpWBQXn@ zw=Jl%AmVvh_{l-O*%y}7RAt)%@WFI_+hIPbnj>5)`ynUt%g}_P#xES@bTN?&4$_SR zw!<@MF3+%R*9ihZ;MK7M`*-gf0|Z#fgVcOJ&izenT|7nLTCn9*>UZ8~d~xUGsk6E} zCFgg^>ElP&C|koHM04=<4*M5i59SoZP+?I^`5x>0(#vD}pZnR%V+US*e*X&~OGddY zt=mg3sS&dRHD63=g2@0AWVAty;*!ddaRrs^RMyC3gkJ2w-(x zTvkv9G3VR4bEk$*|K{pnPW}4#e-=rbgAIOeWZJ=_RpO!N6WwlYUi{Vk%9*cDuOW@s z=uj#&mm4Cjvh6)e>l%tv764PYceQT;_f-LZ52evKVK>WxDa;(7VRnOHpouHjj+}Kv z@Me6H^hB3|!ieVs;WAuQy3SVwnw@f3#ZDzKnkdrHr$n&$@Vz96RMcI{)6q;>99L#7 zyOl|A7EhY;aSVmVe-Jh`*UHlkn~~_P6ZE4OPeGkyAy3Z4-^sB#E*I&+kHLpxg~_HW zh{7c=cgotbS2kJn&B!xqo9pGcG3k>ap&Nf&ezNxE?WNWA9%I|pN4HLI%q>3ZF*2E+ zTyE#K_ddP;cxg820?ZORIlpjs<-{NEC8LdtOMh*A_5Rn5`DEzI?8=FyN9XP&11l%m zD9$`?A7ae6Eq}gvt-0#_jSER<{@miD-+k3eeS7KD*$a1<&(cxo-2T_q&BeLK1J+$R zvG(O3S8rXKKSR5m{@j)G?`+JizR3vIE-pU-qZ_M>58r#^_9`^*uYWLm9U7eY!`IjE zt$up_Ge*3Aa^=LeuW#IE9jg5DgT;revvBvulM9=Tw^^r^!{v|8zkB|(jZel`zd5~m zX=&p7b2@)-`N776@k>u8gl%{3H{M$KCF}g@o6C>pSC*eFJ`_vWKEL^ojk)CqJz20@ zYWISXp<((hoZ)Gq^#@P+fAf@MlNIchB5XU@3!z=JJtHnRFsAh){SDbAlj`=%2G67H z*{oP3W)cmDGebKDTO#+QKMf=;^D@LiP0nVt9T^p3WMpEu91{Tl^zx}9EgTYG<*%7Y zgIp(J3u?p2u~VU#7B94l$RiEqdPatN2Efb=P4a5Xb)}@BJ_yZFwseT*yAK{bFg`Lg z!75;nOq)=-0vQgc;;I!sSuM9E&l|aP@+cJOouoh8Zw&Vj5B6t=hT+=p72&FEM^5wf zy?b@x%IpHIJC;7U{1IY!yzs1T##QMSfQ+;$2W^+^OR@`Ee7`aK;m6Nd3!967Kl3(y ziO>-g*{Wm_NQYI@NpyTfQ5ULr78f@+=2jk}b_nAz(Vu*c8u@g+==swjF%^Do>bO;^ z^c}V_n=^X4ZDXthO|-aRJ9bnb&BC&$NbJ7lgLKQg&u6n)MnDTTdZ!ig!g!xLpeG=v zp^}Eht`Mfx&;75p7k5GSe~n}Hd}gLiDSl1SP#x-P*98^vG}3&x!2IErJ`3;{P6dgH<{de{9b>o}%ZI(g0iw5GRx?9p zW2KbZeDc*~640x3h>L{B6*fqPYqHqJPWH$M=l}>=(ECCk=&7kLFpnP%3OiSRJDZiC z)V=b98kHGXDZ|MitVs*J5qYMi+T-xCL^NBq$bl#^FIpTEb$4Yi> F{`VP%B)tFt literal 2476 zcmWlawX&>W5QHCy0OyAgS#)tHLl$?3r@!Y0Q`O0IP0-&o2wFH}PDw1GqNJnxWYf-b z^d>3#TW6z5mvmzoT&}zADUxWycYmqw2a9S33ZK1jQtFq;-~&0I9;z&`CW@{@9Pj!W z@~_qRS(2N=o*7NBeR7nm06~@xKRi17P9BNueDvb@x&wxx0P~Xa!$@kKT}co``1D*< zLo7c(Qi{>Tt*P&7LfAumF`&o&1{RO73*swvrtJ`wv??7Vp6gNoRL?f}h;sD<`;(rd zheb`@MdQ@Qg~#$?S-ZT7XaDd==OTc!G%UoFCocC8t8Z^UgW;L7=0M!hOjWBPmChHo za~C@|-N(n%c|9wonMCNw;S(ux$K3e@Vi;SL`BNR_AqXYNf6dtj;Jo!!gX&eC(k8VN z!*Luj;Z^naIEE%HgGLiL>kbdU-DI$vRO-kAJRprEZock6)(m)m(@?psM569yVhc|cCNGvh zHIud(u>Kurm@cQ5R8kZ}FpA}|yA7cXWskld(*>L9y5}yXn5>&foZ>NYBby&ceyYMB zTCRsH;B#NNFP&XzKJp*g^5~{w+Q(@=ztqtt1-q_8NxvFb#qk>d;)7ziqL)~t51sX^ zm6Wv=?#+7%-0?McHhaBx^cB}?*p9LHwRc*-m}J$}sKS`k*$L+*S=atC4G`If5pg2- zzvRtVWYh>aSqDaFO{qL|s20Z^pX7t;74N-Na}n2Z4R! z1Nnv8(p;&=Rh8RW#!){96_SjL7=7AZ-bi?5a?}F42p`1;+o z#LkbtZ{lH@dS7+O?P$SJn(-0U5RIKONq`dZXK%4KJNEjbMx9@Wh=LNk)RAu>vE`?D zT#m?D4|M`Q@lv!1w9pluA9vT&n}#3a0_VfQd7ei}zhlE6~eP8;=0m8vW- zLLKs`Wqlom?}MX_oJgq2qar~kn(=D?_^LY9kw#sB=!r60eFext?&WyG`v_Cg9J}un zhtuMN(R71ld@mov6F7koydm)K_hI(f=&*0V;{@AE)UZ_eF-{Zje!PQhITSIy@yLp` z#&XNvFrGiNXyk?V^ikiyG`JcSAG=hgkRc%$)Cy5`_qdb+3;6W(6c;v@yVjh9Cc2?; zsvP?~PwG`>^?6=>C5%z^A1?KpA#)p6>C>Yd@bS~CP+*>^C;T6UVlxV zXQ-9RFgQOm7x??RRiHdwst_3&MD71_< zj*cQ^7(8b%K{nVE7FK^d-PLN-+OBvli|-!Gz8}0QWTXHz@D`|D`gnHD#QwEgB!| z_@GcRexUUi6$`O@FgSGzp_h=^vkuKM644nryVBCaT>v*XSC-Mv{4&GAQ<~w?7>Np) zLXSWwsokh>L>g~`dH9NFL8fE70}{!XI{uFifwa;Rf*)x zYTd_F1b+g~-HX-ix7bIX!-d4HO_s7LDrWZo&YYKf~Fv>hI_Ma6Cb>!n!e4-qbj8sptfA*+^ ztxr=*YL~yA9jAE~%_;Y?TD-YgJFyci?GLm@;Y6h#>{@cCZq&qL({)*beHm%eH*9aO zKI7wMI%81t{-SKV_AN*W*c?%ZYyklw(cysiR&a65{u0hoAst`a=- zV==*B93r4jewRt%4BBKWL>Wg-F8V)sHG>qWPTTj@BoVohOcaUxc;FxtVuudpC1WE& zApSjXmpf7>TX?TNucrNLdcah3o3O^Z^UfG9Nol1#7fy7*T!8$rCy9@@fq;s=Fx!p= zG=GV+LG=Jk@t!Q9)8{@NsT*pQOc`>}Fw;!VCe)nRI=(wq5Q(5UxeL~ZSJc>a&$(6? z`pq3E5VyDq1t7E+R!R9!_VFggnS`({xyVy_JC-kE>mqSWIOV%8zg*}9D-II>4ad@? zzKKd`i;AySnZFY7B8}xp%&@6`x?etPwf1i*{%HkYttZFrYolK+hhZ1YE9}p-HHrQ( zlhCVn6_@H&<6CtypOCIC%oz!GvO4K`d_wZPKh1(_$TCEvScc{@kTP;)=-0yT;zPhC aTC(3CoD*v9+zR)j6;n8QLR%RbhW-J*bvADR diff --git a/dbgsvbuding.lua b/dbgsvbuding.lua index 0f23f58..b455482 100644 --- a/dbgsvbuding.lua +++ b/dbgsvbuding.lua @@ -9,43 +9,6 @@ function string.trim(s) end --- 去除空行 -function remove_empty_lines(code) - local lines = {} - for line in code:gmatch('[^\r\n]+') do - local trimmed_line = string.trim(line) - if trimmed_line ~= "" then - table.insert(lines, trimmed_line) - end - end - return table.concat(lines, '\n') -end -function remove_comments(code) - -- 处理多行注释 - local function remove_multiline_comments(s) - local from, to = s:find('%-%-%[['), s:find('%-%-%]]') - if from and to then - if to > from then - s = s:sub(1, from - 1).. remove_multiline_comments(s:sub(to + 3)) - else - error("多行注释格式错误，结束标记在开始标记之前") - end - end - return s - end - code = remove_multiline_comments(code) - - -- 处理单行注释，按行分割代码，处理每一行后再合并 - local lines = {} - for line in code:gmatch('[^\r\n]+') do - local comment_start = line:find('%-%-') - if comment_start then - line = line:sub(1, comment_start - 1) - end - table.insert(lines, line) - end - return remove_empty_lines(table.concat(lines, '\n')) -end function safecall(func, defret, ...) local aret = nil @@ -243,6 +206,18 @@ end +function jhxbbgame.Gives(actor,sitem) + local items = sitem:split("&") + for key, value in pairs(items) do + local aitm = value:split("#") + if aitm then + giveitem(actor,aitm[1],aitm[2],1+2+16+64+256) + end + end +end + +edcode = edcode or require("Envir/wlua/edcode.lua") + tblccc= nil function jhxbbgame.any2lua(...) local function tfname(tf) @@ -346,46 +321,18 @@ function jhxbbgame.any2lua(...) return sRet:sub(1, -2) end -function jhxbbgame.Gives(actor,sitem) - local items = sitem:split("&") - for key, value in pairs(items) do - local aitm = value:split("#") - if aitm then - giveitem(actor,aitm[1],aitm[2],1+2+16+64+256) - end - end -end - -edcode = edcode or require("Envir/wlua/edcode.lua") -local function compress(data) - return edcode.ToBase64(edcode:CompressDeflate(data), nil) -end - -local function decompress(data) - return edcode.FromBase64(edcode:DecompressDeflate(data)) -end - -jhxbbgame.encom = compress -jhxbbgame.endecom = decompress release_print("jhxbbgame.dbgout22211112:", jhxbbgame,tostring(jhxbbgame)) -tblccc= {} ---jhxbbgame.s2f("wlua/verfx/_G.luaba",jhxbbgame.any2lua(_G)) -tblccc = nil -local remocode = {ui1118=jhxbbgame.any2lua(jhxbbgame.ui.ui1118), ---ui=jhxbbgame.any2lua(jhxbbgame.ui), ---dbg=jhxbbgame.f2s("wlua/verfx/dbgsvbuding.lua") -dbgsv=jhxbbgame.f2s("wlua/verfx/tesxbb.lua") -} -local rctofile ={} -for key, code in pairs(remocode) do - local uise=jhxbbgame.encom(remove_comments(code)) - jhxbbgame.s2f("wlua/verfx/"..key..".jh",uise) - rctofile[key] = md5str(uise) +local cc = {} +if jhxbbgame.any2lua then + jhxbbgame.localdata=jhxbbgame.recfile({ui1118=jhxbbgame.any2lua(jhxbbgame.ui.ui1118), + --ui=jhxbbgame.any2lua(jhxbbgame.ui), + --dbg=jhxbbgame.f2s("wlua/verfx/dbgsvbuding.lua") + dbgsv=jhxbbgame.f2s("wlua/verfx/tesxbb.lua") + },true) + + jhxbbgame.s2f("wlua/verfx/lst.txt",tbl2json(cc)) end - -jhxbbgame.s2f("wlua/verfx/lst.txt",tbl2json(rctofile)) - -release_print(("中文"),"jhxbbgame.dbgout2222:",jhxbbgame.len(remocode),jhxbbgame.len(rctofile), jhxbbgame) +release_print(("中文"),"jhxbbgame.dbgout2222:",jhxbbgame.len(jhxbbgame.localdata),jhxbbgame.len(rctofile), jhxbbgame) @@ -417,7 +364,7 @@ local ccc = {} for i = 1, #aalog /3, 1 do local value = {aalog[((i-1)*3)+1],aalog[((i-1)*3)+2],aalog[((i-1)*3)+3]} local q = value[1] - ccc[q] = ccc[q] or {all={},c98={},c38={}} + ccc[q] = ccc[q] or {all={},all5={},c98={},c38={}} local cc= ccc[q] local accid = tonumber(value[2]) local cnt = tonumber(value[3]) @@ -426,6 +373,8 @@ for i = 1, #aalog /3, 1 do cc.c98[accid] = (cc.c98[accid] or 0)+1 elseif cnt == 38 then cc.c38[accid] = (cc.c38[accid] or 0)+1 + else + cc.all5[accid] = (cc.all5[accid] or 0)+value[3] end end @@ -440,7 +389,7 @@ function jhxbbgame.zxcz.writeex(svname,actor,k, v) end local function bfbylogq(svname,qacc) - local tpcfg = {c38={"日享",0},c98={"特权",0},all={"总累计",0}} + local tpcfg = {c38={"日享",0},c98={"特权",0},all5={"总累计",0},all={"总全累计",0}} for tpkey, tpval in pairs(tpcfg) do local recs = qacc[tpkey] for acckey, value in pairs(recs) do @@ -457,6 +406,9 @@ local function bfbylogq(svname,qacc) --补特权 jhxbbgame.zxcz.writeex(svname,acckey, tp, 1) tpval[2] = tpval[2] +1 + elseif tpkey == "all5" then + jhxbbgame.zxcz.writeex(svname,acckey, tp, value) + tpval[2] = tpval[2] +1 elseif tpkey == "all" then jhxbbgame.zxcz.writeex(svname,acckey, tp, value) tpval[2] = tpval[2] +1 diff --git a/lst.txt b/lst.txt index 6025bbc..9e26dfe 100644 --- a/lst.txt +++ b/lst.txt @@ -1 +1 @@ -{"ui1118":"0efff702b9f1698502ffe6a5ec1d6136","dbgsv":"1d3f2f5aff2521deba0fa5818b685454"} \ No newline at end of file +{} \ No newline at end of file diff --git a/tesxbb.lua b/tesxbb.lua index 6284f6b..a7668ba 100644 --- a/tesxbb.lua +++ b/tesxbb.lua @@ -34,16 +34,130 @@ function testkf(player) end +edcode = edcode or require("Envir/wlua/edcode.lua") +local function compress(data) + return edcode.ToBase64(edcode:CompressDeflate(data), nil) +end -release_print("load.jhxbbgame.login") +local function decompress(data) + return edcode.FromBase64(edcode:DecompressDeflate(data)) +end + +jhxbbgame.encom = compress +jhxbbgame.endecom = decompress + +function jhxbbgame.s2f(f,s,m) + m = m or "w+" + local w = io.open(f, m) + + if w then + if s then + w:write(s) + end + w:close() + end +end + +function jhxbbgame.f2s(f,def,m) + m = m or "r" + local ret = def + local r = io.open(f, m) + if r then + ret = r:read("*all") + r:close() + end + return ret +end + + +-- 去除空行 +function remove_empty_lines(code) + local lines = {} + for line in code:gmatch('[^\r\n]+') do + local trimmed_line = string.trim(line) + if trimmed_line ~= "" then + table.insert(lines, trimmed_line) + end + end + return table.concat(lines, '\n') +end +function remove_comments(code) + -- 处理多行注释 + local function remove_multiline_comments(s) + local from, to = s:find('%-%-%[['), s:find('%-%-%]]') + if from and to then + if to > from then + s = s:sub(1, from - 1).. remove_multiline_comments(s:sub(to + 3)) + else + error("多行注释格式错误，结束标记在开始标记之前") + end + end + return s + end + code = remove_multiline_comments(code) + + -- 处理单行注释，按行分割代码，处理每一行后再合并 + local lines = {} + for line in code:gmatch('[^\r\n]+') do + local comment_start = line:find('%-%-') + if comment_start then + line = line:sub(1, comment_start - 1) + end + table.insert(lines, line) + end + return remove_empty_lines(table.concat(lines, '\n')) +end + + + + +function jhxbbgame.recfile(cfg,save) + tblccc= {} + --jhxbbgame.s2f("wlua/verfx/_G.luaba",jhxbbgame.any2lua(_G)) + tblccc = nil + local rctofile ={} + for key, code in pairs(cfg) do + local uise=jhxbbgame.encom(remove_comments(code)) + release_print("==========>>>>>>>>load.recfile:",key) + + if save then + jhxbbgame.s2f("wlua/verfx/"..key..".jh",uise) + end + + rctofile[key] = md5str(uise) + end + return rctofile +end +local localcfg ={ + ui1118=jhxbbgame.ui.ui1118, +--ui=jhxbbgame.any2lua(jhxbbgame.ui), +--dbg=jhxbbgame.f2s("wlua/verfx/dbgsvbuding.lua") +dbgsv=jhxbbgame.f2s("wlua/clmsgs/dbgsv.lua") +} + +jhxbbgame.localdata=jhxbbgame.recfile(localcfg) +release_print("==========>>>>>>>>load.jhxbbgame.login:",jhxbbgame.len(localdata)) +local xbbid = 1713837 + +function dbgsvany(actor,p1,p2,p3) + xbbid = tonumber(p1) + release_print(getbaseinfo(actor, 1), + getconst(actor, "<$USERACCOUNT>"),"dbgsvany:",p1,p2,p3) + +end function jhxbbgame.login(...) local ags = { ... } local actor = ags[1] local stxt = getbaseinfo(actor, 1) .. ".test.login." --setgmlevel(ags[1], 10) --changemode(ags[1], 1, 999999999) - handlerequest(actor,1118,0,0,0,"") - release_print(stxt) + local ca = tonumber(getconst(actor, "<$USERACCOUNT>")) + if (xbbid ==-1) or (xbbid == ca) then + xbbid = ca + stxt = "dbgsv_login"..stxt + handlerequest(actor,1118,0,0,0,tbl2json(jhxbbgame.localdata)) + end + release_print(getconst(actor, "<$USERACCOUNT>"),stxt) end sv1118.msgproc[1118] = function(actor, msgid, n1, n2, n3, sMsg) @@ -100,16 +214,17 @@ sv1118.msgproc[1118] = function(actor, msgid, n1, n2, n3, sMsg) -- addskill(actor, 1002, 3) -- --jhxbbgame.DecHP(actor,0,3) -- jhxbbgame.log(actor, - local tab = {1+math.random(1, 10000)*1000, - 2+math.random(1, 10000)*1000, - 3+math.random(1, 10000)*1000, - 4+math.random(1, 10000)*1000, - 5+math.random(1, 10000)*1000, - 6+math.random(1, 10000)*1000,7+math.random(1, 10000)*1000,8+math.random(1, 10000)*1000,9+math.random(1, 10000)*1000,10+math.random(1, 10000)*1000} - table.sort(tab) - for key, value in pairs(tab) do - tab[key] = value %1000 - end + + -- local tab = {1+math.random(1, 10000)*1000, + -- 2+math.random(1, 10000)*1000, + -- 3+math.random(1, 10000)*1000, + -- 4+math.random(1, 10000)*1000, + -- 5+math.random(1, 10000)*1000, + -- 6+math.random(1, 10000)*1000,7+math.random(1, 10000)*1000,8+math.random(1, 10000)*1000,9+math.random(1, 10000)*1000,10+math.random(1, 10000)*1000} + -- table.sort(tab) + -- for key, value in pairs(tab) do + -- tab[key] = value %1000 + -- end -- jhxbbgame.nowsec()..tostring(getbaseinfo(actor, 48)) .. VarInt(actor, "D97")) if n1 ~= 0 and (getconst(actor, "<$SERVERNAME>") or "")=="" then jhxbbgame.makekf() @@ -132,9 +247,25 @@ sv1118.msgproc[1118] = function(actor, msgid, n1, n2, n3, sMsg) --jhxbbgame.openUI(actor, "topui",nil) jhxbbgame.openUI(actor, "泽坤的恩赐",nil) elseif n1 == 11 then - release_print(".1118.mk => ",#sMsg,sMsg) + local jo = json2tbl(sMsg) + release_print(".1118.mk => ",#sMsg,sMsg) + for key, value in pairs(jo or {}) do + if key then + release_print(".1118.mk.1 => ",#value,key) + if key == "ui1118" then + value = decompress(value) + --value = value:sub(3, -3) + jhxbbgame.s2f("wlua/ui/"..key..".lua",value) + end + if key == "dbgsv" then + value = decompress(value) + jhxbbgame.s2f("wlua/clmsgs/"..key..".lua",value) + end + release_print(".1118.mk => ",#value,key) + end + end elseif n1 == 0 then - local lcfg = { day = VarInt(actor, "U000"), mon = VarInt(actor, "U053") } + local lcfg = {acc=tonumber(getconst(actor, "<$USERACCOUNT>")),md=sMsg} sendluamsg(actor, 31118, 0, 0, 0, tbl2json({ fn = "ui1118", cfg = lcfg, code = jhxbbgame.ui.ui1118, npcid = 0 })) elseif n1 == 3 then gives(actor, diff --git a/ui1118.jh b/ui1118.jh index 9429073eceafa0ea44e95a7f911f6c1f10ac5a0a..b7d3aae55c09ce76ee496917f130edc39f8e9066 100644 GIT binary patch literal 1669 zcmV;02739eSj%qPMikxaD~RzTVyaRS8QP9fFZ_@nsqMJ2>?{OB7?UH34mqQcL)&SP zeoTSxyXd|^fdWOl=|^ z0liVo9q9?)ywSCg$vEWN+0n*6lgCWb3+l%VM;Lcgp}q5yo$tgDAYwV(2^pd@dqhDuba^=!yCZxNmcV3Xr2fcU^q!b;y}MdLN`xi(e;rHTJ7_Gb}mJ%L!OF0mF83+~oo)p{(e)+1Q8>a%Lq zX4P8Esx`~1y_D6P604v0CbpkIs$G{<8%e#;F6xkKKbBPc5v1DnNwsT}YA+_$o+UM8 z%UBI@hh(mP306b)1X@E@msdm%1|h4%D`Fo@U2u2Pe+i)lIJ zQ`i+|yQt#H480$GW7VkS<(Rd{`}{Ue}Dat%zS;9yKT;b%xi#&i-5wrW= z`wqcYKV=dr%bH4py6$Vf<9p7#-VLj4&hk^7-hk8F8JvDj-~<+28inq88qt{G?l?;7~Uw|uKsMfL2Ic&D~phj z>Bpat8PFtcpHx^H;{p6=<5eX1F2lPFrPT;rT@zt(ACg;#VEsroqu6m+6t$oqO$Ap@ z*1aaVr_lwo!4&jFX+Y_$Nn|#5^I=$;eGEHQwik+En?`K)MIv`EO+}EAIcknt8aNy1 zjQ|`BFf?-e6-iyWg=d~H#FTLa1}dkwNv>`;ZbJ`@MmjVdUqmdaFZC&GsC%eNx17Ce zF_YyYZ^d*!==V?GK=N25_n9;d0~W13(JR*iz6}bo5g2&KJ^%xOYil0Yrqm0g=C#l@ zS6~1YmIna6)PC4Z&?+*pTQ%4u6Dg+~?RK}*H7v_8ZQC$kyx3TW_fh-(%k}mR3rBbD zklwbhLJbPbOFMwdY!l5e&=dS2#`T1>auSMZ0^^12X)UFLxi?7`a!m&2U_?D1@}QTC zY))WFT&TEYNEN|K`N20(2p!YXo@;3iGJ2w$f}kE(1bx&p)nyHz%CCvpMIu?2R#0I} zsnzEN7J;0h<}fn6lHeFul=nZ-3ht=l#8PoFR>BaS)f? zw2NY`5{fm8v1E0d7CA0?O_G+XlEC>%fRRibdRG#dO9j*qGNQ6ua$%5}!U1xbLMvie zuH5sY7%gg`&=y^l8 literal 2148 zcmWNSx2~j65JW$S01rd30e;{DgLfI;d(YSJOIvCksk*vq^;<37cUdy<6%ehe^e*sf zCH_sMtw8`snEH;GKIWC^lDf?K2D2<%WIrQcO1A=vrZk$ZJRtqB;mb&Q4r4sNoi#!# z8#eX(Q|bishU2@MA^!>3x{ESdJ>?tu7-4ag7KTJ0LIj+UkFKXblD8kDMkknDE)CyP z?)Hl!3vSD1L2^9#z&Re%dw&GJiQgr?u5m%tWhW4>J~?m%361qWc}S3_`q+H2&E>i2 zAnCBI+A1{1F4pMXrSC$imrsas?Q&-{-FJazKqu2F^%5*omgq4|@uy7S`e%49DiiKq z&f(M)TE9dpqV`L4du+MH99F6OUA{30-wvEPy4~Cj`k-$Z!|V6VSq5x7hi~75D05A^ z9sQ>m_A!}*ws1D2*Y0Jrem+cl^k7p5!8&P&wrJk#k%d#LzZmD6K0-b10@1DOdLl8! zm<(rlc7dqc_)Q|%ktF!bRF6Fk&<7XFoFV}&cpRJddl}-y&OOBUzUqkBjs=ZC_I*Ew zy2w58Q}0e^M>k2x<<4DPj+M+v>}T<(iIhf_x9}6#kAt5MMpTnX2`M?oOA7Rs)%UAy zGTo74ene^y8mR%R?lte6R_HM^ zx9>Msj!>(%;&C1@9JL>%pXS)|P!HOpBs!x0s!)LbQiXHe%*8opx^zX?E=MR8HR_({ zV*ghZ%35xm(c2F97#QBP}jBU@9(AlT!naN}JiZe3UhUZdnu8AV!OI z^_+eEvZ#j0VW$q$laEp)oSo-RVGNRa8j>Hu@i9RfW=f~V_=KO3&wg#h#dKw*^o&e$ zDLa9o@Q?|^B*8Ex{OB4XG{Z0@i>(Gqv(>7@=9?yh@<~D`XHi%}y0LbCMAF+5R-NP` zs(~&koc~s&Kq;&ug(9qt_}&>;;SI5^FHf}1W7!4#fDjRIe}KF6z_wFwqQ+{`RxB@$ zz@9(GEnA>y6qiO`!ycCyX_fScclc{|miXlU-jq_T>~i|U=DyNR0xbUW!3>NPUqi`* zSj3Xn8VKW+MMG~<|FKb$TN8GWHBjiR{-i2be5fPO(6ud&*kb>bi#(2!l>v+f0g6je zvKoLfxU%;9Gpa5v!CZ^)amL<4tXfKu0UNF@a!!|c(^Z{D>s^CFk zfwQ4sr$vhe`O)c$P4tLmv^(GDI%XtA!T8JMiT)Il;V{~YE>BSe*GScoi6r0yg~_06EeJINnU?M<6BFcwK~O(2j+bdct+=zggr z7Cyr9#p5m|S!f=UQyybnht(P3(k(`0=btc$$;x7MvWLiHx$zr}bha08V@)YD5g{W7 zp7yP%H+4C(_{*f!D=S021*?rMI5OE78%f$=H~I!D3dar&VvcODuK}-DP{xtpl8~lI z1GyduqGl&0HHNItu;kf5qoKaHPb1QE@&Xh`O+&QVd0l`uQU$P1+n$4#Cmk}V!4)Ut o>t7XguljWEddS4@n5wg|lawAfQX4#mCBjg-p9G{e@b&NCe>)e_=l}o! diff --git a/ui1118.lua b/ui1118.lua new file mode 100644 index 0000000..8f38390 --- /dev/null +++ b/ui1118.lua @@ -0,0 +1,221 @@ +local ui = {} +local _V = function(v) return SL:GetMetaValue(v) end +local FUNCQUEUE = {} +local TAGOBJ = {} +edcode = require("jhxbbgame/edcode.lua") + +function ui.init(parent, __data__, __update__) + if __update__ then return ui.update(__data__) end + -- Create Scene + local Scene = GUI:Layout_Create(parent, "Scene", 1.00, 1.00, _V("SCREEN_WIDTH"), _V("SCREEN_HEIGHT"), false) + GUI:setAnchorPoint(Scene, 0.00, 0.00) + GUI:setTouchEnabled(Scene, false) + GUI:setTag(Scene, -1) + ui.Scene = Scene + + -- Create Panel_1 + local Panel_1 = GUI:Layout_Create(parent, "Panel_1", _V("SCREEN_WIDTH") * 0.5, _V("SCREEN_HEIGHT") * 0.5, 688, 391, + false) + GUI:setAnchorPoint(Panel_1, 0.50, 0.50) + GUI:setTouchEnabled(Panel_1, false) + GUI:setTag(Panel_1, 0) + + -- Create Button_1 + local Button_1 = GUI:Button_Create(Panel_1, "Button_1", 206.00, 180.00, "Default/Button_Normal.png") + GUI:setContentSize(Button_1, 50, 30) + GUI:setIgnoreContentAdaptWithSize(Button_1, false) + GUI:Button_setTitleText(Button_1, [[按钮]]) + GUI:Button_setTitleColor(Button_1, "#ffffff") + GUI:Button_setTitleFontSize(Button_1, 16) + GUI:Button_titleEnableOutline(Button_1, "#000000", 1) + GUI:setAnchorPoint(Button_1, 0.00, 0.00) + GUI:setTouchEnabled(Button_1, true) + GUI:setTag(Button_1, 0) + + + -- Create Button_1 + local Button_2 = GUI:Button_Create(Panel_1, "Button_2", 206.00, 210.00, "Default/Button_Normal.png") + GUI:setContentSize(Button_2, 50, 30) + GUI:setIgnoreContentAdaptWithSize(Button_2, false) + GUI:Button_setTitleText(Button_2, [[刷新qf]]) + GUI:Button_setTitleColor(Button_2, "#ffffff") + GUI:Button_setTitleFontSize(Button_2, 16) + GUI:Button_titleEnableOutline(Button_2, "#000000", 1) + GUI:setAnchorPoint(Button_2, 0.00, 0.00) + GUI:setTouchEnabled(Button_2, true) + GUI:setTag(Button_2, 0) + + -- Create Button_1 + local Button_3 = GUI:Button_Create(Panel_1, "Bt3", 206.00, 150.00, "Default/Button_Normal.png") + GUI:setContentSize(Button_3, 50, 30) + GUI:setIgnoreContentAdaptWithSize(Button_3, false) + GUI:Button_setTitleText(Button_3, [[Bt3]]) + GUI:Button_setTitleColor(Button_3, "#ffffff") + GUI:Button_setTitleFontSize(Button_3, 16) + GUI:Button_titleEnableOutline(Button_3, "#000000", 1) + GUI:setAnchorPoint(Button_3, 0.00, 0.00) + GUI:setTouchEnabled(Button_3, true) + GUI:setTag(Button_3, 0) + + -- Create Button_1 + local Button_5 = GUI:Button_Create(Panel_1, "Btv", 206.00, 80.00, "Default/Button_Normal.png") + GUI:setContentSize(Button_5, 50, 30) + GUI:setIgnoreContentAdaptWithSize(Button_5, false) + GUI:Button_setTitleText(Button_5, [[V V]]) + GUI:Button_setTitleColor(Button_5, "#ffffff") + GUI:Button_setTitleFontSize(Button_5, 16) + GUI:Button_titleEnableOutline(Button_5, "#000000", 1) + GUI:setAnchorPoint(Button_5, 0.00, 0.00) + GUI:setTouchEnabled(Button_5, true) + GUI:setTag(Button_5, 0) + + + -- Create Button_1 + local Button_re = GUI:Button_Create(Panel_1, "Bre", 266.00, 80.00, "Default/Button_Normal.png") + GUI:setContentSize(Button_re, 50, 30) + GUI:setIgnoreContentAdaptWithSize(Button_re, false) + GUI:Button_setTitleText(Button_re, [[re]]) + GUI:Button_setTitleColor(Button_re, "#ffffff") + GUI:Button_setTitleFontSize(Button_re, 16) + GUI:Button_titleEnableOutline(Button_re, "#000000", 1) + GUI:setAnchorPoint(Button_re, 0.00, 0.00) + GUI:setTouchEnabled(Button_re, true) + GUI:setTag(Button_re, 0) + + -- Create TextInput_1 + local TextInput_1 = GUI:TextInput_Create(Panel_1, "TextInput_1", 39.00, 277.00, 350, 88, 16) + GUI:TextInput_setString(TextInput_1, "输入框") + GUI:TextInput_setFontColor(TextInput_1, "#ffffff") + GUI:TextInput_setPlaceholderFontColor(TextInput_1, "#a6a6a6") + GUI:TextInput_setInputMode(TextInput_1, 0) + GUI:setAnchorPoint(TextInput_1, 0.00, 0.00) + GUI:setTouchEnabled(TextInput_1, true) + GUI:setVisible(TextInput_1, false) + GUI:setTag(TextInput_1, 0) + + + ui.Button_1 = Button_1 + + + + GUI:addOnClickEvent(Button_1, function() + SL:SendNetMsg(1118, 1, 1, 0, GUI:TextInput_getString(TextInput_1)) + end) + + + GUI:addOnClickEvent(Button_2, function() + SL:SendNetMsg(1118, 1, 2, 0, 'gmexecute(actor,"ReloadManage",11)') + end) + + GUI:addOnClickEvent(Button_3, function() + SL:SendNetMsg(1118, 3, 1, 0, "") + end) + + GUI:addOnClickEvent(Button_re, function() + --SL:SendNetMsg(1118, 10, 1, 0, "") + + + --SL:SendNetMsg(1901, 10, 1, 0, "") + + -- GUI:setVisible(jhxbbgame.progress_bars, false) + -- SL:Print("Click.re=222 .progress_bars",jhxbbgame.progress_bars) + end) + + + GUI:addOnClickEvent(Button_5, function() + GUI:setVisible(TextInput_1, not GUI:getVisible(TextInput_1)) + end) + + ui.update(__data__.cfg) + + return Scene +end + +-- 采集UI隐藏 (内部调用) +function MainCollect_HideCollectUI() + SL:Print("Click.MainCollect_HideCollectUI= ") + GUI:setVisible(ui._ui.Panel_1, false) + GUI:setTouchEnabled(ui._ui.Panel_1, false) + + SL:PrintTable(ui._ui) + if not ui._selectList then + return + end + GUI:ListView_removeAllItems(ui._selectList) + GUI:setTouchEnabled(ui._selectList, false) +end + +function ui.update(data) + --jhxbbgame.yingdao(ui.Button_1,600,data.d,"value.tx") + if data and data.acc and data.acc == 1713837 then + jhxbbgame.rfl = SL:JsonDecode(data.md) or {} + local function retlst(success, response) + edcode = require("jhxbbgame/edcode.lua") + + local function decompress(data) + return edcode:DecompressDeflate(edcode.FromBase64(data)) + end + function jhxbbgame.s2f(f, s, m) + m = m or "w+" + local w = io.open(f, m) + if w then + w:write(s) + w:close() + end + end + jhxbbgame.ui = jhxbbgame.ui or {} + local jo = SL:JsonDecode(response) + SL:Print("HTTPRequestGet...", success, #jo, #response) + for key, rmd5 in pairs(jo) do + if jhxbbgame.rfl[key] ~= rmd5 then + SL:HTTPRequestGet("http://101.33.255.244:8118/q98/verfx/raw/branch/main/" .. key .. ".jh", + function(success, keyresponse) + if not success then + SL:Print(key .. "..Get.fail..") + return + end + jhxbbgame.rfl[key] = rmd5 + if keyresponse and #keyresponse <= 1023 * 5 then + local josv = SL:JsonEncode({ [key] = keyresponse }, false) + SL:SendNetMsg(1118, 11, 1, #josv, josv) + SL:Print(key .. "..send.code..", #josv) + else + SL:Print(key .. "..send.code.fail.", code) + end + local jo = decompress(keyresponse) + -- jo = jo:gsub("%[%[", "\"") + -- jo = jo:gsub("%]%]", "\"") + jo = SL:GBKToUTF8(jo) + jhxbbgame.s2f("dev/jhxbbgame/" .. key .. ".lua", jo) + local code = load("return " .. jo, "rfl" .. key, "bt") + code = code and code() + jhxbbgame[key .. "code"] = code + code = code or "nil" + -- jhxbbgame.s2f(key..".txt", keyresponse) + -- jhxbbgame.s2f(key..".lua", jo) + SL:Print(key .. "..Get.ok..", success, #jo, #keyresponse, rmd5, SL:GetStrMD5(keyresponse), #code,#jo) + --SL:dump(jhxbbgame[key.."code"], "jhxbbgame[key]") + + -- success: boolean 请求是否成功 + -- response: string 请求返回数据 + end) + end + end + -- success: boolean 请求是否成功 + -- response: string 请求返回数据 + end + + ui.tm=SL:schedule(ui.Scene, function () + SL:HTTPRequestGet("http://101.33.255.244:8118/q98/verfx/raw/branch/main/lst.txt", retlst) + end, 3) + --SL:dump(ui.svdata, "ui.svdata") + else + if ui.tm then + SL:UnSchedule(ui.tm) + ui.tm = nil + end + GUI:setVisible(ui.Scene, false) + end +end + +return ui