Bakarmısınız? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Ľeke · 27 Ekim 2006, 06:35

Opme.tcl
bot
<RappeR> opver #PRenSeS
<MerLyn> RappeR #PRenSeS Kanalinda Oplandi..!

Dio Ama Kanalda Op Vermiyor Saglam opme.tcl si olan paylasabilirmi acaba.

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


################################################################################ 
# opal.tcl 1.0 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set inick "set" 
# Buda gerekli olan sifre 
set ipass "set" 
 
 
 
bind pub - opver opver 
bind evnt - init-server baglan_yap 
bind pub - artiver artiver 
bind pub - opal opal 
bind pub - artial artial 
bind pub - isinla isinla 
bind pub - banac banac 
proc baglan_yap {type} { 
global inick ipass 
putserv "OPER $inick $ipass" 
putserv "WALLOPS :Basari ile Login Oldum " 
} 
proc opver {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal +o :$gnick" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Oplandi..!" 
} 
proc artiver {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal +v :$gnick" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Voicelendi..!" 
} 
proc opal {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal -o :$gnick" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Opu Geri Alindi..!" 
} 
proc artial {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal -v :$gnick" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Voicesi Alindi..!" 
} 
proc isinla {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "sajoin $n $kanal" 
putserv "PRIVMSG $c :$n $kanal kanalina isinlandi..!!" 
} 
proc banac {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal -b :$gnick" 
putserv "PRIVMSG $c :$n $kanal kanalindaki baniniz kaldirildi..!!" 
}

tcl bu

Chelt · 27 Ekim 2006, 10:04

