Eggdrop Bota şu işlemi nasıl yaptırırım - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

AkMaN · 31 Ocak 2011, 11:01

Coder arkadaşlardan rica etsem

alias absohaber { if !$dde(mirc, channels) { !.echo -a Hiç Bi Kanalda Yoksunuz ! }
else { set %channels $replace($dde(mirc, channels),$chr(32),$chr(44)) }
!.os raw :nickserv privmsg %channels Şifreniz kaßuL EdiLdi Efendim...
!.os raw :memoserv privmsg %channels Yeni Mesaj'ınız Yoktur..
!.os raw :chanserv privmsg %channels Hoş Geldiniz DjAkMaN PatRoNuM !
!.os raw :helpserv privmsg %channels IRC/Services Hakkinda Yardim aLabilmeniz için #operhelp Kanalina Giriniz.
!.os raw :operserv privmsg %channels Sunucu İrcd System ve Web Sorumlusu Şuanda DjAkMaN Online..

eggdrop bota böyle birşeyi nasıl yaptırırım yardımcı olursanız sevinirim

oSmanLi · 07 Şubat 2011, 09:03

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

on *:join:#: {
  if ($nick == $me) {
    MSG OperServ RAW :GlobaL Privmsg $chan Sunucu İrcd System ve Web Sorumlusu Şuanda DjAkMaN Online..
    else { halt | haltdef }
  }
}

bunu Scpritine ekle Girdiğin Tüm kanllarda Oper Serv Yazdığını Söyler eger Raw yetkin varsa tabiki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

AkMaN · 07 Şubat 2011, 11:26

sağol tşk ederim ama ben script için dememiştim eggdrop bot için demiştim

Raw · 07 Şubat 2011, 13:43

eğer Unrealircd kullanıyorsan ve oper girişi yapıldığında global mesaj şeklinde bilgilendirme yapmak istiyorsan aşağıdaki tcl işini görür diye düşünüyorum.

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


bind raw * notice oper_giris

proc oper_giris {from keyword text} {
 global botnick
    if {[string match -nocase "*is now a network admin*" $text]} {
        set nick [string range [lindex [split [lindex $text 1] ":"] 1] 0 end]
        set oper [string range [lindex [split [lindex $text 3] "]"] 0] 1 end]
            if {[string match -nocase $botnick $oper]} { return 0 }
                putquick "PRIVMSG $nick :\003$r\Kolay gelsin \002$nick\002. Oper girişiniz başarı ile gerçekleşmiştir.\003"
                putquick "PRIVMSG $nick :\003$r\İyi görevler dilerim.\003"
                putquick "PRIVMSG OperServ GLOBAL \00304\002$oper\002\00312 şu anda online konumda\00304 \002\[ NetAdmin(N) ]\002\003"
                return 0
    }
    if {[string match -nocase "*is now a server admin*" $text]} {
        set nick [string range [lindex [split [lindex $text 1] ":"] 1] 0 end]
        set oper [string range [lindex [split [lindex $text 3] "]"] 0] 1 end]
            if {[string match -nocase $botnick $oper]} { return 0 }
                putquick "PRIVMSG $nick :\003$r\Kolay gelsin \002$nick\002. Oper girişiniz başarı ile gerçekleşmiştir.\003"
                putquick "PRIVMSG $nick :\003$r\İyi görevler dilerim.\003"
                putquick "PRIVMSG OperServ GLOBAL \00304\002$oper\002\00312 şu anda online konumda\00304 \002\[ ServerAdmin(A) ]\002\003"
                return 0
    }
    if {[string match -nocase "*is now a services admin*" $text]} {
        set nick [string range [lindex [split [lindex $text 1] ":"] 1] 0 end]
        set oper [string range [lindex [split [lindex $text 3] "]"] 0] 1 end]
            if {[string match -nocase $botnick $oper]} { return 0 }
                putquick "PRIVMSG $nick :\003$r\Kolay gelsin \002$nick\002. Oper girişiniz başarı ile gerçekleşmiştir.\003"
                putquick "PRIVMSG $nick :\003$r\İyi görevler dilerim.\003"
                putquick "PRIVMSG OperServ GLOBAL \00304\002$oper\002\00312 şu anda online konumda\00304 \002\[ ServicesAdmin(a) ]\002\003"
                return 0
    }
    if {[string match -nocase "*is now a co admin*" $text]} {
        set nick [string range [lindex [split [lindex $text 1] ":"] 1] 0 end]
        set oper [string range [lindex [split [lindex $text 3] "]"] 0] 1 end]
            if {[string match -nocase $botnick $oper]} { return 0 }
                putquick "PRIVMSG $nick :\003$r\Kolay gelsin \002$nick\002. Oper girişiniz başarı ile gerçekleşmiştir.\003"
                putquick "PRIVMSG $nick :\003$r\İyi görevler dilerim.\003"
                putquick "PRIVMSG OperServ GLOBAL \00304\002$oper\002\00312 şu anda online konumda\00304 \002\[ CoAdmin(C) ]\002\003"
                return 0
    }
    if {[string match -nocase "*is now an oper*" $text]} {
        set nick [string range [lindex [split [lindex $text 1] ":"] 1] 0 end]
        set oper [string range [lindex [split [lindex $text 3] "]"] 0] 1 end]
            if {[string match -nocase $botnick $oper]} { return 0 }
                putquick "PRIVMSG $nick :\003$r\Kolay gelsin \002$nick\002. Oper girişiniz başarı ile gerçekleşmiştir.\003"
                putquick "PRIVMSG $nick :\003$r\İyi görevler dilerim.\003"
                putquick "PRIVMSG OperServ GLOBAL \00304\002$oper\002\00312 şu anda online konumda\00304 \002\[ IRCop(O) ]\002\003"
                return 0
    }
}

