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/)
-   -   Bunu Nasıl Duzenlerim. (https://www.ircforumlari.net/mirc-scripting-sorunlari/51864-bunu-nasil-duzenlerim.html)

Hasan 25 Şubat 2008 14:17

Bunu Nasıl Duzenlerim.
 
*:text:*:#: {
if ($nick isop #) && (%oplari == on) { return }
if ($nick ison #) && (%vlar == on) { return }
kufurculer $1-
}
alias kufurculer {
var %x $strip($1-) , %i $numtok(%soyush,44)
while (%i) {
if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
if (%kiket == on) { .samode # +b $wildsite }
if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }
return
}
dec %i
}
}
dialog kufurcu {
title "Reklam Koruma"
size -1 -1 185 81
option dbu
box "Eklenecek Reklam Girin", 1, 90 1 94 79
combo 2, 94 10 87 53, size
button "Ekle", 3, 98 66 31 10
button "Sil", 4, 144 65 31 10
box "", 5, 96 60 36 18
box "", 6, 142 60 36 18
box "Yapılacak işlem", 7, 2 2 84 45
check "Kick ", 8, 5 13 39 10
check "Ban ", 9, 5 31 32 10
edit "", 10, 36 30 23 12, disable
text "Saniye", 11, 62 32 21 8, disable
box "Ayir", 12, 2 49 84 31
check "@plar", 13, 6 57 77 10
check "+Voiceler", 14, 6 68 75 10
}
alias bad { .dialog -m kufurcu kufurcu }
on *:dialog:kufurcu:init:*:{
if (%kifirler) didtok $dname 2 44 $ifmatch
if (%kiketi) { .did -c $dname 8 }
if (%baneti) { .did -c $dname 9 }
if (%oplari) { .did -c $dname 13 }
if (%vlar) { .did -c $dname 14 }
did -a $dname 10 %banvaxti
}
on *:dialog:kufurcu:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%kifirler,%artir,44)) { .set %kifirler $addtok(%kifirler,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %kifirler $remtok(%kifirler,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 8) { if ($did(8).state == 1) { .set %kiketi on } | else { .unset %kiketi } }
if ($did == 9) { if ($did(9).state == 1) { .set %baneti on | did -e $dname 10,11 } | else { .unset %baneti | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %oplari on } | else { .unset %oplari } }
if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:dialog:kufurcu:edit:*:{
%banvaxti = $did(10)
}


ARKADASLAR BU KUFUR DOYALOG U BEN BUNU PROXY KORUMASI GIBI IP EKLIYECEGIM SEKILE GETIMEK ISTIYORUM NASIL YAPABILIRIM ??

detay 25 Şubat 2008 15:07

Cevap: Bunu Nasıl Duzenlerim.
 
Direkt script editleme konusunda yardimci olmamızı bekleme.dialog konusunda verilmis olan derse bak kendin yapmaya calıs


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net