[TLBB] Hỏi về chức năng đổi Bạc ingame [Lưu trữ]

anhhabo

30-08-21, 02:46 PM

Mình đang tìm hiểu chức năng đổi bạc vào game trong 2 file yuanbaoexchange và eprize ở client và sv nhưng mò mãi vẫn không biết làm sao để tăng số Bạc và số KNB mỗi lần đổi lên. Bác nào biết sửa phần này xem giúp mình với. Cảm ơn ạ!
Yuanbaoexchange

local objCared = -1;
local MAX_OBJ_DISTANCE = 3.0;
local Exchange_Rate = 1;
local g_Point = 0;
local g_Object = -1;
local g_YuanbaoExchange_Frame_UnifiedPosition;
local g_IsXinfu = 0
function YuanbaoExchange_PreLoad()
this:RegisterEvent("UI_COMMAND");
this:RegisterEvent("OBJECT_CARED_EVENT");
-- Trò Ch½i Trß¾c CØa S± Nhö Phát Sanh Biªn Hóa
this:RegisterEvent("ADJEST_UI_POS")
-- Trò Ch½i Nh§n ThÑc Phát Sanh Biªn Hóa
this:RegisterEvent("VIEW_RESOLUTION_CHANGED")
end

function YuanbaoExchange_OnLoad()
g_YuanbaoExchange_Frame_UnifiedPosition=YuanbaoExc hange_Frame:GetProperty("UnifiedPosition");
end

function YuanbaoExchange_OnEvent(event)

if (event =="UI_COMMAND"and tonumber(arg0) == 2001) then
if this:IsVisible() then
YuanbaoExchange_Close();
return
end
g_Object = Get_XParam_INT(0);
BeginCareObject_YuanbaoExchange(Target:GetServerId 2ClientId(g_Object));
YuanbaoExchange_Moral_Value:SetProperty("DefaultEditBox","True");
YuanbaoExchange_Moral_Value:SetSelected(0, -1);
g_IsXinfu = Get_XParam_INT(2)
if g_IsXinfu==1 then
YuanbaoExchange_Text4:SetText("")
YuanbaoExchange_Text4:SetText("#{XDHB_110311_12}")
elseif g_IsXinfu == 2 then
YuanbaoExchange_Text4:SetText("")
YuanbaoExchange_Text4:SetText("")
else
YuanbaoExchange_Text4:SetText("Tï l® nÕp thë #Y10.000 #GVNÐ #W= #Y100 BÕc #r#WTï l® quy ð±i #Y100 #GBÕc #W= #Y10.000 KNB")
end
YuanbaoExchange_OnShown();
this:Show();
YuanbaoExchange_Count_Change();
YuanbaoExchange_Max:Disable()
YuanbaoExchange_OK: Disable()
elseif (event =="UI_COMMAND"and tonumber(arg0) == 2003) then
if(this:IsVisible()) then
YuanbaoExchange_Moral_Value:SetProperty("DefaultEditBox","True");
YuanbaoExchange_Moral_Value:SetSelected(0, -1);
g_Point = Get_XParam_INT(0)/1000;
YuanbaoExchange_Text1: SetText("S¯ dß : "..g_Point)
YuanbaoExchange_Max:Enable()
YuanbaoExchange_OK:Enable()
YuanbaoExchange_Moral_Value:Enable();
end
elseif (event =="OBJECT_CARED_EVENT") then
YuanbaoExchange_CareEventHandle(arg0,arg1,arg2);

-- Trò Ch½i Trß¾c CØa S± Nhö Phát Sanh Biªn Hóa
elseif (event =="ADJEST_UI_POS") then
YuanbaoExchange_Frame_On_ResetPos()
-- Trò Ch½i Nh§n ThÑc Phát Sanh Biªn Hóa
elseif (event =="VIEW_RESOLUTION_CHANGED") then
YuanbaoExchange_Frame_On_ResetPos()
end

end

function YuanbaoExchange_OnShown()
YuanbaoExchange_Clear();
YuanbaoExchange_Update();
end

function YuanbaoExchange_Clear()
YuanbaoExchange_Text1: SetText("")
YuanbaoExchange_Moral_Value: SetText("")
YuanbaoExchange_Text3: SetText("")
g_Point = 0;
Exchange_Rate = 1;
end

function YuanbaoExchange_Update()
Exchange_Rate = Get_XParam_INT(1)/1000

YuanbaoExchange_Text1: SetText("#cff0000#bÐang ki¬m tra s¯ dß...")
YuanbaoExchange_Text3: SetText("Giá tr¸ : 0")

end

function YuanbaoExchange_OK_Clicked()
local str = YuanbaoExchange_Moral_Value: GetText();

--AxTrace(0,0,"YuanbaoExchange_OK_Clicked 1"..tostring(str));

if str == nil or str ==""then
YuanbaoExchange_Text3: SetText("Giá tr¸ : 0")
PushDebugMessage("Kim Nguyên Bäo mu¯n ð±i")
return
end

