alias togglelog {
  if ($1 == $null) {  
    if ($group(#alog).status == on) {
      disable #alog
      close -@ @chanlog
      return    
    }
    else enable #alog
    return  
  }
  if ($readini(crazyspence.ini,alog,$1) == off) {
    writeini crazyspence.ini alog $1 on
    echo -a -- $1 reactivated
  } 
  else {
    writeini crazyspence.ini alog $1 off
    echo -a -- $1 deactivated
  }
}

alias autoalog {
  if ($1 == off) {
    writeini crazyspence.ini alog auto off
    echo -s -- Auto windowing disabled
    return  
  } 
  echo -s -- Auto windowing active.... Checking Max window size
  window -ax " $+ $active $+ "
  writeini crazyspence.ini alog mircx $window($active).x
  if ($window($active).y < 0) writeini crazyspence.ini alog mircy 0 
  else writeini crazyspence.ini alog mircy $window($active).y
  writeini crazyspence.ini alog mircw $window($active).w
  writeini crazyspence.ini alog mirch $window($active).h 
  writeini crazyspence.ini alog auto on 
  window -r " $+ $active $+ "  
  echo -s -- Beginning window resize
  if ($readini(crazyspence.ini,alog,edit) == on) window -rle @chanlog $readini(crazyspence.ini,alog,mircx) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch - $readini(crazyspence.ini,alog,mirch) * 0.79)),0)
  else window -rl @chanlog $readini(crazyspence.ini,alog,mircx) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch - $readini(crazyspence.ini,alog,mirch) * 0.79)),0)
  set %alog.scid $scid(0)    
  while (%alog.scid > 0) {
    scid $scon(%alog.scid)
    window -r " $+ Status Window $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)    
    dec %alog.scid        
    set %alog.i 0  
    while (%alog.i <= $chan(0) || %alog.i <= $query(0) || %alog.i <= $window(0) || %alog.i <= $chat(0) || %alog.i <= $send(0) || %alog.i <= $get(0) || %alog.i <= $fserve(0)) {  
      inc %alog.i      
      if ($chan(%alog.i)) {
        window -r " $+ $chan(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
      }      
      if ($query(%alog.i)) {
        window -r " $+ $query(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
      }      
      if ($window(%alog.i) && $window(%alog.i) != @chanlog) {
        window -r " $+ $window(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
      }      
      if ($send(%alog.i)) {
        window -r " $+ $send(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
      }      
      if ($chat(%alog.i)) {
        window -r " $+ = $+ $chat(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
      }      
      if ($get(%alog.i)) {
        window -r " $+ $get(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
      }      
      if ($fserve(%alog.i)) {
        window -r " $+ $fserve(%alog.i) $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)
      }
    }
  }
  echo -s -- Windows resized. All new windows will be automatically resized
  echo -s -- If you change your resolution or mIRC's window size please type /autoalog again to adjust
  echo -s -- To disable this feature type /autoalog off
  unset %alog.scid
  unset %alog.i
}

alias asetup {
  dialog -m aoptions alogoptions
  if ($readini(crazyspence.ini,alog,edit) == on) did -c aoptions 12 
  if ($readini(crazyspence.ini,alog,auto) == on) did -c aoptions 13
  if ($readini(crazyspence.ini,alog,snotice) == on) did -c aoptions 14
  if ($readini(crazyspence.ini,alog,input) == on) did -c aoptions 16
  if ($readini(crazyspence.ini,alog,cmsg) == on) did -c aoptions 22
  if ($readini(crazyspence.ini,alog,caction) == on) did -c aoptions 23
  if ($readini(crazyspence.ini,alog,cnotice) == on) did -c aoptions 24
  if ($readini(crazyspence.ini,alog,cjoin) == on) did -c aoptions 25
  if ($readini(crazyspence.ini,alog,cquit) == on) did -c aoptions 26
  if ($readini(crazyspence.ini,alog,ckick) == on) did -c aoptions 27
  if ($readini(crazyspence.ini,alog,cnick) == on) did -c aoptions 28
  if ($readini(crazyspence.ini,alog,ctopic) == on) did -c aoptions 29
  if ($readini(crazyspence.ini,alog,cmode) == on) did -c aoptions 200
  if ($readini(crazyspence.ini,alog,pmsg) == on) did -c aoptions 32
  if ($readini(crazyspence.ini,alog,paction) == on) did -c aoptions 33
  if ($readini(crazyspence.ini,alog,pnotice) == on) did -c aoptions 34
  did -r aoptions 44  
  set %alog.i 1
  while (%alog.i <= $ini(crazyspence.ini,alog,0)) {
    if ($left($ini(crazyspence.ini,alog,%alog.i),1) == $chr(35)) {
      if ($readini(crazyspence.ini,alog,$ini(crazyspence.ini,alog,%alog.i)) == off ) did -a aoptions 44 $ini(crazyspence.ini,alog,%alog.i)
    }    
    inc %alog.i  
  }
  unset %alog.i
}

