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

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

- - Güncel List (https://www.ircforumlari.net/mirc-scripting-sorunlari/767579-list.html)

Selam. asagıda ki list komutunda küfür listesini alt alta gösteriyor.
bunu birde rakam olarak gösterebilmemiz mümkün mü acaba?
örnek küfür listesinde toplam 50 adet mask ekli seklinde birsey.

elseif $1 == list {
echo $colour(notice) -a 1*** 4Küfür1 listeleniyor ***
var %x = 1
while (%x <= $hget(kufur,0).item) {
echo -a %x 4 $+ -) $hget(kufur,%x).data
inc %x
}
echo $colour(notice) -a 1*** 4Küfür1 list sonu ***
}
}

bunda ise muaf eklemek istedigim zaman muaf unknow command uyarısı cıkıyor. hata varmı acaba?
..Ekle:muaf ekle $$?" $+ $me Ip Adresi Giriniz. $str($crlf,2) $+ Wildcard kullanabilirsiniz. 78.21.* seklin de ekleme yapabilirsiniz."

Merhaba,

Kod:

//echo -a $hget(kufur,0).item

Bu size kufur tablosunda kaç tane mask varsa sayıyı verir.

Kod:

elseif $1 == list {

  if !$hget(kufur,0).item { echo -a Küfür listesi boş.. | return }

  echo $colour(notice) -a 1*** 4Küfür1 listeleniyor ***

  echo $colour(notice) -a Toplam mask: $hget(kufur,0).item

  echo $colour(notice) -a -

  var %x = 1 | while (%x <= $hget(kufur,0).item) { 

    echo -a %x 4 $+ -) $hget(kufur,%x).data 

    inc %x 

  }

  echo $colour(notice) -a 1*** 4Küfür1 list sonu ***

}

2. Olarak "muaf unknow command"

Muaf alias'ı mirciniz de bulunmamakta onun uyarısını veriyor.

Toprak öncelikle tşk. ederim.
muaf eklemek istedigimiz kodun tamamı bu.
Alias'a nasıl bi ekleme yapmalıyız ki muaf ip ekleyebilelim?
yani alias kısmına eklememiz gereken komut nedir acaba onu bilmiyoruz

menu * {
.-
.Proxy Koruması
.-
..-
..Proxy
...Durum $+($chr(40),$iif($group(#Proxy) = On,Acik,Kapali),$chr(41)):echo 3 -a *** Proxy Koruması $iif($group(#Proxy) = On,Acik,Kapali) Durumda.
...-
...Ac:.enable #Proxy | Echo 3 -a *** Proxy Koruması acilmistir.
...Kapat:.disable #Proxy | echo 3 -a *** Proxy korumasi kapatilmistir.
...-
.Proxy Muaf
..Proxy Muaf $+($chr(40),IP,$chr(32),$hget(pm,0).item,$chr(41)) :echo 3 -a *** Proxy muaf listesinde toplam $hget(pm,0).item IP adresi vardir.
..-
..Ekle:muaf ekle $$?" $+ $me Ip Adresi Giriniz. $str($crlf,2) $+ Wildcard kullanabilirsiniz. 78.21.* seklin de ekleme yapabilirsiniz."
..Sil:Muaf sil $$?"Silmek istediginiz IP adresini yaziniz."
..-
..Liste:Muaf liste
.-
.Proxy Tara:Who +I *
}

#Proxy off
on *:snotice:*Client connecting*:.who +I $token($token($4-,2,58),1,32)
raw 352:*:{
var %:r $+($left($md5($ticks),$r(5,20)),$6)
sockopen $+(proxy,%:r) toprak.xyz 80
sockmark $+(proxy,%:r) $+($4,¿,$6)
}
on *:sockopen:proxy*:{
sockwrite -nt $sockname GET $+(/?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
sockwrite -nt $sockname Accept-Language: tr-TR
sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
sockwrite -nt $sockname Connection: Keep-Alive
sockwrite -nt $sockname $crlf
}
on *:sockread:proxy*:{
if ($sockerr) { .sockclose $sockname | return }
var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy
if $regex($1-,/numaral[ıiİ] [Iİi]P proxy\'dir/i) {
gline $+(*@,$token($sock($sockname).mark,1,191)) +5h Proxy Yasak.. $+([,$token($1-,2,45),])
$iif($chan(#BotKontrol),msg #BotKontrol (4PROXY GİRİŞ) $regsubex($token($token($1-,2,62),1,60),/(\d+\.\d+\.\d+\.\d+)/,$+($chr(2),\1,$chr(2))))
sockclose $sockname
return
}
}
#Proxy end

Dediğim gibi kodlarda muaf alias'ı bulunmamakta ek olarak kod üzerinde herhangi bir muaf işlemi eklenmemiş muaf eklemesi yapsanız bile kod bu muaf işlemini tanımayacaktır =) ve toprak.xyz sitesini kapattığım için kod çalışmayacaktır.