if tonumber(str)> 10000 then
PushDebugMessage("T¯i ða ð±i nhi«u nh¤t 10.000 BÕc")
return
end
if(tonumber(str) <= 100) then
PushDebugMessage("T¯i thi¬u ð±i ít nh¤t 100 BÕc")
return
end

--AxTrace(0,0,"YuanbaoExchange_OK_Clicked 2");
Clear_XSCRIPT();
Set_XSCRIPT_Function_Name("BuyYuanbao");
Set_XSCRIPT_ScriptID(181000);
Set_XSCRIPT_Parameter(0,tonumber(str));
Set_XSCRIPT_ParamCount(1);
Send_XSCRIPT();

YuanbaoExchange_Close();
end

function YuanbaoExchange_Close()
YuanbaoExchange_OnHiden();
this:Hide()
end

function YuanbaoExchange_Cancel_Clicked()
YuanbaoExchange_Close();
return;
end

function YuanbaoExchange_OnHiden()
StopCareObject_YuanbaoExchange(objCared)
YuanbaoExchange_Clear()
return
end

function YuanbaoExchange_CareEventHandle(careId, op, distance)
if(nil == careId or nil == op or nil == distance) then
return;
end

if(tonumber(careId) ~= g_clientNpcId) then
return;
end
--Nªu Nhß Hòa NPCÐích Cñ Ly L¾n H½n Khoäng Cách Nh¤t Ð¸nh Ho£c Là B¸ Xóa Bö,Tñ Ðµng Ðóng LÕi
if(op =="distance"and tonumber(distance)>MAX_OBJ_DISTANCE or op=="destroy") then
YuanbaoExchange_Close();
end
end

--================================================== =======
--B¡t Ð¥u Quan Tâm NPC,
--TÕi B¡t Ð¥u Quan Tâm Trß¾c C¥n Tiên Duy®t Cái Này M£t Biên Có Ðúng Hay Không Ðã Có "Quan Tâm "Ðích NPC,
--Nªu Nhß Có,Tiên Hüy Ðã Có Ðích "Quan Tâm "
--================================================== =======
function BeginCareObject_YuanbaoExchange(objCaredId)

g_Object = objCaredId;
--AxTrace(0,0,"LUA___CareObject g_Object =".. g_Object);
this:CareObject(g_Object, 1,"YuanbaoExchange");

end

--================================================== =======
--Ðình Chï Ð¯i M² NPCÐích Quan Tâm
--================================================== =======
function StopCareObject_YuanbaoExchange(objCaredId)
this:CareObject(objCaredId, 0,"YuanbaoExchange");
g_Object = -1;

end

function YuanbaoExchange_Count_Change()
local str = YuanbaoExchange_Moral_Value: GetText();
local strNumber = 0;

if (str == nil) then
return;
elseif(str =="") then
strNumber = 1;
else
strNumber = tonumber(str);
end
str = tostring(strNumber);
YuanbaoExchange_Moral_Value:SetTextOriginal(str);
YuanbaoExchange_Text3: SetText("T¯n: "..tostring(Exchange_Rate * strNumber))
end

function YuanbaoExchange_Max_Clicked()
local maxYuanBao = 10000;
local point2YuanBao = g_Point/Exchange_Rate;
if point2YuanBao <0 then point2YuanBao = 0; end

YuanbaoExchange_Moral_Value:SetProperty("ClearOffset","True");
if point2YuanBao> maxYuanBao then
YuanbaoExchange_Moral_Value:SetText(tostring(maxYu anBao));
else
YuanbaoExchange_Moral_Value:SetText(tostring(point 2YuanBao));
end
YuanbaoExchange_Moral_Value:SetProperty("CaratIndex", 1024);
end

--================================================
-- Khôi Phøc M£t Biên Ðích Cam Ch¸u Tß½ng Ð¯i V¸ Trí
--================================================
function YuanbaoExchange_Frame_On_ResetPos()
YuanbaoExchange_Frame:SetProperty("UnifiedPosition", g_YuanbaoExchange_Frame_UnifiedPosition);
end

eprize

--Nh§n CD-KEYTu¥n tra Ði¬m s¯ Mua s¡m Nguyên bäo

x888899_g_scriptId = PRIZE_SCRIPT_ID

x888899_g_prizeGems = {
50101001,
50101002,
50102001,
50102002,
50102003,
50102004,
50103001,
50104002,
50111001,
50111002,
50112001,
50112002,
50112003,
50112004,
50113001,
50113002,
50113003,
50113004,
50113005,
50114001
};

--**********************************
-- Ki¬m tra CDKey
--**********************************
function x888899_AskCDKey(sceneId, selfId)
GetCharPrize(sceneId, selfId, 1, 980,0,0) --Nh§n CD-KEY (980Th¸ CD-KEYTÕi BillingCüa V§t ph¦m LoÕi hình)
end

--**********************************
-- Ki¬m tra Tài phú TÕp
--**********************************
function x888899_AskNewUserCard(sceneId, selfId, card, op)
NewUserCard(sceneId, selfId, card, op) --Nh§n Tài phú TÕp /Th¬ døc CÕnh Sai TÕp (cardTh¸ TÕp Hào Tñ phù Xuyªn)
end

