发新话题
打印

[魔力私服分享] LUA腳本 簡易生蛋 道具參數LUA_usePetEgg

LUA腳本 簡易生蛋 道具參數LUA_usePetEgg

今天分享一個寫出來 很簡單的腳本
1 W: K: E2 t! o' X( F6 e# M( P' C+ V4 c魔力私服,最新魔力宝贝私服技术交流妖城在线论坛3 W9 v! D1 _$ d! m& r; b
這個腳本 可以拿來做為 道具參數的呼應 參考文章吧?
# y1 }# O8 d1 Q0 B0 V9 P6 c魔力私服,最新魔力宝贝私服技术交流懂得應用的話 可以弄成各種東西=""=
' _+ k8 }! W6 B0 J2 I$ ?( d妖城在线论坛
% f$ Y* n1 m" l6 g2 J; c) H2 n& F
: W: @. r9 X0 S9 K) M3 Y  s魔力私服,最新魔力宝贝私服技术交流妖城在线论坛* Z& k. j* z+ \  p6 y' H9 L# b+ D7 r
我們通常要寫寵物蛋  
! F, c' k8 z: x) O  ?2 |* P魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表都會反覆的在 npc 底下 新增對應的txt 檢查道具 刪除道具 產生寵物 , Q3 D6 s% O$ `4 X
可是對我來說 繁瑣的去新增txt 煩煩的=""=
; k1 w1 G7 a% p* F, P魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表+ Z' z" F5 j, Z- |1 z
所以就寫了 一個簡易生蛋的功能,下面附上GBK的檔案~((轉檔沒測試過 有問題在跟我講—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート/ n$ ?( X0 q) E- U/ L9 D6 K4 Q: g( t5 z

% Z* x! I7 l  G9 c% m& O$ Y魔力私服,最新魔力宝贝私服技术交流【示演】
8 Q3 f0 y) n# }( C0 x妖城在线论坛在道具itemset.txt新增LUA_usePetEgg類型的道具魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表! \! [* @% U' f4 s; |$ H
參數 則設定enemy裡頭的怪物ID 下方參數 設定 1  代表虎人編號
+ p9 W0 W- M3 ^魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表套用LUA後 以後只要新增itemset.txt 就可以了~~~
2 t7 ]8 W3 H' n5 L6 z魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート0 q  F5 |7 ^( S# ]3 H+ l3 S
妖城在线论坛& E  _0 w3 E2 T
蛋?        虎人的蛋        1                        LUA_usePetEgg                                                90001078        99451        0        43                0        1        0        93        1        1        1        1                                                0        0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                0        0        1                        0                        100        0        0                        0—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート6 v! f& }; H) N6 d+ K

