[KT] Script giao thông với kim chi mỹ nữ ! [Lưu trữ]

phien-nhatrang

01-05-13, 06:23 PM

Dùng nguyên gốc cái hoạt động giao thông :)) , có thể sửa lại thành script đoán hoa đăng tùy ý bạn

local tbhapdiemkimchi = Npc:GetClass("mynukimchi1");

tbhapdiemkimchi.TaskGourp = 3018;
tbhapdiemkimchi.TaskId_Day = 1;
tbhapdiemkimchi.TaskId_Count = 2;
tbhapdiemkimchi.TaskId_Last = 3;
tbhapdiemkimchi.Relay_Time = 0;
tbhapdiemkimchi.Use_Max =2; -- so lan giao thong trong ngay

function tbhapdiemkimchi:OnDialog()
if me.CountFreeBagCell() < 1 then
Dialog:Say("Phải Có 1 Ô Trống Trong Túi !");
return 0;
end
if me.nLevel < 100 then
Dialog:Say("Tờ rim chưa đạt level 100, chưa đủ tuổi giao thông với ta đâu !");
return 0;
end
local nDate = tonumber(GetLocalDate("%Y%m%d"));
if me.GetTask(self.TaskGourp, self.TaskId_Day) < nDate then
me.SetTask(self.TaskGourp, self.TaskId_Day, nDate);
me.SetTask(self.TaskGourp, self.TaskId_Count, 0);
me.SetTask(self.TaskGourp, self.TaskId_Last, 0);
end
local nCount = me.GetTask(self.TaskGourp, self.TaskId_Count);
local szMsg = string.format("Mỗi ngày Giao thông được giao thông với Kim chi 2 lần để giữ sức");
local nCount = me.GetTask(self.TaskGourp, self.TaskId_Count);
if nCount >= self.Use_Max then
Dialog:Say(string.format("Hôm nay đã giao thông rồi"));
return 0;
end
local nLast = me.GetTask(self.TaskGourp, self.TaskId_Last);
local nHour = tonumber(GetLocalDate("%Y%m%d%H%M%S"));
local nSec1 = Lib:GetDate2Time(nHour);
local nSec2 = nLast + self.Relay_Time;
if nSec1 < nSec2 then
if ((nSec2 - nSec1)<=60) then
me.Msg(string.format("Còn <color=yellow>%s giây<color> nữa mới nhận được giao thông tiếp theo.", (nSec2 - nSec1)));
else
me.Msg(string.format("Còn <color=yellow>%d phút<color> nữa mới nhận được giao thông tiếp theo.", (nSec2 - nSec1)/60));
end
return 0;
end
if (nCount == 0) or (nCount == 1) or (nCount == 2)then

local szMsg = "<color=yellow>"..me.szName.."<color> Đã giao thông đuợc <color=cyan>"..nCount.."<color> lần";
local tbOpt = {
{"<color=red>Giao thông...<color>",self.tienhanhgt,self};
};
Dialog:Say(szMsg, tbOpt);
end
me.Msg(string.format("<color=yellow>Giao thông thành công lần thứ <color=cyan>%d<color><color> ",nCount + 1));

me.SetTask(self.TaskGourp, self.TaskId_Count, nCount + 1);
local nHourS = tonumber(GetLocalDate("%Y%m%d%H%M%S"));
local nSec3 = Lib:GetDate2Time(nHourS);
me.SetTask(self.TaskGourp, self.TaskId_Last, nSec3);
end

---------------- qua trinh giao thong
function tbhapdiemkimchi:tienhanhgt()
local tbEvent =
{
Player.ProcessBreakEvent.emEVENT_MOVE,
Player.ProcessBreakEvent.emEVENT_ATTACK,
Player.ProcessBreakEvent.emEVENT_SITE,
Player.ProcessBreakEvent.emEVENT_USEITEM,
Player.ProcessBreakEvent.emEVENT_ARRANGEITEM,
Player.ProcessBreakEvent.emEVENT_DROPITEM,
Player.ProcessBreakEvent.emEVENT_SENDMAIL,
Player.ProcessBreakEvent.emEVENT_TRADE,
Player.ProcessBreakEvent.emEVENT_CHANGEFIGHTSTATE,
Player.ProcessBreakEvent.emEVENT_CLIENTCOMMAND,
Player.ProcessBreakEvent.emEVENT_LOGOUT,
Player.ProcessBreakEvent.emEVENT_DEATH,
Player.ProcessBreakEvent.emEVENT_ATTACKED,
}
GeneralProcess:StartProcess("<color=red>Đang Giao thông<color>", 10 * Env.GAME_FPS, {self.GetQuest, self, me.nId, him.dwId}, nil, tbEvent);
end

function tbhapdiemkimchi:GetQuest(nPlayerId, nNpcId)
local pPlayer = KPlayer.GetPlayerObjById(nPlayerId)
if (not pPlayer) then
return;
end
local pNpc = KNpc.GetById(nNpcId);
if (not pNpc) then
return;
end
local i = 0;
local nAdd = 0;
local nRand = 0;
local nIndex = 0;
nRand = MathRandom(1, 10000);
local tbRate = {2000,1000,500,500,300,200,3000,1500,1000};
local tbAward =
{
[1] = {18,1,2100,1}; -------- phan thuong tuy chinh
[2] = {18,1,2100,1};
[3] = {18,1,2100,1};
[4] = {18,1,2100,1};
[5] = {18,1,2100,1};
[6] = {18,1,2100,1};
[7] = {18,1,2100,1};
[8] = {18,1,2100,1};
[9] = {18,1,2100,1};
}

for i = 1, 9 do
nAdd = nAdd + tbRate[i];
if nAdd >= nRand then
nIndex = i;
break;
end
end
local pItem = me.AddItem(unpack(tbAward[nIndex]));
if (nIndex == 1) or (nIndex == 2) or (nIndex == 3) or (nIndex == 4) or (nIndex == 5) or (nIndex == 6) then
local szMsg = string.format("<color=cyan>%s<color> Giao thông với kim chi mỹ nữ được <color=cyan>"..pItem.szName.."<color>", me.szName, pItem.szName);
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT, szMsg);
KDialog.MsgToGlobal(szMsg);
me.SendMsgToFriend("Hảo hữu của bạn [<color=cyan>" .. me.szName
.. "<color>] Giao thông với kim chi mỹ nữ được <color=cyan>"
.. pItem.szName .." <color>");
me.Msg("Giao thông được <color=cyan>"..pItem.szName.."<color>.");
pNpc.Delete();
elseif (nIndex == 7) then
me.Msg(" Giao thông với kim chi mỹ nữ được <color=cyan>"..pItem.szName.."<color>");
-------------- add them phan thuong neu can
pNpc.Delete();
elseif (nIndex == 8) then
me.Msg(" Giao thông với kim chi mỹ nữ được <color=cyan>"..pItem.szName.."<color>");
-------------- add them phan thuong neu can
pNpc.Delete();
elseif (nIndex == 9) then
me.Msg(" Giao thông với kim chi mỹ nữ được <color=cyan>"..pItem.szName.."<color>");
-------------- add them phan thuong neu can
pNpc.Delete();
return 1;
end
end

Mở task def

3018 1 17 giao thong 0 0

satthupro95

01-05-13, 06:44 PM

Bác phien cho e thêm cái spr Con Đom Đóm không chết ae mất :))

phien-nhatrang

01-05-13, 06:51 PM

con dom đóm gì ta :-?

satthupro95

01-05-13, 06:53 PM

con dom đóm gì ta :-?

Coldom :">
............................

phien-nhatrang

01-05-13, 07:10 PM

Coldom :">
............................

tiếng anh là con đom đóm, tiếng việt là ba con sói ah, trước giờ toàn dùng tiếng việt nên ko biết :]]

mr.error

01-05-13, 07:20 PM

Event dị thật =)).....................

lonelywofl38

