on 1:join:#:{
  if ( ( $calc( %ChannelFloodProtection. [ $+ [ $chan ] ] ) <= 3 ) && ( %greetstatus == on ) ) {
    /var %retrievegreet = $read(TextFiles/greets.txt, sn, $nick $+ : )
    if ( %retrievegreet != $null ) {
      if ( *no_greet* !iswm %retrievegreet ) { .msg $chan 7« $+ $nick $+ » %retrievegreet }
      if ( $ini(TextFiles/GreetNickStatus.ini,PROTECTED, $nick) != $null ) { /writeini TextFiles/GreetNickStatus.ini PROTECTED $nick $ctime }
      else { /writeini TextFiles/GreetNickStatus.ini TEMPORARY $nick $ctime }
    }      
    else { .notice $nick $Errorcolor(You have no greet set. To set a greet type !setgreet <greethere>) }  
  }
}



on 1:join:#:{ 
  /ChannelFloodProtection $chan
}

alias ChannelFloodProtection {
  if ( %ChannelFloodProtection. [ $+ [ $1 ] ] == off ) { /halt }
  if ( ( $me isreg $1 ) || ( $me isvoice $1 ) ) { /halt }
  /inc -z %ChannelFloodProtection [ $+ [ $1 ] ] 3
  if ( %ChannelFloodProtection [ $+ [ $1 ] ] >= 12 ) { /mode $1 +iK | /unset %ChannelFloodProtection [ $+ [ $1 ] ] | /msg $1 $TagColor(Flood Control) activated. The channel will be open again in one minute. | .timerChannelFlood $+ $1 1 60 /mode $1 -iK } 
}