/ScriptServ

menu channel,query {
  -
  Essence
  .System
  ..CPU (ecpu):/ecpu
  ..Memory (emem):/emem
  ..Disks (ehdd):/ehdd
  ..Power status (epower):/epower
  ..Video Adapter (evideo):/evideo
  ..OS Version (eos):/eos
  .UpTime
  ..System UpTime (euptime):/euptime
  ..mIRC UpTime (euptimemirc):/euptimemirc
  ..System UpTime record (euptime.rec):/euptime.rec
  ..mIRC UpTime record (euptimemirc.rec):/euptimemirc.rec
  .Network
  ..Network Adapters (enet):/enet
  ..Adapters Speed (enet.spd):/enet.spd
  ..Adapter Speed (enet.spd index):/enet.spd $$?="Adapter Index: (0-??)"
  ..Transfered (all) (enet.bts):/enet.bts
  .AW Machine
  ..Enable (afk) (awon):/awon
  ..Enable (???) (awon reason):/awon $$?="Reason:"
  ..Disable (awoff):/awoff
  .Torrent
  ..G3 Torrent (g3):/g3
  ..G3 Total (g3.t):/g3.t
  ..ABC Torrent (eabc):/eabc
  ..ABC Total (eabc.t):/eabc.t
  ..uTorrent (utor):/utor
  ..uTotal (utor.t):/utor.t
  .WinAmp
  ..WinAmp Song (esong):/esong
  ..WinAmp Simple (esong+):/esong+
  ..Start song checking (esong.autoon):/esong.autoon
  ..Stop song checking (esong.autooff):/esong.autooff
  .Misc
  ..DCC Get/Send (edcc):/edcc
  ..DirList (edir):/edir
  ..Windows (ewins):/ewins
  ..NOD32 Version (enod):/enod
  ..Monitor Off (eoff):/eoff
  .Essence
  ..Themes (etheme):/etheme
  ..Settings (eset):/eset
  ..About (essence):/essence
  ..Check version (echeck):/echeck
}

