22 Aralık 2009, 23:54
#7 Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: eggdrop botuna version çektirme
BuCaLI Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kafan karışmış sanırım biraz. ilk kod versionu çektirmek için, ikincisi ise gelen cevaba göre işlem.. Yani Gelen cevapları ikinci kod ile alıp kanalına yansıtabilirsin şu şekilde; Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind join - * join_greet
proc join_greet {nick uhost handle channel} {
if {$nick == "Koruma"} {return 0}
if {$channel == "#Sohbet"} {
putquick "PRIVMSG $nick :\001VERSION\001"
putquick "PRIVMSG $nick :\001FINGER\001"
}
}
bind ctcr - "*VERSION*" version_cevabi
proc version_cevabi {nick uhost handle {dest ""} keyword text} {
putquick "PRIVMSG #Opers :4Version Cekilen Nick: 1(12 $nick 1)"
putquick "PRIVMSG #Opers :4Version Cevabi: 1(12 $text 1)"
}
bind ctcr - "*FINGER*" finger_cevabi
proc finger_cevabi {nick uhost handle {dest ""} keyword text} {
putquick "PRIVMSG #Opers :4Finger Cekilen Nick: 1(12 $nick 1)"
putquick "PRIVMSG #Opers :4Finger Cevabi: 1(12 $text 1)"
}
Yardımlarınız için çok teşekkürler. Verdiğiniz kodları birleştirdiğimizde şöyle bir kod oluştu.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind join - * join_greet
bind ctcr - "*VERSION*" version_cevabi
bind ctcr - "*FINGER*" finger_cevabi
proc join_greet {nick uhost handle channel} {
if {$nick == "Koruma"} {return 0}
if {$channel == "#Sohbet"} {
putquick "PRIVMSG $nick :\001VERSION\001"
putquick "PRIVMSG $nick :\001FINGER\001"
}
}
proc version_cevabi {nick uhost handle {dest ""} keyword text} {
if {$text == "mIRC"} {putquick "kill $nick Reklam icerikli VERSION."}
putquick "PRIVMSG #Opers :4Version Cekilen Nick: 1(12 $nick 1)"
putquick "PRIVMSG #Opers :4Version Cevabi: 1(12 $text 1)"
}
proc finger_cevabi {nick uhost handle {dest ""} keyword text} {
if {$text == "Script"} {putquick "kill $nick Reklam icerikli FINGER."}
putquick "PRIVMSG #Opers :4Finger Cekilen Nick: 1(12 $nick 1)"
putquick "PRIVMSG #Opers :4Finger Cevabi: 1(12 $text 1)"
}
Kod sorunsuz bir şekilde çalışıyor. Tekrardan çok teşekkürler.
Hayırlı geceler.