IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - !duyuruekle !duyurusil farklı (https://www.ircforumlari.net/eggdrop-neostats-bnc/692330-duyuruekle-duyurusil-farkli.html)

!duyuruekle !duyurusil farklı

Aşağıdaki kodda !dyrekle !dyrsil değilde farklı bir düzenleme yapabilirmiyiz mesela bota duyuru ekleme kanalı #opers bu kanalda bota bir duyuru ekledik diyelim #sohbet kanalınada bir user girdi ve bot bu userin özeline duyuruyu yazsın.Ama kişi kanaldan çıkıp tekrar girdiğinde aynı duyuruyu tekrar göndermesin kişiye yeni bir duyuru varsa bunu bildirsin.Bunun için sizlerden coder arkadaşlardan çok yardım bekliyorum lütfen bu konudaki yardımlarınızı esirgemeyiniz şimdiden teşekkür ederim.

PHP- Kodu:

   # kullanımı:

# .chanset #kanalınız +duyuru .. ile ayarladığınız kanal üstünde.en az Op'lar için:

# !dyrekle <duyuru-no/duyuru-ismi> duyurunuz...

# !dyrsil <duyuru-no/duyuru-ismi>

# !dyrliste

# özelde herhangi bir botun olduğu kanalda,herhangi bir kullanıcı tarafından kullanılabilecek duyuru komutu:

# <duyuru-no/duyuru-ismi>

# kodun aktif olduğu kanaldaki kanal opları ve üstünün eklemiş olduğu duyuru/ları 

# botun özelinde duyuru-ismi yada rakkam ile eklenmişse numarasıyla okuyabilmesini sağlıyor... 

# (herhangi bir komutu yada işareti yok.sadece eklediğinizde 

# duyurunuza koyduğunuz isim yada numara ile o eklenmiş duyuruyu postalıyor.)

setudef flag duyuru

bind pubm -|- "*" duyuru:pub

bind msgm -|- "*" duyuru:duyur

proc duyuru:pub {nick uhost hand chan text} {

if {![channel get $chan duyuru] || ![isop $nick $chan]} {

    return 0

}

set dyrkmt [lindex [split $text] 0]

set dyrno [lindex [split $text] 1]

set dyrmsg [join [lrange [split $text] 2 end]]

set dzn "duyuru.txt"

    switch -- $dyrkmt {

 

        "!dyrekle" {

            if {[llength $dyrmsg] == "0"} {

                putserv "notice $nick :kullanımı !dyrekle <duyuru-no/duyuru-ismi> duyurunuz."

                return 0

            }

            set abc [open "$dzn" a+]

            puts $abc "$dyrno $dyrmsg"

            close $abc

            putserv "notice $nick :eklendi \002$dyrno:\002 $dyrmsg"

            return 0

        }

  

        "!dyrsil" {

            if {![file exists "$dzn"]} {

                putserv "notice $nick :\002$dzn\002 boş."

                return 0

            }

            if {[llength "$dyrno"] == "0"} {

                putserv "notice $nick :kullanımı !dyrsil <duyuru-no/duyuru-ismi>."

                return 0

            }

            set abc [open "$dzn"]

            set lines [split [read -nonewline $abc] "\n"]

            close $abc

            if {[llength $lines] == "0"} {

                putserv "notice $nick :\002$dzn\002 boş."

                return 0

            }

            set lines2 ""

            set say 0

            set satirno 0

            foreach line $lines {

                if {[lindex $line 0] == $dyrno} {

                  set lines2 [lreplace $lines $satirno $satirno]

                  incr say

                }

                incr satirno

            }

            if {$say == 0} {

                putserv "notice $nick :böyle bir duyuru yok: \002$dyrno\002."

                return 0

            }

            set abc [open "$dzn" w]

            puts $abc [join $lines2 "\n"]

            close $abc

            if {$say == 1} {

                set s ""

            } else {

                set s "s"

            }

            putserv "notice $nick :\002$dyrno\002 $say adet$s, duyuru silindi."

        }

  

        "!dyrliste" {

       if {![file exists "$dzn"]} {

                putserv "notice $nick :\002$dzn\002 boş"

                return 0

            }

            set dyrno 0

            set abc [open "$dzn"]

            set lines [split [read -nonewline $abc] "\n"]

            close $abc

            if {[llength $lines] == "0"} {

                putserv "notice $nick :\002$dzn\002 boş"

                return 0

            }

            foreach line $lines {

                putserv "notice $nick :\002[lindex $line 0]\002 [lrange $line 1 end]"

            }

            putserv "notice $nick :Son"

        }

        return 0

    }

}

proc duyuru:duyur {nick uhost hand text} {

    set dzn "duyuru.txt"

    if {![file exists "$dzn"]} {

        return 0

    }

    set dyrno 0

    set abc [open "$dzn"]

    set lines [split [read -nonewline $abc] "\n"]

    close $abc

    if {[llength $lines] == "0"} {

        return 0

    }

    foreach line $lines {

        if {[lindex $line 0] == $text} {

            putserv "privmsg $nick :[lrange $line 1 end]"

        }

    }

    }

putlog "burası,   kodun dibidir...."

Cevap: !duyuruekle !duyurusil farklı

Burdan Devam Etsen Olurdu Aslında |> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: !duyuruekle !duyurusil farklı

Alıntı:

No_FeaR Nickli Üyeden Alıntı (Mesaj 1041648101)

Burdan Devam Etsen Olurdu Aslında |> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Haklısın düşünemedim onu :) bu konuda mutlaka yardımcı olacak bir arkadaş vardır eminim çünkü bu işi bu forumda çözemezsem başka hiç bir yerde çözebileceğimi sanmıyorum

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:39 -->-> Daha önceki mesaj 21:51 --

