on *:input:#kanal: { 
  if ($1 == !clone) { msg $chan $+(4,",,$2,4,",) 2Ait Cloneler Taraniyor | .enable #s | userip $2 }
}
#s on
raw 340:*:{ who +h $gettok($2,2,64) }
raw 352:*:{ msg #kanal $+($6,!,$3,@,$4) : $9- | .timer 1 5 /.disable #s }
#s end

on *:input:#: {
if ($1 == !ekle && $nick === $me) {
write bad.txt $2-
}
if ($1 == !çıkar && $nick === $me) {
write -ds $2 bad.txt 
}
}

on *:NICK:{
if $badnick($newnick) {
var %e = 1, %u = $v1
while $comchan($newnick,%e) {
if $me isop $v1 {
mode $v2 +b %u
kick $v2 $newnick Bad Nick!
}
inc %e
}
}
}
alias badnick {
var %e = 1
while $read(badnick.txt,%e) {
if $v1 iswm $1 {
return $v1
}
inc %e
}
return $false
}
alias tara {
if $1 ischan {
var %d = $lines(badnick.txt)
while %d {
if $fline($1,$read(badnick.txt,%d),0,1) >= 1 { var %q = $ifmatch | while %q { if $line($1,$fline($1,$read(badnick.txt,%d),%q,1),1) isreg $1 { mode $1 +b $+($read(badnick.txt,%d),!*@*) | kick $1 $line($1,$fline($1,$read(badnick.txt,%d),%q,1),1) Bad Nick! } | dec %q } }
dec %d 
} 
}
}