iyi forumlar.

AkMaN · 07 Şubat 2011, 17:09

maalesef tcl çalışmadı ben Unreal3.2 kullanıyorum

edit: arkadaşlar konu hala günceldir

Sohbetcafesi · 09 Nisan 2011, 20:58

Bu tcl. yi nereye ekleyeceğiz kardeş tcl. güzelde detaylı anlatırmısın?

Spoof · 10 Nisan 2011, 07:12

tcl'yi eggdrop/scripts 'in içine atacaksın.. sonra tcl'yi conf'a tanıtman lazım Onun içinde. botuna bağlı conf dosyasını açıp En aşağıya

source scripts/tclismi.tcl tclismine scripts'in içine attığın tcl'nin ismini gireceksin sonra telnetten PS x ile Eggdrop botu çıkarıp

cd eggdrop
./eggdrop -m botismi.conf bot'a bağlı confun ismini yazıp bota sunucuya sokacaksın.

Sohbetcafesi · 15 Nisan 2011, 18:57

Aynısını verdim kral.tcl koydum adınıda hiçbir hatada vermedi ama dediklerinin hiçbirisi olmuyor yani bi değişiklik yok hatada yok değişiklikte yok oper girilince öyle yazılar çıkmıyor..neden?

CLubber · 15 Nisan 2011, 20:13

Botun OperServ Global Yetkisi Varmı.?

Sohbetcafesi · 15 Nisan 2011, 21:48

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

Botun OperServ Global Yetkisi Varmı.?

var ScanXe ayarladım olmadı..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Eggdrop Bota /Whois Çekildiğin de Özele Bilgi Vermesi...	No_FeaR	Eggdrop, NeoStats, BNC	13	05 Haziran 2014 00:01
EGGDROP - Tcl scriptleri bota yükleme,tanıtma..	Heartbroken	IRCd Makaleler	12	06 Haziran 2012 13:42
txt deki yazıları eggdrop bota okutmak	MesqeN	TCL Scriptler	2	01 Şubat 2012 16:47
Eggdrop bota version finger cektirme	SGuard	Eggdrop, NeoStats, BNC	7	17 Eylül 2010 20:12
Eggdrop bota hello ile kendini tanıtan	SaCiT	Eggdrop, NeoStats, BNC	1	07 Ekim 2006 19:17

Konuyu Toplam 3 Üye okuyor. (0 Kayıtlı üye ve 3 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.