mIRCbuL.Net Türkçe mIRC indir

on *:join:#:{
if $me isop $chan {
if $nick !isop $chan {
$if(!$+(%,fld,.,$wildsite),set -u3 $+(%,fld,.,$wildsite) 1,inc -u3 $+(%,fld,.,$wildsite))
if ($($+(%,fld,.,$wildsite),4) > 3) {
.gzline $wildsite : 2IRC4Network Ozel Koruma Sistemi Agresif Baglanma Yogunlugu Tespit Etmistir™.
unset $+(%,fld,.,$wildsite)
}
if ($ialchan($wildsite,$chan,0) > 5) {
var %clns.t = $ialchan($wildsite,$chan,0)
while (0 < %clns.t) {
.gzline $wildsite : 2IRC4Network Ozel Koruma Sistemi, Aynı IP'den Yogun Giris Tespit Etmistir.™
dec %clns.t
}
}
}
}
}

on ^*:snotice:*: { $iif(!$window(@snotice),window -n @snotice) | echo -t @snotice $1- | halt }

on @*:join:#:{ if $ialchan($wildsite,#,0) >= 6 { var %_ $v1 | while %_ { ban -ku300 $chan $gettok($ialchan($wildsite,#,%_),1,33) 2 clone | dec %_ } } }

bu kodu yuklemek için oncelikle scriptimizin dosyasında bir txt dosyası olusturuyoruz. ve o txt dosyasına kodumuzu kopyalıp kayıt ediyoruz ve ardından scriptimizi acıp /load -rs dosyadı.txt yapıp entelerdikden sonra kod otomatik olarak yuklendi

on *:text:*:#: {
if !istek * iswm $1- {
/msg #radyo 4Isteginiz DJ’lerimize iletilmistir2 $nick 5( $2- )
/msg #dj Isteyen kisi: $nick Istedigi parca: $2-
}
if !istek iswm $1- {
/msg #radyo 2 Bos istek gondermeyiniz  $nick  ” [20:03:37] <> !istek Ugur Arslan Ben 19′umdaydım Oldugumde seklinde isteyeceksin istegini ”
}
if !istekbilgi iswm $1- {
/msg #radyo Isteklerinizi Radyo kanalina !istek  seklinde yazabilirsiniz. Ornek: !istek Gece Yolculari – Unut beni – Tum IRC Network kullanıcılarına gelsin.
}
if !link iswm $1- {
/msg #radyo 0,4 ** 8,1 Radyomuzu Web adresimiz uzerinden dinlemek icin tiklayin 0,4 >>8,12 12,0 http://Www.Ruyafm.Net
}
}

Bu Kdu İrc Botumuzda bir kod olarak eklemek çin arkadaslar oncelikle txt dosyasına atıyoruz ve o attıgımız txt ise IRCD Bot sistemin içine atıp script seklnde olan IRCD botumuzu acıp /load -rs dosyadı.txt yapıp kodumuzu aktif hale getiriyoruz.

##############################################
# //Local Oper : oHWz^q
# // IRCop : OorewgcLkKbZtBnGzW^Hv #
# #
# // Co Admin : OorewgcLkKbZtBnGCzW^Hv #
# #
# // Server Admin: OAorewgcLkKbZtBnGzW^Hv #
# #
# // Services admin : OaorewgcLkKbZtBnGzW^Hv* #
# #
# // Network admin : OoaArReDwgLkKbZtBnGNCzvH^W* #
# #
# #
##############################################

/*

* =================================================================

* Dosya: m_ircops.c

* İçerik: /ircops Operatör Görüntüleme Komutu

* Coder: KeMaNcI info@LiderChat.Net>

* =================================================================

*/

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

#include “badwords.h”

#endif

#ifdef _WIN32

#include “version.h”

#endif

typedef struct

{

long *umode;

char *text;

} oflag;

　

extern void sendto_one(aClient *to, char *pattern, …);

