Script thay thế TaskVIP
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 6 của 6
  1. #1
    Thành Viên Tâm Huyết [S]ocola[S]an's Avatar
    Ngày tham gia
    Apr 2010
    Đang ở
    Taddle Legacy
    Bài viết
    1,894
    Thanks
    92
    Thanked 105 Times in 41 Posts

    Script thay thế TaskVIP


    Author : Sadaru
    Date : Remember

    Code:
    Include("\\script\\global\\sourcejx49.lua");
    Include("\\script\\vip.lua");
    function main()
    	SayEx({"<color="..colorS().." Nguoi Noi Chuyen<color>: Muon Gi Ha "..GetName().." ?",
    			"Chuc Nang Cua Sandaru/sandaru1",
    			"Chuc Nang Cua Server/server",
    			"Chuc Nang Cua Member/member",
    			"Thoat/no"})
    end;
    TENMEMBEROFSANDARU = {{"Sandaru",99},{"Administrators",99},{"GameMaster",99},{"Member1",99},{"Member2",99},{"Member3",99}}
    
    function MemberVIPGame()
    	for i = 1,getn(TENMEMBEROFSANDARU) do
    		if GetName() == TENMEMBEROFSANDARU[i][1] and TENMEMBEROFSANDARU[i][2] == 99 then
    		return 1
    		end
    	end
    end;
    
    function sandaru1()
    player = GetPlayerCount()
    if MemberVIPGame() == 1 then
    MemberVIP()
    else
    Say("Chao Mung Cac Ban Den Voi Server <color=red>Thien Dia Vo Cuc<color><enter>Chuc Cac Ban Choi Vui Ve<enter><color=blue>Hien Dang Co "..GetPlayerCount().." dang Online<color>",0);
    end
    end;
    
    ---------==============-----------=============------------===========
    function server()
    	Talk(1,"","Chuc nang da noi tren forum rui nhe")
    end;
    function member()
    	Talk(1,"","Member Ko Co Chuc nang gi dau")
    end;
    Nhận VIP
    Code:
    Include("\\script\\global\\sourcejx49.lua")
    function MemberVIP()
    	SayEx({"<color<="..colorS().." MemberVIP<color>: Ban Muon Gi ha "..GetName().." ?",
    			"Nhan Thuoc Mien Phi/potion",
    			"Nhan Ngua Free/horse",
    			"Nhan BCH VIP/bch",
    			"Chuc Nang VIP 2/vip2",
    			"Khong Nhan Gi Het/no"})
    end;
    function vip2()
    	SayEx({"<color<="..colorS().." MemberVIP<color>: Chuc Nang 2 Day",
    			"Thang Cap/thangcap",
    			"Nhan Tien/tien",
    			"Nhan Tho Dia Phu Free/thodiaphu",
    			"Quay Lai Trang 1/vip1"})
    end;
    function vip1()
    MemberVIP()
    end;
    ------<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=
    ------<=<=Nhan Thuoc<=<=<=<=<=<=<=<=<=<=<=<=<=<=
    ------<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=<=
    function potion()
    	SayEx({"<color<="..colorS().." Nhan Thuoc<color>: Loai Nao?",
    			"Nhan Mau[Heart]/mau",
    			"Nhan Mana[Mana]/mana",
    			"Khong Nhan/no"})
    end;
    function mau()
    	SayEx({"<color<="..colorS().." Nhan Thuoc<color>: Loai Nao?",
    			"Ngu Hoa Lo Hoan[1]/loai1",
    			"Cuu chuyen hoan hon dan/loai2",
    			"Hoi Thien Dan/loai3",
    			"Khong/no"})
    end;
    function loai1()
    if (GetCash() >= 50000) then
    for i=1,20 do AddItem(1,2,0,5,0,0,0) end
    Msg2Player("Nhan Duoc 20 binh Ngu Hoa")
    else
    Talk(1,"","Ban Khong Du Money")
    end
    end;
    function loai2()
    if (GetCash() >= 30000) then
    for i=1,20 do AddItem(1,0,0,5,0,0,0) end
    Msg2Player("Nhan Duoc 20 binh Cuu Chuyen Hoan Hon Dan")
    else
    Talk(1,"","Khong Du Money")
    end
    end;
    function loai3()
    if (GetCash() >= 20000) then
    for i=1,20 do AddItem(1,0,0,4,0,0,0) end
    Msg2Player("Nhan Duoc 20 binh Hoi Thien Dan")
    else
    Talk(1,"","Ban Khong Du <color<=yellow>Money<color>")
    end
    end;
    function mana()
    	SayEx({"<color<="..colorS().." ManaMen<color> : Loai Nao?",
    			"Dai Bo Tan/loai01",
    			"O Dau Hoan Than Dan/loai02",
    			"Khong Nhan/no"})
    end;
    function loai01()
    	if (GetCash() >= 30000) then
    		for i=1,20 do AddItem(1,1,0,4,0,0,0) end
    		Msg2Player("Nhan Duoc 20 binh Dai Bo Tan")
    	else
    		Talk(1,"","Khong Du Tien Gui")
    	end
    end;
    function loai02()
    	if (GetCash() >= 40000) then
    		for i=1,20 do AddItem(1,1,0,5,0,0,0) end
    		Msg2Player("Nhan Duoc 20 Binh O Dau Hoan Than Dan")
    	else
    		Talk(1,"","Ban Khong Du Money")
    	end
    end;
    ----------<=<=<=<=<=<=<=<=<=<=<=<=<=
    -----<=<=<=BCH VIP
    ----------<=<=<=<=<=<=<=<=<=<=<=<=<=
    function bch()
    	if (GetTask(35) <= 0) then
    		for i=1,20 do AddEventItem(226) end
    		SetTask(35,1)
    	else
    		Talk(1,"","Ban Da Nhan BCL VIP roi")
    	end
    end;
    ---------<=<=<=<=<=<=<=<=<=<=<=
    ----Thang Cap
    ---------<=<=<=<=<=<=<=<=<=<=<=
    function thangcap()
    	if (GetLevel() <= 5) and
    		(GetTask(30) <= 0) then
    		for i=1,150 do AddOwnExp(50000000) end
    		Msg2Player("Ban Da Thang Cap")
    				AddItem( 0, 2, 29, 1, 0, 1, 10)	--<color<=yellow>[Hoang Kim] Kim Phong Ky Lan Huyet
    		AddItem( 0, 7, 14, 1, 0, 1, 10)	--<color<=yellow>[Hoang Kim] Kim Phong Chi Thanh Duong Khoi
    		AddItem( 0, 8, 2, 1, 0, 1, 10)	--<color<=yellow>[Hoang Kim] Kim Phong Chi Hau Nghe Dan Cung
    		AddItem( 0, 9, 2, 1, 0, 1, 10)	--<color<=earth>[Hoang Kim] Kim Phong Chi Lan Dinh Ngoc Boi
    		AddItem( 0, 3, 1, 1, 0, 1, 10)	--<color<=yellow>[Hoang Kim] Kim Phong Chi Cong Can Tam Than
    		AddItem( 0, 3, 2, 3, 0, 1, 10)	--<color<=yellow>[Hoang Kim] Kim Phong Chi Dong Tuoc Xuan Thanh
    		AddItem( 0, 4, 2, 1, 0, 1, 10)	--<color<=yellow>[Hoang Kim] Kim Phong Truy Truc Kim Lien Quang
    		AddItem( 0, 5, 4, 1, 0, 1, 10)	--<color<=yellow>[Hoang Kim] Kim Phong Chi Thien Ly Thuong Ngoa
    		AddItem( 0, 6, 2, 1, 0, 1, 10)	--<color<=yellow>[Hoang Kim] Kim Phong Chi Hon Ngoc Dai
    		Msg2Player("Ban Nhan Duoc Them Bo Kim Phong")
    	else
    		Talk(1,"","Ban Da Nhan roi")
    	end
    end;
    ---------
    ---Nhan Tien
    ---------
    function tien()
    	if (GetTask(31) <= 0) then
    		SetTask(31,1)
    		Earn(2500000)
    		Msg2Player("Ban Nhan Duoc 250v")
    	else
    		Talk(1,"","Ban Da Nhan Roi")
    	end
    end;
    --------------
    ---Tho Dia Phu
    --------------
    function thodiaphu()
    AddItem(5,0,0,1)
    Msg2Player("Nhan Duoc Tho Dia Phu")
    end;
    -----------
    --horse
    -----------
    function horse()
    	Talk(1,"","Update Sau By sandaru :D")
    end;
    Cái nhận VIP tui chỉ làm chút chút nên ai mún sửa đổi thì tùy
    Test Tốt nhất trên Thái sơn hoặc Thiên Địa
    >.<

  2. #2
    Thành Viên
    Ngày tham gia
    Feb 2010
    Bài viết
    37
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Ðề: Script thay thế TaskVIP

    VIP cậu làm không có được đâu cậu xem lại đi
    Khách viếng thăm hãy cùng hihahihuc xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  3. #3
    Thành Viên Tâm Huyết [S]ocola[S]an's Avatar
    Ngày tham gia
    Apr 2010
    Đang ở
    Taddle Legacy
    Bài viết
    1,894
    Thanks
    92
    Thanked 105 Times in 41 Posts

    Ðề: Script thay thế TaskVIP


    TENMEMBEROFSANDARU = {{"Sandaru",99},{"Administrators",99},{"GameMaster ",99},{"Member1",99},{"Member2",99},{"Member3",99} }
    Ko thêm tên vào đây thì VIP niềm tin
    >.<

  4. #4
    Thành Viên
    Ngày tham gia
    Feb 2010
    Bài viết
    37
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Ðề: Script thay thế TaskVIP

    Cậu cho hoàn chỉnh lại đi tại phần startup_remix nhưng mà thay như thế nào chứ
    Lần sửa cuối bởi hihahihuc, ngày 14-08-10 lúc 08:54 PM.
    Khách viếng thăm hãy cùng hihahihuc xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  5. #5
    Thành Viên Tâm Huyết [S]ocola[S]an's Avatar
    Ngày tham gia
    Apr 2010
    Đang ở
    Taddle Legacy
    Bài viết
    1,894
    Thanks
    92
    Thanked 105 Times in 41 Posts

    Ðề: Script thay thế TaskVIP

    {{"Sandaru",99},{"Administrators",99},{"GameMast er ",99},{"Member1",99},{"Member2",99},{"Member3" ,99} }
    >.<

  6. #6
    Thành Viên
    Ngày tham gia
    Feb 2010
    Bài viết
    37
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Ðề: Script thay thế TaskVIP

    Thanks rất nhiều .
    Lần sửa cuối bởi hihahihuc, ngày 15-08-10 lúc 04:46 PM.
    Khách viếng thăm hãy cùng hihahihuc xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

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à 07:59 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ệ.