Scritp tẩy tủy ở SGTY Ver3

[Tiến Đạt]

Trình độ mình còn kém .Các Pro đừng chém nhé .

[SP]

--description: Tay Tuy Dai Su
--author: Batca2tay
--date: 9\11\2010
--==============================================
--==============================================
Include("\\Script\\global\\sourcejx49.lua");
Include("\\Script\\global\\rollbackskill.lua");
Include("\\script\\faction49\\main_faction.lua");
Include("\\script\\daotaytuy\\taytaytuy.lua")
Include("\\script\\Global\\xaphu.lua")

KNBTOCHANGEFACTION = 25

function main(sel)
SayEx({"<color="..colorS()..">Tay Tuy Dai Su<color>£ºVui long chon chuc nang.", 
	"Ta muon Tay Tuy./TayTuy",
	"Mua [Tay Tuy Kinh](4000 van)/buyxisui",
	"Mua [Vo Lam Mat Tich](2000 van)/buywulin",
	"Dung Tay Tuy Kinh./xisuijing",
	"Dung Vo Lam Mat Tich./wulinmiji",
	"Chuyen doi mon phai./chuyenphai",
	"Vao Tu Luyen Skills./tuluyen",
	"Roi khoi dao tay tuy,/thanhthi",
	"Thoat./no"});
end;

function no()
end;

function TayTuy()
SayEx({"<color="..colorS()..">Tay Tuy Dai Su<color> : Chao "..GetName().." nguoi co muon duoc tay tuy hay khong ?\nNeu muon thi hay nhanh chon dieu nguoi muon lam...",
	"Tay diem tiem nang va ky nang./xidianmftrung",
	"Tay diem ky nang./xxx2",
	"Tay diem tiem nang./x1",
	"Thoat./Exit"});
end

function x1()
strg = GetStrg(1)
dex = GetDex(1)
vit = GetVit(1)
eng = GetEng(1)
 	str1 = {35,20,25,30,20}	
	dex2 = {25,35,25,20,15}
	vit3 = {25,20,25,30,25}
	eng4 = {15,25,25,20,40}
	nguhanh = GetSeries() + 1
	ResetBaseAttrib(0,str1[nguhanh])
	ResetBaseAttrib(1,dex2[nguhanh])
	ResetBaseAttrib(2,vit3[nguhanh])
	ResetBaseAttrib(3,eng4[nguhanh])
	sum = strg+dex+vit+eng - 100
	AddProp(sum)
    MsgEx("Tay tuy thanh cong !")
    MsgEx("Ban co the phan bo lai diem Tiem Nang.")
	Talk(1,"x","<color="..colorS()..">Phan Tang<color>: Ta da giup Tay Tuy xong. Nguoi co the phan phoi lai diem tiem nang cua minh.");
function x()
strg = GetStrg(1)
dex = GetDex(1)
vit = GetVit(1)
eng = GetEng(1)
 	str1 = {35,20,25,30,20}	
	dex2 = {25,35,25,20,15}
	vit3 = {25,20,25,30,25}
	eng4 = {15,25,25,20,40}
	nguhanh = GetSeries() + 1
	ResetBaseAttrib(0,str1[nguhanh])
	ResetBaseAttrib(1,dex2[nguhanh])
	ResetBaseAttrib(2,vit3[nguhanh])
	ResetBaseAttrib(3,eng4[nguhanh])
	sum = strg+dex+vit+eng - 100
	AddProp(sum)
	end
end;

function xidianmf()
	i = HaveMagic(210)		
	j = HaveMagic(400)		
	n = RollbackSkill()		
	x = 0
	if (i ~= -1) then x = x + i end					
	if (j ~= -1) then x = x + j end
	rollback_point = n - x							
	if (rollback_point + GetMagicPoint() < 0) then	
		 rollback_point = -1 * GetMagicPoint()
	end
	AddMagicPoint(rollback_point)
	if (i ~= -1) then AddMagic(210,i) end			
	if (j ~= -1) then AddMagic(400,j) end
	RollbackSkill9x()	
	KickOutSelf()
strg = GetStrg(1)
dex = GetDex(1)
vit = GetVit(1)
eng = GetEng(1)
 	str1 = {35,20,25,30,20}	
	dex2 = {25,35,25,20,15}
	vit3 = {25,20,25,30,25}
	eng4 = {15,25,25,20,40}
	nguhanh = GetSeries() + 1
	ResetBaseAttrib(0,str1[nguhanh])
	ResetBaseAttrib(1,dex2[nguhanh])
	ResetBaseAttrib(2,vit3[nguhanh])
	ResetBaseAttrib(3,eng4[nguhanh])
	sum = strg+dex+vit+eng - 100
	AddProp(sum)
    MsgEx("Tay tuy thanh cong.")
    MsgEx("Ban co the phan bo lai diem Tiem Nang va Ky Nang.")
	Talk(1,"x","Ta da giup Tay Tuy xong, Nguoi co the phan phoi lai diem tiem nang va ky nang cua minh.")
