PDA

View Full Version : [TLBB] Share Script Chuyển Sinh mới cho ai không có thời gian viết



caovanthanh22
21-11-16, 07:02 PM
Script chuyển sinh có kèm theo chức năng xóa số lần chuyển sinh.. ^^... khi số lần chuyển sinh bị lỗi vượt quá số lần giới hạn chuyển sinh
Code:

--ÐÕi Lý New
--ID: 002054
--************************

x002054_g_ScriptId = 002054

--*****************************--
--* On Default Event *--
--*****************************--
function x002054_OnDefaultEvent(sceneId,selfId,targetId)
local gongli=GetMissionData( sceneId, selfId, XIULIAN_GONGLI )
local liliang=GetMissionData( sceneId, selfId, XIULIAN_LILIANG )
local lingqi=GetMissionData( sceneId, selfId, XIULIAN_LINGQI )
local tili=GetMissionData( sceneId, selfId, XIULIAN_TILI )
local dingli=GetMissionData( sceneId, selfId, XIULIAN_DINGLI )
local shenfa=GetMissionData( sceneId, selfId, XIULIAN_SHENFA )
BeginEvent(sceneId)
AddText(sceneId,"Ta là #GNickname#W.")
AddText(sceneId,"Chï c¥n các hÕ ðÕt ðªn c¤p ðµ #G120#W thì có th¬ ðªn ch² tÕi hÕ tiªn hành #GChuy¬n Sinh#W. Sau khi #GChuy¬n Sinh#W, t¤t cä thuµc tính #Gkhông thay ð±i#W, các hÕ s¨ tr· v« #Gc¤p 10#W!")
AddText(sceneId,"#GChuy¬n Sinh#W càng nhi«u l¥n thì s¯ ði¬m thuµc tính càng l¾n!")
AddNumText(sceneId,x002054_g_ScriptId,"#GChuy¬n Sinh",2,1)
AddNumText(sceneId,x002054_g_ScriptId,"Hüy s¯ l¥n #GChuy¬n Sinh",2,200)
AddNumText(sceneId,x002054_g_ScriptId,"Xem s¯ l¥n #GChuy¬n Sinh",2,2)
AddNumText(sceneId,x002054_g_ScriptId,"Nh§n danh hi®u",2,3)
AddNumText(sceneId,x002054_g_ScriptId,"V« #GChuy¬n Sinh#W",11,4)
EndEvent(senceId)
DispatchEventList(sceneId,selfId,targetId)

end
--*****************************--
--* On Event Request *--
--*****************************--
function x002054_OnEventRequest(sceneId,selfId,targetId,eve ntId)
local key = GetNumText()

--*****************--
local num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
if key == 1 then

BeginEvent(sceneId)
AddText(sceneId,"Sau khi #GChuy¬n Sinh#W, các hÕ s¨ tr· v« c¤p ðµ 10!")
AddText(sceneId,"Các hÕ xác nh§n #GChuy¬n Sinh#W?")
AddNumText(sceneId,x002054_g_ScriptId,"Chuy¬n Sinh",2,100)
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)

