Cần giúp đỡ vấn đề " phong lăng độ " vào trong không có quái !

[prtear2721995]

Cao nhân nào giúp đỡ em vè tính năng Phong Lăng Độ vào trong hoài mà không có quái với ạ.



--AddEventItem(489)·çÁê¶ÉÁìÅÆ
IncludeLib("FILESYS")
Include("\\script\\lib\\log.lua")

MISSIONID = 15 --䶨
FRAME2TIME = 18; --18Ö¡ÓÎϷʱ¼äÏ൱ÓÚ1ÃëÖÓ
boatMAPS = {337, 338, 339}; --ÄÏ°¶¶É´¬µØͼÒÀ˳ÐòΪ£¬337Ä� �°¶ÉÏÓΡ¢338ÖÐÓΡ¢339ÏÂÓÎ
boatMAP_POS = {1646, 3233}
northMAP = 336
northMAP_POS = {{1158, 2964}, {1343, 2868}, {1482, 2796}}
TNPC_THIEF = {724, 725}
TNPC_THIEF_COUNT = 30
npcthiefpos = "\\settings\\maps\\ÖÐÔ­±±Çø\\¶É´¬\\¶É ´¬Ë¢¹Öµã.txt"
FLD_TIMER_1 = 20 * FRAME2TIME --ÿ20Ã빫²¼Ò»ÏÂÕ½¿ö
FLD_TIMER_2 = 39 * 60 * FRAME2TIME --´Ó±¨Ãûµ½½øÈë´ò±¦µØͼ40·ÖÖÓ
ENDSIGN_TIME = 10 * 60 * FRAME2TIME/FLD_TIMER_1 --±¨Ãûʱ¼ä½áÊø
UPBOSS_TIME = 25 * 60 * FRAME2TIME/FLD_TIMER_1 --¿ª´ò15·ÖÖÓʱ²úÉúµÚ1¸öBOSS
UPBOSS_TIME2 = 30 * 60 * FRAME2TIME/FLD_TIMER_1 --¿ª´ò20·ÖÖÓʱ²úÉúµÚ2¸öBOSS
UPBOSS_TIME3 = 35 * 60 * FRAME2TIME/FLD_TIMER_1 --¿ª´ò25·ÖÖÓʱ²úÉúµÚ3¸öBOSS
REPORT_TIME = 38 * 60 * FRAME2TIME/FLD_TIMER_1
HUOYUEDU_TIME = 3 * 60 * FRAME2TIME/FLD_TIMER_1 -- »îÔ¾¶È»ñµÃʱ¼ä£¬´¬¿ªÆôºóµ Ä3·ÖÖÓ

MS_STATE = 1
MS_TIMEACC_1MIN = 2
MS_TIMEACC_20SEC = 3




function fld_cancel()
end

function fld_wanttakeboat(addr)

-- Gia nhËp m«n ph¸i míi lªn thuyÒn Modified - by AnhHH - 20110724
if (GetLastFactionNumber() == -1)then
Talk(1,"","§¹i hiÖp ch­a gia nhËp m«n ph¸i kh«ng thÓ lªn thuyÒn")
return
end

local orgworld = SubWorld
local MapId = boatMAPS[addr]
if (MapId <= 0) then
print("error:fenglingdu script wrong! mapid is nil!")
return
end
local idx = SubWorldID2Idx(MapId)
if (idx < 0) then
Say("Xin lçi! PhÝa tr­íc ®ang cã nguy hiÓm! T¹m thêi ch­a thÓ lªn thuyÒn!.",0)
return
end
if (fld_haveroom() == 1) then
return
end
local sz_msg = "Muèn ®ãn thuyÒn ®Õn bê B¾c Phong L¨ng §é ph¶i cã Phong L¨ng §é lÖnh bµi hoÆc ng­¬i ®­a ta <color=red>200<color> cuèn MËt ®å thÇn bÝ, ta sÏ cho ng­¬i lªn thuyÒn!";
local str = {
"Ta cã lÖnh bµi Phong L¨ng §é/use_lingpai",
"Ta ®· thu thËp ®ñ 200 cuèn MËt ®å thÇn bÝ/use_juanzhou",
"§Ó ta suy nghÜ l¹i!/fld_cancel",
};
--§iÒu chØnh thêi gian phong l¨ng ®é tèn phÝ - Modified by DinhHQ - 20110504
if (check_new_shuizeitask() == 1) then
sz_msg = format("Mçi ngµy vµo lóc 10:00,14:00,16:00,18:00,20:00,cÇn ph¶i cã %s míi cã thÓ ®i tham gia Bê B¾c Phong L¨ng §é, sau khi thuËn lîi v­ît qua sÏ cã phÇn th­ëng", "LÖnh Bµi Thñy TÆc");
str = {
format("Ta cã %s/use_suizeilingpai", "LÖnh Bµi Thñy TÆc"),
"§Ó ta suy nghÜ l¹i!/fld_cancel",
};
end