on 1:start:{
  echo --- Activity log by CrazySpence
  echo --- type /asetup to change settings and manage log block list
  if ($readini(crazyspence.ini,alog,auto) == on) autoalog
}
on 1:load:{
  if (!$readini(crazyspence.ini,alog,cmsg)) writeini crazyspence.ini alog cmsg on
  if (!$readini(crazyspence.ini,alog,caction)) writeini crazyspence.ini alog caction on
  if (!$readini(crazyspence.ini,alog,cjoin)) writeini crazyspence.ini alog cjoin on
  if (!$readini(crazyspence.ini,alog,cquit)) writeini crazyspence.ini alog cquit on
  if (!$readini(crazyspence.ini,alog,input)) writeini crazyspence.ini alog input on
  asetup
}
on 1:unload:{
  $dialog(unload,question,-2)
  window -c @chanlog  
  window -x " $+ $active $+ "
  if (%alog.unload == yes) {  
    unset %alog.unload    
    echo -a -- Unloading and Checking for other CrazySpence scripts (they all use the same ini file)
    if ($script(colournicks.mrc)) {
      remini crazyspence.ini alog
      echo -a -- CrazySpence script still active and crazyspence.ini will not be deleted, removing alog section from CrazySpence.ini    
      return
    }
    if ($script(foreverplayer.mrc)) { 
      remini crazyspence.ini alog
      echo -a -- CrazySpence script still active and crazyspence.ini will not be deleted, removing alog section from CrazySpence.ini    
      return
    }
    remove crazyspence.ini
    echo -a -- no CrazySpence scripts detected, crazyspence.ini removed
  }
  else {
    echo -a -- Unloading script and keeping current settings
    unset %alog.unload    
  }
}

