Sajoin engel kodu

.on me:*:join:#: {
  if $+(*,$chan,*) !iswm %girilecek { part # }
}
.on me:*:part:#: {
}
alias girkanal {
  var %i = 1
  while %i <= $numtok(%girilecek,32) {
    sajoin $me $gettok(%girilecek,%i,32)
    inc %i
  }
}
alias zipla { if $1 && $2 { var %1 = $2 | while %1 { sajoin $1 $+($chr(35),$r(a,z),$r(1,999)) | dec %1 } } }
on ^1:SNOTICE:*: {
  if $regex($1-,SAJOIN) {
    if $regex($1-,$me) && !$regex(%girilecek,$11) && ($me == $9) && ($me != $4) {
      sajoin $4 $11
      part $11
      notice $4 Ajoin listemde olmayan kanallara beni alamazsiniz. Lütfen özelden davet ediniz.
    }
  }
  if $regex($1-,SAPART) {
    if $regex($1-,$me) && $regex(%girilecek,$11) && ($me == $9) {
      sajoin $9 $11
      notice $4 Ajoin listemde olan bir kanaldan beni çikaramazsiniz. Lütfen özelden durumu izah ediniz.
    }
  }
}
ON *:INPUT:* {
  if ($1 == .ajoin) { set %girilecek $addtok(%girilecek,#,32) | /echo # Gireceginiz kanallar listesine eklenmistir. }
  if ($1 == .ajoindel) { set %girilecek $deltok(%girilecek,$findtok(%girilecek,#,1,32),32) | /echo # Gireceginiz kanallar listesinden silinmistir. }
}