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

7Beğeni(ler)
  • 2 Post By SeckiN
  • 1 Post By rascoLn
  • 1 Post By No_FeaR
  • 3 Post By saywhat

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 15 Kasım 2014, 18:24   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
bind join İle Bir Sorum Vardı...




Selamın Aleyküm Arkadaşlar

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind join - * kanala_giris proc kanala_giris {nick uhost handle chan} { if {$chan == "#Karantina"} { putquick "PRIVMSG $nick :Şuanda Güvenlik Amacıyla #Karantina Kanalına Aldınız." } RETURN 1 }

Bunu Mesela #Karantina Kanalına Girince Özeline X Taramasına Alındınız Vs Vs.

#Karantinadan Part Yaptıgın da da aynı Şekilde Güvenli bulunduğunuz için karantinadan çıkarıldınız vs vs

Bunu özele ve bind join & bind part şeklinde yaptırabilir miyiz ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 15 Kasım 2014, 18:55   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bind join İle Bir Sorum Vardı...




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ben bunu modül olarak yapmıştım. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]'in yapmış olduğu operhelp modülünü kendime göre düzenlemiştim. İşine yarar belki. Düzenleme yapılacak yerleri koyu siyah olarak belirttim.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#include "config.h" #include "struct.h" #include "common.h" #include "sys.h" #include "numeric.h" #include "msg.h" #include "channel.h" #include <time.h> #include <sys/stat.h> #include <stdio.h> #include <stdlib.h> #include <string.h> #ifdef _WIN32 #include <io.h> #endif #include <fcntl.h> #include "h.h" #ifdef _WIN32 #include "version.h" #endif #define ibo "#Opers" #define iboh "#Karantina" #define tox "BirAsk.Net" int z=0; int i=0; DLLFUNC int m_operhelp(aClient *, aChannel *); DLLFUNC int m_helps(aClient *, aChannel *); static int m_cikis(aClient *, aClient *, aChannel *, char *); static int m_cikis2(aClient *, aClient *, aChannel *, char *); static Hook *IBO_Part=NULL; static Hook *IBO_Part2=NULL; ModuleHeader MOD_HEADER(m_operhelp) = { "m_helps", "HELPS (toXic", "HELP Kanallari Sistem Modulu (toXic", "3.2-b8-1", NULL }; DLLFUNC int MOD_INIT(m_operhelp)(ModuleInfo *modinfo) { HookAddEx(modinfo->handle, HOOKTYPE_PRE_LOCAL_JOIN, m_operhelp); HookAddEx(modinfo->handle, HOOKTYPE_PRE_LOCAL_JOIN, m_helps); IBO_Part = HookAddEx(modinfo->handle, HOOKTYPE_LOCAL_PART, m_cikis); IBO_Part2 = HookAddEx(modinfo->handle, HOOKTYPE_LOCAL_PART, m_cikis2); return MOD_SUCCESS; } DLLFUNC int MOD_LOAD(m_operhelp)(int module_load) { return MOD_SUCCESS; } DLLFUNC int MOD_UNLOAD(m_operhelp)(int module_unload) { return MOD_SUCCESS; } /********************************************* OPERHELP *********************************************/ DLLFUNC int m_operhelp(aClient *sptr, aChannel *chptr) { if (!stricmp(chptr->chname,"#OperHelp") && !IsAnOper(sptr)) { sendto_one(sptr, ":%s NOTICE %s :\2%s\2 OPERHELP Kanalina girdiniz. Operatorlere haber veriliyor..", tox, sptr->name, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :Merhaba \2%s\2 OPERHELP Kanalina hos geldiniz.", tox, sptr->name, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :Operatorlere haber veriliyor. Lutfen bekleyin.", tox, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :Operatorlere haber verildi.", tox, sptr->name); if ((chptr = find_channel(ibo, NullChn)) != NullChn) { sendto_channel_butone(&me, &me, chptr, ":Operhelp PRIVMSG %s \2%s\2 Kullanicisi \2OPERHELP\2 Kanalina girdi ve yardim bekliyor.", ibo, sptr->name); return 0; } } } static int m_cikis(aClient *cptr, aClient *sptr, aChannel *chptr, char *comment) { if (!stricmp(chptr->chname,"#OperHelp") && !IsAnOper(sptr)) { z++; sendto_one(sptr, ":%s PRIVMSG %s :\2-", tox, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :Operhelp Sunucu \2OPER Yardimi\2 kanalindan ayrildiniz.", tox, sptr->name); sendto_one(sptr, ":%s NOTICE %s :Operhelp Sunucu \2OPER Yardimi\2 kanalindan ayrildiniz.", tox, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :Baska bir sikayetinizde tekrar \2#Operhelp\2 Kanalina gelebilirsiniz.", tox, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :Hos sohbetler dileriz.", tox, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :\2Operhelp\2 kanalindan [\2%s\2] yardim alan \2%d\2 . Kullanicisiniz.", tox, sptr->name, me.name, z); return 0; } } /********************************************* HELP *********************************************/ DLLFUNC int m_helps(aClient *sptr, aChannel *chptr) { if (!stricmp(chptr->chname,"#Karantina") && !IsAnOper(sptr)) { sendto_one(sptr, ":%s NOTICE %s :Merhaba \2%s\2 Sohbet Sunucumuza Hoş Geldiniz.", tox, sptr->name, sptr->name); sendto_one(sptr, ":%s NOTICE %s :Güvenlik Kontrolünden Geçiyorsunuz Lütfen Bekleyiniz..", tox, sptr->name); sendto_one(sptr, ":%s NOTICE %s :Not:Network uzerinde kayitli bulunan tum nick ve kanallar, yonetime aittir.", tox, sptr->name); sendto_one(sptr, ":%s NOTICE %s :Sunucuya giren tum kullanicilar bunu kabul etmis olmaktadir.", tox, sptr->name); if ((chptr = find_channel(ibo, NullChn)) != NullChn) { return 0; } } } static int m_cikis2(aClient *cptr, aClient *sptr, aChannel *chptr, char *comment) { if (!stricmp(chptr->chname,"#Karantina") && !IsAnOper(sptr)) { i++; sendto_one(sptr, ":%s PRIVMSG %s :\2-", tox, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :Sunucu \2#Karantina\2 Taramasindan başariyla geçmiş bulunmaktasiniz", tox, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :BirAsk.Net Yönetimi Hoş Sohbetler Diler.", tox, sptr->name); return 0; } } /*********************************************************************************************/


 
Alıntı ile Cevapla

