Kết quả 1 đến 8 của 8
-
25-12-10, 06:22 AM #1
Script Ép Bánh Kem cho Event Noen, mình mới viết !!!
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;
---- 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 @^^!Lần sửa cuối bởi kenshiwo, ngày 25-12-10 lúc 10:47 AM.
Khách viếng thăm hãy cùng kenshiwo xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
The Following 8 Users Say Thank You to kenshiwo For This Useful Post:
jxvietnam (01-01-11), kemdenny (25-12-10), KingMax (25-12-10), [M]r[K]id (25-12-10), nguyentrunghbl (06-01-11), Sir.THÀNH™ (13-01-11), thaihoa91 (23-01-11), [B.M.W]Sports (23-01-11)
-
25-12-10, 08:04 AM #2
Ðề: Script Ép Bánh Kem cho Event Noen, mình mới viết !!!
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ìnhComeback JXP
-
The Following 3 Users Say Thank You to KingMax For This Useful Post:
kenshiwo (25-12-10), [M]r[K]id (25-12-10), nguyentrunghbl (06-01-11)
-
25-12-10, 08:31 AM #3
- Ngày tham gia
- Aug 2010
- Đang ở
- Đà Lạt City
- Bài viết
- 934
- Thanks
- 73
- Thanked 97 Times in 85 Posts
Ðề: Script Ép Bánh Kem cho Event Noen, mình mới viết !!!
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 vsLần sửa cuối bởi mrkidkute001, ngày 25-12-10 lúc 08:34 AM.
Ta đã trở lại và ngu hơn xưa!
-
25-12-10, 08:57 AM #4
Ðề: Script Ép Bánh Kem cho Event Noen, mình mới viết !!!
dùng 2 3 Task được hết bạn à
Comeback JXP
-
25-12-10, 09:54 AM #5
Ðề: Script Ép Bánh Kem cho Event Noen, mình mới viết !!!
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
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...
Lần sửa cuối bởi kenshiwo, ngày 25-12-10 lúc 09:56 AM.
Khách viếng thăm hãy cùng kenshiwo xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
13-01-11, 01:40 AM #6
- Ngày tham gia
- Aug 2009
- Đang ở
- Mai danh ẩn tích
- Bài viết
- 1,732
- Thanks
- 255
- Thanked 395 Times in 83 Posts
Ðề: Script Ép Bánh Kem cho Event Noen, mình mới viết !!!
ai có thể guide cho mình add đc không
-
23-01-11, 03:10 AM #7
- Ngày tham gia
- Mar 2010
- Bài viết
- 430
- Thanks
- 30
- Thanked 182 Times in 81 Posts
Ðề: Script Ép Bánh Kem cho Event Noen, mình mới viết !!!
^^! delItem kia pro, fix lai di lam add vao ko thay bao loi trong gamesever, de y' moi' thay...
Khách viếng thăm hãy cùng hoivegame xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
30-08-12, 12:50 PM #8
- Ngày tham gia
- Aug 2012
- Bài viết
- 142
- Thanks
- 56
- Thanked 53 Times in 18 Posts
Ðề: Script Ép Bánh Kem cho Event Noen, mình mới viết !!!
================================================== ==============
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.Khách viếng thăm hãy cùng vnpt1983 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
Các Chủ đề tương tự
-
Xin script event 8.3 sv Mướp
Bởi sontung93 trong diễn đàn ScriptsTrả lời: 4Bài viết cuối: 29-08-10, 11:29 AM -
Tìm Script event WordCup
Bởi kemdenny trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 5Bài viết cuối: 23-08-10, 06:35 PM -
Script event đêm huy hoàng
Bởi sangpronhat trong diễn đàn ScriptsTrả lời: 7Bài viết cuối: 13-01-10, 08:47 AM -
Script Event tết viết theo kiểu mới
Bởi sangpronhat trong diễn đàn ScriptsTrả lời: 5Bài viết cuối: 29-10-09, 06:58 PM -
Script event quả huy hoàng
Bởi Mr.Rezo™ trong diễn đàn ScriptsTrả lời: 12Bài viết cuối: 20-07-09, 05:20 PM