--**********************************
-- Mua s¡m Nguyên bäo
--**********************************
function x888899_AskYuanBao(sceneId, selfId, nYuanBao, nPoint)
GetCharPrize(sceneId,selfId,3,999,nYuanBao,nPoint) ; --Mãi nYuanBao Cái Cµng nPointÐi¬m Cüa Nguyên bäo
end

--**********************************
-- Tu¥n tra Ði¬m s¯
--**********************************
function x888899_AskPoint(sceneId, selfId)
GetCharPrize(sceneId,selfId,2,0,0,0); --Tu¥n tra Nhân v§t Ði¬m s¯
end

--**********************************
-- Tr×u Tß·ng
--**********************************
function x888899_AskPrize(sceneId, selfId)
GetCharPrize(sceneId,selfId,6,0,0,0); --Tiên Tu¥n tra Nhân v§t Ph¥n thß·ng
end

--**********************************
-- Ki¬m tra CDKey Cüa Phän h°i H°i Công hàm thuyên chuy¬n công tác S±
-- ntype M¶i Tham khäo enum PRIZE_TYPE_ENUM
--**********************************
function x888899_PrizeRet(sceneId, selfId, ntype, nserial, num)
-- M£t khác , N½i này Không có targetId,Không biªt Tä -1 Có th¬ hay không Có v¤n ð«
local targetId = -1

--CD-KEY
if(1 == ntype) then
SetMissionFlag(sceneId, selfId, MF_GetAwardFlag, 1)
x888899_NotifyFailBox(sceneId, selfId, targetId," Ngß½i Ðã Thành công Kích hoÕt Ngß½i Nh§n Tß·ng Ði«u ki®n , Ngß½i Có th¬ Ðªn Ta n½i này Lai Nh§n Khen thß·ng V§t ph¦m.")
--Tài phú TÕp
elseif(3 == ntype) then --VÑt ði (Con bò cÕp Chú)
--SetMissionFlag(sceneId, selfId, MF_ActiveNewUserCard, 1)
--x888899_NotifyFailBox(sceneId, selfId, targetId," Chúc m×ng !Ngß½i Ðã Thành công Kh·i ðµng Tài phú TÕp , T¾i Nh¤t ð¸nh C¤p b§c Lúc sau Có th¬ Ðªn ðÕi Lý Ðô Säng khoái vô cùng (157,164)XØ Nh§n Khen thß·ng.")
--Nguyên bäo
elseif(4 == ntype) then
YuanBao(sceneId,selfId,-1,1,nserial*num)
--V§t ph¦m
elseif(5 == ntype) then
LuaFnBeginAddItem(sceneId)
LuaFnAddItem(sceneId, nserial, num)
local ret = LuaFnEndAddItem(sceneId, selfId)
if 1 == ret then
AddItemListToHuman(sceneId,selfId)
--Th¥n Ð¸ch Mµt Cái Ngß¶i ch½i Chï có th¬ Tham gia Mµt l¥n HoÕt ðµng
if(nserial == 30309052) then
SetMissionFlag(sceneId, selfId, MF_ActiveWenZhouCard, 1)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
end
x888899_NotifyFailBox(sceneId, selfId, targetId,"V§t ph¦m Ð±i l¤y Thành công !Cäm tÕ Ngài Ð¯i (Thiên Long Bát Bµ) Cüa Duy trì !")
end
--Th¬ døc CÕnh Sai TÕp
elseif(6 == ntype) then
local prizeItem = x888899_GetSportsPrize()
if prizeItem then
LuaFnBeginAddItem(sceneId)
LuaFnAddItem(sceneId, prizeItem, 1)
local ret = LuaFnEndAddItem(sceneId, selfId)
if 1 == ret then
AddItemListToHuman(sceneId,selfId)
SetMissionFlag(sceneId, selfId, MF_ActiveSportsCard, 1)
--x888899_NotifyFailBox(sceneId, selfId, targetId," Chúc m×ng Ngài Thành công Nh§n HoÕt ðµng Khen thß·ng , M¶i Ki¬m tra và nh§n.")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
end
end
--Võng Tø HoÕt ðµng TÕp
elseif(7 == ntype) then
LuaFnBeginAddItem(sceneId)
LuaFnAddItem(sceneId, 30505108, 1)
local ret = LuaFnEndAddItem(sceneId, selfId)
if 1 == ret then
AddItemListToHuman(sceneId, selfId)
SetMissionFlag(sceneId, selfId, MF_ActiveJuCard, 1)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
end

elseif(8 == ntype) then
SetMissionFlag(sceneId, selfId, MF_ActiveNewUserCard666, 1)
x888899_NotifyFailBox(sceneId, selfId, targetId," Chúc m×ng !Ngß½i Ðã Thành công Kh·i ðµng Siêu c¤p ðÕi Lñc TÕp , T¾i Nh¤t ð¸nh C¤p b§c Lúc sau Có th¬ Ðªn ðÕi Lý Ðô Säng khoái vô cùng (157,164) XØ Nh§n Khen thß·ng.")
end