Yokmu arkadaşlar aranızda bu konuda yardımcı olabilecek bir arkadaş lütfen

Cevap: !duyuruekle !duyurusil farklı

Selamun ALeykum

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buyur kardeşim duyuru.tcl

TCL İndir : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Komutlar:
!duyuru - Duyuruları listeler
!duyuru ekle (duyurun) - Duyuru ekler
!duyuru sil (duyuru) - Tekil olarak duyuru siler
!duyuru tsil - Bütün duyuruları siler

Duyuru eklediğiniz zaman nickinizle birlikte duyurunuzu ekler.
sil komutunda tek tek duyuru siler.
tsil komutunda dosyadaki bütün duyuruları siler.

a kanalına girenin özelinde duyuruyu kim atmışsa nickiyle birlikte gözükür.
Tekrar girdiğinde aynı duyuruyu almaz.

rar' dan çıkardığınız duyuru klasörünü olduğu gibi scripts klasörüne atınız!!

NOT: kanal isimlerini yazmayı unutmayınız (TCL Edit..)

Özele gelen ekran görüntüsü:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: !duyuruekle !duyurusil farklı

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041648188)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şefim kanalda !duyuru ekle deneme yada !duyuru yazıyorum ama hiç bir tepki vermiyor.Hatta önce hiç editlemeden #akanal ve ##bkanal diye kanal açtım ordada denedim ama sonuç aynı

Cevap: !duyuruekle !duyurusil farklı

confunuza source ederken:

source/duyuru/duyuru.tcl

olarak eklediniz mi

bot her iki kanaldada mevcutmu

Cevap: !duyuruekle !duyurusil farklı

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041648198)

confunuza source ederken:

source/duyuru/duyuru.tcl

olarak eklediniz mi

bot her iki kanaldada mevcutmu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şefim şimdi hallettim sunucu üstünde klasöre yazma izni vermek gerekiyormuş Allah senden razı öyle güzel çalışıyorki tıkır tıkır hiç sorun yok.Allah kalbinden ne keçerse kabul etsin.Şefim senden küçük bir ricam olacak mesela kişi kanalda ve eski duyuruları aldı okudu ama kanaldayken tekrar bir duyuru daha yapıldı nu yeni duyuruyu alması için kişinin kanaldan çıkıp tekrar girmesi gerekiyor,bunun yerine kişi kanaldan çıkıp girmedende yeni duyuruyu alması mümkünmü.

Cevap: !duyuruekle !duyurusil farklı

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041648204)

Amin cümlemizin..

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şefim sana yük olmazsa senden küçük bir ricam olacak mesela kişi kanalda ve eski duyuruları aldı okudu ama kanaldayken tekrar bir duyuru daha yapıldı bu yeni duyuruyu alması için kişinin kanaldan çıkıp tekrar girmesi gerekiyor,bunun yerine kişi kanaldan çıkıp girmedende yeni duyuruyu alması mümkünmü.Birde tekil olarak duyuruyu silemiyoruz mesela 10 tane duyuru ekledim ama diyelimki 9. duyuruyu sileceğim ama silemiyorum sadece tüm duyuruları aynı anda silebiliyorum

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 05:34 -->-> Daha önceki mesaj 03:43 --

Alıntı:

tolgabati Nickli Üyeden Alıntı (Mesaj 1041648205)

Şefim duyuru silmeyide hallettim benim hatamdan kaynaklanıyor bir sorun yok yani tek eksiğim belirttiğim gibi kişi kanaldayken de yeni duyuru eklendiğinde aynı anda duyuruyu alması bunun dışında hiç bir sorun yok.

Cevap: !duyuruekle !duyurusil farklı

Alıntı:

tolgabati Nickli Üyeden Alıntı (Mesaj 1041648205)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şefim biraz fazla oldum demi ;s1

Cevap: !duyuruekle !duyurusil farklı

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] aynı linkten dosyayı temin edebilirsin..

Denedikten sonra sonucu tekrardan buraya aktarırsan sevinirim..

Cevap: !duyuruekle !duyurusil farklı

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041648274)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] aynı linkten dosyayı temin edebilirsin..

Denedikten sonra sonucu tekrardan buraya aktarırsan sevinirim..

rascoLn şefim verdiğin codlarda hiç bir sıkıntı yok gayet güzel çalışıyor benim demek istediğim şu şimdi bot atılan duyuruları aynen dediğiniz gibi kanala giren kişiye atıyor burda hiç bir sıkıntı yok ama diyelimki kişi kanaldayken bir duyuru daha eklendi işte bu yeni duyuruyu kişinin alabilmesi için kanaldan çıkıp tekrar girmesi gerekiyor ki bot kişinin özeline duyuruyu yazsın.Ben bunu şöyle düşünüyorum kişi kanalda olsada yeni duyuru eklendiğinde kişi kanaldayken de duyuruyu alabilsin mümkünmü acaba.Bilemiyorum tam olarak ifade edebildimmi

Cevap: !duyuruekle !duyurusil farklı

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şuan zaten o şekilde işliyor tcl bkanalindakilere gozukmez duyurular bilgin olsun baska nickle akanalina gir gozukur yeni eski ne varsa ok..

Unutmadan soyleyeyim duyuru silerkende ilk koseli parantez icinde olan nick kisminin koseli parantezlerini silip sadece nick ve duyuruyu yazip silin..

Cevap: !duyuruekle !duyurusil farklı

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041648374)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şefim benim demek istediğim yeni duyuru eklendiğinde kişi kanaldaysa o an kişinin özeline o an eklenen duyuru gitmiyor duyuruyu alması için kanaldan çıkıp tekrar girmesi geriyor.

Cevap: !duyuruekle !duyurusil farklı

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şefim dediğiniz doğru hata benden kaynaklıymış şuan tıkır tıkır çalışıyor :)

Cevap: !duyuruekle !duyurusil farklı

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ustam şöyle birşey var yanlız bu tcl de şöyleki kişi mesele b kanalında !duyuru ekle mesajı diyor ama kişiler hem #akanalı hem #bkanalı ndaysa duyuru gitmiyor.yönetim kanalında olmamaları gerekki duyuru kişilere gitsin bunu nasıl düzeltebiliriz.

Cevap: !duyuruekle !duyurusil farklı

merhaba @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam bu duyuru tclyi kanala gıren userlere mesaj atmakta kanalda acesli olan kişilere mesaj gitmesini nasıl saglarım userlere gitmesın mesaj sadece yetkılı kısılere gitmesini istiyorum mümkünmüdür bu

Cevap: !duyuruekle !duyurusil farklı

mümkün bind mode ' u kullan..

Cevap: !duyuruekle !duyurusil farklı

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041657066)

mümkün bind mode ' u kullan..

hocam denemeye calıstım bırseyler ama olmadı yardımcı olursan sevinirim

Cevap: !duyuruekle !duyurusil farklı

yardım edicek arkadas varsa bana ulasabılırmı rica etsem

Cevap: !duyuruekle !duyurusil farklı

PRIVMSG ChanServ :ACCESS #KANAL LIST cekersin nick'leri alirsin mesajmi gondercen memo mu ? gondercen artik kafana gore kullanirsin.
Yani access listesine baktirip bind notc ile islem yaptirman daha saglikli olur.

Cevap: !duyuruekle !duyurusil farklı

teşekkür ederim nese vazgectim :)

Cevap: !duyuruekle !duyurusil farklı

Alıntı:

aquabluee Nickli Üyeden Alıntı (Mesaj 1041659079)

teşekkür ederim nese vazgectim :)

Niye hemen pes ediyorsun ? :D
Musait oldugumda bi bakayim en azindan yolunu gosteririm sana geri kalani sen halledersin ;)