on ^*:snotice:*client*connecting*:{
msg $9 irc.server.com SUNUCUSUNDASINIZ
msg $9 Ben Admininiz $me
msg $9 Lütfen Kurallara Uyunuz
msg $9 Yardım kanalımız #help , adminlerden yardım alma kanalımız #operhelp ‘tir
fjoin $9 #kanal
halt
}

#ozelsistem on
on *:OPEN:?:*: {
msg $nick 12 Merhaba 4 $nick
msg $nick 12 Bugün 4 $date 12ve saat4 $time(HH:nn.ss)
msg $nick 4 $duration($idle) 12 süredir kimseyle konuşmadım.
msg $nick 12 Şu an 4 $+($query(0),.) 12özelsin ve toplamda %q! kişi pencere açtı 4 Sana nasıL yardımcı oLabilirim $nick ?
inc %q!
}
#ozelsistem end

on ^*:snotice:*: { msg #kanaladı $1- | halt }

on @!*:JOIN:#:{
inc -u3 %joins [ $+ $+($cid,$chan) ]
set -u3 %joinsnicks [ $+ $+($cid,$chan) ] $addtok(%joinsnicks [ $+ $+($cid,$chan) ],$nick,32)
if (%joins [ $+ $+($cid,$chan) ] > 4) {
var %x = %joins [ $+ $+($cid,$chan) ]
mode $chan +mRc | .timer 1 30 mode $chan -mRc
while (%x) { if ($gettok(%joinsnicks [ $+ $+($cid,$chan) ],%x,32) ison $chan) { ban -u120 $chan $ifmatch 2 | kick $chan $ifmatch Join Flood } | dec %x }
}
}

