Script Đổi Môn Phái Cần Pass Rương [Lưu trữ]

[S]ocola[S]an

11-01-11, 08:43 PM

/*============================*\
|#AuThor : Sandaru .........................#|
|#Date : Quên mất ..........................#|
|#Supporter : Sandaru .....................#|
|#.........Script Is Not Free Code.........#|
|#.......[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>]|
|#Licensed Number : Free Code..........#|
|#Version : 1.3.4 ............................#|
|#Pm : darksevenspearsandaru...........#|
\*===========================*/

idtaskruong = 133 ----- ID task ma ruong
idtasktempp = 157 ----- ID task luu ma ruong tam thoi
idtasktempp1 = 158 ---- ID Task so tang(floor)
idtasktempp2 = 159 ---- ID dieu kien lap mat khau va doi mat khau
knb = 7 -- Kim Nguyen Bao
chuyen = 200 -- Cuon Chuyen Doi Mon Phai
lan1 = 1000000 -- Lan 1 Chuyen Phai
lan2 = 5000000 -- Lan 2 Chuyen Phai
lan3 = 10000000 -- Lan 3 Chuyen Phai
ht8 = 62 -- Huyen TInh 8

--************************************************** ************************************************** **
--************************************************** ************************************************** **

function main()
SetTaskTemp(idtasktempp,0)
SetTaskTemp(idtasktempp1,0)
SetTaskTemp(idtasktempp2,0)
Say("<color=red>Chuyen Mon Phai<color> : Nguoi muon chuyen mon phai a ? Doc Huong Dan Truoc Khi Chuyen Nhe\n Nguoi da chuyen mon phai : "..GetTask(TaskChuyenPhai).." lan",3,"Huong Dan/help","Ta Chuyen Mon Phai/yes","Thoi/no")
end;

function help()
Say("Chuyen Mon Phai Gom 3 Lan <enter> Lan 1 : 100v <color=yellow>25 Knb<color> va 1 cuon chuyen mon phai",1,"Tiep/next")

end;

function next()
Say("Lan 2 : 500v <color=yellow>50 Knb<color> va 1 cuon chuyen mon phai",1,"Tiep/next2")
end;

function next2()
Say("Lan 3 : Lan cuoi can 1000v <color=yellow>10 Cuon Chuyen Mon Phai<color> va 10 Huyen Tinh 8 . Can Nhap Pass Ruong Khi Chuyen Mon Phai",0)
end;

function yes()
Talk(1,"morp","Ban phai nhap pass ruong neu tiep tuc . Click 1 cai de tu chuyen sang trang nhap pass ruong")
--tieptuc()
end;

function morp()
SetTaskTemp(idtasktempp2,0)
SetTaskTemp(idtasktempp1,GetTaskTemp(idtasktempp1) +1)
Say("<color=cyan>Ruong Chua Do:<color> Neu lu khach chua lap ma ruong, pass mac dinh se la : <color=green>000000<color>.\nBan hay nhap so thu : <color=blue>"..GetTaskTemp(idtasktempp1).."<color>",11,"0/luupass","1/luupass","2/luupass","3/luupass","4/luupass","5/luupass","6/luupass","7/luupass","8/luupass","9/luupass","Thoat./no");
end

function morp1()
local a,b,c,d,e,f = phantichpas(GetTask(idtaskruong))
local a1,b1,c1,d1,e1,f1 = phantichpas(GetTaskTemp(idtasktempp))
local tring1 = a..b..c..d..e..f -- chuoi ma ruong
local tring2 = a1..b1..c1..d1..e1..f1 -- chuoi ma ruong moi nhap(tuc thoi)
SetTaskTemp(idtasktempp,0)
SetTaskTemp(idtasktempp1,0)
SetTaskTemp(idtasktempp2,0)
if tring1 == tring2 then
tieptuc()
Msg2Player("Kiem tra ma ruong chinh xac.")
else
Talk(1,"no","Ban da nhap sai ma ruong.\nNeu quen thi ban co the lien he GM de lay lai.");
end
end
function luupass(sel)
local tang = GetTaskTemp(idtasktempp1)
if GetTaskTemp(idtasktempp2) == 0 then
if tang == 1 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100000)
morp()
elseif tang == 2 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10000)
morp()
elseif tang == 3 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1000)
morp()
elseif tang == 4 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100)
morp()
elseif tang == 5 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10)
morp()
elseif tang == 6 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1)
morp1()
else
no()
end
elseif GetTaskTemp(idtasktempp2) == 1 then
if tang == 1 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100000)
dmkp()
elseif tang == 2 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10000)
dmkp()
elseif tang == 3 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1000)
dmkp()
elseif tang == 4 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100)
dmkp()
elseif tang == 5 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10)
dmkp()
elseif tang == 6 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1)
dmkp1()
else
no()
end
elseif GetTaskTemp(idtasktempp2) == 2 then
if tang == 1 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100000)
dmkp2()
elseif tang == 2 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10000)
dmkp2()
elseif tang == 3 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1000)
dmkp2()
elseif tang == 4 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*100)
dmkp2()
elseif tang == 5 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*10)
dmkp2()
elseif tang == 6 then
SetTaskTemp(idtasktempp,GetTaskTemp(idtasktempp)+s el*1)
dmkp3()
else
no()
end
end
end