end
--*****************--
if key == 100 then
local liliang=GetMissionData( sceneId, selfId, XIULIAN_LILIANG )
local lingqi=GetMissionData( sceneId, selfId, XIULIAN_LINGQI )
local tili=GetMissionData( sceneId, selfId, XIULIAN_TILI )
local tili=GetMissionData( sceneId, selfId, XIULIAN_DINGLI )
local shenfa=GetMissionData( sceneId, selfId, XIULIAN_SHENFA )
if GetLevel(sceneId,selfId) < 120 then
BeginEvent(sceneId)
AddText(sceneId,"Chï có th¬ #GChuy¬n Sinh#W sau khi ðÕt c¤p #G120#W tr· lên!")
AddText(sceneId,"Hãy ði tu luy®n thêm, khi nào ðÕt #Gc¤p 120#W lÕi ðªn ch² ta tiªn hành #GChuy¬n Sinh#W nhé!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
elseif num>2000 then
BeginEvent(sceneId)
AddText(sceneId,"Chï có th¬ #GChuy¬n Sinh#W t¯i ða #G2000#W l¥n!")
AddText(sceneId,"Các hÕ ðã #GChuy¬n Sinh#W ðÕt ðªn ngßÞng này r°i thì ðã #GThiên hÕ vô ð¸ch#W, không c¥n #GChuy¬n Sinh#W thêm næa!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
else
SetLevel(sceneId,selfId,10)
num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
SetMissionData(sceneId, selfId, XIULIAN_LILIANG, GetMissionData( sceneId, selfId, XIULIAN_LILIANG )+10);
SetMissionData(sceneId, selfId, XIULIAN_LINGQI, GetMissionData( sceneId, selfId, XIULIAN_LINGQI )+10);
SetMissionData(sceneId, selfId, XIULIAN_TILI, GetMissionData( sceneId, selfId, XIULIAN_TILI )+10);
SetMissionData(sceneId, selfId, XIULIAN_DINGLI, GetMissionData( sceneId, selfId, XIULIAN_DINGLI )+10);
SetMissionData(sceneId, selfId, XIULIAN_SHENFA, GetMissionData( sceneId, selfId, XIULIAN_SHENFA )+10);
SetMissionData(sceneId,selfId,MD_ZHUANSHENG,num+1)
x002054_ReturnAttr(sceneId, selfId)
LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, 152, 0) --
x002054_ReturnAttr(sceneId, selfId)
BeginEvent(sceneId)
AddText(sceneId,"Chúc m×ng các hÕ ðã #GChuy¬n Sinh#W thành công. C¤p ðµ hi®n tÕi cüa các hÕ là #GC¤p 10#W!")
AddText(sceneId,"S¯ l¥n các hÕ #GChuy¬n Sinh#W tính ðªn hi®n tÕi là #G"..num.." l¥n#W!")
AddText(sceneId,"Hãy ði tu luy®n thêm, khi nào ðÕt #Gc¤p 120#W lÕi ðªn ch² ta tiªn hành #GChuy¬n Sinh#W nhé!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end

end
--*****************--
if key == 2 then

num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
BeginEvent(sceneId)
AddText(sceneId,"S¯ l¥n #GChuy¬n Sinh#W cüa các hÕ tính t¾i hi®n tÕi là: #G"..num.."#W l¥n!")
AddText(sceneId,"T¯i ða còn lÕi "..(2000-num).." l¥n #GChuy¬n Sinh#W næa!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)

end
--*****************--
if key == 200 then

BeginEvent(sceneId)
AddText(sceneId,"Sau khi hüy s¯ l¥n #GChuy¬n Sinh#W, t¤t cä các thuµc tính không thay ð±i, s¯ l¥n #GChuy¬n sinh #Wlà #G0")
AddText(sceneId,"#BNhßng chï ðßþc sØ døng chÑc nång này khi s¯ l¥n #GChuy¬n Sinh #Bvßþt quá #G2000 #Bl¥n!")
AddNumText(sceneId,x002054_g_ScriptId,"Xác Nh§n",2,201)
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)

end
--*****************--
if key == 201 then
if num<=2000 then
BeginEvent(sceneId)
AddText(sceneId,"ChÑc nång này chï ðßþc thñc hi®n khi các hÕ b¸ l²i #GChuy¬n Sinh#W!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
else
num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
SetMissionData(sceneId,selfId,MD_ZHUANSHENG,num-num)
BeginEvent(sceneId)
AddText(sceneId,"S¯ l¥n #GChuy¬n Sinh#W cüa các hÕ hi®n tÕi là #G0")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end
end
--*****************--
if key == 3 then

BeginEvent(sceneId)
AddText(sceneId,"Các hÕ mu¯n ð±i danh hi®u nào?")
AddNumText(sceneId,x002054_g_ScriptId,"#YTh§p ÐÕi Cao Thü",11,5)
AddNumText(sceneId,x002054_g_ScriptId,"#GHành Giã Vô Song",11,6)
AddNumText(sceneId,x002054_g_ScriptId,"#GCái Thª Anh Hùng",11,7)
AddNumText(sceneId,x002054_g_ScriptId,"#c00ff00T¸ch M¸ch Cao Thü",11,8)
AddNumText(sceneId,x002054_g_ScriptId,"#c00ff00H²n Thiên Tr¤n Nguyên",11,9)
AddNumText(sceneId,x002054_g_ScriptId,"#c00ff00S° Phßþng Linh Vû",11,10)
AddNumText(sceneId,x002054_g_ScriptId,"#YTi«m Long Ngâm Uyên",11,11)
AddNumText(sceneId,x002054_g_ScriptId,"#YChí Tôn Truy«n Thuyªt",11,12)
AddNumText(sceneId,x002054_g_ScriptId,"#cFF0000Vô Song Vß½ng Giä",11,13)
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)

end
--*****************--
if key == 4 then

BeginEvent(sceneId)
AddText(sceneId,"Sau khi #GChuy¬n Sinh#W, các thuµc tính #Gtâm pháp môn phái#W không thay ð±i!")
AddText(sceneId,"#GChuy¬n Sinh#W càng nhi«u l¥n, sÑc mÕnh cüa các hÕ càng tång!")
AddText(sceneId,"Sau khi ðÕt mµt s¯ m¯c v« s¯ l¥n #GChuy¬n Sinh#W c¯ ð¸nh, có th¬ lînh nh§n danh hi®u cao quý vô cùng!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)

end
--*****************--
if key == 5 then

num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
if num < 1 then
BeginEvent(sceneId)
AddText(sceneId,"бi danh hi®u #GTh§p ÐÕi Cao Thü#W c¥n #G1 l¥n#W thành công #GChuy¬n Sinh#W!")
AddText(sceneId,"S¯ l¥n #GChuy¬n Sinh#W cüa các hÕ hi®n tÕi là "..num..", vçn chßa ðü #G1 l¥n#W, không th¬ nh§n danh hi®u!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
else
LuaFnAwardSpouseTitle(sceneId,selfId,"#YTh§p ÐÕi Cao Thü")
DispatchAllTitle(sceneId,selfId)
BeginEvent(sceneId)
AddText(sceneId,"Chúc m×ng các hÕ nh§n thành công danh hi®u #YTh§p ÐÕi Cao Thü#W!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end

end
--*****************--
if key == 6 then

num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
if num < 20 then
BeginEvent(sceneId)
AddText(sceneId,"бi danh hi®u #GHành Giã Vô Song#W c¥n #G20 l¥n#W thành công #GChuy¬n Sinh#W!")
AddText(sceneId,"S¯ l¥n #GChuy¬n Sinh#W cüa các hÕ hi®n tÕi là "..num..", vçn chßa ðü #G20 l¥n#W, không th¬ nh§n danh hi®u!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
else
LuaFnAwardSpouseTitle(sceneId,selfId,"#GHành Giã Vô Song")
DispatchAllTitle(sceneId,selfId)
BeginEvent(sceneId)
AddText(sceneId,"Chúc m×ng các hÕ nh§n thành công danh hi®u #GHành Giã Vô Song#W!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end

end
--*****************--
if key == 7 then

num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
if num < 50 then
BeginEvent(sceneId)
AddText(sceneId,"бi danh hi®u #GCái Thª Anh Hùng#W c¥n #G50 l¥n#W thành công #GChuy¬n Sinh#W!")
AddText(sceneId,"S¯ l¥n #GChuy¬n Sinh#W cüa các hÕ hi®n tÕi là "..num..", vçn chßa ðü #G50 l¥n#W, không th¬ nh§n danh hi®u!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
else
LuaFnAwardSpouseTitle(sceneId,selfId,"#GCái Thª Anh Hùng")
DispatchAllTitle(sceneId,selfId)
BeginEvent(sceneId)
AddText(sceneId,"Chúc m×ng các hÕ nh§n thành công danh hi®u #GCái Thª Anh Hùng#W!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end

end
--*****************--
if key == 8 then

num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
if num < 100 then
BeginEvent(sceneId)
AddText(sceneId,"бi danh hi®u #GT¸ch M¸ch Cao Thü#W c¥n #G100 l¥n#W thành công #GChuy¬n Sinh#W!")
AddText(sceneId,"S¯ l¥n #GChuy¬n Sinh#W cüa các hÕ hi®n tÕi là "..num..", vçn chßa ðü #G100 l¥n#W, không th¬ nh§n danh hi®u!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
else
LuaFnAwardSpouseTitle(sceneId,selfId,"#c00ff00T¸ch M¸ch Cao Thü")
DispatchAllTitle(sceneId,selfId)
BeginEvent(sceneId)
AddText(sceneId,"Chúc m×ng các hÕ nh§n thành công danh hi®u #c00ff00T¸ch M¸ch Cao Thü#W!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end

end
--*****************--
if key == 9 then

num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
if num < 200 then
BeginEvent(sceneId)
AddText(sceneId,"бi danh hi®u #GH²n Thiên Tr¤n Nguyên#W c¥n #G200 l¥n#W thành công #GChuy¬n Sinh#W!")
AddText(sceneId,"S¯ l¥n #GChuy¬n Sinh#W cüa các hÕ hi®n tÕi là "..num..", vçn chßa ðü #G200 l¥n#W, không th¬ nh§n danh hi®u!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
else
LuaFnAwardSpouseTitle(sceneId,selfId,"#c00ff00H²n Thiên Tr¤n Nguyên")
DispatchAllTitle(sceneId,selfId)
BeginEvent(sceneId)
AddText(sceneId,"Chúc m×ng các hÕ nh§n thành công danh hi®u #c00ff00H²n Thiên Tr¤n Nguyên#W!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end

end
--*****************--
if key == 10 then

num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
if num < 350 then
BeginEvent(sceneId)
AddText(sceneId,"бi danh hi®u #GS° Phßþng Linh Vû#W c¥n #G350 l¥n#W thành công #GChuy¬n Sinh#W!")
AddText(sceneId,"S¯ l¥n #GChuy¬n Sinh#W cüa các hÕ hi®n tÕi là "..num..", vçn chßa ðü #G350 l¥n#W, không th¬ nh§n danh hi®u!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
else
LuaFnAwardSpouseTitle(sceneId,selfId,"#c00ff00S° Phßþng Linh Vû")
DispatchAllTitle(sceneId,selfId)
BeginEvent(sceneId)
AddText(sceneId,"Chúc m×ng các hÕ nh§n thành công danh hi®u #c00ff00S° Phßþng Linh Vû#W!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end

end
--*****************--
if key == 11 then

num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
if num < 600 then
BeginEvent(sceneId)
AddText(sceneId,"бi danh hi®u #GTi«m Long Ngâm Uyên#W c¥n #G600 l¥n#W thành công #GChuy¬n Sinh#W!")
AddText(sceneId,"S¯ l¥n #GChuy¬n Sinh#W cüa các hÕ hi®n tÕi là "..num..", vçn chßa ðü #G600 l¥n#W, không th¬ nh§n danh hi®u!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
else
LuaFnAwardSpouseTitle(sceneId,selfId,"#YTi«m Long Ngâm Uyên")
DispatchAllTitle(sceneId,selfId)
BeginEvent(sceneId)
AddText(sceneId,"Chúc m×ng các hÕ nh§n thành công danh hi®u #YTi«m Long Ngâm Uyên#W!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end

end
--*****************--
if key == 12 then

num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
if num < 1000 then
BeginEvent(sceneId)
AddText(sceneId,"бi danh hi®u #GChí Tôn Truy«n Thuyªt#W c¥n #G1000 l¥n#W thành công #GChuy¬n Sinh#W!")
AddText(sceneId,"S¯ l¥n #GChuy¬n Sinh#W cüa các hÕ hi®n tÕi là "..num..", vçn chßa ðü #G1000 l¥n#W, không th¬ nh§n danh hi®u!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
else
LuaFnAwardSpouseTitle(sceneId,selfId,"#YChí Tôn Truy«n Thuyªt")
DispatchAllTitle(sceneId,selfId)
BeginEvent(sceneId)
AddText(sceneId,"Chúc m×ng các hÕ nh§n thành công danh hi®u #YChí Tôn Truy«n Thuyªt#W!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end

end
--*****************--
if key == 13 then

num = GetMissionData(sceneId,selfId,MD_ZHUANSHENG)
if num < 2000 then
BeginEvent(sceneId)
AddText(sceneId,"бi danh hi®u #GVô Song Vß½ng Giä#W c¥n #G2000 l¥n#W thành công #GChuy¬n Sinh#W!")
AddText(sceneId,"S¯ l¥n #GChuy¬n Sinh#W cüa các hÕ hi®n tÕi là "..num..", vçn chßa ðü #G2000 l¥n#W, không th¬ nh§n danh hi®u!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
else
LuaFnAwardSpouseTitle(sceneId,selfId,"#cFF0000Vô Song Vß½ng Giä")
DispatchAllTitle(sceneId,selfId)
BeginEvent(sceneId)
AddText(sceneId,"Chúc m×ng các hÕ nh§n thành công danh hi®u #cFF0000Vô Song Vß½ng Giä#W!")
EndEvent(sceneId)
DispatchEventList(sceneId,selfId,targetId)
end

end
--*****************--
end
function x002054_ReturnAttr(sceneId, selfId)
local gongli=GetMissionData( sceneId, selfId, XIULIAN_GONGLI )
local liliang=GetMissionData( sceneId, selfId, XIULIAN_LILIANG )
local lingqi=GetMissionData( sceneId, selfId, XIULIAN_LINGQI )
local tili=GetMissionData( sceneId, selfId, XIULIAN_TILI )
local dingli=GetMissionData( sceneId, selfId, XIULIAN_DINGLI )
local shenfa=GetMissionData( sceneId, selfId, XIULIAN_SHENFA )
x002054_AddBuff(sceneId, selfId)
BeginUICommand( sceneId )
UICommand_AddInt( sceneId, gongli )
UICommand_AddInt( sceneId, liliang )
UICommand_AddInt( sceneId, lingqi )
UICommand_AddInt( sceneId, tili )
UICommand_AddInt( sceneId, dingli )
UICommand_AddInt( sceneId, shenfa )
EndUICommand( sceneId )
DispatchUICommand( sceneId, selfId, 20000001)
end

function x002054_AddBuff(sceneId, selfId)
local liliangBuff = 28000
local lingqiBuff = 28100
local tiliBuff = 28200
local dingliBuff = 28300
local shenfaBuff = 28400
local liliang=GetMissionData( sceneId, selfId, XIULIAN_LILIANG )
local lingqi=GetMissionData( sceneId, selfId, XIULIAN_LINGQI )
local tili=GetMissionData( sceneId, selfId, XIULIAN_TILI )
local dingli=GetMissionData( sceneId, selfId, XIULIAN_DINGLI )
local shenfa=GetMissionData( sceneId, selfId, XIULIAN_SHENFA )

liliangBuff=liliangBuff+liliang
lingqiBuff=lingqiBuff+lingqi
tiliBuff=tiliBuff+tili
dingliBuff=dingliBuff+dingli
shenfaBuff=shenfaBuff+shenfa
if liliang>0 then
LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, liliangBuff, 0)
end
if lingqi>0 then
LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, lingqiBuff, 0)
end
if tili>0 then
LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, tiliBuff, 0)
end
if dingli>0 then
LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, dingliBuff, 0)
end
if shenfa>0 then
LuaFnSendSpecificImpactToUnit(sceneId, selfId, selfId, selfId, shenfaBuff, 0)
end
end