Mine

on *:text:!idle*:%chan:{ 
  if (!$regex($2,/^#.+/)) || ($2 == #help) { msg # Error: Invalid Channel Name. }
  elseif ($me ison $2) { msg # Error: I'm Already On That Channel. }
  elseif ($idlec($nick) == $2) { msg # Error: You Have Already Requested Me! }
  else { 
    msg # Ok, Now Joining $2 With Password ( $+ $iif($3,$3,None) $+ )
    join $2-
    .timercc 1 3 cc $nick $2
  }
}
alias cc { 
  if ($1 !ison $2) {
    part $2 Not On Chan. 
    msg %chan Parted $2 $+ , $1 Not There!
  }
  else {
    writeini -n idle.ini $1 Chan $2
    msg $2 OK, Requierments Met So I Will Stay! Come %chan
  }
}
alias idlec { return $readini(Idle.ini,$1,Chan) }
on *:part:%chan:{ if ($idlec($nick) != $null) { msg $v1 Idle Bot from %chan | part $v1 | //close -m | remini -n Idle.ini $nick } }
on *:quit:{ if ($idlec($nick) != $null) { part $v1 | remini -n Idle.ini $nick } }
on *:kick:%chan:{ if ($idlec($knick) != $null) { part $v1 | remini -n Idle.ini $knick } }
on *:nick:{ if ($idlec($nick) != $null) { writeini -n Idle.ini $newnick Chan $v1 | remini -n Idle.ini $nick } }
on *:disconnect:{ write -c Idle.ini }
on *:exit:{ write -c Idle.ini }


on *:text:*:#:{
if ($nick == durnik)
  if ($1 == !join) { Join $2 }
  if ($1 == !part) { .msg $2 Leaving Now! Reason: $3- (Owner Request) | part $2 }