Script Ép Bánh Kem cho Event Noen, mình mới viết !!!

[kenshiwo]

Script Ép Bánh Kem cho Event Noen, mình mới viết !!! chỉ test trong gamesever.exe Không có Patch chạy đồng hóa ai test giùm đi !!!

---- Author: Kenshiwo
---- Yahoo: kenshiwo
---- Tittle: Event Ep Banh cho Noen - Giang Sinh
---- Date: Dec 24,2010

--- Gioi han diem ---
GIOIHAN = GetTask(2000) --- Khai Bao gioi han 1 Ty Kinh Nghiem
--- Phan Thuong Banh
EXPKEM = 10*1000000 --- 10 Trieu
EXPTHUONG = 20*1000000 --- 20 Trieu
EXPNGON = 50*1000000 --- 50 Trieu
EXPHAOHANG = 100*1000000 --- 100 Trieu
--- Vat Pham
SUA = 117
BOTMI = 118
TRUNG = 119
DUONG = 200
---Kiem Tra Vat Pham
KTSUA = GetItemCount(117) --- SUA
KTBOTMI = GetItemCount(118) --- BOTMI
KTTRUNG = GetItemCount(119) --- TRUNG
KTDUONG = GetItemCount(120) --- DUONG
--- Banh
BKEM = 121
BTHUONG = 122
BNGON = 123
BHAOHANG = 124
--- Kiem tra banh
KTBKEM = GetItemCount(121)
KTBTHUONG = GetItemCount(122)
KTBNGON = GetItemCount(123)
KTBHAOHANG = GetItemCount(124)

---Script Chu
function main()
SayEx({"Le Quan: <color=green>Giang Sinh Vui Ve!<color>, tham gia su kien Giang Sinh!",4,
"Tim hieu ve su kien/timhieu",
"Ep Banh/epbanh",
"Su Dung Banh/sudungbanh",
"Thoat/no",
});
end;

--- Tim hieu
function timhieu()
SayEx({"Le Quan: Event giang sinh lan nay la Banh Kem.",
"Nguyen Lieu ep banh: <color=blue>Sua, Bot Mi, Trung, Duong<color> va <color=yellow>Tien Van.",
"Tat ca co 4 loai Banh: Kem, Thuong, Ngon, Hao Hang.",
"Dieu kien de ep banh theo <color=green>Dang Cap<color> cua moi loai.",
"<color=blue>Banh Kem - Sua, Thuong, Ngon, Hao Hang<color> = <color=yellow>100v, 200v, 300v, 500v.",
"Su dung banh se nhan duoc Kinh Nghiem theo dang cap cua banh.",
"Moi loai chi an duoc 10 cai.",
"<color=green>Chuc Dai Hiep!!! Giang Sinh Vui Ve!!!"
});
end;

--- Lua chon ep banh
function epbanh()
SayEx({
"Le quan: Xin lua chon loai Banh muon ep:",5,
"Banh Kem Sua/banhkem1",
"Banh Kem Sua - Thuong/banhkem2",
"Banh Kem Sua - Ngon/banhkem3",
"Banh Kem Sua - Haohan/banhkem4",
"Thoat/no"
});
end;

--- Lua chon Su Dung Banh
function sudungbanh()
SayEx({
"Le quan: Xin lua chon loai Banh muon su dung:",5,
"Banh Kem Sua/dungbanhkem1",
"Banh Kem Sua - Thuong/dungbanhkem2",
"Banh Kem Sua - Ngon/dungbanhkem3",
"Banh Kem Sua - Haohan/dungbanhkem4",
"Thoai/no"
});
end

--- Ep Banh
function banhkem1()
if
KTSUA >= 1 and
KTBOTMI >= 1 and
KTTRUNG >= 1 and
KTDUONG >= 1 and
(GetCash() >= 1000000) then
Pay(1000000)
DeleteItem(SUA)
DeleteItem(BOTMI)
DeleteItem(TRUNG)
DeleteItem(DUONG)
AddEventItem(BKEM)
Msg2Player("Chuc mung ban! Ban nhan duoc 1 [Banh kem]");
else
SayEx({"Ban khong du nguyen lieu hoac 50v de doi banh Kem"});
end
end;

