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

Leo 24 Haziran 2009 05:39

Menu Ban açmak
 
selam arkadaslar Script`e Kanalda Sağ Tıkladiğimda Suresi Dolan Banlari aç şeklinde menu çiksa o menuye Tıkladiğimda 15 dk suresi dolan banlari açsa böle bir kod yapa bilirmiyiz yardim ede bilirmisiniz şimdiden Emeğinize tskrler.

Leo 25 Haziran 2009 09:48

Cevap: Menu Ban açmak
 
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
}




arkadaslar kodda banlar yan yana açiyor xxx #kanalda mode değişti -bbbbb [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu şekil ben ust uste açmak istiyorum bu şekil

[09:34:24] xxx #xxxx kanalında mod değiştirdi: -b [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[09:34:24] xxx #xxx kanalında mod değiştirdi: -b [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[09:34:24] xxx #xxx kanalında mod değiştirdi: -b [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[09:34:24] xxx #xxx kanalında mod değiştirdi: -b [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[09:34:26] xxx#xxx kanalında mod değiştirdi: -b pNdwo!*@*
[09:34:26] xxx#xxx kanalında mod değiştirdi: -b mujdat_hoca!*@*
[09:34:26] xx#xxx kanalında mod değiştirdi: -b MetalsGirl!*@*
[09:34:26] xxx#mynet_xxxt kanalında mod değiştirdi: -b IuIe!*@*

bu şekil istiyorum ne yapmam lazim yardim ede bilirmisiniz

aLieN 26 Haziran 2009 12:46

Cevap: Menu Ban açmak
 
:) ne gerek var bunlara ?

Kod:

alias banla {  ban $+(-u,$?"Lütfen Süre Giriniz.(Saniye)") $1 $address($2,2) }
kodda hiç bir değişiklik yapmayın. kodu ekledikten sonra ;

/banla #kanal nick

yapmanız yeterli.

Leo 26 Haziran 2009 13:02

Cevap: Menu Ban açmak
 
demek istediğim onlineyken script de kanala sağ tıkladiğimda menu çiksin suresi dolan aktif banlari aç! ve yan yana deyil üst sütte açsin anlatmak istediğim buydu


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

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