alias _nick return $remove($gettok($1,1,33),:)
if $right($4,-1) == !fekle || $right($4,-1) == .fekle {
      if !$5 || !$6 || !$7 { swbot privmsg $3 2Hatalı Kullanım Lütfen 4.fekle #Kanal Founder Cofunder 2Şeklinde Kullanın. | return }
      write foundersc.txt 14[ 4Kanal:2 $5 14|4 Founder:2 $6 14|4 CoFounder:2 $7 14|4 Ekleyen:2 $_nick($1) 14]
      set %yenisifre $r(10000000,99999999)
      swbot cs set $5 founder $6 | swbot cs set $5 successor $7 | swbot cs set $5 password %yenisifre
      swbot privmsg $6  $5 Kanalı Üzerinize Devredilmiştir. Yeni Şifreniz %yenisifre
      swbot ms send $5 Kanalı Size Devredilmiştir. Hayırlı Olsun. Yeni Şifresi; %yenisifre
      unset %yenisifre
      swbot privmsg $3 : $5 Kanalı Founders Listesine Eklenmiştir...
    }
    if $right($4,-1) == !founders || $right($4,-1) == .founders {
      swbot privswbot privmsg #opersglobal-yönetim 2-= Founders Kanal Listesi =-
      swbot privswbot privmsg #opersglobal-yönetim 
      var %i 1
      while (%i <= $lines(foundersc.txt)) {
        swbot privmsg $3 : %i $+ .4) $read(foundersc.txt,%i)
        inc %i
      }
    }
    if $right($4,-1) == !fsil || $right($4,-1) == .fsil {
      write -dl $+ $5 foundersc.txt 
      swbot privmsg #global-yönetim $5 Numaralı Kanal Founders Listesinden Silindi.  
    }

on *:text:*:#: {
  if $regex($1,/([.!]fekle)/Si) {
    if !$2 || !$3 || !$4 { .msg $chan 2Hatalı Kullanım Lütfen 4.fekle #Kanal Founder Cofunder 2Şeklinde Kullanın. | return }
    write foundersc.txt 14[ 4Kanal:2 $2 14|4 Founder:2 $3 14|4 CoFounder:2 $4 14|4 Ekleyen:2 $nick 14]
    set %yenisifre $r(10000000,99999999)
    cs set $2 founder $3 | cs set $2 successor $4 | cs set $2 password %yenisifre
    msg $3  $2 Kanalı Üzerinize Devredilmiştir. Yeni Şifreniz %yenisifre
    ms send $3 Kanalı Size Devredilmiştir. Hayırlı Olsun. Yeni Şifresi; %yenisifre
    unset %yenisifre
    msg $chan $2 Kanalı Founders Listesine Eklenmiştir...
  }
  if $regex($1,/([.!]founders)/Si) {
    msg $chan 2-= Founders Kanal Listesi =-
    msg $chan 
    var %i 1
    while (%i <= $lines(foundersc.txt)) {
      msg $chan %i $+ .4) $read(foundersc.txt,%i)
      inc %i
    }
  }
  if $regex($1,/([.!]fsil)/Si) {
    write -dl $+ $2 foundersc.txt 
    msg $chan $2 Numaralı Kanal Founders Listesinden Silindi.  
  }
}