02-05-13, 04:16 PM

có spr em nào sexy nữa thì hết sảy

mindergo11

02-05-13, 07:53 PM

Làm sao để 1 NPC ( Giống NPC trong thành ý ) xuất hiện random tọa độ trong 1 máp nào đó nhỉ
Mình đi thử cho vào boss_schedule nhưng không được =))

phien-nhatrang

02-05-13, 09:00 PM

Mở npc.txt = excel tùy chọn 1 npc tìm cột w ClassName thay = mynukimchi1

mindergo11

02-05-13, 10:13 PM

Em đã làm như anh nói rối nhưng em muốn nó xuất hiện theo giờ và random tọa độ như bos thế giới ý

omasa

04-05-13, 01:43 AM

Tình hình là giao thông em nó 1 cái xong em nó té đâu chạy quanh mấy thành qua mấy thôn mà ko tìm thấy em ấy đâu (:|

mindergo11

04-05-13, 07:01 AM

Xong cái em ý chết luôn vì kiệt sức lấy đâu mà tìm thấy em ý nữa

dongahchu

06-05-13, 09:22 AM

bác phien_nhatrang cho em xin cái yahoo được ko ạ.thanks kiu bác. em muốn hỏi 1 số vấn đề

satthupro95

12-05-13, 11:00 PM

Tặng ae cái spr bao cao su :)) Vì 1 thế giới không HIV =))

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

khoctinhmhs

13-05-13, 09:07 AM

Tặng ae cái spr bao cao su :)) Vì 1 thế giới không HIV =))

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>] ([Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>])

kakakaka bác này dc nè có thuốc phòng thai lun ko :D

Lynk_KiD_HVA

19-06-13, 07:40 PM

Tặng ae cái spr bao cao su :)) Vì 1 thế giới không HIV =))

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

anh sát thủ bá đạo trong việc xếp hình nhỉ

copday

28-06-13, 01:28 PM

Dùng nguyên gốc cái hoạt động giao thông :)) , có thể sửa lại thành script đoán hoa đăng tùy ý bạn

local tbhapdiemkimchi = Npc:GetClass("mynukimchi1");

tbhapdiemkimchi.TaskGourp = 3018;
tbhapdiemkimchi.TaskId_Day = 1;
tbhapdiemkimchi.TaskId_Count = 2;
tbhapdiemkimchi.TaskId_Last = 3;
tbhapdiemkimchi.Relay_Time = 0;
tbhapdiemkimchi.Use_Max =2; -- so lan giao thong trong ngay

function tbhapdiemkimchi:OnDialog()
if me.CountFreeBagCell() < 1 then
Dialog:Say("Phải Có 1 Ô Trống Trong Túi !");
return 0;
end
if me.nLevel < 100 then
Dialog:Say("Tờ rim chưa đạt level 100, chưa đủ tuổi giao thông với ta đâu !");
return 0;
end
local nDate = tonumber(GetLocalDate("%Y%m%d"));
if me.GetTask(self.TaskGourp, self.TaskId_Day) < nDate then
me.SetTask(self.TaskGourp, self.TaskId_Day, nDate);
me.SetTask(self.TaskGourp, self.TaskId_Count, 0);
me.SetTask(self.TaskGourp, self.TaskId_Last, 0);
end
local nCount = me.GetTask(self.TaskGourp, self.TaskId_Count);
local szMsg = string.format("Mỗi ngày Giao thông được giao thông với Kim chi 2 lần để giữ sức");
local nCount = me.GetTask(self.TaskGourp, self.TaskId_Count);
if nCount >= self.Use_Max then
Dialog:Say(string.format("Hôm nay đã giao thông rồi"));
return 0;
end
local nLast = me.GetTask(self.TaskGourp, self.TaskId_Last);
local nHour = tonumber(GetLocalDate("%Y%m%d%H%M%S"));
local nSec1 = Lib:GetDate2Time(nHour);
local nSec2 = nLast + self.Relay_Time;
if nSec1 < nSec2 then
if ((nSec2 - nSec1)<=60) then
me.Msg(string.format("Còn <color=yellow>%s giây<color> nữa mới nhận được giao thông tiếp theo.", (nSec2 - nSec1)));
else
me.Msg(string.format("Còn <color=yellow>%d phút<color> nữa mới nhận được giao thông tiếp theo.", (nSec2 - nSec1)/60));
end
return 0;
end
if (nCount == 0) or (nCount == 1) or (nCount == 2)then