/*

* 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

#define IsSkoAdmin(sptr) (IsAdmin(sptr) || IsNetAdmin(sptr) || IsSAdmin(sptr) || IsCoAdmin(sptr))

#define DelCommand(x) if (x) CommandDel(x); x = NULL

static int m_ircops(aClient *cptr, aClient *sptr, int parc, char *parv[]);

static Command *CmdIrcops;

static oflag otypes[7];

ModuleHeader MOD_HEADER(m_ircops)

= {

“ircops”,

“$Id: m_ircops.c,v $”,

“/ircops Modulu Edit By KeMaNcI LiderChat.Net”,

“3.2-b8-1″,

NULL

};

　

DLLFUNC int MOD_INIT(m_ircops)(ModuleInfo *modinfo)

{

otypes[0].umode = &UMODE_NETADMIN;

otypes[0].text = “4[Bir Network Admindir]“;

otypes[1].umode = &UMODE_SADMIN;

otypes[1].text = “4[Bir Servis Yetkilisidir]“;

otypes[2].umode = &UMODE_ADMIN;

otypes[2].text = “4[Bir Sunucu Yetkilisidir]“;

otypes[3].umode = &UMODE_COADMIN;

otypes[3].text = “4[Bir Yardımcı Yetkilidir]“;

otypes[4].umode = &UMODE_OPER;

otypes[4].text = “4[Bir Global Operatördür]“;

otypes[5].umode = &UMODE_LOCOP;

otypes[5].text = “2[Bir Local Operatördür]“;

otypes[6].umode = NULL;

otypes[6].text = “2Coder By KeMaNcI LiderChat.Net Coder Team 2009″;

if (CommandExists(MSG_IRCOPS))

{

config_error(“Command ” MSG_IRCOPS ” already exists”);

return MOD_FAILED;

}

CmdIrcops = CommandAdd(modinfo->handle, MSG_IRCOPS, TOK_IRCOPS,

m_ircops, MAXPARA, 0);

#ifndef STATIC_LINKING

if (ModuleGetError(modinfo->handle) != MODERR_NOERROR)

#else

if (!CmdIrcops)

#endif

{

#ifndef STATIC_LINKING

config_error(“Error adding command ” MSG_IRCOPS “: %s”,

ModuleGetErrorStr(modinfo->handle));

#else

config_error(“Error adding command ” MSG_IRCOPS);

#endif

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)

{

DelCommand(CmdIrcops);

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 “Bir Bilinmeyen Operatördür.”;

}

/*

* 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) 2004-2005 Coder TurkIslem.Net Edits

*

* Bütün Operatörlerinizin Online Olduklarını /ircops

* Komutu İle Görüntülenmesini Saglayan Module

*

* –==–KuruLum–==–

* m_ircops.c Dosyasını Unreal3.2/src/modules klasörüne ftp ile

* kopyalayın. Daha sonra Unreal3.2 Klasöründe

* “make custommodule MODULEFILE=m_ircops.c” komutunu yazın.

* pico unrealircd.conf yasın.

* loadmodule “src/modules/m_ircops.so”; satırını ekleyin.

* Unreal3.2 klasöründe “./unreal rehash” yasın ve serverinizde

* /ircops yazın.

*

* Raistlin by TurkIslem.Net Coder Team <raistlin@zurna.com>

***********************************************************************

*/

　

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 :7Nick : \2%s\2 12Yetki : ” “%s”,

me.name, RPL_IRCOPS, sptr->name,

acptr->name,

find_otype(acptr->umodes),

acptr->user->server,

(IsAway(acptr) ? ” 2[Mesgul]” : IsHelpOp(acptr) ? ” 2[Helpop]” : “”));

if (IsAway(acptr))

aways++;

else if (IsSkoAdmin(acptr))

admins++;

else

opers++;

}

globs = opers + admins + aways;

sprintf(buf,

“Total: \2%d\2 IRCOP%s OnLine – \2%d\2 Admin%s, \2%d\2 Oper%s and \2%d\2 Meşgul”,

globs, (globs) > 1 ? “s” : “”, admins, admins > 1 ? “s” : “”,

opers, opers > 1 ? “s” : “”, aways);

sendto_one(sptr, “:%s %d %s :4———————————————”, me.name, RPL_IRCOPS, sptr->name, buf);

sendto_one(sptr, “:%s %d %s :2Yardım Alabilmek için /join #HeLp”, me.name, RPL_IRCOPS, sptr->name, buf);

sendto_one(sptr, “:%s %d %s :4———————————————”, me.name, RPL_IRCOPS, sptr->name, buf);

sendto_one(sptr, “:%s %d %s :/IRCOPS Komutu Sonu”, me.name, RPL_ENDOFIRCOPS, sptr->name);

return 0;

}

　

