PDA

View Full Version : [JX] Cần Cao Thủ Chỉ Giáo Ham aHeo


PhuLuv208
20-08-15, 09:34 AM
--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ái
keo_ngot1418
20-08-15, 09:45 AM
if (aHeo1 == 0) and (aHeo3 == 0) and (aHeo4 == 0) and (aHeo5 == 0) and (aHeo6 == 0) and (aHeo7 == 0) then
if (eHeo <= 7) then
PhuLuv208
20-08-15, 09:46 AM
if (aHeo1 == 0) and (aHeo3 == 0) and (aHeo4 == 0) and (aHeo5 == 0) and (aHeo6 == 0) and (aHeo7 == 0) then
if (eHeo <= 7) then

mày thấy tao mày ngại chĩ hã kẹo ngọt :))
nhjm_jx
20-08-15, 09:54 AM
aHeo là cái ghi tắt của
GetLevelItem(GetIndexTrembleItem(0)) cho gon đó.
local aHeo = GetLevelItem(GetIndexTrembleItem(0))
PhuLuv208
20-08-15, 09:57 AM
aHeo là cái ghi tắt của
GetLevelItem(GetIndexTrembleItem(0)) cho gon đó.
local aHeo = GetLevelItem(GetIndexTrembleItem(0))

giờ mình mún chĩnh tỉ lệ lên cảo ỏ chỗ khoanh đỏ thì sao nhím
PhuLuv208
20-08-15, 11:38 AM
uppppppppppppppppppppppppppppppppppppppppppppppppp ppppppppppppppppp8->8->8->8->8->
Z1000
20-08-15, 12:07 PM
Hic cái script này nhìn quen quen :-s
PhuLuv208
20-08-15, 12:12 PM
Hic cái script này nhìn quen quen :-s

ỏ đâu mà wen fennnnnnnnnnnnnnnnnnnnnnnnnnnnnn
hoivegame
20-08-15, 12:12 PM
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

chỉnh code ở đây.
PhuLuv208
20-08-15, 12:44 PM
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

chỉnh code ở đây.

chĩnh sao fen upppppppppppppppppppp
vuongminh
22-08-15, 12:45 PM
Đã thông ass cho cậu ấy rồi <=1
dính 100% :bz
tinhhack
22-08-15, 03:33 PM
aHeo là cái ghi tắt của
GetLevelItem(GetIndexTrembleItem(0)) cho gon đó.
local aHeo = GetLevelItem(GetIndexTrembleItem(0))

aHeo = "anh Heo" đó bà :D, chắc mập lắm :)
nhãy qua đoạn ép đồ tím mà coi, thể nào chẳng bj ép dòng lộn xộn, script trong CDV đây mà :D
bthhhz
22-08-15, 03:49 PM
aHeo = "anh Heo" đó bà :D, chắc mập lắm :)
nhãy qua đoạn ép đồ tím mà coi, thể nào chẳng bj ép dòng lộn xộn, script trong CDV đây mà :D

Thời gian để người ta phát triển mà bác. đó là quá khứ gần 3 năm rồi còn gì nữa.
Lúc đó nó cũng đã vang bóng 1 thời đó bác ạ