Script Ép Bánh Kem cho Event Noen, mình mới viết !!!
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 8 của 8
  1. #1
    Thành Viên
    Ngày tham gia
    Feb 2009
    Đang ở
    USA
    Bài viết
    144
    Thanks
    7
    Thanked 16 Times in 7 Posts

    Icon12 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;
    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 @^^!
    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é!

  2. 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)

  3. #2
    Thành Viên Tâm Huyết KingMax's Avatar
    Ngày tham gia
    Dec 2010
    Bài viết
    642
    Thanks
    143
    Thanked 321 Times in 125 Posts

    Ðề: 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ình
    Comeback JXP

  4. 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)

  5. #3
    trí tưởng tượng quan trọn [M]r[K]id's Avatar
    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 vs
    Lầ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!

  6. #4
    Thành Viên Tâm Huyết KingMax's Avatar
    Ngày tham gia
    Dec 2010
    Bài viết
    642
    Thanks
    143
    Thanked 321 Times in 125 Posts

    Ðề: 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

  7. #5
    Thành Viên
    Ngày tham gia
    Feb 2009
    Đang ở
    USA
    Bài viết
    144
    Thanks
    7
    Thanked 16 Times in 7 Posts

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

    Trích dẫn Gửi bởi mrkidkute001 [Only registered and activated users can see links. ]
    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...
    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é!

  8. #6
    cao to đen hôi Sir.THÀNH™'s Avatar
    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


  9. #7
    Thành Viên
    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é!

  10. #8
    Thành Viên
    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 !!!

    Trích dẫn Gửi bởi kenshiwo [Only registered and activated users can see links. ]
    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.
    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ự

  1. Xin script event 8.3 sv Mướp
    Bởi sontung93 trong diễn đàn Scripts
    Trả lời: 4
    Bài viết cuối: 29-08-10, 11:29 AM
  2. Tìm Script event WordCup
    Bởi kemdenny trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 23-08-10, 06:35 PM
  3. Script event đêm huy hoàng
    Bởi sangpronhat trong diễn đàn Scripts
    Trả lời: 7
    Bài viết cuối: 13-01-10, 08:47 AM
  4. Script Event tết viết theo kiểu mới
    Bởi sangpronhat trong diễn đàn Scripts
    Trả lời: 5
    Bài viết cuối: 29-10-09, 06:58 PM
  5. Script event quả huy hoàng
    Bởi Mr.Rezo™ trong diễn đàn Scripts
    Trả lời: 12
    Bài viết cuối: 20-07-09, 05:20 PM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 05:50 AM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.