![]() |
| mIRC Scripting Sorunları - Yardım mIRC Scripting ile ilgili sorunlariniza ait güncel yanıtlara bu başlık altından ulaşabilirsiniz. |
| | Seçenekler | Stil |
| | #11 | |
| Alıntı:
Bir öneri de benden, $read tanımının r parameters ile daha tutarlı nick eşleşme-yakalama yapabilirsin. r = regular expressions Cepten yazdığım için örnek veremiyorum. Kolay gelsin. 👍 1
________________ The Ghost of Christmas Past.. i'm here sometimes | ||
| |
| | #12 | |
| Alıntı:
| ||
| |
| | #13 | ||
| Alıntı:
Alıntı:
Merhaba Feragat üstat o dediğini tam anlayamadım. Kusura bakma. | |||
| |
| | #14 | |
| Alıntı:
Kodon *:join:#Karantina:{
var %dosya = yasaknickler.txt
if (!$isfile(%dosya)) return
var %nick = $lower($replace($nick,ç,c,Ç,c,ğ,g,Ğ,g,ı,i,İ,i,ö,o,Ö,o,ş,s,Ş,s,ü,u,Ü,u))
var %say = 1, %bulundu, %yasak
while (%say <= $lines(%dosya)) {
%yasak = $read(%dosya,n,%say)
if (%yasak != $null) {
if ($pos(%nick,%yasak,1)) {
%bulundu = %yasak
break
}
}
inc %say
}
if (%bulundu != $null) {
$+(.timer,-at-,$nick) 1 10 gzline $nick - Yasak Nick
}
}
on *:text:*:#Log:{
if ($nick != NickServ) return
if $regex($1-,/ile sisteme login oldu/Si) {
if $timer($+(-at-,$strip($4))) {
$+(.timer,-at-,$strip($4)) off
}
}
} yasaknickler.txt dosyanıza verileri türkçe karakter kullanmadan ekleyin. Örneğin fısıltı kelimesini fisilti şeklinde ekleyin. İyi forumlar. | ||
| |
| | #15 | |
| Alıntı:
| ||
| |
| | #16 | |
| Alıntı:
kırmızı ile işaretli satırların birisi gline birisi shun atmak için kapatmak istediğinizin başına ; işareti koyunuz. Kod#otozline on
on *:join:#Karantina:{
var %dosya = yasaknickler.txt
if (!$isfile(%dosya)) return
var %nick = $lower($replace($nick,ç,c,Ç,c,ğ,g,Ğ,g,ı,i,İ,i,ö,o,Ö,o,ş,s,Ş,s,ü,u,Ü,u))
var %say = 1, %bulundu, %yasak
while (%say <= $lines(%dosya)) {
%yasak = $read(%dosya,n,%say)
if (%yasak != $null) {
if ($pos(%nick,%yasak,1)) {
%bulundu = %yasak
break
}
}
inc %say
}
if (%bulundu != $null) {
;$+(.timer,-at-,$nick) 1 10 gzline $nick - Yasak Nick
$+(.timer,-at-,$nick) 1 10 shun $nick - Yasak Nick
}
}
on *:text:*:#Log:{
if ($nick != NickServ) return
if $regex($1-,/ile sisteme login oldu/Si) {
if $timer($+(-at-,$strip($4))) {
$+(.timer,-at-,$strip($4)) off
}
}
}
#otozline end Kod[ » mIRC Menu « ] Oto Zline .Aç:/enable #otozline .Kapat:/disable #otozline - ![]() görseldeki gibi mircinizin en üst kısmındaki menübar a bu şekilde menü gelecektir. aç kapat yapabilirsiniz. 👍 1 | ||
| |
| | #17 | |
| Alıntı:
Bunu içine entegre edebilir miyiz. Nick ve ident aynı ise Shun atması için ? | ||
| |
| | #18 | |
| Alıntı:
Kod#otozline on
on *:join:#Karantina:{
var %dosya = yasaknickler.txt
if (!$isfile(%dosya)) return
var %nick = $lower($replace($nick,ç,c,Ç,c,ğ,g,Ğ,g,ı,i,İ,i,ö,o,Ö,o,ş,s,Ş,s,ü,u,Ü,u))
var %say = 1, %bulundu, %yasak
while (%say <= $lines(%dosya)) {
%yasak = $read(%dosya,n,%say)
if (%yasak != $null) {
if ($pos(%nick,%yasak,1)) {
%bulundu = %yasak
break
}
}
inc %say
}
if (%bulundu != $null) {
;$+(.timer,-at-,$nick) 1 10 gzline $nick - Yasak Nick
$+(.timer,-at-,$nick) 1 10 shun $nick - Yasak Nick
}
}
on *:text:*:#Log:{
if ($nick != NickServ) return
if $regex($1-,/ile sisteme login oldu/Si) {
if $timer($+(-at-,$strip($4))) {
$+(.timer,-at-,$strip($4)) off
}
}
}
on *:join:#: {
if $gettok($address($nick,5),2,33) = $gettok($gettok($address($nick,5),2,33),1,64) {
shun $nick
}
}
#otozline end 👍 1 | ||
| |
| | #19 | |
| Alıntı:
Teşekkür ederim üstat. Eline emeğine sağlık. En kısa sürede deneyeceğim. Tekrardan teşekkürler kolay gelsin | ||
| |
| Konuyu Toplam 2 Üye okuyor. (0 Kayıtlı üye ve 2 Misafir) | |
| |