Script event đêm huy hoàng

**sangpronhat** · 27-10-09, 10:28 PM

timer.lua

Code:

hathuyhoang = {
                        {
                            {182,"Me Cung Nghiet Long Dong",236,206},
                            {167,"Diem Thuong Son",196,193},
                            {200,"Me Cung Co Duong Dong",195,210},
                            {92,"Thuc Cuong Son",236,193}
                        },
                        {
                            {322,"Truong Bach Son Bac",204,231},
                            {321,"Truong Bach Son Nam",175,186},
                            {225,"Son Dong Sa Mac Tang 1",174,203},
                            {226,"Son Dong Sa Mac Tang 2",215,200},
                            {227,"Son Dong Sa Mac Tang 3",187,205}
                        },
                        {
                            {248,"Mac Cao Quat",191,200},
                            {247,"Phong Lang Do",153,168}
                        }
               };
hathoangkim = {
                {341,"Mac Bac Thao Nguyen",181,155},
                {333,"Hoa Son Phai",179,200},
                {181,"Me Cung Luong Thuy Dong",204,191},
                {243,"Lam Du Quan",218,205}
              };
demhuyhoang = {{12,0},{12,10},{12,20}};
hathh = 1110
quahh = 1111
hathk = 1117
quahk = 1118
ngau_nhien1 = 0
ngau_nhien2 = 0
ngau_nhien3 = 0
ngau_nhien4 = 0
qua_hh_sc = nil
qua_hh_tc = nil
qua_hh_cc = nil
qua_hk = nil
loai = 0
function OnTimer()
    gio = tonumber(date("%H"))
    phut = tonumber(date("%M"))
    giay = tonumber(date("%S"))
        idx = SubWorldID2Idx(326)
        SubWorld = idx
        for i=1,getn(demhuyhoang) do
            if gio == demhuyhoang[i][1] and phut == demhuyhoang[i][2] and giay == 0 then
                tao_hat_hh_hk()
                break
            elseif gio == demhuyhoang[i][1] and phut == demhuyhoang[i][2] + 5 and giay == 1 then
                tao_qua_hh_hk()
                break
            elseif gio == demhuyhoang[i][1] and phut == (demhuyhoang[i][2] + 5) and giay == 10 then
                duoc_hai()
            elseif gio == demhuyhoang[i][1] and phut == (demhuyhoang[i][2] +9) then 
                xoa_hat_qua_hh_hk()
            end
        end
end
function tao_hat_hh_hk()
-------------hat huy hoan
loai = random(1,4)
if loai == 1 then
    ----------so cap-----------
        ngau_nhien1 = random(1,4)
            map_index = SubWorldID2Idx(hathuyhoang[1][ngau_nhien1][1])
            map_name = hathuyhoang[1][ngau_nhien1][2]
            POSX = hathuyhoang[1][ngau_nhien1][3]*8*32
            POSY = hathuyhoang[1][ngau_nhien1][4]*16*32
                hat_hh_sc = AddNpc(hathh,1,map_index,POSX,POSY,1,"SangProNhat",1)
                SetNpcScript(hat_hh_sc,"\\script\\event\\demhuyhoang\\hathuyhoang.lua")
                Msg2SubWorld("Nhan sy vo lam chu y co nguoi phat hien Hat Huy Hoang xuat hien o ["..map_name.."]")
elseif loai == 2 then    
    ---------trung cap---------
        ngau_nhien2 = random(1,5)
            map_index = SubWorldID2Idx(hathuyhoang[2][ngau_nhien2][1])
            map_name = hathuyhoang[2][ngau_nhien2][2]
            POSX = hathuyhoang[2][ngau_nhien2][3]*8*32
            POSY = hathuyhoang[2][ngau_nhien2][4]*16*32
                hat_hh_tc = AddNpc(hathh,1,map_index,POSX,POSY,1,"SangProNhat",1)
                SetNpcScript(hat_hh_tc,"\\script\\event\\demhuyhoang\\hathuyhoang.lua")
                Msg2SubWorld("Nhan sy vo lam chu y co nguoi phat hien Hat Huy Hoang xuat hien o ["..map_name.."]")
elseif loai == 3 then
    ---------Cao cap-------------
        ngau_nhien3 = random(1,2)
            map_index = SubWorldID2Idx(hathuyhoang[3][ngau_nhien3][1])
            map_name = hathuyhoang[3][ngau_nhien3][2]
            POSX = hathuyhoang[3][ngau_nhien3][3]*8*32
            POSY = hathuyhoang[3][ngau_nhien3][4]*16*32
                hat_hh_cc = AddNpc(hathh,1,map_index,POSX,POSY,1,"SangProNhat",1)
                SetNpcScript(hat_hh_cc,"\\script\\event\\demhuyhoang\\hathuyhoang.lua")
                Msg2SubWorld("Nhan sy vo lam chu y co nguoi phat hien Hat Huy Hoang xuat hien o ["..map_name.."]")
else
-----------hat hoang kim
        ngau_nhien4 = random(1,4)
            map_index = SubWorldID2Idx(hathoangkim[ngau_nhien4][1])
            map_name = hathoangkim[ngau_nhien4][2]
            POSX = hathoangkim[ngau_nhien4][3]*8*32
            POSY = hathoangkim[ngau_nhien4][4]*16*32
                hat_hk = AddNpc(hathk,1,map_index,POSX,POSY,1,"SangProNhat",1)
                SetNpcScript(hat_hk,"\\script\\event\\demhuyhoang\\hathoangkim.lua")
                Msg2SubWorld("Nhan sy vo lam chu y co nguoi phat hien Hat Hoang Kim xuat hien o ["..map_name.."]")
end
end
function tao_qua_hh_hk()
idx = SubWorldID2Idx(326)
SubWorld = idx
SetMissionV(7,0)
-------------qua huy hoan
if loai == 1 then
    ----------so cap-----------
            DelNpc(hat_hh_sc)
            map_index = SubWorldID2Idx(hathuyhoang[1][ngau_nhien1][1])
            map_name = hathuyhoang[1][ngau_nhien1][2]
            POSX = hathuyhoang[1][ngau_nhien1][3]*8*32
            POSY = hathuyhoang[1][ngau_nhien1][4]*16*32
                qua_hh_sc = AddNpc(quahh,1,map_index,POSX,POSY,1,"SangProNhat",1)
                SetNpcScript(qua_hh_sc,"\\script\\event\\demhuyhoang\\quahuyhoang.lua")
                Msg2SubWorld("Nhan sy vo lam chu y co nguoi phat hien Qua Huy Hoang xuat hien o ["..map_name.."]")
elseif loai == 2 then    
    ---------trung cap---------
            DelNpc(hat_hh_tc)
            map_index = SubWorldID2Idx(hathuyhoang[2][ngau_nhien2][1])
            map_name = hathuyhoang[2][ngau_nhien2][2]
            POSX = hathuyhoang[2][ngau_nhien2][3]*8*32
            POSY = hathuyhoang[2][ngau_nhien2][4]*16*32
                qua_hh_tc = AddNpc(quahh,1,map_index,POSX,POSY,1,"SangProNhat",1)
                SetNpcScript(qua_hh_tc,"\\script\\event\\demhuyhoang\\quahuyhoang1.lua")
                Msg2SubWorld("Nhan sy vo lam chu y co nguoi phat hien Qua Huy Hoang xuat hien o ["..map_name.."]")
elseif loai == 3 then    
    ---------Cao cap-------------
            DelNpc(hat_hh_cc)
            map_index = SubWorldID2Idx(hathuyhoang[3][ngau_nhien3][1])
            map_name = hathuyhoang[3][ngau_nhien3][2]
            POSX = hathuyhoang[3][ngau_nhien3][3]*8*32
            POSY = hathuyhoang[3][ngau_nhien3][4]*16*32
                qua_hh_cc = AddNpc(quahh,1,map_index,POSX,POSY,1,"SangProNhat",1)
                SetNpcScript(qua_hh_cc,"\\script\\event\\demhuyhoang\\quahuyhoang2.lua")
                Msg2SubWorld("Nhan sy vo lam chu y co nguoi phat hien Qua Huy Hoang xuat hien o ["..map_name.."]")
else
    -----------qua hoang kim
            DelNpc(hat_hk)
            map_index = SubWorldID2Idx(hathoangkim[ngau_nhien4][1])
            map_name = hathoangkim[ngau_nhien4][2]
            POSX = hathoangkim[ngau_nhien4][3]*8*32
            POSY = hathoangkim[ngau_nhien4][4]*16*32
                qua_hk = AddNpc(quahk,1,map_index,POSX,POSY,1,"SangProNhat",1)
                SetNpcScript(qua_hk,"\\script\\event\\demhuyhoang\\quahoangkim.lua")
                Msg2SubWorld("Nhan sy vo lam chu y co nguoi phat hien Qua Hoang Kim xuat hien o ["..map_name.."]")