end;

---=========================edit by Tien Dat==========================------------

function xidianmftrung()
	xxx2()
	x1()
    MsgEx("Tay tuy thanh cong.")
    MsgEx("Ban co the phan bo lai diem Tiem Nang va Ky Nang.")
	Talk(1,"x","Ta da giup Tay Tuy xong, Nguoi co the phan phoi lai diem tiem nang va ky nang cua minh.")
end;

--------============================================================================-----

function x2()
	i = HaveMagic(210)		
	j = HaveMagic(400)		
	n = RollbackSkill()		
	x = 0
	if (i ~= -1) then x = x + i end					
	if (j ~= -1) then x = x + j end
	rollback_point = n - x							
	if (rollback_point + GetMagicPoint() < 0) then	
		 rollback_point = -1 * GetMagicPoint()
	end
	AddMagicPoint(rollback_point)
	if (i ~= -1) then AddMagic(210,i) end			
	if (j ~= -1) then AddMagic(400,j) end			
    MsgEx("Tay tuy thanh cong !")
    MsgEx("Ban co the phan bo lai diem Ky Nang.")
	TaySkill()
	KickOutSelf()
end;

function xxx2()
	TaySkill()	
    MsgEx("Tay tuy thanh cong !")
    MsgEx("Ban co the phan bo lai diem Ky Nang.")
	KickOutSelf()
end;

function Exit()
end;

function buyxisui()
    	if (GetCash() >= 40000000) then
       	Pay(40000000) 
       	AddEventItem(0)
    	MsgEx("Nhan duoc Tay Tuy Kinh.")
    	else
    	MsgEx("Ban khong co du 400 van luong.")
    	end
end;

function buywulin()
    	if (GetCash() >= 20000000) then
       	Pay(20000000) 
       	AddEventItem(85)
    	MsgEx("Nhan duoc Vo Lam Mat Tich.")
    	else
    	MsgEx("Ban khong co du 2000 van luong.")
    	end
end;

function xisuijing()
timess = GetTask(TaskTayTuyKinh)
    if (GetItemCount(0) >= 1) then
        if (timess < 15) then
	    AddProp(5)
		Msg2Player("Su dung¡¶Tay Tuy Kinh¡·Nhan duoc 5 diem tiem nang¡£")
        SetTask(TaskTayTuyKinh,timess+1)
        DelItem(0)
		KickOutSelf()
        else
        Msg2Player("Ban da su dung 15 quyen Tay Tuy khong the tiep tuc¡£")
        end
    end
end;

function wulinmiji()
times = GetTask(TaskVoLamMatTich)
    if (GetItemCount(85) >= 1) then
        if (times < 15) then
	        AddMagicPoint(1)
			Msg2Player("Su dung¡¶Vo Lam Mat Tich¡·Nhan duoc 1 diem ky nang¡£")
			DelItem(85)
			SetTask(TaskVoLamMatTich,times+1)
			KickOutSelf()
        else
		Msg2Player("Ban da su dung 15 quyen Mat Tich khong the tiep tuc¡£")
        end
	else
		MsgEx("Trong hanh trang cua ban khong co Mat Tich")
    end
end;

--==============================================================Repair by Tien Dat================================----
--==================================================================================================================---

function chuyenphai()
SayEx({"<color="..colorS()..">Tay Tuy Dai Su<color>: Muon chuyen doi mon phai dai hiep phai co <color=yellow>"..KNBTOCHANGEFACTION.."<color> Kim Nguyen Bao!<enter>Sau Khi Chuyen Doi Mon Phai Skill Cu Se Khong Con, Nguoi Se Phai Hoc Lai Tu Dau ! ",
	"Dong Y./ok",
	"Thoat./OnCancel"})
end

function ok()
if (GetItemCount(7) >= KNBTOCHANGEFACTION) then
SayEx({"<color="..colorS()..">Tay Tuy Dai Su<color>: Lua chon.",
"He Kim./kim",
"He Moc./moc",
"He Thuy./thuy",
"He Hoa./hoa",
"He Tho./tho",
"Thoat./OnCancel"})
else
Msg2Player("Khong tim thay 25 KNB trong Hanh Trang.");
	end
