Kanal !temizle Kodudur. Kanal Operatörü olmayan kişiler bu komutu kullanamazlar. Remotelere Ekleyiniz. Not ”!temizle” Yerine !clear yazıp Kullanada bilirsiniz.

on *:text:*:#:{
  if !temizle isin $1 {
    if $nick !isop $chan {
    .notice $nick  HooOoOpSssS Sen Bu Komutu Kullanamazsin : ) 2. Sinif insan : PpPp     }
    else {
      /msg $chan $chr(3)
      /msg $chan $chr(3)
       /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan $chr(3)
      /msg $chan 12 Kanalimiz Temizlenmiştir ! 5Temizleme Komutunu Uygulayan Nick 7 $nick
    }
  }
}

mIRC Scriptlerinize ALias Kodlari Yüklemek için /load -a dosyaismi.dosyauzantisi

Örnek : /load -a alias.mrc

Remotelere Kod Yüklemek için /load -rs dosyaismi.dosyauzantisi

Örnek : /load -rs remote.mrc

Status e Kod yüklemek için : /load -ps dosyaismi.dosyauzantisi

Örnek : /load -ps status.mrc

Nick Listesi Popup Yüklemek için : /load -pnl dosyaismi.dosyauzantisi

Örnek : /load -pnl nicklistesi.mrc

Kanal Popup Yüklemek için : /load -pc dosyaismi.dosyauzantisi

Örnek : /load -pc kanal.mrc

Menübar Popup Yüklemek için/load -pm dosyaismi.dosyauzantisi

Örnek : /load -pm menubar.mrc

Gerekli yerlere Dosya yükleme komutlari bu sekildedir.

Aşağıda vermiş olduğumuz kodu mIRC Scriptinizin Alt+R Remote Kısmına Ekleyiniz.

Ekleyeceğiniz Kod:

on 1:INPUT:*: {
if ($mid($1,1,1) == /) { goto doit }
:doit
if ($1- == efem) { say Efendim? | halt }
if ($1- == h.g) { say Hoş Geldin | halt }
if ($1- == h.b) { say Hoş Buldum | halt }
if ($1- == slm) { say Selam | halt }
if ($1- == mrb) { say Merhaba | halt }
if ($1- == nbr) { say Naber ? | halt }
if ($1- == rica) { say Rica Ederim. | halt }
}