end
end    
function duoc_hai()
idx = SubWorldID2Idx(326)
SubWorld = idx
SetMissionV(7,1)
end
function xoa_hat_qua_hh_hk()
DelNpc(qua_hh_sc)
DelNpc(qua_hh_tc)
DelNpc(qua_hh_cc)
DelNpc(qua_hk)
end

hathuyhoang.lua

Code:

function main()
Say("<bclr=red>Hat Huy Hoang<bclr> : Toi la loai thuc vat rat quy hiem !",0)
end

hathoangkim.lua

Code:

function main()
Say("<bclr=red>Hat Hoang Kim<bclr> : Toi la loai thuc vat rat tuy hiem kho kiem hon ca <color=yellow>Hat Huy Hoang<color> !",0)
end

quahuyhoang.lua

Code:

hai = 0
function main()
idx = SubWorldID2Idx(326)
SubWorld = idx
    if GetMissionV(7) == 0 then
        Say("<bclr=red>Qua Huy Hoang<bclr> : Nguoi muon an mot loai qua quy hiem dang con song sao !",0)
    elseif GetMissionV(7) == 1 then
        Say("<bclr=red>Qua Huy Hoang<bclr> : Qua chin roi nguoi co muon hai khong !",2,"Tat nhien ta muon/hai","Ta khong du kha nang/out")
    end
end
function hai()
if hai == 0 then
if GetLevel() <= 89 then
DelNpc(1111)
AddEventItem(112)
Msg2Player("Ban da hai thanh cong Qua Huy Hoang (Thap)")
else
Msg2Player("Dang cap duoi 89 moi hai duoc toi")
end
else
Say("Qua ngon nhat da bi nguoi khac hai mat roi gio con vo nguoi muon lay ha !",0)
end
end
function out()
end

quahuyhoang1.lua

Code:

hai = 0
function main()
idx = SubWorldID2Idx(326)
SubWorld = idx
    if GetMissionV(7) == 0 then
        Say("<bclr=red>Qua Huy Hoang<bclr> : Nguoi muon an mot loai qua quy hiem dang con song sao !",0)
    elseif GetMissionV(7) == 1 then
        Say("<bclr=red>Qua Huy Hoang<bclr> : Qua chin roi nguoi co muon hai khong !",2,"Tat nhien ta muon/hai","Ta khong du kha nang/out")
    end
end
function hai()
if hai == 0 then
if GetLevel() >= 90 and GetLevel() <= 119 then
DelNpc(1111)
AddEventItem(113)
Msg2Player("Ban da hai thanh cong Qua Huy Hoang (trung)")
else
Msg2Player("Dang cap tu 90 - 119 moi hai duco toi")
end
else
Say("Qua ngon nhat da bi nguoi khac hai mat roi gio con vo nguoi muon lay ha !",0)
end
end
function out()
end

quahuyhoang2.lua

Code:

hai = 0
function main()
idx = SubWorldID2Idx(326)
SubWorld = idx
    if GetMissionV(7) == 0 then
        Say("<bclr=red>Qua Huy Hoang<bclr> : Nguoi muon an mot loai qua quy hiem dang con song sao !",0)
    elseif GetMissionV(7) == 1 then
        Say("<bclr=red>Qua Huy Hoang<bclr> : Qua chin roi nguoi co muon hai khong !",2,"Tat nhien ta muon/hai","Ta khong du kha nang/out")
    end
end
function hai()
if hai==0 then
if GetLevel() >= 120 then
DelNpc(1111)
AddEventItem(114)
Msg2Player("Ban da hai thanh cong Qua Huy Hoang (Cao)")
else
MSg2Player("Dang cap tu 120 tro len moi hai duoc toi")
end
else
Say("Qua ngon nhat da bi nguoi khac hai mat roi gio con vo nguoi muon lay ha !",0)
end
end
function out()
end

quahoangkim.lua

Code:

hai = 0
function main()
idx = SubWorldID2Idx(326)
SubWorld = idx
    if GetMissionV(7) == 0 then
        Say("<bclr=red>Qua Hoang Kim<bclr> : Nguoi muon an mot loai qua quy hiem dang con song sao !",0)
    elseif GetMissionV(7) == 1 then
        Say("<bclr=red>Qua Hoang Kim<bclr> : Qua chin roi nguoi co muon hai khong !",2,"Tat nhien ta muon/hai","Ta khong du kha nang/out")
    end
end
function hai()
if hai==0 then
if GetLevel() >= 120 then
DelNpc(1118)
AddEventItem(115)
Msg2Player("Ban da hai thanh cong Qua Qua Hoang Kim")
else
Msg2Player("Dang cap tu 120 tro len moi hai duco toi")
end
else
Say("Qua ngon nhat da bi nguoi khac hai mat roi gio con vo nguoi muon lay ha !",0)
end
end
function out()
end

npc_use_qua_hh_hk.lua

Code:

function main()
Say("<color=red>SangProNhat<color> : Nha nguoi muon su dung loai qua nao !",5,
    "Qua huy hoang (thap)/hht",
    "Qua huy hoang (trung)/hhtr",
    "Qua huy hoang (cao)/hhc",
    "Qua hoang kim/hk",
    "Ta chi xem qua thoi/out")
end
function hht()
if GetLevel() <= 89 then
if HaveItem(112) == 1 then
    DelItem(112)
    AddOwnExp(500000)
    Msg2Player("Nhan duoc 500.000 diem kinh nghiem !")
else
    Say("Nguoi khong co qua huy hoang (thap) ta khong giup di duoc",0)
end
else
    Talk(1,"","Su dung qua huy hoang (thap) phai co dang cap tu <color=red>89<color> tro xuong")
end
end
function hhtr()
if GetLevel() >= 90 and GetLevel() <= 119 then
if HaveItem(113) == 1 then
    DelItem(113)
    AddOwnExp(2000000)
    Msg2Player("Nhan duoc 2.000.000 diem kinh nghiem !")
else
    Say("Nguoi khong co qua Qua Huy Hoang (trung) ta khong giup di duoc",0)
end
else
    Talk(1,"","Su dung qua Qua Huy Hoang (trung) phai co dang cap tu <color=red>90 den 119<color>")
end
end
function hhc()
if GetLevel()>=120 then
if HaveItem(114) == 1 then
    DelItem(114)
    AddOwnExp(300000)
    Msg2Player("Nhan duoc 3.000.000 diem kinh nghiem !")
else
    Say("Nguoi khong co qua Qua Huy Hoang (cao) ta khong giup di duoc",0)
end
else
    Talk(1,"","Su dung qua Qua Huy Hoang (cao) phai co dang cap tu <color=red>120<color> tro len")
end
end
function hk()
if GetLevel() >= 120 then
if HaveItem(115) == 1 then
    DelItem(115)
    AddOwnExp(3000000)
    Msg2Player("Nhan duoc 30.000.000 diem kinh nghiem !")
else
    Say("Nguoi khong co qua Qua Hoang Kim ta khong giup di duoc",0)
end
else
    Talk(1,"","Su dung qua Qua Hoang Kim phai co dang cap tu <color=red>120<color> tro len")
end
end    
function out()
end

Cách xài :
Chép vô Script\event\
Mở map 326
Thêm Queskey

Code:

Qua Huy Hoang (thap)     4    117    \spr\item\questkey\huihuangzhiguo.spr    41    1    1    An vao se tang gap doi cong luc    1    
Qua Huy Hoang (trung)     4    118    \spr\item\questkey\huihuangzhiguo.spr    41    1    1    An vao se tang gap doi cong luc    1    
Qua Huy Hoang (cao)     4    119    \spr\item\questkey\huihuangzhiguo.spr    41    1    1    An vao se tang gap doi cong luc    1    
Qua Hoang Kim    4    120    \spr\item\questkey\huangjinzhiguo.spr    41    1    1    An vao se tang gap doi cong luc    1

Thêm Npcs.txt

Code:

hat Huy Hoang    hat Huy Hoang    辉煌之种    3    6    0                                passerby204    0    0    0    0    0    22    30                                                                                                                                                                                                400        700                                                                                        140        36    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0            0|0            0|0
Qua Huy Hoang    Qua Huy Hoang    辉煌之果    3    6    0                                passerby205    0    0    0    0    0    22    30                                                                                                                                                                                                400        700                                                                                        140        36    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0            0|0            0|0
Hat Hoang Kim     Hat Hoang Kim     黄金之种    3    6    0                                passerby206    0    0    0    0    0    22    30                                                                                                                                                                                                400        700                                                                                        140        36    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0            0|0            0|0
Qua Hoang Kim    Qua Hoang Kim    黄金之果    3    6    0                                passerby207    0    0    0    0    0    22    30                                                                                                                                                                                                400        700                                                                                        140        36    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0    0|0            0|0            0|0

Npcres\人物类型.txt

Code:

passerby204    NormalNpc    spr\npcres\passerby\passerby204
passerby205    NormalNpc    spr\npcres\passerby\passerby205
passerby206    NormalNpc    spr\npcres\passerby\passerby206
passerby207    NormalNpc    spr\npcres\passerby\passerby207

Npcres\普通npc资源.txt

Code:

passerby204    passerby204.spr    passerby204.spr    passerby204.spr                                            
passerby205    passerby205.spr    passerby205.spr    passerby205.spr                                            
passerby206    passerby206.spr    passerby206.spr    passerby206.spr                                            
passerby207    passerby207.spr    passerby207.spr    passerby207.spr

TimerTask.txt

Code:

11    \script\event\demhuyhoang\timer.lua

Code Start Timer :

Code:

function main()
        idx = SubWorldID2Idx(326)
        SubWorld = idx
        OpenMission(1)
        StartMissionTimer(1,11,18);
end

CÒn nhiều bug nhưng tính năng cơ bản okie
Chẳng bít có ai mong tui trở về jx hong nhĩ

Link MapList.ini

[Only registered and activated users can see links. ]

Quà tặng mọi người trong forum

**thaihoa91** · 28-10-09, 06:47 AM

Kaka ! Lâu quá ko thấy Sangpronhat ^__^ ! Bóc tem nà !

**jxvietnam** · 28-10-09, 09:56 AM

Thank for share ^^ Sangpronhat đúng là pro nhất

**~~**Mr.Rezo™**~~** · 28-10-09, 10:09 PM

script này ông đưa tôi lâu rồi nhưng tôn trọng ông không upload lên

**sangpronhat** · 28-10-09, 10:11 PM

Bản hồi đó chỉ là script với lại chưa fix hết item chưa đầy đủ nữa
Giờ làm đầy đủ mới up lên cho mọi người

**ducphu** · 30-10-09, 12:30 PM

Nhờ các bác cho em cái file gốc ! Nói như thế này chảng biết add vào đâu !

**docthuthanlong** · 13-01-10, 01:56 AM

Cách xài :
Chép vô Script\event\
Mở map 326
Thêm Queskey

bạn chỉ cho tui cái map này chỗ nào vậy
trong server của tui ko có map đó thì làm thế nào ?
lần đầu tui dùng script bạn chỉ kĩ càng 1 chút nhé!

**thaihoa91** · 13-01-10, 08:47 AM

Gửi bởi docthuthanlong [Only registered and activated users can see links. ]

bạn chỉ cho tui cái map này chỗ nào vậy
trong server của tui ko có map đó thì làm thế nào ?
lần đầu tui dùng script bạn chỉ kĩ càng 1 chút nhé!

Nếu ko biết dùng Script thì bắt buộc bạn phải down Ebook của Giangleloi về mà học viết Script cơ bản rồi hãy dùng Script có sẵn ! Bạn chưa hiểu cấu trúc Server thì ko thể nào mà biết chỗ nào làm cho đúng đâu !

Ebook giangleloi : [Only registered and activated users can see links. ]

Chủ đề: Script event đêm huy hoàng

Công cụ Chủ đề

Script event đêm huy hoàng

Ðề: Script event đêm huy hoàng

Ðề: Script event đêm huy hoàng

Ðề: Script event đêm huy hoàng

Ðề: Script event đêm huy hoàng

Ðề: Script event đêm huy hoàng

Ðề: Script event đêm huy hoàng

Ðề: Script event đêm huy hoàng

Các Chủ đề tương tự

Một số script trong thư mục script Vina (unpack)

Hướng dẫn Event Pháo Đài Sói

Script Event tết viết theo kiểu mới

Script event quả huy hoàng

Quyền viết bài