function phantichpas(task) --- ham by chicken
--local x,len,a,b,c,d,e,f = GetTask(task),0,0,0,0,0,0,0
local x,len = task,0
local a,b,c,d,e,f = 0,0,0,0,0,0
x = tostring(x)
len = strlen(x)
if len < 6 then
for i=1,(6-len) do
x = "0"..x
end
end
a = tonumber(strsub(x,1,1))
b = tonumber(strsub(x,2,2))
c = tonumber(strsub(x,3,3))
d = tonumber(strsub(x,4,4))
e = tonumber(strsub(x,5,5))
f = tonumber(strsub(x,6,6))
return a,b,c,d,e,f
end;
--************************************************** ************************************************** **
--************************************************** ************************************************** **

function tieptuc()
Say("<color=red>Chuyen Mon Phai<color> : Ban Muon Chuyen Qua Mon Phai Nao? Nho phai co du Item Nhe",10,"Thieu Lam/tl","Thien Vuong/tv","Duong Mon/dm","Ngu Doc/ngudoc","Nga My/nm","Thuy Yen/ty","Cai Bang/cb","Thien Nhan/tn","Trang Tiep/tiep","Thoat/no")
end;

--************************************************** ************************************************** **
--************************************************** ************************************************** **

function tiep()
Say("<color=red>Chuyen Mon Phai<color> : Tiep Day",4,"Vo Dang/vd","Con Lon/cl","Tro Lai/back","Thoat/no")
end;

function back()
tieptuc()
end;

function tl()
if GetTask(TaskChuyenPhai) == 0 and
GetItemCount(knb) >= 25 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan1 then
for i=1,25 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan1)
SetTask(TaskChuyenPhai,1)
SetSeries(0)
JoinFaction(1)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
GetItemCount(knb) >= 50 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan2 then
for i=1,50 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan2)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(0)
JoinFaction(1)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
GetItemCount(ht8) >= 10 and
GetItemCount(chuyen) >= 10 and
GetCash() >= lan3 then
for i=1,10 do
DelItem(ht8)
DelItem(chuyen)
end
for i=1,500 do DelMagic(i) end
Pay(lan3)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(0)
JoinFaction(1)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function tv()
if GetTask(TaskChuyenPhai) == 0 and
GetItemCount(knb) >= 25 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan1 then
for i=1,25 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan1)
SetTask(TaskChuyenPhai,1)
SetSeries(0)
JoinFaction(2)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
GetItemCount(knb) >= 50 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan2 then
for i=1,50 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan2)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(0)
JoinFaction(2)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
GetItemCount(ht8) >= 10 and
GetItemCount(chuyen) >= 10 and
GetCash() >= lan3 then
for i=1,500 do DelMagic(i) end
for i=1,10 do
DelItem(ht8)
DelItem(chuyen)
end
Pay(lan3)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(0)
JoinFaction(2)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function dm()
if GetTask(TaskChuyenPhai) == 0 and
GetItemCount(knb) >= 25 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan1 then
for i=1,25 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan1)
SetTask(TaskChuyenPhai,1)
SetSeries(1)
JoinFaction(3)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
GetItemCount(knb) >= 50 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan2 then
for i=1,50 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan2)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(1)
JoinFaction(3)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
GetItemCount(ht8) >= 10 and
GetItemCount(chuyen) >= 10 and
GetCash() >= lan3 then
for i=1,10 do
DelItem(ht8)
DelItem(chuyen)
end
for i=1,500 do DelMagic(i) end
Pay(lan3)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(1)
JoinFaction(3)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function nd()
if GetTask(TaskChuyenPhai) == 0 and
GetItemCount(knb) >= 25 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan1 then
for i=1,25 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan1)
SetTask(TaskChuyenPhai,1)
SetSeries(1)
JoinFaction(4)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
GetItemCount(knb) >= 50 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan2 then
for i=1,50 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan2)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(1)
JoinFaction(4)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
GetItemCount(ht8) >= 10 and
GetItemCount(chuyen) >= 10 and
GetCash() >= lan3 then
for i=1,500 do DelMagic(i) end
for i=1,10 do
DelItem(ht8)
DelItem(chuyen)
end
Pay(lan3)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(1)
JoinFaction(4)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function nm()
if GetTask(TaskChuyenPhai) == 0 and
GetItemCount(knb) >= 25 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan1 then
for i=1,25 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan1)
SetTask(TaskChuyenPhai,1)
SetSeries(2)
JoinFaction(5)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
GetItemCount(knb) >= 50 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan2 then
for i=1,50 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan2)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(2)
JoinFaction(5)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
GetItemCount(ht8) >= 10 and
GetItemCount(chuyen) >= 10 and
GetCash() >= lan3 then
for i=1,10 do
DelItem(ht8)
DelItem(chuyen)
end
for i=1,500 do DelMagic(i) end
Pay(lan3)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(2)
JoinFaction(5)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function ty()
if GetTask(TaskChuyenPhai) == 0 and
GetItemCount(knb) >= 25 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan1 then
for i=1,25 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan1)
SetTask(TaskChuyenPhai,1)
SetSeries(2)
JoinFaction(6)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
GetItemCount(knb) >= 50 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan2 then
for i=1,50 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan2)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(2)
JoinFaction(6)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
GetItemCount(ht8) >= 10 and
GetItemCount(chuyen) >= 10 and
GetCash() >= lan3 then
for i=1,10 do
DelItem(ht8)
DelItem(chuyen)
end
for i=1,500 do DelMagic(i) end
Pay(lan3)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(2)
JoinFaction(6)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function cb()
if GetTask(TaskChuyenPhai) == 0 and
GetItemCount(knb) >= 25 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan1 then
for i=1,25 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan1)
SetTask(TaskChuyenPhai,1)
SetSeries(3)
JoinFaction(7)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
GetItemCount(knb) >= 50 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan2 then
for i=1,50 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan2)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(3)
JoinFaction(7)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
GetItemCount(ht8) >= 10 and
GetItemCount(chuyen) >= 10 and
GetCash() >= lan3 then
for i=1,10 do
DelItem(ht8)
DelItem(chuyen)
end
for i=1,500 do DelMagic(i) end
Pay(lan3)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(3)
JoinFaction(7)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function tn()
if GetTask(TaskChuyenPhai) == 0 and
GetItemCount(knb) >= 25 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan1 then
for i=1,25 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan1)
SetTask(TaskChuyenPhai,1)
SetSeries(3)
JoinFaction(8)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
GetItemCount(knb) >= 50 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan2 then
for i=1,50 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan2)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(3)
JoinFaction(8)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
GetItemCount(ht8) >= 10 and
GetItemCount(chuyen) >= 10 and
GetCash() >= lan3 then
for i=1,10 do
DelItem(ht8)
DelItem(chuyen)
end
for i=1,500 do DelMagic(i) end
Pay(lan3)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(3)
JoinFaction(8)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function vd()
if GetTask(TaskChuyenPhai) == 0 and
GetItemCount(knb) >= 25 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan1 then
for i=1,25 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan1)
SetTask(TaskChuyenPhai,1)
SetSeries(4)
JoinFaction(9)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
GetItemCount(knb) >= 50 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan2 then
for i=1,50 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan2)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(4)
JoinFaction(9)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
GetItemCount(ht8) >= 10 and
GetItemCount(chuyen) >= 10 and
GetCash() >= lan3 then
for i=1,500 do DelMagic(i) end
for i=1,10 do
DelItem(ht8)
DelItem(chuyen)
end
Pay(lan3)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(4)
JoinFaction(9)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function cl()
if GetTask(TaskChuyenPhai) == 0 and
GetItemCount(knb) >= 25 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan1 then
for i=1,25 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan1)
SetTask(TaskChuyenPhai,1)
SetSeries(4)
JoinFaction(10)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 1 and
GetItemCount(knb) >= 50 and
GetItemCount(chuyen) >= 1 and
GetCash() >= lan2 then
for i=1,50 do DelItem(knb) end
for i=1,500 do DelMagic(i) end
Pay(lan2)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(4)
JoinFaction(10)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
elseif GetTask(TaskChuyenPhai) == 2 and
GetItemCount(ht8) >= 10 and
GetItemCount(chuyen) >= 10 and
GetCash() >= lan3 then
for i=1,500 do DelMagic(i) end
for i=1,10 do
DelItem(ht8)
DelItem(chuyen)
end
Pay(lan3)
SetTask(TaskChuyenPhai,GetTask(TaskChuyenPhai)+1)
SetSeries(4)
JoinFaction(10)
LearnSkillFaction()
Msg2Player("Chuyen Mon Phai Thanh Cong")
Msg2Player("Ban da het so lan chuyen mon phai")
else
Talk(1,"","Ban da qua 3 lan chuyen mon phai hoac ko du dieu kien de chuyen")
end
end;

function no()
SetTaskTemp(idtasktempp,0)
SetTaskTemp(idtasktempp1,0)
SetTaskTemp(idtasktempp2,0)
end;
--************************************************** ************************************************** **
--************************************************** ************************************************** **
--************************************************** ************************************************** **
--************************************************** ************************************************** **
--************************************************** ************************************************** **
--Sandaru => Sandaru Entertainment
--Have Bug Just Pm Me
[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>]
--I will waiting for you guy
--Sandaru . A Developer Of Game Jx (Sword Online)

Need Include this :

sourcejx49.lua
passruong.lua
main_faction.lua
taobang.lua
list.lua

[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>]
If you have anything bug pm me to fix .

From : [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>]

Mr.Rezo™

12-01-11, 01:00 AM

không có ý gì nhưng cái script đổi môn phái cần pass rương mà màu mè =))

Suppoter - Licensed Number - Version =))

tiếng Tây tiếng Tàu =))

ich liebe dich und alles. werden schließen dich für immer =))

KingMax

12-01-11, 08:28 PM

sCript pass rương của cha chicken đây mà :-w

Čħīċķėň

12-01-11, 10:01 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>]