return
end

--**********************************
-- Tr×u Tß·ng Thành công sau C¤p Ngß¶i ch½i Ð« kÏ Tin tÑc
--**********************************
function x888899_PrizeRetEnd(sceneId, selfId, retId)
if retId and retId == 15 then
x888899_NotifyFailBox(sceneId, selfId, -1," Chúc m×ng Ngài Thành công Nh§n HoÕt ðµng Khen thß·ng , M¶i Ki¬m tra và nh§n.")
elseif(retId == 12) then
x888899_NotifyFailBox(sceneId, selfId, -1," Chúc m×ng Ngài Thành công Nh§n HoÕt ðµng Khen thß·ng , M¶i Ki¬m tra và nh§n.")
end
end

--**********************************
-- Tân thü TÕp Ho£c Th¬ døc Tr×u Tß·ng TÕp Ki¬m tra
--**********************************
function x888899_OpenCard(sceneId,selfId,card)
if nil == card then return end
--PrintStr(card)
local targetId = -1
local firstbyte = strbyte(card)
--'k' Th¬ døc TÕp
if 107 == firstbyte then
if GetMissionFlag(sceneId, selfId, MF_ActiveSportsCard) == 1 then
x888899_NotifyFailBox(sceneId, selfId, targetId," Ngß½i Ðã Nh§n S¯ng qua Ðµng Khen thß·ng , Không th¬ L£p lÕi Nh§n.")
return
end
--'t' Tân thü TÕp
elseif 116 == firstbyte or 115 == firstbyte then
if GetMissionFlag(sceneId, selfId, MF_ActiveNewUserCard) == 1 then
x888899_NotifyFailBox(sceneId, selfId, targetId," Ngß½i Ðã Kích hoÕt Quá Tài phú TÕp , không th¬ LÕi l¥n næa Kích hoÕt Nh§n Ði«u ki®n.")
return
end
elseif 99 == firstbyte then
if GetMissionFlag(sceneId, selfId, MF_ActiveNewUserCard666) == 1 then
x888899_NotifyFailBox(sceneId, selfId, targetId," Ngß½i Ðã Kh·i ðµng Quá Siêu c¤p ðÕi Lñc TÕp , không th¬ LÕi l¥n næa Kh·i ðµng Nh§n Ði«u ki®n.")
return
end
end

x888899_AskNewUserCard(sceneId, selfId, card, 0)
end

--**********************************
-- Mua s¡m Nguyên bäo Cüa Phän h°i H°i Công hàm thuyên chuy¬n công tác S±
-- ntype M¶i Tham khäo enum PRIZE_TYPE_ENUM
-- 1 ÐÕi bi¬u OPT_YUANBAO_ADD Gia tång Nguyên bäo
--**********************************
function x888899_BuyRet(sceneId, selfId, ntype, nYuanBao, nLeftPoint)
-- M£t khác , N½i này Không có targetId,Không biªt Tä -1 Có th¬ hay không Có v¤n ð«
local targetId = -1

if(2 == ntype) then
if nYuanBao == 0 then
return
end
if GetMissionData(sceneId, selfId, CHONG_ZHI_ZENGD) <= 0 then
TryRecieveItem(sceneId,selfId,0, 0)--Phát Thü Sung Khen thß·ng
end
YuanBao(sceneId,selfId,targetId,1,nYuanBao*100)
SetMissionData(sceneId, selfId, CHONG_ZHI_ZENGD,GetMissionData(sceneId, selfId, CHONG_ZHI_ZENGD)+nYuanBao*100)
local g_Pointt = GetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU)
local g_Poina = GetMissionData(sceneId, selfId, CHONG_ZHI_ZENGD)
if g_Poina>=200000 and g_Pointt<1 then
SetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU,GetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU)+1) ---Tä Phân tích 10/1
end
if g_Poina>=500000 and g_Pointt<2 then
SetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU,GetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU)+1) --100/2
end
if g_Poina>=1200000 and g_Pointt<3 then
SetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU,GetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU)+1) --500/3
end
if g_Poina>=2500000 and g_Pointt<4 then
SetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU,GetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU)+1) --1000/4
end
if g_Poina>=4800000 and g_Pointt<5 then
SetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU,GetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU)+1) --1500/5
end
if g_Poina>=8000000 and g_Pointt<6 then --Chú ý Cái này là HÕn Th¶i Cüa
SetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU,GetMissionData(sceneId, selfId, CHONG_ZHI_CHONGSHU)+1) -- 2000/6
end
BuyYuanBaoCount(sceneId,selfId,targetId,1,nYuanBao *100)
x888899_NotifyLeftPoint(sceneId,selfId,nLeftPoint)

--C¤p Hµ khách Ðoan Ð« kÏ Tin tÑc
local strText =""
BeginEvent(sceneId)
strText = "Ð±i thành công "..tostring(nYuanBao*100).." KNB"
AddText(sceneId,strText)
EndEvent(sceneId)
DispatchMissionTips(sceneId,selfId)

