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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   Bakarmısınız? (https://www.ircforumlari.net/eggdrop-neostats-bnc/26666-bakarmisiniz.html)

Ľeke 27 Ekim 2006 06:35

Bakarmısınız?
 
Opme.tcl
bot
<RappeR> opver #PRenSeS
<MerLyn> RappeR #PRenSeS Kanalinda Oplandi..!

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

PHP- Kodu:

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

Yanıt: Bakarmısınız?
 
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- Kodu:

/* 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_pstruct Client *source_pint parcchar *parv[]);
static 
int chan_is_opless(struct Channel *chptr);
struct Message opme_msgtab = {
"OPME"0020MFLG_SLOW0,
{
m_unregisteredm_not_operm_ignoremo_opmem_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(ptrchptr->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_pstruct Client *source_p,
int parcchar *parv[])
{
struct Channel *chptr;
struct Membership *member;
/* admins only */
if (!IsAdmin(source_p))
{
sendto_one(source_pform_str(ERR_NOPRIVILEGES),
me.namesource_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_pform_str(ERR_NOSUCHCHANNEL),
me.namesource_p->nameparv[1]);
return;
}
if ((
member find_channel_link(source_pchptr)) == NULL)
{
sendto_one(source_pform_str(ERR_NOTONCHANNEL),
me.namesource_p->nameparv[1]);
return;
}
if (
chan_is_opless(chptr) == 0)
{
sendto_one(source_p":%s NOTICE %s :%s Channel is not opless",
me.namesource_p->nameparv[1]);
return;
}
AddMemberFlag(memberCHFL_CHANOP);
if (
parv[1][0] == '&')
{
sendto_wallops_flags(UMODE_LOCOPS, &me,
"OPME called for [%s] by %s!%s@%s",
parv[1], source_p->namesource_p->username,
source_p->host);
}
else
{
sendto_wallops_flags(UMODE_WALLOP, &me,
"OPME called for [%s] by %s!%s@%s",
parv[1], source_p->namesource_p->username,
source_p->host);
sendto_server(NULLNOCAPSNOCAPS,
":%s WALLOPS :OPME called for [%s] by %s!%s@%s",
me.nameparv[1], source_p->namesource_p->username,
source_p->host);
}
ilog(L_NOTICE"OPME called for [%s] by %s!%s@%s",
parv[1], source_p->namesource_p->username,
source_p->host);
sendto_server(NULLCAP_TS6NOCAPS,
":%s PART %s"ID(source_p), parv[1]);
sendto_server(NULLNOCAPSCAP_TS6,
":%s PART %s"source_p->nameparv[1]);
sendto_server(NULLCAP_TS6NOCAPS,
":%s SJOIN %ld %s + :@%s",
me.id, (unsigned long)chptr->channelts,
parv[1], ID(source_p));
sendto_server(NULLNOCAPSCAP_TS6,
":%s SJOIN %ld %s + :@%s",
me.name, (unsigned long)chptr->channelts,
parv[1], source_p->name);
sendto_channel_local(ALL_MEMBERSchptr":%s MODE %s +o %s",
me.nameparv[1], source_p->name);



CharacteR 27 Ekim 2006 11:22

Yanıt: Bakarmısınız?
 
CheLt; Unreal i&#231;in ama ?

Ľeke 27 Ekim 2006 11:54

Yanıt: Bakarmısınız?
 
<FONT style="BACKGROUND-COLOR: #dee7de">
PHP- Kodu:

 
################################################################################ 
# 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 &#223;iraz Urastık Bu tcl calisio ;)

Konuyu Kitleyebilirsiniz.

cikicim 27 Ekim 2006 18:31

Yanıt: Bakarmısınız?
 
Bu Tcl nin Cr İ&#231;in Olanı yokmu Arkadaşlar?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:49.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net