on *:text:!kod*:?: {
  if (%kodsifre.  [ $+ [ $nick ] ] == $null) { msg $nick Sizin Kodunuz Bulunmamaktadir! | halt }
  if ($2 == $null) { msg $nick Kodu Girmeyi Unuttunuz! | halt }
  if ($2 == %kodsifre.  [ $+ [ $nick ] ] ) {
    msg $nick Kodu Dogru Girdiniz, Kanala Oto Giris Yapiyorsunuz.
    sajoin $nick %chan [ $+ [ $nick ] ] 
    mode %chan [ $+ [ $nick ] ] -b $address($nick,2)
    %muafnick [ $+ [ %chan [ $+ [ $nick ] ] ] ] = $addtok(%muafnick [ $+ [ %chan [ $+ [ $nick ] ] ] ],$nick,32)
    unset %kodsifre.  [ $+ [ $nick ] ]
    unset %chan [ $+ [ $nick ] ] 
  }
  else {
    msg $nick Kodu Yanlis Girdiniz!
    rastgele $nick
  }
}