Çevrimdışı

Merhaba aşağıdaki reklam koruma diyalogunu düzenlemek istiyorum bunda yapmak istedigim ayrılan kanalar diye bir bölüm txt içine kayıt ediyor burda kayıt ettigim kanalarda reklam yapanı atmıyor koruyor benim bunda yapmak istedigim oraya ekledigim kanal örnek #admin #dj #operhelp gibi bu kanalda olan kişiler hangi kanalda reklam yaparsa yapsın bu kanaldaki kişileri korumasını istiyorum ikinci yapmak istedigim ise

"if ($regex($address($nick,2),/(admin|ircop|services)/i)) { halt }"

bu bölüm burdaki ekli identli kullanıcıları koruyor bunuda txt okutmak istiyorum istedigimi ekleyip çıkarma gibi yardımcı olabilirsiniz rica etsem.

dialog reklam {
title "Reklam Koruması"
size -1 -1 138 186
option dbu
edit "", 1, 7 10 61 10
list 2, 7 22 60 50, size
button "Ekle", 3, 7 74 27 12, flat
button "Sil", 4, 39 74 27 12, flat
check "Opları (@)", 5, 85 21 41 10, flat
check "Voiceler (@)", 6, 85 10 42 10, flat
combo 7, 7 102 52 51, size
button "Ekle", 8, 7 154 24 9, flat
button "Sil", 9, 35 154 23 9, flat
box "RekLam listesi", 13, 3 2 71 88
box "Ayrılan Nickler", 14, 3 92 63 76
box "Ayrılan Kanallar", 15, 73 92 62 76
box "Ayır", 16, 78 2 56 33
button "Sil", 10, 106 154 23 9, flat
button "Ekle", 11, 78 154 24 9, flat
combo 12, 78 102 52 51, size
box "İşlemler", 17, 78 37 56 53
radio "Opersem Kline", 18, 83 47 47 10, flat
radio "Opersem Kill", 19, 83 57 47 10, flat
radio "Opsam Kick", 20, 83 67 47 10, flat
check "Banla", 21, 83 77 27 10, flat
button "Kapat", 22, 97 171 37 12, flat ok
}
alias reklam { /dialog -m reklam reklam }
on *:dialog:reklam:init:*: {
if ($isfile(reklam.txt) == $false) { write -c reklam.txt } | else { loadbuf -o $dname 2 reklam.txt }
if (%knickler) .didtok $dname 7 32 $ifmatch
if (%kufkanal) .didtok $dname 12 32 $ifmatch
if (%klineat) { .did -c $dname 18 }
if (%killat) { .did -c $dname 19 }
if (%kickat) { .did -c $dname 20 }
if (%banla) { .did -c $dname 21 }
if (%oplar) { .did -c $dname 5 }
if (%vlar) { .did -c $dname 6 }
}
on *:dialog:reklam:sclick:*: {

if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
if ($did == 3) { write reklam.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
if ($did == 4) { write -dl $+ $did(2).sel reklam.txt | did -d $dname 2 $did(2).sel }
if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }
if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }
if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }
if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }
if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:text:*:#: {
if $istok(%kufkanal,#,32) == $true { halt }
if $istok(%knickler,$nick,32) == $true { halt }
if ($regex($address($nick,2),/(admin|ircop|services)/i)) { halt }
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
korureklamden $1-
}
alias korureklamden {
var %HR $strip($1-) , %_: $lines(reklam.txt)
while (%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
if $read(reklam.txt,%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %HR iswm %HR {
if (%banla == on) { .samode $chan +b $wildsite | .samode $chan +b $nick }
if (%klineat == on) { .ak $nick reklam yasak.! By: $me %logo }
if (%killat == on) { .kill $nick reklam yasak.! By: $me %logo }
if (%kickat == on) { .kick $chan $nick reklam yasak.! By: $me %logo }
return
}
dec %_:
}
}

 

Çevrimdışı

ilk sorunun için:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Linkinden bakabilirsin.
2ci sorunun içinde
$read(host.txt) olması lazım tam olarak bilmiyorum

 

Çevrimdışı

Şu kısmı:
on *:text:*:#: {
if $istok(%kufkanal,#,32) == $true { halt }
if $istok(%knickler,$nick,32) == $true { halt }
if ($regex($address($nick,2),/(admin|ircop|services)/i)) { halt }
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
korureklamden $1-
}


Bununla değiştir :

on *:text:*:#: {
var %ident $gettok($gettok($address($nick,1),2,42),1,64)
if $istok(%kufkanal,#,32) == $true { halt }
if $+(*,$nick,*) iswm %knickler { halt }
if $read(identler.txt,w,$+(*,%ident,*)) { halt }
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
korureklamden $1-
}

Ayrılmasını istediğin identleri , identler diye bir yeni metin belgesi oluşturup içerisine alt alta ekleyeceksin.
Örneğin :
admin
services
helper

Gibi...



(Mudin)