function banhkem2()
if
KTSUA >= 1 and
KTBOTMI >= 1 and
KTTRUNG >= 1 and
KTDUONG >= 1 and
(GetCash() >= 2000000) then
Pay(2000000)
DeleteItem(SUA)
DeleteItem(BOTMI)
DeleteItem(TRUNG)
DeleteItem(DUONG)
AddEventItem(BTHUONG)
Msg2Player("Chuc mung ban! Ban nhan duoc 1 [Banh kem thuong]");
else
SayEx({"Ban khong du nguyen lieu hoac 100v de doi banh Kem"});
end
end;

function banhkem3()
if
KTSUA >= 1 and
KTBOTMI >= 1 and
KTTRUNG >= 1 and
KTDUONG >= 1 and
(GetCash() >= 3000000) then
Pay(3000000)
DeleteItem(SUA)
DeleteItem(BOTMI)
DeleteItem(TRUNG)
DeleteItem(DUONG)
AddEventItem(BNGON)
Msg2Player("Chuc mung ban! Ban nhan duoc 1 [Banh kem ngon]");
else
SayEx({"Ban khong du nguyen lieu hoac 150v de doi banh Kem"});
end
end;

function banhkem4()
if
KTSUA >= 1 and
KTBOTMI >= 1 and
KTTRUNG >= 1 and
KTDUONG >= 1 and
(GetCash() >= 5000000) then
Pay(5000000)
DeleteItem(SUA)
DeleteItem(BOTMI)
DeleteItem(TRUNG)
DeleteItem(DUONG)
AddEventItem(BHAOHANG)
Msg2Player("Chuc mung ban! Ban nhan duoc 1 [Banh kem hao hang]");
else
SayEx({"Ban khong du nguyen lieu hoac 200v de doi banh Kem"});
end
end;

--- Su Dung Banh
function dungbanhkem1()
if KTBKEM >= 1 and GIOIHAN <= 100 then
SetTask(2000,GIOIHAN+1)
DeleteItem(BKEM)
AddOwnExp(EXPKEM)
Msg2Player("Chuc mung ban! Ban nhan duoc 1 phan thuong "..EXPKEM.." Kinh nghiem");
else
SayEx({"Ban da nhan duong 1 Ty Kinh nghiem hoac khong co banh muon su dung trong nguoi"});
end
end;

function dungbanhkem2()
if KTBTHUONG >= 1 and GIOIHAN <= 100 then
SetTask(2000,GIOIHAN+2)
DeleteItem(BTHUONG)
AddOwnExp(EXPTHUONG)
Msg2Player("Chuc mung ban! Ban nhan duoc 1 phan thuong "..EXPTHUONG.." Kinh nghiem");
else
SayEx({"Ban da nhan duong 1 Ty Kinh nghiem hoac khong co banh muon su dung trong nguoi"});
end
end;

function dungbanhkem3()
if KTBNGON >= 1 and GIOIHAN <= 100 then
SetTask(2000,GIOIHAN+5)
DeleteItem(BNGON)
AddOwnExp(EXPNGON)
Msg2Player("Chuc mung ban! Ban nhan duoc 1 phan thuong "..EXPNGON.." Kinh nghiem");
else
SayEx({"Ban da nhan duong 1 Ty Kinh nghiem hoac khong co banh muon su dung trong nguoi"});
end
end;

function dungbanhkem4()
if KTBHAOHANG >= 1 and GIOIHAN <= 100 then
SetTask(2000,GIOIHAN+10)
DeleteItem(BHAOHANG)
AddOwnExp(EXPHAOHANG)
Msg2Player("Chuc mung ban! Ban nhan duoc 1 phan thuong "..EXPHAOHANG.." Kinh nghiem");
else
SayEx({"Ban da nhan duong 1 Ty Kinh nghiem hoac khong co banh muon su dung trong nguoi"});
end
end;

--- Thoat
function no()
end;

Script rớt đồ tách riêng: tạo file "tentuyy.LUA"

---- Author: Kenshiwo
---- Yahoo: kenshiwo
---- Tittle: Event Ep Banh cho Noen - Giang Sinh
---- Date: Dec 24,2010

function dropeventitem()
tle = random(1,20) ----> Ty le vat pham rot ra .05%
sll = random(117,120) ---> Vat Pham rot ra tuy y co 4 loai Random --- SUA -- BOTMI -- TRUNG -- DUONG ---
if (tle <= 1) then
AddEventItem(sll)
end
end;

Tìm Script .LUA của Quái: Include "\\Script\\....\\tentuyy.LUA"
Khai báo hàm: dropeventitem() trong Function OnDeath() ở file .LUA của Quái


