PDA

View Full Version : [JX] em thích làm cái chuyển sinh nhận thưởng


sysco
08-04-16, 10:16 AM
em thích làm cái chuyển sinh nhận thưởng. gán vào npc hỗ trợ ,bác nào có thể share cho em với, em mới tập dev ,cám ơn anh chị em nhiều lắm .like 1000

hoặc có chủ đề share em với
ztviet
08-04-16, 10:23 AM
em thích làm cái chuyển sinh nhận thưởng. gán vào npc hỗ trợ ,bác nào có thể share cho em với, em mới tập dev ,cám ơn anh chị em nhiều lắm .like 1000

hoặc có chủ đề share em với

chơi off mà làm lớn thế >:) .............
sysco
08-04-16, 10:28 AM
chơi off mà làm lớn thế >:) .............

dạ em làm chơi cho biết ,chỉ em với
Kethanglang
08-04-16, 11:23 AM
Kiếm cái code chuyển sinh rồi thích gì add chung vô là được.
sysco
08-04-16, 12:19 PM
Kiếm cái code chuyển sinh rồi thích gì add chung vô là được.

code no như vậy :

{"Ta muèn chuyÓn sinh.", transfer},

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()
end
............................................

ví dụ đây là code nhận ngưa :

function nguabadao()
AddGoldItem(0, 4480)

..................................................
mình muốn thêm đồ vào như thế nào bác ơi
Kethanglang
08-04-16, 12:34 PM
code no như vậy :

{"Ta muèn chuyÓn sinh.", transfer},

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()
end
............................................

ví dụ đây là code nhận ngưa :

function nguabadao()
AddGoldItem(0, 4480)

..................................................
mình muốn thêm đồ vào như thế nào bác ơi
Thêm vào giữa chữ end cuối cùng. Không được thì thôi vào lấy ngựa ra sài cho rồi.
sysco
08-04-16, 12:41 PM
Thêm vào giữa chữ end cuối cùng. Không được thì thôi vào lấy ngựa ra sài cho rồi.

thêm cái này thôi phải không bác
AddGoldItem(0, 4480)
sysco
08-04-16, 12:59 PM
sẳn cho em hỏi thêm về 2 code chuyển sinh này khác nhau gì vây?

code 1:

function transfer()
if ST_IsTransLife() == 1 then
Talk(1, "", "Ng­¬i ®· chuyÓn sinh")
return
end
if GetLevel() < 190 then
Talk(1, "", "§¹t cÊp 190 vµ chuyÓn sinh tiÕp")
return
end
if (GetCash() <= 100000000) then
Talk(1, "", "ChuyÓn sinh cÇn mang ®ñ tiÒn, nÕu kh«ng ®ñ xin h·y ®i chuÈn bÞ")
return
end
Pay(100000000)
ST_DoTransLife()
end


code 2:

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

.............................
phần chữ đỏ ý nghĩa thế nào vậy bác ơi?
ztviet
08-04-16, 01:47 PM
Chuyển sinh đc 1 lần thôi. Để lên 10 thì code này có hiệu lực chuyển sinh từ 1 đến 10 và 11 là tịt
sysco
08-04-16, 01:54 PM
Chuyển sinh đc 1 lần thôi. Để lên 10 thì code này có hiệu lực chuyển sinh từ 1 đến 10 và 11 là tịt

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ế
Kethanglang
08-04-16, 02:54 PM
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
08-04-16, 03:20 PM
Playertitle trong setting.

30 cục chà bông.

oh , thanks bác 100 cục chả lụa=P~
sysco
08-04-16, 04:19 PM
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
08-04-16, 05:20 PM
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 .:Laluot_230:
wermanhme1990
08-04-16, 05:31 PM
Không biết làm thì pm cậu ấy mà mua cho nhanh.
sysco
09-04-16, 10:00 AM
đâ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
09-04-16, 10:53 AM
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
09-04-16, 11:10 AM
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
09-04-16, 11:25 AM
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
09-04-16, 11:34 AM
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 ?
ztviet
09-04-16, 11:55 AM
Đúng rồi. Edit lại phần kiểm tra cấp và phần cấp cần để chuyển. Và phần thưởng thôi.
Câu hỏi ngẫu nhiên . Người như bác carot còn bao nhiêu?
:))
sysco
09-04-16, 01:03 PM
Đúng rồi. Edit lại phần kiểm tra cấp và phần cấp cần để chuyển. Và phần thưởng thôi.
Câu hỏi ngẫu nhiên . Người như bác carot còn bao nhiêu?
:))

bác ơi , em add vao npc rồi như sau:


function cs1cap190()
if GetTask(357,0) == 1 then
if GetLevel() >= 190 then
if CalcFreeItemCellCount() > 50 then
if ST_GetTransLifeCount() >= 1 then
local ItemIndex = AddGoldItem(0, 4480)
SetItemBindState(ItemIndex,-2) ---khoa vinh vien

local ItemIndex =
SetItemBindState(ItemIndex,-2) ---khoa vinh vie
local ItemIndex =
SetItemBindState(ItemIndex,-2) ---khoa vinh vie

local ItemIndex =
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 190 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 190 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 190.")
end
else
Talk(1, "", "B¹n ch­a trung sinh1 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



mà không nhận đc ,nó báo chưa chuyển sinh 1,code có thiếu hay sai chổ nào chỉ em cái
carotkhoaitay
09-04-16, 01:55 PM
bác ơi , em add vao npc rồi như sau:


function cs1cap190()
if GetTask(357,0) == 1 then
if GetLevel() >= 190 then
if CalcFreeItemCellCount() > 50 then
if ST_GetTransLifeCount() >= 1 then
local ItemIndex = AddGoldItem(0, 4480)
SetItemBindState(ItemIndex,-2) ---khoa vinh vien

local ItemIndex =
SetItemBindState(ItemIndex,-2) ---khoa vinh vie
local ItemIndex =
SetItemBindState(ItemIndex,-2) ---khoa vinh vie

local ItemIndex =
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 190 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 190 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 190.")
end
else
Talk(1, "", "B¹n ch­a trung sinh1 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



mà không nhận đc ,nó báo chưa chuyển sinh 1,code có thiếu hay sai chổ nào chỉ em cái

if GetTask(357,0) == 1 then sua lai == 0

if ST_GetTransLifeCount() >= 1 then - danh cho ts = 1 hoac lon hon 1
HungDevJX
09-04-16, 02:12 PM
function cs1cap190()
if GetTask(357) == 0 then
if GetLevel() >= 120 then
if CalcFreeItemCellCount() > 50 then
if ST_GetTransLifeCount() >= 1 then
local ItemIndex = AddGoldItem(0, 4480)
SetItemBindState(ItemIndex,-2) ---khoa vinh vien

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

SetTask(357,1)
Msg2Player( "B¹n nhËn ®­îc phÇn th­ëng <color=yellow>Th¨ng CÊp 120 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 120 ChuyÓn Sinh LÇn 1<color> kh«ng hæ danh anh hïng hµo kiÖt xuÊt chóng")
else

ITC Computer NHA TRANG: 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 120.")
end
else
Talk(1, "", "B¹n ch­a trung sinh1 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

mới fix lại code của carot đó. add là dùng thẳng
sysco
09-04-16, 04:07 PM
ok full ,cám ơn bác nhé ---------100 cục