if (addr == 1) then
Say(" "..sz_msg, getn(str), str);
elseif (addr == 2) then
Say(" "..sz_msg, getn(str), str);
elseif (addr == 3) then
Say(" "..sz_msg, getn(str), str);
end
end



function fld_TakeBoat(plindex)
orgplayerindex = PlayerIndex
PlayerIndex = plindex

local orgworld = SubWorld
if ( BOATID == 1 ) then
boatmapid = 337
idx = SubWorldID2Idx(boatmapid)
elseif( BOATID == 2 ) then
boatmapid = 338
idx = SubWorldID2Idx(boatmapid)
elseif ( BOATID == 3 ) then
boatmapid = 339
idx = SubWorldID2Idx(boatmapid)
else
return 0
end

oldsubworldindex = SubWorld
SubWorld = SubWorldID2Idx(boatmapid)
if (fld_haveroom() == 1) then
return 0
end
t = 10 - GetMissionV(MS_TIMEACC_1MIN)
if (t <= 0) then
return 0
end
LeaveTeam()
--DinhHQ
--20110405: Fix bug, ngoµi thêi gian 13h, 15h, 17h, 19h bÕn 2 3 cã thÓ pk cõu s¸t
if (check_new_shuizeitask() == 1) then
if ( BOATID ~= 1 ) then
SetTaskTemp(200,1);
ForbidEnmity(1);
end
end
SetCurCamp(1);
-- if ( BOATID ~= 1 ) then
-- ForbidEnmity(1);
-- SetCurCamp(1);
-- end

-- SetTaskTemp(200,1);
SetFightState(0)
posx, posy = fld_getadata(npcthiefpos)
posx = floor(posx/32)
posy = floor(posy/32)
AddMSPlayer(MISSIONID,1)
NewWorld(boatmapid, posx, posy)
Msg2Player("cßn"..t.." phót thuyÒn rêi bÕn, ®Õn bê B¾c Phong L¨ng §é")
DisabledUseTownP(1) --ÏÞÖÆÆäÔڶɴ¬ÄÚʹÓûسǷû
SetRevPos(175,1); --ÉèÖÃÖØÉúµãÔÚÎ÷ɽ´å
SetLogoutRV(1)
SetCreateTeam(0);
SetDeathScript("\\script\\missions\\fengling_ferry\\fld_death.lua")
SubWorld = oldsubworldindex
PlayerIndex = orgplayerindex
return 1
end

function fld_haveroom()
if (GetMSPlayerCount(MISSIONID, 1) >= 100 ) then
if (BOATID == 1) then
Say("Ng­¬i ®Õn trÔ råi! ThuyÒn ®· ®Çy råi, h·y chê chuyÕn sau ®i!", 0)
return 1
elseif (BOATID == 2) then
Say("Ng­¬i ®· ®Õn trÔ! ThuyÒn ®· ®Çy råi, h·y chê chuyÕn sau ®i!", 0)
return 1
elseif (BOATID == 3) then
Say("Ng­¬i ®· ®Õn trÔ! ThuyÒn ®· ®Çy råi, h·y chê chuyÕn sau ®i!", 0)
return 1
end
end
end