#alog on
on 1:text:*:#:{
  if ($readini(crazyspence.ini,alog,cmsg) != on) return
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan < $+ $nick $+ > $1-
  else aline @chanlog $chan < $+ $nick $+ > $1-
  sline @chanlog $line(@chanlog,0)
}
on 1:text:*:?:{
  if ($readini(crazyspence.ini,alog,pmsg) != on) return
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp * $+ $nick $+ * $1-
  else aline @chanlog $chan * $+ $nick $+ * $1-
  sline @chanlog $line(@chanlog,0)
}
on 1:action:*:#:{
  if ($readini(crazyspence.ini,alog,caction) != on) return 
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan * $nick $1-
  else aline @chanlog $chan * $nick $1-
  sline @chanlog $line(@chanlog,0)
}
on 1:action:*:?:{
  if ($readini(crazyspence.ini,alog,caction) != on) return 
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp * $+ $nick $+ * $1-
  else aline @chanlog * $+ $nick $+ * $1-
  sline @chanlog $line(@chanlog,0)
}
on 1:join:*:{
  if ($readini(crazyspence.ini,alog,cjoin) != on) return  
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick has joined 
  else aline @chanlog $chan $nick has joined 
  sline @chanlog $line(@chanlog,0)
}
on 1:part:*:{
  if ($readini(crazyspence.ini,alog,cjoin) != on) return
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick has left
  else aline @chanlog $chan $nick has left
  sline @chanlog $line(@chanlog,0)
}
on 1:quit:{
  if ($readini(crazyspence.ini,alog,cquit) != on) return
  set %alog.scid $scid(0)    
  while (%alog.scid > 0) {
    scid $scon(%alog.scid)
    dec %alog.scid        
    set %alog.i 0    
    while (%alog.i <= $ini(crazyspence.ini,alog,0)) {  
      inc %alog.i       
      if ($nick ison $ini(crazyspence.ini,alog,%alog.i)) {
        if ($readini(crazyspence.ini,alog,$ini(crazyspence.ini,alog,%alog.i)) == off) { 
          unset %alog.i
          unset %alog.scid          
          return
        }
      }
    }
  }
  unset %alog.i 
  unset %alog.scid 
  scid -r  
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $nick on $network has Quit( $+ $1- $+ )
  else aline @chanlog $nick on $network has Quit( $+ $1- $+ )
  sline @chanlog $line(@chanlog,0)
}
on 1:notice:*:#:{
  if ($readini(crazyspence.ini,alog,cnotice) != on) return
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan - $+ $nick $+ - $1-
  else aline @chanlog $chan - $+ $nick $+ - $1-
  sline @chanlog $line(@chanlog,0)
}
on 1:notice:*:?:{
  if ($readini(crazyspence.ini,alog,pnotice) != on) return
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp - $+ $nick $+ - $1-
  else aline @chanlog - $+ $nick $+ - $1-
  sline @chanlog $line(@chanlog,0)
}
on 1:kick:#:{
  if ($readini(crazyspence.ini,alog,ckick) != on) return
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick kicked $knick ( $+ $1- $+ )
  else aline @chanlog $chan $nick kicked $knick ( $+ $1- $+ )
  sline @chanlog $line(@chanlog,0)
}
on 1:nick:{
  if ($readini(crazyspence.ini,alog,cnick) != on) return
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $nick is now known as $newnick
  else aline @chanlog $nick is now known as $newnick
  sline @chanlog $line(@chanlog,0)
}
on 1:topic:#:{
  if ($readini(crazyspence.ini,alog,ctopic) != on) return
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick changes topic to: $1-
  else aline @chanlog $chan $nick changes topic to: $1-
  sline @chanlog $line(@chanlog,0)
}
on 1:RAWmode:#:{
  if ($readini(crazyspence.ini,alog,cmode) != on) return
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick set mode: $1-
  else aline @chanlog $chan $nick set mode: $1-
  sline @chanlog $line(@chanlog,0)
}
;on 1:ban:#:{
;  if ($readini(crazyspence.ini,alog,ckick) != on) return
;  if ($readini(crazyspence.ini,alog,$chan) == off) return  
;  if $window(chanlog) == $null) window -l @chanlog
;  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
;  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick banned $banmask
;  else aline @chanlog $chan $nick banned $banmask
;  sline @chanlog $line(@chanlog,0)
;}
on 1:unban:#:{
  if ($readini(crazyspence.ini,alog,ckick) != on) return
  if ($readini(crazyspence.ini,alog,$chan) == off) return  
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan $nick unbanned $banmask
  else aline @chanlog $chan $nick unbanned $banmask
  sline @chanlog $line(@chanlog,0)
}
on 1:snotice:*:{
  if ($readini(crazyspence.ini,alog,snotice) != on) return
  if $window(chanlog) == $null) window -l @chanlog
  if ($line(@chanlog,0)  >= $left($readini(mirc.ini,options,n3),$calc($pos($readini(mirc.ini,options,n3),$chr(44),1) - 1))) dline @chanlog 1
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp - $+ $server $+ - $1-
  else aline @chanlog - $+ $server $+ - $1-
  sline @chanlog $line(@chanlog,0)

}
on 1:active:*:{
  scid $activecid 
  if ($active == @chanlog) {
    if ($readini(crazyspence.ini,alog,edit) == on) window -rle @chanlog $readini(crazyspence.ini,alog,mircx) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch - $readini(crazyspence.ini,alog,mirch) * 0.79)),0)
    else window -rl @chanlog $readini(crazyspence.ini,alog,mircx) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch - $readini(crazyspence.ini,alog,mirch) * 0.79)),0)
    return  
  }
  if ($readini(crazyspence.ini,alog,auto) == on) { 
    window -r " $+ $active $+ " $readini(crazyspence.ini,alog,mircx) $readini(crazyspence.ini,alog,mircy) $readini(crazyspence.ini,alog,mircw) $round($calc($readini(crazyspence.ini,alog,mirch) * 0.75),0)  
  }
}