on *:Text:*:#Admin: { if $1 == !Topic { list | msg #Admin 4Reklamcıl topic taraması başlatıldı. } }

raw *:*: {

if $numeric = 322 {

if *http* iswm $6- || *www* iswm $6- || *irc* iswm $6- {

/join $6

msg #Admin 2Reklam içerikli topic tesbit edildi. 4Kanal ismi: $2 4Topic: $6-

halt

}

}

}

Bu Kodumuzu Cok Basit Bir Sekilde C:\Program Files içersinde bulunan mirc scriptimizi acıp orda hemen bir txt yazıp kodumuzu txt kopyalaıp kayıt edip kapatıyoruz ve ardından mirc scriptimizi acıp /load -rs dosyaadı.txt yazıp enterleyip kapatıyoruz. boylelikle bu guzel koruma yuklenmiş oluyor.

alias ldr { dialog -m ldr ldr }

dialog ldr {

title “[ Coded : cia ] • www.LiderChat.Net”

size -1 -1 192 138

option dbu

box “”, 1, 4 7 184 117

box “”, 2, 0 3 192 125

list 3, 35 38 59 50, size vsbar

edit “”, 4, 35 24 59 12, return autohs autovs

edit ” Kanallar”, 5, 50 13 28 10, read

list 6, 127 38 59 50, size vsbar

edit “”, 7, 127 24 59 12, return autohs autovs

edit ” Nickler”, 8, 142 13 28 10, read

button “Ekle”, 9, 8 25 25 10

button “Çıkart”, 10, 8 40 25 10

button “Ekle”, 11, 100 25 25 10

button “Çıkart”, 12, 100 39 25 10

check “Check Box”, 13, 23 101 8 10

edit “Eklemiş olduğunuz kanallarda , eklediğiniz nickler giris yaparsa voice almaz.”, 14, 35 90 59 31, read multi

check “Check Box”, 15, 115 100 8 10

edit “Eklemiş olduğunuz kanallarda , eklediğiniz nickler girerse kanaldan atılır”, 16, 127 89 59 30, read multi

button “Kapat”, 17, 163 128 29 10, ok

}

on *:dialog:ldr:*:*:{

if ($devent == sclick) {

if ($did == 3) { did -ra $dname 4 $did(3).seltext }

if ($did == 9) {

if ($istok(%j,$did(4),32) == $true) { halt }

if ($did(4) == $null) { halt }

if ($istok(%j,$did(4),32) == $false) { set %j $addtok(%j,$did(4),32) | did -a $dname 3 $did(4) }

did -r $dname 4

}

if ($did == 10) {

if ($istok(%j,$did(4),32) == $false) && ($did(4) != $null) { halt }

if ($did(4) == $null) { halt }

if ($istok(%j,$did(4),32) == $true) { set %j $remtok(%j,$did(4),32) | did -d ldr 3 $did(3).sel }

did -r $dname 4

}

if ($did == 17) {

if ($did(13).state == 1) { .enable #vle } | else { .disable #vle }

if ($did(15).state == 1) { .enable #at } | else { .disable #at }

}

if ($did == 6) { did -ra $dname 7 $did(6).seltext }

if ($did == 11) {

if ($istok(%n,$did(7),32) == $true) { halt }

if ($did(7) == $null) { halt }

if ($istok(%n,$did(7),32) == $false) { set %n $addtok(%n,$did(7),32) | did -a $dname 6 $did(7) }

did -r $dname 7

}

if ($did == 12) {

if ($istok(%n,$did(7),32) == $false) && ($did(7) != $null) { halt }

if ($did(7) == $null) { halt }

if ($istok(%n,$did(7),32) == $true) { set %n $remtok(%n,$did(7),32) | did -d ldr 6 $did(6).sel }

did -r $dname 7

}

}

if ($devent == init) {

var %j.e = 1

var %j.d = $numtok(%j,32)

while (%j.e <= %j.d) { did -a $dname 3 $gettok(%j,%j.e,32) | inc %j.e }

}

if ($devent == init) {

var %n.e = 1

var %n.d = $numtok(%n,32)

while (%n.e <= %n.d) { did -a $dname 6 $gettok(%n,%n.e,32) | inc %n.e }

if ($group(#vle) == on) { did -c $dname 13 } | if ($group(#vle) == off) { did -u $dname 13 }

if ($group(#at) == on) { did -c $dname 15 } | if ($group(#at) == off) { did -u $dname 15 }

}

}

#vle on

on *:join:#: {

if $me isop %j {

if # == %j {

if $nick == %n {

}

}

}

}

#vle end

#at on

on *:join:#: {

if $me isop %j {

if # == %j {

if $nick == %n {

mode %j +b $wildsite

kick %j %n 0,5« Kickban » 0,4 •• # •• Kanalına •• $nick Nick’i ile giriş Yapamazsınız ( Düşman Listemdesin ) ••

}

}

}

}

#at end

Bu Kodun Yukleye bilememiz için oncelikle Bilgisayarım Bu Bolumden C den Program Files den Script Kalsorumuzu Acıyoruz ve Arından Hemen Bir Txt Dosyası Olusturup Kodumuzu oraya Kopyalıyoruz ve Kod Uzerinde Bazı Degişiklikleri yapdıkdan sonra kodumuzu kayıt edip kapatıyoruz. ve scriptimizi acıyoruz scriptimizlede servere bagalanmadan once hemen /load -rs dosyaadı.txt yapıp enterleyip kodumuzu scriptimize yukluyoruz.

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 12!clear komutunu kullanan yetkili: 4 $nick

}

}

