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/)
-   -   oto ban açmak (https://www.ircforumlari.net/mirc-scripting-sorunlari/269077-oto-ban-acmak.html)

Leo 05 Ekim 2009 22:41

oto ban açmak
 
selam arkadaslar mirc e otomatik ban açmasi için bir addon eklemek istemiştim 15 dk suresi dolan banlari otomatik açacak nasil yapa bilirim?

Lucifer 05 Ekim 2009 23:47

Cevap: oto ban açmak
 
Kod:


raw 367:*: {
  var %
sure $ctime - $5
 
if %sure >= 750 {
   
inc %c.say
    hadd c
.temp $+(ip.,%c.say) $3
 
}
}
raw 368:*: {
  if (%
c.say >= 1) {
   
c.unban $2
 
}
}
alias c.unban {
  var %
bc $1
 
if (!$hget(c.temp,0).item) { halt }
  if (
$hget(c.temp,0).item >= 10) { var %s = 10 }
  else { var %
s = $hget(c.temp,0).item }
  var %
i = 1,%c
 
while (%i <= %s) {
    %
c = $addtok(%c,$hget(c.temp,$hget(c.temp,1).item),32)
   
hdel c.temp $hget(c.temp,1).item
    inc
%i
 
}
 
mode  %bc - $+ $str(b,%s) %c
 
.timer -h 1 1 c.unban %bc
}
on *:start: ilk
alias ilk
{
  if (!
$hget(c.temp)) { hmake c.temp 1000 }
  else {
hfree c.temp | hmake c.temp 1000 }
 
set %c.say 0
}
menu * {
 
Aktif Kanalda Süresi Dolan Banlari Ac! : mode $chan +b
}
on *:join:#: {
 
if $nick == $me {
   
write chan.txt $chan
 
}
}
on *: part:#: {
 
if $nick == $me {
   
write -ds $chan chan.txt
 
}
}
alias sureunban {
  var %
chansfile = chan.txt
 
var %line = 1, %total = $lines(%chansfile)
  while (%
line <= %total) {
    var %
data = $read -l $+ %line %chansfile
   
if (%data != $null) {
     
_queue mode %data +b
   
}
   
inc %line
    inc
%sur
 
}
  %
names.enddata = %data
}
alias _queue {
 
inc %queue.count
 
if ($timer(.queue) == $null) {
   
hadd -m queue count 1
    hadd
-m queue 1 $1-
   
_doqueue 1
 
}
  else {
    var %
queue.count = $calc($hget(queue,count) + 1)
   
hadd -m queue %queue.count $1-
   
hadd -m queue count %queue.count
 
}
}
alias _doqueue {
  if (
$hget(queue,$1) != $null) {
    .
timer.queue -m 1 $calc((4 - $gettok(3 2 1,$1,32)) * 500) _doqueue $calc($1 + 1)
   
$ifmatch
   
.hdel -s queue $1
 
}
  else
hfree queue



Pentagram 06 Ekim 2009 00:07

Cevap: oto ban açmak
 
Pek anlamam kodlardan felan ama vakti zamanında lazım olduğu için elimde şöyle bir kod var.daha kısa bir şey hem.işini görür mü bilmiyorum ama benim işimi görüyordu.süresi konusunda bir bilgim yok ama.Buyur:

Kod:

on @*:ban:#kanaladı: /mode $chan -b $2
daha kullanışlı gibi bir üstteki kullanıcının verdiği koddan.birden fazla kanal için yapabilirsin ayrı ayrı ama.tabi ayne kodda birden fazla kanalı belirtmek mümkündür ama dedim ya o kadarını anlamadığım için ben her kanal için ayrı ayrı yapıyordum :))). kodu eklemen yeterlidir o kendisi süresi geldiğinde otomatik açıyor banları.senin her hangi bir işlem yapmana gerek yok ayrıca.

Voltage 06 Ekim 2009 00:55

Cevap: oto ban açmak
 
on @*:ban:#: .timer 1 900 mode $chan -b $2

Şu şekilde yaparsan atılan banları 15 dakika içerisinde açar.

Gulsum 05 Eylül 2012 22:40

Cevap: oto ban açmak
 
merhaba belirlediğim kanala girip op olduğumda ban liste bakıp süresi 15 dakka ve üstü olan banları acıp vede kanala girdiğim o dakikadan itibaren atılan her banı 15 dakka sonra geri acıcak bi cod varmı elinizde, paylaşabilirmisiniz.

Mudin 05 Eylül 2012 23:03

Cevap: oto ban açmak
 
Kod:


alias kontrol {
  var %1 1
  while %1 <= $ibl($1,0) {
    var %time $calc($gettok($time,2,58) -  $gettok($time($ibl($1,%1).ctime),2,58))
    if %time >= 15 {
      mode $1 -b $ibl($1,%1)
    }
    inc %1
  }
}

on *:op:#:kontrol #
on *:ban:#:{
  if $count($nick(#,$me).pnick,@,%) {
  if ($1 == +b  && $nick != $me) {
    $+(.timer,#,$2) 1 900 mode # -b $2-
  }
 }
}


Mudin 05 Eylül 2012 23:27

Cevap: oto ban açmak
 
Alabilirsin

Cpu 06 Eylül 2012 14:53

Cevap: oto ban açmak
 
Kod:

on @*:BAN:#:{
  if $ibl(#,0) >= 45 {
    echo 4 -a $+([,#,]) kanalı ban listesinde 45'den fazla kişi var, ilk 30 ban açılıyor.
    var %s = $ibl(#,0), %y = $calc($ibl(#,0) - 30) | while %s >= %y { %' = $addtok(%',$ibl(#,%s),32) | dec %s } | while %' { mode # $+(-,$str(b,6))} $gettok(%',1-6,32) | %' = $deltok(%',1-6,32) }
  }
}


Bende de böyle bir kod var 45 banda ilk atılan banların 30 unu açar son atılan banları kaldırmaz.


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

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