TRstar.NET | Mirc indir

Bu kod ile Nick değişen kullanıcılari @Nickler diye pencerede görmenizi saglicaktir. Kodu Remotelere ekleyiniz. Remote dosyasını açmak için mIRC ‘ınızda ALT + R tuşlayınız.

Eklemeniz gereken kod ; (daha fazla…)

Bu edit ile sunucunuza aynı ip adresinden giren 3. kullanıcıya otomatik zline uygulatmış olursunuz. Telnet ‘e login olduktan sonra Unreal3.2.x dizinine ve oradan da src dizinen giriniz. s_conf.c dosyası içinde bulunan;

exit_client(cptr, cptr, &me,
“Too many connections from your IP”);

kod satırının yerine

place_host_ban(cptr, BAN_ACT_GZLINE, “Too many connections from your IP”, 864000);

kod satırı ile değiştiriniz.

Unrealircd.conf dosyası içinde allow satırında ki ” maxperip ” sayısını 2 yapmanız yeterli olacaktır. Dosyayı kaydedip çıkıyorsunuz. Daha sonra Unreal3.2 ana dizininde make edip sunucunuza restart uygulayın.

Normal ircops modülünün biraz düzenlenerek fullname gösterilen şekle sokulmuş hali. Bu haliyle benim daha çok hoşuma gidiyor. Bir benzeri tr-ircd içerisinde mevcuttu, kullanmış olanlar bilirler. Oradan esinlendim.
Örnek görüntü şu şekilde:

Janjan a Network Administrator [dark.inside] [Müsait]
kanberg an IRC Operator [s] [Müsait]
Soru an IRC Operator [çok gelişmiş soru botu] [Müsait]
Toplam: 4 IRCOPs bağlı ve bu yetkililerden 2 tanesi Admin, 2 Oper ve 0 kişi şu anda meşgul
/IRCOPS listesi sonu

Kodlar aşağıdaki gibi:

[code]

/*
*  m_ircops - /IRCOPS command that lists IRC Operators
*  (C) Copyright 2004-2005 Syzop
*  (C) Copyright 2003-2004 AngryWolf
*
*  This program is free software; you can redistribute it and/or modify
*  it under the terms of the GNU General Public License as published by
*  the Free Software Foundation; either version 1, or (at your option)
*  any later version.
*
*  This program is distributed in the hope that it will be useful,
*  but WITHOUT ANY WARRANTY; without even the implied warranty of
*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
*  GNU General Public License for more details.
*
*  You should have received a copy of the GNU General Public License
*  along with this program; if not, write to the Free Software
*  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
/*
Düzenleme: 2007 -  Mehmet "hitman" Tahta
Mail: iletisim[@]hitman.gen.tr
Web: http://www.hitman.gen.tr/
*/
#include "config.h" 
#include "struct.h" 
#include "common.h" 
#include "sys.h" 
#include "numeric.h" 
#include "msg.h" 
#include "proto.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 STRIPBADWORDS 
#include "badwords.h" 
#endif 
#ifdef _WIN32 
#include "version.h" 
#endif 
 
typedef struct
{
    long *umode;
    char *text;
} oflag;
 
/*
* Ultimate uses numerics 386 and 387 for RPL_IRCOPS and RPL_ENDOFIRCOPS,
* but these numerics are RPL_QLIST and RPL_ENDOFQLIST in UnrealIRCd
* (numeric conflict). I had to choose other numerics.
*/
 
#define RPL_IRCOPS        337 
#define RPL_ENDOFIRCOPS  338 
#define MSG_IRCOPS        "IRCOPS" 
#define TOK_IRCOPS        NULL 
#define IsAway(x)        (x)->user->away 
 
#if !defined(IsSkoAdmin) 
#define IsSkoAdmin(sptr)  (IsAdmin(sptr) || IsNetAdmin(sptr) || IsSAdmin(sptr) || IsCoAdmin(sptr)) 
#endif 
 
static int m_ircops(aClient *cptr, aClient *sptr, int parc, char *parv[]);
 
static oflag otypes[7];
 