- on *:connect: { 
.join #help 
.ns identify HelpBotSifresi 
.remote on 
.ignore $me 
} 
on *:text:*:?: { 
if .n?ck iswm $1- { 
/timer 1 0 msg $nick  .:: Nickserv Hakkında Komutlar Sıralanıyor ::. 
/timer 1 1 msg $nick  
/timer 1 2 msg $nick 0,1 1- Nick Kaydetmek icin 4.nreg0,1 yazarak komutu öğrenebilirsiniz..  
/timer 1 3 msg $nick 0,1 2- Nick Droplamak icin 4.drop 0,1yazarak komutu öğrenebilirsiniz..  
/timer 1 4 msg $nick 0,1 3- Nick E-mail Değişmek icin 4.nmail0,1 yazarak komutu öğrenebilirsiniz..  
/timer 1 5 msg $nick 0,1 4- Nick UrL Değişmek icin 4.nurl 0,1yazarak komutu öğrenebilirsiniz... 
/timer 1 6 msg $nick 0,1 5- Nick İnfosunu Görmek icin 4.ninfo 0,1yazarak komutu öğrenebilirsiniz..  
/timer 1 7 msg $nick 0,1 6- Nick Sifrenizi E-mail\'e Yollamak icin 4.nsend 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 8 msg $nick 0,1 7- Nick Sifrenizi Değiştirmek icin 4.nsifre 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 9 msg $nick 0,1 8- Askıda Kalan Nickinizi Düşürmek icin 4.nghost 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 10 msg $nick 0,1 9- Nickinize Memo Gelmesin İstiyorsanız 4.nnmemo0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 11 msg $nick 0,1 10- Nickinizin Baskası Tarafından Kullanılmasını İstemiyorsanız 4.nkill0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 12 msg $nick 0,1 11- Nick E-mail adresinizin Herkez Tarafından Görülmesini istiyorsanız 4.nshow0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 12 msg $nick  
/timer 1 14 msg $nick  Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz. 
} 
if .nreg isin $1- { 
msg $nick Nickinizi Kaydetmek ( Sifrelemek ) icin  /ns register sifre e-mailadress  Örnek : /ns register 123456 e-mailadres 
} 
if .ndrop isin $1- { 
msg $nick Nickinizi Droplamak ( Kayıtları Silmek ) icin  /ns drop nick  Örnek : /ns drop OzAn 
} 
if .nma?l iswm $1- { 
msg $nick Nickinizin E-mailini Değiştirmek icin  /ns set email yenie-mail  Örnek : /ns set user@adres user@adres  komutunu kullandıktan sonra yeni e-mail adresinize gelen onay kodunu giriniz. 
} 
if .nurl isin $1- { 
msg $nick Nickinizin URL ( Webadres ) Değiştirmek icin  /ns set url yeni url  Örnek :  /ns set url adres  
} 
if .n?nfo iswm $1- { 
msg $nick Nickinizin İnfosunu Yada Herhangi Bir Nick\'in İnfosunu Görmek icin  /ns info nick   Örnek : /ns info OzAn 
} 
if .nsend isin $1- { 
msg $nick Nickinizin Sifresini E-mailinize Göndermek İstiyorsanız..  /ns sendpass nick   Örnek :  /ns sendpass OzAn 
} 
if .ns?fre iswm $1- { 
msg $nick Nickinizin Sifresini Değiştirmek icin  /ns set password Yenisifreniz   Örnek :  /ns set password 321654 
} 
if .nghost isin $1- { 
msg $nick Nickiniz askıda Kaldı ve Düşürmek istiyorsunuz Su Komutu Uygulayınız.. /ns ghost nick sifreniz  Örnek :  /ns ghost OzAn 123456 
} 
if .nnmemo isin $1- { 
msg $nick Nickinize Memo Gelmesini İstemiyor iseniz Su Komutu Uygulayınız..  /ns SET nomemo ON 
} 
if .nk?ll iswm $1- { 
msg $nick Nickinizin Baskası Tarafından Kullanılmasını İstemiyorsanız Su Komutu Uygulayınız..  /ns set KILL on  
} 
if .nshow isin $1- { 
msg $nick Nickinizdeki E-mail Adresini Herkezin Görmesini İstiyorsanız Su Komutu Uygulayınız..  /ns set showemail off  
} 
if .chan isin $1- { 
/timer 1 0 msg $nick  .:: Chanserv Hakkındaki Komutlar Sıralanıyor ::. 
/timer 1 1 msg $nick  
/timer 1 4 msg $nick 0,1 1- Kanal Kaydetmek icin 4.creg 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 5 msg $nick 0,1 2- Kanal Droplamak icin 4.cdrop 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 6 msg $nick 0,1 3- Kanal Founderi Değiştirmek icin 4.cfon0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 7 msg $nick 0,1 4- Kanal Sifresi Değiştirmek icin 4.csifre0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 8 msg $nick 0,1 5- Kanal E-mail Değiştirmek icin 4.cmail0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 9 msg $nick 0,1 6- Kanalınıza gönderilen memoları kapatmak yada okuyabilme yetki düzeyini ayarlamak icin 4.cmemo0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 10 msg $nick 0,1 7- Kanalınıza giremiyorsanız INVITE modunda yada BANLI iseniz 4.invite0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 11 msg $nick 0,1 8- Kanalınıza SOP eklemek,silmek istiyorsanız 4.csop0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 12 msg $nick 0,1 9- Kanalınıza AOP eklemek,silmek istiyorsanız 4.caop0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 13 msg $nick 0,1 10- Kanalınıza VOP(voice(+)) eklemek istiyorsanız 4.cvop0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 14 msg $nick 0,1 11- Kanalınıza akick atmak icin 4.cakick0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 15 msg $nick 0,1 12- Kanalınıza accesslilerin ( SOP,AOP,VOP ve UOP ) dışında kimsenin girememesi için .4crest0,1 yazarak komutu öğrenebilirsiniz..
/timer 1 16 msg $nick 0,1 13- Kanalınıza OP olan birinin hangi nicki identify ederek bu seviyeye geldiğini vede access\'inin,ne olup olmadığını görmek için4 .why0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 17 msg $nick 0,1 15- Kanalınıza bir başka kanala linklemek(yönlendirmek) istiyorsanız 4.link0,1 yazarak komutu öğrenebilirsiniz... 
/timer 1 18 msg $nick 0,1 16- Kanalınıza Giris Mesajı atmak icin4 .cent0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 19 msg $nick 0,1 17- Kanalınızda op olan tüm kullanıcıları bir seferde deop edebilmek için 4.mdeop0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 20 msg $nick 0,1 18- Kanalınızdaki herkesi atmak için 4.mkick0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 21 msg $nick 0,1 19- Yetkili oldugunuz bi kanaldan size atılan banı kaldırmak için 4.cunban0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 22 msg $nick  
/timer 1 25 msg $nick  Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz. 
} 
if .caop isin $1- { 
msg $nick : AOP eklemek için ( Founder,Sop iseniz ), 4/chanserv aop #kanal add Nick 
msg $nick : AOP silmek için ( Founder,Sop iseniz ), 4/chanserv aop #kanal del Nick 
} 
if .csop isin $1- { 
msg $nick : SOP eklemek için ( Founder iseniz ), 4/chanserv sop #kanal add Nick 
msg $nick : SOP silmek için ( Founder iseniz ), 4/chanserv sop #kanal del Nick 
} 
if .cvop isin $1- { 
msg $nick : VOP eklemek için, ( kanalda en az sop accessiniz olmalı ) 4/chanserv vop #kanal add nick 
msg $nick : VOP silmek için, ( kanalda en az sop accessiniz olmalı ) 4/chanserv vop #kanal del nick 
} 
if .mkick isin $1- { 
msg $nick Kanaldaki herkesi atmak için SOP veya FOUNDER olmak gerekiyor, 4/chanserv mkick #kanal 
} 
if .mdeop isin $1- { 
msg $nick Kanaldaki herkesi deop etmek için SOP veya FOUNDER olmak gerekiyor, 4/chanserv mdeop #kanal 
} 
if .l?nk isin $1- { 
msg $nick, Kanal Yönlendirmek için, /mode #1.kanal +lO 1 #2.Kanal 
} 
if .why isin $1- { 
msg $nick : Kanalda OP olan birinin hangi nicki identify ederek bu seviyeye geldiğini vede access in,nolup olmadığını görmek için, 4/chanserv why #kanal nick 
} 
if .crest isin $1- { 
msg $nick : Kanala accesslilerin ( SOP,AOP,VOP ve UOP ) dışında kimsenin girememesi için, 4/chanserv set #kanal restrict ON Kaldırmak için 4/chanserv set #kanal restrict OFF 
} 
if .cunban isin $1- { 
msg $nick : Chanserv i kullanarak size atılan ban\'ı kaldırmak için, 4/chanserv unban #kanal me 
} 
if .creg isin $1- { 
msg $nick Kanalınızı Kaydetmek İstiyorsanız Su Komutu Uygulayınız  /cs register #kanal sifre acıklama   Örnek : /cs register #sohbet 123456 Hoşgeldiniz 
} 
if .cdrop isin $1- { 
msg $nick Kanalınızı Droplamak ( Kayıtları Silmek ) icin Su Komutu Uygulayınız  /cs identify #kanalınız sifreniz   /cs drop #kanalınız  Örnek : /cs identify #sohbet 123456  /cs drop #sohbet 
} 
if .cfon isin $1- { 
msg $nick Kanalınızın Founderini Değiştirmek icin Su Komutu Uygulayınız  /cs identify #kanalınız sifreniz   /cs set #kanalınız founder yenifounder  Örnek :  /cs identify #sohbet 123456   /cs set #sohbet founder OzAn  
} 
if .cs?fre iswm $1- { 
msg $nick Kanalınızın Sifresini Değiştirmek icin Su Komutu Uygulayınız  /cs set #kanaliniz password yenisifre   Örnek : /cs set #sohbet password 321654 
} 
if .cma?l iswm $1- { 
msg $nick Kanalınızın E-mail adresini Değiştirmek icin Su Komutu Uygulayınız  /cs set #kanalınız email yenie-mail   Örnek :  /cs set #sohbet email adres 
} 
if .cmemo iswm $1- { 
msg $nick Kanala memo yolladığınız zaman alacak alt düzeyi belirlemek için, 4/chanserv set #kanal memo none|aop|sop|founder 
} 
if .invite isin $1- { 
msg $nick Kanal +i modunda ise vede kanalda en az AOP access iniz var ise kanala girmek için, 4/chanserv invite #kanal nick 
} 
if .cent isin $1- { 
msg $nick Kanalınıza Giriş Mesajı atmak icin /cs set #kanal entrymsg mesajınız  Örnek : /cs set #sohbet entrymsg Hoşgeldiniz. 
} 
if .cak?ck iswm $1- { 
msg $nick Kanalınızda akick almak icin Su Komutu Uygulayınız /cs akick #kanal add nick!*@* sebeb  Örnek : /cs akick #sohbet add OzAn!*@* Rahatsızlık 
} 
if .memo iswm $1- { 
/timer 1 0 msg $nick  .:: Memoserv Hakkındaki Komutlar Sıralanıyor ::. 
/timer 1 1 msg $nick  
/timer 1 3 msg $nick 0,1 1- Memo Göndermek icin 4.msend0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 4 msg $nick 0,1 2- Memo Okumak icin 4.mread0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 5 msg $nick 0,1 3- Memo Listesini Görmek icin 4.mlist0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 6 msg $nick 0,1 4- Memolarınızı E-mail adresinize Göndermek icin 4.mfor0,1 yazarak komutu öğrenebilirsiniz.. 
/timer 1 7 msg $nick 0,1 5- Memolarınızı Silmek icin 4.mdel 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 8 msg $nick 0,1 6- Memolarınıza Limit Koymak icin 4.mlim 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 9 msg $nick 0,1 7- Memolarınız Hakkındaki Bilgileri Görmek icin 4.minfo 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 10 msg $nick 0,1 8- Herhangi Bir Kullanıcının Size Memo Göndermesini İstemiyorsanız 4.mig 0,1yazarak komutu öğrenebilirsiniz.. 
/timer 1 10 msg $nick  
/timer 1 12 msg $nick  Size sunmuş oldugum komut parametreleri yetersiz geldiyse Kanal Operatörlerinden yardım isteyebilirsiniz. 
} 
if .msend isin $1- { 
msg $nick Memo Göndermek icin Su Komutu Uygulayınız.. /ms send nick mesajınız  Örnek :  /ms send OzAn Selam  
} 
if .mread isin $1- { 
msg $nick Memo Okumak icin Su Komutu yazarak komutu öğrenebilirsiniz.. /ms read memonumarası  Örnek :  /ms send 1  
} 
if .ml?st iswm $1- { 
msg $nick Memo Listenizi Görmek icin Su Komutu Uygulayınız  /ms list  
} 
if .mfor isin $1- { 
msg $nick Memolarınızı E-mail adresinize Göndermek icin Su komutu Uygulayınız /ms forward all 
} 
if .mdel isin $1- { 
msg $nick Memolarınızı Silmek icin Su Komutu Uygulayınız  /ms del memonumarası  Örnek :  /ms del 1 
} 
if .ml?m iswm $1- { 
msg $nick Memolarınıza Limit Koymak icin Su Komutu Uygulayınız /ms set limit LIMITSAYISI  Örnek : /ms set limit 10 
} 
if .m?nfo iswm $1- { 
msg $nick Memolarınız Hakkındaki Bilgileri Görmek icin Su Komutu Uygulayınız  /ms info  
} 
if .m?g iswm $1- { 
msg $nick Herhangi Bir Kullanıcının Size Memo Göndermesini Engellemek icin Su Komutu Uygulayınız /ms ignore add nick  Örnek : /ms ignore add OzAn 
} 
} 
on *:open:?: { 
msg $nick Merhaba $nick, Yardım konularınız aşşağıdakilerdir. 
msg $nick 0,1 .:: Lutfen komutları sorarken (4NOKTA 4(0 . 4)0,1) işaretini komut başına koymayı unutmayınız. Örneğin:4 .chan 
msg $nick 0,1 .:: Chanserv Komutlarını Görmek icin = 4.chan0,1 yazarak komutu öğrenebilirsiniz.. ::. 
msg $nick 0,1 .:: Nickserv Komutlarını Görmek icin = 4.nick0,1 yazarak komutu öğrenebilirsiniz.. ::. 
msg $nick 0,1 .:: Memoserv Komutlarını Görmek icin = 4.memo 0,1yazarak komutu öğrenebilirsiniz.. ::. 
} 
on 1s:JOIN:#help: { 
msg $nick Merhaba  $nick  Ben Cenebaz FAMLY Team Tarafından Editlenmiş IRCHELP BOT\'uyum Size IRC Komutlari Hakkında Bilgiler vermek icin Bulunuyorum 
} 

