IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Kanal Kapatma... (https://www.ircforumlari.net/mirc-scripting-sorunlari/20939-kanal-kapatma.html)

Kablosuz NET 14 Temmuz 2006 20:22
Kanal Kapatma...
 
Arkadaşlar Anopede biliyorsunuz kanalı geçici olarak kapatma yok forbidleme var.. Yardımcı olabilirseniz şöyle bi code istiyorum.. #Yönetim Kanalında !kapat #kanal Yazdığımızda Bot o kanala girsin 7 Gün boyunca o kanala başka kimseyi almasın kanala girenleri Ceza Bitim Süresi 6 Gün 15 Saat Gibi Bir Sebeble Kanaldan Atsın...Mantıki Olarak bi txt dosyasına kanalın adını yazdırabiliriz ama Saat olayını çözemiyorum.. Şimdiden yorumlarınız ve paylaşımlarınız için Tşkler...

el33t 14 Temmuz 2006 22:22
Yanıt: Kanal Kapatma...
 
Kod:
on *:text:!& #&:#yönetim:{
  var %* = $+(%,kapali.,$2)
  if $1 == !kapat {
    if $(%*,2) { msg # $2 kanalı $asctime($gettok($v1,1,32),dd/mm/yy hh:nn.ss) tarihinde zaten $+(,$gettok($v1,2,32),) tarafından kapatılmıştı. Açılması için kalan süre: $durx($calc($gettok($v1,1,32) +604800 - $ctime)) }
    else { msg # $2 kanalını $asctime(dd/mm/yy hh:nn.ss) tarihi itibariyle 7 gün süreyle kapatılmıştır. | set $(%*,1) $ctime $nick | join $2 | .timer 1 2 cs akick $2 add *!*@* $2 kanalı $asctime(dd/mm/yy hh:nn.ss) tarihi itibariyle 7 gün süreyle kapatılmıştır. $(|) cs akick $2 enforce | $+(.timer,$2) 1 604800 kanalac $2 }
  }
  elseif $1 == !aç {
    if !$(%*,2) { msg # $+(,$2,) kanalı zaten kapalı değil! }
    else { msg # $+(,$gettok($(%*,2),2,32),) tarafından $asctime($gettok($(%*,2),1,32),dd/mm/yy hh:nn.ss) tarihinde kapatılan $+(,$2,) kanalı şu an itibariyle açıldı. | part $2 | unset $(%*,1) | $+(.timer,$2) off }
  }
  elseif $1 == !durum {
    if !$(%*,2) { msg # $+(,$2,) kanalı kapalı değil! }
    else { msg # $2 kanalı $asctime($gettok($(%*,2),1,32),dd/mm/yy hh:nn.ss) tarihinde $+(,$gettok($(%*,2),2,32),) tarafından kapatılmıştı. Açılması için kalan süre: $durx($calc($gettok($(%*,2),1,32) +604800 - $ctime)) }
  }
}
alias kanalac { var %& = $+(%,kapali.,$1) | if $me ison $1 && $me ison #yönetim && $(%&,2) { msg #yönetim $asctime($gettok($(%&,2),1,32),dd/mm/yy hh:nn.ss) tarihinde $gettok($(%&,2),2,32) tarafından kapatılan $1 kanalı süre dolduğundan kullanıma açıldı! | cs akick $1 del *!*@* | unset $(%&,1) } }
alias -l durx { return $replace($duration($1),days,gün,hrs,saat,mins,dakika,secs,saniye,sec,saniye,day,gün,hr,saat,min,dakika) }

Kablosuz NET 15 Temmuz 2006 01:07
Yanıt: Kanal Kapatma...
 
Eline koluna sağlık komut çok güzel.. ancak bizim Türk milleti herşeyin bi açığını bulucak ya botun attığı akicki siliyor kanal normale dönüyor kanalda oplar vs.. durabiliyor... Akick yerine bot o kanalda dursun geleni atsın founderde gelse kullanamaz atılır kanaldan.. Birde script kapanıp açılınca geri kapalı kanallara nasıl girebilir... Yardımların için Çok teşekkürler.

NaTSuKa 15 Temmuz 2006 12:44
Yanıt: Kanal Kapatma...
 
Kod:
on *:text:*:#yönetim: {
  if !kapat == $1 {
  if ($istok(%kkanal,$2,32) == $true) {
  msg #yönetim Bu kanal zaten kapalı... Daha nasıl kapatmayı düşünüyorsun !
  } else {
    set %kkanal $addtok(%kkanal,$2,32)
    sajoin $2
    mode $2 +o $me
  .timer 1 $calc(7 * 86400) $remtok(%kkanal,$2,32)
  .timer 1 $calc(7 * 86400)  part $2
    }
    }
      }
on *:text:*:#yönetim: {
  if !kanalac == $1 {
  if ($istok(%kkanal,$2,32) == $true) {
  .set %kkanal $remtok(%kkanal,$2,32)
  .part $2
  } else {
  msg #yönetim Bu kanal Zaten Açık , amacın nedir !!
  }
    }
    }
on *:join:#:  {
  if $chan == #yönetim {
    halt
  }
  kick # $nick bu kanal yönetim tarafından kapatılmıstır.
  }
on *:kick:#: {
if $knick == $me {
sajoin $chan
mode $chan +o $me
}
}
on *:deop:#: {
 if $opnick == $me {
 mode $chan +o $me
}
}
bunu dene :) belki çalışır... Ben denemedim...