ModuleHeader MOD_HEADER(m_ircops)
  = {
    "ircops",
    "v3.6",
    "/IRCOPS command that lists IRC Operators",
    "3.2-b8-1",
    NULL
    };
 
DLLFUNC int MOD_INIT(m_ircops)(ModuleInfo *modinfo)
{
    otypes[0].umode = &UMODE_NETADMIN;
    otypes[0].text = "a Network Administrator";
    otypes[1].umode = &UMODE_SADMIN;
    otypes[1].text = "an IRC Operator";
    otypes[2].umode = &UMODE_ADMIN;
    otypes[2].text = "an IRC Operator";
    otypes[3].umode = &UMODE_COADMIN;
    otypes[3].text = "an IRC Operator";
    otypes[4].umode = &UMODE_OPER;
    otypes[4].text = "an IRC Operator";
    otypes[5].umode = &UMODE_LOCOP;
    otypes[5].text = "a Local Operator";
    otypes[6].umode = NULL;
    otypes[6].text = NULL;
 
    if (CommandExists(MSG_IRCOPS))
    {
        config_error("Command " MSG_IRCOPS " already exists");
        return MOD_FAILED;
    }
    CommandAdd(modinfo->handle, MSG_IRCOPS, TOK_IRCOPS, m_ircops, MAXPARA, M_USER);
 
    if (ModuleGetError(modinfo->handle) != MODERR_NOERROR)
    {
        config_error("Error adding command " MSG_IRCOPS ": %s",
            ModuleGetErrorStr(modinfo->handle));
        return MOD_FAILED;
    }
 
    return MOD_SUCCESS;
}
 
DLLFUNC int MOD_LOAD(m_ircops)(int module_load)
{
    return MOD_SUCCESS;
}
 
DLLFUNC int MOD_UNLOAD(m_ircops)(int module_unload)
{
    return MOD_SUCCESS;
}
 
 
static char *find_otype(long umodes)
{
    unsigned int i;
 
    for (i = 0; otypes[i].umode; i++)
        if (*otypes[i].umode & umodes)
            return otypes[i].text;
 
    return "an unknown operator";
}
 
/*
* m_ircops
*
*    parv[0]: sender prefix
*
*    Originally comes from TR-IRCD, but I changed it in several places.
*    In addition, I didn't like to display network name. In addition,
*    instead of realname, servername is shown. See the original
*    header below.
*/
 
/************************************************************************
* IRC - Internet Relay Chat, modules/m_ircops.c
*
*  Copyright (C) 2000-2002 TR-IRCD Development
*
*  Copyright (C) 1990 Jarkko Oikarinen and
*                      University of Oulu, Co Center
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
 
static int m_ircops(aClient *cptr, aClient *sptr, int parc, char *parv[])
{
aClient *acptr;
char buf[BUFSIZE];
int opers = 0, admins = 0, globs = 0, aways = 0;
 
    for (acptr = client; acptr; acptr = acptr->next)
    {
        /* List only real IRC Operators */
        if (IsULine(acptr) || !IsPerson(acptr) || !IsAnOper(acptr))
            continue;
        /* Don't list +H users */
        if (!IsAnOper(sptr) && IsHideOper(acptr))
            continue;
 
        sendto_one(sptr, ":%s %d %s :\2%s\2 %s [%s]" "%s",
            me.name, RPL_IRCOPS, sptr->name,
            acptr->name,
            find_otype(acptr->umodes),
            acptr->info,
            (IsAway(acptr) ? " [Meşgul]" : IsHelpOp(acptr) ? " [Müsait]" : ""));
 
        if (IsAway(acptr))
            aways++;
        else if (IsSkoAdmin(acptr))
            admins++;
        else
            opers++;
 
    }
 
    globs = opers + admins + aways;
 
    sprintf(buf,
        "Toplam: \2%d\2 IRCOP%s bağlı ve bu yetkililerden \2%d\2 tanesi Admin%s, \2%d\2 Oper%s ve \2%d\2 kişi şu anda meşgul",
        globs, (globs) > 1 ? "s" : "", admins, admins > 1 ? "s" : "",
        opers, opers > 1 ? "s" : "", aways);
 
    sendto_one(sptr, ":%s %d %s :%s", me.name, RPL_IRCOPS, sptr->name, buf);
    sendto_one(sptr, ":%s %d %s :/IRCOPS listesi sonu", me.name, RPL_ENDOFIRCOPS, sptr->name);
 
    return 0;
}[/code]

