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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - ban açmak (https://www.ircforumlari.net/mirc-scripting-sorunlari/233402-ban-acmak.html)

#unban15mins off
raw 367:*:{
var %zaman = $ctime - $5
if (%zaman > 900) { mode $2 -b $3 }
echo -s %zaman
;halt
}
#unban15mins end
alias sureban {
var %x = 0,%y = $chan(0)
/.enable #unban15mins
while (%x <= %y) {
if $me isop $chan(%x) || o isin $usermode { mode $chan(%x) +b }
inc %x 1
}
.timer 1 10 /.disable #unban15mins
}

bu kodu şöle yapa bilirmiyiz sağ tıkladiğimiz aktif kanalda suresi dolan banlari aç diye menu çikacak menuye tıkladiğimizda 15 dk ban suresi dolan banlari dolanlari açacak tıkladiğim kanalda ?

Cevap: ban açmak

PHP- Kodu:

   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
}

Daha önceden kullandığım bir code, Remotene Ekle, otomatik olarak süresi dolmuş banları açacaktır, iyi forumlar..

Cevap: ban açmak

tesekkurler kardes emeğe saygi

birde şunu sormak istiyorum yapa biliyozmu banlari böle

kanalında mod değiştirdi: -bbbbbbbb açiyor

bu şekil açma şansimiz varmi aşağidaki gibi

kanalında mod değiştirdi: -b
kanalında mod değiştirdi: -b
kanalında mod değiştirdi: -b

bu şekil alt alta yan yana deyilde?

Cevap: ban açmak

alias tamunban {
.disable #sureunban
.enable #tamunban
var %chansfile = chan.txt
var %line = 1, %total = $lines(%chansfile)
while (%line <= %total) {
var %data = $read -l $+ %line %chansfile
if (%data != $null) {
.mode %data +b
}
inc %line
inc %sur
}
%names.enddata = %data
}
#tamunban off
raw 367:*: { .raw mode $2 -b $3 | halt }
#tamunban end
alias sureunban {
.disable #tamunban
.enable #sureunban
var %chansfile = chan.txt
var %line = 1, %total = $lines(%chansfile)
while (%line <= %total) {
var %data = $read -l $+ %line %chansfile
if (%data != $null) {
.mode %data +b
}
inc %line
inc %sur
}
%names.enddata = %data
}
#sureunban on
raw 367:*: {
var %sure
%sure = $ctime - $5
if (%sure >= 899) { mode $2 -b $3 | halt }
else { halt }
}
#sureunban end
menu * {
Aktif Kanalda Süresi Dolan Banlari Ac! : mode $chan +b
}

bu kodişime yariyor fakat ayarladiğim 899 saniyede bir ban açmasi alzim ama 1 saniyelikte ban olsa hemen açiyor sure de bir hata var yardimci ola bilirmisiniz lutfen?