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

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

- - AciL Yarcım !!! (https://www.ircforumlari.net/eggdrop-neostats-bnc/308677-acil-yarcim.html)

AciL Yarcım !!!

Merhaba arkadaşlar benim elimde şöle bi kod var.

PHP- Kodu:

       set botnick adminnick
    bind join - * karsilama
    proc karsilama { nick uhost hand chan } {
      global botnick
      if {$nick==$botnick} { 
        putquick "PRIVMSG $chan : 4«« S12unucu 4S12ahibi 1- 4R12oot 4A12dministrator4  »» " 
        putquick "PRIVMSG $chan :12By4:12nick 12Şu anda 4$chan 12Kanalına Giriş Yaptı4."
        putquick "PRIVMSG $chan :12Oneri istek ve şikayetlerinizi 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
        putquick "PRIVMSG $chan :4Mail12&4Msn 12adresine iletebilirsiniz4."
        putquick "PRIVMSG $chan :12Hoş sohbetler dileriz4."
      }
    }

Ben kanala join değil de Sunucuya bağlandım da girdim kanallara iletilmesini istiyorum.Ve mümkünde ftp üzerinden bi yazıyla birlikte ses çalmasını istiyorum. ßile arkadaşlar yardımlarını bekliyorum.Tşk'ler.

Cevap: AciL Yarcım !!!

Alıntı:

By_Xcz Nickli Üyeden Alıntı (Mesaj 1040284179)

Merhaba arkadaşlar benim elimde şöle bi kod var.

PHP- Kodu:

       set botnick adminnick
    bind join - * karsilama
    proc karsilama { nick uhost hand chan } {
      global botnick
      if {$nick==$botnick} { 
        putquick "PRIVMSG $chan : 4«« S12unucu 4S12ahibi 1- 4R12oot 4A12dministrator4  »» " 
        putquick "PRIVMSG $chan :12By4:12nick 12Şu anda 4$chan 12Kanalına Giriş Yaptı4."
        putquick "PRIVMSG $chan :12Oneri istek ve şikayetlerinizi 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
        putquick "PRIVMSG $chan :4Mail12&4Msn 12adresine iletebilirsiniz4."
        putquick "PRIVMSG $chan :12Hoş sohbetler dileriz4."
      }
    }

Anladigim kadariyla;

Kod:

 

# Nickini yaz.

set sahip(nick) "Nickiniz"
 

# Karsilama mesajinda ki iletisim e-mail adresi.

set sahip(mail) "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
 

# Global mesaj.

set sahip(gmesaj) "Sunucu sahibi (Root administrator) $sahip(nick) su anda online."
 

###################

# Elleme CISS! :d #

###################

bind raw * notice dikkatsahip:baglandi

proc dikkatsahip:baglandi {from keyword text} {

global botnick sahip

    if {[string match -nocase "*client connecting*" $text]} {

    set nick [lindex $text 9]

    if {[string match -nocase $sahip(nick) $nick]} {

        putquick "os global $sahip(gmesaj)"

        return 0

        }

    }

}

bind join - * dikkatsahip:karsila

proc dikkatsahip:karsila {nick uhost hand chan} {

global botnick sahip

    if {$nick == $sahip(nick)} {

    putquick "PRIVMSG $chan :Sunucu sahibi (Root Administrator)"

    putquick "PRIVMSG $chan :$sahip(nick) su anda $chan kanalina giris yapti."

    putquick "PRIVMSG $chan :Dilek, oneri ve sikayetlerinizi: $sahip(mail)"

    putquick "PRIVMSG $chan :E-mail & MSN adresine iletebilirsiniz."

    putquick "PRIVMSG $chan :Keyifli sohbetler dileriz."

    }

}

Dipnot: Botun sunucuya giris ve cikis noticelerini gormesi gerekir, ayrica kanalda karsilamasi icin botunuzun kanallarda bulunmasi sarttir.

Cevap: AciL Yarcım !!!

"Namesis" Çok saolasin arkadaşım ßen o sorunu varolan kendi kodumla çözdüm de acaba bu bnm kendi vermiş oldum koda ses ekliyebilirmiyim mesela kanala girince o yazı çıkıyor ya aynı anda ses de çalsın istiyorum eğer bi bilgin varsa yardımcı olabilirmisin diğer arkadaşlardan bilen varsa sizlkerinde yardımını bekliyorum tşkler.

----------

"Namesis" arkadaşım snn vermiş oldun koduda denemek istiyorum ama pek anlıyamadım
şimdi ben Sunucuya girdim zaman Turkiye nickli botun bunları demesini istiyorum bnm de nickim Kadavra kodu o şekilde ayarlayız yollarsan çok çok sewinirim şimdiden tşk ederim .

Cevap: AciL Yarcım !!!

Alıntı:

By_Xcz Nickli Üyeden Alıntı (Mesaj 1040284225)

Ses olayi olmaz, ancak kendi sunucunun mIRC'ine eklersen olabilir. Mesela notify'e ekleyebilirsin nickini ve ses'de eklersin istedigini yapmis olursun.

Yazdigim code'de degistirmen gereken kisimlar;

# Nickini yaz.
set sahip(nick) "Nickiniz"

# Karsilama mesajinda ki iletisim e-mail adresi.
set sahip(mail) "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

# Global mesaj.
set sahip(gmesaj) "Sunucu sahibi (Root administrator) $sahip(nick) su anda online."

yesil renkli olan kisimlarda degisiklik yap digerlerini elleme.

Cevap: AciL Yarcım !!!

"Namesis" çok saolasin arkadaşım.senide yordum sabah sabah kusuruma bakma :)) bir şey daha sormak istiyorum şimdi ben root admin sunucu bnm değil böle root adminlere özel nicke özel ne biliyim şekil gibi değişik özel tcl ler veya başka kodlar varmı aklına ne gelirse

