Opsuz Kanal tarama TCLsi

[ticarichat]

alias optarama {
/optarama1
}
alias oprdntl {
if (%oprdnt != ON) { /exit }
}
alias optarama1 {
unset %names.*
.enable #op.control
if ($server == $null) { echo 4 -a HATA: Hiç bir sunucuya bağlı değilsiniz | halt }
if ($me !ison #opers) { /fjoin #opers $me }
var %chansfile = chan.txt
var %line = 1, %total = $lines(%chansfile)
while (%line <= %total) {
var %data = $read -l $+ %line %chansfile
if (%data != $null) {
.timer 1 %sur /names %data
.timer 1 155 /unset %autokanal.gir
}
inc %line
inc %sur
}
%names.enddata = %data
}

#op.control off

raw 353:*:{
haltdef
inc %names.total $numtok($4-,32)
inc %names.ops $count($4-,@)
}
raw 366:*:{
haltdef
echo -s $2 - %names.ops - %names.total
if (%names.ops < 2) && (%names.total >= 5) {
if (%autokanal.gir == ON) { /fjoin $2 $me }
if ( #dostane_ isin $2 ) { msg #ops 2|4(@)7Opsuz KanaL RapoRu2|-->: 4 $2 7kanalında @p yok.User Sayısı :2 %names.total }
}
if (%names.enddata == $2) { unset %names.* | .disable #op.control | halt }
unset %names.total %names.ops
set %sur 1
}
#op.control end
ticarichat

[ticarichat]

Bu Codeyi TCL ye Nasıl Cevirebiliriz?

bakalım sımdı hemen buna.

chan.txt den kanallar alinarak o kanallarin taramasi yapılacak sonrasinda da o kanalda 2 den az op 5 den fazla da user bulunuyorsa otomatik kanala girme sistemide aciksa kanala kendisi giriyor.

Bunu yapmak mumkun fakat her kanal icinde eggdrop'a koruma degerleri girmek gerekecek. Bunun disinda eggdrop kanallara girdiginde who komudunu kullandigi icin her yeni acilan kanal onun yavas calismasina neden olacaktir.

ek olarak her girdigi kanal icin kendini o kanala giris seklinde ayarlamamiz lazim bunu yaptigimizda kanaldan cikmasi icin bir deger dusunulebilir fakat bu da mevcut chan modulu (eggdrop'a ozel kanal ayarlari) icin ters orantili olacagindan cakisma soz konusu olabilir.

yinede denerim.

sizler için