LuaFnMsg2Player(sceneId, selfId,strText,MSG2PLAYER_PARA)
--Th¤p h½n 10Nguyên B¤t Thßþng TV
if nYuanBao>= 100 then
-- BroadMsgByChatPipe(sceneId, selfId,"#e0000ff#HChúc m×ng Ngß¶i ch½i ["..LuaFnGetGUID(sceneId,selfId).."] Tiêu phí "..nYuanBao.." Nguyên,Thành công Ð±i ["..(nYuanBao*100).." Nguyên bäo], Còn không mau t¾i Hòa Th± hào T¯ B¢ng hæu ?", 4)
BroadMsgByChatPipe( sceneId, selfId, "#b#G"..LuaFnGetName( sceneId, selfId ).." #WsØ døng #Y"..nYuanBao.." BÕc #Wð±i thành công #Y"..(nYuanBao*100).." KNB #1 ", 4 )
end
x888899_LogForDuiHuanYuanBao(sceneId, selfId,nYuanBao*100,nYuanBao)
local mylevel = floor(GetMissionData(sceneId, selfId, CHONG_ZHI_ZENGD)/100)
x888899_SetDengji(sceneId,selfId,mylevel,1)
local nToday = 19001 - GetDayTime()
if nToday > 0 then
x888899_SetDengji(sceneId,selfId,mylevel,11)
end

local allfirstplayer = GetPaiming(sceneId,1)
local nMonsterNum = GetMonsterCount(sceneId)
for i=0, nMonsterNum-1 do
local MonsterId = GetMonsterObjID(sceneId,i)
local MosDataID = GetMonsterDataID(sceneId, MonsterId)
if MosDataID == 43545 then
SetCharacterName(sceneId,MonsterId,"#G"..allfirstplayer[1].Guid)
end
end

--Con bò cÕp Gia nh§p Phän Khoán Bµ ph§n
-- local FanquanCheck = GetMissionData(sceneId,selfId,MF_ActiveNewUserCard )
-- local fanquanNUM = floor(GetMissionData(sceneId,selfId,CHONG_ZHI_ZENG D)/1000)
-- if FanquanCheck <10^9 then
-- SetMissionData(sceneId,selfId,MF_ActiveNewUserCard ,10^9+fanquanNUM)
-- else
-- SetMissionData(sceneId,selfId,MF_ActiveNewUserCard ,FanquanCheck+nYuanBao*10)
local FanquanCheck = GetMissionData(sceneId,selfId,MD_GAME_FLAG0)
local fanquanNUM = floor(GetMissionData(sceneId,selfId,CHONG_ZHI_ZENG D)/1000)
if FanquanCheck < 10^9 then
SetMissionData(sceneId,selfId,MD_GAME_FLAG0,10^9+f anquanNUM)
else
SetMissionData(sceneId,selfId,MD_GAME_FLAG0,Fanqua nCheck+nYuanBao*10)

end

------------------
end
return
end

function x888899_SetDengji(sceneId,selfId,mylevel,key)
--if mylevel <= 0 then
--return
--end
local asdda = {"Thiªu Lâm","Minh Giáo"," Cái Bang","Võ Ðang","Nga Mi","Tinh Túc","Thiên Long","Thiên S½n","Tiêu Dao","Ðào Hoa Ðäo","Mµ Dung","Ðß¶ng Môn","QuÖ C¯c"}
local xiezi = {"Næ","Nam"}
local allfirstplayer = GetPaiming(sceneId,key)
local myid = LuaFnObjId2Guid(sceneId,selfId)
local myguid = GetName(sceneId,selfId)
local menp = GetMenPai(sceneId, selfId)
local sex = GetSex(sceneId,selfId)
local numberid = 0
if getn(allfirstplayer)> 0 then
for i = 1,getn(allfirstplayer) do
if tonumber(allfirstplayer[i].ID) == tonumber(myid) and numberid == 0 then
numberid = i
allfirstplayer[i] = {ID = myid,Guid =myguid,mynowLevel = mylevel,mymenpai=asdda[menp+1],mysex=xiezi[sex+1]}
break
end
end
end

if numberid == 0 then
allfirstplayer[getn(allfirstplayer)+1] = {ID = myid,Guid =myguid,mynowLevel = mylevel,mymenpai=asdda[menp+1],mysex=xiezi[sex+1]}
end
allfirstplayer = Getpaimincc(sceneId,allfirstplayer)
local mystring =""
local xuhuannumber = getn(allfirstplayer)
numberid = 0
if getn(allfirstplayer)> 0 then
if xuhuannumber> 10 then
xuhuannumber = 10
end
for i = 1,xuhuannumber do
if i ~= xuhuannumber then
mystring = mystring.. allfirstplayer[i].ID.."\n".. allfirstplayer[i].Guid.."\n".. allfirstplayer[i].mynowLevel.."\n".. allfirstplayer[i].mymenpai.."\n".. allfirstplayer[i].mysex.."\n"
else
mystring = mystring.. allfirstplayer[i].ID.."\n".. allfirstplayer[i].Guid.."\n".. allfirstplayer[i].mynowLevel.."\n".. allfirstplayer[i].mymenpai.."\n".. allfirstplayer[i].mysex
end
end
end
SetPaiming(sceneId,key,mystring)
end

--**********************************
-- Tu¥n tra Ði¬m s¯ Cüa Phän h°i H°i Công hàm thuyên chuy¬n công tác S±
--**********************************
function x888899_PointRet(sceneId, selfId, nLeftPoint)
x888899_NotifyLeftPoint(sceneId,selfId,nLeftPoint)
end

--**********************************
-- Ki¬m tra Ph¥n thß·ng B¡t ð¥u H°i Công hàm thuyên chuy¬n công tác S±
--**********************************
function x888899_CheckRetBegin(sceneId,selfId)
LuaFnBeginAddItem(sceneId)
end
--**********************************
-- Ki¬m tra Ph¥n thß·ng Tång thêm Ki¬m tra V§t ph¦m Cüa H°i Công hàm thuyên chuy¬n công tác S±
--**********************************
function x888899_CheckAddItem(sceneId,selfId,itemid,num)
LuaFnAddItem(sceneId, itemid, num)
end

--**********************************
-- Ki¬m tra Ph¥n thß·ng Kªt thúc Cüa H°i Công hàm thuyên chuy¬n công tác S±
--**********************************
function x888899_CheckRetEnd(sceneId,selfId)
local ret = LuaFnEndAddItem(sceneId, selfId)
if 1 == ret then
--Ki¬m tra Thành công , B¡t ð¥u Tr×u Tß·ng
x888899_NotifyFailBox(sceneId, selfId, -1," Ki¬m tra Thành công , m¶i ch¶ mµt lát ..Ðang · Nh§n Ph¥n thß·ng.")
GetCharPrize(sceneId,selfId,4,0,0,0); --Tu¥n tra Nhân v§t Hi®n tÕi có ðßþc Ph¥n thß·ng
else
x888899_NotifyFailBox(sceneId, selfId, -1," Thñc xin l²i , Ngài Không có ðü Cüa V§t ph¦m Lan Không gian , M¶i SØa sang lÕi H§u LÕi ðªn Nh§n.")
end
end

--**********************************
-- T¤m card Ki¬m tra Ph¥n thß·ng Kªt thúc Cüa H°i Công hàm thuyên chuy¬n công tác S±
--**********************************
function x888899_CardCheckRetEnd(sceneId,selfId)
local ret = LuaFnEndAddItem(sceneId, selfId)
if 1 == ret then
--Ki¬m tra Thành công , B¡t ð¥u Khai TÕp
x888899_NotifyFailBox(sceneId, selfId, -1," Ki¬m tra Thành công , m¶i ch¶ mµt lát ..Ðang · Nh§n Ph¥n thß·ng.")
x888899_AskNewUserCard(sceneId, selfId,"MagicString", 1);
else
x888899_NotifyFailBox(sceneId, selfId, -1," Thñc xin l²i , Ngài Không có ðü Cüa V§t ph¦m Lan Không gian , M¶i SØa sang lÕi H§u LÕi ðªn Nh§n.")
end
end
--**********************************
-- T¤m card Ki¬m tra Ph¥n thß·ng Kªt thúc Cüa H°i Công hàm thuyên chuy¬n công tác S±,Ð¯i thiên SØ L Bao Thä ra T¯ Ð£c thù Nh§t ký By Vega 20090121
--**********************************
function x888899_CardCheckRetEndTSLB(sceneId,selfId)
local ret = LuaFnEndAddItem(sceneId, selfId)
if 1 == ret then
--Ki¬m tra Thành công , B¡t ð¥u Khai TÕp
x888899_NotifyFailBox(sceneId, selfId, -1," Ki¬m tra Thành công , m¶i ch¶ mµt lát ..Ðang · Nh§n Ph¥n thß·ng.")
x888899_AskNewUserCard(sceneId, selfId,"MagicString", 1);

local guid = LuaFnObjId2Guid(sceneId, selfId);

if guid ~= nil then
--local LogInfo = format("0X%08X,", guid);
ScriptGlobal_AuditGeneralLog(LUAAUDIT_TSLBOUT, guid);
end
else
x888899_NotifyFailBox(sceneId, selfId, -1," Thñc xin l²i , Ngài Không có ðü Cüa V§t ph¦m Lan Không gian , M¶i SØa sang lÕi H§u LÕi ðªn Nh§n.")
end
end

function x888899_LogForDuiHuanYuanBao(sceneId, selfId,YuanBao,rmb)
local mybname = LuaFnGetGuildName(sceneId, selfId)
local nowYear = GetTodayYear();
local nowMonth = GetTodayMonth();
nowMonth=nowMonth+1;
local nowDate = GetTodayDate();
local nHour = GetHour()
local nMinute = GetMinute()
local nName = LuaFnGetName(sceneId, selfId)
local nGuid = LuaFnGetGUID(sceneId, selfId)
local handle = openfile("./Log1/ChongZhiLog.txt","a+")