mIRC Script mavi yazı tipi noktalama işaretleri kırmızı renk kodu’dur.  Remotelere ekleyiniz Görünümü şu şekildedir.

.;!’^+%&/ gibi işaretler cümle sonunda koydugunuzda bunlar kırmızı renkte olacaktır. 

on *:input:*:if (!$inpaste && !$ctrlenter && !$regex($1,/^\//)) { msg $active $nc($1-) | haltdef }

alias nc return $replace($+(12,$regsubex($regsubex($1-,/([.,;,!,+,?,=,:,',^,%,&,/,(,),_,~,`,<,>,"])/g,$+(4,\t,12)),/([A-Z])/g,$+(12,\t,12)),),$chan,$+(,$chan,))

Veriables bölümene %logo diye ekledim kafaniz karismasin diye sizde silersiniz orayi yenisini eklersiniz , “/bad nick” seklinde ekliyor veya

Users kismina gelip “02:*nick*” seklinde siz uzatabiliyorsunuz .

Kod:
alias bad { .auser 02 $1 } 
on ^&*:JOIN:#:{ 
if ($nick != $me) { 
if ($ulist($address($nick,-1),02,1)) { 
if (o isin $usermode) { 
mode # +b $nick | kick # $nick %logo 
sapart $nick # | sajoin $nick #Sex 
} 
} 
} 
}

Kodun Orjinal Dili İngilizce kendimce çevirdim.

Kodu ALT + R yaparak remoteye ekleyin ve Uyanmak istediğiniz saati girin.
Saat formatı 24 saat olarak girilmelidir.

06:30 gibi uyguladığınızda kod otomatik olarak çalışacaktır. Uyandırılmak istediğiniz ses dosyasını seçerek kodu aktif edin ve uyuyun

Ön İzleme / Screen

Kod:

dialog alr {
title “Çalar Saat”
size -1 -1 128 91
option dbu
box “Saati Ayarla”, 1, 2 2 43 30
edit “”, 2, 4 10 38 9, center
button “Uygula”, 3, 4 20 38 10, flat
box “Aç / Kapa”, 4, 2 33 43 18
radio “Aç”, 5, 4 41 18 9
radio “Kapa”, 6, 22 41 21 9
box “Ses Seç “, 7, 47 2 79 19
check “Beep”, 8, 49 10 23 9
check “Müzik”, 9, 72 10 24 9
check “Highlite”, 10, 97 10 28 9
box “Müzik / Ses”, 11, 47 22 79 48
list 12, 49 31 75 37, size hsbar vsbar
box “Ses / Müzik Seç”, 13, 2 71 124 18
text “”, 14, 4 78 120 8, center
box “Şu anki Zaman”, 15, 2 52 43 18
text “”, 16, 4 60 39 8, center
}
dialog alr2 {
title “Sesler”
size -1 -1 132 70
option dbu
box “Çalar Saat Sesi Seç”, 1, 2 2 128 66
button “Göz At”, 2, 4 56 31 10, flat
button “Kapat”, 3, 97 56 31 10, flat cancel
button “Sil”, 4, 35 56 31 10, flat
list 5, 4 11 124 44, size hsbar vsbar
button “Ön İzleme”, 6, 66 56 31 10, flat
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182′s Alarm Clock
echo 12 -a A Script0rs Inc. Production
echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
alias -l sound.check1 { did -r alr2 5 | var %x = 1 | while ( %x <= $lines(sasound.txt)) { did -za alr2 5 $nopath($read(sasound.txt,%x)) | inc %x } }
alias -l sound.check2 { did -r alr 12 | var %x = 1 | while ( %x <= $lines(sasound.txt)) { did -za alr 12 $nopath($read(sasound.txt,%x)) | inc %x } }
alias -l findsound { dialog $iif($dialog(alr2),-v,-mied) alr2 alr2 }
alias -l alarm.m { if (%a.time == $time(HH:nn)) { splay $read(sasound.txt, %saound) } }
alias -l alarm.b { if (%a.time == $time(HH:nn)) { beep 500 900 } }
alias -l alarm.h { if (%a.time == $time(HH:nn)) { window @aLarm | echo $r(1,12) @aLarm Time Is Up!!!! It’s now $time(h:nntt) So Get Off Ur Ass FFS!!! | Beep } }
alias -l regtime { did -ra alr 16 $time(HH:nn.s) }
on *:DIALOG:alr2:init:0:{ $sound.check1 }
on *:DIALOG:alr:close:0:{ .timer.regtime off }
on *:DIALOG:alr2:sclick:*:{
if ($did == 2) { write sasound.txt $$sfile(C:\,Choose Directory) | $sound.check2 | $sound.check1 }
if ($did == 4) { if (!$did(5).sel) { noop $input(Silinecek sesi seç!,uwo,Error!) } | else { write -dl $+ $did(5).sel sasound.txt | $sound.check2 | $sound.check1 } }
if ($did == 6) { if (!$did(5).sel) { noop $input(Hızlı Ön İzleme İçin Ses seç,uwo,Error!) } | else { splay $read(sasound.txt,$did(5).sel) | .timer.preview 1 30 splay stop } }
}
menu menubar,channel {
.Çalar Saat:{ dialog $iif($dialog(alr),-v,-mied) alr alr }
}
on *:DIALOG:alr:init:0:{
did -a $dname 16 $time(HH:nn.s)
.timer.regtime 0 1 regtime
$iif(%a.time,did -a $dname 2 %a.time,did -a $dname 2 Not Set)
$iif(%alarm,did -c $dname 5,did -c $dname 6)
$iif(!%asound,did -a $dname 14 NONE,did -a $dname 14 %asound)
$iif(%a.beep,did -c $dname 8,$iif(%a.music,did -c $dname 9,$iif(%a.high,did -c $dname 10,)))
$iif(%a.beep,did -b $dname $+(12,$chr(44),14),$iif(%a.high,did -b $dname $+(12,$chr(44),14),$iif(%a.music,did -e $dname $+(12,$chr(44),14))))
$sound.check2
}
on *:DIALOG:alr:sclick:*:{
if ($did == 3) { if ($left($did(2).text,1) !isnum) { noop $input(Lütfen 24 saat olarak giriniz!,uwo,Error!) | did -r $dname 2 } | else { set %a.time $did(2).text } }
if ($did == { unset %a.music %a.high | set %a.beep on | did -c $dname 8 | did -u $dname 9,10 | did -b $dname 12,14 }
if ($did == 9) { unset %a.beep %a.high | set %a.music on | did -c $dname 9 | did -u $dname 8,10 | $findsound | did -e $dname 12,14 }
if ($did == 10) { unset %a.beep %a.music | set %a.high on | did -c $dname 10 | did -u $dname 8,9 | did -b $dname 12,14 }
if ($did == 12) { set %asound $did(12).seltext | set %saound $did(12).sel | did -ra $dname 14 %asound }
if ($did == 5) { if (!$did(12).seltext || !%a.time) { noop $iif(!$did(12).seltext,$input(Lütfen Ses seçin!,uwo,Error!),$iif(!%a.time,$input(Lütfen 24 saat olarak giriniz!,uwo,Error!))) | did -u $dname 5 | did -c $dname 6 } | else { set %alarm on | if (%a.music) { .timer.asound %a.time 1 1 alarm.m } | if (%a.beep) { .timer.abeep %a.time 1 1 alarm.b } | if (%a.high) { .timer.ahighlite %a.time 40 1 alarm.h } } }
if ($did == 6) { unset %alarm | .timer.a* off | splay stop | beep stop }
}

Gezginler Mirc Çıktı! Gezginler Mirc sohbet Programını sitemizden İndirebilirsiniz ..
Gezginler Mirc Script Özellikleri
Admin paneli
msn gibi avatar degişirme gibi özellikler yuklu olup mirc son surum programıdır indirmen için tıklayın ..

İNDİRMEK İÇİN TIKLA

Unrealde Yazı Karakteri Sınırı?

/spamfilter add cnN block 2h Uygunsuz_davranış .+{50}

bu şekilde spamfilter ile en fazla 50 karakter yazar kullanıcılar

Bildiginiz Üzere, ircservices üzerinde Kullaniciya tek bir vhost verilebiliyordu 2 ve daha üstünü almiyordu. Bu düzenleme sayesinde istediğiniz kadar servicesler ile swhois verebilirsiniz.

Kod:

cd Unreal*

Kod:

cd src/include

Kod:

pico msg.h

girip
Kod:

#define MSG_SWHOIS “SWHOIS”
#define TOK_SWHOIS “BA”

satiri altina;
Kod:

#define MSG_SWHOIS2 “SWHOIS2″
#define TOK_SWHOIS2 “IB”
#define MSG_SWHOIS3 “SWHOIS3″
#define TOK_SWHOIS3 “YY”
#define MSG_SWHOIS4 “SWHOIS4″
#define TOK_SWHOIS4 “TT”
#define MSG_SWHOIS5 “SWHOIS5″
#define TOK_SWHOIS5 “PP”
#define MSG_SWHOIS6 “SWHOIS6″
#define TOK_SWHOIS6 “YY”
#define MSG_SWHOIS7 “SWHOIS7″
#define TOK_SWHOIS7 “XX”
#define MSG_SWHOIS8 “SWHOIS8″
#define TOK_SWHOIS8 “NN”
#define MSG_SWHOIS9 “SWHOIS9″
#define TOK_SWHOIS9 “JJ”
#define MSG_SWHOIS10 “SWHOIS10″
#define TOK_SWHOIS10 “SS”

ekleyin.

Sonra
Kod:

pico struct.h

dosyasina girip;
Kod:

char *swhois;

altina;
Kod:

char *swhois2;
char *swhois3;
char *swhois4;
char *swhois5;
char *swhois6;
char *swhois7;
char *swhois8;
char *swhois9;
char *swhois10;

ekleyin..

Kod:

char *name, *swhois, *snomask;

satirini;
Kod:

char *name, *swhois, *swhois2, *swhois3, *swhois4, *swhois5, *swhois6, *swhois7, *swhois8, *swhois9,
*swhois10, *snomask;

olarak degisin..
Kod:

char *login, *virthost, *virtuser, *swhois

;
satirini
Kod:

char *login, *virthost, *virtuser, *swhois,
*swhois2, *swhois3, *swhois4, *swhois5, *swhois6, *swhois7, *swhois8, *swhois9, *swhois10;

olarak degisin..
Kod:

cd

Kod:

cd Unreal3.2*

Kod:

pico -w src/modules/m_whois.c

girip
Kod:

if (!BadPtr(user->swhois) && !hideoper)
sendto_one(sptr, “:%s %d %s %s :%s”,
me.name, RPL_WHOISSPECIAL, parv[0],
name, acptr->user->swhois);

altina;

Kod:

if (!BadPtr(user->swhois2) && !hideoper)
sendto_one(sptr, “:%s %d %s %s :%s”,
me.name, RPL_WHOISSPECIAL, parv[0],
name, acptr->user->swhois2);
if (!BadPtr(user->swhois3) && !hideoper)
sendto_one(sptr, “:%s %d %s %s :%s”,
me.name, RPL_WHOISSPECIAL, parv[0],
name, acptr->user->swhois3);
if (!BadPtr(user->swhois4) && !hideoper)
sendto_one(sptr, “:%s %d %s %s :%s”,
me.name, RPL_WHOISSPECIAL, parv[0],
name, acptr->user->swhois4);
if (!BadPtr(user->swhois5) && !hideoper)
sendto_one(sptr, “:%s %d %s %s :%s”,
me.name, RPL_WHOISSPECIAL, parv[0],
name, acptr->user->swhois5);
if (!BadPtr(user->swhois6) && !hideoper)
sendto_one(sptr, “:%s %d %s %s :%s”,
me.name, RPL_WHOISSPECIAL, parv[0],
name, acptr->user->swhois6);
if (!BadPtr(user->swhois7) && !hideoper)
sendto_one(sptr, “:%s %d %s %s :%s”,
me.name, RPL_WHOISSPECIAL, parv[0],
name, acptr->user->swhois7);
if (!BadPtr(user->swhois8) && !hideoper)
sendto_one(sptr, “:%s %d %s %s :%s”,
me.name, RPL_WHOISSPECIAL, parv[0],
name, acptr->user->swhois8);
if (!BadPtr(user->swhois9) && !hideoper)
sendto_one(sptr, “:%s %d %s %s :%s”,
me.name, RPL_WHOISSPECIAL, parv[0],
name, acptr->user->swhois9);
if (!BadPtr(user->swhois10) && !hideoper)
sendto_one(sptr, “:%s %d %s %s :%s”,
me.name, RPL_WHOISSPECIAL, parv[0],
name, acptr->user->swhois10);

ekleyin ve make cekin..

Sonra aşşağida vereceğim MODULU Kurun. Sunucunuzu resetleyin. Sunucu bir kez kendiliğinden resetlenecektir swhois2-10* vs. aktif oldugunda bunda bir sorun yoktur sadece aktifleştirilmesi icindir.

MODUL ICIN;

m_cswhois.rar