[S]ocola[S]an
13-08-10, 07:57 PM
Author : Sadaru
Date : Remember
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
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:D
Test Tốt nhất trên Thái sơn hoặc Thiên Địa
Date : Remember
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
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:D
Test Tốt nhất trên Thái sơn hoặc Thiên Địa