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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - eggdrop (https://www.ircforumlari.net/eggdrop-neostats-bnc/396556-eggdrop.html)

ModuLes

10 Haziran 2011 04:29

eggdrop

Arkadaşlar bana opver botu lazım conf ve tcl si elinde olan varsa paylaşırsa sevinirim şimdiden tşkler

CLubber

11 Haziran 2011 12:02

Cevap: eggdrop

Merhabalar.
#Operator Kanalında Bulunan Kullanıcı Kanal genelinde !opver #Kanal ismi Yazdığında
Kullanıcı Bot Tarafından O Kanala Alınır.
Kullanıcıya OperServ Tarafından (@) Operator verilir.

Kod:

bind pub - !opver opver

proc opver {nick uhost handle chan text} {

if {![string match -nocase "#Operator" $chan]} {return 0}

set kanal [lrange $text 0 end]

if {$kanal == ""} {putquick "PRIVMSG $chan :Kanala girmek ve Operator (@) Flagı almak için Lütfen Kanal ismini Belirtiniz. Komutun Kullanımı !opver #Kanal";return}

putquick "SAJOIN $nick $kanal"

putquick "OperServ MODE $kanal +o $nick"

putquick "PRIVMSG $chan :\[Operator Girişi\] $nick isimli Kullanıcı $kanal Kanalına alınmıştır. Tarafımca Kullanıcıya (@) Operator verilmiştir."

}

Eğer #Operator değilde farklı Bir kanalda kullanmak istiyorsanız,

Kod:

if {![string match -nocase "#Operator" $chan]} {return 0}

Belirtilen "#Operator" Kanalına istediğiniz kanalı Yazabilirsiniz.

Khepri

11 Haziran 2011 13:51

Cevap: eggdrop

arkadaşlar ben kanalda sunucumda olan koruma botuna operlerin !kb komutunu kullanmasını istiyorum op olmadan.bu kod elinde olan varsa paylaşırsa sevinirim.kolay gelsin

CLubber

12 Haziran 2011 00:53

Cevap: eggdrop

Kod:

bind pub - !kb kickban

proc kickban {nick uhost handle chan text} {

  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {

    set person [lindex $text 0]

    set sebep [lrange $text 1 end]

    putquick "MODE $chan +b $person"

    putquick "KICK $chan $person $sebep"

  }

}

bind pub - !k kick

proc kick {nick uhost handle chan text} {

  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {

    set person [lindex $text 0]

    set sebep [lrange $text 1 end]

    putquick "KICK $chan $person $sebep"

  }

}

bind pub - !voice voice

proc voice {nick uhost handle chan text} {

  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {

    set person [lindex $text 0]

    putquick "MODE $chan +v $person"

  }

}

bind pub - !devoice devoice

proc devoice {nick uhost handle chan text} {

  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {

    set person [lindex $text 0]

    putquick "MODE $chan -v $person"

  }  

}

putlog "Fantasy TCL v1.0 CLubber"

"!k, !kb, !voice, !devoice" #Opers kanalındaki herkes, op olmadan kullanabilir.

Khepri

12 Haziran 2011 05:39

Cevap: eggdrop

hocam bu komutu #staff kanalında kullananların #staff2 kanalındaki kullanıcıları atmasını istiyorum sadece bunu nasıl yapacağım? ve nereye ekleyeceğimide söylersen makbule geçer :)

CLubber

12 Haziran 2011 11:55

Cevap: eggdrop

Nasıl yani, anlayamadım.

Khepri

13 Haziran 2011 03:02

Cevap: eggdrop

Şöyle anlatıyım hocam en iyisi ben derdimi :) şimdi #ircforumları kanalındayız değilmi kanalda koruma botum var tcl. kanalda opa çıkması gerekiyor operlerimin !kb komutuyla kullanıcı atmak için ben operlerimin opa çıkmadan kanalda !kb nick kullanmalarını istiyorum sadece oper-admin olanların yalnız. anlatabildim sanırım demek istediğimi

CLubber

13 Haziran 2011 20:00

Cevap: eggdrop

Kod:

bind pub - !kb kickban

proc kickban {nick uhost handle chan text} {

  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {

    set person [lindex $text 0]

    set sebep [lrange $text 1 end]

    putquick "MODE $chan +b $person"

    putquick "KICK $chan $person $sebep"

  }

}

bind pub - !k kick

proc kick {nick uhost handle chan text} {

  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {

    set person [lindex $text 0]

    set sebep [lrange $text 1 end]

    putquick "KICK $chan $person $sebep"

  }

}

bind pub - !voice voice

proc voice {nick uhost handle chan text} {

  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {

    set person [lindex $text 0]

    putquick "MODE $chan +v $person"

  }

}

bind pub - !devoice devoice

proc devoice {nick uhost handle chan text} {

  if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#Opers"]} {

    set person [lindex $text 0]

    putquick "MODE $chan -v $person"

  }  

}

putlog "Fantasy TCL v1.0 CLubber"

#Opers gördüğün, yere adminlerin olduğu kanalı yaz, tamamdır.

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 19:24.