Konu Sahibi
Konu Sahibi
HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
There is a problem in Quest events when I run an event that is not dropping objects from monsters
Please review the experts events.lua
The projection function does not work
Please review the experts events.lua
The projection function does not work
Kod:
quest akira_event_sys begin
state start begin
when letter with pc.is_gm() begin
send_letter("Yِnetim Paneli")
end
when button or info begin
say_white("Yِnetim Paneli")
local event_name = akira_event_sys.AkiraEventList(0)
local event_flag = akira_event_sys.AkiraEventList(1)
local confirm = select("Etkinlikler ", "فptal ")
if confirm == 2 then
return
send_letter("Yِnetim Paneli")
end
if confirm == 1 then
say_white("Yِnetim Paneli -> Etkinlikler: ")
say_reward("Ne yapmak istiyorsun? ")
local confirm = select("Aktif Etkinlikler ", "Etkinlik Balat ", "Otomatik Etkinlik", "فptal ")
if confirm == 4 then
return
send_letter("Yِnetim Paneli")
end
if confirm == 1 then
say_size(350,350)
say_white("Yِnetim Paneli -> Aktif Etkinlikler: ")
local event_name_list = {}
local event_flag_list = {}
for i=1, table.getn(event_flag) do
if event_flag[i] == "auto_event" then
break
end
if game.get_event_flag(event_flag[i]) == 1 then
table.insert(event_name_list, event_name[i])
table.insert(event_flag_list, event_flag[i])
end
end
if table.getn(event_name_list) == 0 then
say_reward("Aktif etkinlik bulunmuyor.")
return
end
say_reward("Bitirmek istediًin etkinliًi seç.")
table.insert(event_name_list, "فptal")
local list = select_table(event_name_list)
if list == table.getn(event_name_list)then
return
send_letter("Yِnetim Paneli")
end
say_white("Yِnetim Paneli -> Aktif Etkinlikler: ")
say_white(event_name_list[list].." kapatyorsun.")
say_reward("Devam etmek istediًine eminmisin? ")
local confirm = select("Evet ", "Hayr ")
if confirm == 2 then
return
send_letter("Yِnetim Paneli")
end
akira_event_sys.AkiraEventSys(0, event_name_list[list], event_flag_list[list])
send_letter("Yِnetim Paneli")
elseif confirm == 2 then
say_size(350,350)
say_white("Yِnetim Paneli -> Etkinlik Balat: ")
local event_name_list = {}
local event_flag_list = {}
for i=1, table.getn(event_flag) do
if event_flag[i] == "auto_event" then
break
end
if game.get_event_flag(event_flag[i]) == 0 then
table.insert(event_name_list, event_name[i])
table.insert(event_flag_list, event_flag[i])
end
end
if table.getn(event_name_list) == 0 then
say_reward("Etkinliklerin hepsi zaten aktif.")
return
end
say_reward("Balatmak istediًin etkinliًi seç.")
table.insert(event_name_list, "فptal")
local list = select_table(event_name_list)
if list == table.getn(event_name_list)then
return
send_letter("Yِnetim Paneli")
end
say_white("Yِnetim Paneli -> Etkinlik Balat: ")
say_white(event_name_list[list].." balatyorsun.")
say_reward("Devam etmek istediًine eminmisin? ")
local confirm = select("Evet ", "Hayr ")
if confirm == 2 then
return
send_letter("Yِnetim Paneli")
end
akira_event_sys.AkiraEventSys(1, event_name_list[list], event_flag_list[list])
send_letter("Yِnetim Paneli")
elseif confirm == 3 then
say_white("Yِnetim Paneli -> Otomatik Etkinlik: ")
say_reward("Ne yapmak istiyorsun? ")
local confirm = select("Etkinlikleri Balat ", "Etkinlikleri Bitir ", "فptal")
if confirm == 3 then
return
send_letter("Yِnetim Paneli")
end
if confirm == 1 then
if game.get_event_flag("auto_event") == 1 then
say_white("Yِnetim Paneli -> Otomatik Etkinlik: ")
say_reward("Otomatik etkinlik sistemi zaten aktif.")
return
send_letter("Yِnetim Paneli")
end
say_white("Etkinlikleri otomatik olarak balatyorsun. ")
say_reward("Devam etmek istediًine eminmisin? ")
local confirm = select("Evet ", "Hayr ")
if confirm == 2 then
return
send_letter("Yِnetim Paneli")
end
game.set_event_flag("auto_event",1)
clear_server_timer("auto_event")
server_loop_timer("auto_event",1)
elseif confirm == 2 then
say_white("Otomatik etkinlikleri kapatyorsun. ")
say_reward("Devam etmek istediًine eminmisin? ")
local confirm = select("Evet ", "Hayr ")
if confirm == 2 then
return
send_letter("Yِnetim Paneli")
end
game.set_event_flag("auto_event",0)
clear_server_timer("auto_event")
end
send_letter("Yِnetim Paneli")
end
end
end
-- Server To Client
when login begin
event_flag = akira_event_sys.AkiraEventList(1)
event_name = akira_event_sys.AkiraEventList(0)
for i=1, table.getn(event_flag) do
if event_flag[i] == "auto_event" then
if game.get_event_flag("auto_event") == 1 then
for j=1, 7 do
auto_event_setting = akira_event_sys.AkiraEventList(2)
if j == 7 then
cmdchat("AkiraEventSys auto_event|"..tostring(j-1).."|"..auto_event_setting[0][5].."|"..auto_event_setting[0][6].."|"..auto_event_setting[0][3].."|")
else
cmdchat("AkiraEventSys auto_event|"..tostring(j-1).."|"..auto_event_setting[j][5].."|"..auto_event_setting[j][6].."|"..auto_event_setting[j][3].."|")
end
end
end
end
if event_flag[i] != "auto_event" and game.get_event_flag(event_flag[i]) == 1 then
notice(event_name[i].."aktif!")
notice("Gerekli bilgileri saً üstteki event penceresinden alabilirsiniz.")
cmdchat("AkiraEventSys event|"..event_flag[i].."|")
end
end
end
-- Server To Client End
-- Event Timer
when auto_event.server_timer begin
auto_event_setting = akira_event_sys.AkiraEventList(2)
local day = tonumber(os.date("%w"))
local time = tostring(os.date("%X"))
if auto_event_setting[day][1] == time then
akira_event_sys.AkiraEventSys(1, auto_event_setting[day][4], auto_event_setting[day][3])
elseif auto_event_setting[day][2] == time then
akira_event_sys.AkiraEventSys(0, auto_event_setting[day][4], auto_event_setting[day][3])
end
end
-- Event Timer End
-- Item Drop
when kill with not npc.is_pc() begin
event_flag = akira_event_sys.AkiraEventList(1)
event_setting = akira_event_sys.AkiraEventList(3)
for i=1, table.getn(event_flag) do
if event_flag[i] != "kostum" and event_flag[i] != "auto_event" and "sertifika" != event_flag[i] and "kuzeykutusu" != event_flag[i] and game.get_event_flag(event_flag[i]) == 1 then
if npc.get_level() >= pc.get_level() - 10 then
if event_setting[event_flag[i]][1] >= number(1, 150) then
game.drop_item_with_ownership(number(event_setting[event_flag[i]][2],event_setting[event_flag[i]][3]), 1)
end
end
end
end
end
--Futbol topu
when 50096.use begin
syschat("Futbol topunu yalnizca Altin Futbol Topu iken acabilirsin. ")
syschat("Topladiginiz futbol toplari 30 adet oldugunda bir sonra ki isinlanmanizda Altin Futbol topuna donusur. ")
syschat("Topladiginiz Futbol toplarinizi Altin Futbol Topu yapmak icin baska bir haritaya isinlanin. ")
end
when kill or login or logout or levelup begin
if pc.count_item(50096) >= 20 then
pc.remove_item(50096, 20)
pc.give_item2(50265)
end
end
--Futbol topu
--Kostüm
when 8006.kill or 8007.kill or 8008.kill or 8009.kill or
8010.kill or 8011.kill or 8012.kill or 8013.kill or
8014.kill or 8024.kill or 8025.kill or 8026.kill or
8027.kill or 8051.kill or 8052.kill or 8053.kill or
8054.kill or 8055.kill or 8056.kill or 8057.kill or
8058.kill with game.get_event_flag("kostum") == 1 begin
local plvl = pc.get_level()
local mlvl
local chance = number(1,10)
local vnumlist_m = {41041,41043,41045,41049,41051,41053,41095,41097,41099,41101,41103,41105,41107,41109,41111,41113}
local vnumlist_w = {41042,41044,41046,41050,41052,41054,41096,41098,41100,41102,41104,41106,41108,41110,41112,41114}
local drop = number(1,16)
if npc.get_race() < 8015 then
mlvl = (npc.get_race()-8000)*5
else
mlvl = (npc.get_race()-8009)*5
end
if mlvl-plvl >= -10 then
if chance*10 == 100 then
if pc.get_sex() == 1 then
game.drop_item_with_ownership(vnumlist_w[drop],1)
else
game.drop_item_with_ownership(vnumlist_m[drop],1)
end
end
end
end
--Kostüm
--Sertifika
when 691.kill or 791.kill or 792.kill or 1192.kill or 1304.kill or
1901.kill or 2091.kill or 2191.kill or 2206.kill or 2306.kill or
2595.kill or 2596.kill or 3090.kill or 3091.kill or 3190.kill or
3191.kill or 3290.kill or 3291.kill or 3390.kill or 3391.kill or
3490.kill or 3491.kill or 3590.kill or 3591.kill or 3595.kill or
3596.kill or 3690.kill or 3691.kill or 3790.kill or 3791.kill or
3890.kill or 3891.kill or 3901.kill or 3902.kill or 3903.kill or
3904.kill or 3905.kill or 3906.kill or 8001.kill or 8002.kill or
8003.kill or 8004.kill or 8005.kill or 8006.kill or 8007.kill or
8008.kill or 8009.kill or 8010.kill or 8011.kill or 8012.kill or
8013.kill or 8014.kill or 8024.kill or 8025.kill or 8026.kill or
8027.kill or 8051.kill or 8052.kill or 8053.kill or 8054.kill or
8055.kill or 8056.kill with game.get_event_flag("sertifika") == 1 and not npc.is_pc() begin
local event_setting = akira_event_sys.AkiraEventList(3)
if npc.get_level() >= pc.get_level() - 10 then
if event_setting["sertifika"][1] >= number(1, 100) then
local random_ = number(event_setting["sertifika"][2],event_setting["sertifika"][3])
notice(""..item_name(random_).." buldum! ")
game.drop_item_with_ownership(random_, 1)
end
end
end
--Sertifika
--Kuzey Kutusu
when 691.kill or 791.kill or 792.kill or 1192.kill or 1304.kill or
1901.kill or 2091.kill or 2191.kill or 2206.kill or 2306.kill or
2595.kill or 2596.kill or 3090.kill or 3091.kill or 3190.kill or
3191.kill or 3290.kill or 3291.kill or 3390.kill or 3391.kill or
3490.kill or 3491.kill or 3590.kill or 3591.kill or 3595.kill or
3596.kill or 3690.kill or 3691.kill or 3790.kill or 3791.kill or
3890.kill or 3891.kill or 3901.kill or 3902.kill or 3903.kill or
3904.kill or 3905.kill or 3906.kill or 8001.kill or 8002.kill or
8003.kill or 8004.kill or 8005.kill or 8006.kill or 8007.kill or
8008.kill or 8009.kill or 8010.kill or 8011.kill or 8012.kill or
8013.kill or 8014.kill or 8024.kill or 8025.kill or 8026.kill or
8027.kill or 8051.kill or 8052.kill or 8053.kill or 8054.kill or
8055.kill or 8056.kill with game.get_event_flag("kuzeykutusu") == 1 and not npc.is_pc() begin
local event_setting = akira_event_sys.AkiraEventList(3)
if npc.get_level() >= pc.get_level() - 10 then
if event_setting["kuzeykutusu"][1] >= number(1, 350) then
local random_ = number(event_setting["kuzeykutusu"][2],event_setting["kuzeykutusu"][3])
notice(""..item_name(random_).." buldum! ")
game.drop_item_with_ownership(random_, 1)
end
end
end
--Kuzey Kutusu
-- Item Drop End
--Function
function AkiraEventList(type)
event_list = {
[0] = {"Ayً Etkinliًi ", "Futbol Topu Etkinliًi ", "Paskalya Etkinliًi ", "Kostüm Etkinliًi ", "Okey Etkinliًi ", "Sertifika Etkinliًi ", "Kuzey Kutusu Etkinliًi "},
[1] = {"ayisigi", "futboltopu", "paskalya", "kostum", "okey", "sertifika", "kuzeykutusu", "auto_event"},
[2] = { [0] = {"20:00:00", "22:00:00", "kuzeykutusu", "Kuzey Kutusu Etkinliًi ", "20:00", "22:00"},--Pazar
[1] = {"20:00:00", "22:00:00", "ayisigi", "Ayً Etkinliًi ", "20:00", "22:00"},
[2] = {"20:00:00", "22:00:00", "futboltopu", "Futbol Topu Etkinliًi ", "20:00", "22:00"},
[3] = {"20:00:00", "22:00:00", "paskalya", "Paskalya Etkinliًi ", "20:00", "22:00"},
[4] = {"20:00:00", "22:00:00", "kostum", "Kostüm Etkinliًi ", "20:00", "22:00"},
[5] = {"20:00:00", "22:00:00", "okey", "Okey Etkinliًi ", "20:00", "22:00"},
[6] = {"20:00:00", "22:00:00", "sertifika", "Sertifika Etkinliًi ", "20:00", "22:00"}, },
[3] = { ["ayisigi"] = {2, 50011, 50011},
["futboltopu"] = {2, 50096, 50096},
["paskalya"] = {5, 50160, 50179},
["okey"] = {3, 79505, 79505},
["sertifika"] = {1, 52701, 52705},
["kuzeykutusu"] = {1, 38057, 38057},}, }
return event_list[type]
end
function AkiraEventSys(type_, event_name, event_flag)
if type_ == 1 then
notice_all(event_name.."balad!")
notice_all("Gerekli bilgileri saً üstteki event penceresinden alabilirsiniz.")
game.set_event_flag(event_flag,1)
else
notice_all(event_name.."sona erdi!")
notice_all("Yِnetim ekibi iyi oyunlar diler.")
game.set_event_flag(event_flag,0)
end
end
--Function End
end
end
Geç gördüm kusura bakmayın
Team bilgilerini verin özelden
Team bilgilerini verecek kadar müsait degilim. Siz çözümü söyleseyin yeterli
SYSERR: Oct 28 02:25:04 :: RunState: LUA_ERROR: [string "akira_event_sys"]:5: attempt to call field `get_level' (a nil value)
SYSERR: Oct 28 02:25:04 :: WriteRunningStateToSyserr: LUA_ERROR: quest akira_event_sys.start letter
syser çözümü nedir