PDA

View Full Version : [JX] xem giúp mình cấu trúc script Event này !



yeuVLTK
30-05-14, 02:35 PM
function main()

ThoNauBanh()
end


-- lenh get
a = HaveItem(951)
b = HaveItem(952)
c = HaveItem(953)
d = HaveItem(954)
e = HaveItem(955)

n = GetCash()

TAB_COST = {
{1,5000},
{2,5000},
{3,5000},
{4,10000},
{5,10000},
}


function ThoNauBanh()
local TAB_THONAUBANH = {
"Ta t×m ®­îc ngò qu¶, h·y ®æi b¸nh cho ta nhÐ!/NauBanh",
"Ta sÏ quay l¹i sau/no",

}
SayImg("<color=green>Thî Lµm B¸nh:<color> B¸nh cña ta lµ ngon nhÊt xø nµy, nÕu cã B× kÝp nÊu bµnh TÕt n÷a th× tuyÖt!",
2,24,
TAB_THONAUBANH[1],
TAB_THONAUBANH[2]
)
end

-- EVENT BANH TET
function NauBanh()
local TAB_NAUBANH = {
"§æi cho ta c¸i b¸nh tÐt ®Ëu xanh/tetdau",
"§æi cho ta c¸i b¸nh tÐt thËp cÈm/tettc",
"§æi cho ta c¸i b¸nh ch­ng thËp cÈm/chungtc",
"§æi cho ta c¸i b¸nh Ýt th­îng h¹ng/bich",
"§æi cho ta c¸i b¸nh ch­ng th­îng h¹ng/chungth",
"KÕt thóc ®èi tho¹i/no",
}
SayImg("<color=green>Thî Lµm B¸nh:<color> Ta còng ®ang cÇn lµm m©m Ngò Qu¶ cho ngµy tÕt...Th«i ®­îc! ta sÏ ®æi cho ThiÕu hiÖp, ng­¬i lÊy b¸nh nµo?\n<pic=917> <pic=919> <pic=921>. ",
6,24,
TAB_NAUBANH[1],
TAB_NAUBANH[2],
TAB_NAUBANH[3],
TAB_NAUBANH[4],
TAB_NAUBANH[5],
-- TAB_NAUBANH[6],
TAB_NAUBANH[6]
)
end
TAB_NAUBANHNAO = {
"Ta cã ®ñ 5 qu¶ ®©y, h·y ®æi cho ta!/banhtetdx",
"Ta cã ®ñ 5 qu¶ ®©y, h·y ®æi cho ta!/banhtettc",
"Ta cã ®ñ 5 qu¶ ®©y, h·y ®æi cho ta!/banhchungtc",
"Ta cã ®ñ 5 qu¶ ®©y, h·y ®æi cho ta!/banhich",
"Ta cã ®ñ 5 qu¶ ®©y, h·y ®æi cho ta!/banhchungth",
"Ta kh«ng mang ®ñ råi!/no",
}
function tetdau()
SayImg("<color=green>Thî Lµm B¸nh:<color> Muèn ®æi b¸nh <color=blue>TÐt ®Ëu xanh cÇn:\n<pic=917> = 3<pic=912> + 2<pic=913> + "..TAB_COST[1][2].." l­îng.",
2,24,
TAB_NAUBANHNAO[1],
TAB_NAUBANHNAO[6])
end
function tettc()
SayImg("<color=green>Thî Lµm B¸nh:<color> Muèn ®æi b¸nh<color=blue>TÐt thËp cÈm cÇn:\n<pic=917> = 3<pic=913> +2 <pic=914> + "..TAB_COST[2][2].." l­îng.",
2,24,
TAB_NAUBANHNAO[2],
TAB_NAUBANHNAO[6])
end
function chungtc()
SayImg("<color=green>Thî Lµm B¸nh:<color> Muèn ®æi b¸nh <color=blue>Ch­ng thËp cÈm cÇn:\n<pic=919> = 3<pic=914> + 2<pic=915> + "..TAB_COST[3][2].." l­îng.",
2,24,
TAB_NAUBANHNAO[3],
TAB_NAUBANHNAO[6])
end
function bich()
SayImg("<color=green>Thî Lµm B¸nh:<color> Muèn ®æi b¸nh <color=blue>B¸nh Ýt cÇn: \n<pic=648> = 3<pic=915> + 2<pic=916> + 1 <pic=918> + "..TAB_COST[4][2].." l­îng.",
2,24,
TAB_NAUBANHNAO[4],
TAB_NAUBANHNAO[6])
end
function chungth()
SayImg("<color=green>Thî Lµm B¸nh:<color> Muèn ®æi b¸nh <color=blue>Ch­ng th­îng h¹ng cÇn:\n<pic=921> = 5<pic=916> + 2 <pic=918> + "..TAB_COST[5][2].." l­îng.",
2,24,
TAB_NAUBANHNAO[5],
TAB_NAUBANHNAO[6])
end


