on *:text:*:#: {
  if $regex($1,/^[!.]bur[cç]/i) {
    if !$regex($2,/(ko[cç]|bo[gğ]a|[İi]kizler|yenge[cç]|a[rs]lan|ba[sş]ak|terazi|akrep|yay|o[gğ]lak|kova|bal[ıi]k)/i) {
    msg $chan Lutfen gecerli bir burç giriniz. 
return 
}
  var %b = $lower($regml(1))
      %b = $replace(%b,ç,c,ğ,g,ı,i,ş,s,ö,o,ü,u)
      set %lnk %b
      set %burchn $chan
      set %burcnck $nick
      burc
    }
}