Alt 16 Kasım 2014, 01:23   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bind join İle Bir Sorum Vardı...




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind join - * kanala_giris bind part - * kanaldan_cikis # Güvenlik kanali # set kanal "#karantina" proc kanala_giris {nick host hand chan} { global kanal if {$chan == $kanal} { putquick "PRIVMSG $nick :Şuanda güvenlik amacıyla $kanal kanalına alındınız." } } proc kanaldan_cikis {nick host hand chan text} { global kanal if {$chan == $kanal} { putquick "PRIVMSG $nick :Güvenli bulunduğunuz için $kanal kanalından çıkarıldınız." } }


 
Alıntı ile Cevapla

Alt 16 Kasım 2014, 01:44   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bind join İle Bir Sorum Vardı...




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanala Giriş Tepki Vermiyor.

Part Yaptığın da İse Şöyle ;

Alıntı:
[01:31] <xXx.Com> -
[01:31] <xXx.Com> Sunucu #Karantina Taramasindan başariyla geçmiş bulunmaktasiniz
[01:31] <xXx.Com> xXx.Com Yönetimi Hoş Sohbetler Diler.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
DLLFUNC int m_helps(aClient *sptr, aChannel *chptr) { if (!stricmp(chptr->chname,"#Karantina") && !IsAnOper(sptr)) { sendto_one(sptr, ":%s PRIVMSG %s :Merhaba \2%s\2 Sohbet Sunucumuza Hoş Geldiniz.", tox, sptr->name, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :Güvenlik Kontrolünden Geçiyorsunuz Lütfen Bekleyiniz..", tox, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :Not:Network uzerinde kayitli bulunan tum nick ve kanallar, yonetime aittir.", tox, sptr->name); sendto_one(sptr, ":%s PRIVMSG %s :Sunucuya giren tum kullanicilar bunu kabul etmis olmaktadir.", tox, sptr->name); if ((chptr = find_channel(ibo, NullChn)) != NullChn) { return 0; } } }

Her Hangi Bir Hata da Almıyorum Modül Kurulum da Gâyet Herşey Normal, Sıkıntı Nerde olabilir ki : )


--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:42 -->-> Daha önceki mesaj 02:36 --

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ; Join Çalışmıyor. Fakat Part Çalışıyor Aynı Şekilde,

Örnek ;
Alıntı:
[01:38] <Koruma> Güvenli bulunduğunuz için #Karantina kanalından çıkarıldınız.



--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:44 -->-> Daha önceki mesaj 02:42 --

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Şimdi Fark Ettim ;
Kullanıcı Normal Olarak Sunucuya Join/Part İşlemini Gerçekleştirdikten Sonra Ek Olarak /Join #Karantina Yaptığı Taktir de Geliyor Verdiğin Modul deki İşlev Özele..

Örnek ;


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[01:40] <xXx.Com> Merhaba YedekNickiniz Sohbet Sunucumuza Hoş Geldiniz. [01:40] <xXx.Com> Güvenlik Kontrolünden Geçiyorsunuz Lütfen Bekleyiniz.. [01:40] <xXx.Com> Not:Network uzerinde kayitli bulunan tum nick ve kanallar, yonetime aittir. [01:40] <xXx.Com> Sunucuya giren tum kullanicilar bunu kabul etmis olmaktadir.


 
Alıntı ile Cevapla