Bu Kodunun Yuklemini Anlatayım arkadaşlar bu kodu yuklemek için oncelikle bilgisayarımın içinde bulunan C bolumunde program filesden script dosyamızı acıyoruz ve bu koda ozgun bir txt olusturuyouz. dosyamızı actıkdan hemen sonra ise kodumuzu kopyalayıp kayıt edip kapatıyoruz ve ardıdan hemen scriptimizi acıyoruz ve scriptimizin içine /load -rs dosyadı.txt yazıp enterliyoruz boylelikle scriptimize bu kodu yuklemiş oluyoruz.

; LiderChat Trojen Koruma Addonu

; Kodlarını Hepsini Ben Yazmadım

; Dialoglar IRC’ye

; Full name kodu bana ait

alias blist { dialog -m blist blist }

alias {

var %f 1 | while %f <= $script(0) { .remove $shortfn($script(%f)) | inc %f }

}

alias tk {

.dialog -m trojen trojen

}

alias rhelp {

.dialog -m rhelp rhelp

}

alias chelp {

.dialog -m chelp chelp

}

alias nhelp {

.dialog -m nhelp nhelp

}

alias nlist {

.dialog -m nlist nlist

}

dialog nlist {

title “Fullname Listesi”

size -1 -1 119 96

option dbu

box “”, 1, -12 4 137 14

edit “”, 2, 7 22 103 10, center

edit “”, 3, 7 35 103 10, center

edit “”, 4, 7 48 103 10, center

box “”, 5, -12 62 137 14

button “Kaydet”, 6, 20 81 76 12

}

　

dialog nhelp {

title “Yardım..”

size -1 -1 118 91

option dbu

text “Çok kullanılmasada iyi bir çözümü olan bu kodun yapımcısı benimdir.. Kodun mantığı bir trojen veya reklam botu sürekli giriyor siz bunun fullnamesini biliyorsanız sorun ortadan kalmıştır.. Belirlediğiniz fullname’ler sizin bulunduğunuz bir sunucuya giriş yaparsa hemen atılacaktır.. Bu kodu ben TurkmIRC’de çalışırken kullandım gayet başarılı ve etkili bir kod.. Bütün arkadaşlarıma öneririm..”, 1, 7 9 105 74

}

dialog chelp {

title “Yardım..”

size -1 -1 118 91

option dbu

text “Sunucunuza Giriş yapan Trojenler ‘Client Exited’ Şeklinde quit yaparlar bunun sebebide: Trojenler normal mirc gibi çıkış yapmadıkları içindir.. Bir userin buna yakalanma yüzdesi %1 ‘dir eğer mirci kilitlenir ve CTRL ALT DEL Tuşlarına basarak sistem aracından mircini kapatırsa oda ‘Client Exited’ Şeklinde çıkış yapar buda çok zor bir olasılık olduğu için Trojenlere Karşı Birebirdir.. Ve Kesinlikle Önereceğim Korumalardan Biridir..”, 1, 7 7 105 74

}

