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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - bind join İle Bir Sorum Vardı... (https://www.ircforumlari.net/tcl-scriptler/646644-bind-join-ile-bir-sorum-vardi.html)

bind join İle Bir Sorum Vardı...

Selamın Aleyküm Arkadaşlar

Kod:

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 ?

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:

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

       }
 

}
 
 
 
 
 

/*********************************************************************************************/

Cevap: bind join İle Bir Sorum Vardı...

Kod:

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

}

}

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:

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:

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

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.

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:

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 : )

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.