function banhtetdx(sel)
local TAB_BANHTHUONG = {
"<color=green>Thî NÊu B¸nh<color> Cung hû ph¸t tµi!: <pic=917>.",
"<color=green>Thî NÊu B¸nh<color> Chóc Mõng N¨m Míi!: ",
"Lçi råi th«ng b¸o GM nhÐ",
"<color=green>Thî NÊu B¸nh<color>: Ng­¬i d¸m lõa ta!!!. ",}

if (a >= 3) and (b >= 2) and (n >= TAB_COST[1][2]) then
DelItem (951)
DelItem(951)
DelItem(951)
DelItem(952)
DelItem(952)
Pay(TAB_COST[1][2])
if (HaveItem(951) == (a - 3)) and (HaveItem(952) == (b - 2)) and (GetCash() ~= n) then
local aHeo = random(1,10)
if (aHeo > 1) then
AddItem(6,1,1024,0,0,0,0)
Talk(1,"no",TAB_BANHTHUONG[1])
return
else
AddEventItem(951)
AddEventItem(951)
AddEventItem(951)
Talk(1,"no",TAB_BANHTHUONG[2])
return
end
else
Msg2Player(TAB_BANHTHUONG[3])
return
end
else
Msg2Player(TAB_BANHTHUONG[4])
return
end
end

function banhtettc()
local TAB_BANHDAUXANH = {
"<color=green>Thî NÊu B¸nh<color> Cung hû ph¸t tµi!: <pic=917>.",
"<color=green>Thî NÊu B¸nh<color> Chóc Mõng N¨m Míi!: ",
"Lçi råi th«ng b¸o GM nhÐ",
"<color=green>Thî NÊu B¸nh<color>: Ng­¬i d¸m lõa ta!!!. ",}

if (b >= 3) and (c >= 2) and (n >= TAB_COST[2][2]) then
DelItem (952)
DelItem(952)
DelItem(952)
DelItem(953)
DelItem(953)
Pay(TAB_COST[2][2])
if (HaveItem(952) == (b - 3)) and (HaveItem(953) == (c - 2)) and (GetCash() ~= n) then
local aHeo = random(1,10)
if (aHeo > 1) then
AddItem(6,1,1023,0,0,0,0)
Talk(1,"no",TAB_BANHDAUXANH[1])
return
else
AddEventItem(952)
AddEventItem(952)
AddEventItem(952)
Talk(1,"no",TAB_BANHDAUXANH[2])
return
end
else
Msg2Player(TAB_BANHDAUXANH[3])
return
end
else
Msg2Player(TAB_BANHDAUXANH[4])
return
end
end
function banhchungtc()
local TAB_BANHDACBIET = {
"<color=green>Thî NÊu B¸nh<color> Cung hû ph¸t tµi!: <pic=917>.",
"<color=green>Thî NÊu B¸nh<color> Chóc Mõng N¨m Míi!: ",
"Lçi råi th«ng b¸o GM nhÐ",
"<color=green>Thî NÊu B¸nh<color>: Ng­¬i d¸m lõa ta!!!. ",}

