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ün kapatyır ve kanala giren herkezi atar
!kanalac #kanaladı << kapalı kanalı açar

Ben anope services'i hiç kullanmadım o yü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üçük bir hata var üstatlar onada bir el atsın kodun tamamını en sona yazıyorum hataları yazayım...

şimdi yönetim kanalına !kapat #sohbet Clone yazıldıgında kanal adını
%kkanal degişkenine setliyor sebebinide %#sohbet adında her kanal iç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ç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çindeki bilgileri yazmıyor ismini veriyor...
} else {
halt
}
}
Yani degişkendeki bilgileri yazmıyor direk degişkenin adını yazıyor.... buradaki hatayı düzeltirseniz sevinirim ben çözemedim valla çokta merak ediyorum nasıl olacagını...

tam kod;

Kod:
on *:text:*:#yönetim: {
  if !kapar == $1 {
  if ($istok(%kkanal,$2,32) == $true) {
  msg #yö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önetim: {
  if !kanalac == $1 {
  if ($istok(%kkanal,$2,32) == $true) {
  unset % $+ $2
  .set %kkanal $remtok(%kkanal,$2,32)
  .part $2
  } else {
  msg #yönetim Bu kanal Zaten Açı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önetim: {
  if !kapat == $1 {
    if $istok(%kkanal,$2,32) == $true) {
      msg #yö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ö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önetim Bu kanal zaten açı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 %£ $numtok(%kkanal,32)
  while %^ <= %£ {
    sajoin $gettok(%kkanal,%^,32)
    samode $gettok(%kkanal,%^,32) +o $me
    inc %^
  }
}

Çalışma şekli:
#yönetim kanalı geneline

!kapat AÇILMASÜRESİ sebeb
!kapat 15/09/2006 Reklam yapmak yasak << bu kanal 15/09/2006 tarihinde açılacak otamatik

!kanalac #kanaladi << buda kapalı kanalı açar...


al sana kodları... Bu kod çalışıyor... bunları ayrı ayrı remotelere koy sorunsuz bir şekilde çalışacaktır.. b1 , b2 ,b3 , b4 ,b5 diye remotelere koy soursnsuz ç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çsan bile kapalı kanallara otamatik giriyor ve zamanı geldiginde kanalalı açıyor....


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk