IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Clone KOrumasi Yardm (https://www.ircforumlari.net/mirc-scripting-sorunlari/211416-clone-korumasi-yardm.html)

Clone KOrumasi Yardm

Merhaba Arkadaslar. sizden bı konuda yardım ıstıcem. clone için koruma istiyorum ama clone sayısını ben beLirLicem yanı clone lİmitini 1 yaptıgımda her giren zline yiecek sunucuda. bole bır kod warmı ?

Cevap: Clone KOrumasi Yardm

PHP- Kodu:

           ;Clone Koruması
#cLonekorumaSi on
on @!*:JOIN:#:{
  if ($ialchan($wildsite,#,0) > %clonesayi) {
    var %' = $ifmatch, %. | while %' {
      var %7 = $gettok($ialchan($wildsite,#,%'),1,33)
    if (%7 !isop #) { %. = $addtok(%.,%7,44) | dec %' } | else { return } }
    if %. { mode # +b $wildsite | var %~ = $numtok(%.,44) | while %~ { kick # $gettok(%.,%~,44) %clonekorumasebep | dec %~ } }
  }
}
#cLonekorumaSi end
alias clonekoruma { dialog -m clonekorumasi clonekorumasi }
dialog clonekorumasi {
  title "Clone Korumasi"
  size -1 -1 144 88
  option dbu
  text "Kanal'a", 1, 9 7 20 8
  edit "", 2, 30 6 13 10
  text "Den Fazla Clone Girerse o Adresi Banla", 3, 43 7 100 8
  box "Durum", 4, 5 19 135 37
  button "Aç", 5, 23 27 37 12
  button "Kapat", 6, 83 27 37 12
  text "Durum:", 7, 35 44 22 8
  edit "", 8, 57 44 50 10, read
  edit "", 9, 44 60 97 10, autohs
  text "Kick Sebebiniz", 10, 4 61 40 8
  button "Kaydet Ve Çık", 11, 22 72 46 12, ok
  button "İptal", 12, 73 72 46 12, cancel
}
on *:dialog:clonekorumasi:*:*:{
  if ($devent == init) {
    did -a $dname 8 %clonekorumadurum
    did -a $dname 9 %clonekorumasebep
    did -a $dname 2 %clonesayi
  }
  if ($devent == sclick) {
    if ($did == 5) { .enable #cLoneKorumaSi | set %clonekorumadurum Açık | set %clonekorumasebep $did(9) | set %clonesayi $did(2) | dialog -x clonekorumasi clonekorumasi | clonekoruma }
    if ($did == 6) { .disable #cLoneKorumaSi | set %clonekorumadurum Kapalı | set %clonekorumasebep $did(9) | set %clonesayi $did(2) | dialog -x clonekorumasi clonekorumasi | clonekoruma }
    if ($did == 11) {  set %clonekorumasebep $did(9) | set %clonesayi $did(2) }
  }

%clonekorumasebep (Kendiniz Ayarlayabilirsiniz)
%clonesayi (Kendiniz ayarlayabilirsiniz)
%clonekorumadurum Açık

Keyifli forumlar..

Cevap: Clone KOrumasi Yardm

#sericlone on
on *:snotice:*:{
if *Client*connecting*on* iswm $1- {
.timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >=
{
.gzline $+(*@,$gettok($gettok($10,2,64),1,41)) 30d :5Clone !
unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
}
}
}

eLimdek kod buydu ama kodda bı yanlıslık yaptım ve duzeLtemedim

if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >=

surda bı yerde hata yaptım b komutu bılen warsa calısanını verebılırmı

Cevap: Clone KOrumasi Yardm

Alıntı:

Thief Nickli Üyeden Alıntı (Mesaj 715546)

PHP- Kodu:

           ;Clone Koruması
#cLonekorumaSi on
on @!*:JOIN:#:{
  if ($ialchan($wildsite,#,0) > %clonesayi) {
    var %' = $ifmatch, %. | while %' {
      var %7 = $gettok($ialchan($wildsite,#,%'),1,33)
    if (%7 !isop #) { %. = $addtok(%.,%7,44) | dec %' } | else { return } }
    if %. { mode # +b $wildsite | var %~ = $numtok(%.,44) | while %~ { kick # $gettok(%.,%~,44) %clonekorumasebep | dec %~ } }
  }
}
#cLonekorumaSi end
alias clonekoruma { dialog -m clonekorumasi clonekorumasi }
dialog clonekorumasi {
  title "Clone Korumasi"
  size -1 -1 144 88
  option dbu
  text "Kanal'a", 1, 9 7 20 8
  edit "", 2, 30 6 13 10
  text "Den Fazla Clone Girerse o Adresi Banla", 3, 43 7 100 8
  box "Durum", 4, 5 19 135 37
  button "Aç", 5, 23 27 37 12
  button "Kapat", 6, 83 27 37 12
  text "Durum:", 7, 35 44 22 8
  edit "", 8, 57 44 50 10, read
  edit "", 9, 44 60 97 10, autohs
  text "Kick Sebebiniz", 10, 4 61 40 8
  button "Kaydet Ve Çık", 11, 22 72 46 12, ok
  button "İptal", 12, 73 72 46 12, cancel
}
on *:dialog:clonekorumasi:*:*:{
  if ($devent == init) {
    did -a $dname 8 %clonekorumadurum
    did -a $dname 9 %clonekorumasebep
    did -a $dname 2 %clonesayi
  }
  if ($devent == sclick) {
    if ($did == 5) { .enable #cLoneKorumaSi | set %clonekorumadurum Açık | set %clonekorumasebep $did(9) | set %clonesayi $did(2) | dialog -x clonekorumasi clonekorumasi | clonekoruma }
    if ($did == 6) { .disable #cLoneKorumaSi | set %clonekorumadurum Kapalı | set %clonekorumasebep $did(9) | set %clonesayi $did(2) | dialog -x clonekorumasi clonekorumasi | clonekoruma }
    if ($did == 11) {  set %clonekorumasebep $did(9) | set %clonesayi $did(2) }
  }

%clonekorumasebep (Kendiniz Ayarlayabilirsiniz)
%clonesayi (Kendiniz ayarlayabilirsiniz)
%clonekorumadurum Açık

Keyifli forumlar..

thief kardeşim bunu n ban kick atanı deqilde zLine nasıl attıracaz. birde o verdıgım kodun dogrusunu blen warmı ?

Cevap: Clone KOrumasi Yardm

az işim var dönücem birazdan.

Cevap: Clone KOrumasi Yardm

PHP- Kodu:

   dialog csearch {
  title "Clone tarama sistemi"
  size -1 -1 90 40
  option dbu
  button "Taramayı başlat", 1, 45 23 40 12, ok
  radio "Zline uygula", 2, 1 1 40 8
  radio "Gzline uygula", 3, 1 10 41 8
  radio "Gline uygula", 4, 1 20 40 8
  radio "Kline uygula", 5, 1 29 40 8
  button "KAPAT", 6, 45 8 40 12, cancel 
}
on *:dialog:csearch:sclick:*: {
  if ($did == 1) && !$server { echo -a *** Bir servera bağlı değilsiniz. }
  else { 
    if ($did == 1) {
      set %reason $?="Ban sebebini giriniz" 
      set %climit $?="Maximum clone limiti giriniz" 
    clonetara }
    elseif ($did == 2) { set %?line zline }
    elseif ($did == 3) { set %?line gzline }
    elseif ($did == 4) { set %?line gline }
    elseif ($did == 5) { set %?line kline }
    elseif ($did == 6) { dialog -x csearch } 
} }
on *:dialog:csearch:init:0: {
  if !%?line { set %?line zline | did -c $dname 2 } 
  elseif ($(%?line,2) == zline) { did -c $dname 2 }
  elseif ($(%?line,2) == gzline) { did -c $dname 3 }
  elseif  ($(%?line,2) == gline) { did -c $dname 4 }
  elseif ($(%?line,2) == kline) { did -c $dname 5 } 
}
;aliaslar
alias ctara { if !$dialog(csearch) { dialog -md csearch csearch } }
alias clonetara { .trace $server } 
;rawlar
raw 205:*: { 
  if *user*clients* iswm $1- { var %# = $+(%,clones,$remove($5,[,])) | inc $(%#,1)
if $(%#,2) == $(%climit,2) { $+(.%?line,2) $+(*@,$remove($(%#,1),$chr(37),clones)) . $(%reason,2) | haltdef } } }
raw 209:*: { unset %clones* | haltdef }
raw 481:*: { echo -a *** Bu sistemi kullanabilecek erişime sahip değilsiniz. }
on *:load: { 
set %reason Clone tarama dedektörüne yakalandınız
set %climit 3 }
menu * {
Clone tarama:ctara }