[KT] Share Script Chuyển Sinh by trantoai223 [Lưu trữ]

Lãng Tử Sầu

19-09-12, 07:45 PM

jangaka1

19-09-12, 08:01 PM

:| vừa viết xong chuyển sinh hôm qua ,
hôm nay vô forum thấy share :|

--- Chế độ gộp bài viết ---

Hi pro Lãng Tử Sầu cho mình yahoo , mình hỏi 1 số thứ về kiếm thế đc không :)
Thanks !

kentak

19-09-12, 11:15 PM

:| vừa viết xong chuyển sinh hôm qua ,
hôm nay vô forum thấy share :|

--- Chế độ gộp bài viết ---

Hi pro Lãng Tử Sầu cho mình yahoo , mình hỏi 1 số thứ về kiếm thế đc không :)
Thanks !

YH ngay dưới chữ ký còn gì nữa mà hỏi ;))

anhvaem_n2s

19-09-12, 11:57 PM

Bạn hướng dẫn set task luôn cho trọn vẹn bạn ơi. thank

haidangtb1992

20-09-12, 01:17 AM

bạn vào gs/script/npc/liguan.lua thêm vào

{"<color=green>Chuyển Sinh<color> ", self.chuyensinh, self},

và

function tbLiGuan:chuyensinh()
local tbNpc = Npc:GetClass("chuyensinh");
tbNpc:OnDialog();
end
là dc
Mà mình hỏi muốn thêm xem số lân cs thì làm thê nào vậy

kiemthep

20-09-12, 05:48 AM

Sau khi chuyển sinh xong điểm kỹ năng được thưởng ko có. bạn xem lại dùm mình nghe
Chuyen sinh lan 2 chỉ đòi cấp 140 chứ ko phải cấp 145 như trong giứi thiệu

nghichtu91

20-09-12, 07:59 AM

=P~ thanks .........
tìm thấy cái hàm
Player:SetFree(me.szName); không biết có tác dụng gì 8-x
--------------------------------------
code viết hơn dài quá :( ;;)

hachgame01

20-09-12, 08:37 AM

ai có event trung thu share luôn cho anh em luôn đi nào =p~

nghichtu91

20-09-12, 08:40 AM

ai có event trung thu share luôn cho anh em luôn đi nào =p~

chơi off hay mở pri =)) ...................>:D<

hachgame01

20-09-12, 10:00 AM

Hồi đó h nghichtu chưa làm từ thiện đó nha làm 1 lần đi

nghichtu91

20-09-12, 10:05 AM

Hồi đó h nghichtu chưa làm từ thiện đó nha làm 1 lần đi

=)) từ thiện làm gì =)) cho bị ăn đá với chữi nhỉ =)) (:|
-----------------------------------------------------------------------

hachgame01

20-09-12, 10:09 AM

=)) từ thiện làm gì =)) cho bị ăn đá với chữi nhỉ =)) (:|
-----------------------------------------------------------------------

kiết thế ngichtu thì share lên cho anh em nó nghiên cứu

nghichtu91

20-09-12, 10:13 AM

kiết thế ngichtu thì share lên cho anh em nó nghiên cứu

muốn ngâm thì mấy cái trên diễn đàn ;)) nham là ok rùi đấy :D 8-x

Lãng Tử Sầu

20-09-12, 10:45 AM

:D ........... Bạn nào có thì share cho Bạn í đi.

hitlezan

20-09-12, 11:53 AM

chuyen sinh là gì vay ? gióng trùng sinh à

ShineGhost

20-09-12, 11:58 AM

tuy ko xài ! nhưng tks lấy tinh thần cộng đồng.............

Lãng Tử Sầu

20-09-12, 12:02 PM

chuyen sinh là gì vay ? gióng trùng sinh à

Ờm ờm chuẩn Bạn!.......................

kiemthep

20-09-12, 12:13 PM

Sau khi chuyển sinh xong điểm kỹ năng được thưởng ko có. bạn xem lại dùm mình nghe
Chuyen sinh lan 2 chỉ đòi cấp 140 chứ ko phải cấp 145 như trong giứi thiệu
có ai bị lỗi như vậy không hướng dẫn mình với

hachgame01

20-09-12, 12:18 PM

:D ........... Bạn nào có thì share cho Bạn í đi.

bạn nào có event trung thu share đi ta :D

nghichtu91

20-09-12, 04:19 PM

bạn nào có event trung thu share đi ta :D

mở sv =)) onlien ăn tiền người ta =))
mà ngồi chờ sung à :(
------------ thế thì làm sao phát triển .............. phải pha banh tành máy cái script ra chứ
đó là bí quyết tôi viết script đấy ;;)

Lãng Tử Sầu

20-09-12, 05:35 PM

mở sv =)) onlien ăn tiền người ta =))
mà ngồi chờ sung à :(
------------ thế thì làm sao phát triển .............. phải pha banh tành máy cái script ra chứ
đó là bí quyết tôi viết script đấy ;;)

:D Chuẩn bài :D .................................................. ..

kiemthep

20-09-12, 11:07 PM

AI có id của lệnh bài chuyển sinh ko cho mình xin nghe

khaicafe

25-09-12, 02:20 PM

không sử dụng được kì vậy ta chuyển sinh xong nhận level lại là kẹt acc luôn chủ top hướng dẫn lại dùm mình được không thanks

nghichtu91

25-09-12, 04:06 PM

không sử dụng được kì vậy ta chuyển sinh xong nhận level lại là kẹt acc luôn chủ top hướng dẫn lại dùm mình được không thanks

kẹt acc :D khi chuyển sinh trở về cấp 1 :D .. sau đó nhận hỗ trợ lên 9x ~o) bi kẹt vĩnh viễn :D

lỗi có 1 lỗi gì đó báo lên gs :D ko biết phải lỗi đó ko :) :>

cách ko bị kẹt :D là khi chuyển sinh chỉ trở về cấp 90 :D đảm bảo ko bị :>

thaitunet39

26-09-12, 01:02 AM

có ai bị tình trạng khi chuyển sinh là lên đảo ở không về được không??:))

luudinhnam

26-09-12, 01:33 PM

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

vipbk

26-09-12, 04:54 PM

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

lỗi rất cơ bản -> tìm lại trên 4r
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

nguyenzan

26-09-12, 10:59 PM

Link Download: [Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

Tác giả: trantoai223 ([Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>])

Không down đừng nói lời cay đắng :)

Anh Em nào sử dụng thì nhớ thêm task cho nó nhé.

bạn vào gs/script/npc/liguan.lua thêm vào

{"<color=green>Chuyển Sinh<color> ", self.chuyensinh, self},

và

function tbLiGuan:chuyensinh()
local tbNpc = Npc:GetClass("chuyensinh");
tbNpc:OnDialog();
end
là dc
Mà mình hỏi muốn thêm xem số lân cs thì làm thê nào vậy

mình làm như hướng dẫn nhưng chưa được.
file chuyensinh.lua chép vào đâu?
có cần đồng bộ j ko?

thaitunet39

26-09-12, 11:54 PM

mình làm như hướng dẫn nhưng chưa được.
file chuyensinh.lua chép vào đâu?
có cần đồng bộ j ko?
bạn copy thư mục chuyensinh bỏ vào script bên gs rồi vào setting/player tìm file task_def thêm vào dòng 3004 1 1 Chuyển Sinh 0 0

kiemthep

18-10-12, 12:39 PM

Mình tải về trùng sinh thử thì được rùi, nhưng mới trùng sinh 3 lần thì max điểm skill mất hihi. Mình muốn nâng skill được cộng thêm 5 điểm nữa thì phải chỉnh chỗ nào vậy các bạn. Thank chủ thớt đã share nghe

chery

14-11-12, 08:52 PM

Bác nào cho hỏi có đoạn code nào ghi lại được trùng sinh của nhân vật ko, để mình xem bảng xếp hạng trùng sinh chẳng hạn
Thanks

nghichtu91

19-11-12, 05:58 PM

Bác nào cho hỏi có đoạn code nào ghi lại được trùng sinh của nhân vật ko, để mình xem bảng xếp hạng trùng sinh chẳng hạn
Thanks

phải lưu số lần đó vào data mới có thế sắp xếp được.

chery

29-11-12, 02:00 AM

phải lưu số lần đó vào data mới có thế sắp xếp được.

bác hướng dẫn cho e đoạn script lưu số lần đó lại với ạ
Thanks bác :)

gamethuvn

03-12-12, 10:41 AM

cũng thắc mắc như bác trên
.....................................

tamhuyet

11-12-12, 12:11 AM

dow xong bỏ vô mục nào vậy a 30charrrrrrrrrrrrrr

kentak

11-12-12, 12:16 AM

bạn copy thư mục chuyensinh bỏ vào script bên gs rồi vào setting/player tìm file task_def thêm vào dòng 3004 1 1 Chuyển Sinh 0 0

dow xong bỏ vô mục nào vậy a 30charrrrrrrrrrrrrr

Page trước có ng hướng dẫn rồi đây

jxonline2

11-12-12, 01:17 AM

Bác nào cho hỏi có đoạn code nào ghi lại được trùng sinh của nhân vật ko, để mình xem bảng xếp hạng trùng sinh chẳng hạn
Thanks

Bác nào có code xếp hạng chuyển sinh không

vipbk

11-12-12, 08:47 AM

dow xong bỏ vô mục nào vậy a 30charrrrrrrrrrrrrr

bỏ vào script\npc\

vào setting\player\task_def thêm task thích hợp

tamhuyet

16-12-12, 12:20 AM

bỏ vào script\npc\

vào setting\player\task_def thêm task thích hợp

anh nói cụ thể cho em cái này đc không, thêm task ấy . cái này em không biết

vipbk

16-12-12, 08:45 AM

anh nói cụ thể cho em cái này đc không, thêm task ấy . cái này em không biết

đã có rất nhiều bài hướng dẫn, tìm lại là thấy
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

ThienSauMenh

08-03-13, 06:06 PM

vipbk

08-03-13, 06:29 PM

file chuyensinh.lua chép vào đâu vậy mọi người???

bất kỳ chỗ nào trong folder : gameserver\script\

ThienSauMenh

13-03-13, 11:04 PM

Mình muốn thêm khi chuyển sinh mất bạc thì làm sao nhỉ, bác nào chỉ code mình với

__Jie__

14-03-13, 12:39 AM

Mình muốn thêm khi chuyển sinh mất bạc thì làm sao nhỉ, bác nào chỉ code mình với
me.CostMoney(10000, 0)

Xài lệnh này chèn vào chổ cần trừ tiền

ThienSauMenh

14-03-13, 03:24 PM

me.CostMoney(10000, 0)

Xài lệnh này chèn vào chổ cần trừ tiền

for _, pItem in pairs(tbItemObj) do
if (me.DelItem(pItem[1]) ~= 1) and (me.CostMoney(10000, 0) ~= 1) then
return 0;
end
end
local szMsg = string.format("Chúc mừng người chơi <color=cyan>%s<color> Chuyển Sinh lần thứ <color=cyan>%s<color>", me.szName, nValue+1 );
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT, szMsg);
KDialog.MsgToGlobal(szMsg);
me.SendMsgToFriend("Hảo hữu của bạn [<color=yellow>" .. me.szName
.. "<color>] Chuyển Sinh lần thứ <color=cyan>"
.. nValue+1 .."<color>");
Mình sửa lại thế này nhưng ts vẫn không tốn bạc.

__Jie__

14-03-13, 03:40 PM

for _, pItem in pairs(tbItemObj) do
if (me.DelItem(pItem[1]) ~= 1) and (me.CostMoney(10000, 0) ~= 1) then
return 0;
end
end
local szMsg = string.format("Chúc mừng người chơi <color=cyan>%s<color> Chuyển Sinh lần thứ <color=cyan>%s<color>", me.szName, nValue+1 );
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT, szMsg);
KDialog.MsgToGlobal(szMsg);
me.SendMsgToFriend("Hảo hữu của bạn [<color=yellow>" .. me.szName
.. "<color>] Chuyển Sinh lần thứ <color=cyan>"
.. nValue+1 .."<color>");
Mình sửa lại thế này nhưng ts vẫn không tốn bạc.
sai vị trí rồi bạn chổ
if nValue == 1 then
me.CostMoney(sotien, 0)
end

ThienSauMenh

14-03-13, 10:04 PM

Thanks bạn giờ ts nó có trừ tiền nhưng mình muốn check số bạc trong người nếu ko đủ số bạc đó ko có cho ts (hiện giờ ko check nên 0 bạc cũng ts dc). Mình viết vầy nó ko chạy, mong bạc giúp mình cho trót luôn ^^ :P

function tbLiGuan:OnCsOpenGiftOk(nValue, tbItemObj)
local tbItemList = {};

for _, pItem in pairs(tbItemObj) do
if (self:CheckCSItem(pItem, REQUIRECS_ITEM[nValue], tbItemList) ~= 1) and (me.nMoney < 500000) then
me.Msg("Không có vật phẩm hoặc không đủ số bạc yêu cầu!");
return 0;
end;
end

local bResult = false;
for i = 1, #REQUIRECS_ITEM[nValue] do
if (REQUIRECS_ITEM[nValue][i][2] ~= tbItemList[i]) and (me.nMoney >= 500000) then
bResult = true;
end;
end;

if (bResult) then
me.Msg("Số lượng vật phẩm không chính xác!");
return 0;
end;

for _, pItem in pairs(tbItemObj) do
if me.DelItem(pItem[1]) ~= 1 then
return 0;
end
end
local szMsg = string.format("Chúc mừng người chơi <color=cyan>%s<color> Chuyển Sinh lần thứ <color=cyan>%s<color>", me.szName, nValue+1 );
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT, szMsg);
KDialog.MsgToGlobal(szMsg);
me.SendMsgToFriend("Hảo hữu của bạn [<color=yellow>" .. me.szName
.. "<color>] Chuyển Sinh lần thứ <color=cyan>"
.. nValue+1 .."<color>");

vipbk

14-03-13, 10:17 PM

- Thứ nhất :

for _, pItem in pairs(tbItemObj) do
if (self:CheckCSItem(pItem, REQUIRECS_ITEM[nValue], tbItemList) ~= 1) and (me.nMoney < 500000) then
me.Msg("Không có vật phẩm hoặc không đủ số bạc yêu cầu!");
return 0;
end;
end

local bResult = false;
for i = 1, #REQUIRECS_ITEM[nValue] do
if (REQUIRECS_ITEM[nValue][i][2] ~= tbItemList[i]) and (me.nMoney >= 500000) then
bResult = true;
end;
end;

ở trên phải là or chứ không phải and vì check ít nhất 1 điều kiện không thỏa mãn thì return 0 -> thoát
tiếp theo phải là dấu < chứ không phải >=

- Thứ hai :
không có hàm me.nMoney mà chỉ có me.nCashMoney để kiểm tra lượng bạc trên người

jxonline2

23-03-13, 11:13 AM

có ai bị tình trạng khi chuyển sinh là lên đảo ở không về được không??:))

Co ai bị lỗi này chỉ với

30 charrrrrrrrr

vipbk

23-03-13, 04:14 PM

Co ai bị lỗi này chỉ với

30 charrrrrrrrr

theo nghichtu91 là chuyển sinh cho về cấp 90 thay vì về cấp 10

hoặc lấy acc khác dùng chức năng admin cho Thoát khỏi thiên lao là dc

jxonline2

23-03-13, 05:48 PM

theo nghichtu91 là chuyển sinh cho về cấp 90 thay vì về cấp 10

hoặc lấy acc khác dùng chức năng admin cho Thoát khỏi thiên lao là dc

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

Anh2SiTinh

25-03-13, 06:53 PM

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

cách của ta đấy cs đâu cần vào thiên lao đâu :)) :|

newhorizon1811

01-08-13, 11:02 AM

em vẫn chưa thêm bạc được ạ, bác nào có file share cho em với...

vipbk

01-08-13, 04:33 PM

em vẫn chưa thêm bạc được ạ, bác nào có file share cho em với...

Ý bạn là thêm bạc cần để chuyển sinh hay bạc nhận được sau khi chuyển sinh ?

newhorizon1811

02-08-13, 05:39 PM

Ý bạn là thêm bạc cần để chuyển sinh hay bạc nhận được sau khi chuyển sinh ?

ý em là bạc cần để chuyển sinh ạ.

Hai nhân hai là mấy ? (trả lời bằng số)

vipbk

03-08-13, 05:03 PM

ý em là bạc cần để chuyển sinh ạ.

tìm function :

function tbLiGuan:OnCsOpenGiftOk(nValue, tbItemObj)

thêm :

if (me.nCashMoney < 1000000) then
Dialog:Say("Không đủ 100 vạn, không thể chuyển sinh");
return 0;
end
me.CostMoney(1000000,0);

vào trước :

if (nValue == 0) then