end;

function kim()
SayEx({"<color="..colorS()..">Tay Tuy Dai Su<color>: Lua chon:",
"Thieu Lam./sl",
"Thien vuong bang./tw",
"Thoat./OnCancel"})
end;

function sl()
for i=1,KNBTOCHANGEFACTION do DelItem(7) end
SetSeries(0)
SetFaction("Thieu Lam Phai")
for i=1,480 do
DelMagic(i)
end
AddMagic(1,1)
AddMagic(2,1)
AddMagic(53,1)
AddMagic(284,1)
LearnSkillFaction()
KickOutSelf()
AddGlobalNews("Chuc Mung <color=red>"..GetName().."<color> Chuyen Phai Thanh Cong")
end;

function tw()
for i=1,KNBTOCHANGEFACTION do DelItem(7) end
SetSeries(0)
SetFaction("Thien Vuong Bang")
for i=1,480 do
DelMagic(i)
end
AddMagic(1,1)
AddMagic(2,1)
AddMagic(53,1)
AddMagic(284,1)
LearnSkillFaction()
KickOutSelf()
AddGlobalNews("Chuc Mung <color=red>"..GetName().."<color> Chuyen Phai Thanh Cong")
end;

function moc()
SayEx({"<color="..colorS()..">Tay Tuy Dai Su<color>: Lua chon:",
"Duong Mon./dm",
"Ngu Doc./nd",
"Thoat./OnCancel"});
end;

function dm()
for i=1,KNBTOCHANGEFACTION do DelItem(7) end
SetSeries(1)
SetFaction("Duong Mon")
for i=1,480 do
DelMagic(i)
end
AddMagic(1,1)
AddMagic(2,1)
AddMagic(53,1)
AddMagic(284,1)
LearnSkillFaction()
KickOutSelf()
AddGlobalNews("Chuc Mung <color=red>"..GetName().."<color> Chuyen Phai Thanh Cong")
end;

function nd()
for i=1,KNBTOCHANGEFACTION do DelItem(7) end
SetSeries(1)
SetFaction("Ngu Doc Giao")
for i=1,480 do
DelMagic(i)
end
AddMagic(1,1)
AddMagic(2,1)
AddMagic(53,1)
AddMagic(284,1)
LearnSkillFaction()
KickOutSelf()
AddGlobalNews("Chuc Mung <color=red>"..GetName().."<color> Chuyen Phai Thanh Cong")
end;

function thuy()
SayEx({"<color="..colorS()..">Tay Tuy Dai Su<color>: Lua chon:",
"Nga Mi./nm",
"Thuy Yen./ty",
"Thoat./OnCancel"});
end;

function nm()
for i=1,KNBTOCHANGEFACTION do DelItem(7) end
SetSeries(2)
SetFaction("Nga My Phai")
for i=1,480 do
DelMagic(i)
end
AddMagic(1,1)
AddMagic(2,1)
AddMagic(53,1)
AddMagic(284,1)
LearnSkillFaction()
KickOutSelf()
AddGlobalNews("Chuc Mung <color=red>"..GetName().."<color> Chuyen Phai Thanh Cong")
end;

function ty()
for i=1,KNBTOCHANGEFACTION do DelItem(7) end
SetSeries(2)
SetFaction("Thuy Yen Mon")
for i=1,480 do
DelMagic(i)
end
AddMagic(1,1)
AddMagic(2,1)
AddMagic(53,1)
AddMagic(284,1)
LearnSkillFaction()
KickOutSelf()
AddGlobalNews("Chuc Mung <color=red>"..GetName().."<color> Chuyen Phai Thanh Cong")
end;

function hoa()
SayEx({"<color="..colorS()..">Tay Tuy Dai Su<color>: Lua chon:","Cai bang/cb","Thien Nhan/tn","Thoat./OnCancel"});
end;
function cb()
for i=1,KNBTOCHANGEFACTION do DelItem(7) end
SetSeries(3)
SetFaction("Cai Bang")
for i=1,480 do
DelMagic(i)
end
AddMagic(1,1)
AddMagic(2,1)
AddMagic(53,1)
AddMagic(284,1)
LearnSkillFaction()
KickOutSelf()
AddGlobalNews("Chuc Mung <color=red>"..GetName().."<color> Chuyen Phai Thanh Cong")
end;

function tn()
for i=1,KNBTOCHANGEFACTION do DelItem(7) end
SetSeries(3)
SetFaction("Thien Nhan Giao")
for i=1,480 do
DelMagic(i)
end
AddMagic(1,1)
AddMagic(2,1)
AddMagic(53,1)
AddMagic(284,1)
LearnSkillFaction()
KickOutSelf()
AddGlobalNews("Chuc Mung <color=red>"..GetName().."<color> Chuyen Phai Thanh Cong")
end;

