Include("\\dulieu\\chuyensinhdata.lua")
Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\GetFaction.lua")
--------------------------------------------------------------
-------************************************************** *****
-------************************************************** *****
-------Author: DNTMaster --------------------------
-------Script: Chuyen Sinh Nhan Vat --------------------------
-------Edit By Ohishu --------------------------
--------------------------------------------------------------

iditemcantrongcs = 170
vlmt = 16
ttk = 15

function main()
Say("<color=cyan>Gioi Han Chuyen Sinh Hien Tai:<color> "..GetGlbMissionV(50).."\n<color=yellow>So Lan Chuyen Sinh: "..GetTask(197).."\n<color=red>Cap Chuyen Sinh: "..CSTABLE[GetTask(197)+1][1].."\nTien Chuyen Sinh: "..(CSTABLE[GetTask(197)+1][2]/10000).." Van\nChuyen Sinh Kiep: "..CSTABLE[GetTask(197)+1][3]..".",6,"Ta muon Chuyen Sinh./chuyensinh","Cai Lao Hoan Dong/cailaohd","Mua Chuyen Sinh Kiep/payvpcs","Tim Hieu Phan Thuong/nhanthuongcs","Ho Tro Nang Diem Tiem Nang/supporttiemnang","Thoat./Exit")
end


function nhanthuongcs()
Talk(1,"","Moi Khi Chuyen Sinh Nguoi Co The Len Dao Luyen Skill De <color=red>Gia Tang Skill 90<color> Them 1 !")
end

function payvpcs()
SayEx({"<color=cyan>Bac Dau Than Tang<color> "..TENVP.." Tri Gia <color=yellow>200<color> Danh Vong Va <color=cyan>800<color> Phuc Duyen Nguoi Muon Mua ?",
"Vang Ta Mua/paykpt",
"Thoat/Exit"})
end

function cailaohd()
SayEx({"<color=cyan>Bac Dau Than Tang<color> De Cai Lao Hoan Dong Can Cac Dieu Kien Sau\n<color=yellow>Chuyen Sinh 150 Lan\n200kv\n30 Cuon Chuyen Sinh Kiep !",
"Vang Ta Muon Cai Lao/cailaocond",
"Loi Ich Khi Cai Lao/loiichcl",
"Thoat/Exit"})
end

function loiichcl()
Talk(1,"","Khi Cai Lao Se Nhan Duoc Giu Nguyen Muc Diem Ky Nang Va Tiem Nang O Lan CS 150\n<color=red>Duoc Cong 2 Skill 150 ( Vi Du 20 Len 22 Skill ) !\n1 Mon Trang Suc Vo Danh !")
end

function cailaocond()
a = GetItemCount(171)
b = GetCash()
c = random(0,3)
if GetTask(197) >= 150 then
if GetItemCount(171) >= 10 then
if GetCash() >= 2000000000 then
Pay(2000000000)
for i=1,10 do DelItem(171) end
if GetItemCount(171) == (a - 10) and GetCash() == (b - 2000000000) then
SetLevel(10)
SetTask(198,GetTask(198)+1)
diemtn = (CSTABLE[150][4] + (GetTask(ttk) * 5)) * GetTask(198)
diemkn = (CSTABLE[150][5] + GetTask(vlmt)) * GetTask(198)
RollPoint()
AddAll(diemtn,diemkn)
Talk(1,"","Day la lan cai lao hoan dong thu: "..GetTask(198).." Cua Ban\n<color=red>Nhap vao bang thong bao nay de bat dau cai lao")
SetTask(197,0)
if c == 0 then
AddItem(0,9,20,1,z,0,10)
elseif c == 1 then
AddItem(0,4,20,1,z,0,10)
elseif c == 2 then
AddItem(0,3,21,1,z,0,10)
elseif c == 3 then
AddItem(0,3,21,2,z,0,10)
end
KickOutSelf()
else
Msg2Player("Da Chet Me Hack !")
end
else
Msg2Player("Ban Khong Co Du 200kv !")
end
else
Msg2Player("Ban Khong Co Du 30 CSK !")
end
else
Msg2Player("Ban Chua Dat Duoc 150 Lan CS !")
end
end