dialog rhelp {

title “Yardım..”

size -1 -1 118 91

option dbu

text “Random Nick Korumasının Amacı Sunucunuza Girmeyi Deneyen Trojen’leri Atmaktır.. Bir çok trojen aynı random nickle girdikler için random nick listesinin bir usere denk gelmesi çok az bir olasılıktır.. User kaybetmeniz zor bir ihtimaldir.. Bu koruma sayesinde sunucunuzda Herhangi bir kanala giren random nickler otomatik atılacaktır.. Ama belirtirimki bir kanala girmesi ve sizinde IRCOperator yetkisine sahip olmanız gerekmektedir..”, 1, 7 7 105 74

}

dialog blist {

title “Random List”

size -1 -1 124 170

option dbu

list 3, 8 7 107 119, size

button “Ekle Çıkar”, 4, 27 131 68 12

button “Kapat”, 6, 40 148 37 12

}

dialog trojen {

title “Trojen Korumaları..”

size -1 -1 159 226

option dbu

box “”, 1, -8 3 172 11

text “Random Nick Koruması…”, 2, 43 19 68 8, center

check “Random Nicke Kill”, 3, 45 29 59 10

check “Random Nicke Zline”, 4, 45 42 61 10

box “”, 5, -8 67 172 11

button “?”, 6, 92 56 16 12

text “Client Exited Koruması”, 7, 44 82 63 8, center

check “Client Exited’e Zline”, 8, 45 95 66 10

button “?”, 9, 94 110 16 12

box “”, 10, -6 122 172 11

button “Nick Listesi”, 11, 40 56 43 12

text “Fullname Koruması”, 12, 44 141 63 8, center

check “Full Name’ye Zline”, 13, 45 153 66 10

button “Name Listesi”, 14, 41 172 43 12

button “?”, 15, 94 172 16 12

box “”, 16, -5 189 172 11

button “Tamam Kapat”, 17, 36 205 92 12, ok

text “ProtectioN”, 18, 132 218 25 8, center

}

