em thích làm cái chuyển sinh nhận thưởng

[Kethanglang]

cám ơn bác ,em hiểu rồi ,max la 10 lần.

sẳn cho em hỏi thêm cái vụ vòng sáng này :

code :

function DanhHieu()
local szTitle = "<npc>moi ban chon danh hieu"
local tbOpt =
{
{"VL Kiet xuat", abcxyz,{85}},
{"VL Minh Chu", abcxyz,{188}},
{"Ngu Long", abcxyz,{165}},
{"Ngu Long", abcxyz,{150}},
{"Ngu Long", abcxyz,{189}},
{"Tuyet The Cao Thu", abcxyz,{235}},
{"Manh Long Tranh Ba", abcxyz,{228}},
{"Manh Long Tranh Ba", abcxyz,{263}},
{"Tho¸t"},
}
CreateNewSayEx(szTitle, tbOpt)
end

.............
Phần chữ đỏ ,res nó nằm ở đâu chỉ em với ,em muốn thay thế

Playertitle trong setting.

30 cục chà bông.

[sysco]

Playertitle trong setting.

30 cục chà bông.

oh , thanks bác 100 cục chả lụa

[sysco]

Cho em hỏi thêm code vòng sáng :

function vongsa()
n_title = 3000 -- S?a ID danh hi?u vào
local nServerTime = GetCurServerTime()+ 1728000; --20*24*60*60
local nDate = FormatTime2Number(nServerTime);
local nDay = floor(mod(nDate,1000000) / 10000);
local nMon = mod(floor(nDate / 1000000) , 100)
local nTime = nMon * 1000000 + nDay * 10000
Title_AddTitle(n_title, 2, nTime)
Title_ActiveTitle(n_title)
SetTask(1122,n_title)
end
.................
em muốn thêm code vòng sáng vào function chuyển sinh :

code chuyển sinh:

function transfer()
if GetLevel() < 190 then
Talk(1, "", "CÊp 190 trë lªn míi ca thÓ chuyÓn sinh.")
return
end
if (GetCash() <= 100000000) then
Talk(1, "", "Ph¶i ca ®ñ 10k v¹n míi ca thÓ chuyÓn sinh.")
return
end
Pay(100000000)
ST_DoTransLife()
AddGoldItem(0, 4480)
end
..................
add như thế nào cho đúng ạ, bác chỉ em với !

[Kethanglang]

Cho em hỏi thêm code vòng sáng :

function vongsa()
n_title = 3000 -- S?a ID danh hi?u vào
local nServerTime = GetCurServerTime()+ 1728000; --20*24*60*60
local nDate = FormatTime2Number(nServerTime);
local nDay = floor(mod(nDate,1000000) / 10000);
local nMon = mod(floor(nDate / 1000000) , 100)
local nTime = nMon * 1000000 + nDay * 10000
Title_AddTitle(n_title, 2, nTime)
Title_ActiveTitle(n_title)
SetTask(1122,n_title)
end
.................
em muốn thêm code vòng sáng vào function chuyển sinh :

code chuyển sinh:

function transfer()
if GetLevel() < 190 then
Talk(1, "", "CÊp 190 trë lªn míi ca thÓ chuyÓn sinh.")
return
end
if (GetCash() <= 100000000) then
Talk(1, "", "Ph¶i ca ®ñ 10k v¹n míi ca thÓ chuyÓn sinh.")
return
end
Pay(100000000)
ST_DoTransLife()
AddGoldItem(0, 4480)
end
..................
add như thế nào cho đúng ạ, bác chỉ em với !

Đừng hỏi hãy thực hiện khi nào bí quá thì hỏi .

[wermanhme1990]

Không biết làm thì pm cậu ấy mà mua cho nhanh.

[sysco]

đây la code nâng cấp nv 150:

function level_up_to150()
local nCurLevel = GetLevel()
if nCurLevel >= 150 then
if ST_IsTransLife() == 1 then
Talk(1, "", "Ng­¬i ®· ®¹t cÊp 150 råi.")
else
Talk(1, "", "§i chuyÓn sinh tr­íc ®i råi trë l¹i th¨ng cÊp.")
end
return
end
local nAddLevel = 150 - nCurLevel
ST_LevelUp(nAddLevel)
end

.......................
và nếu thêm chữ : "no" ,thì nó chỉ cho nhận 1 lần phải không bác ......./

function level_up_to150()
local nCurLevel = GetLevel()
if nCurLevel >= 150 then
if ST_IsTransLife() == 1 then
Talk(1, "no", "Ng­¬i ®· ®¹t cÊp 150 råi.")
else
Talk(1, "no", "§i chuyÓn sinh tr­íc ®i råi trë l¹i th¨ng cÊp.")
end
return
end
local nAddLevel = 150 - nCurLevel
ST_LevelUp(nAddLevel)
end

[ztviet]