function tho()
SayEx({"<color="..colorS()..">Tay Tuy Dai Su<color>: Lua chon:","Vo Dang./vd","Con Lon./cl","Thoat./OnCancel"});
end;

function vd()
for i=1,KNBTOCHANGEFACTION do DelItem(7) end
SetSeries(4)
SetFaction("Vo Dang Phai")
for i=1,480 do
DelMagic(i)
end
AddMagic(1,1)
AddMagic(2,1)
AddMagic(53,1)
AddMagic(284,1)
LearnSkillFaction()
KickOutSelf()
AddGlobalNews("Chuc Mung <color=red>"..GetName().."<color> Chuyen Phai Thanh Cong")
end;

function cl()
for i=1,KNBTOCHANGEFACTION do DelItem(7) end
SetSeries(4)
SetFaction("Con Lon Phai")
for i=1,480 do
DelMagic(i)
end
AddMagic(1,1)
AddMagic(2,1)
AddMagic(53,1)
AddMagic(284,1)
LearnSkillFaction()
KickOutSelf()
AddGlobalNews("Chuc Mung <color=red>"..GetName().."<color> Chuyen Phai Thanh Cong")
end;

function qingong()
if (GetCash() >= 1000000) then
Pay(1000000) 
AddMagic(210)
MsgEx("Ban hoc duoc Khinh Cong.")
else
MsgEx("Ban khong co du 100 van luong.")
    end
end;

function OnCancel()
end;

function Exit()
end;

[/SP]


rollbackskill.lua
[SP]

function RollbackSkill9x()
if GetFaction() == "Thieu Lam Phai" then
AddMagic(318,20)
AddMagic(319,20)
AddMagic(321,20)
elseif GetFaction() == "Thien Vuong Bang" then	
AddMagic(322,20)
AddMagic(323,20)
AddMagic(325,20)
elseif GetFaction() == "Nga My Phai" then			
AddMagic(328,20)
AddMagic(380,20)
AddMagic(332,20)
elseif GetFaction() == "Thuy Yen Mon" then			
AddMagic(336,20)
AddMagic(337,20)
elseif GetFaction() == "Duong Mon" then				
AddMagic(339,20)
AddMagic(302,20)
AddMagic(342,20)
AddMagic(351,20)
elseif GetFaction() == "Ngu Doc Giao" then			
AddMagic(353,20)
AddMagic(355,20)
AddMagic(390,20)
elseif GetFaction() == "Cai Bang" then			
AddMagic(357,20)
AddMagic(359,20)
elseif GetFaction() == "Thien Nhan Giao" then			
AddMagic(361,20)
AddMagic(362,20)
AddMagic(391,20)
elseif GetFaction() == "Vo Dang Phai" then		
AddMagic(365,20)
AddMagic(368,20)
elseif GetFaction() == "Con Lon Phai" then				
AddMagic(372,20)
AddMagic(375,20)
AddMagic(394,20)
	end
end;

[/SP]

[thachlong78]

Sai từa lưa rồi. Bạn test thử lại code xem đi.

[Tiến Đạt]

Em test xài tốt mà anh @@! Đang sử dụng trong SGTY ver3 ạ. ANh chỉ chỗ sai để em xem lại với.

[KingMax]

cái này của DNT với Tài mà

[Sir.THÀNH™]

cái này của DNT với Tài mà

không của ai đó thì hắn tự nghĩ chắc .

[Tiến Đạt]

cái này của DNT với Tài mà

Dev lại thui. Bộ k đc àk ?

[KingMax]

nói thật nhé, nhìn vào chả khác gì cả , khác cái dòng này nè :

--description: Tay Tuy Dai Su
--author: Batca2tay
--date: 9\11\2010

[Tiến Đạt]

nói thật nhé, nhìn vào chả khác gì cả , khác cái dòng này nè :

--description: Tay Tuy Dai Su
--author: Batca2tay
--date: 9\11\2010

@@! Bác hãy Test đi rùi být nó # chỗ nào @@! Cơ bản thì lấy cái code tẩy tủy của DNT mà phát triển lên
Chứ bác bảo h viết tẩy tủy với code mới thế nào

[KingMax]

à uhm , không có gì khác , ghép vào gọi là phát triển thôi chứ gì

[Tiến Đạt]

à uhm , không có gì khác , ghép vào thôi chứ gì

@@! Ặc . Nói vậy thì Bó tay