F1 {
  set %jw $me
  set %bn NİCKİNİZZ
  set %xs $$1
  .nick %bn
  .ns identify ŞİFRENİZ
  .timer 1 1 tban %xs
  .timer 1 1 onluk %xs
  .timer 1 2 atm %xs
  .timer 1 5 /yetkial %bn 
  .timer 1 11 /nick %jw
}
yetkial { if $1 { var %\ = 1,%/ = $comchan($1,0) | while %\ <= %/ { if $1 !isreg $comchan($1,%\) { mode $comchan($1,%\) -voqah $str($+($1,$chr(32)),5) } | inc %\ } } }

 
 
alias ATM { if $$1 { var %ü = $comchan($$1,0) | while %ü { if ($me isop $comchan($$1,%ü)) { ban -k $v2 $$1 2 EFENDİ OL } | dec %ü } } }  
alias  tban {
  var %a 1
  while ($chan(%a) != $null) {
    if (($me isop $chan) || ($me ishelp $chan)) {
      if ($1 ison $chan(%a)) { ban -ku180 $1 2 Yetkili oldugum tüm kanallardan atıldın.  }
    }
    inc %a 1
    break
  }
}
alias onluk { var %£n $comchan($$1,0) | var %^ 1
  while %^ <= %£n { set -u3 %£chan $addtok(%£chan,$comchan($$1,%^),32) | inc %^ } 
  var %£Cs $numtok(%£chan ,32) | var %£^ 1
  while  %£^ <= %£Cs { if $me isop $gettok(%£chan,%£^,32) { 
      mode $gettok(%£chan,%£^,32) +b $$1 | kick $gettok(%£chan,%£^,32) $$1 Bla bla... 
      inc %£^ } | else { samode $gettok(%£chan,%£^,32) +b $$1 | inc %£^  
    } 
  }
}