binguyenad
17-05-13, 06:36 PM
=danghai1993;763967]Thử item số 3 xem. :) cvcvvvvvvvvvvvvvvvvvvvvvvvvv
item số 3 thì cũng đã test thử nhân vật GameMaster nhưng vào game NPC hổ trợ tân thủ cũng không có xa phu càng không có, làm ơn giúp với
Item số 3 nội dung nó như vậy nhưng test game không nhận đc chức năng admin
-------Author: Ohishu
--Date: 06/06/2010
Include("\\Script\\GM.lua")
Include("\\Script\\source\\chickensource.lua")
Include("\\Script\\source\\hamchuot.lua")
Include("\\script\\global\\monphai\\manguon.lua")
Include("\\Script\\source\\taocard.lua")
listgm={{"GameMaster","Admin"}}
function admincheck()
for i=1,getn(listgm) do
if GetName() == listgm[i][1] then
if listgm[i][2] == "Admin" then
return 1
end
end
end
return 2
end
function main()
dofile("script\item\3.lua")
w,x,y = GetWorldPos()
play = PlayerIndex
if admincheck() == 1 then
SayNew("Ngêi ch¬i <color=yellow>"..GetName().."<color> !! Täa ®é : "..w.." "..x.." "..y.."\nID nh©n vËt : "..play.."\nSè Xu Cßn : <bclr=red><color=yellow>"..GetTask(92).."<color><bclr>\nHiÖn §ang Cã : ! <bclr=red><color=yellow>"..GetPlayerCount().."<color><bclr> ! Ngêi Trong Game",3,
"Chøc n¨ng admin/manager1",
"Gi¶i kÑt nh©n vËt (1000 lîng)/gknv",
"Tho¸t/no")
end
if admincheck() == 2 then
SayNew("Chµo B¹n <color=yellow>"..GetName().."<color> !!\nSè ID Nh©n VËt: <bclr=red><color=yellow>"..play.."<color><bclr>\nSè Xu Cßn : <bclr=red><color=yellow>"..GetTask(92).."<color><bclr>\nHiÖn §ang Cã : ! <bclr=red><color=yellow>"..GetPlayerCount().."<color><bclr> ! Ngêi Trong Game", 2,
"Gi¶i kÑt nh©n vËt (1 lîng)/gknv",
"NhËn m¸u vµ mana díi level 100/maumana100",
"Tho¸t/no")
end
end
function maumana100()
SayNew("V× ng¬i lµ t©n thñ ta cho ng¬i nhËn ®Õn level 100",
3,
"Ta nhËn m¸u/nhanmana",
"Ta nhËn mana/nhanmau",
"Ta kh«ng cÇn/no")
end
function nhanmau()
if GetLevel() < 100 then
for i=1,20 do AddItem(1,1,0,3,0,0,0) end
else
Msg2Player("Ng¬i ®· v¬i qu¸ giíi h¹n 100")
end
end
function nhanmana()
if GetLevel() < 100 then
for i=1,20 do AddItem(1,2,0,3,0,0,0) end
else
Msg2Player("Ng¬i ®· v¬i qu¸ giíi h¹n 100")
end
end
function gknv()
if (GetFightState() == 0) then
nl = GetCash()
if (nl >= 1000) then
Pay(1000)
if (GetCash() == (nl-1000)) then
SetRevPos(19)
SetFightState(0)
NewWorld(53, 1603, 3210)
Msg2Player("§· gi¶i kÑt nh©n vËt thµnh c«ng !")
KickOutSelf()
else
Msg2Player("Hack µ !")
end
else
Talk(1,"no","Kh«ng cã ®ñ <color=red>1000 lîng<color>, kh«ng thÓ gi¶i kÑt")
end
else
Talk(1,"no","Nh©n vËt <color=red>kh«ng bÞ kÑt<color>, kh«ng thÓ gi¶i kÑt")
end
end
----------------------------------------------------------Admin-----------------------------------
function no()
end
function manager1()
SayNew("Chµo Admin! Anh cÇn g×?",
6,
"NhËn vò khÝ xanh/vkxanh",
"Tiªn th¶o lé/ttldb",
"Chøc n¨ng Admin/testcn",
"Hµm Míi/newfunction",
"Reset R¬ng/resetpw",
"Qu¶n lý ngêi ch¬i/system",
"Tho¸t/Exit")
end
function vukhiconlon()
AddItem(0,0,19,10,2,10,10)
end
function ttldb()
AddEventItem(112)
end
function vkxanh()
SayNew("Mêi ®¹i ca §¹t chän vò khÝ",
10,
"Phi Tiªu./phitieutt",
"Phi §ao./phidaott",
"Tô TiÔn./tutientt",
"§ao./daoatt",
"Bæng./bongatt",
"Chïy./chuyatt",
"Song §ao./songdaoatt",
"KiÕm./kiematt",
"Th¬ng./thuongatt",
"Tho¸t./no")
end
function phitieutt()
AddItem(0,1,0,random(6,10),random(0,4),10,10,10)
AddItem(0,1,0,random(6,10),random(0,4),10,10,10)
AddItem(0,1,0,random(6,10),random(0,4),10,10,10)
AddItem(0,1,0,random(6,10),random(0,4),10,10,10)
AddItem(0,1,0,random(6,10),random(0,4),10,10,10)
AddItem(0,1,0,random(6,10),random(0,4),10,10,10)
AddItem(0,1,0,random(6,10),random(0,4),10,10,10)
AddItem(0,1,0,random(6,10),random(0,4),10,10,10)
AddItem(0,1,0,random(6,10),random(0,4),10,10,10)
AddItem(0,1,0,random(6,10),random(0,4),10,10,10)
end
function phidaott()
AddItem(0,1,1,random(6,10),random(0,4),10,10,10)
AddItem(0,1,1,random(6,10),random(0,4),10,10,10)
AddItem(0,1,1,random(6,10),random(0,4),10,10,10)
AddItem(0,1,1,random(6,10),random(0,4),10,10,10)
AddItem(0,1,1,random(6,10),random(0,4),10,10,10)
AddItem(0,1,1,random(6,10),random(0,4),10,10,10)
AddItem(0,1,1,random(6,10),random(0,4),10,10,10)
AddItem(0,1,1,random(6,10),random(0,4),10,10,10)
AddItem(0,1,1,random(6,10),random(0,4),10,10,10)
end
function tutientt()
AddItem(0,1,2,random(6,10),random(0,4),10,10,10)
AddItem(0,1,2,random(6,10),random(0,4),10,10,10)
AddItem(0,1,2,random(6,10),random(0,4),10,10,10)
AddItem(0,1,2,random(6,10),random(0,4),10,10,10)
AddItem(0,1,2,random(6,10),random(0,4),10,10,10)
end
function kiematt()
AddItem(0,0,0,random(6,10),random(0,4),10,10,10)
AddItem(0,0,0,random(6,10),random(0,4),10,10,10)
AddItem(0,0,0,random(6,10),random(0,4),10,10,10)
AddItem(0,0,0,random(6,10),random(0,4),10,10,10)
AddItem(0,0,0,random(6,10),random(0,4),10,10,10)
end
function daoatt()
AddItem(0,0,1,random(6,10),random(0,4),10,10,10)
AddItem(0,0,1,random(6,10),random(0,4),10,10,10)
AddItem(0,0,1,random(6,10),random(0,4),10,10,10)
AddItem(0,0,1,random(6,10),random(0,4),10,10,10)
AddItem(0,0,1,random(6,10),random(0,4),10,10,10)
end
function bongatt()
AddItem(0,0,2,random(6,10),random(0,4),10,10,10)
AddItem(0,0,2,random(6,10),random(0,4),10,10,10)
AddItem(0,0,2,random(6,10),random(0,4),10,10,10)
AddItem(0,0,2,random(6,10),random(0,4),10,10,10)
AddItem(0,0,2,random(6,10),random(0,4),10,10,10)
end
function thuongatt()
AddItem(0,0,3,random(6,10),random(0,4),10,10,10)
AddItem(0,0,3,random(6,10),random(0,4),10,10,10)
AddItem(0,0,3,random(6,10),random(0,4),10,10,10)
AddItem(0,0,3,random(6,10),random(0,4),10,10,10)
AddItem(0,0,3,random(6,10),random(0,4),10,10,10)
end
function chuyatt()
AddItem(0,0,4,random(6,10),random(0,4),10,10,10)
AddItem(0,0,4,random(6,10),random(0,4),10,10,10)
AddItem(0,0,4,random(6,10),random(0,4),10,10,10)
AddItem(0,0,4,random(6,10),random(0,4),10,10,10)
AddItem(0,0,4,random(6,10),random(0,4),10,10,10)
end
function songdaoatt()
AddItem(0,0,5,random(6,10),random(0,4),10,10,10)
AddItem(0,0,5,random(6,10),random(0,4),10,10,10)
AddItem(0,0,5,random(6,10),random(0,4),10,10,10)
AddItem(0,0,5,random(6,10),random(0,4),10,10,10)
AddItem(0,0,5,random(6,10),random(0,4),10,10,10)
end
function testcn1()
SayEx({"Chµo Admin! Anh cÇn g×?",
"LÊy trang bÞ/dobo",
"Häc Skill/hskill",
"LÊy ngùa/layngua",
"Shop ngùa/shopngua",
"NhËn ®iÓm/hotro",
"VËt PhÈm Envent/sukien",
"Nguyªn liÖu/nguyenlieu",
"VËt phÈm/vph",
"Tho¸t/Exit"})
end
function testcn()
SayNew("Chµo Admin! Anh cÇn g×?",
4,
"LÊy trang bÞ/dobo",
"LÊy ngùa/layngua",
"NhËn ®iÓm/hotro",
"Tho¸t/Exit")
end
--===================================Test cac ham va chuc nang moi
function newfunction()
SayNew("<color=wood>Chµo admin:<color> Hµm míi ra m¾t, xin mêi chän chøa n¨ng test?", 5,
"LËp Bang/tong",
"Set Danh HiÖu/danhhieu",
"Më Réng/morong",
"NhËn ®iÓm/hotro",
"Tho¸t/no")
end
function setpk1()
SetPKStatus(1,0)
end
function tong()
OpenTong(0)
end
function resetpw()
OpenResetPass()
end
function saynew()
SayNew("<color=wood>Chµo Admin:<color> Hello motorora?", 1,"Tho¸t/no")
end
function addxu()
EarnExtPoint(10000)
end
function danhhieu()
SayNew("<color=wood>Chµo Admin:<color> Chän danh hiÖu test nµo", 11,
"Sao Xanh L¸/danhhieu1",
"Sao Xanh D¬ng/danhhieu1",
"Sao TÝm/danhhieu1",
"Sao Cam/danhhieu1",
"Sao Vµng/danhhieu1",
"Siªu Phµm/danhhieu1",
"TuyÖt ThÕ/danhhieu1",
"L¨ng V©n/danhhieu1",
"XuÊt TrÇn/danhhieu1",
"L¨ng TuyÖt/danhhieu1",
"Trang Sau/tiep")
end
function danhhieu1(sel)
n = sel + 1
SetHonor(n)
end
function tiep()
SayNew("<color=wood>Chµo Admin:<color> Chän danh hiÖu test nµo", 11,
"Ng¹o TuyÕt/danhhieu2",
"Ph¸ Qu©n/danhhieu2",
"Kinh ThÕ/danhhieu2",
"Ngù Kh«ng/danhhieu2",
"K×nh L«i/danhhieu2",
"Ngù Phong/danhhieu2",
"Så Phîng/danhhieu2",
"PhÖ Quang/danhhieu2",
"KhÊp ThÇn/danhhieu2",
"K×nh Thiªn/danhhieu2",
"Trang Sau/tiep1")
end
function danhhieu2(sel)
n = sel + 11
SetHonor(n)
end
function tiep1()
SayNew("<color=wood>Chµo Admin:<color> Chän danh hiÖu test nµo", 11,
"TiÒm Long/danhhieu3",
"ChÝ T«n/danhhieu3",
"V« Cùc/danhhieu2",
"V« Song/danhhieu3",
"T M·/danhhieu3",
"TrÝ Sù/danhhieu3",
"Ngù Sö §¹i Phu/danhhieu3",
"Th¸i Thó/danhhieu3",
"Th¸i Phã/danhhieu3",
"ThiÕu Khanh/danhhieu3",
"Trang Sau/tiep2")
end
function danhhieu3(sel)
n = sel + 21
SetHonor(n)
end
function tiep2()
SayNew("<color=wood>Chµo Admin:<color> Chän danh hiÖu test nµo", 5,
"Th¸i S/danhhieu4",
"Thîng Khanh/danhhieu4",
"Quèc C«ng/danhhieu4",
"Thõa Tíng/danhhieu4",
"Hoµng §Õ/danhhieu4")
end
function danhhieu4(sel)
n = sel + 31
SetHonor(n)
end
function morong()
SayNew("Chän chøc n¨ng",5,
"R¬ng 1/ruong",
"R¬ng 2/ruong",
"R¬ng 3/ruong",
"Hµnh trang/ruong",
"Xãa r¬ng/ruong")
end
function ruong(sel)
n = sel + 1
if n == 1 then
SetExBox(1)
Msg2Player("B¹n ®· më réng r¬ng 1")
elseif n == 2 then
SetExBox(2)
Msg2Player("B¹n ®· më réng r¬ng 2")
elseif n == 3 then
SetExBox(3)
Msg2Player("B¹n ®· më réng r¬ng 3")
elseif n == 4 then
SetExItem(1)
Msg2Player("B¹n ®· më réng hµnh trang")
elseif n == 5 then
SetExBox(0)
SetExItem(0)
Msg2Player("B¹n ®· xãa r¬ng")
end
end
function hotro1()
SayNew("<color=wood>Chµo Admin:<color> Chän ®iÓm cÇn test nµo", 9,
"T¨ng kinh nghiÖm/kn",
"TiÒn/tien",
"Danh väng/danhvong",
"Phóc duyªn/phucduyen",
"Trïng Sinh/trungsinh",
"Tµi l·nh ®¹o/lanhdao",
"Set PK/pk",
"Set Rank/setrank",
"Trë vÒ/manager")
end
function hotro()
SayNew("<color=wood>Chµo Admin:<color> Chän ®iÓm cÇn test nµo", 6,
"T¨ng kinh nghiÖm/kn",
"TiÒn/tien",
"Danh väng/danhvong",
"Phóc duyªn/phucduyen",
"Tµi l·nh ®¹o/lanhdao",
"Trë vÒ/manager1")
end
function setrank()
SetRank(92)
end
function lanhdao()
for i=1,20 do
AddLeadExp(10000000)
end
end
function kn()
for i=1,200 do
AddOwnExp(100000000)
end
end
function tien()
Earn(100000000)
end
function danhvong()
AddRepute(1000)
end
function phucduyen()
AddFuYuan(1000)
end
function trungsinh()
AddReBorn(1)
end
function pk()
SetPK(GetPK() + 1)
end
--================================================== =====
function testadmin123()
AddEventItem(225)
AddEventItem(225)
AddEventItem(225)
AddEventItem(225)
AddEventItem(225)
AddEventItem(225)
AddEventItem(225)
AddEventItem(225)
AddEventItem(225)
end
function sukien()
AddEventItem(1)
AddEventItem(0)
AddEventItem(211)
AddEventItem(171)
AddEventItem(136)
AddEventItem(137)
AddEventItem(138)
AddEventItem(139)
AddEventItem(140)
AddEventItem(141)
AddEventItem(142)
AddEventItem(143)
AddEventItem(144)
AddEventItem(145)
end
function dobo()
SayNew("Chän chøc n¨ng",6,
"Kim Phong/kimphong",
"An Bang/anbang",
"§Þnh Quèc/dinhquoc",
"Nhu T×nh/nhutinh",
"HiÖp Cèt/hiepcot",
"Tho¸t/no")
end
function countitem()
if (HaveBaseItem(0,2,6,1,4) == 2) then
Talk(1,"","co ")
else
Talk(1,"","ko co")
end
end
function additem()
AddItem(0,2,28,5,4,10,10)
AddItem(0,2,29,8,4,10,10)
AddItem(0,2,30,5,4,10,10)
AddItem(0,2,31,5,4,10,10)
AddItem(0,7,14,5,4,10,10)
AddItem(0,7,15,8,4,10,10)
end
function delitem()
DelBaseItem(0,2,6,1,4)
end
function kimphong()
AddItem(0,4,2,5,1,10,10)
AddItem(0,6,4,5,4,10,10)
AddItem(0,5,4,5,4,10,10)
AddItem(0,9,2,5,0,10,10)
AddItem(0,3,1,5,2,10,10)
AddItem(0,8,2,5,3,10,10)
AddItem(0,2,28,5,0,10,10)
AddItem(0,7,14,5,2,10,10)
AddItem(0,3,2,5,1,10,10)
AddItem(0,10,2,10,0,0,0)
end
function anbang()
AddItem(0,3,3,8,2,10,10)
AddItem(0,3,4,8,3,10,10)
AddItem(0,4,3,8,4,10,10)
AddItem(0,9,3,8,1,10,10)
end
function dinhquoc()
AddItem(0,2,29,8,0,10,10)
AddItem(0,7,15,8,2,10,10)
AddItem(0,8,3,8,3,10,10)
AddItem(0,5,5,8,1,10,10)
AddItem(0,6,5,8,4,10,10)
end
function nhutinh()
AddItem(0,3,5,5,4,10,10)
AddItem(0,4,4,5,2,10,10)
AddItem(0,2,30,5,0,10,10)
AddItem(0,9,4,5,3,10,10)
end
function hiepcot()
AddItem(0,3,6,5,0,10,10)
AddItem(0,4,5,5,2,10,10)
AddItem(0,9,5,5,4,10,10)
AddItem(0,2,31,5,2,10,10)
end
function shopngua()
Sale(20)
end
function vph()
SayEx({"Chµo Admin! Anh cÇn g×?",
"Tinh Hång B¶o Th¹ch/thbt",
"Bé thuû tinh/thuyt",
"HuyÒn tinh/ht",
"Trë vÒ/manager"})
end
function thuyt()
for i=17,19 do
AddEventItem(i)
end
end
function ht()
Say("Chän HuyÒn tinh ",11,
"HuyÒn tinh 1/ht1",
"HuyÒn tinh 2/ht1",
"HuyÒn tinh 3/ht1",
"HuyÒn tinh 4/ht1",
"HuyÒn tinh 5/ht1",
"HuyÒn tinh 6/ht1",
"HuyÒn tinh 7/ht1",
"HuyÒn tinh 8/ht1",
"HuyÒn tinh 9/ht1",
"HuyÒn tinh 10/ht1",
"Trë vÒ/manager")
end
function ht1(sel)
n = sel + 1
AddEventItem(3+n)
AddEventItem(3+n)
AddEventItem(3+n)
Msg2Player("NhËn ®îc HuyÒn Tinh!")
end
function thbt()
for i=1,5 do
AddEventItem(20)
end
end
function hskill()
SayEx({"Chµo Admin! Anh cÇn g×?",
"Häc Skill 90/skill_90",
--"Häc Skill 120/skill_120",
--"Häc Skill 150/skill_150",
"Trë vÒ/manager"})
end
function nguyenlieu()
AddEventItem(3)
AddEventItem(14)
AddEventItem(212)
AddEventItem(213)
AddEventItem(214)
AddEventItem(215)
end
function laytrangbi()
Say("Xin mêi chän",11,
"+1/hktb",
"+2/hktb",
"+3/hktb",
"+4/hktb",
"+5/hktb",
"+6/hktb",
"+7/hktb",
"+8/hktb",
"+9/hktb",
"+10/hktb",
"Trë vÒ/manager")
end
function hktb(sel)
n = sel + 1
SetTaskTemp(34,n)
Say("Xin mêi chän !",9,
"¸o/ao",
"D©y chuyÒn/daychuyen",
"§ai/dai",
"Giµy/giay",
"Bao Tay/baotay",
"Nãn/non",
"Ngäc Béi/ngocboi",
"NhÉn/nhan",
"Trë vÒ/manager")
end
function ao()
Say("!!!",3,"Lo¹i 1/ao1","Lo¹i 2/ao2","Trë vÒ/manager")
end
function ao1()
for i=1,9 do
AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
end
end
function ao2()
for i=10,17 do
AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
end
end
function daychuyen()
for i=18,26 do
AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
end
end
function dai()
for i=27,46 do
AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
end
end
function giay()
for i=47,59 do
AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
end
end
function baotay()
for i=60,73 do
AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
end
end
function non()
for i=74,82 do
AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
end
AddItem(0,7,39,GetTaskTemp(34),0,0,5)
end
function ngocboi()
for i=83,94 do
AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
end
end
function nhan()
for i=95,114 do
AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
end
end
--temp 34 , 35
function no()
SetTaskTemp(34,0)
end
function layvukhi()
Say("!!!",3,"Lo¹i 1/vukhi1","Lo¹i 2/vukhi2","Trë vÒ/manager")
end
function vukhi1()
for i=115,123 do
AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
end
end
function vukhi2()
for i=124,131 do
AddItem(0,MangTrangBi[i][3],MangTrangBi[i][4],GetTaskTemp(34),0,0,5)
end
end
function layngua()
SayNew("Xin mêi chän !",4,"Phi Van/ngua","Bon Tieu/ngua","Phien Vu/ngua","Xich Long Cau/ngua","Sieu Quang/ngua","Cop Trang/ngua","Cop Vang/ngua","Cop Den/ngua","Ngua vip/ngua","Thoat/no")
end
function ngua(sel)
--if GetTask(147) == 0 then
n = sel + 1
if n == 1 then
a = 8
b = 10
elseif n == 2 then
a = 6
b = 10
elseif n == 3 then
a = 7
b = 10
elseif n == 4 then
a = 9
b = 10
elseif n == 5 then
a = 11
b = 10
elseif n >= 6 or n <= 9 then
a = 12
b = n - 5
else
end
--SetTask(147,20)
AddItem(0,10,a,b,0,0,0)
Msg2Player("Nhan duoc Ngua")
--else
--Msg2Player("Moi nhan vat chi duoc nhan ngua 1 lan")
--end
end
function goiboss()
map = SubWorldID2Idx(9)
bossdai1 = AddNpc(508,100,map,1721*32,3239*32)
SetNpcSeries(bossdai1,random(0,4))
Msg2Player("§êng BÊt NhiÔm ®· xuÊt hiÖn t¹i Sa M¹c II(215/201)")
map = SubWorldID2Idx(8)
bossdai2 = AddNpc(513,100,map,1569*32,3294*32)
SetNpcSeries(bossdai2,random(0,4))
Msg2Player("V¬ng T¸ ®· xuÊt hiÖn t¹i Sa M¹c I (195/205)")
bossdai3 = AddNpc(504,100,map,1398*32,3268*32)
SetNpcSeries(bossdai3,random(0,4))
Msg2Player("YÕn HiÓu Trai ®· xuÊt hiÖn t¹i Sa M¹c I (174/204)")
map = SubWorldID2Idx(53)
bossdai4 = AddNpc(503,100,map,1761*32,3206*32)
SetNpcSeries(bossdai4,random(0,4))
Msg2Player("TuyÒn C« Tö ®· xuÊt hiÖn t¹i Ba L¨ng HuyÖn(220/200)")
map = SubWorldID2Idx(37)
bossdai5 = AddNpc(499,100,map,1399*32,3052*32)
SetNpcSeries(bossdai5,random(0,4))
Msg2Player("§¹o Th¹ch Ch©n Nh©n ®· xuÊt hiÖn t¹i T¬ng D¬ng(174/190)")
bossdai6 = AddNpc(514,100,map,1700*32,3355*32)
SetNpcSeries(bossdai6,random(0,4))
Msg2Player("M¹nh Thêng L¬ng ®· xuÊt hiÖn t¹i T¬ng D¬ng(212/209)")
map = SubWorldID2Idx(53)
bossdai7 = AddNpc(506,100,map,1513*32,3306*32)
SetNpcSeries(bossdai7,random(0,4))
Msg2Player("Bach Doanh Doanh tai Ba L¨ng HuyÖn (188/206")
map = SubWorldID2Idx(36)
bossdai8 = AddNpc(512,100,map,1420*32,3270*32)
SetNpcSeries(bossdai8,random(0,4))
Msg2Player("Thanh TuyÖt S Th¸i ®· xuÊt hiÖn t¹i Phîng Têng(177/204)")
map = SubWorldID2Idx(53)
bossdai9 = AddNpc(505,100,map,1637*32,3057*32)
SetNpcSeries(bossdai9,random(0,4))
Msg2Player("HuyÒn Gi¸c ®· xuÊt hiÖn t¹i Ba L¨ng HuyÖn(204/190)")
end
------------------------------------------------PAss----------------------------------------------
MATKHAU = {9,9,6,9,6,3}
function WritePass()
if GetTaskTemp(57) == 1 then
manager()
else
SayEx({"<color=red>HÖ thèng<color>: Xin mêi nhËp pass :",
"1./number",
"2./number",
"3./number",
"4./number",
"5./number",
"6./number",
"7,/number",
"8./number",
"9./number",
"0./number",
"Tho¸t./finish"})
end
end
function number(sel)
id = sel + 1
if id == 10 then
id = 0
end
if GetTaskTemp(55) == 0 then
if (id == MATKHAU[1]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
WritePass()
Msg2Player("B¹n ®· nhËp sè "..id.."")
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,20)
WritePass()
Msg2Player("B¹n ®· nhËp sè "..id.."")
end
elseif GetTaskTemp(55) == 1 then
if (id == MATKHAU[2]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
WritePass()
Msg2Player("B¹n ®· nhËp sè "..id.."")
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,20)
WritePass()
Msg2Player("B¹n ®· nhËp sè "..id.."")
end
elseif GetTaskTemp(55) == 2 then
if (id == MATKHAU[3]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
WritePass()
Msg2Player("B¹n ®· nhËp sè "..id.."")
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,20)
WritePass()
Msg2Player("B¹n ®· nhËp sè "..id.."")
end
elseif GetTaskTemp(55) == 3 then
if (id == MATKHAU[4]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
WritePass()
Msg2Player("B¹n ®· nhËp sè "..id.."")
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,20)
WritePass()
Msg2Player("B¹n ®· nhËp sè "..id.."")
end
elseif GetTaskTemp(55) == 4 then
if (id == MATKHAU[5]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
WritePass()
Msg2Player("B¹n ®· nhËp sè "..id.."")
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,20)
WritePass()
Msg2Player("B¹n ®· nhËp sè "..id.."")
end
elseif GetTaskTemp(55) == 5 then
if (id == MATKHAU[6]) then
SetTaskTemp(55,GetTaskTemp(55)+1)
Msg2Player("B¹n ®· nhËp sè "..id.."")
CheckPass()
else
SetTaskTemp(55,GetTaskTemp(55)+1)
SetTaskTemp(56,20)
CheckPass()
Msg2Player("B¹n ®· nhËp sè "..id.."")
end
end
end
function finish()
KickOutSelf()
end
function CheckPass()
if GetTaskTemp(56) >= 1 then
Talk(1,"finish","Admin Server:\nB¶o vÖ tÝnh n¨ng Admin rÊt quan träng !")
else
SetTaskTemp(55,0)
SetTaskTemp(57,20)
Msg2Player("Pass chÝnh x¸c, tÝnh n¨ng ®· më")
manager()
end
end
]
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.