Something

on *:TEXT:.apply*:#dan_-:{ 
if ($2 iswm $gettok(%banned.channels, $2, 32)) {
.notice $nick 7,1(0,1 error 7·0,1 cant join ( $2 _ , Banned ) 0,17)
halt
}
  if ($left($2,1) == $chr(35)) { 
    if ($me !ison $2) { 
      .join $2  
      .timer 1 2 7,1(0,1 check 7·0,1 checking $2 $nick $chan 0,17)
    } 
    else { .notice $nick 7,1(0,1 error 7·0,1 I am already in $2+(',$3 0,17) 
    } 
  } 
  else { .notice $nick 7,1(0,1 error 7·0,1 correct syntax: .apply #chan 0,17) 
  } 
} 
alias check { 
  if ($me ison $1) {  
    if ($2 isop $1) {  
      writeini -n idler.ini $3 $2 $1 
    } 
    else { .msg $1 7,1(0,1 request 7·0,1 request failed. $+(',$2,') you dont have ops 0,17) 
      .part $1 7,1(0,1 error 7·0,1 error in request 0,17)
    } 
  } 
} 
 
on *:PART:#: { 
  if ($readini(idler.ini,$chan,$nick) != $null) { 
    part $readini(idler.ini,$chan,$nick) $nick has left $chan 
    notice $nick 7,1(0,1 error 7·0,1 purged $readini(ilder.ini,$chan,$nick) 0,17) 
    remini idler.ini $chan $nick  
  } 
}
 
on 3:TEXT:.addchan*:#:{
if ($nick isop $chan) {
set %banned.channels $addtok(%banned.channels, $2, 32)
.notice $nick 7,1(0,1 banlist 7·0,1 $2 is now on my ban list 0,17) 
halt
}
}
 
on 3:TEXT:.remchan*:#:{
if ($nick isop $chan) {
set %banned.channels $remtok(%banned.channels, $2, 32)
.notice $nick 7,1(0,1 banlist 7·0,1 $2 has been removed from banlist 0,17)
halt
}
}