on ^1:SNOTICE:*:{
if (exiting isin $1-) {
if (!$window(@Giris/Cikis)) { window -en @Giris/Cikis }
echo 4 -t @Giris/Cikis Çıkış : $1- | halt
}
if (Connecting isin $1-) {
if (!$window(@Giris/Cikis)) { window -en @Giris/Cikis }
echo 3 -t @Giris/Cikis Giriş : $1- | halt
}
halt
}
on ^1:HOTLINK:*.*.*:*:{
if ( $active = #) { halt }
else {
if (@ isin $1) {
$x:CoCoRiCo($1,2)
return $1
}
}
halt
}
on *:HOTLINK:*.*.*:*:{
if ($active = #) { halt }
else {
if (@ isin $1) {
$x:CoCoRiCo($1,1)
}
}
}

alias -l X:CoCoRiCo {
if ($2 = 1 ) {
var %q $mid($1,$pos($1,@),$len($1))
var %x $calc($len(%q) – 1 )
;S:ban secenegi (Kline)
.Kline $+(*,$left(%q,%x))
echo 4:lined ip $+(*,$left(%q,%x))
}
if ($2 = 2 ) {
var %q $mid($1,$pos($1,@),$len($1))
var %x $calc($len(%q) – 1 )
Titlebar: K:LINED EDILECEK! $+(*,$left(%q,%x))
}
}

(alıntı)

on ^*:snotice:*: {
if (who isin $1-) { .msg $2 Nasıl yardımcı olabilirim.! }
}

Remoteye koyunuz

#Ban-Enforcer on
on @*:ban:#: {
  if ($banmask !iswm $address($me,5)) {
    var %_banX = 0
    var %_banTotal = $ialchan($banmask,#,0)
    while (%_banX < %_banTotal) {
      inc %_banX
      kick # $ialchan($banmask,#,%_banX).nick 4ßan Adress   2  $+ $banmask $+  4) ~4 banLayan  2  $+ $nick $+  4) Tarafından  ßanLandı! %logo
    }
  }
}
#Ban-Enforcer end

alias logs {
  window -aekl21S @Log Verdana 12
  .titlebar @Log Dosyaları ...
  editbox @Log Ekranda arama yapacağınız kelimeyi buraya girin...
  echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
  echo 12 @Log Görüntülemek istediğiniz dosyayı seçin.
}
menu @Log {
  lbclick:{
    clear @Log | loadbuf @Log $+($shortfn($logdir),$line(@Log,$1,1))
    window -b @Log
  }
  $iif(!$sline(@Log,0),$style(2)) İşlem
  .Bilgi: {
    aline @Log $str(-,5)
    aline @Log 4Dosya bilgileri...
    aline @Log 2Boyutu     :7 $bytes($file($+($logdir,$$1)).size).suf
    aline @Log 2Dosya Adı  :7 $$1
    aline @Log 2Dosya Yolu :7 $logdir $+ $$1
    aline @Log 2İlk oturum :7 $replace($asctime($file($+($logdir,$$1)).ctime),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,Şubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık)
    aline @Log 2Son kapanış:7 $replace($asctime($file($+($logdir,$$1)).mtime),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,Şubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık)
    aline @Log $str(-,5)
  }
  .Listeden Çıkar:dline -l @Log $sline(@Log,1).ln
  .Tamamen Sil:{
    clear @Log
    .remove $+($shortfn($logdir),$$1)
    echo 4 @Log $$1 dosyası silindi.
    dline -l @Log $sline(@Log,1).ln
  }
  .Dosya Arama: {
    var %t = $$?="Aranacak kelimeyi girin"
    if $findfile($logdir,$+(*,%t,*).log,0) {
      clear @Log
      clear -l @Log
      echo 5 @Log $findfile($logdir,$+(*,%t,*).log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
    }
    else { clear @Log | echo 4 @Log Arama kayıtlarında $qt(%t) bulunamadı... }
  }
  .Tüm Liste:clear @Log | clear -l @Log | echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
}
on *:input:@Log:{
  if $left($1,1) == / { return }
  if $fline(@Log,$+(*,$1-,*),0) {
    aline 3 @Log || Arama yapılıyor ||
    var %Jenk = 1, %' = ||
    while %Jenk <= $fline(@Log,$+(*,$1-,*),0) {
      if ($mid($fline(@Log,$+(*,$1-,*),%Jenk).text,1,2) != %') {
        aline -p @Log || $+ $fline(@Log,$+(*,$1-,*),%Jenk).text
      }
      inc %Jenk
    }
    aline 5 @log || Arama sona erdi ||
  }
  else { aline 4 @Log || Arama kaydı bulunamadı || }
}

Scriptinizin remote kısmına ekledikten sonra /logs yapmanız yeterlidir.

alias ac { dialog -m notify notify }
dialog notify {
  title "mIRC Notify Addon"
  size -1 -1 116 58
  option dbu
  text "Nick", 1, 5 10 25 8
  edit "", 3, 33 9 78 10
  box "Notify", 2, 2 1 113 23
  button "Ekle", 4, 15 27 37 12
  button "Çıkar", 5, 57 27 37 12
  button "Listele", 6, 35 41 37 12
}
on *:Dialog:notify:sclick:4:{ notify $did(3) | gload notify }
on *:dialog:notify:Sclick:5:{ notify -r $did(3) }
on *:Dialog:notify:Sclick:6:{ notify -l }
on *:notify:{ gtalk -k notify Notify Listenizde Bulunan $nick Şu Anda Servere Giriş Yaptı !

Kullanım şekli: /loadbar [title-name] [red|blue|green|grey|yellow|orange] [load speed] [loadtext1+loadtext2+3../max 5 loadtext])

Örnek: /loadbar Başlık-ismi.(title) grey 20 Birinci text+İkinci text+Üçüncü text+Dördüncü text+Beşinci text

Kodun Tamamı İçin Devam’ı Tıklayınız.

alias loadbar {
  var %echo = (/loadbar [title-name] [red|blue|green|grey|yellow|orange] [load speed] [loadtext1+loadtext2+3../max 5 loadtext])
  if ($regex($1-,/\s/g) < 3) { echo $color(info) -e */loadbar: Hatalı veya eksik kullanım. %echo | halt }
  $iif($window(@loadbar),window -c @loadbar) | unset %load | clr $2
  set %fill $hget($2,fill) | set %rect $hget($2,rect) | set %ptitle $hget($2,title) | set %clr $2
  window -aCpdhBk0 +d @loadbar 0 0 220 65 | window -a @loadbar | drawfill -r @loadbar %fill %fill 0 0
  drawrect -r @loadbar %rect 2 0 0 220 65 0 0 220 17 7 37 206 22 | drawrect -rf @loadbar %ptitle 1 2 2 216 13
  drawtext -rbo @loadbar %fill %ptitle Arial 9 5 3 $ll($regsubex($1,/-/g,$chr(32))) | drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = x
  .timerload -m 200 $3 inc %load $(|) drawrect -rf @loadbar %ptitle 1 10 40 $!(%load,2) 16 $(|) drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $!+(Load,$chr(40),%,$round($calc($(%load,2) /2),0),$chr(41)) $(|) txt %clr $4-
}
alias -l clr {
  if ($regex(red,$1)) { hadd -m red fill $rgb(169,14,21) | hadd -m red rect $rgb(43,0,14) | hadd -m red title $rgb(60,0,13) }
  if ($regex(blue,$1)) { hadd -m blue fill $rgb(30,72,240) | hadd -m blue rect $rgb(5,20,78) | hadd -m blue title $rgb(9,33,132) }
  if ($regex(green,$1)) { hadd -m green fill $rgb(0,200,0) | hadd -m green rect $rgb(0,35,0) | hadd -m green title $rgb(0,60,0) }
  if ($regex(grey,$1)) { hadd -m grey fill $rgb(85,85,85) | hadd -m grey rect $rgb(25,25,25) | hadd -m grey title $rgb(50,50,50) }
  if ($regex(yellow,$1)) { hadd -m yellow fill $rgb(255,255,0) | hadd -m yellow rect $rgb(85,85,0) | hadd -m yellow title $rgb(105,105,0) }
  if ($regex(orange,$1)) { hadd -m orange fill $rgb(255,128,0) | hadd -m orange rect $rgb(66,33,0) | hadd -m orange title $rgb(128,64,0) }
}
alias -l ll var %t = $iif($len($1-) >= 29,$+($left($1-,28),..),$1-) | var %tt = $regsubex(%t,/(?<=^)(.)/g,$upper(\1)) | return %tt
alias -l mse if ($mouse.x >= $gettok($1,1,45) && $mouse.x < $gettok($1,2,45)) && ($mouse.y >= $gettok($1,3,45) && $mouse.y < $gettok($1,4,45)) return $true
alias -l txt {
  var %:- = $timer(load).reps
  if ($regex(%:-,^190$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t1 $gettok($2-,1,43) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t1) }
  if ($regex(%:-,^140$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t2 $iif(!$gettok($2-,2,43),%t1,$gettok($2-,2,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t2) }
  if ($regex(%:-,^90$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t3 $iif(!$gettok($2-,3,43),%t2,$gettok($2-,3,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t3) }
  if ($regex(%:-,^50$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t4 $iif(!$gettok($2-,4,43),%t3,$gettok($2-,4,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t4) }
  if ($regex(%:-,^10$)) { drawrect -rf @loadbar %fill 1 62 20 148 15 | set -e %t5 $iif(!$gettok($2-,5,43),%t4,$gettok($2-,5,43)) | drawtext -rb @loadbar %rect %fill Arial 9 62 22 $ll(%t5) }
  if ($regex(%:-,^0$)) .timer 1 1 drawtext -rbo @loadbar %rect %fill Arial 9 7 22 $+(Veriler başarıyla yüklendi.,$str($chr(160),30)) $(|) unset %t1 %t2 %t3 %t4 %t5 $(|) .timercls 1 3 window -c @loadbar
}
on *:close:@loadbar:$iif($timer(cls),.timercls off)
menu @loadbar {
  sclick:$iif($mse(202-207-4-9),window -n @loadbar) | if ($mse(209-216-4-11)) window -c @loadbar | .timerload off
  mouse: {
    $iif($mse(202-207-4-9),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 202 2 =,drawtext -rb @loadbar %fill %ptitle Arial 9 202 2 = $+(x,$chr(160)))
    $iif($mse(209-216-4-11),drawtext -rbo @loadbar $rgb(255,255,255) %ptitle Arial 10 210 2 x)
  }
}