PDA

View Full Version : [JX] Giúp em sửa hàm chuyển sinh này với.



0979623387
13-05-12, 11:44 AM
em có hàm chuyển sinh không trừ cấp và không roolblack skill, giúp em sửa cho nó chuyển sinh về cấp 10 và rollblack skill với. hàm của em đây



function main()
if GetTask(55) <= 4 then
Say("<color=cyan>Bạn đã Chuyển Sinh "..GetTask(55).." lần",3,
"Chuyển Sinh (lần "..(GetTask(55) + 1)..")/chuyensinh",
"Nhận Kỹ Năng CS/skillcs",
"Thoát/Exit")
else
Say("<color=cyan>Bạn đã Chuyển Sinh "..GetTask(55).." lần",3,
"Chuyển Sinh Cực Hạn/chuyensinh",
"Nhận Kỹ Năng CS/skillcs",
"Thoát/Exit")
end
end

function chuyensinh()
if GetTask(55) == 0 then
chuyensinh1()
elseif GetTask(55) == 1 then
chuyensinh2()
elseif GetTask(55) == 2 then
chuyensinh3()
elseif GetTask(55) == 3 then
chuyensinh4()
elseif GetTask(55) == 4 then
chuyensinh5()
elseif GetTask(55) == 5 then
chuyensinhcuchan()
elseif GetTask(55) == 6 then
maxcs()
end
end

function maxcs()
Talk(1,"","Bạn Chuyển Sinh Cực Hạn, không thể tiếp tục CS")
Msg2Player("Bạn Chuyển Sinh Cực Hạn, không thể tiếp tục CS")
end

function chuyensinh1()
if GetTask(54) >= 50 then
if GetLevel() >= 150 then
AddMagic(369,1)
SetTask(55,1)
AddProp(50)
AddMagicPoint(5)
Msg2Player("Bạn đã Chuyển Sinh lần thứ "..GetTask(55).."")
KickOutSelf()
else
Talk(1,"","Bạn chưa đạt cấp độ 150, không thể CS")
end
else
Talk(1,"","Bạn chưa đủ điểm Bắc Đẩu")
end
end

function chuyensinh2()
if GetTask(54) >= 100 then
if GetLevel() >= 160 then
DelMagic(369)
AddMagic(370,1)
SetTask(55,2)
AddProp(60)
AddMagicPoint(6)
Msg2Player("Bạn đã Chuyển Sinh lần thứ "..GetTask(55).."")
KickOutSelf()
else
Talk(1,"","Bạn chưa đạt cấp độ 160, không thể CS")
end
else
Talk(1,"","Bạn chưa đủ điểm Bắc Đẩu")
end
end

function chuyensinh3()
if GetTask(54) >= 200 then
if GetLevel() >= 170 then
DelMagic(370)
AddMagic(371,1)
SetTask(55,3)
AddProp(70)
AddMagicPoint(7)
Msg2Player("Bạn đã Chuyển Sinh lần thứ "..GetTask(55).."")
KickOutSelf()
else
Talk(1,"","Bạn chưa đạt cấp độ 170, không thể CS")
end
else
Talk(1,"","Bạn chưa đủ điểm Bắc Đẩu")
end
end

function chuyensinh4()
if GetTask(54) >= 300 then
if GetLevel() >= 180 then
DelMagic(371)
AddMagic(372,1)
SetTask(55,4)
AddProp(80)
AddMagicPoint(8)
Msg2Player("Bạn đã Chuyển Sinh lần thứ "..GetTask(55).."")
KickOutSelf()
else
Talk(1,"","Bạn chưa đạt cấp độ 180, không thể CS")
end
else
Talk(1,"","Bạn chưa đủ điểm Bắc Đẩu")
end
end

function chuyensinh5()
if GetTask(54) >= 500 then
if GetLevel() >= 190 then
DelMagic(372)
AddMagic(373,1)
SetTask(55,5)
AddProp(90)
AddMagicPoint(9)
Msg2Player("Bạn đã Chuyển Sinh lần thứ "..GetTask(55).."")
KickOutSelf()
else
Talk(1,"","Bạn chưa đạt cấp độ 190, không thể CS")
end
else
Talk(1,"","Bạn chưa đủ điểm Bắc Đẩu")
end
end

function chuyensinhcuchan()
if GetTask(54) >= 1000 then
if GetLevel() >= 200 then
AddMagic(373,1)
AddMagic(374,1)
SetTask(55,6)
AddProp(100)
AddMagicPoint(10)
Msg2Player("Bạn đã Chuyển Sinh Cực Hạn")
KickOutSelf()
else
Talk(1,"","Bạn chưa đạt cấp độ 200, không thể CS")
end
else
Talk(1,"","Bạn chưa đủ điểm Bắc Đẩu")
end
end

function skillcs()
if GetTask(55) == 0 then
skillcs0()
elseif GetTask(55) == 1 then
skillcs1()
elseif GetTask(55) == 2 then
skillcs2()
elseif GetTask(55) == 3 then
skillcs3()
elseif GetTask(55) == 4 then
skillcs4()
elseif GetTask(55) == 5 then
skillcs5()
elseif GetTask(55) == 6 then
skillcs6()
end
end

function skillcs0()
Talk(1,"","Bạn chưa Chuyển Sinh, không thể nhận kỹ năng CS")
Msg2Player("Bạn chưa Chuyển Sinh, không thể nhận kỹ năng CS")
end

function skillcs1()
AddMagic(369,1)
Msg2Player("Bạn đã nhận được kỹ năng Chuyển Sinh lần thứ "..GetTask(55).."")
end

function skillcs2()
AddMagic(370,1)
Msg2Player("Bạn đã nhận được kỹ năng Chuyển Sinh lần thứ "..GetTask(55).."")
end

function skillcs3()
AddMagic(371,1)
Msg2Player("Bạn đã nhận được kỹ năng Chuyển Sinh lần thứ "..GetTask(55).."")
end

function skillcs4()
AddMagic(372,1)
Msg2Player("Bạn đã nhận được kỹ năng Chuyển Sinh lần thứ "..GetTask(55).."")
end

function skillcs5()
AddMagic(373,1)
Msg2Player("Bạn đã nhận được kỹ năng Chuyển Sinh lần thứ "..GetTask(55).."")
end

function skillcs6()
AddMagic(373,1)
AddMagic(374,1)
Msg2Player("Bạn đã nhận được kỹ năng Chuyển Sinh Cực Hạn")
end

0979623387
13-05-12, 12:11 PM
không có hàm SetLevel thì không bao giờ cho nó về level 10 được nhé bạn

Anh có thể sửa lại giúp em không ạ. :):):):):):):)

jxvietnam
16-05-12, 08:59 AM
Ko có hàm SetLevel hỏi sao mà trừ cấp đc ?
Còn cái ko rollback skill thì xem code trong server jx49 của dnt hoặc TSBD 3 của ohishu có đấy