|
星夜 管理员
 
- UID
- 3195
- 精华
- 9
- 积分
- 4243
- 威望
- 2 度
- 性别
- 男
|
阁楼
大 中
小 发表于 2016-4-29 22:39 显示全部帖子
随便写的,没怎么测试。。 —魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート4 a/ W% F1 f7 N+ m3 i
6 A1 O$ P$ d+ y: K# |$ J魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表试试看吧,架构还是你之前的,我只是做出来效果而已。
8 j* M; ?2 {+ e2 O6 e+ |—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表7 W# K6 \# h3 w( e: `, M1 g
另外,我不建议在人物身上挂任何的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
酱油师师范..
有事找请联系QQ:296050842,注明来意.
|