if nil ~= handle then
write(handle,"Th¶i gian ["..nowYear.."-"..nowMonth.."-"..nowDate..""..nHour..":"..nMinute.."] ,Nhân v§t ["..nName.."] ,Nhân v§t ID ["..nGuid.."] ,Ð±i ["..YuanBao.."]".." Nguyên bäo ".." Giá tr¸ "..rmb.." KNB")
write(handle,tostring("\n"))
closefile(handle)
end
end

--**********************************
-- Ki¬m tra CDKey Cüa Làm l²i Phän h°i H°i Công hàm thuyên chuy¬n công tác S±
--**********************************
function x888899_PrizeRetErr(sceneId, selfId, retId)
--enum UserPrizeResult
--{
-- UPR_SUCCESS, //Tr×u Tß·ng Tin tÑc Thành công
-- UPR_ASKPOINT_SUCCESS, //Tu¥n tra Ði¬m s¯ Thành công
-- UPR_ASKBUY_SUCCESS, //Mua s¡m Thành công
--
-- UPR_ERR_NO_PRIZE, //Không có Trúng thß·ng
-- UPR_ERR_PRE_REQUEST, //Chính — xØ lý L¥n trß¾c m¶i c¥u Tin tÑc
-- UPR_ERR_PRIZE_BUSY, //ÐÆng Ðãi xØ lý Cüa Nh§n Tß·ng Tin tÑc Quá nhi«u
-- UPR_ERR_TIME_OUT, //XØ lý Nh§n Tß·ng Tin tÑc Siêu Th¶i
-- UPR_ERR_EXPIRE_PRIZE, //Ph¥n thß·ng Quá th¶i hÕn
-- UPR_ERR_CANT_NOW, //Hi®n tÕi Không th¬ XØ lý Tr×u Tß·ng m¶i c¥u
-- UPR_ERR_NOENOUGH_POINT, //Ði¬m s¯ Không ðü
-- UPR_ERR_GOODSCODE_ERR, //V§t ph¦m S¯ hi®u Sai l¥m
-- UPR_ERR_ALREADYGET_PRIZE, //Ðã Nh§n Tß·ng
-- UPR_NEWUSERCARD_SUCCESS, //Tài phú TÕp Thành công
-- UPR_ERR_WRONGCARDNUMBER, //TÕp Hào Sai l¥m
-- UPR_ERR_OTHERUSERUSE, //KÏ Ngß¶i khác ðã SØ døng
-- };
local targetId = -1

if retId == 3 then -- Không có CD-Key
x888899_NotifyFailBox(sceneId, selfId, targetId," Ngß½i CDK Không có Kích hoÕt , M¶i Ngài Ð± bµ [Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>] Xem xét.")
elseif retId == 4 then
x888899_NotifyFailBox(sceneId, selfId, targetId," Chính — xØ lý Trung , m¶i h½i H¥u.")
elseif retId == 5 then
x888899_NotifyFailBox(sceneId, selfId, targetId," H® th¯ng Mang , m¶i h½i H¥u LÕi tr÷ng Thí.")
elseif retId == 6 then
x888899_NotifyFailBox(sceneId, selfId, targetId," XØ lý Siêu Th¶i , m¶i h½i H¥u Tr÷ng thí.")
elseif retId == 9 then
x888899_NotifyFailBox(sceneId, selfId, targetId," Ngß½i Ði¬m s¯ Không ðü.")
elseif retId == 11 then
x888899_NotifyFailBox(sceneId, selfId, targetId," Ngß½i Account Ðã Nh§n Quá khen L® , không th¬ LÕi l¥n næa Kh·i ðµng Nh§n Ði«u ki®n.") --Account to Tài khoän
elseif retId == 13 then
x888899_NotifyFailBox(sceneId, selfId, targetId," Thñc xin l²i , Ngß½i thua Nh§p TÕp Danh sách Hào Vi Không có hi®u quä Danh sách Hào , M¶i Xác nh§n lúc sau LÕi l¥n næa Ðßa vào.")
elseif retId == 14 then
x888899_NotifyFailBox(sceneId, selfId, targetId," Ngß½i tÕp Danh sách Hào Ðã B¸ SØ døng Quá , m¶i xác nh§n.")
elseif retId == 16 then
x888899_NotifyFailBox(sceneId, selfId, targetId," B±n Server Chßa Khai thông Tr×u Tß·ng Công nång , m¶i xác nh§n.")
elseif retId == 17 then
x888899_NotifyFailBox(sceneId, selfId, targetId," ThØ Ngß¶i sØ døng Ðã qua C¤p 10 , Không th¬ LÕi sØ døng Tài phú TÕp.")
elseif retId == 20 then
x888899_NotifyFailBox(sceneId, selfId, targetId," Thñc xin l²i , Ngài Trß¾c m£t Không có Khä Nh§n Cüa Khen thß·ng.")
else
x888899_NotifyFailBox(sceneId, selfId, targetId," XØ lý Trøc tr£c , m¶i h½i H¥u ThØ lÕi , Nhß không th¬ Thành công Thao tác m¶i liên h® Khách phøc Nhân viên Tiªn hành XØ lý.")
end
end