Cevap: AciL Yarcım !!!

Kod:

 

# Nickini yaz.

set sahip(nick1) "Nick1"

set sahip(nick2) "Nick2"

set sahip(nick3) "Nick3"

set sahip(nick4) "Nick4"

set sahip(nick5) "Nick5"
 

# Karsilama mesajinda ki iletisim e-mail adresi.

set sahip(mail) "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
 

# Global mesaj.

set sahip(gmesaj1) "Sunucu sahibi (Root administrator) $sahip(nick1) su anda online."

set sahip(gmesaj2) "Sunucu teknik admini olan $sahip(nick2) su anda online."

set sahip(gmesaj3) "Sunucu server admini olan $sahip(nick3) su anda online."

set sahip(gmesaj4) "Sunucu services admini olan $sahip(nick4) su anda online."

set sahip(gmesaj5) "Sunucu ircoperatoru olan $sahip(nick5) su anda online."
 

###################

# Elleme CISS! :d #

###################

bind raw * notice dikkatsahip:baglandi

proc dikkatsahip:baglandi {from keyword text} {

global botnick sahip

    if {[string match -nocase "*client connecting*" $text]} {

    set nick [lindex $text 9]

    if {[string match -nocase $sahip(nick1) $nick]} { putquick "os global $sahip(gmesaj1)"; return 0 }

    if {[string match -nocase $sahip(nick2) $nick]} { putquick "os global $sahip(gmesaj2)"; return 0 }

    if {[string match -nocase $sahip(nick3) $nick]} { putquick "os global $sahip(gmesaj3)"; return 0 }

    if {[string match -nocase $sahip(nick4) $nick]} { putquick "os global $sahip(gmesaj4)"; return 0 }

    if {[string match -nocase $sahip(nick5) $nick]} { putquick "os global $sahip(gmesaj5)"; return 0 }

    }

}

bind join - * dikkatsahip:karsila