function paykpt()
d = GetTask(12)
e = GetRepute()
if GetTask(12) >= 800 and GetRepute() >= 200 then
SetTask(12,GetTask(12)-800)
AddRepute(-200)
if GetTask(12) == d - 800 and GetRepute() == e - 200 then
AddEventItem(iditemcantrongcs)
Msg2Player("Nhan Duoc "..TENVP.." Xin Chuc Mung ! ")
else
Msg2Player("Hack A Cung Yeu")
end
else
Msg2Player("Chua Du Phuc Duyen Hoac Danh Vong De Mua "..TENVP.." ! ")
end
end

function AddAll(Xdnt,Ydnt)
if Xdnt == nil then Xdnt = 0 end
if Ydnt == nil then Ydnt = 0 end
AddProp(Xdnt)
AddMagicPoint(Ydnt)
Msg2Player("Ban nhan duoc "..Xdnt.." diem tiem nang");
Msg2Player("Ban nhan duoc "..Ydnt.." diem ky nang");
end;

function chuyensinh()cs = GetTask(197)
if cs == nil then cs = 0 end
cs = cs +1
if GetTask(197) < GetGlbMissionV(50) then
if GetLevel() >= CSTABLE[cs][1] then
if GetCash() >= CSTABLE[cs][2] then
if GetItemCount(iditemcantrongcs) >= CSTABLE[cs][3] then
for i=1,CSTABLE[cs][3] do DelItem(iditemcantrongcs) end
Pay(CSTABLE[cs][2])
SetLevel(10)
SetTask(197,GetTask(197)+1)
Msg2Player("Bat dau chuyen Sinh Nhan Vat")
diemtn = CSTABLE[cs][4] + (GetTask(ttk) * 5) + (CSTABLE[150][4]*GetTask(198))
diemkn = CSTABLE[cs][5] + GetTask(vlmt) + (CSTABLE[150][5]*GetTask(198))
RollPoint()
AddAll(diemtn,diemkn)
KickOutSelf()
Talk(1,"","Day la lan Chuyen Sinh Thu: "..GetTask(197).." Cua Ban\n<color=red>Nhap vao bang thong bao nay de bat dau Chuyen Sinh")
else
Talk(1,"","Ban Can Co <color=red>"..CSTABLE[cs][3].."<color> "..TENVP.." De Chuyen Sinh !")
end
else
Talk(1,"","<color=cyan>Chuyen Sinh Dai Su:<color> Ban can co "..(CSTABLE[cs][2]/10000).." van de chuyen sinh")
end
else
Talk(1,"","<color=cyan>Chuyen Sinh Dai Su:<color> Ban can dat "..CSTABLE[cs][1].." cap de chuyen sinh")
end
cs = 0
diemtn = 0
diemkn = 0
else
Talk(1,"","<color=cyan>Chuyen Sinh Dai Su:<color> Gioi han chuyen sinh hien tai la "..GetGlbMissionV(50).." khong the tiep tuc chuyen sinh !")
end

end

function RollPoint()
SucManh = {35,20,25,30,20}
ThanPhap = {25,35,25,20,15}
SinhLuc = {25,20,25,30,25}
NoiLuc = {15,25,25,20,40}
NguHanh = GetSeries() + 1
ResetBaseAttrib(0,SucManh[NguHanh]);
ResetBaseAttrib(1,ThanPhap[NguHanh]);
ResetBaseAttrib(2,SinhLuc[NguHanh]);
ResetBaseAttrib(3,NoiLuc[NguHanh]);
AddProp(-GetProp())
skilltaytuy()
AddMagicPoint(-GetMagicPoint())
end

