AciL Yarcım !!! - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

By_Xcz · 31 Aralık 2009, 02:09

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

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


    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.

¿ · 31 Aralık 2009, 07:25

By_Xcz Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


    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.

Anladigim kadariyla;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
# 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.

By_Xcz · 31 Aralık 2009, 07:40

"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 .

¿ · 31 Aralık 2009, 07:46

By_Xcz Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

"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 .

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.

By_Xcz · 31 Aralık 2009, 08:05

"Namesis" çok saolasin arkadaşım.senide yordum sabah sabah kusuruma bakma
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) 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

¿ · 31 Aralık 2009, 08:26

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
# 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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

By_Xcz · 31 Aralık 2009, 08:36

bana özel olsun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)) boşwer öbürlerini tşkler yinede bilmiyordum onu not defterine atıyım.
peki

Alıntı:

"Namesis" çok saolasin arkadaşım.senide yordum sabah sabah kusuruma bakma
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) 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

ßunla ilgili bildiklerin varmı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Siber55 · 31 Aralık 2009, 09:33

By_Xcz Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bana özel olsun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)) boşwer öbürlerini tşkler yinede bilmiyordum onu not defterine atıyım.
peki

ßunla ilgili bildiklerin varmı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

By_Xcz · 04 Ocak 2010, 23:15

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
AciL Yarcım mIRC kuLLanamıyorumm.	lestrol	mIRC Scripting Sorunları	6	28 Ocak 2010 15:32

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.