proc dikkatsahip:karsila {nick uhost hand chan} {

global botnick sahip

    if {$nick == $sahip(nick1)} {

    putquick "PRIVMSG $chan :Sunucu sahibi (Root Administrator)"

    putquick "PRIVMSG $chan :$sahip(nick1) su anda $chan kanalina giris yapti."

    putquick "PRIVMSG $chan :Dilek, oneri ve sikayetlerinizi: $sahip(mail)"

    putquick "PRIVMSG $chan :E-mail & MSN adresine iletebilirsiniz."

    putquick "PRIVMSG $chan :Keyifli sohbetler dileriz."

    }

    if {$nick == $sahip(nick2)} {

    putquick "PRIVMSG $chan :Sunucu teknik admin (Technical Administrator)"

    putquick "PRIVMSG $chan :$sahip(nick2) su anda $chan kanalina giris yapti."

    putquick "PRIVMSG $chan :Dilek, oneri ve sikayetlerinizi: $sahip(mail)"

    putquick "PRIVMSG $chan :E-mail & MSN adresine iletebilirsiniz."

    putquick "PRIVMSG $chan :Keyifli sohbetler dileriz."

    }

    if {$nick == $sahip(nick3)} {

    putquick "PRIVMSG $chan :Sunucu server admin (Server Administrator)"

    putquick "PRIVMSG $chan :$sahip(nick3) su anda $chan kanalina giris yapti."

    putquick "PRIVMSG $chan :Dilek, oneri ve sikayetlerinizi: $sahip(mail)"

    putquick "PRIVMSG $chan :E-mail & MSN adresine iletebilirsiniz."

    putquick "PRIVMSG $chan :Keyifli sohbetler dileriz."

    }

    if {$nick == $sahip(nick4)} {

    putquick "PRIVMSG $chan :Sunucu services admin (Services Administrator)"

    putquick "PRIVMSG $chan :$sahip(nick4) su anda $chan kanalina giris yapti."

    putquick "PRIVMSG $chan :Dilek, oneri ve sikayetlerinizi: $sahip(mail)"

    putquick "PRIVMSG $chan :E-mail & MSN adresine iletebilirsiniz."

    putquick "PRIVMSG $chan :Keyifli sohbetler dileriz."

    }

    if {$nick == $sahip(nick5)} {

    putquick "PRIVMSG $chan :Sunucu ircoperator (IRCop)"

    putquick "PRIVMSG $chan :$sahip(nick5) su anda $chan kanalina giris yapti."

    putquick "PRIVMSG $chan :Dilek, oneri ve sikayetlerinizi: $sahip(mail)"

    putquick "PRIVMSG $chan :E-mail & MSN adresine iletebilirsiniz."

    putquick "PRIVMSG $chan :Keyifli sohbetler dileriz."

    }

}

gibi cogaltabilirsin, kullanimi sana kalmis. Istersen 50 tane nick icin yapabilirsin. :)

Cevap: AciL Yarcım !!!

bana özel olsun :))) boşwer öbürlerini tşkler yinede bilmiyordum onu not defterine atıyım.
peki

Alıntı:

ßunla ilgili bildiklerin varmı :)

Cevap: AciL Yarcım !!!

Alıntı:

By_Xcz Nickli Üyeden Alıntı (Mesaj 1040284234)

bana özel olsun :))) boşwer öbürlerini tşkler yinede bilmiyordum onu not defterine atıyım.
peki

ßunla ilgili bildiklerin varmı :)

Bu biraz geniş bir istek. Forum içerisinde gözünüze çarpan birşeyler muhakkak vardır. Biraz araştırırsanız güzel şeyler bulabilirsiniz.

Cevap: AciL Yarcım !!!

biliyorum geniş bi istek olduğunu -Siber55- arkadaşım ama arlına gelen bir şeyler bilen arkadaşlar varsa burda paylaşırlarsaçok sewinirim tşkler.