function GetTabFileHeight(mapfile)
if (TabFile_Load(mapfile, mapfile) == 0) then
print("Load TabFileError!"..mapfile);
return 0
end
return TabFile_GetRowCount(mapfile)
end

function GetTabFileData(mapfile, row, col)
if (TabFile_Load(mapfile, mapfile) == 0) then
print("Load TabFile Error!"..mapfile)
return 0
else
return tonumber(TabFile_GetCell(mapfile, row, col))
end
end

function fld_landingpos(posation)
if (posation <= 0 and posation >3) then
print("error: i still not know why!")
return
end
return northMAP, northMAP_POS[posation][1], northMAP_POS[posation][2]
end

function fld_getadata(file)
local totalcount = GetTabFileHeight(file) - 1;
id = random(totalcount);
x = GetTabFileData(file, id + 1, 1);
y = GetTabFileData(file, id + 1, 2);
return x,y
end

-- ÉñÃؾíÖá½»¸¶½çÃæ
function use_juanzhou() --ʹÓÃÉñÃؾíÖá
GiveItemUI( "Giao MËt ®å thÇn bÝ ", "§Æt 200 cuèn MËt ®å thÇn bÝ vµo « phÝa d­íi, b¹n ph¶i chó ý, nÕu MËt ®å thÇn bÝ trong « Ýt h¬n hoÆc nhiÒu h¬n 200 cuèn ta sÏ kh«ng nhËn.", "exchange_juanzhou", "no" );
end;

-- È·¶¨ÉñÃؾíÖáÊýÁ¿º¯Êý
function exchange_juanzhou(ncount)
local scrollarray = {}
local scrollcount = 0
local scrollidx = {}
local y = 0
for i=1, ncount do
local nItemIdx = GetGiveItemUnit(i);
itemgenre, detailtype, parttype = GetItemProp(nItemIdx)
if (itemgenre == 6 and detailtype == 1 and parttype ==196) then
y = y + 1
scrollidx[y] = nItemIdx;
scrollarray[i] = GetItemStackCount(nItemIdx)
scrollcount = scrollcount + scrollarray[i]
end
end
if (y ~= ncount) then
Say("MËt ®å thÇn bÝ h×nh nh­ kh«ng ®óng! H·y kiÓm tra l¹i xem.", 2, "µ! Th× ra ®Æt nhÇm ®Ó ta thö l¹i./use_juanzhou", "§Ó ta kiÓm tra xem sao/no")
return
end
if (scrollcount > 200) then
Say("Ta chØ cÇn 200 cuèn MËt ®å thÇn bÝ, cßn l¹i ng­¬i ®em vÒ ®i!", 2, "µ! Th× ra ®Æt nhÇm ®Ó ta thö l¹i./use_juanzhou", "§Ó ta kiÓm tra xem sao/no")
return
end
if (scrollcount < 200) then
Say("MËt ®å thÇn bÝ ch­a ®ñ! H·y thö l¹i xem!", 2, "µ! Th× ra ®Æt nhÇm ®Ó ta thö l¹i./use_juanzhou", "§Ó ta kiÓm tra xem sao/no")
return
end
if (scrollcount == 200) then
if (fld_TakeBoat(PlayerIndex) ~= 1) then
Say("Thêi gian kh«ng ®îi ai c¶! ThuyÒn ®· ®i råi, lÇn sau ng­¬i h·y quay l¹i!", 0)
return
end
for i = 1, y do
RemoveItemByIndex(scrollidx[i])
end
end;
end;


-- ·çÁê¶ÉÁîÅƽ»¸¶½çÃæ
function use_lingpai() --ʹÓ÷çÁê¶ÉÁîÅÆ
GiveItemUI( format("Giao diÖn giao phÝ %s LÖnh Bµi", "LÖnh bµi Phong L¨ng §é"), format("Dïng 1 c¸i %s ®Æt vµo « trèng phÝa d­íi. N?u ng­¬i lÊy nh÷ng thø r¸c r­ëi kh¸c ®Æt vµo, ta sÏ kh«ng thÌm nhËn", "LÖnh bµi Phong L¨ng §é"), "exchange_lingpai_1", "no" );
end;