#yöetim kanalına;

!kapat #kanaladı << kanalı 7 g&#252;n kapatyır ve kanala giren herkezi atar
!kanalac #kanaladı << kapalı kanalı a&#231;ar

Ben anope services'i hi&#231; kullanmadım o y&#252;zden tarih ve saati kick sebebi yapamadım...

Kablosuz NET 15 Temmuz 2006 21:18
Yanıt: Kanal Kapatma...
 
natsuka kodu denedim çok güzel çalışıyor ama bu genel bi bot global odalarda opta duruyordu o odalarıda kapattı :)

NaTSuKa 15 Temmuz 2006 23:09
Yanıt: Kanal Kapatma...
 
haa o zaman şu kodu degiştir...

Kod:

on *:join:#:  {
  if $chan == #yönetim {
    halt
  }
  kick # $nick bu kanal yönetim tarafından kapatılmıstır.
  }
bu kodu bunun ile degiştir...

Kod:
on *:join:#:  {
 if $chan == #yönetim {
  halt
 }
  if $chan == #globalkanal1 {
  halt
 }
  if $chan == #globalkanal2 {
  halt
}
  kick # $nick bu kanal yönetim tarafından kapatılmıstır.
  }
şeklinde çogaltabilirsin...

kolay gelsin :)

diEfoRyoU 16 Temmuz 2006 00:43
Yanıt: Kanal Kapatma...
 
Yada;
Kod:

on !@*:join:#: { if !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,#,32) { ban -k # $nick 2 kapali kanal } }
Yapabilirsin ;)
yada :)
Kod:

on !@*:join:#: { if $istok(%kkanal,#,32) { ban -k # $nick 2 yasak kanal } }
Umarım işine yarar.

NaTSuKa 16 Temmuz 2006 15:59
Yanıt: Kanal Kapatma...
 
Ben bu kodun mantıgında biraz oynama yaptım ve şu şekilde oldu...
!kapat #kanaladı SEBEB

fakat kod da k&#252;&#231;&#252;k bir hata var &#252;statlar onada bir el atsın kodun tamamını en sona yazıyorum hataları yazayım...

şimdi y&#246;netim kanalına !kapat #sohbet Clone yazıldıgında kanal adını
%kkanal degişkenine setliyor sebebinide %#sohbet adında her kanal i&#231;in bir degişken olup sebebi ve kapatanı o degişkene setliyor kanala kim gelirsede o degişkende yazanlar ile atıyor....

fakat hata şurda :)

ben sohbet kanalını kapattıgımda beni şu sebeb ile atıyor...

#Sohbet kanalından atıldınız atan kişi BOT sebeb (kapalı: %#sohbet)


degişkenin i&#231;indeki bilgilerde aşagıda;

%#sohbet Clone Kapatan: NaTSuKa

yani sohbet kanalının kick sebebiClone Kapatan: NaTSuKa olması gerekirken %#sohbet oluyor :)

hata şurada;
Kod:
on *:join:#:  {
  if ($istok(%kkanal,$chan,32) == $true) {
  kick # $nick Kapalı: % $+ $chan << BURADA set degerinin i&#231;indeki bilgileri yazmıyor ismini veriyor...
} else {
halt
}
}
Yani degişkendeki bilgileri yazmıyor direk degişkenin adını yazıyor.... buradaki hatayı d&#252;zeltirseniz sevinirim ben &#231;&#246;zemedim valla &#231;okta merak ediyorum nasıl olacagını...

tam kod;