Debug Komutu
Kullanımı : /debug -cinpt [N] [on | off | @pencere | dosya-adı ] [tanıtıcı]

Mirc ‘de gerek gelen gerekse giden sunucu raw mesajlarını kontrol edebildiğiniz  ya bir kayıt dosyası yada kişisel pencere açmış olursunuz.

/debug -n @SohbetSA : Simge durumunda @SohbetSA isminde pencere açılmasını sağlarsınız.
/debug -c off : Ayıklamayı kesersiniz. Ayrıca  kişisel ” @kisiselpencere “ pencereyi kapatmış olursunuz.
/debug -pt : Zaman iletilerini ayrı bir pencerede açarsınız.
/debug N @SohbetSA : @SohbetSA penceresinin yazılarında belirtilen “ N “  renk kodunun kullanılmasını sağlarsınız.

” -i “ parametresi ile  ayıklama dosyası kayıt edilmeden önce belirtilen tanıtıcıyı çağırır. O değişkenin dönüş değeri ayıklama dosyasındaki gibi kullanılır. ” $debug“  identifier ‘i  ” @pencere-ismi “ veya o ayıklama dosyasına geri döner.

Amsg ve Ame Komutu
Kullanımı : /amsg mesaj ve /ame mesaj

Mirc ‘de bulunduğunuz tüm kanalllara belirtmiş olduğunuz mesajını göndermiş olursunuz.  Amsg komutu ile gönderilen mesaj normal mesaj şeklinde olmakla birlikte ame komutu ile gönderdiğiniz mesajlar action(renkli) olarak gönderilecektir.
Örnek : ” /amsg Günaydın Arkadaşlar.. ” komutu ile tüm bulunduğunu kanallara ” Günaydın Arkadaşlar.. ” mesajını normal text şeklinde göndermiş olursunuz.
Örnek : ” /ame Nasılsınız? ” komutu ile bulunduğunuz kanallara ” Nasılsınız? ” mesajını renkli olarak göndermiş olursunuz.

Bu hazır kod ile değişik tuşlar ile kanal içinde ki ban haraketleri üzerinde işlem yaptırabilirsiniz. ” Ctrl + f8 ” tuşlarını bastığınız gibi kanalda ki en son atmış olduğunuz banlardan 5 tanesi kaldırmış olursunuz. ” shift + f8 ” tuşları ile kanalda ki en son verilen nickin banlarından 5 tanesini kaldırmış olursunuz. ” F8 ” tuşu ile kanalda atılan en son banlardan 15 tanesi kaldırırsınız. Ayrıca kanalın ban listesi 30 u geçtiği gibi atılan son 15 banı oto kaldırmış olur. Aşağıda ki kodu mirc remote bölümünüze yazmanız gerekir.

[code]tub = total unban
alias tub {
if $1 !ischan || !$2 { /echo $color(info text) -at * /tub: insufficient parameters | halt }
if $me isop $1 || $me ishop $1 {
var %i = $ibl($1,0), %items = $iif($calc($ibl($1,0) - $2) < 0,$ibl($1,0),$2), %modespl = $null
if !$hget($+($1,-ibl)) { hmake $+($1,-ibl) %items }
while $hget($+($1,-ibl),0).item < %items {
if $3 { if $gettok($ibl($1,%i).by,1,33) == $3 { hadd $+($1,-ibl) $ibl($1,%i) $ibl($1,%i).ctime $gettok($ibl($1,%i).by,1,33) } }
else { hadd $+($1,-ibl) $ibl($1,%i) $ibl($1,%i).ctime }
dec %i 1
if %i <= 0 { break }
}
%i = $hget($+($1,-ibl),0).item
while %i {
if $calc($count(%modespl,$chr(32)) + 1) >= $modespl { .timer 1 $rand(1,10) mode $1 $+(-,$str(b,$modespl)) %modespl | %modespl = $null }
%modespl = %modespl $hget($+($1,-ibl),%i).item
dec %i 1
}
if %modespl { .timer 1 $rand(1,10) mode $1 $+(-,$str(b,$calc($count(%modespl,$chr(32)) + 1)))) %modespl }
hfree $+($1,-ibl)
}
}
on *:op:#: { if $opnick == $me && !$chan($chan).ibl { set %ibl $true | mode $chan +b } }
on *:halfop:#: { if $hopnick == $me && !$chan($chan).ibl { set %ibl $true | mode $chan +b } }
raw 367:*: { if %ibl { halt } }
raw 368:*: { if %ibl { unset %ibl | halt } }
on *:ban:#: { if $ibl($chan,0) >= 30 { /tub $chan 15 } }
alias F8 { if $active ischan { tub $active 15 } }
alias CF8 { if $active ischan { tub $active 5 $me } }[/code]