function use_suizeilingpai()
--Modified By DinhHQ - 20110930
GiveItemUI( format("Giao diÖn giao phÝ %s LÖnh Bµi", "LÖnh Bµi Thñy TÆc"), format("Dïng 1 c¸i %s ®Æt vµo « trèng phÝa d­íi. N?u ng­¬i lÊy nh÷ng thø r¸c r­ëi kh¸c ®Æt vµo, ta sÏ kh«ng thÌm nhËn", "LÖnh Bµi Thñy TÆc"), "exchange_lingpai_2", "no", 1 );
end

function exchange_lingpai_1(ncount)
exchange_lingpai(ncount, 1)
end

function exchange_lingpai_2(ncount)
exchange_lingpai(ncount, 2)
end

-- È·¶¨
function exchange_lingpai(ncount, ntype)
if (ncount == 0) then
Say("Hõ! Kh«ng cã lÖnh bµi mµ muèn ngåi thuyÒn?", 0)
return
end

if (ncount > 1) then
Say("Kh«ng ph¶i ta b¶o ng­¬i ®õng ®Æt lung tung hay sao?", 0)
return
end

local nItemIdx = GetGiveItemUnit(1);
local nStackCount = GetItemStackCount(nItemIdx);

if (nStackCount > 1) then
Say("ThuyÒn Phu Bê Nam: Ta chØ cÇn mét c¸i LÖnh Bµi, nh÷ng thø kh¸c ta kh«ng cÇn", 0)
return
end

local itemgenre, detailtype, particular = GetItemProp(nItemIdx);

if (ntype ==1) then
if (itemgenre ~= 4 or detailtype ~= 489) then
Say(format("ThuyÒn Phu Bê Nam: Ta chØ cÇn mét c¸i LÖnh Bµi, nh÷ng thø kh¸c ta kh«ng cÇn", "LÖnh bµi Phong L¨ng §é"), 2, "µ! Th× ra ®Æt nhÇm ®Ó ta thö l¹i./use_lingpai", "§Ó ta kiÓm tra xem sao/no")
return
end
else
if (itemgenre ~= 6 or particular ~= 2745) then
Say(format("ThuyÒn Phu Bê Nam: Ta chØ cÇn mét c¸i LÖnh Bµi, nh÷ng thø kh¸c ta kh«ng cÇn", "LÖnh Bµi Thñy TÆc"), 2, "µ! Th× ra ®Æt nhÇm ®Ó ta thö l¹i./use_suizeilingpai", "§Ó ta kiÓm tra xem sao/no")
return
end
end

if (fld_TakeBoat(PlayerIndex) ~= 1) then
Say("Thêi gian kh«ng ®îi ai c¶! ThuyÒn ®· ®i råi, lÇn sau ng­¬i h·y quay l¹i!", 0)
return
end

RemoveItemByIndex(nItemIdx);
if particular == 2745 then
AddStatData("shuizeilingpai_shiyongshuliang", 1) --Êý¾ÝÂñµãµÚÒ»ÆÚ
end
tbLog:PlayerActionLog("EventChienThang042011","BaoDanhPhongLangDo") -- ±¨ÃûÈÕÖ¾
--ghi log tÝnh n¨ng key - Modified By DinhHQ - 20120410
if particular == 2745 then
tbLog:PlayerActionLog("TinhNangKey","BaoDanhPLD_SDLenhBaiThuyTac")
else
tbLog:PlayerActionLog("TinhNangKey","BaoDanhPLD_SDLenhBaiPLD")
end
end;

function check_new_shuizeitask()
local nHour = tonumber(GetLocalDate("%H"));
--§iÒu chØnh thêi gian phong l¨ng ®é tèn phÝ - Modified by DinhHQ - 20110504
local tb_sptime = {
[10] = 1,
[14] = 1,
[16] = 1,
[18] = 1,
[20] = 1,
};
if (tb_sptime[nHour] and tb_sptime[nHour] == 1) then
return 1
else
return 0
end
end

function no()
end;