bind join İle Bir Sorum Vardı... - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

No_FeaR · 15 Kasım 2014, 18:24

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 ?

SeckiN · 15 Kasım 2014, 18:55

@[Ü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;

       }

}





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

rascoLn · 16 Kasım 2014, 01:23

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

No_FeaR · 16 Kasım 2014, 01:44

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

rascoLn · 16 Kasım 2014, 01:51

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.

No_FeaR · 16 Kasım 2014, 13:44

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

saywhat · 16 Kasım 2014, 14:01

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.

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

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