Bạn thêm no vào task để làm gì . Nói rõ lý do mới giúp đc.
if nCurLevel >= 150 then . Là kiểm tra cấp nhân vật lớn hoặc bằng 150
if ST_IsTransLife() == 1 then là kiểm tra chuyển sinh

[sysco]

Bạn thêm no vào task để làm gì . Nói rõ lý do mới giúp đc.
if nCurLevel >= 150 then . Là kiểm tra cấp nhân vật lớn hoặc bằng 150
if ST_IsTransLife() == 1 then là kiểm tra chuyển sinh

em thêm "no" ,muốn cho nhận 1 lần ,sau khi chuyển sinh ,ko nhận lai nữa đó .
em đang vướng chổ sau khi cs , lai nhận tiêp 150 .....

[carotkhoaitay]

em thêm "no" ,muốn cho nhận 1 lần ,sau khi chuyển sinh ,ko nhận lai nữa đó .
em đang vướng chổ sau khi cs , lai nhận tiêp 150 .....

function cs1cap180()
if GetTask(357,0) == 9 then
if GetLevel() >= 180 then
if CalcFreeItemCellCount() > 50 then
if ST_GetTransLifeCount() >= 1 then
local ItemIndex = AddItem(6,1,2357,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vien

local ItemIndex = AddItem(6,1,26,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vie
local ItemIndex = AddItem(6,1,26,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vie

local ItemIndex = AddItem(6,1,22,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vie
local ItemIndex = AddItem(6,1,22,1,0,0)

SetTask(357,GetTask(357,0)+1)
Msg2Player( "B¹n nhËn ®­îc phÇn th­ëng <color=yellow>Th¨ng CÊp 180 ChuyÓn Sinh LÇn 1<color> Chóc b¹n ch¬i game vui vÎ" );
Msg2SubWorld("§¹i hiÖp <color=yellow>"..GetName().."<color> nhËn phÇn th­ëng <color=yellow>Th¨ng CÊp 180 ChuyÓn Sinh LÇn 1<color> kh«ng hæ danh anh hïng hµo kiÖt xuÊt chóng")
else
Talk(1, "", "PhÇn th­ëng chØ dµnh cho ng­êi trïng sinh lÇn 1");
return
end
else
Talk(1, "", "Hµnh trang kh«ng ®ñ 50 chç trèng.")
return
end
else
Talk(1, "", "B¹n ch­a ®¹t cÊp 180.")
end
else
Talk(1, "", "B¹n ch­a nhËn c¸c phÇn th­ëng tr­íc kia nªn kh«ng thÓ nhËn phÇn th­ëng nµy.Mét phÇn th­ëng chØ nhËn mét lÇn duy nhÊt !")
end
end

[sysco]

function cs1cap180()
if GetTask(357,0) == 9 then
if GetLevel() >= 180 then
if CalcFreeItemCellCount() > 50 then
if ST_GetTransLifeCount() >= 1 then
local ItemIndex = AddItem(6,1,2357,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vien

local ItemIndex = AddItem(6,1,26,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vie
local ItemIndex = AddItem(6,1,26,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vie

local ItemIndex = AddItem(6,1,22,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vie
local ItemIndex = AddItem(6,1,22,1,0,0)

SetTask(357,GetTask(357,0)+1)
Msg2Player( "B¹n nhËn ®­îc phÇn th­ëng <color=yellow>Th¨ng CÊp 180 ChuyÓn Sinh LÇn 1<color> Chóc b¹n ch¬i game vui vÎ" );
Msg2SubWorld("§¹i hiÖp <color=yellow>"..GetName().."<color> nhËn phÇn th­ëng <color=yellow>Th¨ng CÊp 180 ChuyÓn Sinh LÇn 1<color> kh«ng hæ danh anh hïng hµo kiÖt xuÊt chóng")
else
Talk(1, "", "PhÇn th­ëng chØ dµnh cho ng­êi trïng sinh lÇn 1");
return
end
else
Talk(1, "", "Hµnh trang kh«ng ®ñ 50 chç trèng.")
return
end
else
Talk(1, "", "B¹n ch­a ®¹t cÊp 180.")
end
else
Talk(1, "", "B¹n ch­a nhËn c¸c phÇn th­ëng tr­íc kia nªn kh«ng thÓ nhËn phÇn th­ëng nµy.Mét phÇn th­ëng chØ nhËn mét lÇn duy nhÊt !")
end
end

thanks bác ,đây la hàm nhận thưởng cs ....,em add nó vào npc được chứ bác ?
nếu em thay thế :
local ItemIndex = AddItem(6,1,2357,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vien

local ItemIndex = AddItem(6,1,26,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vie
local ItemIndex = AddItem(6,1,26,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vie

local ItemIndex = AddItem(6,1,22,1,0,0)
SetItemBindState(ItemIndex,-2) ---khoa vinh vie
local ItemIndex = AddItem(6,1,22,1,0,0)

..............................

nếu muốn nhận thửong chuyển sinh 2,3,4,5
chỉ cần thay thế phải không bác ?