on 1:input:#:{
  if ($readini(crazyspence.ini,alog,input) != on) return  
  if ($1 == /msg) {
    echo -s -> * $+ $2 $+ * $3-
    if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * $3-
    else aline @chanlog -> * $+ $2 $+ * $3-
    sline @chanlog $line(@chanlog,0)
    return 
  } 
  if ($1 == /me) {
    if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan * $me $2-
    else aline @chanlog $chan * $me $2-
    sline @chanlog $line(@chanlog,0)
    return  
  } 
  if ($1 == /describe) {
    if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * * $me $3-
    else aline @chanlog -> * $+ $2 $+ * * $me $3-
    sline @chanlog $line(@chanlog,0)
    return  
  }
  if ($left($1,1) == /) return  
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp $chan < $+ $me $+ > $1-
  else aline @chanlog $chan < $+ $me $+ > $1-
  sline @chanlog $line(@chanlog,0)
  return  
}
on 1:input:?:{
  if ($readini(crazyspence.ini,alog,input) != on) return  
  if ($1 == /msg) {
    echo -s -> * $+ $2 $+ * $3-
    if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * $3-
    else aline @chanlog -> * $+ $2 $+ * $3-
    sline @chanlog $line(@chanlog,0)
    return 
  } 
  if ($1 == /me) {
    if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $active $+ * * $me $2-
    else aline @chanlog * $+ $active $+ * * $me $2-
    sline @chanlog $line(@chanlog,0)
    return  
  } 
  if ($1 == /describe) {
    if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * * $me $3-
    else aline @chanlog -> * $+ $2 $+ * * $me $3-
    sline @chanlog $line(@chanlog,0)
    return  
  }
  if ($left($1,1) == /) return  
  if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $active $+ * < $+ $me $+ > $1-
  else aline @chanlog $active < $+ $me $+ > $1-
  sline @chanlog $line(@chanlog,0)
  return  
}
on 1:input:@chanlog:{
  if ($readini(crazyspence.ini,alog,input) != on) return  
  if ($1 == /msg) {
    echo -s -> * $+ $2 $+ * $3-
    if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * $3-
    else aline @chanlog -> * $+ $2 $+ * $3-
    sline @chanlog $line(@chanlog,0)
    return 
  } 
  if ($1 == /describe) {
    if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * * $me $3-
    else aline @chanlog -> * $+ $2 $+ * * $me $3-
    sline @chanlog $line(@chanlog,0)
    return  
  }
}
on 1:input:Status Window:{
  if ($readini(crazyspence.ini,alog,input) != on) return  
  if ($1 == /msg) {
    echo -s -> * $+ $2 $+ * $3-
    if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * $3-
    else aline @chanlog -> * $+ $2 $+ * $3-
    sline @chanlog $line(@chanlog,0)
    return 
  } 
  if ($1 == /describe) {
    if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) aline @chanlog $timestamp -> * $+ $2 $+ * * $me $3-
    else aline @chanlog -> * $+ $2 $+ * * $me $3-
    sline @chanlog $line(@chanlog,0)
    return  
  }
}