function skilltaytuy()
cailao = GetTask(198)*2
if kiemtraft() == 1 then
a = HaveMagic(353)
b = HaveMagic(350)
c = HaveMagic(351)
d = HaveMagic(414)
w = HaveMagic(290)
p = HaveMagic(295)
e = HaveMagic(454)
elseif kiemtraft() == 2 then
a = HaveMagic(342)
b = HaveMagic(347)
c = HaveMagic(345)
d = HaveMagic(412)
w = HaveMagic(455)
p = HaveMagic(293)
e = HaveMagic(310)
elseif kiemtraft() == 3 then
a = HaveMagic(302)
b = HaveMagic(355)
c = HaveMagic(358)
d = HaveMagic(416)
w = HaveMagic(286)
p = HaveMagic(288)
e = HaveMagic(299)
elseif kiemtraft() == 4 then
a = HaveMagic(359)
b = HaveMagic(361)
c = 0
d = HaveMagic(418)
w = HaveMagic(446)
p = HaveMagic(297)
e = 0
elseif kiemtraft() == 5 then
a = HaveMagic(374)
b = HaveMagic(370)
c = 0
d = HaveMagic(420)
w = HaveMagic(448)
p = 0
e = 0
elseif kiemtraft() == 6 then
a = HaveMagic(377)
b = HaveMagic(378)
c = 0
d = HaveMagic(422)
w = HaveMagic(448)
p = 0
e = 0
elseif kiemtraft() == 7 then
a = HaveMagic(362)
b = HaveMagic(389)
c = 0
d = HaveMagic(424)
w = HaveMagic(445)
p = HaveMagic(300)
e = 0
elseif kiemtraft() == 8 then
a = HaveMagic(365)
b = HaveMagic(367)
c = 0
d = HaveMagic(426)
w = HaveMagic(443)
p = HaveMagic(285)
e = 0
elseif kiemtraft() == 9 then
a = HaveMagic(382)
b = HaveMagic(380)
c = 0
d = HaveMagic(428)
w = HaveMagic(442)
p = 0
e = 0
elseif kiemtraft() == 10 then
a = HaveMagic(385)
b = HaveMagic(384)
c = 0
d = HaveMagic(430)
w = HaveMagic(439)
p = 0
e = 0
elseif kiemtraft() == 11 then
a = 0
b = 0
c = 0
d = 0
w = 0
p = 0
e = 0
end
n = RollbackSkill()
x = 0
i = HaveMagic(210)
j = HaveMagic(471)
if (a ~= -1) then x = x + a end
if (b ~= -1) then x = x + b end
if (c ~= -1) then x = x + c end
if (d ~= -1) then x = x + d end
if (w ~= -1) then x = x + w end
if (p ~= -1) then x = x + p end
if (e ~= -1) then x = x + e end
if (i ~= -1) then x = x + i end
if (j ~= -1) then x = x + j end
rollback = n - x
if ( rollback + GetMagicPoint() < 0 ) then
rollback = -1 * GetMagicPoint()
end
AddMagicPoint(rollback)
if (i ~= -1) then AddMagic(210,i) end
if (j ~= -1) then AddMagic(284,j) end
if kiemtraft() == 1 then
if a ~= -1 then AddMagic(353,a) end
if b ~= -1 then AddMagic(350,b) end
if c ~= -1 then AddMagic(351,c) end
if d ~= -1 then AddMagic(414,d) end
if w ~= -1 then AddMagic(290,20+cailao) end
if p ~= -1 then AddMagic(295,20+cailao) end
if e ~= -1 then AddMagic(454,20+cailao) end
elseif kiemtraft() == 2 then
if a ~= -1 then AddMagic(342,a) end
if b ~= -1 then AddMagic(347,b) end
if c ~= -1 then AddMagic(345,c) end
if d ~= -1 then AddMagic(412,d) end
if w ~= -1 then AddMagic(455,20+cailao) end
if p ~= -1 then AddMagic(293,20+cailao) end
if e ~= -1 then AddMagic(310,20+cailao) end
elseif kiemtraft() == 3 then
if a ~= -1 then AddMagic(302,a) end
if b ~= -1 then AddMagic(355,b) end
if c ~= -1 then AddMagic(358,c) end
if d ~= -1 then AddMagic(416,d) end
if w ~= -1 then AddMagic(286,20+cailao) end
if p ~= -1 then AddMagic(288,20+cailao) end
if e ~= -1 then AddMagic(299,20+cailao) end
elseif kiemtraft() == 4 then
if a ~= -1 then AddMagic(359,a) end
if b ~= -1 then AddMagic(361,b) end
if d ~= -1 then AddMagic(418,d) end
if w ~= -1 then AddMagic(446,20+cailao) end
if p ~= -1 then AddMagic(297,20+cailao) end
elseif kiemtraft() == 5 then
if a ~= -1 then AddMagic(374,a) end
if b ~= -1 then AddMagic(370,b) end
if d ~= -1 then AddMagic(420,d) end
if w ~= -1 then AddMagic(448,20+cailao) end
elseif kiemtraft() == 6 then
if a ~= -1 then AddMagic(377,a) end
if b ~= -1 then AddMagic(378,b) end
if d ~= -1 then AddMagic(422,d) end
if w ~= -1 then AddMagic(448,20+cailao) end
elseif kiemtraft() == 7 then
if a ~= -1 then AddMagic(362,a) end
if b ~= -1 then AddMagic(389,b) end
if d ~= -1 then AddMagic(424,d) end
if w ~= -1 then AddMagic(445,20+cailao) end
if p ~= -1 then AddMagic(300,20+cailao) end
elseif kiemtraft() == 8 then
if a ~= -1 then AddMagic(365,a) end
if b ~= -1 then AddMagic(367,b) end
if d ~= -1 then AddMagic(426,d) end
if w ~= -1 then AddMagic(443,20+cailao) end
if p ~= -1 then AddMagic(285,20+cailao) end
elseif kiemtraft() == 9 then
if a ~= -1 then AddMagic(382,a) end
if b ~= -1 then AddMagic(380,b) end
if d ~= -1 then AddMagic(428,d) end
if w ~= -1 then AddMagic(442,20+cailao) end
elseif kiemtraft() == 10 then
if a ~= -1 then AddMagic(385,a) end
if d ~= -1 then AddMagic(430,d) end
if b ~= -1 then AddMagic(384,b) end
if w ~= -1 then AddMagic(439,20+cailao) end
end
end