on *:load:{
  echo -ae [#] Essence v. 2.2.6.0 loaded...
}

on *:exit:{
  $echeckrecord
}

alias reloadessence {
  load -rs $scriptdir $+ essence.mrc 
}

alias echeck {
  set %Elastver $lib(CheckVersion,NOT_USED)
  echo -ae [#] Using version: 2.2.6.0 , Latest version is: %Elastver
  if ($replace(%Elastver,$chr(46),$null) > $replace(2.2.6.0,$chr(46),$null)) {
    echo -ae [#] New version detected, updating...
    run $scriptdir $+ update.exe
    echo -ae [#] After update process call /reloadessence
  }
  unset %Elastver
}

alias disablegong {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM gong false
    echo -ae [#] AM gong disabled...
}
alias enablegong {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM gong true
    echo -ae [#] AM gong enabled...
}
alias disablebeep {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM beep false
    echo -ae [#] AM beep disabled...
}
alias enablebeep {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM beep true
    echo -ae [#] AM beep enabled...
}

alias lib { return $dll( $scriptdir $+ Essence.dll ,$1,$2) }
alias cfg { return $readini( " $+ $scriptdir $+ Essence.ini $+ " ,$1,$2) }

alias g3 {
  set %Eg3out $lib(G3,$cfg(Torrent,host) $+ ; $+ $cfg(Torrent,pass))
  set %Ei 0
  if ([new] isin %Eg3out) {
    while ([new] isin %Eg3out) {
      set %Emsgparse $mid(%Eg3out,6,$calc($pos(%Eg3out,[end],1)-6)))
      set %Eg3out $remove(%Eg3out,[new] $+ %Emsgparse $+ [end])

      set %Eg3write $replace($cfg(Torrent,masc),[name],$gettok(%Emsgparse,1,59))
      %Eg3write = $replace(%Eg3write,[size],$gettok(%Emsgparse,2,59))
      %Eg3write = $replace(%Eg3write,[activ],$gettok(%Emsgparse,3,59))
      %Eg3write = $replace(%Eg3write,[prog],$gettok(%Emsgparse,4,59))
      %Eg3write = $replace(%Eg3write,[progbar],$progbar($gettok(%Emsgparse,4,59),$cfg(Torrent,chr1),$cfg(Torrent,chr2),$cfg(Torrent,chr3)))
      %Eg3write = $replace(%Eg3write,[drate],$gettok(%Emsgparse,5,59))
      %Eg3write = $replace(%Eg3write,[urate],$gettok(%Emsgparse,6,59))
      %Eg3write = $replace(%Eg3write,[eta],$gettok(%Emsgparse,7,59))
      %Eg3write = $replace(%Eg3write,[ratio],$gettok(%Emsgparse,8,59))
      %Eg3write = $replace(%Eg3write,[cnt],%Ei)
      %Eg3write = $replace(%Eg3write,[start],$cfg(Torrent,start))
      %Eg3write = $replace(%Eg3write,[sep],$cfg(Torrent,sep))
      %Eg3write = $replace(%Eg3write,[end],$cfg(Torrent,end))
      %Eg3write = $replace(%Eg3write,[client],G3 $+ $chr(32))
      %Eg3write = $repcb(%Eg3write)
      %Eg3write = $replace(%Eg3write,<br>,N/A)

      inc %Edtotal $gettok($gettok(%Emsgparse,5,59),1,32)
      inc %Eutotal $gettok($gettok(%Emsgparse,6,59),1,32)

      if ($cfg(Torrent,use) == say) {
        .timer $+ %Ei 1 %Ei msg $active %Eg3write
      } 
      else {
        .timer $+ %Ei 1 %Ei me %Eg3write
      }
      inc %Ei 1
    }
    set %Eg3total $replace($cfg(Torrent,total),[dtotal],%Edtotal)
    %Eg3total = $replace(%Eg3total,[utotal],%Eutotal)
    %Eg3total = $replace(%Eg3total,[sep],$cfg(Torrent,sep))
    %Eg3total = $replace(%Eg3total,[client],G3 $+ $chr(32))
    %Eg3total = $repcb(%Eg3total)

    if ($cfg(Torrent,use) == say) {
      .timerttl 1 %Ei msg $active %Eg3total
    }
    else {
      .timerttl 1 %Ei me %Eg3total
    }
  }
  else { echo -a [#] G3 Web Interface: Cannot read ! }
  unset %Eg3out
  unset %Eg3total
  unset %Ei
  unset %Eutotal
  unset %Edtotal
  unset %Eg3write
  unset %Emsgparse
}

alias g3.t {
  set %Eg3out $lib(G3,$cfg(Torrent,host) $+ ; $+ $cfg(Torrent,pass))
  set %Ei 0
  if ([new] isin %Eg3out) {
    while ([new] isin %Eg3out) {
      set %Emsgparse $mid(%Eg3out,6,$calc($pos(%Eg3out,[end],1)-6)))
      set %Eg3out $remove(%Eg3out,[new] $+ %Emsgparse $+ [end])

      inc %Edtotal $gettok($gettok(%Emsgparse,5,59),1,32)
      inc %Eutotal $gettok($gettok(%Emsgparse,6,59),1,32)

      inc %Ei 1
    }
    set %Eg3total $replace($cfg(Torrent,total),[dtotal],%Edtotal)
    %Eg3total = $replace(%Eg3total,[utotal],%Eutotal)
    %Eg3total = $replace(%Eg3total,[sep],$cfg(Torrent,sep))
    %Eg3total = $replace(%Eg3total,[client],G3 $+ $chr(32))
    %Eg3total = $repcb(%Eg3total)

    if ($cfg(Torrent,use) == say) {
      .timerttl 1 %Ei msg $active %Eg3total
    }
    else {
      .timerttl 1 %Ei me %Eg3total
    }
  }
  else { echo -a [#] G3 Web Interface: Cannot read ! }
  unset %Eg3out
  unset %Eg3total
  unset %Ei
  unset %Eutotal
  unset %Edtotal
  unset %Emsgparse
}

alias -l smsg {
  if ($2 == say) {
    msg $active $repcb($1)
  }
  else {
    me $repcb($1)
  }
}

alias eabc {
  set %Eabcout $lib(ABC,$cfg(Torrent,host) $+ : $cfg(Torrent,port) $+ ; $+ $cfg(Torrent,pass))
  set %Ei 0
  if ([new] isin %Eabcout) {
    while ([new] isin %Eabcout) {
      set %Emsgparse $mid(%Eabcout,6,$calc($pos(%Eabcout,[end],1)-6)))
      set %Eabcout $remove(%Eabcout,[new] $+ %Emsgparse $+ [end])

      set %Eabcwrite $replace($cfg(Torrent,masc),[name],$gettok(%Emsgparse,1,59))
      %Eabcwrite = $replace(%Eabcwrite,[size],$gettok(%Emsgparse,2,59))
      %Eabcwrite = $replace(%Eabcwrite,[activ],$gettok(%Emsgparse,3,59))
      %Eabcwrite = $replace(%Eabcwrite,[prog],$gettok(%Emsgparse,4,59))
      %Eabcwrite = $replace(%Eabcwrite,[progbar],$progbar($gettok(%Emsgparse,4,59),$cfg(Torrent,chr1),$cfg(Torrent,chr2),$cfg(Torrent,chr3)))
      %Eabcwrite = $replace(%Eabcwrite,[drate],$gettok(%Emsgparse,5,59))
      %Eabcwrite = $replace(%Eabcwrite,[urate],$gettok(%Emsgparse,6,59))
      %Eabcwrite = $replace(%Eabcwrite,[eta],$gettok(%Emsgparse,7,59))
      %Eabcwrite = $replace(%Eabcwrite,[ratio],$gettok(%Emsgparse,8,59))
      %Eabcwrite = $replace(%Eabcwrite,[cnt],%Ei)
      %Eabcwrite = $replace(%Eabcwrite,[start],$cfg(Torrent,start))
      %Eabcwrite = $replace(%Eabcwrite,[sep],$cfg(Torrent,sep))
      %Eabcwrite = $replace(%Eabcwrite,[end],$cfg(Torrent,end))
      %Eabcwrite = $replace(%Eabcwrite,[client],ABC $+ $chr(32))
      %Eabcwrite = $repcb(%Eabcwrite)

      inc %Edtotal $gettok($gettok(%Emsgparse,5,59),1,32)
      inc %Eutotal $gettok($gettok(%Emsgparse,6,59),1,32)

      if ($cfg(Torrent,use) == say) {
        .timer $+ %Ei 1 %Ei msg $active %Eabcwrite
      } 
      else {
        .timer $+ %Ei 1 %Ei me %Eabcwrite
      }
      inc %Ei 1
    }
    set %Eabctotal $replace($cfg(Torrent,total),[dtotal],%Edtotal)
    %Eabctotal = $replace(%Eabctotal,[utotal],%Eutotal)
    %Eabctotal = $replace(%Eabctotal,[sep],$cfg(Torrent,sep))
    %Eabctotal = $replace(%Eabctotal,[client],ABC $+ $chr(32))
    %Eabctotal = $repcb(%Eabctotal)

    if ($cfg(Torrent,use) == say) {
      .timerttl 1 %Ei msg $active %Eabctotal
    }
    else {
      .timerttl 1 %Ei me %Eabctotal
    }
  }
  else { echo -a [#] ABC Web Interface: Cannot read ! }
  unset %Eabcout
  unset %Eabctotal
  unset %Ei
  unset %Eutotal
  unset %Edtotal
  unset %Eabcwrite
  unset %Emsgparse
}

alias eabc.t {
  set %Eabcout $lib(ABC,$cfg(Torrent,host) $+ : $cfg(Torrent,port) $+ ; $+ $cfg(Torrent,pass))
  set %Ei 0
  if ([new] isin %Eabcout) {
    while ([new] isin %Eabcout) {
      set %Emsgparse $mid(%Eabcout,6,$calc($pos(%Eabcout,[end],1)-6)))
      set %Eabcout $remove(%Eabcout,[new] $+ %Emsgparse $+ [end])

      inc %Edtotal $gettok($gettok(%Emsgparse,5,59),1,32)
      inc %Eutotal $gettok($gettok(%Emsgparse,6,59),1,32)

      inc %Ei 1
    }
    set %Eabctotal $replace($cfg(Torrent,total),[dtotal],%Edtotal)
    %Eabctotal = $replace(%Eabctotal,[utotal],%Eutotal)
    %Eabctotal = $replace(%Eabctotal,[sep],$cfg(Torrent,sep))
    %Eabctotal = $replace(%Eabctotal,[client],ABC $+ $chr(32))
    %Eabctotal = $repcb(%Eabctotal)

    if ($cfg(Torrent,use) == say) {
      .timerttl 1 %Ei msg $active %Eabctotal
    }
    else {
      .timerttl 1 %Ei me %Eabctotal
    }
  }
  else { echo -a [#] ABC Web Interface: Cannot read ! }
  unset %Eabcout
  unset %Eabctotal
  unset %Ei
  unset %Eutotal
  unset %Edtotal
  unset %Emsgparse
}

alias utor {
  set %Eucnt $lib(uTorrent, 100= $+ $cfg(uTorrent,datalist))
  set %Ei 0
  set %Eoriginal 0
  set %Euwrite 0
  set %Edtotal 0
  set %Eutotal 0
    
  while (%Ei < %Eucnt) {
      %Eoriginal = $lib(uTorrent, %Ei $+ = $+ $cfg(uTorrent,datalist))
      %Euwrite = $replace($cfg(Torrent,masc),[name],$gettok(%Eoriginal,1,59))
      %Euwrite = $replace(%Euwrite,[size],$gettok(%Eoriginal,2,59))
      %Euwrite = $replace(%Euwrite,[activ],$gettok(%Eoriginal,3,59))
      %Euwrite = $replace(%Euwrite,[prog],$gettok(%Eoriginal,4,59))
      %Euwrite = $replace(%Euwrite,[progbar],$progbar($gettok(%Eoriginal,4,59),$cfg(Torrent,chr1),$cfg(Torrent,chr2),$cfg(Torrent,chr3)))
      %Euwrite = $replace(%Euwrite,[drate],$gettok(%Eoriginal,5,59))
      %Euwrite = $replace(%Euwrite,[urate],$gettok(%Eoriginal,6,59))
      %Euwrite = $replace(%Euwrite,[eta],$gettok(%Eoriginal,7,59))
      %Euwrite = $replace(%Euwrite,[ratio],$gettok(%Eoriginal,8,59))
      %Euwrite = $replace(%Euwrite,[cnt],%Ei)
      %Euwrite = $replace(%Euwrite,[start],$cfg(Torrent,start))
      %Euwrite = $replace(%Euwrite,[sep],$cfg(Torrent,sep))
      %Euwrite = $replace(%Euwrite,[end],$cfg(Torrent,end))
      %Euwrite = $replace(%Euwrite,[client],u)
      %Euwrite = $repcb(%Euwrite)

      inc %Edtotal $gettok($gettok(%Eoriginal,5,59),1,32)
      inc %Eutotal $gettok($gettok(%Eoriginal,6,59),1,32)
      inc %Ei 1

      if ($cfg(Torrent,use) == say) {
        .timer $+ %Ei 1 %Ei msg $active %Euwrite
      } 
      else {
        .timer $+ %Ei 1 %Ei me %Euwrite
      }
  } 

    set %Euttotal $replace($cfg(Torrent,total),[dtotal],%Edtotal)
    %Euttotal = $replace(%Euttotal,[utotal],%Eutotal)
    %Euttotal = $replace(%Euttotal,[sep],$cfg(Torrent,sep))
    %Euttotal = $replace(%Euttotal,[client],u)
    %Euttotal = $repcb(%Euttotal)

    if ($cfg(Torrent,use) == say) {
      .timerttl 1 %Ei msg $active %Euttotal
    }
    else {
      .timerttl 1 %Ei me %Euttotal
    }

  else { echo -a [#] Can't detect uTorrent handle! }
  unset %Euttotal
  unset %Ei
  unset %Eutotal
  unset %Edtotal
  unset %Euwrite
  unset %Eoriginal
  unset %Eucnt
}

alias utor.t {
  set %Eucnt $lib(uTorrent, 100= $+ $cfg(uTorrent,datalist))
  set %Ei 0
  set %Eoriginal
    
  while (%Ei < %Eucnt) {
      %Eoriginal = $lib(uTorrent, %Ei $+ = $+ $cfg(uTorrent,datalist))
      inc %Edtotal $calc($gettok($gettok(%Eoriginal,5,59),1,32))
      inc %Eutotal $calc($gettok($gettok(%Eoriginal,6,59),1,32))
      inc %Ei 1
  } 

    set %Euttotal $replace($cfg(Torrent,total),[dtotal],%Edtotal)
    %Euttotal = $replace(%Euttotal,[utotal],%Eutotal)
    %Euttotal = $replace(%Euttotal,[sep],$cfg(Torrent,sep))
    %Euttotal = $replace(%Euttotal,[client],u)
    %Euttotal = $repcb(%Euttotal)

    if ($cfg(Torrent,use) == say) {
      .timerttl 1 %Ei msg $active %Euttotal
    }
    else {
      .timerttl 1 %Ei me %Euttotal
    }

  else { echo -a [#] Can't detect uTorrent handle! }
  unset %Euttotal
  unset %Ei
  unset %Eutotal
  unset %Edtotal
  unset %Eoriginal
}

alias edir {
  set %Ei 1
  set %Eli 0
  if ($chr(92) isin $1-) {
    set %Eedir $1-
  }
  else {
    set %Eedir $cfg(DirList,dir)
  }
  set %Eglist $lib(DirList,%Eedir)
  set %Edirstart $replace($cfg(DirList,start),[dir],$gettok(%Eedir,$numtok(%Eedir,92),92))
  set %Egout %Edirstart

    while ($numtok(%Eglist,59) >= %Ei) {
      if ($len(%Egout $+ $gettok(%Eglist,%Ei,59)) > $calc(500 - $len($cfg(DirList,end)))) {
        if ($cfg(DirList,use) == say) {
          .timer $+ %Eli 1 %Eli msg $active $repcb(%Egout $+ $cfg(DirList,end))
        } 
        else {
          .timer $+ %Eli 1 %Eli me $repcb(%Egout $+ $cfg(DirList,end))
        }
        %Egout = %Edirstart
        inc %Eli 2
      }
      else {
        if (%Egout != %Edirstart) {
          %Egout = %Egout $+ $cfg(DirList,sep)
        }
        %Egout = %Egout $+ $gettok(%Eglist,%Ei,59)
      }  
      inc %Ei 1
    }

    set %Ese %Edirstart $+ $cfg(DirList,end)
    if (%Egout != se) {
      if ($cfg(DirList,use) == say) {
        .timer $+ %Eli 1 %Eli msg $active $repcb(%Egout $+ $cfg(DirList,end))
      } 
      else {
        .timer $+ %Eli 1 %Eli me $repcb(%Egout $+ $cfg(DirList,end))
      }
    }

  unset %Eglist
  unset %Egout
  unset %Ei
  unset %Eli
  unset %Ese
  unset %Edirstart
  unset %Eedir
}

alias ewins {
  set %Ei 1
  set %Eli 0
  set %Ewlist $lib(Windows,$cfg(Windows,dir))
  set %Ewout $cfg(Windows,start)

    while ($numtok(%Ewlist,59) >= %Ei) {
      if ($len(%Ewout $+ $gettok(%Ewlist,%Ei,59)) > $calc(500 - $len($cfg(Windows,end)))) {
        if ($cfg(Windows,use) == say) {
          .timer $+ %Eli 1 %Eli msg $active $repcb(%Ewout $+ $cfg(Windows,end))
        } 
        else {
          .timer $+ %Eli 1 %Eli me $repcb(%Ewout $+ $cfg(Windows,end))
        }
        %Ewout = $cfg(Windows,start)
        inc %Eli 1
      }
      else {
        if (%Ewout != $cfg(Windows,start)) {
          %Ewout = %Ewout $+ $cfg(Windows,sep)
        }
        %Ewout = %Ewout $+ $gettok(%Ewlist,%Ei,59)
      }  
      inc %Ei 1
    }

    set %Ese $cfg(Windows,start) $+ $cfg(Windows,end)
    if (%Ewout != se) {
      if ($cfg(Windows,use) == say) {
        .timer $+ %Eli 1 %Eli msg $active $repcb(%Ewout $+ $cfg(Windows,end))
      } 
      else {
        .timer $+ %Eli 1 %Eli me $repcb(%Ewout $+ $cfg(Windows,end))
      } 
    }

  unset %Ewlist
  unset %Ewout
  unset %Ei
  unset %Eli
  unset %Ese
}

alias -l progbar {
  return $str($3,$calc(($1)/10)) $+ $4 $+ $str($2,$calc(9-($1)/10))
}

alias esong {
  if ($lib(WIsPlaying,NOT_USED) == 1) {
    set %Ewa $cfg(WinAmp,masc)
    %Ewa = $replace(%Ewa,[song],$lib(WTitle,NOT_USED))
    %Ewa = $replace(%Ewa,[spos],$lib(WSongPos,NOT_USED))
    %Ewa = $replace(%Ewa,[stotal],$lib(WSongLen,NOT_USED))
    %Ewa = $replace(%Ewa,[bitrate],$lib(WBitrate,NOT_USED))
    %Ewa = $replace(%Ewa,[listpos],$lib(WListPos,NOT_USED))
    %Ewa = $replace(%Ewa,[listlen],$lib(WListLen,NOT_USED))
    %Ewa = $replace(%Ewa,[repeat],$lib(WRepeat,NOT_USED))
    %Ewa = $replace(%Ewa,[shuffle],$lib(WShuffle,NOT_USED))
    %Ewa = $replace(%Ewa,[progbar],$progbar($lib(WProgress,NOT_USED),$cfg(WinAmp,chr1),$cfg(WinAmp,chr2),$cfg(WinAmp,chr3)))
    %Ewa = $replace(%Ewa,[start],$cfg(WinAmp,start))
    %Ewa = $replace(%Ewa,[sep],$cfg(WinAmp,sep))
    %Ewa = $replace(%Ewa,[end],$cfg(WinAmp,end))
    %Ewa = $replace(%Ewa,[chan],$lib(WChannels,NOT_USED))
    %Ewa = $replace(%Ewa,[srate],$lib(WSRate,NOT_USED))
    %Ewa = $replace(%Ewa,[version],$lib(WVersion,NOT_USED))
    %Ewa = $repcb(%Ewa)

    if ($cfg(WinAmp,use) == say) {
      msg $active %Ewa
    }
    else {
      me %Ewa
    }
  }
  else { echo -a [#] WinAmp: Not running or not playing ! }
  unset %Ewa
}

alias esong+ {
  if ($lib(WIsPlaying,NOT_USED) == 1) {
    set %Ewa $cfg(WinAmp,simple)
    %Ewa = $replace(%Ewa,[song],$lib(WTitle,NOT_USED))
    %Ewa = $replace(%Ewa,[spos],$lib(WSongPos,NOT_USED))
    %Ewa = $replace(%Ewa,[stotal],$lib(WSongLen,NOT_USED))
    %Ewa = $replace(%Ewa,[bitrate],$lib(WBitrate,NOT_USED))
    %Ewa = $replace(%Ewa,[listpos],$lib(WListPos,NOT_USED))
    %Ewa = $replace(%Ewa,[listlen],$lib(WListLen,NOT_USED))
    %Ewa = $replace(%Ewa,[repeat],$lib(WRepeat,NOT_USED))
    %Ewa = $replace(%Ewa,[shuffle],$lib(WShuffle,NOT_USED))
    %Ewa = $replace(%Ewa,[progbar],$progbar($lib(WProgress,NOT_USED),$cfg(WinAmp,chr1),$cfg(WinAmp,chr2),$cfg(WinAmp,chr3)))
    %Ewa = $replace(%Ewa,[start],$cfg(WinAmp,start))
    %Ewa = $replace(%Ewa,[sep],$cfg(WinAmp,sep))
    %Ewa = $replace(%Ewa,[end],$cfg(WinAmp,end))
    %Ewa = $replace(%Ewa,[chan],$lib(WChannels,NOT_USED))
    %Ewa = $replace(%Ewa,[srate],$lib(WSRate,NOT_USED))
    %Ewa = $replace(%Ewa,[version],$lib(WVersion,NOT_USED))
    %Ewa = $repcb(%Ewa)

    if ($cfg(WinAmp,use) == say) {
      msg $active %Ewa
    }
    else {
      me %Ewa
    }
  }
  else { echo -a [#] WinAmp: Not running or not playing ! }
  unset %Ewa
}

alias esong.autoon {
  echo -a [#] Starting WinAmp song checking...
  set %Eesongpre $lib(WTitle,NOT_USED)
  .timeresong 0 1 { checksong }  
}

alias -l checksong {
  if ($lib(WTitle,NOT_USED) != %Eesongpre) {
    %Eesongpre = $lib(WTitle,NOT_USED)
    if ($cfg(WinAmp,auto) == simple) {
      esong+
    }
    else {
      esong
    }
  }
}

alias esong.autooff {
  echo -a [#] WinAmp checking is now stopped!
  .timeresong off
  unset %Eesongpre
}

alias edcc {
  set %Ei 1
  set %Edccwait 0

  if ($get(0) > 0) {
    set %Egors Get
    set %Egorscnt $get(0)
  }
  elseif ($send(0) > 0) {
    set %Egors Send
    set %Egorscnt $send(0)
  }
  else {
    echo -a [#] DCC: No getting or sending file !
  }
  :dccwstart
  while (%Ei <= %Egorscnt) {
    set %Edcc $cfg(DCC,masc)
    %Edcc = $replace(%Edcc,[start],$cfg(DCC,start))
    %Edcc = $replace(%Edcc,[sep],$cfg(DCC,sep))
    %Edcc = $replace(%Edcc,[end],$cfg(DCC,end))
    %Edcc = $replace(%Edcc,[getorsend],%Egors)
    %Edcc = $replace(%Edcc,[cnt],%Ei)

    if (%Egors == Get) {
      %Edcc = $replace(%Edcc,[file],$get(%Ei).file)
      %Edcc = $replace(%Edcc,[nick],$get(%Ei))
      %Edcc = $replace(%Edcc,[prog],$get(%Ei).pc)
      %Edcc = $replace(%Edcc,[size],$bytes($get(%Ei).size).suf)
      %Edcc = $replace(%Edcc,[cps],$bytes($get(%Ei).cps).suf)
      %Edcc = $replace(%Edcc,[progbar],$progbar($get(%Ei).pc,$cfg(DCC,chr1),$cfg(DCC,chr2),$cfg(DCC,chr3)))
      if ($get(%Ei).done) {
        set %Edccstat Done
      }
      else {
        set %Edccstat $replace($get(%Ei).status,$left($get(%Ei).status,1),$upper($left($get(%Ei).status,1)))
      }
      %Edcc = $replace(%Edcc,[status],%Edccstat)
    }
    elseif (%Egors == Send) {
      %Edcc = $replace(%Edcc,[file],$send(%Ei).file)
      %Edcc = $replace(%Edcc,[nick],$send(%Ei))
      %Edcc = $replace(%Edcc,[prog],$send(%Ei).pc)
      %Edcc = $replace(%Edcc,[size],$bytes($send(%Ei).size).suf)
      %Edcc = $replace(%Edcc,[cps],$bytes($send(%Ei).cps).suf)
      %Edcc = $replace(%Edcc,[progbar],$progbar($send(%Ei).pc,$cfg(DCC,chr1),$cfg(DCC,chr2),$cfg(DCC,chr3)))
      if ($send(%Ei).done) {
        set %Edccstat Done
      }
      else {
        set %Edccstat $replace($send(%Ei).status,$left($send(%Ei).status,1),$upper($left($send(%Ei).status,1)))
      }
      %Edcc = $replace(%Edcc,[status],%Edccstat)
    }
    
    if ($cfg(DCC,use) == say) {
      .timer $+ %Egors $+ %Ei 1 $calc(%Ei + %Edccwait - 1) msg $active $repcb(%Edcc)
    }
    else {
      .timer $+ %Egors $+ %Ei 1 %Ei me $repcb(%Edcc)
    }
    inc %Ei 1
  }
  if ((%Egors == Get) && ($send(0) > 0)) {
    set %Egors Send
    set %Egorscnt $send(0)
    set %Edccwait $calc(%Ei - 1)
    set %Ei 1
    goto dccwstart
  }
  unset %Egors
  unset %Egorscnt
  unset %Edcc
  unset %Ei
  unset %Edccstat
  unset %Edccwait
}

alias ecpu {
  set %Ecpu $cfg(System,cpu)
  %Ecpu = $replace(%Ecpu,[cpuname],$lib(CPUString,NOT_USED))
  %Ecpu = $replace(%Ecpu,[cpumhz],$lib(CPUMhz,NOT_USED))
  %Ecpu = $replace(%Ecpu,[cpuident],$lib(CPUIdent,NOT_USED))
  %Ecpu = $replace(%Ecpu,[cpuvendor],$lib(CPUVendor,NOT_USED))
  %Ecpu = $replace(%Ecpu,[cpucache],$lib(CPUCache,NOT_USED))
  %Ecpu = $replace(%Ecpu,[cpuusage],$lib(CPUUsage,NOT_USED))
  %Ecpu = $replace(%Ecpu,[sep],$cfg(System,sep))

  if ($cfg(System,use) == say) {
    msg $active $repcb(%Ecpu)
  }
  else {
    me $repcb(%Ecpu)
  }

  unset %Ecpu
}

alias emem {
  set %Emem $cfg(System,mem)
  %Emem = $replace(%Emem,[memtotal],$lib(Memory,total))
  %Emem = $replace(%Emem,[memavail],$lib(Memory,avail))
  %Emem = $replace(%Emem,[sep],$cfg(System,sep))

  if ($cfg(System,use) == say) {
      msg $active $repcb(%Emem)
    }
    else {
      me $repcb(%Emem)
    }
  unset %Emem
}

alias ehdd {
  set %Ehdd $cfg(System,hdd)
  set %Ehddmasc $lib(Drives,all)
  set %Ei 1
  set %Ehddall $cfg(System,hddall)

  while ($numtok(%Ehddmasc,59) >= %Ei) {
  
    %Ehddout = $replace(%Ehdd,[letter],$gettok($gettok(%Ehddmasc,%Ei,59),1,44))
    %Ehddout = $replace(%Ehddout,[label],$gettok($gettok(%Ehddmasc,%Ei,59),2,44))
    %Ehddout = $replace(%Ehddout,[total],$bytes($gettok($gettok(%Ehddmasc,%Ei,59),3,44),3).suf)
    %Ehddout = $replace(%Ehddout,[free],$bytes($gettok($gettok(%Ehddmasc,%Ei,59),4,44),3).suf)
    %Ehddout = $replace(%Ehddout,[type],$gettok($gettok(%Ehddmasc,%Ei,59),5,44))
    %Ehddout = $replace(%Ehddout,[sep],$cfg(System,sep))
   
    if ($cfg(System,use) == say) {
      .timer $+ %Ei 1 $calc(%Ei - 1) msg $active $repcb(%Ehddout)
    }
    else {
      .timer $+ %Ei 1 $calc(%Ei - 1) me $repcb(%Ehddout)
    }

    inc %Ei 1
  }

  %Ehddall = $replace(%Ehddall,[allfree],$bytes($lib(Drives,free),3).suf)
  %Ehddall = $replace(%Ehddall,[allspace],$bytes($lib(Drives,space),3).suf)
  %Ehddall = $replace(%Ehddall,[sep],$cfg(System,sep))

  if ($cfg(System,use) == say) {
    .timer $+ %Ei 1 $calc(%Ei - 1) msg $active $repcb(%Ehddall)
  }
  else {
    .timer $+ %Ei 1 $calc(%Ei - 1) me $repcb(%Ehddall)
  }
  
  unset %Ehddout
  unset %Ehddall
  unset %Ei
  unset %Ehdd
  unset %Ehddmasc
}

alias -l echeckrecord {
  set %Etarget " $+ $scriptdir $+ Essence.ini $+ "
  
  if ($uptime(system,3) > $readini(%Etarget,Record,system)) {
  writeini %Etarget Record system $uptime(system,3)
  }

  if ($uptime(mirc,3) > $readini(%Etarget,Record,mirc)) {
  writeini %Etarget Record mirc $uptime(mirc,3)
  }

  unset %Etarget
}

alias euptime {
  set %Euptime $cfg(Uptime,uptime)
  %Euptime = $replace(%Euptime,[days],$lib(UpTime,$uptime(system,3) $+ ; $+ days)))
  %Euptime = $replace(%Euptime,[hours],$lib(UpTime,$uptime(system,3) $+ ; $+ hours)))
  %Euptime = $replace(%Euptime,[mins],$lib(UpTime,$uptime(system,3) $+ ; $+ mins)))
  %Euptime = $replace(%Euptime,[secs],$lib(UpTime,$uptime(system,3) $+ ; $+ secs)))
  %Euptime = $replace(%Euptime,[sep],$cfg(System,sep))

  if ($cfg(Uptime,use) == say) {
      msg $active $repcb(%Euptime)
    }
    else {
      me $repcb(%Euptime)
    }
  unset %Euptime
}

alias euptime.rec {
  $echeckrecord

  set %Euptime $cfg(Uptime,uptimerec)
  %Euptime = $replace(%Euptime,[days],$lib(UpTime,$cfg(Record,system) $+ ; $+ days)))
  %Euptime = $replace(%Euptime,[hours],$lib(UpTime,$cfg(Record,system) $+ ; $+ hours)))
  %Euptime = $replace(%Euptime,[mins],$lib(UpTime,$cfg(Record,system) $+ ; $+ mins)))
  %Euptime = $replace(%Euptime,[secs],$lib(UpTime,$cfg(Record,system) $+ ; $+ secs)))
  %Euptime = $replace(%Euptime,[sep],$cfg(System,sep))

  if ($cfg(Uptime,use) == say) {
      msg $active $repcb(%Euptime)
    }
    else {
      me $repcb(%Euptime)
    }
  unset %Euptime
}

alias euptimemirc {
  set %Euptime $cfg(Uptime,uptimemirc)
  %Euptime = $replace(%Euptime,[days],$lib(UpTime,$uptime(mirc,3) $+ ; $+ days)))
  %Euptime = $replace(%Euptime,[hours],$lib(UpTime,$uptime(mirc,3) $+ ; $+ hours)))
  %Euptime = $replace(%Euptime,[mins],$lib(UpTime,$uptime(mirc,3) $+ ; $+ mins)))
  %Euptime = $replace(%Euptime,[secs],$lib(UpTime,$uptime(mirc,3) $+ ; $+ secs)))
  %Euptime = $replace(%Euptime,[sep],$cfg(System,sep))

  if ($cfg(Uptime,use) == say) {
      msg $active $repcb(%Euptime)
    }
    else {
      me $repcb(%Euptime)
    }
  unset %Euptime
}

alias euptimemirc.rec {
  $echeckrecord

  set %Euptime $cfg(Uptime,uptimemircrec)
  %Euptime = $replace(%Euptime,[days],$lib(UpTime,$cfg(Record,mirc) $+ ; $+ days)))
  %Euptime = $replace(%Euptime,[hours],$lib(UpTime,$cfg(Record,mirc) $+ ; $+ hours)))
  %Euptime = $replace(%Euptime,[mins],$lib(UpTime,$cfg(Record,mirc) $+ ; $+ mins)))
  %Euptime = $replace(%Euptime,[secs],$lib(UpTime,$cfg(Record,mirc) $+ ; $+ secs)))
  %Euptime = $replace(%Euptime,[sep],$cfg(System,sep))

  if ($cfg(Uptime,use) == say) {
      msg $active $repcb(%Euptime)
    }
    else {
      me $repcb(%Euptime)
    }
  unset %Euptime
}

alias eos {
  set %Eosver $cfg(System,os)
  %Eosver = $replace(%Eosver,[platform],$lib(WinVer,platform)))
  %Eosver = $replace(%Eosver,[winver],$lib(WinVer,version)))
  %Eosver = $replace(%Eosver,[sep],$cfg(System,sep))

  if ($cfg(System,use) == say) {
      msg $active $repcb(%Eosver)
    }
    else {
      me $repcb(%Eosver)
    }
  unset %Eosver
}

alias epower {
  set %Epower $cfg(System,power)
  %Epower = $replace(%Epower,[pstatus],$lib(Power,NOT_USED))
  %Epower = $replace(%Epower,[sep],$cfg(System,sep))

  if ($cfg(System,use) == say) {
      msg $active $repcb(%Epower)
    }
    else {
      me $repcb(%Epower)
    }
  unset %Epower
}

alias evideo {
  set %Evideo $cfg(System,video)
  %Evideo = $replace(%Evideo,[vidadapter],$lib(VideoAdapter,0))
  %Evideo = $replace(%Evideo,[vidres],$lib(VideoResolution,0))
  %Evideo = $replace(%Evideo,[viddepth],$lib(VideoDepth,0))
  %Evideo = $replace(%Evideo,[vidrate],$lib(VideoFrequency,0))
  %Evideo = $replace(%Evideo,[monstring],$lib(MonString,0))
  %Evideo = $replace(%Evideo,[sep],$cfg(System,sep))

  if ($cfg(System,use) == say) {
      msg $active $repcb(%Evideo)
    }
    else {
      me $repcb(%Evideo)
    }
  unset %Evideo
}

alias enet {
  set %Eadapters $lib(NetAdapters,NOT_USED)
  set %Eadaptersmasc $cfg(Network,Adapters)
  set %Ei 1

  while ($numtok(%Eadapters,9) >= %Ei) {
  
    %Eadaptersout = $replace(%Eadaptersmasc,[netindex],%Ei)
    %Eadaptersout = $replace(%Eadaptersout,[netadapter],$gettok($gettok(%Eadapters,%Ei,9),1,59))
    %Eadaptersout = $replace(%Eadaptersout,[netspeed],$gettok($gettok(%Eadapters,%Ei,9),2,59))
    %Eadaptersout = $replace(%Eadaptersout,[netin],$gettok($gettok(%Eadapters,%Ei,9),3,59))
    %Eadaptersout = $replace(%Eadaptersout,[netout],$gettok($gettok(%Eadapters,%Ei,9),4,59))
    %Eadaptersout = $replace(%Eadaptersout,[sep],$cfg(Network,sep))
   
    if ($cfg(System,use) == say) {
      .timer $+ %Ei 1 $calc(%Ei - 1) msg $active $repcb(%Eadaptersout)
    }
    else {
      .timer $+ %Ei 1 $calc(%Ei - 1) me $repcb(%Eadaptersout)
    }

    inc %Ei 1
  }
  
  unset %Eadapters
  unset %Eadaptersout
  unset %Eadaptersmasc
  unset %Ei
}

alias enet.spd {
  set %Enetspd $lib(NetAdapterSpeed,$1-)
  set %Enetspdout $cfg(Network,speed)

  %Enetspdout = $replace(%Enetspdout,[netspdin],$gettok(%Enetspd,1,59))
  %Enetspdout = $replace(%Enetspdout,[netspdout],$gettok(%Enetspd,2,59))
  %Enetspdout = $replace(%Enetspdout,[sep],$cfg(Network,sep))
   
  if ($cfg(System,use) == say) {
    msg $active $repcb(%Enetspdout)
  }
  else {
    me $repcb(%Enetspdout)
  }

  unset %Enetspd
  unset %Enetspdout
}

alias enet.bts {
  set %Enetbts $lib(NetAdaptersTrans,NOT_USED)
  set %Enetbtsout $cfg(Network,Transfered)

  %Enetbtsout = $replace(%Enetbtsout,[netbtsin],$gettok(%Enetbts,1,59))
  %Enetbtsout = $replace(%Enetbtsout,[netbtsout],$gettok(%Enetbts,2,59))
  %Enetbtsout = $replace(%Enetbtsout,[sep],$cfg(Network,sep))
   
  if ($cfg(System,use) == say) {
    msg $active $repcb(%Enetbtsout)
  }
  else {
    me $repcb(%Enetspdout)
  }

  unset %Enetbts
  unset %Enetbtsout
}

alias enod {
  set %Enodver $replace($cfg(Misc,nod),[nodver],$lib(NODVer,NOT_USED))

  if ($cfg(System,use) == say) {
      msg $active $repcb(%Enodver)
    }
    else {
      me $repcb(%Enodver)
    }
  unset %Enodver
}

alias eoff {
  echo -ae [#] Monitor Off ... $lib(MonOff,NOT_USED)
}

alias awon {
  if ($1- != $null) {
    set %Eawreason $1-
  }
  else {
    set %Eawreason afk
  }
  me $replace($cfg(AM,EnableMSG),[reason],%Eawreason)
  away %Eawreason
}

alias awoff {
  me $replace($cfg(AM,DisableMSG),[reason],%Eawreason,[after],$shortdur($awaytime).nosec))
  away
  unset %Eawreason
}

alias -l replyinstr {
  set %Ereptokint 1
  set %Ereplyto $cfg(AM,replyto)
  %Ereplyto = $replace(%Ereplyto,[me],$me)
  while (($numtok(%Ereplyto,59) > %Ereptokint) && ($pos($1,$gettok(%Ereplyto,%Ereptokint,59)) == $null)) {
    inc %Ereptokint 1
  }
  
  if ($pos($1,$gettok(%Ereplyto,%Ereptokint,59)) == $null) {
    return $false
  }
  else {
    return $true
  } 

  unset %Ereptokint
  unset %Ereplyto
}

on *:TEXT:*:#: {

    if ($1- == $me $+ :gong) {
      set %Ebeepcnt 0
      if (($cfg(AM,gong) == true) && ((%Eawreason != $null) || ($cfg(AM,always) == true))) {
        splay -w $cfg(AM,gongsnd)
        msg $chan gong enabled, calling...
      }
      else {
        msg $chan gong disabled!
      }

    }
    elseif ($1- == $me $+ :beep) {

      if (($cfg(AM,beep) == true) && ((%Eawreason != $null) || ($cfg(AM,always) == true))) {
        set %Ebeepcnt 1
        splay -w $cfg(AM,beepsnd)
        msg $chan beep enabled, urgent calling...
        unset %Eplaycnt
      }
      else {
        msg $chan beep disabled!
      }

    }
    elseif (($cfg(AM,always) == true) && ($replyinstr($1-))) {
      set %Ebeepcnt 0
      splay -w $cfg(AM,inchatsnd)
      if ((%Eawreason != $null) && ($cfg(AM,inchat) == true)) {
        if (($cfg(AM,gong) == false) && ($cfg(AM,beep) == false)) {
           msg $chan I'm away ( $+ %Eawreason $+ ), sorry both alarms is disabled
        }
        else {
           msg $chan I'm away ( $+ %Eawreason $+ ), type " $+ $me $+ :gong" to send signal or " $+ $me $+ :beep" for Beep
        }
      }

    }
}

on *:TEXT:*:?: {

    if ($1- == $me $+ :gong) {
      set %Ebeepcnt 0
      if (($cfg(AM,gong) == true) && ((%Eawreason != $null) || ($cfg(AM,always) == true))) {
        splay -w $cfg(AM,gongsnd)
        msg $nick gong enabled, calling...
      }
      else {
        msg $nick gong disabled!
      }

    }
    elseif ($1- == $me $+ :beep) {

      if (($cfg(AM,beep) == true) && ((%Eawreason != $null) || ($cfg(AM,always) == true))) {
        set %Ebeepcnt 1
        splay -w $cfg(AM,beepsnd)
        msg $nick beep enabled, urgent calling...
        unset %Eplaycnt
      }
      else {
        msg $nick beep disabled!
      }

    }
    elseif (($cfg(AM,always) == true) && ($replyinstr($1-))) {
      set %Ebeepcnt 0
      splay -w $cfg(AM,inchatsnd)
      if ((%Eawreason != $null) && ($cfg(AM,inchat) == true)) {
        if (($cfg(AM,gong) == true) && ($cfg(AM,beep) == true)) {
          msg $nick I'm away ( $+ %Eawreason $+ ), type " $+ $me $+ :gong" to send signal or " $+ $me $+ :beep" for Beep
        }
        else {
          msg $nick I'm away ( $+ %Eawreason $+ ), sorry both alarms are disabled
        }
      }

    }
}

ON *:WAVEEND:{ 
  if ((%Ebeepcnt < $cfg(AM,playbeepcnt)) && (%Ebeepcnt != 0)) { 
    splay -w $cfg(AM,beepsnd)
    inc %Ebeepcnt 1
  }
} 

alias beepstop {
  splay stop
  set %Ebeepcnt 0
  msg $chan beep stopped!
}

alias essence { me using $lib(About,NOT_USED) }

alias -l repcb {
  set %Etmp $replace($1,(c),)
  return $replace(%Etmp,(b),)
  unset %Etmp
}

alias -l repcbrev {
  set %Etmp $replace($1,,(c))
  return $replace(%Etmp,,(b))
  unset %Etmp
}

alias -l generatepreview {
  if ($1 == WinAmp) {
    set %Ewapre $did(theme_dialog,2,1)
    %Ewapre = $replace(%Ewapre,[start],$did(theme_dialog,18,1))
    %Ewapre = $replace(%Ewapre,[sep],$did(theme_dialog,19,1))
    %Ewapre = $replace(%Ewapre,[end],$did(theme_dialog,20,1))
    %Ewapre = $replace(%Ewapre,[song],Evanescence - Anywhere)
    %Ewapre = $replace(%Ewapre,[spos],00:23)
    %Ewapre = $replace(%Ewapre,[stotal],06:03)
    %Ewapre = $replace(%Ewapre,[bitrate],192)
    %Ewapre = $replace(%Ewapre,[listpos],7)
    %Ewapre = $replace(%Ewapre,[listlen],12)
    %Ewapre = $replace(%Ewapre,[shuffle],off)
    %Ewapre = $replace(%Ewapre,[repeat],on)
    %Ewapre = $replace(%Ewapre,[chan],Stereo)
    %Ewapre = $replace(%Ewapre,[version],5.1)
    %Ewapre = $replace(%Ewapre,[srate],44)
    %Ewapre = $replace(%Ewapre,[progbar],$progbar(60,$did(theme_dialog,12,1),$did(theme_dialog,13,1),$did(theme_dialog,14,1)))
    return %Ewapre
    unset %Ewapre
  }
  elseif ($1 == Torrent) {
    if ($did(theme_dialog,24,$did(theme_dialog,24,1).sel) == masc) {
      set %Eg3pre $did(theme_dialog,2,1)
      %Eg3pre = $replace(%Eg3pre,[start],$did(theme_dialog,18,1))
      %Eg3pre = $replace(%Eg3pre,[sep],$did(theme_dialog,19,1))
      %Eg3pre = $replace(%Eg3pre,[end],$did(theme_dialog,20,1))
      %Eg3pre = $replace(%Eg3pre,[name],Windows eliminator)
      %Eg3pre = $replace(%Eg3pre,[size],482 MB)
      %Eg3pre = $replace(%Eg3pre,[activ],Downloading)
      %Eg3pre = $replace(%Eg3pre,[prog],75)
      %Eg3pre = $replace(%Eg3pre,[progbar],$progbar(75,$did(theme_dialog,12,1),$did(theme_dialog,13,1),$did(theme_dialog,14,1)))
      %Eg3pre = $replace(%Eg3pre,[drate],19 KB/s)
      %Eg3pre = $replace(%Eg3pre,[urate],31 KB/s)
      %Eg3pre = $replace(%Eg3pre,[eta],1 Hour)
      %Eg3pre = $replace(%Eg3pre,[ratio],1.52)
      %Eg3pre = $replace(%Eg3pre,[client],u)
      %Eg3pre = $replace(%Eg3pre,[cnt],0)
    }
    else {
      set %Eg3pre $replace($did(theme_dialog,2,1),[dtotal],19)
      %Eg3pre = $replace(%Eg3pre,[utotal],31)
      %Eg3pre = $replace(%Eg3pre,[sep],$did(theme_dialog,19,1))
    }
    return %Eg3pre
    unset %Eg3pre
  }
  elseif ($1 == DirList) {
    return $did(theme_dialog,18,1) $+ Half-Life 2 $+ $did(theme_dialog,19,1) $+ NOLF2 $+ $did(theme_dialog,20,1)
  }
  elseif ($1 == Windows) {
    return $did(theme_dialog,18,1) $+ mIRC $+ $did(theme_dialog,19,1) $+ Win Killer $+ $did(theme_dialog,20,1)
  }
  elseif ($1 == DCC) {
    set %Edccpre $did(theme_dialog,2,1)
    %Edccpre = $replace(%Edccpre,[start],$did(theme_dialog,18,1))
    %Edccpre = $replace(%Edccpre,[sep],$did(theme_dialog,19,1))
    %Edccpre = $replace(%Edccpre,[end],$did(theme_dialog,20,1))
    %Edccpre = $replace(%Edccpre,[file],Windows eliminator)
    %Edccpre = $replace(%Edccpre,[nick],BillGates)
    %Edccpre = $replace(%Edccpre,[getorsend],Get)
    %Edccpre = $replace(%Edccpre,[status],Done)
    %Edccpre = $replace(%Edccpre,[cps],24KB)
    %Edccpre = $replace(%Edccpre,[size],482MB)
    %Edccpre = $replace(%Edccpre,[prog],75)
    %Edccpre = $replace(%Edccpre,[progbar],$progbar(75,$did(theme_dialog,12,1),$did(theme_dialog,13,1),$did(theme_dialog,14,1)))
    %Edccpre = $replace(%Edccpre,[cnt],1)
    return %Edccpre
    unset %Edccpre
  }
  elseif ($1 == System) {
    set %Ehpre $did(theme_dialog,2,1)
    %Ehpre = $replace(%Ehpre,[cpuname],Essence Processor)
    %Ehpre = $replace(%Ehpre,[cpumhz],733)
    %Ehpre = $replace(%Ehpre,[cpuident],P7 Essence)
    %Ehpre = $replace(%Ehpre,[cpuvendor],ESS)
    %Ehpre = $replace(%Ehpre,[cpucache],512)
    %Ehpre = $replace(%Ehpre,[cpuusage],24)
    %Ehpre = $replace(%Ehpre,[memavail],136)
    %Ehpre = $replace(%Ehpre,[memtotal],256)
    %Ehpre = $replace(%Ehpre,[total],80GB)
    %Ehpre = $replace(%Ehpre,[free],27.3GB)
    %Ehpre = $replace(%Ehpre,[allfree],73.8GB)
    %Ehpre = $replace(%Ehpre,[allspace],120GB)
    %Ehpre = $replace(%Ehpre,[letter],C)
    %Ehpre = $replace(%Ehpre,[type],Fixed)
    %Ehpre = $replace(%Ehpre,[label],Pontiac)
    %Ehpre = $replace(%Ehpre,[pstatus],System running on AC)
    %Ehpre = $replace(%Ehpre,[platform],Microsoft Windows XP)
    %Ehpre = $replace(%Ehpre,[winver],5.1 - 2600)
    %Ehpre = $replace(%Ehpre,[vidadapter],NVIDIA GeForce 6600)
    %Ehpre = $replace(%Ehpre,[vidres],1280x1024)
    %Ehpre = $replace(%Ehpre,[viddepth],32)
    %Ehpre = $replace(%Ehpre,[vidrate],85)
    %Ehpre = $replace(%Ehpre,[sep],$did(theme_dialog,19,1))
    return %Ehpre
    unset %Ehpre
  }
  elseif ($1 == Uptime) {
    set %Ehpre $did(theme_dialog,2,1)
    %Ehpre = $replace(%Ehpre,[days],1)
    %Ehpre = $replace(%Ehpre,[hours],7)
    %Ehpre = $replace(%Ehpre,[mins],42)
    %Ehpre = $replace(%Ehpre,[secs],15)
    %Ehpre = $replace(%Ehpre,[sep],$did(theme_dialog,19,1))
    return %Ehpre
    unset %Ehpre
  }
  elseif ($1 == Misc) {
    set %Empre $did(theme_dialog,2,1)
    %Empre = $replace(%Empre,[nodver],1.1263 (20051021))
    return %Empre
    unset %Empre
  }
  elseif ($1 == Network) {
    set %Enetpre $did(theme_dialog,2,1)
    %Enetpre = $replace(%Enetpre,[netindex],1)
    %Enetpre = $replace(%Enetpre,[netadapter],Essence Terabit adapter)
    %Enetpre = $replace(%Enetpre,[netspeed],1 TB)
    %Enetpre = $replace(%Enetpre,[netin],32 GB)
    %Enetpre = $replace(%Enetpre,[netout],12 GB)
    %Enetpre = $replace(%Enetpre,[netspdin],872 MB)
    %Enetpre = $replace(%Enetpre,[netspdout],347 KB)
    %Enetpre = $replace(%Enetpre,[netbtsin],2.44 GB)
    %Enetpre = $replace(%Enetpre,[netbtsout],7.82 GB)
    %Enetpre = $replace(%Enetpre,[sep],$did(theme_dialog,19,1))
    return %Enetpre
    unset %Enetpre
  }
}

alias -l binddata {
  did -ra theme_dialog 2 $repcb($readini($1,$2,$did(theme_dialog,24,$did(theme_dialog,24,1).sel)))
  did -ra theme_dialog 12 $repcb($readini($1,$2,chr1))
  did -ra theme_dialog 13 $repcb($readini($1,$2,chr2))
  did -ra theme_dialog 14 $repcb($readini($1,$2,chr3))
  did -ra theme_dialog 18 $repcb($readini($1,$2,start))
  did -ra theme_dialog 19 $repcb($readini($1,$2,sep))
  did -ra theme_dialog 20 $repcb($readini($1,$2,end))
}

alias etheme {
  dialog -m theme_dialog theme_dialog

  did -r theme_dialog 3
  did -a theme_dialog 3 Torrent
  did -a theme_dialog 3 WinAmp
  did -a theme_dialog 3 DCC
  did -a theme_dialog 3 DirList
  did -a theme_dialog 3 Windows
  did -a theme_dialog 3 System
  did -a theme_dialog 3 UpTime
  did -a theme_dialog 3 Network
  did -a theme_dialog 3 Misc
  did -c theme_dialog 3 1
  did -r theme_dialog 24
  did -a theme_dialog 24 masc
  did -a theme_dialog 24 total
  did -c theme_dialog 24 1

  $binddata(" $+ $scriptdir $+ Essence.ini $+ ",Torrent)

  if ($cfg($did(theme_dialog,3,$did(theme_dialog,3,1).sel),use) == say) {
    did -c theme_dialog 22
  }
  else { did -c theme_dialog 23 }

  set %Ei1 $findfile(" $+ $scriptdir $+ Themes $+ ",*.cfg,0)
  set %Ei0 0
  did -r theme_dialog 7 0
  while (%Ei0 < %Ei1) {
    inc %Ei0
    set -u0 %Eesstheme $left($gettok($findfile(" $+ $scriptdir $+ Themes $+ ",*.cfg,%Ei0),-1,92),-4)
    did -a theme_dialog 7 %Eesstheme
  }
  did -c theme_dialog 7 0
  unset %Ei1
  unset %Ei0
  unset %Eesstheme
}

dialog set_dialog {
  title Essence settings
  size -1 -1 340 235
  box "Torrent", 1, 5 5 330 50,
  text "Host:", 2, 15 28 45 15,
  text "Port:", 20, 150 28 45 15,
  text "Pass/ID:", 3, 230 28 50 15,
  edit "", 4, 43 24 100 20, autohs
  edit "", 21, 177 24 43 20, autohs
  edit "", 5, 274 24 50 20, Pass autohs
  box "DirList directory", 6, 5 60 330 50,
  edit "", 7, 15 80 220 20, autohs
  button "Browse", 9, 250 80 75 20,
  box "AW Machine signals", 13, 5 115 330 85,
  check "NickInChat  -  Reply to:", 14, 15 135 130 20,
  edit "", 18, 150 135 170 20, autohs
  text "Example: Superman;Lamer;[me]", 19, 155 155 1500 15,
  check "Gong", 15, 15 155 45 20,
  check "Beep", 16, 15 175 45 20,
  check "Always enabled", 17, 180 173 100 20,
  button "Cancel", 10, 135 208 75 20, Cancel
  button "Save settings", 12, 225 208 100 20, Ok
}

alias eset {
  dialog -m set_dialog set_dialog
  did -ra set_dialog 4 $cfg(Torrent,host)
  did -ra set_dialog 5 $cfg(Torrent,pass)
  did -ra set_dialog 21 $cfg(Torrent,port)
  did -ra set_dialog 7 $cfg(DirList,dir)
  did -ra set_dialog 18 $cfg(AM,replyto)

  if ($cfg(AM,InChat) == true) {
    did -c set_dialog 14
  }
  else {
    did -u set_dialog 14
  }

  if ($cfg(AM,gong) == true) {
    did -c set_dialog 15
  }
  else {
    did -u set_dialog 15
  }

  if ($cfg(AM,beep) == true) {
    did -c set_dialog 16
  }
  else {
    did -u set_dialog 16
  }

  if ($cfg(AM,always) == true) {
    did -c set_dialog 17
  }
  else {
    did -u set_dialog 17
  }
}

on *:DIALOG:set_dialog:sclick:9: { did -o set_dialog 7 1 $sdir(C:\,Select your game directory) }

on *:DIALOG:set_dialog:sclick:12: {
  set %Econf " $+ $scriptdir $+ Essence.ini $+ "
  writeini %Econf Torrent host $did(set_dialog,4,1)
  writeini %Econf Torrent pass $did(set_dialog,5,1)
  writeini %Econf Torrent port $did(set_dialog,21,1)
  writeini %Econf DirList dir $did(set_dialog,7,1)
  writeini %Econf AM replyto $did(set_dialog,18,1)

  if ($did(set_dialog,14).state) {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM InChat true
  }
  else {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM InChat false
  }

  if ($did(set_dialog,15).state) {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM gong true
  }
  else {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM gong false
  }

  if ($did(set_dialog,16).state) {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM beep true
  }
  else {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM beep false
  }

  if ($did(set_dialog,17).state) {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM always true
  }
  else {
    writeini " $+ $scriptdir $+ Essence.ini $+ " AM always false
  }

  unset %Econf
}

dialog theme_dialog {
  title Essence themes
  size -1 -1 400 230

  box "Theme per type", 1, 5 5 390 155,
  combo 3, 16 25 250 100, Drop
  combo 24, 267 25 117 100, Drop
  edit "", 2, 15 45 370 40, multi autohs hsbar
  text "Start:", 15, 15 95 60 15,
  text "Sep.:", 16, 15 115 60 15,
  text "End:", 17, 19 135 60 15,
  edit "", 18, 42 93 130 20, autohs
  edit "", 19, 42 113 130 20, autohs
  edit "", 20, 42 133 130 20, autohs
  text "Bar Ch1:", 9, 180 95 60 15,
  text "Bar Ch2:", 10, 180 115 60 15,
  text "Bar Ch3:", 11, 180 135 60 15,
  edit "", 12, 224 93 60 20, autohs
  edit "", 13, 224 113 60 20, autohs
  edit "", 14, 224 133 60 20, autohs
  radio "/say", 22, 295 95 40 15,
  radio "/me", 23, 343 95 40 15,
  button "Show Preview", 5, 295 130 90 20,
  
  box "Load Theme", 6, 5 160 390 65,
  combo 7, 15 178 120 100, Sort Drop Edit
  button "Load Theme", 8, 145 178 75 20,
  button "Set as active", 25, 230 178 90 20,
  button "Save", 26, 330 178 50 20,
  text "TIP: if not select theme then saving to current config - Essence v.:2.2.6.0", 27, 15 205 360 15,
}

on *:DIALOG:theme_dialog:sclick:3: {
  if ($did(theme_dialog,7,1).sel > 0) {
    set %Etfile " $+ $scriptdir $+ Themes\ $+ $did(theme_dialog,7,$did(theme_dialog,7,1).sel) $+ .cfg $+ "
  }
  else {
    set %Etfile " $+ $scriptdir $+ Essence.ini $+ "
  }

  set %E3select $did(theme_dialog,3,$did(theme_dialog,3,1).sel)
  did -c theme_dialog 24 1
  if (%E3select == Torrent) {
    did -e theme_dialog 12
    did -e theme_dialog 13
    did -e theme_dialog 14
    did -e theme_dialog 18
    did -e theme_dialog 19
    did -e theme_dialog 20
    did -e theme_dialog 2
    did -re theme_dialog 24
    did -a theme_dialog 24 masc
    did -a theme_dialog 24 total
    did -c theme_dialog 24 1
  } 
  elseif (%E3select == WinAmp) {
    did -e theme_dialog 12
    did -e theme_dialog 13
    did -e theme_dialog 14
    did -e theme_dialog 18
    did -e theme_dialog 19
    did -e theme_dialog 20
    did -e theme_dialog 2
    did -re theme_dialog 24
    did -a theme_dialog 24 masc
    did -a theme_dialog 24 simple
    did -c theme_dialog 24 1
  }
  elseif (%E3select == DCC) {
    did -e theme_dialog 12
    did -e theme_dialog 13
    did -e theme_dialog 14
    did -e theme_dialog 18
    did -e theme_dialog 19
    did -e theme_dialog 20
    did -e theme_dialog 2
    did -re theme_dialog 24
    did -a theme_dialog 24 masc
    did -c theme_dialog 24 1
  }
  elseif (%E3select == DirList) {
    did -b theme_dialog 12
    did -b theme_dialog 13
    did -b theme_dialog 14
    did -e theme_dialog 18
    did -e theme_dialog 19
    did -e theme_dialog 20
    did -b theme_dialog 24
    did -b theme_dialog 2
  }
  elseif (%E3select == Windows) {
    did -b theme_dialog 12
    did -b theme_dialog 13
    did -b theme_dialog 14
    did -e theme_dialog 18
    did -e theme_dialog 19
    did -e theme_dialog 20
    did -b theme_dialog 24
    did -b theme_dialog 2
  }
  elseif (%E3select == System) {
    did -b theme_dialog 12
    did -b theme_dialog 13
    did -b theme_dialog 14
    did -b theme_dialog 18
    did -e theme_dialog 19
    did -b theme_dialog 20
    did -e theme_dialog 2
    did -re theme_dialog 24
    did -a theme_dialog 24 CPU
    did -a theme_dialog 24 MEM
    did -a theme_dialog 24 HDD
    did -a theme_dialog 24 HDDAll
    did -a theme_dialog 24 Power
    did -a theme_dialog 24 Video
    did -a theme_dialog 24 OS
    did -c theme_dialog 24 1
  }
  elseif (%E3select == Uptime) {
    did -b theme_dialog 12
    did -b theme_dialog 13
    did -b theme_dialog 14
    did -b theme_dialog 18
    did -e theme_dialog 19
    did -b theme_dialog 20
    did -e theme_dialog 2
    did -re theme_dialog 24
    did -a theme_dialog 24 UpTime
    did -a theme_dialog 24 UpTimemIRC
    did -a theme_dialog 24 UpTimeRec
    did -a theme_dialog 24 UpTimemIRCRec
    did -c theme_dialog 24 1
  }
  elseif (%E3select == Network) {
    did -b theme_dialog 12
    did -b theme_dialog 13
    did -b theme_dialog 14
    did -b theme_dialog 18
    did -e theme_dialog 19
    did -b theme_dialog 20
    did -e theme_dialog 2
    did -re theme_dialog 24
    did -a theme_dialog 24 Adapters
    did -a theme_dialog 24 Speed
    did -a theme_dialog 24 Transfered
    did -c theme_dialog 24 1
  }  
  elseif (%E3select == Misc) {
    did -b theme_dialog 12
    did -b theme_dialog 13
    did -b theme_dialog 14
    did -b theme_dialog 18
    did -b theme_dialog 19
    did -b theme_dialog 20
    did -e theme_dialog 2
    did -re theme_dialog 24
    did -a theme_dialog 24 NOD
    did -c theme_dialog 24 1
  } 

  if ($did(theme_dialog,7,1).sel == 0) { $binddata(" $+ $scriptdir $+ Essence.ini $+ ",%E3select) }
  else { $binddata(%Etfile,%E3select) }

  if ($readini(%Etfile,%E3select,use) == say) {
    did -c theme_dialog 22
    did -u theme_dialog 23
  }
  else {
    did -u theme_dialog 22
    did -c theme_dialog 23
  }
  unset %Etfile
  unset %E3select
}

on *:DIALOG:theme_dialog:sclick:5: {
  window -c @ThemePreview
  window -k0 @ThemePreview 100 100 750 90
  aline @ThemePreview $generatepreview($did(theme_dialog,3,$did(theme_dialog,3,1).sel))
}

on *:DIALOG:theme_dialog:sclick:8: {
  if ($did(theme_dialog,7,1).sel > 0) {
    set %Etfile " $+ $scriptdir $+ Themes\ $+ $did(theme_dialog,7,$did(theme_dialog,7,1).sel) $+ .cfg $+ "
  }
  else {
    set %Etfile " $+ $scriptdir $+ Essence.ini $+ "
  }  

  set %E3select $did(theme_dialog,3,$did(theme_dialog,3,1).sel)
  did -ra theme_dialog 2 $repcb($readini(%Etfile,%E3select,$did(theme_dialog,24,$did(theme_dialog,24,1).sel)))
  did -ra theme_dialog 12 $repcb($readini(%Etfile,%E3select,chr1))
  did -ra theme_dialog 13 $repcb($readini(%Etfile,%E3select,chr2))
  did -ra theme_dialog 14 $repcb($readini(%Etfile,%E3select,chr3))
  did -ra theme_dialog 18 $repcb($readini(%Etfile,%E3select,start))
  did -ra theme_dialog 19 $repcb($readini(%Etfile,%E3select,sep))
  did -ra theme_dialog 20 $repcb($readini(%Etfile,%E3select,end))
  if ($readini(%Etfile,%E3select,use) == say) {
    did -c theme_dialog 22
    did -u theme_dialog 23
  }
  else {
    did -u theme_dialog 22
    did -c theme_dialog 23
  }
  if ($len($readini(%Etfile,author,author)) > 0) {
    did -ra theme_dialog 27 $readini(%Etfile,author,desc) $+ , $chr(32) $+ $readini(%Etfile,author,author) $+ , $chr(32) $+ $readini(%Etfile,author,web)
  }
  else { did -ra theme_dialog 27 TIP: if not select theme then saving to current config }
  unset %Etfile
  unset %E3select
}

on *:DIALOG:theme_dialog:sclick:24: {
  if ($did(theme_dialog,7,1).sel > 0) {
    set %Etfile " $+ $scriptdir $+ Themes\ $+ $did(theme_dialog,7,$did(theme_dialog,7,1).sel) $+ .cfg $+ "
  }
  else {
    set %Etfile " $+ $scriptdir $+ Essence.ini $+ "
  }

  did -ra theme_dialog 2 $repcb($readini(%Etfile,$did(theme_dialog,3,$did(theme_dialog,3,1).sel),$did(theme_dialog,24,$did(theme_dialog,24,1).sel)))
  unset %Etfile
}

on *:DIALOG:theme_dialog:sclick:25: {
  set %Esource " $+ $scriptdir $+ Themes\ $+ $did(theme_dialog,7,$did(theme_dialog,7,1).sel) $+ .cfg $+ "
  set %Etarget " $+ $scriptdir $+ Essence.ini $+ "

  writeini %Etarget WinAmp masc $readini(%Esource,WinAmp,masc)
  writeini %Etarget WinAmp simple $readini(%Esource,WinAmp,simple)
  writeini %Etarget WinAmp chr1 $readini(%Esource,WinAmp,chr1)
  writeini %Etarget WinAmp chr2 $readini(%Esource,WinAmp,chr2)
  writeini %Etarget WinAmp chr3 $readini(%Esource,WinAmp,chr3)
  writeini %Etarget WinAmp start $readini(%Esource,WinAmp,start)
  writeini %Etarget WinAmp sep $readini(%Esource,WinAmp,sep)
  writeini %Etarget WinAmp end $readini(%Esource,WinAmp,end)
  writeini %Etarget WinAmp use $readini(%Esource,WinAmp,use)

  writeini %Etarget DCC masc $readini(%Esource,DCC,masc)
  writeini %Etarget DCC chr1 $readini(%Esource,DCC,chr1)
  writeini %Etarget DCC chr2 $readini(%Esource,DCC,chr2)
  writeini %Etarget DCC chr3 $readini(%Esource,DCC,chr3)
  writeini %Etarget DCC start $readini(%Esource,DCC,start)
  writeini %Etarget DCC sep $readini(%Esource,DCC,sep)
  writeini %Etarget DCC end $readini(%Esource,DCC,end)
  writeini %Etarget DCC use $readini(%Esource,DCC,use)

  writeini %Etarget Torrent masc $readini(%Esource,Torrent,masc)
  writeini %Etarget Torrent total $readini(%Esource,Torrent,total)
  writeini %Etarget Torrent chr1 $readini(%Esource,Torrent,chr1)
  writeini %Etarget Torrent chr2 $readini(%Esource,Torrent,chr2)
  writeini %Etarget Torrent chr3 $readini(%Esource,Torrent,chr3)
  writeini %Etarget Torrent start $readini(%Esource,Torrent,start)
  writeini %Etarget Torrent sep $readini(%Esource,Torrent,sep)
  writeini %Etarget Torrent end $readini(%Esource,Torrent,end)
  writeini %Etarget Torrent use $readini(%Esource,Torrent,use)

  writeini %Etarget DirList start $readini(%Esource,DirList,start)
  writeini %Etarget DirList sep $readini(%Esource,DirList,sep)
  writeini %Etarget DirList end $readini(%Esource,DirList,end)
  writeini %Etarget DirList use $readini(%Esource,DirList,use)

  writeini %Etarget Windows start $readini(%Esource,Windows,start)
  writeini %Etarget Windows sep $readini(%Esource,Windows,sep)
  writeini %Etarget Windows end $readini(%Esource,Windows,end)
  writeini %Etarget Windows use $readini(%Esource,Windows,use)

  writeini %Etarget System cpu $readini(%Esource,System,cpu)
  writeini %Etarget System mem $readini(%Esource,System,mem)
  writeini %Etarget System hdd $readini(%Esource,System,hdd)
  writeini %Etarget System hddall $readini(%Esource,System,hddall)
  writeini %Etarget System Power $readini(%Esource,System,Power)
  writeini %Etarget System Video $readini(%Esource,System,Video)
  writeini %Etarget System OS $readini(%Esource,System,os)
  writeini %Etarget System sep $readini(%Esource,System,sep)
  writeini %Etarget System use $readini(%Esource,System,use)

  writeini %Etarget Uptime UpTime $readini(%Esource,Uptime,UpTime)
  writeini %Etarget Uptime UpTimemirc $readini(%Esource,Uptime,UpTimemirc)
  writeini %Etarget Uptime UpTimeRec $readini(%Esource,Uptime,UpTimeRec)
  writeini %Etarget Uptime UpTimemircRec $readini(%Esource,Uptime,UpTimemircRec)
  writeini %Etarget Uptime sep $readini(%Esource,Uptime,sep)
  writeini %Etarget Uptime use $readini(%Esource,Uptime,use)

  writeini %Etarget Misc nod $readini(%Esource,Misc,nod)
  writeini %Etarget Misc use $readini(%Esource,Misc,use)

  writeini %Etarget Network Adapters $readini(%Esource,Network,Adapters)
  writeini %Etarget Network Speed $readini(%Esource,Network,Speed)
  writeini %Etarget Network Transfered $readini(%Esource,Network,Transfered)
  writeini %Etarget Network use $readini(%Esource,Network,use)

  unset %Esource
  unset %Etarget
}

on *:DIALOG:theme_dialog:sclick:26: {
  if ($len($did(theme_dialog,7,0)) < 1) { 
    set %Etfile " $+ $scriptdir $+ Essence.ini $+ "
  }
  elseif ($len($did(theme_dialog,7,0)) > 1) { 
    set %Etfile " $+ $scriptdir $+ Themes\ $+ $replace($did(theme_dialog,7,0),$chr(32),_) $+ .cfg $+ "
  }
  else { goto ends }

  set %E3select $did(theme_dialog,3,$did(theme_dialog,3,1).sel)
  
  writeini %Etfile %E3select $did(theme_dialog,24) $repcbrev($did(theme_dialog,2,1))

  if ($did(theme_dialog,22).state) {
    writeini %Etfile %E3select use say
  }
  else {
    writeini %Etfile %E3select use me
  }

  if ($exist(%Etfile) == False) { did -a theme_dialog 7 $replace($did(theme_dialog,7,0),$chr(32),_) }
  
  :ends
  unset %Etfile
  unset %E3select
}