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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - !temizle Tcl (https://www.ircforumlari.net/eggdrop-neostats-bnc/27908-temizle-tcl.html)

Merhaba,
Bu benim ilk tcl kodlamam :)
Kanalda operatör iseniz kanal ekranını temizlemeye yarayan bir tcl.

Kod:

##############

# Temizleme tclsi #

# By intBilisim #

##############
 set tmzl "0,0______________________________________________________________________1,0"
 

bind pub - !temizle intbilisimtemiz

proc intbilisimtemiz {nick user hand chan arg} {

 global intbilisimtemiz

 if {![isop $nick $chan]} {return 0}

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint"

 putquick "PRIVMSG $chan : Ekran temizlendi... Komutu kullanan: $nick"

}

Cevap: !temizle Tcl

$temizint bölümünü sildiğin zaman çalışıyor.
Tek kötü yanı botun yavaş yazması
ve birde şunu düşün
3 op aynı anda
!temizle
!temizle
!temizle
!temizle

Yazdığında :)

Bunun script versiyonuda var sanırım.

Paylaşımın için teşekkürler iyi çalışmalar. ;oki

Cevap: !temizle Tcl

$temizint sorunluydu..
Çözüldü:

Kod:

##############

# Temizleme tclsi #

# By intBilisim #

##############
 set temizint "0,0______________________________________________________________________1,0"
 

bind pub - !temizle intbilisimtemiz

proc intbilisimtemiz {nick user hand chan arg} {

 global intbilisimtemiz

 if {![isop $nick $chan]} {return 0}

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint Cam"

 putquick "PRIVMSG $chan : $temizint &#199;&#246;p"

 putquick "PRIVMSG $chan : $temizint Bardak"

 putquick "PRIVMSG $chan : $temizint Toz"

 putquick "PRIVMSG $chan : $temizint Reklamcılar"

 putquick "PRIVMSG $chan : $temizint Spamcılar"

 putquick "PRIVMSG $chan : $temizint Floodcular"

 putquick "PRIVMSG $chan : $temizint"

 putquick "PRIVMSG $chan : Ekran temizlendi... Komutu kullanan: $nick"

}

Cevap: !temizle Tcl

yine çalışmaz;
global intbilisimtemiz yerine
global temizint yazarsan doğru çalışır

Cevap: !temizle Tcl

Hayır, en son yazdığım kod denendi çalışıyor ;)

Cevap: !temizle Tcl

Alıntı:

CcehennemM Nickli Üyeden Alıntı

yine çalışmaz;
global intbilisimtemiz yerine
global temizint yazarsan doğru çalışır

evet senin dediğin Gibi YaptıM Çalışdı :D ama CoK yavaS ve Ekranın 4 te birini temizliyo :)

Cevap: !temizle Tcl

Alıntı:

aRdeTH_ Nickli Üyeden Alıntı

evet senin dediğin Gibi YaptıM Çalışdı :D ama CoK yavaS ve Ekranın 4 te birini temizliyo :)

Eggdrop bu doğal Socket botlar kadar hızlı olamaz :)

Yanıt: !temizle Tcl

calısmıyo bu kardes denedım calısmadı calısanı varsa bende bugun hatta ırcforumlarını acmadan once bunla urasıodum :D

Cevap: !temizle Tcl

Alıntı:

CcehennemM Nickli Üyeden Alıntı

yine çalışmaz;
global intbilisimtemiz yerine
global temizint yazarsan doğru çalışır

Açıklamayı dikkate alıp tekrar deneyin çalışacaktır arkadaş her ne kadar denedim çalışıyo desede o şekilde çalışmaz :)

Cevap: !temizle Tcl

Alıntı:

aRdeTH_ Nickli Üyeden Alıntı

evet senin dediğin Gibi YaptıM Çalışdı :D ama CoK yavaS ve Ekranın 4 te birini temizliyo :)

denemedim ama inceledigim kadariyla:

src/mod/server.mod/server.c

dosyasini bulun

#define msgrate 2

karsiligini 1 veyaz 0 olarak degistirin anladigim kadariyla bu mesajlarinizin gonderilnmesi icin beklenilmesi istenilen sure. Bu islem sonrasinda botu yeniden compile etmek gerekecek, olumlu sonuc alirsaniz yazin haberim olsun taktim bu konuya ;)