[TLBB] Hỏi về chức năng đổi Bạc ingame
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 2 của 2
  1. 30-08-21, 02:46 PM #1
    anhhabo
    anhhabo vẫn chưa có mặt trong diễn đàn
    Thành Viên
    Ngày tham gia
    Nov 2014
    Bài viết
    9
    Thanks
    2
    Thanked 0 Times in 0 Posts

    Hỏi về chức năng đổi Bạc ingame

    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
    Code:
    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=YuanbaoExchange_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:GetServerId2ClientId(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(maxYuanBao));
	else
		YuanbaoExchange_Moral_Value:SetText(tostring(point2YuanBao));
	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
    Code:
    --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)
				BroadMsgByChatPipe(sceneId, selfId,"@*;SrvMsg;DBD: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", 0);
			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.")
				BroadMsgByChatPipe(sceneId, selfId,"@*;SrvMsg;DBD: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", 0);
			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)
			BroadMsgByChatPipe(sceneId, selfId,"@*;SrvMsg;DBD: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", 0);
		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_ZENGD)/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_ZENGD)/1000)
                if FanquanCheck < 10^9 then
                   SetMissionData(sceneId,selfId,MD_GAME_FLAG0,10^9+fanquanNUM)
                else
                   SetMissionData(sceneId,selfId,MD_GAME_FLAG0,FanquanCheck+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µ http://tl.gameone.com/ 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_Gifts[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
    Khách viếng thăm hãy cùng anhhabo xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
  2. 10-09-21, 12:33 PM #2
    mr.vik20
    mr.vik20 vẫn chưa có mặt trong diễn đàn
    Thành Viên
    Ngày tham gia
    Jul 2011
    Bài viết
    140
    Thanks
    70
    Thanked 40 Times in 34 Posts
    Gửi tin nhắn qua Yahoo! đến mr.vik20

    Ðề: Hỏi về chức năng đổi Bạc ingame

    Trích dẫn Gửi bởi anhhabo [Only registered and activated users can see links. ]
    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
    Code:
    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=YuanbaoExchange_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:GetServerId2ClientId(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(maxYuanBao));
	else
		YuanbaoExchange_Moral_Value:SetText(tostring(point2YuanBao));
	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
    Code:
    --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)
				BroadMsgByChatPipe(sceneId, selfId,"@*;SrvMsg;DBD: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", 0);
			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.")
				BroadMsgByChatPipe(sceneId, selfId,"@*;SrvMsg;DBD: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", 0);
			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)
			BroadMsgByChatPipe(sceneId, selfId,"@*;SrvMsg;DBD: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", 0);
		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_ZENGD)/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_ZENGD)/1000)
                if FanquanCheck < 10^9 then
                   SetMissionData(sceneId,selfId,MD_GAME_FLAG0,10^9+fanquanNUM)
                else
                   SetMissionData(sceneId,selfId,MD_GAME_FLAG0,FanquanCheck+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µ http://tl.gameone.com/ 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_Gifts[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


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

    YuanbaoExchange_Moral_Value:SetProperty("ClearOffs et","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("CaratInde x", 1024);
    end
    Khách viếng thăm hãy cùng mr.vik20 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
    Trả lời kèm Trích dẫn Trả lời kèm Trích dẫn
 

 
« Lõi lạ | Cho em hỏi có thể thay đổi hình đại diện của Skill được không? »

Các Chủ đề tương tự

  1. [JX] Cần Mua 1 Sever JX Win Auto ingame Có Chức Năng Lọc Đồ
    Bởi Learning trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 16
    Bài viết cuối: 17-11-17, 12:20 PM
  2. [TLBB] cách điều chỉnh time dịch chuyển giữa các maps ingame tlbb
    Bởi catkevin trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 2
    Bài viết cuối: 03-05-17, 08:16 PM
  3. [JX] Xin Sever Chỉ Có Đồ Tím + HKMP + Auto Ingame
    Bởi nhanthien123 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 7
    Bài viết cuối: 16-07-15, 05:52 PM
  4. [JX] Các bạn giúp mình 2 vấn đề này SV AuTo InGame nhé
    Bởi thiensud trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 15-02-13, 12:28 PM
  5. [JX] Giúp Em Add Chức năng gọi boss tiểu, đại vào trong chức năng GM với !!
    Bởi tongtulenh trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 2
    Bài viết cuối: 22-05-12, 06:52 AM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  

Nội quy - Quy định

Múi giờ GMT +7. Bây giờ là 03:32 PM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.