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/)

- - clone sorun (https://www.ircforumlari.net/mirc-scripting-sorunlari/30888-clone-sorun.html)

ilhan

27 Nisan 2007 14:49

clone sorun

alias kontrol { if %clones >= 5 { var %> = 1 | while $gettok($1-,%>,32) {
.kill $gettok($1-,%>,32) Clone Girişi Yasak| inc %> } } }
on !*:join:#: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count }
/echo $chan 14> 1Clone Tespit Edildi2: $+(%clone.nicks,-->) 4 %clones 1Tane14 | kontrol %clone.nicks }
set %change $read -s $+ $address($nick,4) notes.ini
if (%change == $null) {
haltdef
write notes.ini $address($nick,4) $nick
halt
}
}
}

bu kodda herşey çalışıyor fakat oper kanalında operlerin hostları aynı olduğundan kill atıyor kill atmaması için ne yapmam lazım

Teori

27 Nisan 2007 16:50

Yanıt: clone sorun

Kaldır Bunları .

Kod:

alias kontrol { if %clones >= 5 { var %> = 1 | while $gettok($1-,%>,32) { 

.kill $gettok($1-,%>,32) Clone Girişi Yasak| inc %> } } }

ilhan

27 Nisan 2007 17:19

Cevap: clone sorun

nasıl yani
sadece bumu ekli kalsın yoksa bu kısmımı kaldırayım

alias kontrol { if %clones >= 5 { var %> = 1 | while $gettok($1-,%>,32) {
.kill $gettok($1-,%>,32) Clone Girişi Yasak| inc %> } } }

detay

27 Nisan 2007 18:49

Yanıt: clone sorun

Kod:

alias kontrol { if %clones >= 5 { var %> = 1 | while $gettok($1-,%>,32) { 

.kill $gettok($1-,%>,32) Clone Girişi Yasak| inc %> } } }

Kod:

 on !*:join:#: {
  if $chan == #opers  { halt } 

%clones = $ialchan($wildsite,#,0)

if ( %clones > 1 ) {

var %count = 1

set %clone.nicks 

while (%count <= %clones) {

  %clone.nicks = %clone.nicks $ial($wildsite,%count).nick

inc %count }

/echo $chan 14> 1Clone Tespit Edildi2: $+(%clone.nicks,-->) 4 %clones 1Tane14 | kontrol %clone.nicks }

set %change $read -s $+ $address($nick,4) notes.ini

if (%change == $null) {

haltdef

write notes.ini $address($nick,4) $nick

halt 

}

}

}

kodun #operstekileri atmamasi icin kontrol asamasina gelmeden durdurman gerekir

ilhan

27 Nisan 2007 19:04

Cevap: clone sorun

o nasıl yapıcam

detay

27 Nisan 2007 19:25

Yanıt: clone sorun

ordaki kodu alip remote'a yapistircaksin kirmizi bölüm #opers icin kodu calistirmaz

ilhan

28 Nisan 2007 11:13

Cevap: clone sorun

alias kontrol { if %clones >= 5 { var %> = 1 | while $gettok($1-,%>,32) { .kill $gettok($1-,%>,32) Clone Girişi Yasak| inc %> } } }

on !*:join:#: { if $chan == #opers { halt } %clones = $ialchan($wildsite,#,0)if ( %clones > 1 ) {var %count = 1set %clone.nicks while (%count <= %clones) { %clone.nicks = %clone.nicks $ial($wildsite,%count).nickinc %count }/echo $chan 14> 1Clone Tespit Edildi2: $+(%clone.nicks,-->) 4 %clones 1Tane14 | kontrol %clone.nicks }set %change $read -s $+ $address($nick,4) notes.iniif (%change == $null) {haltdefwrite notes.ini $address($nick,4) $nickhalt }}}

şimdi bu codeye artı ilave olarak clone nicklerine samode ban olarak yapabilirmiyiz yani clone olarak giren nicklerin hepsine kill den sonra hepsi +b olarak

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