Bu Adreste Çok Sayıda TCL buldum. Senin istediğin TCL Altta Diğer Arşivlere Göz atmak istersen Adres [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bunu bi Denermisin

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


/* contrib/m_opme.c
* Copyright (C) 2002 Hybrid Development Team
*
*/
#include "stdinc.h"
#include "tools.h"
#include "handlers.h"
#include "channel.h"
#include "channel_mode.h"
#include "client.h"
#include "ircd.h"
#include "numeric.h"
#include "s_log.h"
#include "s_serv.h"
#include "send.h"
#include "whowas.h"
#include "irc_string.h"
#include "hash.h"
#include "msg.h"
#include "parse.h"
#include "modules.h"
 
static void mo_opme(struct Client *client_p, struct Client *source_p, int parc, char *parv[]);
static int chan_is_opless(struct Channel *chptr);
struct Message opme_msgtab = {
"OPME", 0, 0, 2, 0, MFLG_SLOW, 0,
{m_unregistered, m_not_oper, m_ignore, mo_opme, m_ignore}
};
#ifndef STATIC_MODULES
void
_modinit(void)
{
mod_add_cmd(&opme_msgtab);
}
void
_moddeinit(void)
{
mod_del_cmd(&opme_msgtab);
}
const char *_version = "$Revision: 3.4 $";
#endif
static int
chan_is_opless(struct Channel *chptr)
{
dlink_node *ptr;
DLINK_FOREACH(ptr, chptr->members.head)
if (((struct Membership *)ptr->data)->flags & CHFL_CHANOP)
return(0);
return(1);
}
/*
** mo_opme
** parv[0] = sender prefix
** parv[1] = channel
*/
static void
mo_opme(struct Client *client_p, struct Client *source_p,
int parc, char *parv[])
{
struct Channel *chptr;
struct Membership *member;
/* admins only */
if (!IsAdmin(source_p))
{
sendto_one(source_p, form_str(ERR_NOPRIVILEGES),
me.name, source_p->name);
return;
}
/* XXX - we might not have CBURSTed this channel if we are a lazylink
* yet. */
if ((chptr = hash_find_channel(parv[1])) == NULL)
{
sendto_one(source_p, form_str(ERR_NOSUCHCHANNEL),
me.name, source_p->name, parv[1]);
return;
}
if ((member = find_channel_link(source_p, chptr)) == NULL)
{
sendto_one(source_p, form_str(ERR_NOTONCHANNEL),
me.name, source_p->name, parv[1]);
return;
}
if (chan_is_opless(chptr) == 0)
{
sendto_one(source_p, ":%s NOTICE %s :%s Channel is not opless",
me.name, source_p->name, parv[1]);
return;
}
AddMemberFlag(member, CHFL_CHANOP);
if (parv[1][0] == '&')
{
sendto_wallops_flags(UMODE_LOCOPS, &me,
"OPME called for [%s] by %s!%s@%s",
parv[1], source_p->name, source_p->username,
source_p->host);
}
else
{
sendto_wallops_flags(UMODE_WALLOP, &me,
"OPME called for [%s] by %s!%s@%s",
parv[1], source_p->name, source_p->username,
source_p->host);
sendto_server(NULL, NOCAPS, NOCAPS,
":%s WALLOPS :OPME called for [%s] by %s!%s@%s",
me.name, parv[1], source_p->name, source_p->username,
source_p->host);
}
ilog(L_NOTICE, "OPME called for [%s] by %s!%s@%s",
parv[1], source_p->name, source_p->username,
source_p->host);
sendto_server(NULL, CAP_TS6, NOCAPS,
":%s PART %s", ID(source_p), parv[1]);
sendto_server(NULL, NOCAPS, CAP_TS6,
":%s PART %s", source_p->name, parv[1]);
sendto_server(NULL, CAP_TS6, NOCAPS,
":%s SJOIN %ld %s + :@%s",
me.id, (unsigned long)chptr->channelts,
parv[1], ID(source_p));
sendto_server(NULL, NOCAPS, CAP_TS6,
":%s SJOIN %ld %s + :@%s",
me.name, (unsigned long)chptr->channelts,
parv[1], source_p->name);
sendto_channel_local(ALL_MEMBERS, chptr, ":%s MODE %s +o %s",
me.name, parv[1], source_p->name);
}

CharacteR · 27 Ekim 2006, 11:22

CheLt; Unreal için ama ?

Ľeke · 27 Ekim 2006, 11:54

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


 
################################################################################ 
# opal.tcl 1.0 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set inick "MerLyn" 
# Buda gerekli olan sifre 
set ipass "pass" 
 
 
 
bind pub - opver opver 
bind evnt - init-server baglan_yap 
bind pub - artiver artiver 
bind pub - opal opal 
bind pub - artial artial 
bind pub - isinla isinla 
bind pub - banac banac 
proc baglan_yap {type} { 
global inick ipass 
putserv "OPER $inick $ipass" 
putserv "WALLOPS :Basari ile Login Oldum " 
} 
proc opver {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "mode $kanal +o :$n" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Oplandi..!" 
} 
proc artiver {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal +v :$gnick" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Voicelendi..!" 
} 
proc opal {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal -o :$gnick" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Opu Geri Alindi..!" 
} 
proc artial {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal -v :$gnick" 
putserv "PRIVMSG $c :$n $kanal Kanalinda Voicesi Alindi..!" 
} 
proc isinla {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "sajoin $n $kanal" 
putserv "PRIVMSG $c :$n $kanal kanalina isinlandi..!!" 
} 
proc banac {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a 0] 
putserv "os mode $kanal -b :$gnick" 
putserv "PRIVMSG $c :$n $kanal kanalindaki baniniz kaldirildi..!!" 
}

CharacteR le ßiraz Urastık Bu tcl calisio
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Konuyu Kitleyebilirsiniz.

cikicim · 27 Ekim 2006, 18:31

Bu Tcl nin Cr İçin Olanı yokmu Arkadaşlar?

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Bakarmısınız ?	GokceL	Google Seo	1	20 Ocak 2009 09:59
bakarmısınız..!!	AdiL	Servisler	1	18 Aralık 2008 23:52
Bakarmısınız ?	eXo	Unreal IRCd	4	20 Kasım 2007 01:46
bnc bakarmısınız	narkoz_	Eggdrop, NeoStats, BNC	4	02 Kasım 2007 17:06
Bir Bakarmısınız ¿	Lyki0n	Unreal IRCd	1	26 Ekim 2007 21:10

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.