Giúp em cái script này ^_^
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Trang 1 của 3 1 2 3 CuốiCuối
Kết quả 1 đến 10 của 30
  1. #1
    Thành Viên benop001's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    465
    Thanks
    39
    Thanked 18 Times in 14 Posts

    Giúp em cái script này ^_^

    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 ^_^
    Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    Thành Viên benop001's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    465
    Thanks
    39
    Thanked 18 Times in 14 Posts

    Ðề: Giúp em cái script này ^_^

    Không thấy hồi âm gì lun @_@.............................
    Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  3. #3
    Vi phạm quy định
    Ngày tham gia
    Jun 2010
    Bài viết
    49
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Ðề: Giúp em cái script này ^_^

    À bạn muốn cộng dồn phải hông đơn giả thôi mà
    AddOwnExp(200000) - -> Bỏ nó thay cái vào
    for i=1,200000 do -- 200000 là số exp bạn muốn có được
    AddOwnExp(1) -- ẽp là 1 điểm cho mỗi lần lập.
    end
    Msg2Player("Nhan Duoc 2 chai exp") - 200k ẽp no se lập 200k lần mổi lần lập bạn sẽ được 1 ẽp sao 200k lần bạn sẽ có 200k exp ma ko sợ bị dư ra ,nó sẽ cộng dồn vì điều này tuyệt nhiên là đúng.
    Khách viếng thăm hãy cùng songhung xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  4. #4
    Thành Viên benop001's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    465
    Thanks
    39
    Thanked 18 Times in 14 Posts

    Ðề: Giúp em cái script này ^_^

    hjx mình hơi ngốc viết vô nó báo lỗi rồi bạn viết dùm dzo hàm mình dc hem
    Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  5. #5
    Thành Viên benop001's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    465
    Thanks
    39
    Thanked 18 Times in 14 Posts

    Ðề: Giúp em cái script này ^_^

    Sẵn cho mình hõi lun hàm add Phúc Duyên là gì vậy
    function pd()
    SetTask(TaskPhucDuyen(20000))
    Msg2Player("Ban Nhan Duoc 20000 Diem Phuc Duyen");
    end;
    cái này vjk đúng hem
    Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  6. #6
    Thành Viên Tâm Huyết giangleloi's Avatar
    Ngày tham gia
    Mar 2008
    Đang ở
    Lâm Đồng
    Bài viết
    1,877
    Thanks
    38
    Thanked 394 Times in 136 Posts

    Ðề: Giúp em cái script này ^_^

    Hàm cộng dồn trc mình có share rồi đó bạn search nha
    Khách viếng thăm hãy cùng giangleloi xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  7. #7
    Thành Viên benop001's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    465
    Thanks
    39
    Thanked 18 Times in 14 Posts

    Ðề: Giúp em cái script này ^_^

    ỡ đâu mà tìm mục nào thế tên ji dzj pac giang
    Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  8. #8
    Vi phạm quy định
    Ngày tham gia
    Jun 2010
    Bài viết
    49
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Ðề: Giúp em cái script này ^_^

    Trích dẫn Gửi bởi benop001 [Only registered and activated users can see links. ]
    Sẵn cho mình hõi lun hàm add Phúc Duyên là gì vậy
    function pd()
    SetTask(TaskPhucDuyen(20000))
    Msg2Player("Ban Nhan Duoc 20000 Diem Phuc Duyen");
    end;
    cái này vjk đúng hem
    xai rui bàn àk
    -----------------------------
    Nè ban code ne bạn
    funtion pd()
    SetTask(TaskPhucDuyen,GetTask(TaskPhucDuyen)+2000)
    Msg2Player("Nhan duoc 2000 Phuc Duyen")
    end
    Khách viếng thăm hãy cùng songhung xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  9. #9
    Thành Viên benop001's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    465
    Thanks
    39
    Thanked 18 Times in 14 Posts

    Ðề: Giúp em cái script này ^_^

    Trích dẫn Gửi bởi songhung [Only registered and activated users can see links. ]
    xai rui bàn àk
    -----------------------------
    Nè ban code ne bạn
    funtion pd()
    SetTask(TaskPhucDuyen,GetTask(TaskPhucDuyen)+2000)
    Msg2Player("Nhan duoc 2000 Phuc Duyen")
    end
    lỗi rồi bạn ơi
    Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  10. #10
    Thành Viên benop001's Avatar
    Ngày tham gia
    Jan 2010
    Bài viết
    465
    Thanks
    39
    Thanked 18 Times in 14 Posts

    Ðề: Giúp em cái script này ^_^

    a` nói lun mình chơi sever Muopv1.0
    Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 
Trang 1 của 3 1 2 3 CuốiCuối

Các Chủ đề tương tự

  1. Một số script trong thư mục script Vina (unpack)
    Bởi sangpronhat trong diễn đàn Scripts
    Trả lời: 19
    Bài viết cuối: 26-11-11, 08:12 AM
  2. Script ủy thác rời mạng.
    Bởi thachlong78 trong diễn đàn Scripts
    Trả lời: 21
    Bài viết cuối: 28-01-10, 06:10 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à 11:16 PM.
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ệ.