Kết quả 11 đến 20 của 22
Chủ đề: Xin chỉ giáo về xóa Danh Hiệu
-
01-04-16, 08:34 PM #11
- Ngày tham gia
- Mar 2014
- Bài viết
- 365
- Thanks
- 118
- Thanked 25 Times in 25 Posts
Ðề: Xin chỉ giáo về xóa Danh Hiệu
PHP Code:function Player:_OnLogin(bExchangeServerComing)
-- 日志
local szLoginIp = me.GetPlayerIpAddress() or "???";
if (bExchangeServerComing ~= 1) then
local szLogMsg = string.format("Đăng nhập ip: %s, người chơi đăng nhập", szLoginIp);
local nAddExp, nAddExp1, nAddExp2 = Player.tbOffline:GetAddExp(me);
if (nAddExp > 0) then
local szMsg = string.format("Nhận kinh nghiệm ủy thác rời mạng lần trước %d", nAddExp);
szLogMsg = szLogMsg .. ", " .. szMsg;
end
me.PlayerLog(Log.emKPLAYERLOG_TYPE_LOGIN, szLogMsg);
me.CheckXuanJingTimeOut(7);
me.SetJailTerm(0);
me.SetArrestTime(0);
me.ForbitSet(0, 1);
me.NewWorld(1,1376,3077);
me.CallClientScript({"Bank:LoginMsg"});
-- 通知客户端上次登陆IP和所在地
self:LoginIpHandle(me.dwIp);
--提醒开通锁定保护的类型
if me.IsAccountLock() == 1 then
if me.IsAccountLockOpen() == 1 and me.GetPasspodMode() == Account.PASSPODMODE_ZPTOKEN then
me.Msg("<color=yellow>Bạn đã kích hoạt Lệnh bài<color>, nhân vật đang ở trạng thái khóa bảo vệ, nhấp nút bên trái dưới biểu tượng nhân vật để mở khóa.");
elseif me.IsAccountLockOpen() == 1 and me.GetPasspodMode() == Account.PASSPODMODE_ZPMATRIX then
me.Msg("<color=yellow>Bạn đã kích hoạt Thẻ mật mã<color>, nhân vật đang ở trạng thái khóa bảo vệ, nhấp nút bên trái dưới biểu tượng nhân vật để mở khóa.");
elseif me.IsAccountLockOpen() == 1 and me.GetPasspodMode() == 0 then
me.Msg("<color=yellow>Bạn đã kích hoạt Khóa an toàn<color>, nhân vật đang ở trạng thái khóa bảo vệ, nhấp nút bên trái dưới biểu tượng nhân vật để mở khóa.");
end
end
end
if GLOBAL_AGENT then
--如果是中心服务器,直接返回;
return 0;
end
-- if (KPlayer.GetPlayerCount() >= KPlayer.GetMaxPlayerCount()) then
-- me.Msg("Server hiện tại quá nhiều người, nếu rời mạng khó có thể đăng nhập lại.");
-- end
-- 恢复等级上限错误
local nMaxLevel = KPlayer.GetMaxLevel();
if (me.nLevel > nMaxLevel) then
self:WriteLog(Dbg.LOG_ATTENTION, "PlayerLevel Too High!!", me.szName, me.nLevel, nMaxLevel);
me.ResetFightSkillPoint(); -- 重置技能点
me.SetTask(2,1,1); -- 停止自动加点
me.UnAssignPotential(); -- 重置潜能点
me.AddLevel(nMaxLevel - me.nLevel); -- 传入负数,降级
me.AddExp(me.GetUpLevelExp()); -- 经验变成100%
me.SetTask(2027,9, 2); --给予2次宋金家族积分双倍奖励;
local nAddFlag = me.Earn(100000, Player.emKEARN_ERROR_REAWARD) --补偿10W银两
if nAddFlag == 1 then
self:WriteLog(Dbg.LOG_ATTENTION, "Player Earn 100000 Menoy Success!!", me.szName, me.nLevel, nMaxLevel);
else
self:WriteLog(Dbg.LOG_ATTENTION, "Player Earn 100000 Menoy Fail!!", me.szName, me.nLevel, nMaxLevel);
end
me.AddBindMoney(100000, self.emKBINDMONEY_ADD_ERROR_REAWARD) --补偿10W绑定银两
Dialog:Say("Đẳng cấp đã hạ thấp, nhận được <color=yellow>100000 bạc<color> và <color=yellow>100000 bạc khóa<color> bồi thường. Mời đăng nhập lại.", {"Mất kết nối", me.KickOut});
end
Task:_OnLogin(); -- 临时的
-- 载入玩家任务
Task:OnLogin();
-- 注册随机任务的事件
-- RandomTask:Register();
-- 新人直接得到新手任务任务
Task:OnAskBeginnerTask();
-- 玩家注册计时器
PlayerSchemeEvent:OnDailyEvent();
if (self:IsFresh() == 1) then
me.CallClientScript({"me.AddSkillState", 390, 1, 1, 400000000, 1});
end
-- TODO:liuchang 临时添加
if (me.GetSkillLevel(10) > 20) then
me.AddFightSkill(10, 20);
end
--[[ -- 上线重置技能点
if (me.GetTask(2029,2) == 0) then
me.ResetFightSkillPoint();
me.SetTask(2,1,1);
me.UnAssignPotential();
KPlayer.SendMail(me.szName, "战斗技能调整",
" 您好,由于新版本战斗技能做出了较大调整,所以在您登陆时重置了潜能点和技能点。请注意及时重新分配,以正常进行游戏。同时开放洗髓岛无限制免费洗点。");
me.SetTask(2029, 2, 1, 1);
end
--]]
SpecialEvent.RecommendServer:OnLoginRegister(); --推荐服务器自动登记。
self:UpdateFudaiLimit();
--如果是新手,pk模式为0;
if me.IsFreshPlayer() == 1 then
me.nPkModel = 0;
end
Wlls:OnLogin(); --武林联赛,上线,奖励自动补给.
EPlatForm:OnLogin();
Mission:LogOutRV(); --防止宕机状态解锁功能;
if (bExchangeServerComing ~= 1) then
self:ProcessAllReputeTitle(me);
end
self.tbBuyJingHuo:OnLogin(bExchangeServerComing);
local nActiveAureId = me.GetTask(2062, 4);
Dialog:SetActiveAuraId(me, nActiveAureId);
local pItem = me.GetEquip(Item.EQUIPPOS_WEAPON);
pItem = me.AddItem (2,1,1611,10);
if pItem < 1 then -- Hàm kiểm tra nếu đang trang bị Vũ Khí Lên Người
Dialog:Say("Cần Đeo Vũ Khí mới nhận được<color=yellow>Danh Hiệu Đệ Nhất <color>");
end
if pItem.nParticular = 1611 then
me.AddTitle(4,1,10,6)
end
end
ai chỉ giáo e với đi..
huhuhuKhách viếng thăm hãy cùnghxhhxhzxây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
01-04-16, 09:50 PM #12
- Ngày tham gia
- Mar 2014
- Bài viết
- 365
- Thanks
- 118
- Thanked 25 Times in 25 Posts
Ðề: Xin chỉ giáo về xóa Danh Hiệu
cho e hõi là e chèn hàm đó vào login đã dc rồi.. khi e có trang bị thỳ nhận dc danh hiệu..
khi e tháo trang bị và bán nó đi sao lại vẫn còn danh hiệu vậy.. e sữa mãi là k dc
--- Chế độ gộp bài viết ---
em đã chèn thử hàm của a vào rồi nhưng hình như bị lỗi.. lỗi rất nhìu script đấy k pải 1..
e k hĩu là nó sai chỗ nào
e đã chèn vào _OnLoGinKhách viếng thăm hãy cùnghxhhxhzxây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
02-04-16, 09:45 AM #13
- Ngày tham gia
- Aug 2012
- Bài viết
- 112
- Thanks
- 5
- Thanked 144 Times in 42 Posts
Ðề: Xin chỉ giáo về xóa Danh Hiệu
Bạn có thể làm thế này:
- Khi đăng nhập kiểm tra xem nhân vật có đeo vũ khí đó hay ko (vũ khí do bạn qui định), nếu có đeo vũ khí đó thì thêm danh hiệu, nếu ko thì xóa danh hiệu đi
- Code thế này
PHP Code:function Player:_OnLogin(bExchangeServerComing)
-- other code
-------------------------------------------------------------------------------
local pWeapon = me.GetEquip(Item.EQUIPPOS_WEAPON);
if (pWeapon) then -- có đeo vũ khí
local nReqParticular = 123456; -- loại vũ khí mà bạn qui định
if (pWeapon.nParticular == nRegParticular) then -- nếu đúng là loại vũ khí qui định thì thêm danh hiệu
me.AddTitle(id title);
else -- nếu không phải xóa danh hiệu
me.RemoveTitle(id title);
end
else -- nếu không đeo vũ khí cũng xóa danh hiệu luôn
me.RemoveTitle(id title);
end
end
Khách viếng thăm hãy cùng privi xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
02-04-16, 10:06 AM #14
- Ngày tham gia
- Mar 2014
- Bài viết
- 365
- Thanks
- 118
- Thanked 25 Times in 25 Posts
Ðề: Xin chỉ giáo về xóa Danh Hiệu
Khách viếng thăm hãy cùnghxhhxhzxây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
02-04-16, 10:19 AM #15
- Ngày tham gia
- Aug 2012
- Bài viết
- 112
- Thanks
- 5
- Thanked 144 Times in 42 Posts
Ðề: Xin chỉ giáo về xóa Danh Hiệu
- Nói rồi mà đoạn code này chỉ check và thực thi khi đăng nhập lại. Còn muốn mặc vô mà check liền thì bạn phải tự mò thêm
- Còn muốn sau khi add mà kích hoạt danh hiệu đó luôn thì dùng hàm me.SetCurTitle(id title); ngay dưới hàm me.AddTitle(id title);Lần sửa cuối bởi privi, ngày 02-04-16 lúc 10:23 AM.
Khách viếng thăm hãy cùng privi xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
02-04-16, 10:34 AM #16
- Ngày tham gia
- Mar 2014
- Bài viết
- 365
- Thanks
- 118
- Thanked 25 Times in 25 Posts
Ðề: Xin chỉ giáo về xóa Danh Hiệu
PHP Code:function Player:_OnLogin(bExchangeServerComing)
--other code
-------------------------------------------------------------------------------
local pWeapon = me.GetEquip(Item.EQUIPPOS_WEAPON);
if (pWeapon >=1) then -- có deo vu khí
local nReqParticular = 3333; -- lo?i vu khí mà b?n qui d?nh
if (pWeapon.nParticular == nRegParticular) then -- n?u dúng là lo?i vu khí qui d?nh thì thêm danh hi?u
me.AddTitle(4,1,10,6);
end
else
if (pWeapon.nParticular > nRegParticular) then -- n?u không ph?i xóa danh hi?u
me.RemoveTitle(4,1,10,6);
end
else -- n?u không deo vu khí cung xóa danh hi?u luôn
if (pWeapon.nParticular < nRegParticular) then
me.RemoveTitle(4,1,10,6);
end
end
end
Khách viếng thăm hãy cùnghxhhxhzxây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
02-04-16, 10:41 AM #17
- Ngày tham gia
- Mar 2014
- Bài viết
- 365
- Thanks
- 118
- Thanked 25 Times in 25 Posts
Ðề: Xin chỉ giáo về xóa Danh Hiệu
PHP Code:function Player:_OnLogin(bExchangeServerComing)
--other code
-------------------------------------------------------------------------------
local pWeapon = me.GetEquip(Item.EQUIPPOS_WEAPON);
if (pWeapon >=1) then -- có deo vu khí
local nReqParticular = 1611; -- lo?i vu khí mà b?n qui d?nh
if (pWeapon.nParticular == nRegParticular) then -- n?u dúng là lo?i vu khí qui d?nh thì thêm danh hi?u
me.AddTitle(4,1,10,6);
me.SetCurTitle(4,1,10,6);
end
else
if (pWeapon.nParticular > nRegParticular) then -- n?u không ph?i xóa danh hi?u
me.RemoveTitle(4,1,10,6);
end
else -- n?u không deo vu khí cung xóa danh hi?u luôn
if (pWeapon.nParticular < nRegParticular) then
me.RemoveTitle(4,1,10,6);
end
end
end
[Only registered and activated users can see links. ]
chán ghêKhách viếng thăm hãy cùnghxhhxhzxây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
02-04-16, 12:04 PM #18
- Ngày tham gia
- Jan 2012
- Bài viết
- 2,415
- Thanks
- 2,567
- Thanked 1,846 Times in 882 Posts
Ðề: Xin chỉ giáo về xóa Danh Hiệu
Rõ ràng ông privi chỉ cho là if (pWeapon) then -- có đeo vũ khí, xong sửa lại thành if (pWeapon >=1) then -- có deo vu khí rồi báo lỗi, người ta đã hướng dẫn tận tình cho như thế rồi, còn sửa code rồi bảo không chạy được, ai muốn chỉ cho bạn nữa -_-
Khách viếng thăm hãy cùng satthupro95 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
02-04-16, 12:35 PM #19
- Ngày tham gia
- Sep 2008
- Bài viết
- 1,321
- Thanks
- 256
- Thanked 742 Times in 560 Posts
Ðề: Xin chỉ giáo về xóa Danh Hiệu
-
02-04-16, 07:57 PM #20
- Ngày tham gia
- Mar 2014
- Bài viết
- 365
- Thanks
- 118
- Thanked 25 Times in 25 Posts
Ðề: Xin chỉ giáo về xóa Danh Hiệu
Khách viếng thăm hãy cùnghxhhxhzxây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
Các Chủ đề tương tự
-
[JX] Cách báo danh Tống Kim và NPC báo danh Tống Kim (Jx linux) ?
Bởi dongahchu trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 0Bài viết cuối: 30-08-14, 04:39 PM -
Sever mới Vô Danh Kiếm và mở máy chủ 1 mang tên Vô Danh vào lúc 10h ngày 19/03
Bởi vodanhkiem trong diễn đàn CÁC SERVER GAME PRIVATE ONLINETrả lời: 0Bài viết cuối: 24-03-14, 05:26 PM -
[JX] Cần giúp đỡ về vòng sáng danh hiệu
Bởi lanhkaka93 trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 7Bài viết cuối: 07-01-12, 12:03 PM -
Mong đc giúp về danh hiệu cách nào để có đc danh hiệu trên đầu
Bởi concabach trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 3Bài viết cuối: 04-03-11, 11:29 PM