Chúc các bạn thành công!!!! Bị lỗi thì cứ post lên @^^!

[KingMax]

sẵn mình hướng dẫn làm giới hạn EXP trong 1 đợt Event cho mọi người lun
ví dụ muốn giới hạn 1 tỷ 2 kinh nghiệm thì con số Task sẽ là 1200
khi ăn bánh 1 triệu thì sẽ
SetTask(TASKGioiHan,GetTask(TASKGioiHan)+1)

và cứ trước khi sử dụng sẽ
if GetTask(TASKGioiHan) <= 1200 then
thì thực hiện tiếp ^^

Cái này mình làm bên Công Thành Đại Chiến, ai muốn xem hình thức thì vào chữ kí của mình

[[M]r[K]id]

thanks 2 bạn nhá........ khá là bổ ích
nhưng kingmax ak` cho mình hỏi luk
níu làm như bạn vậy chỉ giới hạn ăn 1 loại bánh thui ak` ...
có cách nào giới hạn EXP tất cả loại bánh ko ( ý mình là tất cả các loại bánh chỉ nhận được 1 tỷ 2 ExP chẳng hạn )
P/s ai có spr hình ảnh mí cái nì cho mình vs

[KingMax]

dùng 2 3 Task được hết bạn à

[kenshiwo]

thanks 2 bạn nhá........ khá là bổ ích
nhưng kingmax ak` cho mình hỏi luk
níu làm như bạn vậy chỉ giới hạn ăn 1 loại bánh thui ak` ...
có cách nào giới hạn EXP tất cả loại bánh ko ( ý mình là tất cả các loại bánh chỉ nhận được 1 tỷ 2 ExP chẳng hạn )
P/s ai có spr hình ảnh mí cái nì cho mình vs

Như bạn KingMax nói thì sai cái bạn muốn hỏi, bạn ấy nói

có cách nào giới hạn EXP tất cả loại bánh ko

Thì lúc Khai Báo Bánh ta có đặt giá, thì bánh nào bao nhiu bạn đặc thôi

TBKEM = 1200000000 --- Khai Báo phần thưởng khi có bánh kem
>>> 1200000000 là số Exp tự đặt cho 1 phần thưởng khi đủ điều kiện <<<

vdu:

function anbanh()
if (GetItemCount(Bánh kem) >= then --- cái này bạn có thể đưa 4 loại bánh nó cũng ra Exp Mặc định 1200000000 khai báo trên TBKEM
AddOwnExp(TBKEM) --- thì chỉnh số Exp trên khai báo là được, không cần mò script dưới
DelItem(Bánh kem) ---- xóa vật phẩm bánh kem
end;

function anbanh_thuong()
if (GetItemCount(Bánh kem thường) >= then --- cái này bạn có thể đưa 4 loại bánh nó cũng ra Exp Mặc định 1200000000 khai báo trên TBKEM
AddOwnExp(TBKEM) --- thì chỉnh số Exp trên khai báo là được, không cần mò script dưới
DelItem(Bánh kem thường) ---- xóa vật phẩm bánh kem
end;

Thì 2 loại bánh cũng là 1 tỷ 2, còn muốn phân điểm mỗi loại khai báo hàm khác thôi @^^! không liên quan đến Item trong Setting...

[Sir.THÀNH™]

ai có thể guide cho mình add đc không

[hoivegame]

^^! delItem kia pro, fix lai di lam add vao ko thay bao loi trong gamesever, de y' moi' thay...

[vnpt1983]

Như bạn KingMax nói thì sai cái bạn muốn hỏi, bạn ấy nói


Thì lúc Khai Báo Bánh ta có đặt giá, thì bánh nào bao nhiu bạn đặc thôi

================================================== ==============
bác pro có viết đc script cộng kn vào theo lv dư thì cộng tiếp cho đến khi hết.
VD: Ăn cái bánh đc 1000000 kn nhưng kn hiện có chỉ là 10000 kn là lên lv
nếu dùng hàm AddOwnExp(10000000)
thì ăn 1 cái bánh chỉ lên dc 1 lv thôi --- thực tế thì lên mấy lv mới hết 1 triệu kn.
kiêu script dạng này (mô tả thôi chứ ko viết đc)
kiểm tra kn hiện có
kiểm tra giới hạn kn lên cấp
thêm kn vào để lên lv
sau đó 1000000 kn - kn đa thêm
tiếp tục add cho hết 1000000 kn.