Balık Event Quest

quest deneme begin
    state start begin
        --when etkinlik_sure.timer begin
            --notice_all("Balikcilik etkinliği süresi bitti.") --- tüm haritalarda duyuru geçtik
            --game.set_event_flag("timer_test_deneme",0) -- etkinlik süresi dolduğu için etkinliği pasif hale getirdik.
        --end--when timer end
        when 9009.chat."Etkinlik Ayarlari" with pc.is_gm() begin  ---gm ayar--sadece gm olan hesaplar görebilir.
        local secimyap = select("Etkinlik Bilgi","Hicbiri")
        if secimyap == 1 then
            local balik_adasi_aktif1 = game.get_event_flag("balik_adasi_aktif")
                if balik_adasi_aktif1 == 1 then
                    say("Etkinlik durumu: |cff07eb96Açık!")
                    say("Aşağıdan işlem seçiniz")
                    local etkinlik_kapat = select("Etkinlik Kapat","Ayarlar","Bilgi Al","Zaman Ayarla","İptal")
                        if etkinlik_kapat == 1 then
                            game.set_event_flag("balik_adasi_aktif",0)
                            syschat("Etkinlik durumu: |cffff9999Kapalı!")
                        elseif etkinlik_kapat == 2 then
                            say("Hoşgeldin.")
            say("")
            say("Odul itemini değiştirmek istiyorsanız.")
            say("Bigileri eksiksiz doldurunuz.")
            say("")
            say("|cff07eb96Etkinlik Odulu İtem Vnum()")
            etkinlik_odul_item = tonumber(input()) or nil
                if etkinlik_odul_item == 0 then
                say("İtem Kod'u Yanlış!")
                   return
                end
            say(" Odul için istenilicek adet sayısı giriniz. ")
                say("|cff07eb96 Odul Adet Sayısı(Rakam)")
                etkinlik_odul_adet = tonumber(input()) or nil
                if etkinlik_odul_adet == 0 then
                    say("Adet Sayısı, Hatalı!")
                    return
                end-- etkinlik odul adet end
                say("Hoşgeldin.")
            say("")
            say("Balık ayarını değiştirmek istiyorsanız.")
            say("Bigileri eksiksiz doldurunuz.")
            say("")
            say("|cff07eb96Balık item kodu İtem Vnum()")
            etkinlik_balik_item = tonumber(input()) or nil
                if etkinlik_balik_item == 0 then
                say("İtem Kod'u Yanlış!")
                   return
                end
            say(" Balık için istenilicek adet sayısı giriniz. ")
                say("|cff07eb96 Balık Adet Sayısı(Rakam)")
                etkinlik_balik_adet = tonumber(input()) or nil
                if etkinlik_balik_adet == 0 then
                    say("Adet Sayısı, Hatalı!")
                    return
                end
                    syschat("Etkinlik Odul: |cff07eb96"..item_name(etkinlik_odul_item).." ")
                    syschat("Odul Adet Sayısı: |cff07eb96"..etkinlik_odul_adet.." ")                   
                    syschat("Secilen Balik: |cff07eb96"..item_name(etkinlik_balik_item).." ")
                    syschat("Balik Adet Sayısı: |cff07eb96"..etkinlik_balik_adet.." ")
                elseif etkinlik_kapat == 3 then
                    say("Etkinlik Odul: |cff07eb96"..item_name(etkinlik_odul_item).." ")
                    say("Odul Adet Sayısı: |cff07eb96"..etkinlik_odul_adet.." ")                   
                    say("Secilen Balik: |cff07eb96"..item_name(etkinlik_balik_item).." ")
                    say("Balik Adet Sayısı: |cff07eb96"..etkinlik_balik_adet.." ")
                elseif etkinlik_kapat == 4 then
                    if game.set_event_flag(timer_test_deneme) == 0 then
                        say("Zaman zatan ayarlanmış")
                    else
                    pc.setqf("ticaret_sure",get_time() + 1800)
                    game.set_event_flag("timer_test_deneme",1)
                    --timer("etkinlik_sure",3600)
                    --game.set_event_flag("timer_test_deneme",1)
                end --etkinlik_kapat
                end --etkinlik_kapat
                elseif balik_adasi_aktif1 == 0 then
                    say("Etkinlik durumu: |cffff9999Kapalı!")
                    say("Aşağıdan işlem seçiniz")
                    local etkinlik_ac = select("Etkinlik Ac","İptal")
                        if etkinlik_ac == 1 then
                            game.set_event_flag("balik_adasi_aktif",1)
                            syschat("Etkinlik durumu: |cff07eb96Açık!")
                        end --etkinlik_ac
                    end
                end
        end--secim yap
        when 9009.chat."Balikcilik Adasi" with game.get_event_flag("balik_adasi_aktif") == 1 begin --- oyuncular görücek ve etkinlik aktif mi kuralı ekledik
            say("Etlinlik haritası aktif edilmiştir. Etlinlik haritasında geçireceğiniz süre toplam 1 saat olacaktır.")
            say("Etlinlik haritasında vaktin kısıtlı aşağıdan bir işlem seçmelisin")
                local harita_git = select("Etkinliğe Katıl","Bilgi","İptal")
                    if harita_git == 1 then
                        pc.warp(474200,954400)--harita için kordinat girilicek
                    elseif harita_git == 2 then
                    say("Etkinlik Odul: |cff07eb96"..item_name(etkinlik_odul_item).." ")
                    say("Odul Adet Sayısı: |cff07eb96"..etkinlik_odul_adet.." ")                   
                    say("Secilen Balik: |cff07eb96"..item_name(etkinlik_balik_item).." ")
                    say("Balik Adet Sayısı: |cff07eb96"..etkinlik_balik_adet.." ")
                    end--harita_git
        end  ---map index
        when 9009.take with game.get_event_flag("balik_adasi_aktif") == 1 and item.vnum == etkinlik_balik_item begin -- etkinlik aktif mi kontrol ve item kontrol
            if pc.count_item(etkinlik_balik_item) < 5 then --- 5 yazan yere sayı eklenecek bu adet sorgulanacak balik sayısıdır
                syschat("item eksik") -- item sorgusu için text bilgisi
            else
                pc.remove_item(etkinlik_balik_item,5) -- 5 yazan yere yukarıda yazdığınız sayının aynısını yazıcaksın
                pc.give_item2(etkinlik_odul_item, etkinlik_odul_adet) --- ödül ve adet verdik dokunmayın
            end   
        end --when 9009.take end
    end
end