妖城在线论坛 - Powered by Discuz! Board

标题: [提问] 求助一个弄了好久没弄出来的效果 [打印本页]

作者: orochi0531 时间: 2016-4-28 09:58 标题: 求助一个弄了好久没弄出来的效果

复制内容到剪贴板

代码:

NL.RegPartyEvent(nil,"MyPartyEvent");

--Delegate.RegInit("Mypart_Init");



function MyPartyEvent(CharIndex, TargetCharIndex, Type)

        Char.SetWindowTalkedEvent(nil, "MypartM_WindowTalked", CharIndex);

        if(Type==0)then

                local msg = "\\n\\n"..Char.GetData(CharIndex,%对象_名字%).." 申请加入您的队伍。\\n\\n是否同意其入队申请呢？\\n\\n同意入队请选择『是』，拒绝入队请选择『否』。\\n"

                local addpartymsg = NLG.ShowWindowTalked(TargetCharIndex,CharIndex,%窗口_信息框%,%按钮_是否%,1,msg);

                --MypartM_sg(Mypart_index, TargetCharIndex);

                --MypartM_WindowTalked(CharIndex, TargetCharIndex,1,%按钮_否%,msg);

                return 0;

        end

        return 1;

end





-- function MypartM_sg(_NpcIndex,_PlayerIndex)





                -- local msg = "\\n\\n"..Char.GetData(_PlayerIndex,%对象_名字%).." 申请加入您的队伍。\\n\\n是否同意其入队申请呢？\\n\\n同意入队请选择『是』，拒绝入队请选择『否』。\\n"

                -- local addpartymsg = NLG.ShowWindowTalked(_PlayerIndex,_NpcIndex,%窗口_信息框%,%按钮_是否%,1,msg);

                -- return;

-- end





function MypartM_WindowTalked(_me,_tome,_seqno,_select,_data)

        --NLG.SystemMessage(_me,_select);

        if(tonumber(_seqno)==1 and tonumber(_select)==%按钮_否% and _data~="")then

                NLG.SystemMessage(_me,"队长拒绝了您的入队申请！");

                return;

        end

        --Char.JoinParty(_me,_tome);



        return;

end



-- function initmypart_Init(index)

        -- return 1;

-- end



-- function Mypart_create()

        -- if (Mypart_index == nil) then

                -- Mypart_index = NL.CreateNpc(nil, "initmypart_Init");

                -- Char.SetData(Mypart_index,%对象_形象%,10414);

                -- Char.SetData(Mypart_index,%对象_原形%,10414);

                -- Char.SetData(Mypart_index,%对象_X%,18);

                -- Char.SetData(Mypart_index,%对象_Y%,1);

                -- Char.SetData(Mypart_index,%对象_地图%,777);

                -- Char.SetData(Mypart_index,%对象_方向%,4);

                -- Char.SetData(Mypart_index,%对象_名字%,"组队离队NPC");

                -- NLG.UpChar(Mypart_index);

                ----Char.SetTalkedEvent(nil, "MypartM_sg", Mypart_index);

                -- Char.SetWindowTalkedEvent(nil, "MypartM_WindowTalked", Mypart_index);

        -- end

-- end

-- function Mypart_Init()

        -- Mypart_create();

        

-- end

就是点组队后，队长会弹出是否同意组队的对话框，但是，我弄了好久没解决如何触发队长的选择，用npc的方式触发失败，至今没解决，希望知道的帮忙解决下啊。截图在我另一个帖子有发过的。

作者: jeff10363 时间: 2016-4-28 10:30 标题: 回复阁楼的帖子