function supporttiemnang()
SayEx({"<color=cyan>Bac Dau Than Tang<color>: Xin chao ! Ta se giup nguoi cong nhanh diem tiem nang.\nNguoi hien co <color=red>"..GetProp().."<color> diem tiem nang !\nNguoi co chac chan chua ?",
"Ta chac chan./chacchanroi",
"Ta chua chuan bi./Exit"})
end
function chacchanroi()
SayEx({"<color=cyan>Bac Dau Than Tang<color>: Co 4 loai, moi loai 50 diem, nguoi hay chon di !",
"Suc Manh 50 diem./tangtn",
"Than Phap 50 diem./tangtn",
"Sinh Luc 50 diem./tangtn",
"Noi Luc 50 diem./tangtn",
"Thoat./Exit"})
end
function tangtn(sel)
diemtnht = GetProp() -- Diem tiem nang hien tai
sm = GetStrg()
tp = GetDex()
sl = GetVit()
nl = GetEng()

id = sel + 1
if diemtnht >= 50 then
if id == 1 then
AddProp(-50)
ResetBaseAttrib(0,sm+50)
Msg2Player("Ban nhan duoc 50 diem suc manh !")
elseif id == 2 then
AddProp(-50)
ResetBaseAttrib(1,tp+50)
Msg2Player("Ban nhan duoc 50 diem than phap !")
elseif id == 3 then
AddProp(-50)
ResetBaseAttrib(2,sl+50)
Msg2Player("Ban nhan duoc 50 diem sinh luc !")
else
AddProp(-50)
ResetBaseAttrib(3,nl+50)
Msg2Player("Ban nhan duoc 50 diem noi luc !")
end
else Msg2Player("Ban khong du 50 diem tiem nang !")
end
end
đây là files chuyensinh.lua của em mời các pro vào giúp