#alog end
on 1:dialog:aoptions:sclick:12:{
  if ($did($did).state == 1) {
    writeini crazyspence.ini alog edit on
    window -c @chanlog
    window -le @chanlog
  }
  else {
    writeini crazyspence.ini alog edit off
    window -c @chanlog
    window -l @chanlog
  }
}

on 1:dialog:aoptions:sclick:13:{
  if ($did($did).state == 1) {
    writeini crazyspence.ini alog auto on
    autoalog
  }
  else writeini crazyspence.ini alog auto off
}
on 1:dialog:aoptions:sclick:14:{
  if ($did($did).state == 1) writeini crazyspence.ini alog snotice on
  else writeini crazyspence.ini alog snotice off
}
on 1:dialog:aoptions:sclick:15:{
  if ($did($did).state == 1) disable #alog
  else enable #alog
}
on 1:dialog:aoptions:sclick:16:{
  if ($did($did).state == 1) writeini crazyspence.ini alog input on
  else writeini crazyspence.ini alog input off
}

on 1:dialog:aoptions:sclick:22:{
  if ($did($did).state == 1) writeini crazyspence.ini alog cmsg on
  else writeini crazyspence.ini alog cmsg off
}
on 1:dialog:aoptions:sclick:23:{
  if ($did($did).state == 1) writeini crazyspence.ini alog caction on
  else writeini crazyspence.ini alog caction off
}
on 1:dialog:aoptions:sclick:24:{
  if ($did($did).state == 1) writeini crazyspence.ini alog cnotice on
  else writeini crazyspence.ini alog cnotice off
}
on 1:dialog:aoptions:sclick:25:{
  if ($did($did).state == 1) writeini crazyspence.ini alog cjoin on
  else writeini crazyspence.ini alog cjoin off
}
on 1:dialog:aoptions:sclick:26:{
  if ($did($did).state == 1) writeini crazyspence.ini alog cquit on
  else writeini crazyspence.ini alog cquit off
}
on 1:dialog:aoptions:sclick:27:{
  if ($did($did).state == 1) writeini crazyspence.ini alog ckick on
  else writeini crazyspence.ini alog ckick off
}
on 1:dialog:aoptions:sclick:28:{
  if ($did($did).state == 1) writeini crazyspence.ini alog cnick on
  else writeini crazyspence.ini alog cnick off
}
on 1:dialog:aoptions:sclick:29:{
  if ($did($did).state == 1) writeini crazyspence.ini alog ctopic on
  else writeini crazyspence.ini alog ctopic off
}
on 1:dialog:aoptions:sclick:200:{
  if ($did($did).state == 1) writeini crazyspence.ini alog cmode on
  else writeini crazyspence.ini alog cmode off
}

on 1:dialog:aoptions:sclick:32:{
  if ($did($did).state == 1) writeini crazyspence.ini alog pmsg on
  else writeini crazyspence.ini alog pmsg off
}
on 1:dialog:aoptions:sclick:33:{
  if ($did($did).state == 1) writeini crazyspence.ini alog paction on
  else writeini crazyspence.ini alog paction off
}
on 1:dialog:aoptions:sclick:34:{
  if ($did($did).state == 1) writeini crazyspence.ini alog pnotice on
  else writeini crazyspence.ini alog pnotice off
}

on 1:dialog:aoptions:sclick:42:{
  if ($left($did(43).text,1) == $chr(35)) {
    writeini crazyspence.ini alog $did(43).text off
    did -r aoptions 44    
    set %alog.i 1
    while (%alog.i <= $ini(crazyspence.ini,alog,0)) {
      if ($left($ini(crazyspence.ini,alog,%alog.i),1) == $chr(35)) {
        if ($readini(crazyspence.ini,alog,$ini(crazyspence.ini,alog,%alog.i)) == off ) did -a aoptions 44 $ini(crazyspence.ini,alog,%alog.i)
      }    
      inc %alog.i  
    }

  }
  unset %alog.i
}