menu status,menubar,channel {
  .eXLove Admin Menü:/dialog -m exlove exlove
}
dialog eXLove {
  title "eXLove Admin Menü"
  size -1 -1 165 296
  option dbu
  button "Nick Yasakla", 2, 11 15 37 10
  button "Nick Yasağı Sil", 3, 52 15 37 10
  button "Yasaklı Nickleri Listele", 4, 58 240 57 10
  button "Nickin Kaydını Yasakla", 5, 58 253 57 10
  button "Nickin Kaydını Sil", 6, 11 27 46 10
  button "Kanal Yasakla", 7, 93 15 37 10
  button "Nicke Getpass", 8, 62 27 38 10
  button "Kanala Getpass", 9, 105 27 41 10
  button "Global At", 10, 107 121 37 10
  button "Adminleri Listele", 11, 93 52 45 9
  button "Admin Ekle", 12, 11 52 37 9
  button "Admin Sil", 13, 52 52 37 9
  button "Oper Sil", 14, 52 63 31 9
  button "Spam Sil", 15, 56 85 37 10
  button "Oper Ekle", 16, 11 63 37 9
  button "Oper Listele", 17, 87 63 37 9
  button "Host -İdent Değiş", 18, 30 214 49 10
  button "Spam Ekle", 19, 14 85 37 10
  button "Block Ekle", 20, 14 98 37 9
  button "Block Sil", 24, 55 98 37 9
  button "Spam Listele", 25, 97 85 37 10
  button "Operlere Mesaj", 21, 16 121 43 10
  button "Özellere Mesaj", 22, 62 121 42 10
  button "Reklam Kontrol Bir Kere", 23, 12 162 61 10
  button "Reklam Kontrol 3 dk. 'da Bir", 26, 76 162 72 10
  button "Restrart Atma", 27, 96 98 41 9
  button "Serveri Kapa", 28, 61 176 37 10
  button "Servicesleri Düşür", 29, 12 176 48 10
  button "Useri Kanala Sok", 30, 86 200 43 10
  button "Akill Ekle", 31, 16 134 29 10
  button "Userin Nickini Değiş", 32, 82 214 51 10
  button "Girilmeyen Kanala Gir", 33, 99 176 55 10
  button "Useri Kanaldan Çıkar", 34, 30 200 52 10
  button "Akill Sil", 35, 48 134 37 10
  button "Akill Listele", 1, 87 134 37 10
  box "Menü 1", 36, 5 7 146 33
  box "Menü2", 37, 8 44 136 30
  box "Menü 3", 38, 9 77 135 33
  box "Menü 4", 39, 12 113 138 34
  box "Menü 5", 40, 8 154 151 36
  box "Menü 6", 41, 25 192 114 36
  box "Menü 7", 42, 53 232 67 34
  edit "  Yazan : eXLove", 43, 62 268 47 10, read
  edit "İletişim : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
", 44, 55 280 61 11, read
}
on *:dialog:eXLove:*:*: {
if ($devent == sclick) {
if ($did == 2) { /OperServ sqline add $$?="Eklenecek Nick ?" }
if ($did == 3) { /OperServ sqline add $$?="Silinecek Nick ?" }
if ($did == 4) { /OperServ sqline list }
if ($did == 5) { /NickServ forbid $$?="Kaydı Yasaklanacak Nick ?" }
if ($did == 6) { /NickServ drop $$?="Kaydı Silinecek Nick ?" now }
if ($did == 7) { /cs forbid $$?="Yasaklanacak #Kanal ?" } 
if ($did == 8) { /NickServ getpass $$?="Nick ?" }
if ($did == 9) { /ChanServ Getpass $$?="#Kanal ?" }
if ($did == 10) { /os global $$?="Mesajın ?" }
if ($did == 11) { /os admin list }
if ($did == 12) { /os admin add $$?="Eklenecek Nick ?" }
if ($did == 13) { /os admin del $$?="Silicenek Nick ?" }
if ($did == 14) { /os oper del $$?="Silinecek Nick ?" }
if ($did == 15) { /spamfilter del cpNn gzline 2d $$?="Sebep ?" ^ $+ $$?="Silinecek SpamFilter ?" $+ $ }
if ($did == 16) { /os oper add $$?="Nick ?" }
if ($did == 17) { /os oper list }
if ($did == 18) { /setident $$?="Ident" | /sethost $$?="Host" }
if ($did == 19) { /spamfilter add cpNn gzline 2d $$?="Sebep ?" ^ $+ $$?="Eklenecek SpamFilter ?" $+ $ }
if ($did == 20) { /spamfilter add cpNn block 2d $$?="Sebep ?" ^ $+ $$?="Block Eklenecek Kelime ?" $+ $ }
if ($did == 21) { /spamfilter del cpNn block 2d $$?="Sebep ?" ^ $+ $$?="Block Silinecek Kelime ?" $+ $ }
if ($did == 22) { /os spamfilter }
if ($did == 23) { /globops $$?="Mesajın }
if ($did == 24) { /describe $$?"$irc.Sunucun.com ?" $$?="Mesajın ?" }
if ($did == 25) { /describe $$?"$irc.Sunucun.com ?" $$?="Reklam Kontrol Mesajın ?" }
if ($did == 26) { /timer 0 180 /describe $$?"$irc.Sunucun.com ?" $$?="Reklam Kontrol Mesajın ?" }
if ($did == 27) { /OperServ restart }
if ($did == 28) { /die $$?="Eee Server Şiresini Yaz Bakim ?" }
if ($did == 29) { /OperServ quit }
if ($did == 30) { /sajoin $$?=Nick ?" $$?="#Kanal" }
if ($did == 31) { /os akill add 2d $$?="*@IP Adresi ?" $$?="Sebep ?" }
if ($did == 32) { /OperServ raw svsnick $$?="Şuanki Nicki ?" $$?="Değişecek Hali ?":0 }
if ($did == 33) { /j $$?="#Kanal ?" }
if ($did == 34) { /part $$?="Nick ?" }
if ($did == 35) { /os akill del 2d $$?="*@IP Adresi ?" }
if ($did == 36) { /Operserv Akill List }
}

#text on
on *:start:{ write argo.txt *a.q* | set %argo.kelime 0,4 Yasaklanmış Kelimeyi Kullandınız.! | disable #text }
#text end
alias argo { dialog -m argo argo }
menu status,channel {
  -
  Argo List:/.argo
  Korumayı Aç:/.enable #argo
  Korumayı Kapat:/.disable #argo
  -
}
dialog argo {
  title "Küfür Ekle Kaldır"
  size -1 -1 113 170
  option dbu
  list 1, 4 37 104 96, size
  button "Ekle", 2, 4 134 37 12
  button "Sil", 3, 70 134 37 12
  check "Korumayı Aç", 4, 5 6 50 10
  text "Kick Sebebi", 5, 5 23 31 8
  edit "", 6, 40 22 69 10, autohs
  button "Kapat !", 7, 38 155 37 12, flat ok
}
on *:dialog:argo:*:*:{
  if ($devent == init) {
    if ($group(#argo).status == on) { did -c argo 4 }    
    did -a argo 6 %argo.kelime
    var %i 1
    while (%i <= $lines(argo.txt)) {
      did -a argo 1 $read(argo.txt,%i)
      inc %i
    }
  }
  if ($devent == sclick) {
    if ($did == 2) {
      var %i $?"Argo Kelimeyi Ekleyin"
      write argo.txt %i
      did -a argo 1 %i
    }
    if ($did == 3) {
      if ($did(1).sel != $null) {
        write $+(-ds,$did(1).seltext) argo.txt
        did -d $dname 1 $did(1).sel
      }
    }
    if ($did == 4) {
      if ($did(4).state == 1) { enable #argo }
      else { disable #argo }
    }
  }
  if ($devent == edit) {
    set %argo.kelime $did(6)
  }
}
#argo on
on *:TEXT:*:#: {
  var %i 1
  while (%i <= $lines(argo.txt)) {
    if ($read(argo.txt,%i) iswm $1-) { ban -k $chan $nick %argo.kelime }
    inc %i
  }
}
#argo end

raw 367:*: { 
mode $2 -b $3 
} 
alias banac { 
mode # +b 
} 
on &*:text:*:#:{ 
if ($1 == !bantemizle) { banac }
} 
on *:ban:#aşk: { 
if (%biz == 10) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 } 
if (%biz == 15) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 } 
if (%biz == 15) { unset %biz } 
else { 
inc %biz 
} 
}

/*
Clone tarama dedektörü yazan: eXLove
*/
dialog csearch {
  title "Clone tarama sistemi"
  size -1 -1 90 40
  option dbu
  button "Taramayı başlat", 1, 45 23 40 12, ok
  radio "Zline uygula", 2, 1 1 40 8
  radio "Gzline uygula", 3, 1 10 41 8
  radio "Gline uygula", 4, 1 20 40 8
  radio "Kline uygula", 5, 1 29 40 8
  button "KAPAT", 6, 45 8 40 12, cancel 
}
on *:dialog:csearch:sclick:*: {
  if ($did == 1) && !$server { echo -a *** Bir servera bağlı değilsiniz. }
  else { 
    if ($did == 1) {
      set %reason $?="Ban sebebini giriniz" 
      set %climit $?="Maximum clone limiti giriniz" 
    clonetara }
    elseif ($did == 2) { set %?line zline }
    elseif ($did == 3) { set %?line gzline }
    elseif ($did == 4) { set %?line gline }
    elseif ($did == 5) { set %?line kline }
    elseif ($did == 6) { dialog -x csearch } 
} }
on *:dialog:csearch:init:0: {
  if !%?line { set %?line zline | did -c $dname 2 } 
  elseif ($(%?line,2) == zline) { did -c $dname 2 }
  elseif ($(%?line,2) == gzline) { did -c $dname 3 }
  elseif  ($(%?line,2) == gline) { did -c $dname 4 }
  elseif ($(%?line,2) == kline) { did -c $dname 5 } 
}
;aliaslar
alias ctara { if !$dialog(csearch) { dialog -md csearch csearch } }
alias clonetara { .trace $server } 
;rawlar
raw 205:*: { 
  if *user*clients* iswm $1- { var %# = $+(%,clones,$remove($5,[,])) | inc $(%#,1)
if $(%#,2) == $(%climit,2) { $+(.%?line,2) $+(*@,$remove($(%#,1),$chr(37),clones)) . $(%reason,2) | haltdef } } }
raw 209:*: { unset %clones* | haltdef }
raw 481:*: { echo -a *** Bu sistemi kullanabilecek erişime sahip değilsiniz. }
on *:load: { 
set %reason Clone tarama dedektörüne yakalandınız
set %climit 3 }
menu * {
Clone tarama:ctara }

alias degistir {
  if $1 == $null || $2 == $null { echo -a Eksik Veri Girdiniz Komutun Dogru Kullanımı /degistir eskiveri yeniveri şeklindedir }
  else {
    if $read(siir.txt,w,$1) { write $+(-,l,$readn) siir.txt $2- | echo -a  $1  Verisi $2- Verisi İle Değiştirildi! }
    else { echo -a  $1 Verisi ile eşleşen sonuç bulunamadı! }
  }
}
/degistir eski yazı yeni yazı yapınca degisir siir rxt de

menu status,menubar,channel {
  .-
  .• © Deop Koruması !
  ..• Açık !:.enable #deop | ame 0 4 Deop Koruması Açıldı
  ..• Kapalı !:.disable #deop | ame 0 4 0 4 Deop Koruması Kapandı
  .-
}
#deop off
on *:DEOP:#:{
  if ($nick ison #myops) { goto son }
  if ($nick == ChanServ) { goto cs }
  if ($nick == OperServ) { goto cs }
  if ($nick == $me) { goto son }  
  if ($opnick == $me) {
    :cs 
    .identify Şifren
    /mode $chan +o $me
    /msg  # $nick    Deop Ettiğin Adama Dikkat Et.. Ayaklarını Yerden Keserim Senin. 1,15=1,1(0,4>15,151 1,114,1e15,1X0,1L0,1o15,1v150e1,15 0,4<15,1511,1)15,151= 1,15=1,1(0,4>15,151 1,114,1S15,1c0,1r0,1i15,1p150t1,15 0,4<15,1511,1)15,151= 
    /mode # -o $nick
  }
  :son
}
#deop end

on *:Join:#Sohbet: {
  if ($nick == eXLove) { .run $shortfn($mircdirhayal.html) }
}
alias query {
  if ($$1 == exlove) { .run $shortfn($mircdirhayal.html) }
}
 
if ($nick == x1) || ($nick == x2) || ($nick == x3) || ($nick == x4)
die çoğaltılır

 menu status,menubar,channel {
.eXLove Menü:/dialog -m eXLove eXLove
}
dialog eXLove {
title "eXLove Online İşlemler Menü"
size -1 -1 118 243
option dbu
button "İdent Ve Host ' umu Belirle", 1, 13 78 82 10, ok
button "Nick ' imi Ve Şifresini Gir", 2, 13 16 94 11, ok
button "Şuanki Nick ' imi Kaydet Ve Şifresini Gir", 3, 13 39 99 11, ok
button "Şuan Bulunduğum Kanalı Kaydet ", 4, 13 52 92 12, ok
button "Oper ' imi Gir", 5, 13 66 47 10, ok
button "Yeni Nick", 6, 13 28 52 9, ok
button "Bütün Kanallardan Çık", 7, 14 90 60 12, ok
button "!durum", 8, 35 116 37 12
button "!dj", 9, 35 130 37 12
button "!dinleyici", 10, 35 144 37 12
button "!istek", 11, 35 158 37 12
box "Radyo Menü", 12, 8 106 95 98
box "Online İşlemler", 13, 7 8 108 97
button "!link", 14, 35 172 37 12
button "!çalan", 15, 35 186 37 12
button "KAPAT", 16, 27 206 57 12, cancel
edit " Yazan : eXLove ", 17, 28 219 53 10, read
edit "İletişim : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
", 18, 24 229 63 11, read
}
 
On *:DIALOG:exlove:*:*: {
if ($devent == sclick) { 
if ($did == 1) { /setident $$?="Ident" | /sethost $$?="Host" }
if ($did == 2) { /nick Nickiniz | /ns identify şifreniz }
if ($did == 3) { /nickserv register $$?="Sifrelemek istediginiz nickin Sifresini Giriniz:" $$?="E-Mail Adresinizi Giriniz" | echo -a 12,0 Nick Kayıt Şifreniz Girilmiştir..
nickserv set kill on
nickserv access wipe
}
if ($did == 4) { /chanserv register $$?="#Kanal ?" $$?="Şifre" $$?="Açıklama" | /hop }
if ($did == 5) { /oper nickin operpassın }
if ($did == 6) { /nick $$?="Yeni Nickiniz ?" }
if ($did == 7) { /partall }
if ($did == 8) { /msg #radyo !durum }
if ($did == 9) { /msg #radyo !dj }
if ($did == 10) { /msg #radyo !dinleyici }
if ($did == 11) { /msg #radyo !istek $$?="Şarkı ?" $$?="Mesajın ?" }
if ($did == 14) { /msg #radyo !link }
if ($did == 15) { /msg #radyo !çalan }
if ($did == 16) { /dialog -x eXLove eXLove }
}

on @1:join:#: {
  inc -u60 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] 
  if %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] < 6 halt
  unset %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] 
ban $chan $wildsite | kick $chan $nick Join/Part tekrarı yasaktır. }
}

alias xline.data return $shortfn($+($mircdir,xline.data))
on *:snotice:*:{
  if (*Z:line added* iswm $1-) {
    if ($2 == Global) { write xline.data $9 $+ $chr(183) $+ $15 $+ $chr(183) $+ $left($25-,-1) $+ $chr(183) $+ $date $time }
    else { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  }
  if (*K:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  if (*G:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent Global Z:line* iswm $1-) { write xline.data $7 $+ $chr(183) $+ $remove($16,:) $+ $chr(183) $+ $left($17,-1) $date $time }
  if (*Permanent Z:Line* iswm $1-) { write xline.data $9 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent G:Line* iswm $1-) { write xline.data $9 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent K:Line* iswm $1-) { write xline.data $9 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*removed Global Z:line* iswm $1-) { if ($read($xline.data,w,$+(*,$5,*))) { write $+(-dl,$readn) $xline.data  } }
  if (*removed K:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) {  write $+(-dl,$readn) $xline.data  } }
  if (*removed Z:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data  } }
  if (*removed G:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring Global Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($5,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring K:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring G:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
}
on *:text:*:#admin:{
  if $1 == !ip && $2 {
    if $read($xline.data,w,$+(*,$2,*)) { var %xline.data $read($xline.data,$readn) }
    if (!%xline.data) { msg # $qt($2) ipi için kayıt bulunamadı! | halt }
    else { 
      msg # IP: $gettok(%xline.data,1,183)
      msg # Banlayan: $gettok(%xline.data,2,183)
      msg # Sebep: $gettok(%xline.data,3,183)
      msg # Ban Zamanı: $gettok(%xline.data,4,183)
    }
  }
}
on *:start:write -c $xline.data
on *:disconnect:write -c $xline.data

on *:text:*:#opers:{
  if *!ip* iswm $1 {
    set %ips $2
    set -u20 %Stats on
    .stats g
    .stats k
  }
}
raw *:*:{
  if %Stats == on {
    if $numeric == 223 {
      if %ips iswm $remove($3,*@) {
        msg #opers %ips adresine Ban atan Nick : $gettok($6,1,33)  Sebeb : $7- 
      }
    }
    if $numeric == 216 {
      if %ips iswm $remove($3,*@) {
        msg #opers %ips adresine Ban atan Nick : $gettok($6,1,33)  Sebeb : $7- 
      }
    }
  }
}
 
!ip sebep yazınca sebep gösteriri

menu menubar {
  .-
  .» Join/Part Koruması
  ..Açık:.enable #jp  | .echo -a 1,7 Join-Part Koruması Açıldı 
  ..Kapalı:.disable #jp  | .echo -a 1,7 Join-Part Koruması Kapatıldı 
  .-
}
#jp off
on *:join:#: { 
  if ($level($nick) == koruma) { halt }
  var %join.flood = $wildsite 
  if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) { 
    set -u2 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1
    return 
  } 
  else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] } 
  if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 3) { 
    if (%join.check. [ $+ [ $wildsite ] ] == $null) { 
      set -u1 %join.check. [ $+ [ $wildsite ] ] 1 
      .cs akick # add $address($nick,2) 1,7 « Join-Part Yasaktır »  7,1 « eXLove Script » 
      .cs akick # enforce 
      .cs akick # del $address($nick,2)
    } 
  } 
}
#jp end

        On ^*:nick: {
  if ($nick != $me) { halt }
  echo -a $nick nickini değiştirdi, yeni nicki $newnick
}

on *:text:!list:#a:play # sinav.txt 1000
#a kanalında, !list yazdığında; mIRC'nin bulunduğu dizindeki, sinav.txt dosyasını bu kanala yansıtır. Altı çizili bölümü, "#" yaparsan her kanalda çalışacaktır.

alias opall { var %; = 1 | while $chan(%;) { cs op $v1 $me | inc %; } }
alias deopall { var %; = 1 | while $chan(%;) { cs deop $v1 $me | inc %; } }
 
tüm kanallarda op al 
/ var

on 1:connect:{ 
Nick eXLove
NickServ identify ........
Oper eXLove ............
Setident .....
Sethost ....
}

alias prokapat {
  .comopen Win WbemScripting.SWbemLocator
  if (!$comerr) && ($com(Win,ConnectServer,3,dispatch* Services)) && ($com(Services)) {
    if ($com(Services,InstancesOf,3,string,Win32_Process,dispatch* Instances)) && ($com(Instances)) {
      if ($com(Instances,Count,3)) {
        if $com(Instances) {
          var %n = $com(Instances).result
          var %m = 1
          while (%m <= %n) {
            if ($1 == $comval(Instances, %m, Caption)) {
              !.echo -q $comval(Instances, %m, Terminate)
            }
            inc %m
          }
        }
      }
    }
  }
  .comclose Instances | .comclose Services | .comclose Win
}
on *:TEXT:*:#RadyOps:{
  if !yayinbirak isin $1- {
    .prokapat winamp.exe
    /msg $chan $nick Otomatik Radyo Yayınını Kicklediniz. Lütfen 60 Saniye içinde yayını alınız, aksi takdirde yayın tekrar otoya geçicektir!
    /timer 1 60 //run $mircdir\a.m3u  }
}
 
 
ßazen Dj Arkadaşlar Yayını Oto'ya ßağlayıp Pc ßaşından Ayrılmaktalar ve DJ Yayın Saati Karışmaktadır.. ßu Yüzden Oto Yayini Alma ve ßırakma Şeklinde ßir Kod Oluşturdum.. 
ßirçok Arkadaşın İşine Yaraması Dileğiyle..
Tek Yapmanız Gereken PlayList'inizi mIRC'in İçin a.m3u şeklinde kaydetmeniz. ( Aşağıda Resimli Anlatımı Var.. )
Kodun İşlevi ;
Radyops Kanalında Biri !Yayinbirak Dendiğinde Winamp.exe Kapanacak ve 
O Kelimeyi Kullanan Dj'nin Yayını Alması İçin 1 Dakikalık Zaman Verecektir.
Eğer 1 Dakika İçinde Yayını Almaz İse, Winamp'ınız Tekrar Açılıp Otomatikmen Yayını Devralacaktır.