userlerin belirttiğiniz kanaldan kanal başvurusu yapabilmesi özelliği
mynet merlyn versiyonun değişik bir şekli (Cr version )
!basvuru #kanal
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#basvuru:{
if !basvuru isin $1 {
var %ps:_ $left($md5($r(a,z)),$r(8,20))
if $read(bchan.txt,w,$2) { .msg # Kayıtlamak istediğiniz kanal daha önce kayıtlanmış başka kanal ismi deneyiniz $+($nick,.) }
else { write bchan.txt $2
.cs register $2 %ps:_ XXXXX Sohbet Odaları
.cs identify $2 %ps:_
.sajoin $2
.fjoin $nick $2
.msg $nick $2 Kanalı tarafınıza kaydedilmiştir.
.os topic $2 XXX.Net Keyifli Sohbetler Diler..
.samode $2 +o $nick
.as chan $2 set bot XXX-BOT
.msg chanserv ftransfer $2 $nick
.timer 1 15 part $2
.ban -k $chan $nick Kanal Başvurunuz Kabul edilmiştir. xxxx.Net Keyifli Sohbetler Diler..
}
}
}
Bu kod güzel de basit olmuş mesela şifresiz nickler başvuru yapmasın..ve başvurulan kanallar ğ,ü,ş,ö,ç,ı, vs. vs. gibi harf kanal başvurusunu kabul etmeyip uyarı verebilmesi daha güzel olur.