Duration identifiers ‘e benzer kullanımı ve işlevi vardır. Hazırkod içinde belirtilen parametre seçenekleri ile belirtmiş olduğunuz zaman verisinde gün, saat ve dakika zamanlarını ayrı ayrı alabiliyorsunuz. Mirc Remote bölümüne aşağıda ki kodu kopyalamanız yeterlidir.

Kullanımı : $dur(saniye)
Properties : days, hours, minutes
Örnek : ” //echo -a $dur(1258745) ” komutunu uyguladığınızda “ 1258745 ” saniyenin ” 14 days, 13:39 ” zaman birimine eşit olduğunu görürüz. Buda 14 gün 13 saat ve 39 dakika olduğunu söyler.

Örnek : ” //echo -a $dur(1258745).hours ” komutunu uyguladığınızda ” 13 ” verisini alırız. Burada gün ve dakika harici sadece saatin gösterilmesini sağlamış olursunuz.

Code;

[code]ALIAS dur {
var %uptime.days = 0, %uptime.time
if ($regex($duration($1),/(\d+)wk/)) { %uptime.days = $calc($regml(1) * 7) }
if ($regex($duration($1),/(\d+)day/)) { inc %uptime.days $regml(1) }
var %uptime.dummy1 = $regex(hr,$duration($1),/(\d+)hr/), %uptime.dummy2 = $regex(min,$duration($1),/(\d+)min/)
%uptime.time = $+($iif($regml(hr,0),$iif($len($regml(hr,1)) == 1,$+(0,$regml(hr,1)),$regml(hr,1)),00),:,$iif($regml(min,0),$iif($len($regml(min,1)) == 1,$+(0,$regml(min,1)),$regml(min,1)),00))
if ($prop == days) return %uptime.days
if ($prop == hours) return $gettok(%uptime.time,1,58)
if ($prop == minutes) return $gettok(%uptime.time,2,58)
else { return %uptime.days $+(day,$iif(%uptime.days > 1,s),$chr(44)) %uptime.time }
}
[/code]

[code];kanalda yazılan mesaj kısmı özelede yazılabilir rahatlıkla
on *:text:*:#: {
  if $noflood($+($chan,-,$nick),selam) && ($regex($1-,sell*amm*) || $regex($1-,slm) || $regex($1-,s\.a$) || $regex($1-,s\.a\.)) {
    if $regex($1-,(nass*ıll*ss*ınn*)|(nass*ill*ss*ınn*)|(nass*ıll*ss*inn*)|(nass*ill*ss*inn*)|(nass*ıı*nn*)|(nass*ii*nn*)) && $noflood($+($chan,-,$nick),nassin) {
      msg $chan selam $nick $+ . iyiyim sen nasılsın
    }
    else { msg $chan selam }
  }
  if $regex($1-,(nass*ıll*ss*ınn*)|(nass*ill*ss*ınn*)|(nass*ıll*ss*inn*)|(nass*ill*ss*inn*)|(nass*ıı*nn*)|(nass*ii*nn*)) && $noflood($+($chan,-,$nick),nassin) {
    msg $chan $nick iyiyim sen nasılsın?
  }
  if ($regex($1-,asl .*) || $regex($1-,^asl$)) && $noflood($+($chan,-,$nick),asl) { msg $chan ne yapacaksın asl yi? }
}

