Çevrimdışı

/set: Satır çok uzun (Satır 61, swearprot.mrc)

küfür eklemek istedim.böyle bi hata verdi...

dialog swearprot {
icon $scriptdir\protect.ico
title "Küfür Koruması by Nomak"
size -1 -1 145 206
option dbu
box "Dost Listesi", 1, 2 2 59 75
edit "", 2, 6 10 50 10
list 3, 6 20 50 38, size
button "Ekle", 4, 6 61 16 12, flat
button "Sil", 5, 23 61 16 12, flat
button "Kaldir", 6, 40 61 16 12, flat
box "Filtre Mesajlar", 7, 2 78 59 75
edit "", 8, 6 86 50 10
list 9, 6 96 50 38, size
button "Ekle", 10, 6 137 16 12, flat
button "Del", 11, 23 137 16 12, flat
button "Kaldir", 12, 40 137 16 12, flat
box "Korunacaklar", 13, 64 2 79 48
check "(@) Kanal Opları", 14, 69 11 70 10, group 1
check "(+) Kanal Voiceleri", 15, 69 23 70 10
check "Dost Listemdekiler", 16, 69 35 71 10
box "Yapılacaklar", 17, 64 51 79 48
radio "KickBan Sureziz", 18, 68 60 70 10, group 2
radio "KickBan Sureli", 19, 68 72 69 10
radio "Sadece Kickle", 20, 68 84 68 10
box "Ban Tipi", 21, 64 100 79 53
combo 22, 69 109 69 41, size drop
box "Kick Mesajı & Ban Süresi.?", 23, 2 154 141 23
edit "", 24, 6 162 110 10
edit "", 25, 117 162 22 10
box "Ayarlar", 26, 2 178 72 22
radio "Açık", 27, 7 186 30 10, group 3
radio "Kapalı", 28, 39 186 30 10
button "Bilgi", 29, 77 181 32 19, flat
button "Kapat", 30, 111 181 32 19, flat ok
}
alias swearprot {
if (!$dialog(swearprot)) { dialog -m swearprot swearprot }
}
on *:dialog:*:*:*:{
if ($dname == swearprot) {
if ($devent == sclick) {
if ($did == 3) && ($did(3).seltext != $null) { did -ra $dname 2 $did(3).seltext }
if ($did == 4) && ($did(2).text != $null) && ($numtok($did(2).text,32) == 1) {
set %_ $numtok(%swearprot.friends.list,32)
set %swearprot.friends.list $addtok(%swearprot.friends.list,$did(2).text,32)
if (%_ != $numtok(%swearprot.friends.list,32)) {
did -a $dname 3 $did(2).text | did -r $dname 2
}
}
if ($did == 5) && ($did(3).sel != $null) {
set %swearprot.friends.list $deltok(%swearprot.friends.list,$did(3).sel,32)
did -r $dname 2,3 | didtok $dname 3 32 %swearprot.friends.list
}
if ($did == 6) { unset %swearprot.friends.list | did -r $dname 2,3 }
if ($did == 9) && ($did(9).seltext != $null) { did -ra $dname 8 $did(9).seltext }
if ($did == 10) && ($did(8).text != $null) {
set %_ $numtok(%swearprot.filter,1)
set %swearprot.filter $addtok(%swearprot.filter,$did(8).text,1)
if (%_ != $numtok(%swearprot.filter,1)) {
did -a $dname 9 $did(8).text | did -r $dname 8
}
}
if ($did == 11) && ($did(9).sel != $null) {
set %swearprot.filter $deltok(%swearprot.filter,$did(9).sel,1)
did -r $dname 8,9 | didtok $dname 9 1 %swearprot.filter
}
if ($did == 12) { unset %swearprot.filter | did -r $dname 8,9 }
if ($did == 14) {
if ($did(14).state == 0) { set %swearprot.protect.ops Off }
if ($did(14).state == 1) { set %swearprot.protect.ops On }
}
if ($did == 15) {
if ($did(15).state == 0) { set %swearprot.protect.vos Off }
if ($did(15).state == 1) { set %swearprot.protect.vos On }
}
if ($did == 16) {
if ($did(16).state == 0) { set %swearprot.protect.frs Off }
if ($did(16).state == 1) { set %swearprot.protect.frs On }
}
if ($did == 18) { set %swearprot.punish.style 1 }
if ($did == 19) { set %swearprot.punish.style 2 }
if ($did == 20) { set %swearprot.punish.style 3 }
if ($did == 22) && ($did(22).sel != $null) { set %swearprot.banmask $did(22).sel }
if ($did == 27) { set %swearprot.state On }
if ($did == 28) { set %swearprot.state Off }
if ($did == 29) { dialog -m swearprotabout swearprotabout }
}
if ($devent == edit) {
if ($did == 24) && ($did(24).text != $null) {
set %swearprot.kickmsg 4 $+ # 2Kanalında Küfür Etmek Yasaktır.!
}
if ($did == 25) && ($did(25).text != $null) {
if ($iif($did(25).text isnum,1,2) == 1) { set %swearprot.bantime $did(25).text }
if ($iif($did(25).text isnum,1,2) == 2) { did -r $dname 25 }
}
}
if ($devent == init) && ($did == 0) {
did -a $dname 24 %swearprot.kickmsg
did -a $dname 25 %swearprot.bantime
didtok $dname 3 32 %swearprot.friends.list
didtok $dname 9 1 %swearprot.filter
did -a $dname 22 *!user@host
did -a $dname 22 *!*user@host
did -a $dname 22 *!*@host
did -a $dname 22
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

did -a $dname 22
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

did -a $dname 22 nick!user@host
did -a $dname 22 nick!*user@host
did -a $dname 22 nick!*@host
did -a $dname 22
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

did -a $dname 22
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

did -c $dname 22 %swearprot.banmask
if (%swearprot.protect.ops == On) { did -c $dname 14 }
if (%swearprot.protect.vos == On) { did -c $dname 15 }
if (%swearprot.protect.frs == On) { did -c $dname 16 }
if (%swearprot.punish.style == 1) { did -c $dname 18 }
if (%swearprot.punish.style == 2) { did -c $dname 19 }
if (%swearprot.punish.style == 3) { did -c $dname 20 }
if (%swearprot.state == On) { did -c $dname 27 }
if (%sweraprot.state == Off) { did -c $dname 28 }
}
}
if ($dname == swearprotabout) {
if ($devent == init) && ($did == 0) { did -m $dname 3,5,7 | did -f $dname 1 }
if ($devent == sclick) { dialog -x $dname }
}
}
on *:TEXT:*:#:{
if (%swearprot.state == On) && ($me isop #) {
if ($nick isop #) && (%swearprot.protect.ops == On) { halt }
if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }
if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }
var %temp1 = 0
while (%temp1 <= $numtok(%swearprot.filter,1)) {
inc %temp1
if ($gettok(%swearprot.filter,%temp1,1) isin $1-) {
if (%swearprot.punish.style == 1) {
if ($nick ison #) && (%swearprot.banmask != $null) {
mode # +b $address($nick,%swearprot.banmask)
if ($nick ison #) {
kick # $nick 4 $+ # 2Kanalında Küfür Etmek Yasaktır.!
}
}
}
if (%swearprot.punish.style == 2) {
if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {
ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)
if ($nick ison #) {
kick # $nick 4 $+ # 2Kanalında Küfür Etmek Yasaktır.!
}
}
}
if (%swearprot.punish.style == 3) {
if ($nick ison #) { kick # $nick 4 $+ # 2Kanalında Küfür Etmek Yasaktır.! }
}
}
}
}
}
on *:NOTICE:*:#:{
if (%swearprot.state == On) && ($me isop #) {
if ($nick isop #) && (%swearprot.protect.ops == On) { halt }
if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }
if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }
var %temp2 = 0
while (%temp2 <= $numtok(%swearprot.filter,1)) {
inc %temp2
if ($gettok(%swearprot.filter,%temp2,1) isin $1-) {
if (%swearprot.punish.style == 1) {
if ($nick ison #) && (%swearprot.banmask != $null) {
mode # +b $address($nick,%swearprot.banmask)
if ($nick ison #) {
kick # $nick 4 $+ # 2Kanalında Küfür Etmek Yasaktır.!
}
}
}
if (%swearprot.punish.style == 2) {
if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {
ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)
if ($nick ison #) {
kick # $nick 4 $+ # 2Kanalında Küfür Etmek Yasaktır.!
}
}
}
if (%swearprot.punish.style == 3) {
if ($nick ison #) { kick # $nick 4 $+ # 2Kanalında Küfür Etmek Yasaktır.!}
}
}
}
}
}
on *:ACTION:*:#:{
if (%swearprot.state == On) && ($me isop #) {
if ($nick isop #) && (%swearprot.protect.ops == On) { halt }
if ($nick isvo #) && (%swearprot.protect.vos == On) { halt }
if ($istok(%swearprot.friends.list,$nick,32)) && (%swearprot.protect.frs == On) { halt }
var %temp3 = 0
while (%temp3 <= $numtok(%swearprot.filter,1)) {
inc %temp3
if ($gettok(%swearprot.filter,%temp3,1) isin $1-) {
if (%swearprot.punish.style == 1) {
if ($nick ison #) && (%swearprot.banmask != $null) {
mode # +b $address($nick,%swearprot.banmask)
if ($nick ison #) {
kick # $nick 4 $+ # 2Kanalında Küfür Etmek Yasaktır.!
}
}
}
if (%swearprot.punish.style == 2) {
if ($nick ison #) && (%swearprot.banmask != $null) && (%swearprot.bantime != $null) {
ban -u $+ [ %swearprot.bantime ] # $address($nick,%swearprot.banmask)
if ($nick ison #) {
kick # $nick 4 $+ # 2Kanalında Küfür Etmek Yasaktır.!
}
}
}
if (%swearprot.punish.style == 3) {
if ($nick ison #) { kick # $nick 4 $+ # 2Kanalında Küfür Etmek Yasaktır.! }
}
}
}
}
}
}
dialog swearprotabout {
title "Bilgi..."
icon $scriptdir\protect.ico
size -1 -1 119 79
option dbu
box "", 1, 2 3 115 73
text "Yazar:", 2, 5 12 25 8
edit "by Nomak", 3, 32 11 51 10
text "Version:", 4, 5 23 25 8
edit "v1.0", 5, 32 22 30 10
text "Yazim Tarih", 6, 5 34 40 8
edit "30/03/2005", 7, 45 33 38 10
text "Değiştirme Yapabilirsiniz.", 8, 5 45 109 8
text " Lütfen Kod Yazarını Belirtiniz.", 9, 4 54 110 8
text " Mail :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
", 10, 4 63 110 8
icon 11, 90 13 21 21, $scriptdir\protect.ico
}
alias swearprotabout {
if (!$dialog(swearprotabout)) { dialog -m swearprotabout swearprotabout }


Bu arada addon Nomak'a ait...

 

Çevrimdışı

%Değişken kullanmak yerine hash table kullanırsan bu sorunu yaşamazsın.
Hash table'larla ilgili daha fazla bilgi için: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]