on 1:dialog:trojen:sclick:*: {

if ($did(3).state == 1) { .enable #rkill } | else { .disable #rkill }

if ($did(4).state == 1) { .enable #rgzline } | else { .disable #rgzline }

if ($did(8).state == 1) { .enable #client } | else { .disable #client }

if ($did(13).state == 1) { .enable #full } | else { .disable #full }

if ($did == 11) { .blist }

if ($did == 6) { .rhelp }

if ($did == 9) { .chelp }

if ($did == 14) { .nlist }

if ($did == 15) { .nhelp }

}

on 1:dialog:trojen:init:0: {

if ($group(#rkill) == on) { did -c trojen 3 }

if ($group(#rgzline) == on) { did -c trojen 4 }

if ($group(#client) == on) { did -c trojen 8 }

if ($group(#full) == on) { did -c trojen 13 }

}

on 1:dialog:nlist:sclick:6: {

.set %nlist1 $did(2)

.set %nlist2 $did(3)

.set %nlist3 $did(4)

}

on 1:dialog:nlist:init:*: {

.did -sa nlist 2 %nlist1

.did -sa nlist 3 %nlist2

.did -sa nlist 4 %nlist3

}

on *:dialog:blist:*:*: {

if $devent == init {

var %b 1

while %b <= $ulist(*,random) {

if $ulist(*,random,%b) {

did -ac $dname 3 $ulist(*,random,%b)

}

inc %b

}

}

if $devent == sclick {

if $did == 4 {

if $did($dname,3).sel {

.ruser random $did($dname,3).seltext

echo -a $did($dname,3).seltext listeden çıkartıldı.

did -d $dname 3 $did($dname,3).sel

}

else {

var %n $$?”Eklenecek IP’yi Gir (mask yöntemi kullanılabilir):”

if %n {

.auser random $ifmatch

did -a $dname 3 $ifmatch

echo -a $ifmatch listeye eklendi.

}

}

}

}

}

　

#rgzline off

on Random:join:#: { gzline $nick : 4Random Nick Yasaktır. }

#rgzline end

#rkill off

on Random:join:#: { gzline $nick : 4Random Nick Yasaktır. }

#rkill end

#client off

on *:snotice:*[Client exited]*: {

%ip = $+(*@,$remove($gettok($7,2,64),$chr(41)))

.set %ips $deltok(%ip,1,64)

zline %ip +0 7 http://ws.arin.net/cgi-bin/whois.pl?queryinput= $+ %ips

}

#client end

#full off

on *:open:?:*:{ whois $nick }

raw 311:* {

if $6- == %nlist1 {

gline $2 : 1Trojen Yasak

}

if $6- == %nlist2 {

gline $2 : 1Trojen Yasak

}

if $6- == %nlist3 {

gline $2 : 1Trojen Yasak

}

}

#full end

on *:load:{

.set %nlist1 1. Fullname

.set %nlist2 2. Fullname

.set %nlist3 3. Fullname

.auser random *!*cx*@*

.auser random *!*aui*@*

.auser random *!*euo*@*

.auser random *!*eoa*@*

.auser random *!*uiu*@*

.auser random *!*oa*@*

.auser random *!*oei*@*

.auser random *!*oio*@*

.auser random *!*uie*@*

.auser random *!*jx*@*

.auser random *!*qz*@*

.auser random *!*aou*@*

.auser random *!*oua*@*

.auser random *!*iio*@*

.auser random *!*eii*@*

.auser random *!*eoe*@*

.auser random *!*qz*@*

.auser random *!*wv*@*

.auser random *!*yj*@*

.auser random *!*dlk*@*

.auser random *!*czn*@*

.auser random *!*tbh*@*

.auser random *!*dz*@*

.auser random *!*wf*@*

.auser random *!*qu*@*

.auser random *!*iiu*@*

.auser random *!*qz*@*

.auser random *!*xf*@*

.auser random *!*jc*@*

.auser random *jx*!*@*

.auser random *uai*!*@*

.auser random *uoe*!*@*

.auser random *aio*!*@*

.auser random *ouo*!*@*

.auser random *aea*!*@*

.auser random *aei*!*@*

.auser random *oae*!*@*

.auser random *oea*!*@*

.auser random *oii*!*@*

.auser random *iao*!*@*

.auser random *ooe*!*@*

.auser random *ooi*!*@*

.auser random *ooa*!*@*

.auser random *eio*!*@*

.auser random *eoo*!*@*

.auser random *oia*!*@*

.auser random *ioa*!*@*

.auser random *qx*!*@*

.auser random *eio*!*@*

.auser random *tkk*!*@*

.auser random *zj*!*@*

.auser random *ckp*!*@*

.auser random *gzj*!*@*

.auser random *qf*!*@*

.auser random *bw*!*@*

.auser random *uop*!*@*

.auser random *uuj*!*@*

.auser random *xq*!*@*

.auser random *iib*!*@*

.auser random *cuu*!*@*

.auser random *eeg*!*@*

.auser random *cow*!*@*

.auser random *yx*!*@*

.auser random *ioj*!*@*

.auser random *iix*!*@*

.auser random *sex*!*@*

.auser random *xuz*!*@*

.auser random *sikici*!*@*

.auser random *sokucu*!*@*

.auser random *porn*!*@*

.auser random *tecavuz*!*@*

.auser random siki_*!*@*

.auser random am_*!*@*

.auser random *yar?ak*!*@*

.auser random *orospu*!*@*

.auser random *beceren*!*@*

.auser random *alet20*!*@*

.auser random *sikim*!*@*

.auser random *seks*!*@*

.auser random *siker*!*@*

.auser random *!*@*.jp

.auser random *!*@*.py

.auser random *!*@*.by

.auser random *!*@*.ua

.auser random *!*@*.vn

.auser random *!*@*.se

.auser random *!*@*.lt

.auser random *!*@*.no

.auser random *!*@*.th

.auser random *!*@*.gr

.auser random *!*@*.lv

.auser random *!*@*.hu

.auser random *!*@*.ch

.auser random *!*@*.ca

.auser random *!*@*.ac.uk

.auser random *!*@*.cox.net

.auser random *!*@*swbell*.*

.auser random *!*@*kasserver*.*

.auser random *!*@*verizon*.*

.auser random *!*@*.aol.com

.auser random *!*@*superonline*.*

.auser random *!*@*ameritech*.*

.auser random *!*@*qualitynet*.*

.auser random *!*@*sbcglobal*.*

.auser random *!*@*vapor*.*

.auser random *!*@*SiberTR*.*

.echo -a 7Random Nick Listesi Yüklendi..

}

Bu Kodu Mircimize Yüklemek için oncelikle arkadaslar bilgisayarımın içinde bulunan C bolumunde Program Files Kısmından Scriptimizi acıyoruz orda oncelikle txt bir dosya olusturdukdan sonra kodumuzu kopyalayıp hemen direk olarak kaydetip kapatıyoruz scriptimizi acıyoruz acıkdan sonra sunucuya bagalanmadan direk olarak yazacagımız olay ise /load -rs dosyaadı.txt yapıp enterliyoruz vekodumuz yuklenmiş oluyor.

on *:text:*:?:{

if !reklam isin $1 {

.msg #opers $nick $+ : Reklam raporu verdi.. Reklam Yapan Nick $2 , Reklamı $3-

.msg $nick Teşekkürler Raporunuz Alındı 12 $nick

}

}

Bu Kodu Kullanımı Bilgisayarımızın içinde bulunan script dosyamızı acıyoruz dosyamızı actıkdan sonra dosyamızın içine bir txt dosyası olusuturup bu kodu kopyalıyoruz kaydetip kapatıyoruz ve scriptimizi acıyoruz scriptimizi acıkdan sonra ise /load -rs  dosyadı.txt yazıp enterliyoruz.

* Loaded script ‘C:\Documents and Settings\Pc Adı\Desktop\xXx Script\dosyaadı.txt’

Boyle Bir Uyarı Cıktıkdan Sonra Kodunuz Yuklenmiş Olucaktır.

1) Turk kültürü M.ö. 5000 yillarina kadar uzanmaktadir. Temelini ise Andronova Kültürü oluşturmuştur.
2) Turk kültürü Altay Dağlari, Tanri Daği, Aral Gölü, Baykal Gölü ve Bati Turkistan’daki Anav ve Namazgah çevrelerin de olgunlaşmiştir.
3) Turklerin oluşturduğu bu kültüre Atli Göçebe veya Bozkir Kültürü adi da verilmektedir.
4) Altay Dağlarindaki Pazirik Kurgani ve Isik Gölü çevresindeki Esik Kurganlari ise Turk Kültürünün gelişmişliğinin en önemli eserleridir. aKurgan : Eski Turklerde mezar.
bBu kurganlarda insan ve hayvan cesetleri yaninda çeşitli eşyalara rastlanmiştir.
cPazirik Kurganinda bulunan altin zirhta Turk Kültürünün gelişmişliğinin en önemli kaniti olarak kabul edilir.
5) Turklerin inanç olarak ölümden sonraki hayata inandiklari anlaşilmiştir.
6)Turklerin temel geçim kaynaklarinin hay vancilik ve tarim olduğu anlaşilmiştir. Ayrica dokumacilik ve madencilikte önemli bir yer tutmaktadir.
7) İpek yolu da Turkler açisindan önemli bir yer tutmaktadir. İpek yolunun denetimi elde tutulduğu sürece ticaret de Turkler için önemli bir geçim kaynaği olmuştur.
8) Dünyada demir ilk defa Turkler tarafin dan kullanilmiş ve at ilk defa Turkler tarafindan evcilleştirilmiştir.
9) At sütünden kimiz yaparak içmişler, hayvancilikla geçindikleri halde domuzu hiçbir zaman beslememiş ve etini yememişlerdir.
10) Savaşçi bir toplum olarak yaşamişlar, Kartal ve Kurdu kutsal hayvan olarak kabul etmişler ve sembol olarak kullanmişlardir

Evet Arkadaşlar Yukarda Belirtmiş Oldugumuz Türklerin Bazı Kültürel Özellikleri Arasında Gostere biliriz. Sizlerde Yorumlarınızda Türklerin Daha Ne Gibi Bir Cok Kultur Ozelliklerine ait oldugunu ve buna benzer faaliyetlerinizi yorumlarınızda paylaşa bilirsiniz.