if (c >= 3) and (d >= 2) and (n >= TAB_COST[3][2]) then
DelItem(953)
DelItem(953)
DelItem(953)
DelItem(954)
DelItem(954)
Pay(TAB_COST[3][2])
if (HaveItem(953) == (c - 3)) and (HaveItem(954) == (d - 2)) and (GetCash() ~= n) then
local aHeo = random(1,10)
if (aHeo > 1) then
AddItem(6,1,1025,0,0,0,0)
Talk(1,"no",TAB_BANHDACBIET[1])
else
AddEventItem(953)
AddEventItem(953)
AddEventItem(953)
Talk(1,"no",TAB_BANHDACBIET[2])
return
end
else
Msg2Player(TAB_BANHDACBIET[3])
return
end
else
Msg2Player(TAB_BANHDACBIET[4])
return
end
end
function banhich()
local TAB_BANHNHANTRUNG = {
"<color=green>Thî NÊu B¸nh<color> Cung hû ph¸t tµi!: <pic=917>.",
"<color=green>Thî NÊu B¸nh<color> Chóc Mõng N¨m Míi!: ",
"Lçi råi th«ng b¸o GM nhÐ",
"<color=green>Thî NÊu B¸nh<color>: Ng­¬i d¸m lõa ta!!!. ",}

if (d >= 3) and (e >= 2) and (n >= TAB_COST[4][2]) then
DelItem(954)
DelItem(954)
DelItem(954)
DelItem(955)
DelItem(955)

Pay(TAB_COST[4][2])
if (HaveItem(954) == (d - 3)) and (HaveItem(955) == (e - 2)) and (GetCash() ~= n) then
local aHeo = random(1,10)
if (aHeo > 1) then
AddItem(6,1,1026,0,0,0,0)
Talk(1,"no",TAB_BANHNHANTRUNG[1])
else
AddEventItem(954)
AddEventItem(954)
AddEventItem(954)
Talk(1,"no",TAB_BANHNHANTRUNG[2])
return
end
else
Msg2Player(TAB_BANHNHANTRUNG[3])
return
end
else
Msg2Player(TAB_BANHNHANTRUNG[4])
return
end
end
function banhchungth()
local TAB_BANHHATSEN = {
"<color=green>Thî NÊu B¸nh<color> Cung hû ph¸t tµi!: <pic=917>.",
"<color=green>Thî NÊu B¸nh<color> Chóc Mõng N¨m Míi!: ",
"Lçi råi th«ng b¸o GM nhÐ",
"<color=green>Thî NÊu B¸nh<color>: Ng­¬i d¸m lõa ta!!!. ",}

if (e >= 5) and (n >= TAB_COST[5][2]) then
DelItem(955)
DelItem(955)
DelItem(955)
DelItem(955)
DelItem(955)


Pay(TAB_COST[5][2])
if (HaveItem(955) == (e - 5)) and (GetCash() ~= n) then
local aHeo = random(1,10)
if (aHeo > 1) then
AddItem(6,1,1395,0,0,0,0)
Talk(1,"no",TAB_BANHHATSEN[1])
else
AddEventItem(955)
AddEventItem(955)
AddEventItem(955)

Talk(1,"no",TAB_BANHHATSEN[2])
return
end
else
Msg2Player(TAB_BANHHATSEN[3])
return
end
else
Msg2Player(TAB_BANHHATSEN[4])
return
end
end






xem giúp mình dùng như vậy có ổn ko ^^

vuongminh
30-05-14, 11:35 PM
Bạn Ko Test Đc Ah :Z
30 charrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr

dovietthai
31-05-14, 12:47 PM
Vãi icon. :)