on 1:dialog:aoptions:dclick:44:{
  writeini crazyspence.ini alog $did($did).seltext on  
  did -d aoptions $did($did).sel 44
  did -r aoptions 44    
  set %alog.i 1
  while (%alog.i <= $ini(crazyspence.ini,alog,0)) {
    if ($left($ini(crazyspence.ini,alog,%alog.i),1) == $chr(35)) {
      if ($readini(crazyspence.ini,alog,$ini(crazyspence.ini,alog,%alog.i)) == off ) did -a aoptions 44 $ini(crazyspence.ini,alog,%alog.i)
    }    
    inc %alog.i  
  }
  unset %alog.i
}

menu @chanlog {
  dclick:{
    if ($mid($readini(mirc.ini,options,n4),$calc($pos($readini(mirc.ini,options,n4),$chr(44),12) - 1),1) == 1) set %alog.chan $mid($line(@chanlog,$1-),$calc($pos($line(@chanlog,$1-), $chr(32),1) + 1),$calc($pos($line(@chanlog,$1-), $chr(32),2) - $pos($line(@chanlog,$1-), $chr(32),1)))
    else set %alog.chan $left($line(@chanlog,$1-),$pos($line(@chanlog,$1-),$chr(32))) 
    set %alog.scid $scid(0)  
    while (%alog.scid > 0) {  
      set %alog.loop 1      
      scid $scon(%alog.scid)
      dec %alog.scid    
      while (%alog.loop <= $chan(0)) {
        if ($chan(%alog.loop) ==  %alog.chan) {
          window -a %alog.chan
          unset %alog.*          
          return        
        }      
        inc %alog.loop      
      }
    } 
    unset %alog.* 
  }
}

dialog -l alogoptions {
  title "Activity Log options"
  size -1 -1 200 90
  option dbu

  tab     "Global", 10, -1 -1 200 125
  text     "Check boxes to turn a feature on. Uncheck to disable",1,20 22 130 10,center tab 10  
  check "Editbox", 12, 20 30 56 10,left tab 10
  check "Auto Windows", 13, 20 40 56 10,left tab 10  
  check "Server Notices", 14, 20 50 56 10,left tab 10  
  check "Your input", 16,20 60 56 10,left tab 10  
  check "Disable Activity log ",15, 20 70 56 10,left tab 10

  tab     "Channel", 20, -1 -1 200 125
  text     "Check boxes to turn a feature on. Uncheck to disable",21,20 22 130 10,center tab 20
  check "Messages", 22, 20 30 46 10,left tab 20
  check "Actions", 23, 20 40 46 10,left tab 20
  check "Notices", 24, 20 50 46 10,left tab 20
  check "Join/part", 25, 20 60 46 10,left tab 20
  check "Quits", 26, 20 70 46 10,left tab 20
  check "Kicks", 27, 70 30 46 10,left tab 20
  check "Nick changes", 28, 70 40 46 10,left tab 20
  check "Topics", 29, 70 50 46 10,left tab 20 
  check "Modes", 200, 70 60 46 10,left tab 20 

  tab     "Private", 30, -1 -1 200 125
  text     "Check boxes to turn a feature on. Uncheck to disable",31,20 22 130 10,center tab 30
  check "Messages", 32, 20 30 46 10,left tab 30
  check "Actions", 33, 20 40 46 10,left tab 30
  check "Notices", 34, 20 50 46 10,left tab 30

  tab      "Log block", 40 -1 -1 200 125
  text     "Type channel name into the edit box, double click in the list to remove",41,10 22 180 10,center tab 40
  button "Add Channel", 42, 19 31 36 10, left tab 40
  edit     "#chan", 43, 56 30 46 10,right tab 40
  list       44, 56 45 46 50, sort tab 40
}

on 1:dialog:unload:sclick:2:{
  set %alog.unload yes
}
on 1:dialog:unload:sclick:3:{
  set %alog.unload no
}

dialog question {
  title "Delete settings?"
  size -1 -1 100 50
  option dbu

  text "Do you want to delete the settings in crazyspence.ini?",1, 1 5 95 20,center
  button "Yes",2,25 25 20 15,ok
  button "No",3,55 25 20 15,cancel
}