剛想想因該是寫的順序跟對象錯亂我讀到後面已經分不出哪個參數是哪個參數
本來想說可以用全域變數驗證可是我在上班沒辦法測試XD x( `9 o, J2 z2 Z4 Y

你看這樣可不可以魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 N$ V+ \, L3 X( J( @' w& K

大概看一下，不能實際測試=A=

复制内容到剪贴板

代码:

---產生組隊處發    自己  對方  自己鍵值







function MyPartyEvent(CharIndex, TargetCharIndex, Type)



--如果自己傳達 +入組隊

        if(Type==0)then





--讓對方執行NPC窗口

----------------NPC窗口 (NPC本體,觸發者)

                MypartM_sg(Mypart_index,TargetCharIndex);

                return 0;

        end

        return 1;

end







--NPC窗口   抓出NPC本身.觸發者  這邊觸發者 變成 被要求組隊的那個人

function MypartM_sg(_NpcIndex,_PlayerIndex)



                local msg = "\\n\\n"..Char.GetData(CharIndex,%对象_名字%).." 申请加入您的队伍。\\n\\n是否同意其入队申请呢？\\n\\n同意入队请选择『是』，拒绝入队请选择『否』。\\n"





                NLG.ShowWindowTalked(_PlayerIndex,_NpcIndex,%窗口_信息框%,%按钮_是否%,1,msg);



end









--NPC AI行為模式  (_NpcIndex,_PlayerIndex,_SeqNo,_Select,_data)







--這裡怪怪的~~~ _me 因該為NPC本身吧,   CharIndex為最初觸發者 要求組隊的人 不知道可不可傳達到這裡



function MypartM_WindowTalked(_me,_tome,_seqno,_select,_data)



--窗口

        if(tonumber(_seqno)==1 and tonumber(_select)==%按钮_否% and _data~="")then

                --NLG.SystemMessage(_me,"队长拒绝了您的入队申请！"); <--對象好像不正確



                NLG.SystemMessage(CharIndex,"队长拒绝了您的入队申请！");--CharIndex

                return;

        end





        Char.JoinParty(CharIndex,_tome);



        return;

end

[ 本帖最后由 jeff10363 于 2016-4-28 11:00 编辑 ]

作者: 易凡 时间: 2016-4-28 13:23

这种需要加一个临时表来存储

否则Char.JoinParty(CharIndex,_tome);函数会反复触发组队事件。

作者: 易凡 时间: 2016-4-28 13:43

复制内容到剪贴板

代码:

--组队事件

--_player：主动组队的玩家

--_toplayer：被组队的玩家

--_type：0:加入组队，1:离开组队



tbl_party_check = {};



function RPartyEvent(_player,_toplayer,_type)

        if (tbl_party_check[Char.GetData(_player,%对象_账号%)] ~= nil) then

                if (tbl_party_check[Char.GetData(_player,%对象_账号%)] == _toplayer) then

                        tbl_party_check[Char.GetData(_player,%对象_账号%)] = nil;

                        return 1;

                end

        end

        if (_type==0) then

                local msg = "\\n\\n"..Char.GetData(_player,%对象_名字%).." 申请加入您的队伍。\\n\\n是否同意其入队申请呢？\\n\\n同意入队请选择『是』，拒绝入队请选择『否』。\\n";

                tbl_party_check[Char.GetData(_toplayer,%对象_账号%)] = _player;

                NLG.ShowWindowTalked(_toplayer,tbl_npc["id69"],%窗口_信息框%,%按钮_是否%,1,msg);

                return 0;

        end

        return 1;

end

复制内容到剪贴板

代码:

--测试——TestNpc_id69——Lua脚本

function TestNpc_id69_Talked(_npc,_player)

        return;

end



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

        local _checkplayer = tbl_party_check[Char.GetData(_player,%对象_账号%)];

        if (tonumber(_seqno)==1) then

                if (tonumber(_select) == %按钮_是%) then

                        tbl_party_check[Char.GetData(_checkplayer,%对象_账号%)] = _player;

                        Char.JoinParty(_checkplayer,_player);

                else

                        NLG.SystemMessage(_checkplayer,"队长拒绝了你的组队申请");

                end

                return;

        end

        return; 

end

作者: 易凡 时间: 2016-4-28 13:44

这样就可以了。新建立一个NPC，用来触发弹窗事件。魔力私服,最新魔力宝贝私服技术交流7 H2 T' Q G. p% U- ~
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 s8 W- I( W, g$ E9 V# F
然后加一个临时表，用来缓存对象实例

作者: orochi0531 时间: 2016-4-29 11:12

测试了下，组队部分弹出对话框后，队长这边没点同意的情况下，这个队长点别人组队的话，会直接组进去

作者: jeff10363 时间: 2016-4-29 13:16

我昨天在完善踢人的那個LUA="""=  跟你一樣的情況魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表% {/ C% o2 a6 [1 Y
% l+ i/ u* k5 s0 e9 [+ U
結果發現你每多一個確認框  魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表  s; v) e" R; j# U8 O% d
所以你就要多一個判斷是不是跟一開始的人相同妖城在线论坛" I/ u& D$ O$ @/ ]# D1 I

不然在確認界面 "還沒按下按鈕前" 會有一堆變數一堆可能性會產生BUGbbs.mocwww.com# B- `( R  t3 s1 u) N5 r: B0 z( R) F

越多視窗越多判斷-..-

作者: ﹎▓ヾ僤莼べ 时间: 2016-4-29 22:39

随便写的，没怎么测试。。魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表& M+ C- p8 I/ B# C
妖城在线论坛" E4 o0 e$ w. T) V* W2 K# {
试试看吧，架构还是你之前的，我只是做出来效果而已。—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート2 x8 n2 a8 O& @
魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表- Q, G1 ]) z1 Y. f) \
另外，我不建议在人物身上挂任何的callback..(如loop,会跟宠邮的loop产生冲突)

复制内容到剪贴板

代码:

NL.RegPartyEvent(nil,"OnPlayerJoinParty");

Delegate.RegInit("PartyManager_Init");



