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/)
-   -   Oper korumasiyla ilgili sorun (https://www.ircforumlari.net/mirc-scripting-sorunlari/165529-oper-korumasiyla-ilgili-sorun.html)

mys_35 15 Aralık 2008 22:22

Oper korumasiyla ilgili sorun
 
#operwhois on
on *:snotice:*/whois on you*:{
msg $2 %owhois
}
#operwhois end
alias pow { dialog -m owhois owhois }
dialog owhois {
size -1 -1 340 120
title "|X|KhaLed - Whois Çekene Mesaj |X|"
text "Biri bana whois çektiğinde," 2, 20 5 200 15
edit ,3, 20 25 300 20, autohs
text "cevabını vereyim." 4, 20 50 200 15
button "Kaydet ve Çık" 5, 75 90 200 25, ok
check "Whois çekene ayarlı olan mesajı gönder" 666, 72 70 250 15
}
on 1:dialog:owhois:sclick:*:{
if ($did(666).state == 1) { .enable #operwhois } | else { .disable #operwhois }
if ($did == 5) {
set %owhois $did(3)
}
}
on *:DIALOG:owhois:init:0:{
did -a $dname 3 %owhois
if ($group(#operwhois) == on) { did -c owhois 666 }
}
;-
#otooper off
on 1:connect:{
/oper %opernick %opersifre
}
#otooper end
;-
#ircoptekrar on
on 1:text:*:#:{
if (o isin $usermode) {
if ($nick !isop $chan) {
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] == 2) {
kill $nick 1Tekrar Yasaktır!12 $date $time 4 $+ %serverlogo
unset %*_ [ $+ [ $nick ] ] | goto end
}
}
}
}
on 1:notice:*:#:{
if (o isin $usermode) {
if ($nick !isop $chan) {
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] == 2) {
kill $nick 1Tekrar Yasaktır!12 $date $time 4 $+ %serverlogo
unset %*_ [ $+ [ $nick ] ] | goto end
}
}
}
}
on 1:action:*:#:{
if (o isin $usermode) {
if ($nick !isop $chan) {
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] == 2) {
kill $nick 1Tekrar Yasaktır!12 $date $time 4 $+ %serverlogo
unset %*_ [ $+ [ $nick ] ] | goto end
}
}
}
}
#ircoptekrar end
-
#ircopbadnick on
on *:JOIN:#:{
if (o isin $usermode) {
if (fuck isin $nick) || (azgin isin $nick) || (****** isin $nick) || (eroti isin $nick) || (orgaz isin $nick) || (orgasm isin $nick) || (sikme isin $nick) || (verici isin $nick) || (bizir isin $nick) || (sike isin $nick) || (****** isin $nick) || (sperm isin $nick) || (am-yala isin $nick) || (kalafat isin $nick) || (vajina isin $nick) || (pipi isin $nick) || (sokucu isin $nick) || (abaza isin $nick) || (am_yal isin $nick) || (porn isin $nick) || (*** isin $nick) || (sikim isin $nick) || (vurucu isin $nick) || (amiste isin $nick) || (amsev isin $nick) || (penis isin $nick) || (****** isin $nick) || (dayar isin $nick) || (sikici isin $nick) || (amcik isin $nick) || (amarar isin $nick) {
kill $nick 1Nickinizi değiştirip tekrar giriş yapınız.12 $date $time 4 $+ %serverlogo
}
}
}
on *:NICK:{
if (o isin $usermode) {
if (fuck isin $newnick) || (****** isin $newnick) || (am_yal isin $newnick) || (amcik isin $newnick) || (am-yal isin $newnick) || (sikme isin $newnick) || (verici isin $newnick) || (sike isin $newnick) || (****** isin $newnick) || (sperm isin $newnick) || (eroti isin $newnick) || (kalafat isin $newnick) || (vajina isin $newnick) {
kill $nick 1Nickinizi değiştirip tekrar giriş yapınız.12 $date $time 4 $+ %serverlogo
}
}
}
#ircopbadnick end
#ircopurl on
on 1:text:*[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*http:*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*https:*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*cjb.net*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*.tr.gs*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*.da.ru*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
#ircopurl end
#ircopserver on
on 1:text:*server*irc.*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1Server Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*irc.*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1Server Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
#ircopserver end
#ircopkufur off
on 1:text:siktir:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:pezeve*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*****:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:amcik:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:***:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:PİÇ:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:yarak:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:******:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:kaltak:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:******:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:fahişe:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:FAHİŞE:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Küfür Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
#ircopkufur end
#ircopkanal on
on 1:text:*#*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kill $nick 1Kanal Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
#ircopkanal end
#ircopjflood on
on 1:join:#: {
if (o isin $usermode) {
inc -u10 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
if %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] < 3 halt
unset %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
/kline $nick %ircopzaman 1Join/Part Flood Tespit Edildi!12 $date $time 4 $+ %serverlogo
}
}
#ircopjflood end
#ircopkflood on
on 1:TEXT:*:#: {
if (o isin $usermode) {
if ($nick isop $chan) { halt }
if ($nick == $me) { halt }
.timer 1 5 unset %floodnuclear. [ $+ [ $nick ] ]
inc %floodnuclear. [ $+ [ $nick ] ] 1
if (%floodnuclear. [ $+ [ $nick ] ] == 7) { kill $nick 1Flood Tespit Edildi.12 $date $time 4 $+ %serverlogo | halt }
}
}
on 1:notice:*:#: {
if (o isin $usermode) {
if ($nick isop $chan) { halt }
if ($nick == $me) { halt }
.timer 1 5 unset %floodnuclear. [ $+ [ $nick ] ]
inc %floodnuclear. [ $+ [ $nick ] ] 1
if (%floodnuclear. [ $+ [ $nick ] ] == 7) { kill $nick 1Flood Tespit Edildi.12 $date $time 4 $+ %serverlogo | halt }
}
}
on 1:action:*:#: {
if (o isin $usermode) {
if ($nick isop $chan) { halt }
if ($nick == $me) { halt }
.timer 1 5 unset %floodnuclear. [ $+ [ $nick ] ]
inc %floodnuclear. [ $+ [ $nick ] ] 1
if (%floodnuclear. [ $+ [ $nick ] ] == 7) { kill $nick 1Flood Tespit Edildi.12 $date $time 4 $+ %serverlogo | halt }
}
}
#ircopkflood end
#operproxy on
on ^*:snotice:*: {
if client connecting* iswm $4- {
var %:ip $remove($gettok($10,2,64),$chr(41))
kontrol %:ip
hadd -m ckontrol %:ip $9
halt
}
}
alias kontrol {
sockopen $+(kontrol,$r(1,999999999)) $1- 8080
sockopen $+(kontrol,$r(1,999999999)) $1- 8081
sockopen $+(kontrol,$r(1,999999999)) $1- 1080
sockopen $+(kontrol,$r(1,999999999)) $1- 3128
}
on *:sockopen:kontrol*: {
if !$sockerr {
.raw kline *@ $+ $sock($sockname).ip 4Proxy 60
echo -a 4Proxy giriş: $+(,$sock($sockname).ip,3:,$sock($sockname).port ,) - Nick:4 $ip2nick($sock($sockname).ip)
hdel ckontrol $sock($sockname).ip
sockclose $sockname
}
}
on *:sockclose:kontrol*: {
hdel ckontrol $sock($sockname).ip
}
alias ip2nick {
var %i 1
while %i <= $hget(ckontrol,0).item {
if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt }
inc %i
}
}
#operproxy end
#randomnick on
alias grr { if (($regex($1,/[^aeiou]{3}/i)) || ($regex($1,/[aeiou]{3}/i))) { return $true } | else { return $false } }
on @!*:join:#:{ if ($grr($nick)) { /kline $nick 3600 1Random nick koruması şu anda aktif. 1 Saat banlandınız.4 $server } }
#randomnick end
alias opermenu { dialog -m opermenu opermenu }
dialog opermenu {
title "|X| KhaLed- IRCop Bölümü |X|"
size -1 -1 310 250
box "Korumalar/Ayarlar" 200, 10 5 150 205
check "Tekrar Koruması (Kill)" 1, 20 25 130 15
check "Badnick Koruması (Kill)" 2, 20 45 130 15
check "URL Koruması (Kline)" 3, 20 65 130 15
check "Serv.Rek. Kor. (Kline)" 4, 20 85 130 15
check "Kanal Rek. Kor. (Kill)" 5, 20 105 130 15
check "J/P Flood Kor. (Kline)" 6, 20 125 130 15
check "Flood Koruması (Kill)" 7, 20 145 130 15
check "Proxy Koruması (Kill)" 8, 20 165 130 15
check "Random Nick (Kline)" 9, 20 185 130 15
box "Otomatik Oper Girişi:" 10, 170 5 130 130
text "Nick:" 11, 180 25 100 15
edit "", 12,190 45 92 20,autohs
text "Şifre:" 13, 180 70 100 15
edit "", 14,190 90 92 20,autohs
check "Bağlanınca oper ol" 15, 180 115 105 15
box "Server Logusu:" 16, 170 140 130 70
text "Logo:" 17, 180 160 100 15
edit "", 18,190 180 92 20,autohs
button "Whois çekene mesaj" 19, 10 220 150 20
button "Tamam/Kapat" 20, 170 220 130 20
}
on 1:dialog:opermenu:sclick:*:{
if ($did == 20) {
set %opernick $did(12)
set %opersifre $did(14)
set %serverlogo $did(18)
dialog -x opermenu opermenu
}
if ($did == 19 ) { pow }
if ($did(1).state == 1) { .enable #ircoptekrar } | else { .disable #ircoptekrar }
if ($did(2).state == 1) { .enable #ircopbadnick } | else { .disable #ircopbadnick }
if ($did(3).state == 1) { .enable #ircopurl } | else { .disable #ircopurl }
if ($did(4).state == 1) { .enable #ircopserver } | else { .disable #ircopserver }
if ($did(5).state == 1) { .enable #ircopkanal } | else { .disable #ircopkanal }
if ($did(6).state == 1) { .enable #ircopjflood } | else { .disable #ircopjflood }
if ($did(7).state == 1) { .enable #ircopkflood } | else { .disable #ircopkflood }
if ($did(8).state == 1) { .enable #operproxy } | else { .disable #operproxy }
if ($did(9).state == 1) { .enable #randomnick } | else { .disable #randomnick }
if ($did(15).state == 1) { .enable #otooper } | else { .disable #otooper }
}
on *:DIALOG:opermenu:init:0:{
did -a $dname 12 %opernick
did -a $dname 14 %opersifre
did -a $dname 18 %serverlogo
if ($group(#ircoptekrar) == on) { did -c opermenu 1 }
if ($group(#ircopbadnick) == on) { did -c opermenu 2 }
if ($group(#ircopurl) == on) { did -c opermenu 3 }
if ($group(#ircopserver) == on) { did -c opermenu 4 }
if ($group(#ircopkanal) == on) { did -c opermenu 5 }
if ($group(#ircopjflood) == on) { did -c opermenu 6 }
if ($group(#ircopkflood) == on) { did -c opermenu 7 }
if ($group(#operproxy) == on) { did -c opermenu 8 }
if ($group(#randomnick) == on) { did -c opermenu 9 }
if ($group(#otooper) == on) { did -c opermenu 15 }
}


Boyle bir operpanel var ArkaDaslar Mircime Ekledim Gayet guzel Calısıyor Sadece ufak Bir kaç puruz var kanalda tekrar yaptımda Kill atıyor fakat bunu yazıyor statuste sebebi nedir bunun
/goto: 'end' bulunamadı (Satır 58, script118.ini)
yardımcı olursanız sevinirim

Difuzyon 15 Aralık 2008 22:47

Cevap: Bakarmısınız
 
Kod:

#ircoptekrar on
on 1:text:*:#:{
if (o isin $usermode) {
if ($nick !isop $chan) {
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] == 2) {
kill $nick 1Tekrar Yasaktır!12 $date $time 4 $+ %serverlogo
unset %*_ [ $+ [ $nick ] ]
}
}
}
}
on 1:notice:*:#:{
if (o isin $usermode) {
if ($nick !isop $chan) {
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] == 2) {
kill $nick 1Tekrar Yasaktır!12 $date $time 4 $+ %serverlogo
unset %*_ [ $+ [ $nick ] ]
}
}
}
}
on 1:action:*:#:{
if (o isin $usermode) {
if ($nick !isop $chan) {
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] == 2) {
kill $nick 1Tekrar Yasaktır!12 $date $time 4 $+ %serverlogo
unset %*_ [ $+ [ $nick ] ]
}
}
}
}
#ircoptekrar end

Tekrarla ilgili korumada işlev görmüyen "goto end" kısmını kaldırmış olduk.Bu haliyle hata mesajı almayacaksınız.

İyi forumlar...

mys_35 15 Aralık 2008 23:50

Cevap: Oper korumasiyla ilgili sorun
 
Tşk kardeşim tekrar korumaSı oldu ama bu Sefer diğerlerinin hiç Biri Calışmıyo:))

Difuzyon 16 Aralık 2008 04:35

Cevap: Oper korumasiyla ilgili sorun
 
Diğerlerinin, içinde aynı event olanların(text) #group içerisinde olması çakışma yaratıyor.Örneğin ;

#ircopurl on
on 1:text:*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*http:*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*https:*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*cjb.net*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*.tr.gs*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
on 1:text:*.da.ru*:#: {
if (o isin $usermode) {
if $nick isop $chan { halt }
kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
}
}
#ircopurl end

Bu örnekte #ircopurl group içerisinde aynı text eventleri var.Tek çatı altında toplanması gerekir.Aşağıdaki gibi toparlanması gerekiyor:
Kod:

#ircopurl on
on 1:text:*:#: {
  if $nick isop $chan { halt }
  if (o isin $usermode) {
    if (*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $1-) || (*http:* iswm $1-) || (*https:* iswm $1-) || (*cjb.net* iswm $1-) || (*.tr.gs* iswm $1-) || (*.da.ru* iswm $1-) {
      kline $nick %ircopzaman 1URL Reklamı Yasaktır!12 $date $time 4 $+ %serverlogo
    }
  }
}
#ircopurl end

Gördüğünüz gibi grouptaki text event'larını bir çatı altında topladık.Daha da kısa ve etkin halede gelebilir ama sizin yapabilmeniz açısından bir örnek olarak verdim.Bu örnekten hareket edebilirsiniz.

Ve #group 'larınız ayrı bir safyada olmalıdır ki,farklı gruplarda yine text eventı var.Bu durum yine çakışma meydana getirecektir.

Vermiş olduğum örnekten hareketle , kodu daha stabil hale getirebilirsiniz.Çözemediğiniz yerde biz size yine yardımcı oluruz.

İyi paylaşımlar...


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk