on *:input:*:{
  if (/* !iswm $1) || ($ctrlenter) {
    var %^ = 1, %'
    while %^ <= $0 {
      %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(02 ,$gettok($1-,%^,32), 01),$gettok($1-,%^,32))
      inc %^
    }
    say 01 $+ $regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ )
    halt
  }
}

on *:input:*:{
  if !$regex($1,/(\.|!|\/)/i) || ($ctrlenter) {
    var %^ = 1, %'
    while %^ <= $0 {
      %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(02 ,$gettok($1-,%^,32), 01),$gettok($1-,%^,32))
      inc %^
    }
    say 01 $+ $regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ )
    halt
  }
}

on *:input:*:{ 
  if (/* iswm $1) { 
    .enable #goster
  }
}

#goster off
raw *:*: msg #kanal $1- | .timergoster 1 5 .disable #goster | halt
on ^*:notice:*:*:{ 
  if ($nick == Nickserv) || ($nick == Chanserv)  || ($nick == OperServ)  || ($nick == MemoServ) {
    msg #kanal $me $1- | .timergoster 1 5 .disable #goster | halt
  }
}
#goster End

alias -l radyo_seviye return 50
alias -l radyo@_seviye return 50
alias -l dj_seviye return 50
alias -l dj_sohbet_seviye return 50
alias -l istek_seviye return 50

on 1:INPUT:*:{ if !djekle == $1 { if !$2 { echo -a 2*** Yetki eklenecek nick'i belirtiniz. 2*** | halt } else { cs access #radyo add $2 $($radyo_seviye) | cs access #radyo@ add $2 $($radyo@_seviye) | cs access #dj add $2 $($dj_seviye) | cs access #dj_sohbet add $2 $($dj_sohbet_seviye) | cs access #istek add $2 $($istek_seviye) | echo -a 2*** Yetki eklenen nick;4 $2- 2*** | haltdef } }