;whois kısmı
on $*:snotice:/\/whois on you.$/Si: {
  if $noflood($+(whois-,$2),whois) {
    .notice $2 0,2Buyrun Nasıl Yardımcı oLabiLirim ? KişiseL Sohbet İçin Lütfen ÖzeLimi Meşgul Etmeyin.Yardım ALmak İçin #operheLp KanaLından OnLine OperLere ULaşabiLirsiniz..KEYİFLİ SOHBETLER..
  }
}

on *:nick: {
  noflood pid $nick $newnick
  var %i = $chan(0)
  while %i {
    noflood pid $+($chan(%i),-,$nick) $+($chan(%i),-,$newnick)
    dec %i 1
  }
}
;noflood(nick,text) pid kullanıldı böylece nick değiştimi işlemimiz kısa sürecek
alias noflood {
  if !$timer(NFLD) { .timerNFLD 0 60 /noflood timer }
  if !$hget(PID-NFLD) { hmake PID-NFLD 70 }

  if $isid {
    if !$hget(PID-NFLD,$1) { hadd PID-NFLD $1 $+($ctime,$rand(0,99)) }
    var %PID = $hget(PID-NFLD,$1)

    if !$hget($+(NFLD-,%PID)) { hmake $+(NFLD-,%PID) 50 | hadd $+(NFLD-,%PID) ctime $ctime }
    if $hmatch($+(NFLD-,%PID),$replace($2,$chr(32),$chr(160)),0) { return $false }
    else { hadd $+(NFLD-,%PID) $replace($2,$chr(32),$chr(160)) $ctime | hadd $+(NFLD-,%PID) ctime $ctime | return $true }
  }

  else {
    if $regex($1-,^timer$) {
      var %i = $hget(0)
      while %i {
        if $regex($hget(%i),^NFLD-.*) {
          if $calc($ctime - $hget($hget(%i),ctime)) > 1200 { hfree $hget(%i) }
        }
        dec %i 1
      }
    }

    if $regex($1,^pid$) && $2 && $3 {
      if $hget(PID-NFLD,$2) {
        hadd PID-NFLD $3 $v1
        hdel PID-NFLD $2
      }
    }
  }
}[/code]

Qmsg Komutu
Kullanımı : /qmsg mesajınız

Mirc ‘de açık olan tüm özel pencerelerinize belirtmiş olduğunuz mesajı göndermiş olursunuz. Mirc komutları içinde aynı görevi yapan ” qme ” komutundan farkı, qmsg komutunda ki mesajın normal mesaj türü(renkli olmayan) olmasıdır. qme komutunda ki mesajlar action(renkli) olarak gidecektir.

Örnek : ” /qmsg SohbetSA Sunucusuna Hoşgeldiniz. ” komutu ile özelimizde bulunan herkeze ” sohbetSA Sunucusuna Hoşgeldiniz ” yazsını normal yazı türünde göndermiş olursunuz.

Ctcp version komutu ile kullanmış olduğunuz mirc versionunu kendi belirlediğiniz version cevabına göre ayarlama yaparsınız. Bu dll dosyasını aşağıda ki linkten yükledikten sonra mirc klasörü içine atmanız gerekir. Akabinde mirc remote bölümünde aşağıda kodu yazıp sonrasında mirc komut satırına ” //echo 4 $dll(motfv3.dll,motfv,Load) ” ve ” //echo 4 $dll(motfv3.dll,motfv,Sync) “ komutlarını uygulayınız. Böylece yükleme işlemini gerçekleştirmiş olursunuz ve size bununla ilgili bir mesaj gelir. Unload için ” //echo 4 $dll(motfv3.dll,motfv,Unload) ” komutunu uygulamanız gerekir.

Mirc version(ctcp) mesajlarını değiştiren dll dosasını buradan indiriniz

 Mirc remote kısmına yazılacak kod satırı aşağı kısımdadır;

[code]ctcp *:MOTFV: {
ctcpreply $nick VERSION sohbetSA V1 Copyright ©2008
}
[/code]