Kết quả 1 đến 10 của 13
Chủ đề: Cần Cao Thủ Chỉ Giáo Ham aHeo
-
20-08-15, 09:34 AM #1
- Ngày tham gia
- Jul 2015
- Bài viết
- 18
- Thanks
- 0
- Thanked 18 Times in 2 Posts
Cần Cao Thủ Chỉ Giáo Ham aHeo
--Author: lzlsky301
--Date: 07/11/12
Include("\\script\\global\\sourceatn.lua")
Include("\\script\\global\\tasklist.lua")
function logKhamNam(str)
local gm_Log = "dulieu/KhamNam/"..date("%Y_%m_%d")..".txt"
local fs_log = openfile(gm_Log, "a");
write(fs_log, date("%H:%M:%S_%d-%m-%y").."\t\t"..str.."\n");
closefile(fs_log);
end
function TrembleItem()
dofile("script/special/tremble_item.lua")
local TAB_TREMBLEITEM = {
"Thao t¸c kham n¹m B¶o Th¹ch thµnh c«ng.",
"Thao t¸c kham n¹m B¶o Th¹ch thÊt b¹i. ",
"ChØ ®îc ®Æt mét lo¹i Thñy tinh",
"§· cã lçi x¶y ra, vui lßng liªn hÖ GameMaster ®Ó ®îc hç trî.",
}
local aHeo = GetLevelItem(GetIndexTrembleItem(0))
local aSky = GetIndexTrembleItem(0)
local aHeo1 = GetIndexTrembleItem(1)
local aHeo2 = GetIndexTrembleItem(2)
local aHeo3 = GetIndexTrembleItem(3)
local aHeo4 = GetIndexTrembleItem(4)
local aHeo5 = GetIndexTrembleItem(5)
local aHeo6 = GetIndexTrembleItem(6)
local aHeo7 = GetIndexTrembleItem(7)
if (aHeo <= 4) then
eHeo = random(1,8)
eHeo1 = random(5,7)
elseif (aHeo == 5) then
eHeo = random(1,9)
eHeo1 = random(5,8)
elseif (aHeo == 6) then
eHeo = random(1,10)
eHeo1 = random(6,8)
elseif (aHeo == 7) then
eHeo = random(1,12)
eHeo1 = random(6,9)
elseif (aHeo == 8) then
eHeo = random(1,14)
eHeo1 = random(7,9)
elseif (aHeo == 9) then
eHeo = random(1,16)
eHeo1 = random(7,10)
elseif (aHeo == 10) then
eHeo = random(1,18)
eHeo1 = random(8,10)
end
if (aHeo1 > 0) then -- nang cap trang bi (Tu Thuy Tinh)
if (aHeo2 == 0) and (aHeo3 == 0) and (aHeo4 == 0) and (aHeo5 == 0) and (aHeo6 == 0) and (aHeo7 == 0) then
if (aHeo < 10) then
if (eHeo <= 7) then
SetLevelItem(aSky, aHeo + 1)
DelItem(aHeo1)
Msg2Player(TAB_TREMBLEITEM[1])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tNang cap trang bi thanh cong")
return
else
DelItem(aHeo1)
Msg2Player(TAB_TREMBLEITEM[2])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tNang cap trang bi that bai")
return
end
else
Talk(1,"no","<color=green>Thî RÌn:<color> VËt phÈm ®· ®¹t cÊp 10 kh«ng thÓ n©ng cÊp thªm")
return
end
else
Talk(1,"no",TAB_TREMBLEITEM[3])
return
end
elseif (aHeo2 > 0) then -- thay doi thuoc tinh trang bi (Luc Thuy Tinh)
if (aHeo1 == 0) and (aHeo3 == 0) and (aHeo4 == 0) and (aHeo5 == 0) and (aHeo6 == 0) and (aHeo7 == 0) then
if (eHeo <= 7) then
ChangeSpiritItem(aSky, eHeo1)
DelItem(aHeo2)
Msg2Player(TAB_TREMBLEITEM[1])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi thuoc tinh thanh cong")
return
else
DelItem(aHeo2)
Msg2Player(TAB_TREMBLEITEM[2])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi thuoc tinh that bai")
return
end
else
Talk(1,"no",TAB_TREMBLEITEM[3])
return
end
elseif (aHeo3 > 0) then -- thay doi ngu hanh Kim cho trang bi (Lam Thuy Tinh)
if (aHeo2 == 0) and (aHeo1 == 0) then
if (eHeo <= 7) then
SetSeriesItem(aSky, 0)
DelItem(aHeo3)
Msg2Player(TAB_TREMBLEITEM[1])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi ngu hanh Kim thanh cong")
return
else
DelItem(aHeo3)
Msg2Player(TAB_TREMBLEITEM[2])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi ngu hanh Kim that bai")
return
end
else
Talk(1,"no",TAB_TREMBLEITEM[3])
return
end
elseif (aHeo4 > 0) then -- thay doi ngu hanh Moc cho trang bi (Lam Thuy Tinh)
if (aHeo2 == 0) and (aHeo1 == 0) then
if (eHeo <= 7) then
SetSeriesItem(aSky, 1)
DelItem(aHeo4)
Msg2Player(TAB_TREMBLEITEM[1])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi ngu hanh Moc thanh cong")
return
else
DelItem(aHeo4)
Msg2Player(TAB_TREMBLEITEM[2])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi ngu hanh Moc that bai")
return
end
else
Talk(1,"no",TAB_TREMBLEITEM[3])
return
end
elseif (aHeo5 > 0) then -- thay doi ngu hanh Thuy cho trang bi (Lam Thuy Tinh)
if (aHeo2 == 0) and (aHeo1 == 0) then
if (eHeo <= 7) then
SetSeriesItem(aSky, 2)
DelItem(aHeo5)
Msg2Player(TAB_TREMBLEITEM[1])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi ngu hanh Thuy thanh cong")
return
else
DelItem(aHeo5)
Msg2Player(TAB_TREMBLEITEM[2])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi ngu hanh Thuy that bai")
return
end
else
Talk(1,"no",TAB_TREMBLEITEM[3])
return
end
elseif (aHeo6 > 0) then -- thay doi ngu hanh Hoa cho trang bi (Lam Thuy Tinh)
if (aHeo2 == 0) and (aHeo1 == 0) then
if (eHeo <= 7) then
SetSeriesItem(aSky, 3)
DelItem(aHeo6)
Msg2Player(TAB_TREMBLEITEM[1])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi ngu hanh Hoa thanh cong")
return
else
DelItem(aHeo6)
Msg2Player(TAB_TREMBLEITEM[2])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi ngu hanh Hoa that bai")
return
end
else
Talk(1,"no",TAB_TREMBLEITEM[3])
return
end
elseif (aHeo7 > 0) then -- thay doi ngu hanh Tho cho trang bi (Lam Thuy Tinh)
if (aHeo2 == 0) and (aHeo1 == 0) then
if (eHeo <= 7) then
SetSeriesItem(aSky, 4)
DelItem(aHeo7)
Msg2Player(TAB_TREMBLEITEM[1])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi ngu hanh Tho thanh cong")
return
else
DelItem(aHeo7)
Msg2Player(TAB_TREMBLEITEM[2])
logKhamNam(""..GetName().."\t\t"..GetPlayerAccount ().."\t\t["..GetOp1Item(aSky).."|"..GetVOp1Item(aSky).."]\t ["..GetOp2Item(aSky).."|"..GetVOp2Item(aSky).."]\t ["..GetOp3Item(aSky).."|"..GetVOp3Item(aSky).."]\t ["..GetOp4Item(aSky).."|"..GetVOp4Item(aSky).."]\t ["..GetOp5Item(aSky).."|"..GetVOp5Item(aSky).."]\t ["..GetOp6Item(aSky).."|"..GetVOp6Item(aSky).."]\t\tDoi ngu hanh Tho that bai")
return
end
else
Talk(1,"no",TAB_TREMBLEITEM[3])
return
end
else
Talk(1,"no",TAB_TREMBLEITEM[4])
return
end
end
function LuuLogKhamNam()
end
Cho Mình ? Cái Chỗ Khoanh Đỏ Đó Tỷ Lệ Ép Thành Công Thấp Quá Ai Giái Thix Ham Nay Cho Em Hiễu Hoặc Chĩ E Fix CáiKhách viếng thăm hãy cùng PhuLuv208 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
20-08-15, 09:45 AM #2
Ðề: Cần Cao Thủ Chỉ Giáo Ham aHeo
if (aHeo1 == 0) and (aHeo3 == 0) and (aHeo4 == 0) and (aHeo5 == 0) and (aHeo6 == 0) and (aHeo7 == 0) then
if (eHeo <= 7) thenKhách viếng thăm hãy cùng keo_ngot1418 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
20-08-15, 09:46 AM #3
- Ngày tham gia
- Jul 2015
- Bài viết
- 18
- Thanks
- 0
- Thanked 18 Times in 2 Posts
Ðề: Cần Cao Thủ Chỉ Giáo Ham aHeo
Khách viếng thăm hãy cùng PhuLuv208 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
20-08-15, 09:54 AM #4
- Ngày tham gia
- Jan 2014
- Bài viết
- 64
- Thanks
- 7
- Thanked 24 Times in 12 Posts
Ðề: Cần Cao Thủ Chỉ Giáo Ham aHeo
aHeo là cái ghi tắt của
GetLevelItem(GetIndexTrembleItem(0)) cho gon đó.
local aHeo = GetLevelItem(GetIndexTrembleItem(0))Khách viếng thăm hãy cùng nhjm_jx xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
20-08-15, 09:57 AM #5
- Ngày tham gia
- Jul 2015
- Bài viết
- 18
- Thanks
- 0
- Thanked 18 Times in 2 Posts
Ðề: Cần Cao Thủ Chỉ Giáo Ham aHeo
Khách viếng thăm hãy cùng PhuLuv208 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
20-08-15, 11:38 AM #6
- Ngày tham gia
- Jul 2015
- Bài viết
- 18
- Thanks
- 0
- Thanked 18 Times in 2 Posts
Ðề: Cần Cao Thủ Chỉ Giáo Ham aHeo
uppppppppppppppppppppppppppppppppppppppppppppppppp ppppppppppppppppp
Khách viếng thăm hãy cùng PhuLuv208 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
20-08-15, 12:07 PM #7
- Ngày tham gia
- Jul 2014
- Bài viết
- 100
- Thanks
- 13
- Thanked 11 Times in 11 Posts
Ðề: Cần Cao Thủ Chỉ Giáo Ham aHeo
Hic cái script này nhìn quen quen
Khách viếng thăm hãy cùng Z1000 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
20-08-15, 12:12 PM #8
- Ngày tham gia
- Jul 2015
- Bài viết
- 18
- Thanks
- 0
- Thanked 18 Times in 2 Posts
Ðề: Cần Cao Thủ Chỉ Giáo Ham aHeo
Khách viếng thăm hãy cùng PhuLuv208 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
20-08-15, 12:12 PM #9
- Ngày tham gia
- Mar 2010
- Bài viết
- 430
- Thanks
- 30
- Thanked 182 Times in 81 Posts
Ðề: Cần Cao Thủ Chỉ Giáo Ham aHeo
Code:local aHeo = GetLevelItem(GetIndexTrembleItem(0)) local aSky = GetIndexTrembleItem(0) local aHeo1 = GetIndexTrembleItem(1) local aHeo2 = GetIndexTrembleItem(2) local aHeo3 = GetIndexTrembleItem(3) local aHeo4 = GetIndexTrembleItem(4) local aHeo5 = GetIndexTrembleItem(5) local aHeo6 = GetIndexTrembleItem(6) local aHeo7 = GetIndexTrembleItem(7) if (aHeo <= 4) then eHeo = random(1,8) eHeo1 = random(5,7) elseif (aHeo == 5) then eHeo = random(1,9) eHeo1 = random(5,8) elseif (aHeo == 6) then eHeo = random(1,10) eHeo1 = random(6,8) elseif (aHeo == 7) then eHeo = random(1,12) eHeo1 = random(6,9) elseif (aHeo == 8) then eHeo = random(1,14) eHeo1 = random(7,9) elseif (aHeo == 9) then eHeo = random(1,16) eHeo1 = random(7,10) elseif (aHeo == 10) then eHeo = random(1,18) eHeo1 = random(8,10) end
Khách viếng thăm hãy cùng hoivegame xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
20-08-15, 12:44 PM #10
- Ngày tham gia
- Jul 2015
- Bài viết
- 18
- Thanks
- 0
- Thanked 18 Times in 2 Posts
Ðề: Cần Cao Thủ Chỉ Giáo Ham aHeo
Khách viếng thăm hãy cùng PhuLuv208 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!