Kod:
on *:text:*:#y&#246;netim: {
  if !kapar == $1 {
  if ($istok(%kkanal,$2,32) == $true) {
  msg #y&#246;netim Bu kanal zaten kapalı...
} else {
  set %kkanal $addtok(%kkanal,$2,32)
  set % $+ $2 $3- 4Kapatan: 12$nick
  sajoin $2
  mode +o $me
  .timer 1 $calc(7 * 86400) $remtok(%kkanal,$2,32)
  .timer 1 $calc(7 * 86400) part $2
  .timer 1 $calc(7 * 86400) unset % $+ $2
  }
 }
}
on *:text:*:#y&#246;netim: {
  if !kanalac == $1 {
  if ($istok(%kkanal,$2,32) == $true) {
  unset % $+ $2
  .set %kkanal $remtok(%kkanal,$2,32)
  .part $2
  } else {
  msg #y&#246;netim Bu kanal Zaten A&#231;ık , amacın nedir !!
  }
 }
}
on *:join:#:  {
  if ($istok(%kkanal,$chan,32) == $true) {
  kick # $nick Kapalı: % $+ $chan
} else {
halt
}
}
on *:kick:#: {
if $knick == $me {
sajoin $chan
mode $chan +o $me
}
}
on *:deop:#: {
 if $opnick == $me {
 mode $chan +o $me
}
}

LoGoS 09 Ağustos 2006 19:03
Yanıt: Kanal Kapatma...
 
Suan Bu komutu denedım ancak butun kanalları kapattı...!kanalac #kanaladı olarak kanalları acmayı denıyorum acmıyor yardımcı olurmusunuz acıl olarak acaba
???

NaTSuKa 09 Ağustos 2006 19:46
Yanıt: Kanal Kapatma...
 
Kod:
on *:text:*:#y&#246;netim: {
  if !kapat == $1 {
    if $istok(%kkanal,$2,32) == $true) {
      msg #y&#246;netim Kardeşim bu kanal zaten kapalı ;)
      halt
    }
    else {
      set %kkanal $addtok(%kkanal,$2,32)
      write kkanal.txt $2 $4- 4Kaptan:12 $nick
      write timechan.txt $2 $3
      sajoin $2
      samode $2 +o $me
    }
  }
}
on *:join:#:  {
  if ($istok(%kkanal,$chan,32) == $true) {
    if $nick != $me {
      if $read(kkanal.txt,s,#) {
        ban -k # $nick $v1
      }
    }
  }
}
Kod:
on *:text:*:#y&#246;netim: {
  if !kanalac == $1 {
    if ($istok(%kkanal,$2,32) == $true) {
      .set %kkanal $remtok(%kkanal,$2,32)
      .part $2
      ksil $2 $+ *
      kssil $2 $+ *
    }
  else {
  msg #y&#246;netim Bu kanal zaten a&#231;ık...
  }
}
Kod:
alias xyzchan  {
  var %p 1
  var %k $lines(timechan.txt) 
  while %p <= %k  {
    if * $+ $date $+ * iswm $read(timechan.txt,%p)  {
      part $gettok($read(timechan.txt,%p),1,32)
      ksil $gettok($read(timechan.txt,%p),1,32) $+ *
      kssil $gettok($read(timechan.txt,%p),1,32) $+ *
      set %kkanal $remtok(%kkanal,$gettok($read(timechan.txt,%p),1,32),32)
      inc %p
    }
    else {
      inc %p
    }
  }
}
Kod:
alias ksil {
  while $read(timechan.txt,w,$$1) {
    write $+(-dw,$1) timechan.txt
  }
}
alias kssil {
  while $read(kkanal.txt,w,$$1) {
    write $+(-dw,$1) kkanal.txt
  }
}
Kod:
on *:connect:  {
  .timer 0 3600 xyzchan
  .timer 1 5 girkanal
}
alias girkanal {
  var %^ 1
  var %&#163; $numtok(%kkanal,32)
  while %^ <= %&#163; {
    sajoin $gettok(%kkanal,%^,32)
    samode $gettok(%kkanal,%^,32) +o $me
    inc %^
  }
}

&#199;alışma şekli:
#y&#246;netim kanalı geneline

!kapat A&#199;ILMAS&#220;RESİ sebeb
!kapat 15/09/2006 Reklam yapmak yasak << bu kanal 15/09/2006 tarihinde a&#231;ılacak otamatik

!kanalac #kanaladi << buda kapalı kanalı a&#231;ar...


al sana kodları... Bu kod &#231;alışıyor... bunları ayrı ayrı remotelere koy sorunsuz bir şekilde &#231;alışacaktır.. b1 , b2 ,b3 , b4 ,b5 diye remotelere koy soursnsuz &#231;alışıyor...

Kapatılan kanalları hafısasına alıp hangi sebebten ve kim tarafından kapatıldıysa o sebeb ile kanala girenleri kickliyor...

Mirc kapatıp a&#231;san bile kapalı kanallara otamatik giriyor ve zamanı geldiginde kanalalı a&#231;ıyor....


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 00:16.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net