Alt 16 Kasım 2014, 01:51   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bind join İle Bir Sorum Vardı...




gayet başarılı bir şekilde calışıyor [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Part :
<iddaa> Güvenli bulunduğunuz için #spor kanalından çıkarıldınız.

Join:
<iddaa> Şuanda güvenlik amacıyla #spor kanalına alındınız.

 
Alıntı ile Cevapla

Alt 16 Kasım 2014, 13:44   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bind join İle Bir Sorum Vardı...




Verdiğin Kod Sorunsuz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Özür Dilerim Galiba Bende Hata Vardı... : )

Alıntı:
[13:47] <Botum> Şuanda güvenlik amacıyla #Karantina kanalına alındınız.
[13:47] <Botum> Güvenli bulunduğunuz için #Karantina kanalından çıkarıldınız.

Aşağıdaki Kod Neden Çalışmadı peki : ) Onu Bakıversen..


Bu Hatayı Neden Alıyorum Çok Uğraştım Çözemedim ya.

Alıntı:
if {$nick == $botnick} { return 0 }
if {[string match -nocase "#Karantina" $cha..."
(file "scripts/cikart.tcl" line 173)
invoked from within
"source scripts/cikart.tcl"
(file "koruma.conf" line 57)
[13:42] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind join - * kanal:karsilama proc kanal:karsilama {nick uhost handle chan} { global botnick if {$nick == $botnick} { return 0 } if {[string match -nocase "#Karantina" $chan]} { putquick "PRIVMSG $chan :2Merhaba 4$nick 2Sohbet Sunucumuza Hoş Geldiniz." putquick "PRIVMSG $nick :2Güvenlik Kontrolünden Geçiyorsunuz Lütfen Bekleyiniz.." putquick "PRIVMSG $nick :4Not:2Network Üzerinde Kayitli Bulunan Tüm Nick ve Kanallar, Yönetime Aittir." putquick "PRIVMSG $nick :Sunucuya Giren Tüm Kullanicilar Bunu Kabul Etmiş Olmaktadir." }

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Bi Baksan : )

 
Alıntı ile Cevapla

Alt 16 Kasım 2014, 14:01   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bind join İle Bir Sorum Vardı...




kapalı ayraç eksik buraya postaladığınız kodda iki açık ayraç var bir proc satırında diğeri string match satırında ancak sonda tek bir kapalı ayraç var..

global botnick gerek yok. bunun yerine $botnick değişkenini $::botnick olarak kullanırsanız aynı anlama/değere gelir. global namespace identifier* olarak tanımlanır $:: / :: o satıra da gerek kalmaz...

== yahut != yerine "eq" yada "ne" kullanmayı tercih edin. yapılan denemelerde tcl programcıları/geliştiricileri == != ifadelerinde sorun oluşabildiğini fark ettiler (özellikle matematik işlemlerinde hatalı çıktı verdiriyorlardı,wiki.tcl.tk'da bununla ilgili yapılan testler ve çıktılarıyla ilgili bilgi bulunabilir.) ve geçen seneden itibaren "eq" (equivalence eşitlik/denklik/eşdeğer) ve olumsuzu "ne" kullanılması öneriliyor. (ki o dönemden beri ,bu durumdan haberdar olanların yazdığı kodlarda == yada != kullanıldığını göremezsiniz kolay kolay)

koddaki yazım hatalarının tespiti için şu -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] paste adresini kullanabilirsiniz. örnek -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hatayı,yerini size işaret eder. onarmanız gerekeni daha kolay belirleyebilirsiniz böylece... negalfar Tcl syntax kontrolü kullanıyor ve sahipleri aynı zamanda eggdrop geliştirici takımında olan thommey ve Cybex bu negalfar yazılımını eggdrop Tcl syntax/yazımına göre düzenlediler (çünkü Tcl,pure/safe Tcl ve Tcl.tk eggdrop Tcl'sinden farklıdır.). ki böylece eggdrop Tcl scriptlerindeki sorunlarıda görebiliyor.

 
Alıntı ile Cevapla

Cevapla

Etiketler
bind, bind join, bind part, bîr, çıkışa mesaj, join, kanala giriş, kanaldan çıkış, odaya girdi mesaj, sorum, vardı, yle, özele mesaj


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Önemli : Bind 9.x DNS Cache Poisoning Ocean Sunucu Güvenliği 0 22 Ekim 2008 00:47
Multi join | Mass Clone Join Kuruması.. CoCoRiCo mIRC Scripting Hazır Kodlar 4 12 Aralık 2005 08:29