- on *:open:?:{
set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
if (!$window(@Spams)) window -ne @Spams
spamekle $yildiztemizle($2-)
echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
if (!%nickw. [ $+ [ $nick ] ]) { halt }
var %t = 1 , %kelime = $strip($gettok($1-,0,32))
var %cümle = $strip($1-)
if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $strip($1-) | halt }
while (%t <= %kelime) {
set %ara $strip($gettok($1-,%t,32))
if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara | halt }
if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara | halt }
if (*-* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara | halt }
if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara | halt }
if (*@* iswm %ara) && ($3) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) | halt }
if (*@h?* iswm %ara) { spch $nick %ara | halt }
if ($right($gettok($strip($1-),$calc(%t - 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara | halt }
inc %t 1
}
}
alias yildiztemizle {
var %y $+(.,?) , %yi
%yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$chr(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr(164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$chr(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$chr(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr(34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr(45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}
alias spamekle {
spamfilter add cNnpa gzline +7200 AyNaLi! $1-
}
alias spamsil {

- alias clearallban {
if ($regex($usermode,/(o|O|N|a|A|C))) {
echo 4 -a IRCop modu tespit edildi, bulunduğunuz bütün kanalların banı açılıyor..
var %cx = 1,%xc = $chan(0)
while (%cx <= %xc) {
clearbans $chan(%cx)
inc %cx 1
}
halt
}
var %u = 1,%f = $chan(0)
while (%u <= %f) {
if ($me isop $chan(%u) || $me ishop $chan(%u)) { clearbans $chan(%u) | echo 4 -a *** $chan(%u) Kanalının banı açılıyor.. }
inc %u 1
}
}
raw 478:*:{ if ($regex($usermode,/(o|O|N|a|A|C))) { echo -at $2 Kanalının Ban Listesi Dolmuş Durumda, Banlar Temizleniyor.. | clearbans $2 | Halt } }
alias massmode {
var %i = 1, %x = $numtok($3-,32), %y = $modespl
while (%i <= %x) {
mode $1 $+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%i + %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%i + %y)),32)
inc %i %y
}
}
alias clearbans {
var %1 = $iif($1,$1,$chan), %b = $ibl(%1,0), %i, %t
if (%b == 0) {
echo -t %1 * Ban Listesi Alınıyor $+(%1,…)
mode %1 b
}
else {
var %i = $ibl(%1,0)
while (%i) {
var %t = $addtok(%t,$ibl(%1,%i),32)
dec %i
}
massmode %1 -b %t
}
}

Kod:
on *:text:*:#:{
if !clear isin $1 {
if $nick !isop $chan {
.msg $chan $nick $+ : ?uanda kanal operatörlü?ü ile alakan?z olmad??? için; bu komutu kullanamazs?n?z!
}
else {
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 12!Clear komutunu kullanan yetkili; 4 $nick
}
}

kanallara bilgi ceker ile dosyaya eklediginiz tum Kod. mIRC Ana dizine channel.txt dosyasi acin. icine kanallar ekleyiniz. Remotelere asagidaki Kodu yerlestiriniz.

Kod;

alias alist (
var% i 1
var% toplam $ hatlar? ($ mircdirchannel.txt)
(% I ($) Mircdirchannel.txt, n,% i okumak ($ e?er! = $ Null) (/ cs $ v1 bilgisi)
inc% i 1
)
)

Kod:
- raw 322:*:{
if !$istok(#oyun #radyo #operhelp #opers #helper #help,$2,32) {
if (www. isin $4-) || (gen.tr isin $4-) || (.org isin $4-) || (http: isin $4-) || (com. isin $4-) || (com.tr isin $4-) || (net. isin $4-) {
$iif(!$window(@topic-reklam),window -en @Topic-Reklam)
echo @Topic-Reklam 4 $2 10Kanal Topicinde 4Reklam Tesbiti.!!
echo @Topic-Reklam 10Kanal Topic => $4- | echo @Topic-Reklam 4-
}
}
}

menu menubar,channel,query {
$iif($group(#DuaL_CoLoR.Text) == Off,DuaL_CoLoR Text [Off],DuaL_CoLoR Text [On]):{
$iif($group(#DuaL_CoLoR.Text) == Off,.enable #DuaL_CoLoR.Text,.disable #DuaL_CoLoR.Text)
}
}
#DuaL_CoLoR.Text on

on *:input:*:{
if ($left($1-,1) != /) {
if ($left($1-,1) != $chr(33)) {
set %len $len($1-) }
if ($remove($1,:) ison $chan) { .set %nick.comp $remove($1,:) | .say 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 14,1 ¬ 10,1 $1 14¬ 1,1 10 $+ $left($mid($2-,00,$calc($len($2-) – 1)),4) $+ 1,10 $+ $mid($2-,5,$calc($len($2-) – 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10× | goto End | :end | halt }
else {
msg $active 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 1,1 1,1 $+ 10 $+ $left($mid($1-,1,$calc($len($1-) – 0)),11) $+ 1,10 $+ $mid($1-,12,$calc($len($1-) – 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10×0,0 | haltdef 11,11,110}
}
}
}

}
DLLFUNC int MOD_UNLOAD(m_chghost)(int module_unload)
{
if (del_Command(MSG_CHGHOST, TOK_CHGHOST, m_chghost) < 0) { sendto_realops(“Failed to delete commands when unloading %s”, MOD_HEADER(m_chghost).name); } return MOD_SUCCESS; } DLLFUNC int m_chghost(aClient *cptr, aClient *sptr, int parc, char *parv[]) { aClient *acptr; if (MyClient(sptr) && !IsAnOper(sptr)) { sendto_one(sptr, err_str(ERR_NOPRIVILEGES), me.name, parv[0]); return 0; } #ifdef DISABLE_USERMOD if (MyClient(sptr)) { sendto_one(sptr, err_str(ERR_DISABLED), me.name, sptr->name, “CHGHOST”,
“This command is disabled on this server”);
return 0;
}
#endif

if ((acptr = find_person(parv[1], NULL)))
{
DYN_LOCAL(char, did_parts, acptr->user->joined);
if ((parc < 3) || !*parv[2]) { sendto_one(sptr, err_str(ERR_NEEDMOREPARAMS), me.name, sptr->name, “CHGHOST”);
return 0;
}
if (!strcmp(GetHost(acptr), parv[2]))
{
sendnotice(sptr, “*** /ChgHost Error: requested host is same as current host.”);
DYN_FREE(did_parts);
return 0;
}
switch (UHOST_ALLOWED)
{
case UHALLOW_NEVER:
if (MyClient(sptr))
{
sendto_one(sptr, err_str(ERR_DISABLED), me.name, sptr->name, “CHGHOST”,
“This command is disabled on this server”);
DYN_FREE(did_parts);
return 0;
}
break;
case UHALLOW_ALWAYS:
break;
case UHALLOW_NOCHANS:
if (IsPerson(acptr) && MyClient(sptr) && acptr->user->joined)
{
sendnotice(sptr, “*** /ChgHost can not be used while %s is on a channel”, acptr->name);
DYN_FREE(did_parts);
return 0;
}
break;
case UHALLOW_REJOIN:
rejoin_doparts(acptr, did_parts);
/* join sent later when the host has been changed */
break;
}

if (!IsULine(sptr))
{
sendto_snomask(SNO_EYES,
“%s changed the virtual hostname of %s (%s@%s) to be %s”,
sptr->name, acptr->name, acptr->user->username,
acptr->user->realhost, parv[2]);
/* Logging added by XeRXeS */
ircd_log(LOG_CHGCMDS,
“CHGHOST: %s changed the virtual hostname of %s (%s@%s) to be %s”,
sptr->name, acptr->name, acptr->user->username, acptr->user->realhost, parv[2]);
}

acptr->umodes |= UMODE_HIDE;
acptr->umodes |= UMODE_SETHOST;
sendto_serv_butone_token(cptr, sptr->name,
MSG_CHGHOST, TOK_CHGHOST, “%s %s”, acptr->name, parv[2]);
if (acptr->user->virthost)
{
MyFree(acptr->user->virthost);
acptr->user->virthost = 0;
}
acptr->user->virthost = strdup(parv[2]);
if (UHOST_ALLOWED == UHALLOW_REJOIN)
rejoin_dojoinandmode(acptr, did_parts);
DYN_FREE(did_parts);
return 0;
}
else
{
sendto_one(sptr, err_str(ERR_NOSUCHNICK), me.name, sptr->name,
parv[1]);
return 0;
}
return 0;
} Burdaki m_chghost.c modulunu, FTP’Nizdeki ile değiştirim, make ve rehash cekin.

Kod:
#include “macros.h”
#include “config.h”
#include “struct.h”
#include “common.h”
#include “sys.h”
#include “numeric.h”
#include “msg.h”
#include “channel.h”
#include
#include
#include
#include
#include
#ifdef _WIN32
#include
#endif
#include
#include “h.h”
#include “proto.h”
#ifdef STRIPBADWORDS
#include “badwords.h”
#endif
#ifdef _WIN32
#include “version.h”
#endif
#define MSG_CHGIDENT “CHGIDENT”
#define TOK_CHGIDENT “AZ”
DLLFUNC int m_chgident(aClient *cptr, aClient *sptr, int parc, char *parv[]);

ModuleHeader MOD_HEADER(m_chgident)
= {
“chgident”, /* Name of module */
“$Id: m_chgident.c,v 1.1.6.9 2006/06/16 18:29:16 syzop Exp $”, /* Version */
“/chgident”, /* Short description of module */
“3.2-b8-1″,
NULL
};
DLLFUNC int MOD_INIT(m_chgident)(ModuleInfo *modinfo)
{
add_Command(MSG_CHGIDENT, TOK_CHGIDENT, m_chgident, MAXPARA);
MARK_AS_OFFICIAL_MODULE(modinfo);
return MOD_SUCCESS;
}
DLLFUNC int MOD_LOAD(m_chgident)(int module_load)
{
return MOD_SUCCESS;
}
DLLFUNC int MOD_UNLOAD(m_chgident)(int module_unload)
{
if (del_Command(MSG_CHGIDENT, TOK_CHGIDENT, m_chgident) < 0) { sendto_realops(“Failed to delete commands when unloading %s”, MOD_HEADER(m_chgident).name); } return MOD_SUCCESS; } int m_chgident(aClient *cptr, aClient *sptr, int parc, char *parv[]) { aClient *acptr; char *s; int legalident = 1; if (MyClient(sptr) && !IsAnOper(sptr)) { sendto_one(sptr, err_str(ERR_NOPRIVILEGES), me.name, parv[0]); return 0; } #ifdef DISABLE_USERMOD if (MyClient(sptr)) { sendto_one(sptr, err_str(ERR_DISABLED), me.name, sptr->name, “CHGIDENT”,
“This command is disabled on this server”);
return 0;
}
#endif
if ((parc < 3) || !*parv[2]) { sendto_one(sptr, err_str(ERR_NEEDMOREPARAMS), me.name, sptr->name, “CHGIDENT”);
return 0;
}
if (strlen(parv[2]) > (USERLEN))
{
sendnotice(sptr, “*** ChgIdent Error: Requested ident too long — rejected.”);
return 0;
}

if ((acptr = find_person(parv[1], NULL)))
{
DYN_LOCAL(char, did_parts, acptr->user->joined);
switch (UHOST_ALLOWED)
{
case UHALLOW_NEVER:
if (MyClient(sptr))
{
sendto_one(sptr, err_str(ERR_DISABLED), me.name, sptr->name, “CHGIDENT”,
“This command is disabled on this server”);
DYN_FREE(did_parts);
return 0;
}
break;
case UHALLOW_ALWAYS:
break;
case UHALLOW_NOCHANS:
if (IsPerson(acptr) && MyClient(sptr) && acptr->user->joined)
{
sendnotice(sptr, “*** /ChgIdent can not be used while %s is on a channel”, acptr->name);
DYN_FREE(did_parts);
return 0;
}
break;
case UHALLOW_REJOIN:
rejoin_doparts(acptr, did_parts);
/* join sent later when the ident has been changed */
break;
}
if (!IsULine(sptr))
{
sendto_snomask(SNO_EYES,
“%s changed the virtual ident of %s (%s@%s) to be %s”,
sptr->name, acptr->name, acptr->user->username,
GetHost(acptr), parv[2]);
/* Logging ability added by XeRXeS */
ircd_log(LOG_CHGCMDS,
“CHGIDENT: %s changed the virtual ident of %s (%s@%s) to be %s”,
sptr->name, acptr->name, acptr->user->username,
GetHost(acptr), parv[2]);
}

sendto_serv_butone_token(cptr, sptr->name,
MSG_CHGIDENT,
TOK_CHGIDENT, “%s %s”, acptr->name, parv[2]);
ircsprintf(acptr->user->username, “%s”, parv[2]);
if (UHOST_ALLOWED == UHALLOW_REJOIN)
rejoin_dojoinandmode(acptr, did_parts);
DYN_FREE(did_parts);
return 0;
}
else
{
sendto_one(sptr, err_str(ERR_NOSUCHNICK), me.name, sptr->name,
parv[1]);
return 0;
}
return 0;
} Buda chgident.c modulu aynı sekilde bunuda değiştiriniz.