6 d+ f+ F+ B3 @6 `; }1 O妖城在线论坛
8 }- @: U. o  C; ?- T0 p) Y妖城在线论坛【腳本內容】
复制内容到剪贴板
代码:
--2016/04/27 阿晉
--简易生蛋功能
--
--
--免新增npc底下 生蛋脚本 直接透过item参数诞生宝宝
--
--注册一个道具使用参数
NL.RegItemString(nil, "PetEgg", "LUA_usePetEgg");


function PetEgg(player,toplayer,itemSlot)
--取到道具的自定參數
local ItemIndex=Char.GetItemIndex(player,itemSlot);
--复制内值
local itemval=Item.GetData(ItemIndex,%道具_自用参数%);



if(Char.PetNum(player)==5)then
NLG.SystemMessage(player,"宠物栏已满,无法使用。");
return;
end


Item.Kill(player,ItemIndex,itemSlot);
Char.GivePet(player,itemval,0);
--Char.GivePet(player,itemval,1);--满档


end
【後記】
" `3 @* V: l0 }$ U* O7 bbbs.mocwww.com
# r  @- L- a& @—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート1.這個蛋只會檢查是否 有寵物欄空間bbs.mocwww.com/ |- T3 ~+ O% d* T( y, P& ?
2.請勿讓他堆疊 刪除道具 是刪除那一整格 而非數量  否則可能整格蛋 刪光光
9 J% M7 a. t# {5 m0 Ubbs.mocwww.com3.符合寵物空間 刪除道具 產生寵物妖城在线论坛: b( y9 V: j! ]# y# S
4.Char.GivePet(player,itemval,1); 更改這個可以產生 滿檔寶寶
2 N* m  N6 ^1 b2 `& y; Q3 E$ `妖城在线论坛5.另外  這個lua產生的效果很陽春-..-沒有窗口
5 }  ?1 @9 B; H" ?7 h/ o魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* \5 n/ N% |1 n7 S- c3 F
妖城在线论坛" w4 T+ b9 A6 v
【安裝方法】
0 y& J2 H4 q7 {; j$ H8 r  \妖城在线论坛1.版本確認 GA版本
+ ^1 Z# U2 k! f1 e0 ^6 N魔力私服,最新魔力宝贝私服技术交流2.把PetEgg.lua 丟到 lua\Module 下面妖城在线论坛, ]+ }  c& l% ~) ]
3.Config內新增
: U3 k9 J) O- s' |4 n9 y—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲートuseModule("PetEgg");
9 `; P* Z  e) N! r$ [- z- [bbs.mocwww.com—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート: [" ~6 M: U+ f- r% B1 p
[ 本帖最后由 jeff10363 于 2016-4-27 13:53 编辑 ]

附件

PetEgg.rar (500 Bytes)

2016-4-27 11:18, 下载次数: 248

TOP

感谢分享,我抛装引玉一下。。。。因为这个道具功能,我当初也做过。不过因为引擎不一样,所以我下面发的代码仅供参考~~
妖城欢迎您!

TOP

道具使用事件代码:
复制内容到剪贴板
代码:
--_player:使用道具的角色
--_item:使用道具的索引实例
--_slot:被使用道具所在栏位
--返回值:1表示正常使用道具,0表示禁止使用道具

function RItemUseEvent(_player,_item,_slot)
        --容错
        if _slot < 0 or _slot > 27 then
                return 0;
        end
        if _item == -1 then
                return 0;
        end
       
        --判断是否已鉴定
        if Item.GetData(_item,%ITEM_LEAKLEVEL%) == 0 then
                NLG.SystemMessage(_player,"未鉴定道具不可使用");
                return 0;
        end
       
        local _itemid = Item.GetData(_item,%ITEM_ID%);
        local _itemname = Item.GetData(_item,%ITEM_TRUENAME%);
        local _itemusefunc = Item.GetData(_item,%ITEM_USEFUNC%);

        --给予宠物,参数有一个或者两个:宠物编号,是否满档
        if _itemusefunc == "LUA_useGivePet" then
                Char.SetData(_player,LuaSetup.TMP_ItemSelect,_slot);
                NLG.CallNpcTalked(tbl_npc.GivePetNpc_id16,_player);
                return 1;
        end;
       
        return 1;       
end
功能NPC的实现代码
复制内容到剪贴板
代码:
--GivePet——GivePetNpc_id16——Lua脚本
function GivePetNpc_id16_Talked(_npc,_player)
        --判断玩家身上是否有足够的宠物栏空位
        if Char.PetSpace(_player) == 0 then
                MyFun.EndWindow(_player,"\\n\\n\\n\\n@c您的宠物栏满了,请先整理!");
                return;
        end
        --验证缓存的道具
        local _item = MyFun.CheckItemBuffer(_player,"LUA_useGivePet");
        if _item == nil then
                return;
        end;
        local _itemname = Item.GetData(_item,%ITEM_TRUENAME%);
        local _arg = Item.GetData(_item,%ITEM_ARGUMENT%);
        local _argstl = MyFun.Split(_arg,",");
        local _enemyid = tonumber(_argstl[1]);
        if _enemyid == nil then
                MyFun.EndWindow(_player,"\\n\\n\\n\\n@c道具参数有误,请截图联系GM\\nError:LUA_useGivePet");
                return;
        end
        local _full = 0;
        if (#_argstl == 2) and (_argstl[2] == "1") then
                _full = 1;
        end
        local _enemyindex = Data.GetIndex(%FILE_ENEMY%,_enemyid);
        if _enemyindex == nil then
                return;
        end
        local _enemybaseid = Data.GetInt(%FILE_ENEMY%,_enemyindex,%ENEMYDATA_TEMPNO%);
        local _enemybaseindex = Data.GetIndex(%FILE_ENEMYBASE%,_enemybaseid);
        local _enemylv = Data.GetInt(%FILE_ENEMY%,_enemyindex,%ENEMYDATA_LV_MAX%);
        if _enemybaseindex == nil then
                return;
        end
        local _enemybasename = Data.GetChar(%FILE_ENEMYBASE%,_enemybaseindex,%E_T_NAME%);
        local _str = "\\n\\n    您确定要使用“".._itemname.."”吗?\\n"
                .."\\n        召唤魔族:".._enemybasename
                .."\\n        魔族等级:".._enemylv.."级";
        if _full == 1 then
                _str = _str.."\\n        魔族档次:满档";
        else
                _str = _str.."\\n        魔族档次:随机档";
        end
        NLG.ShowWindowTalked(_player,_npc,%WINDOW_MESSAGETYPE_MESSAGE%,%BUTTON_OK_CANCEL%,LuaSetup.MySeqno+1,_str);
        return;
end

function GivePetNpc_id16_WTalked(_npc,_player,_seqno,_select,_data)

        local _seqno = _seqno - LuaSetup.MySeqno;

        --验证缓存的道具
        local _item = MyFun.CheckItemBuffer(_player,"LUA_useGivePet");
        if _item == nil then
                return;
        end;
        local _itemid = Item.GetData(_item,%ITEM_ID%);
        local _arg = Item.GetData(_item,%ITEM_ARGUMENT%);
        local _argstl = MyFun.Split(_arg,",");
        local _enemyid = tonumber(_argstl[1]);
        local _full = 0;
        if (#_argstl == 2) and (_argstl[2] == "1") then
                _full = 1;
        end
       
        if (tonumber(_seqno)==1) then
                if (tonumber(_select) == %BUTTON_OK%) then
                        Char.DelItem(_player,_itemid,1);
                        local _pet = Char.GivePet(_player,_enemyid,_full);
                        if _pet ~= nil then
                                NLG.SystemMessage(_player,"获得了宠物『"..Char.GetData(_pet,%CHAR_Name%).."』");
                                NLG.UpChar(_pet);
                        end
                        return;
                else
                        return;
                end
                return;
        end
        return;
end


function GivePetNpc_id16_LoopEvent(_npc)
        return;
end
创建这个功能NPC的createnpc代码
复制内容到剪贴板
代码:
--GivePet——GivePetNpc_id16

function GivePetNpc_id16_Create()
        if (GivePetNpc_id16 == nil) then
                GivePetNpc_id16 = NL.CreateNpc("GivePet",100453,0,779,0,11,4);
                tbl_npc.GivePetNpc_id16=GivePetNpc_id16;
                Char.SetTalkedEvent("lua/Npc/GivePet_id16.lua","GivePetNpc_id16_Talked", GivePetNpc_id16);
                Char.SetWindowTalkedEvent(nil,"GivePetNpc_id16_WTalked", GivePetNpc_id16);
                --Char.SetLoopEvent(nil,"GivePetNpc_id16_LoopEvent", GivePetNpc_id16,1000);
        end
end
itemset数据范例—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート# w- [6 e& ?, U/ x) A
召唤卡?        『满档黄蜂』召唤卡        314,1                        LUA_useGivePet                                                60501        27489                26                0        1        0        0        1        1        1        1        0                                        0        0                                                                                                                                                                                                                                                                                                                                                                                                                                                                                0        1        0                        0        605011        605011        100        0        0                        0
# `+ B0 p6 ~, f7 g7 u5 {( u1 p: n比如参数直接写314就是随机档次了,314,1就是满档bbs.mocwww.com9 |, d* n7 j# |2 \1 D5 ^

$ L7 n" X8 q$ u& F5 a—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート确实比较方便
0 A1 G" i. R& H, z% L( ^6 v妖城在线论坛
妖城欢迎您!

TOP

感謝站長提供 語法參照魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表, G" d* S. i! S0 [
哈 原來拖GA接口的福 才可以寫的這麼簡短
, y) {& `* U1 ~- X3 ?* Z; l妖城在线论坛
1 j! @' o( C. ?  d/ }& R妖城在线论坛妖城在线论坛# {* Z  q% J! [# a4 Y# H
現在還在試寫-...-妖城在线论坛( |/ H, ]9 V0 e: k
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表* ^; Z: \, M9 y* E9 {$ w9 Y
1.寵物技能捲軸(點寵 開窗 選寵學)   & j1 C' T# f. X5 {
    學習特殊技能使用..
( K  M2 u8 {$ Y, i5 ]' j" ~魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表=>不用開 寵技npc % V& A- {& P5 U7 e/ m( y6 ^
還怕別人一次學五隻. t3 `- l: H- ]0 }6 H, L5 T
或是另外做一個獨立 隔開的地圖 來限制
3 `; z( u! H8 y魔力私服,最新魔力宝贝私服技术交流
" n; Z5 o* h% _1 ?! D$ r—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2.封印盒子
/ O6 H+ r& j4 g1 F4 h魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  把不可交異的東西  水鏡、哥、弟戒、放大鏡8 E6 F3 U4 X# z& [
裝進去 只有本人(檢查CDK 跟 角色ID)
/ A, c& b8 t  F2 e/ p5 d) |# a妖城在线论坛才可以打開    方便收到分身那 節省道具攔空間
2 J/ O& C# C1 u1 ]
9 ^; t+ R( a7 P, s3 ]  |& k妖城在线论坛[ 本帖最后由 jeff10363 于 2016-4-27 14:09 编辑 ]

TOP

复制内容到剪贴板
代码:
--宠物技能学习——Pet_AddSkillNpc_id13——Lua脚本
--道具参数格式:techid,cost
--cost可选,不填写,则表示免费,如果填写-1则表示使用tech.txt中定义的价格
function Pet_AddSkillNpc_id13_Talked(_npc,_player)
        local _str = MyFun.ShowSelectPetstr(_player,"学习技能");
        NLG.ShowWindowTalked(_player,_npc,%WINDOW_MESSAGETYPE_SELECT%,%BUTTON_CANCEL%,LuaSetup.MySeqno+1,_str);
        return;
end

function Pet_AddSkillNpc_id13_WTalked(_npc,_player,_seqno,_select,_data)
        local _seqno = _seqno - LuaSetup.MySeqno;
       
        --验证缓存的道具
        local _item = MyFun.CheckItemBuffer(_player,"LUA_usePetAddSkill");
        if _item == nil then
                return;
        end;
        local _arg = Item.GetData(_item,%ITEM_ARGUMENT%);
        local _argstl = MyFun.Split(_arg,",");
        local _techid = tonumber(_argstl[1]);
        local _needgold = 0;
        local _techindex = Data.GetIndex(%FILE_TECH%,_techid);
        if _techindex == nil then
                MyFun.EndWindow(_player,"\\n\\n\\n\\n@c技能ID错误,请截图联系GM");
                return;
        end
        local _techname = Data.GetChar(%FILE_TECH%,_techindex,%TECH_NAME%);
        if #_argstl == 2 then
                if tonumber(_argstl[2]) ~= -1 then
                        _needgold = tonumber(_argstl[2]);
                else
                        local _techcost = Data.GetInt(%FILE_TECH%,_techindex,%TECH_COST%);
                        if _techcost ~= "" then
                                _needgold = tonumber(_techcost);
                        end
                end
        end

        --选择宠物后确认
        if (tonumber(_seqno)==1 and _data~=nil) then
                if tonumber(_select) == %BUTTON_CANCEL% then
                        return;
                end
               
                --容错
                if MyFun.CheckSelectWindowData(_player,_data,5) == false then
                        return;
                end
                local _petpos = tonumber(_data) - 1;
                local _pet = Char.GetPet(_player,_petpos);
                if _pet == nil then
                        MyFun.EndWindow(_player,"\\n\\n\\n\\n@c您选择的位置没有宠物,请重新选择!");
                        return;
                end
                --这里加一个验证,禁止部分宠物学习指定技能
                if (Char.GetData(_pet,%PET_PetId%) >= 20921) and (Char.GetData(_pet,%PET_PetId%) <= 20924) and (_techid == 8900) then
                        MyFun.EndWindow(_player,"\\n\\n\\n\\n@c很抱歉,出生系列牛头怪禁止学习宠物邮件");
                        return;
                end
                               
                local _itemname = Item.GetData(_item,%ITEM_TRUENAME%);
                local _petname = Char.GetData(_pet,%CHAR_Name%);
                local _petlv = Char.GetData(_pet,%CHAR_Lv%);
                Char.SetData(_player,LuaSetup.TMP_PetSelect,_petpos);
                local _str = "\\n\\n   已选宠物:".._petname.."\\n   当前等级:".._petlv.." 级\\n\\n   您确定要让这只宠物学习新技能——\\n       “".._techname.."”吗?";
                if _needgold > 0 then
                        _str = _str.."\\n   这将需要花费".._needgold.."G";
                end
                NLG.ShowWindowTalked(_player,
                                _npc,
                                %WINDOW_MESSAGETYPE_MESSAGE%,
                                %BUTTON_YES_NO%,
                                LuaSetup.MySeqno+2,
                                _str);
                return;
        end
       
        --进行学习技能操作
        if (tonumber(_seqno)==2) then
                if tonumber(_select) == %BUTTON_NO% then
                        --将缓存释放
                        Char.SetData(_player,LuaSetup.TMP_ItemSelect,0);
                        Char.SetData(_player,LuaSetup.TMP_PetSelect,0);
                        return;
                end
               
                local _pet = MyFun.CheckPetBuffer(_player);
                if _pet == nil then
                        return;
                end
               
                local _petname = Char.GetData(_pet,%CHAR_Name%);
                local _petlv = Char.GetData(_pet,%CHAR_Lv%);

                local _itemid = Item.GetData(_item,%ITEM_ID%);
                if Char.ItemNum(_player,_itemid) > 0 then
                        --先判断金币是否充足
                        if Char.GetData(_player,%PLAYER_Gold%) < _needgold then
                                MyFun.EndWindow(_player,"\\n\\n\\n\\n@c您的魔币不足以支付该技能学习费用!");
                                return;
                        end
                        --尝试学习技能
                        local _ret = Pet.AddSkill(_pet,_techid);
                        if _ret == nil then
                                MyFun.EndWindow(_player,"\\n\\n\\n\\n@c学习失败,可能宠物的技能已满了!");
                                return;
                        end       
                        Char.DelItem(_player,_itemid,1);--删除道具
                        if _needgold > 0 then
                                Char.AddGold(_player,-_needgold);
                        end
                        NLG.UpChar(_pet);
                        NLG.SystemMessage(_player,"[系统提示] 您的宠物“".._petname.."”已成功习得新技能“".._techname.."”");       
                        --将缓存释放
                        Char.SetData(_player,LuaSetup.TMP_ItemSelect,0);
                        Char.SetData(_player,LuaSetup.TMP_PetSelect,0);
                        return;
                end
        end   
        return;
end


function Pet_AddSkillNpc_id13_LoopEvent(_npc)
        return;
end
复制内容到剪贴板
代码:
--组合宠物选择框
function MyFun.ShowSelectPetstr(_player,_keystr)
        local _keystrnew = "操作";
        if _keystr ~= nil then
                _keystrnew = _keystr;
        end
        local _str = "3|\\n\\n     请选择您要".._keystrnew.."的宠物!\\n\\n";
        local _str2 = "";
        local _str3 = "";
        for i=0,4 do
                local _pet = Char.GetPet(_player,i);
                if (_pet == nil) then
                        _str = _str .. "     *空*\\n";
                else
                        _str2 = Char.GetData(_pet,%CHAR_Name%);
                        _str2 = "     "..string.format("%-20s",_str2);
                        _str3 = "LV"..Char.GetData(_pet,%CHAR_Lv%);
                        _str2 = string.format("%20s",_str2);
                        _str = _str.._str2.._str3.."\\n";
                end
        end
        return _str;
end
复制内容到剪贴板
代码:
--验证缓存的所选择宠物
function MyFun.CheckPetBuffer(_player)
        local _slot = Char.GetData(_player,LuaSetup.TMP_PetSelect);
        if _slot < 0 or _slot > 4 then
                MyFun.EndWindow(_player,"\\n\\n\\n\\n@c宠物栏异常,请截图联系GM");
                return;
        end
        local _pet = Char.GetPet(_player,_slot)
        if _pet == nil then
                MyFun.EndWindow(_player,"\\n\\n\\n\\n@c您所选择的宠物异常,请截图联系GM");
                return;
        else
                return _pet;
        end

end
复制内容到剪贴板
代码:
--分割字符串
function MyFun.Split(szFullString, szSeparator)
        local nFindStartIndex = 1;
        local nSplitIndex = 1;
        local nSplitArray = {};
        while true do
                local nFindLastIndex = string.find(szFullString, szSeparator, nFindStartIndex);
                if not nFindLastIndex then
                        nSplitArray[nSplitIndex] = string.sub(szFullString, nFindStartIndex, string.len(szFullString));
                        break;
                end
                nSplitArray[nSplitIndex] = string.sub(szFullString, nFindStartIndex, nFindLastIndex - 1);
                nFindStartIndex = nFindLastIndex + string.len(szSeparator);
                nSplitIndex = nSplitIndex + 1;
        end
        return nSplitArray;

end

--结束窗口
function MyFun.EndWindow(_player,_str)
        local _fd = Char.GetData(_player,%PLAYERWORK_Fd%);
        local _objindex = Char.GetData(_player,%CHARWORK_ObjIndex%);
        Protocol.WN_Send(_fd,%WINDOW_MESSAGETYPE_MESSAGE%,%BUTTON_OK%,LuaSetup.EndWindowSeqno,_objindex,_str);
        return;
end

--判断选择窗口异常
function MyFun.CheckSelectWindowData(_player,_data,_max)
        if  (_data == "") or (_data == nil) or (tonumber(_data) == nil) then
                MyFun.EndWindow(_player,"@c\\n\\n\\n\\n异常选项处理失败,请截图联系客服!");
                return false;
        end
        if (tonumber(_data) > _max or tonumber(_data) < 1) then
                MyFun.EndWindow(_player,"@c\\n\\n\\n\\n异常选项处理失败,请截图联系客服!");
                return false;
        end
        return true;
end
妖城欢迎您!

TOP

发新话题