--**********************************
-- Ð¯i thoÕi CØa s± Tin tÑc Ð« kÏ
--**********************************
function x888899_NotifyFailBox(sceneId, selfId, targetId, msg)
BeginEvent(sceneId)
AddText(sceneId, msg)
EndEvent(sceneId)
DispatchEventList(sceneId, selfId, targetId)
end

--**********************************
-- Thông tri Hµ khách Ðoan Còn th×a Ði¬m s¯
--**********************************
function x888899_NotifyLeftPoint(sceneId,selfId,nLeftPoint)
BeginUICommand(sceneId)
UICommand_AddInt(sceneId, nLeftPoint)
EndUICommand(sceneId)
DispatchUICommand(sceneId, selfId, 2003)
end

--**********************************
-- Th¬ døc CÕnh Sai TÕp Tùy c½ ÐÕt ðßþc Ph¥n thß·ng
--**********************************
function x888899_GetSportsPrize()
local total = getn(SPORTS_CARD_PRIZE)
if total and total>= 1 then
local idx = random(1,total)
return SPORTS_CARD_PRIZE[idx]
else
return nil
end
end

function x888899_GetGiftsForCostYuanBao(sceneId, selfId, nIndex)
-- if sceneId then
-- x888899_Tips(sceneId,selfId,"ChÑc nång tÕm di d¶i.")
-- return
-- end
g_ServerNew_SaveUp_Gifts={
[1] = {38000398,38000401,38000947,30110007}, --200.000
[2] = {38000398,38000401,38000947,30110008}, --500.000
[3] = {38000398,38000401,38000951,30110009}, --1.200.000
[4] = {10566728,10566734,38000951,30110010}, --2.500.000
[5] = {10566729,10553103,38000951,30310118}, --4.800.000 ---------------qua nap the
[6] = {10566730,10553104,38000951,30310125}, --8.000.000
}

local GiftLev ={"M¯c quy ð±i 200.000 KNB","M¯c quy ð±i 500.000 KNB","M¯c quy ð±i 1.200.000 KNB","M¯c quy ð±i 2.500.000 KNB","M¯c quy ð±i 4.800.000 KNB","M¯c quy ð±i 8.000.000 KNB"}
local g_Pointt = GetMissionData(sceneId,selfId,CHONG_ZHI_CHONGSHU)
local g_Pointtb = GetMissionData(sceneId,selfId,CHONG_ZHI_YILINGQI)
local nam = LuaFnGetName(sceneId, selfId)--Ngß¶i ch½i Tên

if nIndex>= 1 and nIndex <= 6 then
if nIndex> 1 then
if g_Pointtb <nIndex-1 then
x888899_Tips(sceneId,selfId,"Hãy nh§n m¯c "..GiftLev[nIndex-1].." trß¾c")
return
end
end
if LuaFnGetPropertyBagSpace(sceneId,selfId) <4 or LuaFnGetMaterialBagSpace(sceneId,selfId) <4 then
x888899_Tips(sceneId,selfId,"Vui lòng ð¬ tr¯ng [ 4 ] ô tr¯ng trong tay näi")
return
end
if g_Pointt <nIndex then
x888899_Tips(sceneId, selfId,"Hãy nh§n m¯c bên trên trß¾c khi nh§n m¯c này")
return
else
SetMissionData(sceneId, selfId, CHONG_ZHI_YILINGQI,nIndex) -- Cái này Vi Thông tri
for i=1,4 do
TryRecieveItem(sceneId,selfId,g_ServerNew_SaveUp_G ifts[nIndex][i],1)--Phát thß·ng L® V§t ph¦m
end
x888899_Tips( sceneId, selfId," Nh§n quà thành công " )
BroadMsgByChatPipe(sceneId, selfId, "#b#WChúc m×ng #G"..nam.." #Wnh§n thành công #Y"..GiftLev[nIndex].." ", 4)
CallScriptFunction((890096),"GetGiftsForUI", sceneId, selfId,11)
LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 148, 0) --Ð£c hi®u
end
end
end

function x888899_Tips(sceneId, selfId,msg)
BeginEvent(sceneId)
AddText(sceneId, msg)
EndEvent(sceneId)
DispatchMissionTips(sceneId, selfId)
end
function x888899_axiao( sceneId, selfId,msg )
local nyols = openfile("./Config/Paiming/GMGM.txt", "a")
local str1 = LuaFnGetGuildName( sceneId, selfId )
if str1 == nil or str1 == "không" then
str1 = "không"
end
local str2 = LuaFnGetName( sceneId, selfId )
local nowMonth = GetTodayMonth();
local nowDate = GetTodayDate();
local strax = "Bang: "..str1.." Tên:"..str2.." Kinh NgÕch "..msg.." Th¶i gian "..nowMonth..nowDate.."\n"
if nil ~= nyols then
if strax == nil then
strax = ""
end
write(nyols, strax)
closefile(nyols)
end
end

mr.vik20

10-09-21, 12:33 PM