function OnPlayerJoinParty( _index, _target, _type)

    if _type == 0 then

                local ConfirmMessage = "\\n\\n"..Char.GetData(_index, 2000).." 申请加入您的队伍。\\n\\n是否同意其入队申请呢？\\n\\n同意入队请选择『是』，拒绝入队请选择『否』。\\n"

                if NLG.ShowWindowTalked( _target, m_PartyManager, 0, 12, _index, ConfirmMessage) < 0 then

                        return 1;        --异常处理机制(如果没法给队长发送消息..)

                end

                return 0;

    end

    return 1;

end



function OnPartyManagerWindowTalked( _me, _tome, _seqno, _select, _data)

        if not _seqno then        --索引异常(一般不会出现)

                return;

        end



        local PartyMode = Char.GetData( _tome, 386); --%对象_组队模式%

        if PartyMode > 1 then        --组队状态异常( 0 is none, 1 is leader)

                return;

        end

                

        if( _select == 8) then

                NLG.SystemMessage( _seqno,"队长拒绝了您的入队申请！");

        else

                Char.JoinParty( _seqno, _tome);

        end

        

        return;

end



function PartyManager_Init()

    if (m_PartyManager == nil) then

                m_PartyManager = NormalCreate( 0, 99, 33, 777, 4, "PartManager");

                if( VaildChar(m_PartyManager) == true) then

                        Char.SetWindowTalkedEvent(nil, "OnPartyManagerWindowTalked", m_PartyManager);

                end

        end

end

作者: ﹎▓ヾ僤莼べ 时间: 2016-4-29 22:41

数据要一层一层的传递，如通过 _seqno 来判断。。 U5 v0 O+ e6 O
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート! P5 b0 V' K, c' f- _: o1 W
很多种方式的，完全看你怎么来做。妖城在线论坛3 L* ?' A8 l3 s2 [! Z

框架多并不代表一定会出现BUG，还是看实现思路。

引用:

原帖由 jeff10363 于 2016-4-29 13:16 发表 —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( _: I2 w  c; ~( C" M. @3 ~
我昨天在完善踢人的那個LUA="""=  跟你一樣的情況妖城在线论坛( L+ ?1 ^" R4 r7 J- u  p

結果發現你每多一個確認框
所以你就要多一個判斷是不是跟一開始的人相同
魔力私服,最新魔力宝贝私服技术交流; n( b) ]8 S* Q3 X9 J8 d
不然在確認界面 "還沒按下按鈕前" 會有一堆變數一堆可能性會產生BUG
8 H8 q" W8 _2 H9 r; nbbs.mocwww.com: i$ }- C( k4 @$ N! E" A
越多 ...

作者: ﹎▓ヾ僤莼べ 时间: 2016-4-29 22:43

利用 WindowBuffer, 在tagChar_player_work里; I2 Q$ r- ?' l5 K4 V" V! E

魔力默认也是采用的WindowBuffer来缓存临时数据。魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表$ M# J" C% _2 ?6 _& |

引用:

原帖由易凡于 2016-4-28 13:44 发表妖城在线论坛 w3 z# d5 W3 e* K% Z2 y
这样就可以了。新建立一个NPC，用来触发弹窗事件。bbs.mocwww.com. q+ x5 t+ L3 B) `) Y8 e3 H" p; n
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート( M9 Q# E4 p' E1 P& |
然后加一个临时表，用来缓存对象实例

作者: nijiechao 时间: 2016-4-29 22:55

引用:

原帖由 ﹎▓ヾ僤莼べ 于 2016-4-29 22:43 发表魔力私服,最新魔力宝贝私服技术交流$ Z9 r7 {% f5 \# t% h* z% k
利用 WindowBuffer, 在tagChar_player_work里魔力私服,最新魔力宝贝私服技术交流4 Q$ z1 @& C x3 x% G
. Z. W' H" l, _) v
魔力默认也是采用的WindowBuffer来缓存临时数据。

妖城在线论坛- i/ Z6 B# z5 Q* @# C/ C. K
魔力默认也是采用的WindowBuffer来缓存临时数据？你真逗，缓冲寄存器就缓冲寄存器嘛
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート- D8 j" U' u2 Z" a* y( L( @
[ 本帖最后由 HookSend 于 2016-4-30 11:51 编辑 ]

作者: 易凡 时间: 2016-4-29 23:44

魔力本身确实用WindowBuffer缓存的
魔力私服,最新魔力宝贝私服技术交流 \4 I: W% d* | Z. Y2 k
我台服引擎那边，lua的所有选择宠物和道具的位置缓存也都用这个。
bbs.mocwww.com6 e8 @3 t+ f$ M% v/ C! m$ W1 y
星夜说的并无错。。。。。。魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表. N$ e4 H/ W9 S- ~2 H( v
—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート5 B L; @) y0 m( S6 j$ q9 ]
好好沟通交流。。。。不要太暴躁。。。

欢迎光临妖城在线论坛 (http://bbs.mocwww.com/)