benop001
16-07-10, 10:37 AM
function main()
Say("<color=blue>Le Kien Quan: <color>Ta la nguoi dam nhan cac <color=fire>su kien<color> trong nhung ngay le quan trong",2,"LamBanhKem/even83","Thoat/no")
end;
function even83()
Say("<color=blue>Le Kien Quan: <color>Khi train o cac map cac ban co co hoi nhan duoc <color=fire>duong, trung, sua, bot my. <color>Nguoi hay lua chon",3,"Lam banh kem/lbkt","Su dung banh kem/sdbk","Thoat/no")
end;
function lbkt()
Say("<color=blue>Le Kien Quan: <color>De lam banh kem nguoi can co <color=fire>duong, trung, sua, bot my, <color>nguoi cu du roi chu ?",2,"Bat dau lam banh/bdlb","Thoat/no")
end;
function bdlb()
if (GetCash() >= 20000) then
sl1=GetItemCount(117)
sl2=GetItemCount(118)
sl3=GetItemCount(119)
sl4=GetItemCount(120)
if (sl1 >= 1) and (sl2 >= 1) and (sl3 >= 1) and (sl4 >= 1) then
DelItem(117)
DelItem(118)
DelItem(119)
DelItem(120)
if (GetItemCount(117) == (sl1-1)) and (GetItemCount(118) == (sl2-1)) and (GetItemCount(119) == (sl3-1)) and (GetItemCount(120) == (sl4-1)) then
Pay(20000)
lb = random(121,124)
AddEventItem(lb)
Msg2Player("Ban nhan duoc 1 chiec banh kem !");
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co du <color=red>nguyen lieu<color>, khong the lam banh")
end
else
Talk(1,"no","Ban khong co du <color=red>2 van luong<color>, khong the lam banh")
end
end;
function sdbk()
Say("<color=blue>Le Kien Quan: <color>Nhan vat dang cap tu 80 tro len moi co the su dung, nguoi hay lua chon",5,"Banh Kem Sua (Kem)/bksk","Banh Kem Sua (Thuong)/bkst","Banh Kem Sua (Ngon)/bksn","Banh Kem Sua (Hao Hang)/bkshh","Thoat/no")
end;
function bksk()
if (GetLevel() >= 80) then
sl=GetItemCount(121)
if (sl >= 1) then
DelItem(121)
if (GetItemCount(121) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(100000)
AddRepute(5)
Msg2Player("Ban nhan duoc 5 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 5) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 5) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 5) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 5) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 5) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Kem)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;
function bkst()
if (GetLevel() >= 80) then
sl=GetItemCount(122)
if (sl >= 1) then
DelItem(122)
if (GetItemCount(122) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(200000)
AddRepute(10)
Msg2Player("Ban nhan duoc 10 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 10) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 10) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 10) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 10) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 10) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Thuong)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;
function bksn()
if (GetLevel() >= 80) then
sl=GetItemCount(123)
if (sl >= 1) then
DelItem(123)
if (GetItemCount(123) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(300000)
AddRepute(15)
Msg2Player("Ban nhan duoc 15 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 15) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 15) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 15) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 15) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 15) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Ngon)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;
function bkshh()
if (GetLevel() >= 80) then
sl=GetItemCount(124)
if (sl >= 1) then
DelItem(124)
if (GetItemCount(124) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(500000)
AddRepute(20)
Msg2Player("Ban nhan duoc 20 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 20) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 20) then
pd=random(106,108)
pd=random(106)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 20) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 20) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 20) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Hao Hang)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;
function no()
end;
cái này là even của sever Muopv1.0 nó ko + dồn Exp em mún khi sử dụng bánh kem exp cộng dồn thì chĩnh ntn Mong Mấy PRO giúp em ^_^:)>-:)>-:)>-:)>-
Say("<color=blue>Le Kien Quan: <color>Ta la nguoi dam nhan cac <color=fire>su kien<color> trong nhung ngay le quan trong",2,"LamBanhKem/even83","Thoat/no")
end;
function even83()
Say("<color=blue>Le Kien Quan: <color>Khi train o cac map cac ban co co hoi nhan duoc <color=fire>duong, trung, sua, bot my. <color>Nguoi hay lua chon",3,"Lam banh kem/lbkt","Su dung banh kem/sdbk","Thoat/no")
end;
function lbkt()
Say("<color=blue>Le Kien Quan: <color>De lam banh kem nguoi can co <color=fire>duong, trung, sua, bot my, <color>nguoi cu du roi chu ?",2,"Bat dau lam banh/bdlb","Thoat/no")
end;
function bdlb()
if (GetCash() >= 20000) then
sl1=GetItemCount(117)
sl2=GetItemCount(118)
sl3=GetItemCount(119)
sl4=GetItemCount(120)
if (sl1 >= 1) and (sl2 >= 1) and (sl3 >= 1) and (sl4 >= 1) then
DelItem(117)
DelItem(118)
DelItem(119)
DelItem(120)
if (GetItemCount(117) == (sl1-1)) and (GetItemCount(118) == (sl2-1)) and (GetItemCount(119) == (sl3-1)) and (GetItemCount(120) == (sl4-1)) then
Pay(20000)
lb = random(121,124)
AddEventItem(lb)
Msg2Player("Ban nhan duoc 1 chiec banh kem !");
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co du <color=red>nguyen lieu<color>, khong the lam banh")
end
else
Talk(1,"no","Ban khong co du <color=red>2 van luong<color>, khong the lam banh")
end
end;
function sdbk()
Say("<color=blue>Le Kien Quan: <color>Nhan vat dang cap tu 80 tro len moi co the su dung, nguoi hay lua chon",5,"Banh Kem Sua (Kem)/bksk","Banh Kem Sua (Thuong)/bkst","Banh Kem Sua (Ngon)/bksn","Banh Kem Sua (Hao Hang)/bkshh","Thoat/no")
end;
function bksk()
if (GetLevel() >= 80) then
sl=GetItemCount(121)
if (sl >= 1) then
DelItem(121)
if (GetItemCount(121) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(100000)
AddRepute(5)
Msg2Player("Ban nhan duoc 5 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 5) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 5) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 5) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 5) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 5) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Kem)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;
function bkst()
if (GetLevel() >= 80) then
sl=GetItemCount(122)
if (sl >= 1) then
DelItem(122)
if (GetItemCount(122) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(200000)
AddRepute(10)
Msg2Player("Ban nhan duoc 10 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 10) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 10) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 10) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 10) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 10) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Thuong)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;
function bksn()
if (GetLevel() >= 80) then
sl=GetItemCount(123)
if (sl >= 1) then
DelItem(123)
if (GetItemCount(123) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(300000)
AddRepute(15)
Msg2Player("Ban nhan duoc 15 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 15) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 15) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 15) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 15) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 15) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Ngon)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;
function bkshh()
if (GetLevel() >= 80) then
sl=GetItemCount(124)
if (sl >= 1) then
DelItem(124)
if (GetItemCount(124) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(500000)
AddRepute(20)
Msg2Player("Ban nhan duoc 20 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 20) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 20) then
pd=random(106,108)
pd=random(106)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 20) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 20) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 20) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Hao Hang)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;
function no()
end;
cái này là even của sever Muopv1.0 nó ko + dồn Exp em mún khi sử dụng bánh kem exp cộng dồn thì chĩnh ntn Mong Mấy PRO giúp em ^_^:)>-:)>-:)>-:)>-