local szMsg = "<color=yellow>"..me.szName.."<color> Đã giao thông đuợc <color=cyan>"..nCount.."<color> lần";
local tbOpt = {
{"<color=red>Giao thông...<color>",self.tienhanhgt,self};
};
Dialog:Say(szMsg, tbOpt);
end
me.Msg(string.format("<color=yellow>Giao thông thành công lần thứ <color=cyan>%d<color><color> ",nCount + 1));

me.SetTask(self.TaskGourp, self.TaskId_Count, nCount + 1);
local nHourS = tonumber(GetLocalDate("%Y%m%d%H%M%S"));
local nSec3 = Lib:GetDate2Time(nHourS);
me.SetTask(self.TaskGourp, self.TaskId_Last, nSec3);
end

---------------- qua trinh giao thong
function tbhapdiemkimchi:tienhanhgt()
local tbEvent =
{
Player.ProcessBreakEvent.emEVENT_MOVE,
Player.ProcessBreakEvent.emEVENT_ATTACK,
Player.ProcessBreakEvent.emEVENT_SITE,
Player.ProcessBreakEvent.emEVENT_USEITEM,
Player.ProcessBreakEvent.emEVENT_ARRANGEITEM,
Player.ProcessBreakEvent.emEVENT_DROPITEM,
Player.ProcessBreakEvent.emEVENT_SENDMAIL,
Player.ProcessBreakEvent.emEVENT_TRADE,
Player.ProcessBreakEvent.emEVENT_CHANGEFIGHTSTATE,
Player.ProcessBreakEvent.emEVENT_CLIENTCOMMAND,
Player.ProcessBreakEvent.emEVENT_LOGOUT,
Player.ProcessBreakEvent.emEVENT_DEATH,
Player.ProcessBreakEvent.emEVENT_ATTACKED,
}
GeneralProcess:StartProcess("<color=red>Đang Giao thông<color>", 10 * Env.GAME_FPS, {self.GetQuest, self, me.nId, him.dwId}, nil, tbEvent);
end

function tbhapdiemkimchi:GetQuest(nPlayerId, nNpcId)
local pPlayer = KPlayer.GetPlayerObjById(nPlayerId)
if (not pPlayer) then
return;
end
local pNpc = KNpc.GetById(nNpcId);
if (not pNpc) then
return;
end
local i = 0;
local nAdd = 0;
local nRand = 0;
local nIndex = 0;
nRand = MathRandom(1, 10000);
local tbRate = {2000,1000,500,500,300,200,3000,1500,1000};
local tbAward =
{
[1] = {18,1,2100,1}; -------- phan thuong tuy chinh
[2] = {18,1,2100,1};
[3] = {18,1,2100,1};
[4] = {18,1,2100,1};
[5] = {18,1,2100,1};
[6] = {18,1,2100,1};
[7] = {18,1,2100,1};
[8] = {18,1,2100,1};
[9] = {18,1,2100,1};
}

for i = 1, 9 do
nAdd = nAdd + tbRate[i];
if nAdd >= nRand then
nIndex = i;
break;
end
end
local pItem = me.AddItem(unpack(tbAward[nIndex]));
if (nIndex == 1) or (nIndex == 2) or (nIndex == 3) or (nIndex == 4) or (nIndex == 5) or (nIndex == 6) then
local szMsg = string.format("<color=cyan>%s<color> Giao thông với kim chi mỹ nữ được <color=cyan>"..pItem.szName.."<color>", me.szName, pItem.szName);
KDialog.NewsMsg(1, Env.NEWSMSG_COUNT, szMsg);
KDialog.MsgToGlobal(szMsg);
me.SendMsgToFriend("Hảo hữu của bạn [<color=cyan>" .. me.szName
.. "<color>] Giao thông với kim chi mỹ nữ được <color=cyan>"
.. pItem.szName .." <color>");
me.Msg("Giao thông được <color=cyan>"..pItem.szName.."<color>.");
pNpc.Delete();
elseif (nIndex == 7) then
me.Msg(" Giao thông với kim chi mỹ nữ được <color=cyan>"..pItem.szName.."<color>");
-------------- add them phan thuong neu can
pNpc.Delete();
elseif (nIndex == 8) then
me.Msg(" Giao thông với kim chi mỹ nữ được <color=cyan>"..pItem.szName.."<color>");
-------------- add them phan thuong neu can
pNpc.Delete();
elseif (nIndex == 9) then
me.Msg(" Giao thông với kim chi mỹ nữ được <color=cyan>"..pItem.szName.."<color>");
-------------- add them phan thuong neu can
pNpc.Delete();
return 1;
end
end

Mở task def

3018 1 17 giao thong 0 0

TASK_GROUP:3018 TASK_ID_FIRST:1 TASK_ID_LAST: 17 giao thong 0 0 vì sao phải là số 1 17 mà không phải số khác:), câu hỏi hơi ngớ ngẩn tý, nhưng làm việc gì cũng phải rõ nguyên do, hi giúp nhé

thuannd203

12-07-13, 01:11 PM

Ủa, mình trỏ script này về 1 NPC, giao thông xong thì NPC mất luôn, hic lại phải bỏ nối vào NPC đó đi.
Tiện đây cho mình hỏi scripts về con Đoán Hoa Đăng nó ở chỗ nào với.

phien-nhatrang

12-07-13, 02:10 PM

Chơi xong phải mất chứ bạn, chứ nó ở đó miết chơi nhiều lần đc nhiều phần thưởng ak.
Mún chơi tiếp thì xóa hết pNpc.Delete(); đi :v

vipbk

12-07-13, 04:56 PM

Tiện đây cho mình hỏi scripts về con Đoán Hoa Đăng nó ở chỗ nào với.

gameserver\script\event\guessgame\npc\huadeng.lua

pikhjn

13-07-13, 08:05 AM

Ô hay Event này được à ;)) , có demo ko mọi người :">

satthupro95

13-07-13, 08:19 AM

Vật Phẩm Liên Quan :
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

Khi Giao Thông nhớ đem theo Bao Cao Su :
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]

mrkutepro

13-07-13, 01:37 PM

tên event có ý nghĩa gì, sao ko ghi thông đ đi nhỉ;))

vipbk

13-07-13, 02:00 PM

tên event có ý nghĩa gì, sao ko ghi thông đ đi nhỉ;))

Bài viết có tiêu đề không rõ ràng hoặc nội dung thô tục v.v... đều bị xóa !

219584

15-07-13, 05:21 PM

Cho mình hỏi mình ad phần thưởng lần 1 được rồi nhưng mình không biết ad phần thưởng cho giao thông lần 2 là ad chổ nào vậy mọi người tk .

phien-nhatrang

15-07-13, 05:43 PM

Phần thưởng ngẩu nhiên từ 1 đến 9

[1] = {18,1,2100,1};
[2] = {18,1,2100,1};
[3] = {18,1,2100,1};
[4] = {18,1,2100,1};
[5] = {18,1,2100,1};
[6] = {18,1,2100,1};
[7] = {18,1,2100,1};
[8] = {18,1,2100,1};
[9] = {18,1,2100,1};

id item chỉnh tùy ý

219584

15-07-13, 07:49 PM

Mình muốn nhận luôn phần thưởng ấy, vi du như giao thông lần 1 được 1 goi qua thứ 1 giao thông lần 2 được gói quà thứ 2 , ý mình muốn hỏi như vây bạn giúp mình nhé tk bạn.