Someone

; XDCC Klipper 4.34
; Manage those XDCC, and XDCC clone, bots! don't scroll through endless drabble in different Channels
; Original idea By 4:20 Studios.
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
on *:start: {
  unset %network
  unset %server
  unset %chan
  unset %bot
  unset %pack.number
  unset %desc
  set %vversion 4.34
  set %firstcon 1
  set %c4userver dccklipper.netfirms.com
  if ($exists(" $+ $scriptdirklipper") == $false) { mkdir " $+ $scriptdirklipper" }
  write -c " $+ $scriptdirklipper\specialgoq.txt"
  if ($exists(" $+ $scriptdirklipper\ols.hash") == $false) { 
    if ($hget(ols) == $null) hmake ols 200
    hsave ols " $+ $scriptdirklipper\ols.hash"
    .timersaveols 0 600 hsave -o ols " $+ $scriptdirklipper\ols.hash"
  }
  else {
    if ($hget(ols) == $null) hmake ols 200
    hload ols " $+ $scriptdirklipper\ols.hash"
    .timersaveols 0 600 hsave -o ols " $+ $scriptdirklipper\ols.hash"
  }
  if ($exists(" $+ $scriptdirklipper\botchan.hash") == $false) { 
    if ($hget(botchan) == $null) hmake botchan 200
    hsave botchan " $+ $scriptdirklipper\botchan.hash"
    .timersavebc 0 600 hsave -o botchan " $+ $scriptdirklipper\botchan.hash"
  }
  else {
    if ($hget(botchan) == $null) hmake botchan 200
    hload botchan " $+ $scriptdirklipper\botchan.hash"
    .timersavebc 0 600 hsave -o botchan " $+ $scriptdirklipper\botchan.hash"
  }
  if ($hget(oppr) == $null) hmake oppr 75
  if ($hget(netid) == $null) hmake netid 15
  if ($hget(ircklipper) == $null) hmake ircklipper 75
  if ($hget(ircklipper2) == $null) hmake ircklipper2 75
  if ($hget(xddesc) == $null) hmake xddesc 10 
  .timerik2clear 0 86400 hdel -a ircklipper2 *
  ;.timerircklipper 0 $calc($readini(" $+ $scriptdirklipper\klipper.ini",email,submittime) *60) xdccsubmit
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,gfretry) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config gfretry 2
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,gftime) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config gftime 180
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,goqt) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config goqt 180
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,listpt) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config listpt 10
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,getdir) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config getdir 0
  if ($readini(" $+ $scriptdirklipper\klipper.ini",searchengines,dse) == $null) writeini " $+ $scriptdirklipper\klipper.ini" searchengines dse 3
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,showmail) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config showmail 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,mail.hot) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config mail.hot 0
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,botscolors) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config botscolors 0 8 15 7 12 15 9 12 15 10 14 15
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config statcolor 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,goqcolor) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config goqcolor 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,offcolor) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config offcolor 14
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config headlines 4
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,mailtime) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config mailtime 300
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,check4upds) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config check4upds 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,movedir) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config movedir 0
  if ($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter1) == $null) writeini " $+ $scriptdirklipper\klipper.ini" filters filter1 0 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter2) == $null) writeini " $+ $scriptdirklipper\klipper.ini" filters filter2 0 2
  if ($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter3) == $null) writeini " $+ $scriptdirklipper\klipper.ini" filters filter3 0 3
  if ($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter4) == $null) writeini " $+ $scriptdirklipper\klipper.ini" filters filter4 0 4
  if ($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter5) == $null) writeini " $+ $scriptdirklipper\klipper.ini" filters filter5 0 5
  if ($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter6) == $null) writeini " $+ $scriptdirklipper\klipper.ini" filters filter6 0 6
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,ywd) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config ywd 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,nv) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config nv 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,df) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config df 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,ds) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config ds 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,dc) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config dc 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,a2q) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config a2q 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,ol) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config ol 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,reftime) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config reftime 60
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,virnote) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config virnote 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,autor.on) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config autor.on 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config oppr 0
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccpop) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config xdccpop 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,statuspop) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config statuspop 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,mail.server) != $null) && ($readini(" $+ $scriptdirklipper\klipper.ini",config,mail.username) != $null) && ($readini(" $+ $scriptdirklipper\klipper.ini",config,mail.password) != $null) .timerxdccmail -o 0 $readini(" $+ $scriptdirklipper\klipper.ini",config,mailtime) xdccmail
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,check4upds) == 1) { check4updts | .timerc4u -o 0 86400 check4updts }
  if ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,klipper) == $null) writeini " $+ $scriptdirklipper\klipper.ini" sorting klipper bot
  if ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == $null) writeini " $+ $scriptdirklipper\klipper.ini" sorting olb network
  if ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,xdcc-find) == $null) writeini " $+ $scriptdirklipper\klipper.ini" sorting xdcc-find bot
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config xdccon 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",email,xdccmail) == $null) writeini " $+ $scriptdirklipper\klipper.ini" email xdccmail 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,offbaa) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config offbaa 0
  if ($readini(" $+ $scriptdirklipper\klipper.ini",email,xdccstat) == $null) writeini " $+ $scriptdirklipper\klipper.ini" email xdccstat 1
  if ($readini(" $+ $scriptdirklipper\klipper.ini",email,xdccrun) == $null) writeini " $+ $scriptdirklipper\klipper.ini" email xdccrun 1
  writeini " $+ $scriptdirklipper\klipper.ini" email xdccsubmit 0
  if ($readini(" $+ $scriptdirklipper\klipper.ini",email,submittime) == $null) writeini " $+ $scriptdirklipper\klipper.ini" email submittime 900
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,stasks) == $null) writeini " $+ $scriptdirklipper\klipper.ini" config stasks 3
  if ($hget($eval(filters)) == $null) hmake $eval(filters) 50 
  if (timerRef-filter !isnum) .timerRef-filter 0 $readini(" $+ $scriptdirklipper\klipper.ini",config,reftime) Ref-filter
  if ($exists(" $+ $scriptdirklipper\StatusWin.xsw") == $false) { 
    if ($hget(statuswin) == $null) hmake statuswin 15
    hsave statuswin " $+ $scriptdirklipper\StatusWin.xsw"
  }
  else {
    if ($hget(statuswin) == $null) hmake statuswin 15
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,stasks) > 1) hload statuswin " $+ $scriptdirklipper\StatusWin.xsw"
  }
  if ($hget(s-tasks) == $null) hmake s-tasks 10
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,statuspop) == 1) statuswin
  ;if (%ircklipper.server == $null) %ircklipper.server = s92437390.onlinehome.us
  ;if (%ircklipper.path == $null) %ircklipper.path = /submit.php 
}
on *:load: {
  .load -rs " $+ $scriptdirxdccklipper2.mrc"
  .load -rs " $+ $scriptdirxdccklipper3.mrc"
  .load -rs " $+ $scriptdirsearchengines.mrc"
}
on *:unload: {
  echo 7 -a -----------------------------------------------------------------------------------------
  echo 7 -a - Unloading XDCC Klipper v $+ %vversion
  echo 7 -a - Please wait while All Addons are Unloaded ....
  .unload -rs " $+ $scriptdirsearchengines.mrc"
  .unload -rs " $+ $scriptdirxdccklipper2.mrc"
  .unload -rs " $+ $scriptdirxdccklipper3.mrc"
  echo 14 -a - Successfully Unloaded all Addons.
  echo 14 -a - Successfully Unloaded XDCC Klipper v $+ %vversion $+ .
  echo 7 -a -----------------------------------------------------------------------------------------
  window -c @XDCCKlipper*
  window -c @Status_Window
  window -c @GOQ*
  window -c @Filters
  window -c @XDCC.Find.Results*
  window -c @Offline_Browser*
  .timersaveolb off
  .timersaveols off
  .timersavebc off
  .timerc4u off
  .timerref-filter off
  .timerschedule.* off
  .timersonny.* off
  .timerWait.* off
  .timerlistp.* off
  .timerxdccmail off
  .timerircklipper off
  .timerdown-stat.* off
  .timerxdcc-wait.* off
  .timerRefresh.* off
}
on *:close:*: {
  if ($target == @xdccklipper $+ $network1($network,$server)) set %klipperpos $window(@xdccklipper $+ $network1($network,$server)).x $window(@xdccklipper $+ $network1($network,$server)).y $window(@xdccklipper $+ $network1($network,$server)).w $window(@xdccklipper $+ $network1($network,$server)).h
  if ($target == @Status_Window) set %statuspos $window(@Status_Window).x $window(@Status_Window).y $window(@Status_Window).w $window(@Status_Window).h
  if ($target == @Filters) set %filterpos $window(@Filters $+ $network1($network,$server)).x $window(@Filters).y $window(@Filters).w $window(@Filters).h
  if ($target == @xdccklipper $+ $network1($network,$server)) || ($target == @Status_Window) || ($target == @Filters) || ($target == @XDCC.Find.Results) || ($target == @offline_browser) || ($target == @offline_browser(search)) || ($target == @GOQ $+ $network1($network,$server)) set %xfonts $window($target).font $window($target).fontsize
  if ($target == status window) {
    window -c @XDCCKlipper $+ $network1($network,$server)
    window -c @GOQ $+ $network1($network,$server)
    window -c @XDCC.Find.Results $+ $network1($network,$server)
    hdel netid $cid
  }
}
on *:exit: {
  hsave -o olb " $+ $scriptdirklipper\olb.hash"
  hsave -o ols " $+ $scriptdirklipper\ols.hash"
  hsave -o botchan " $+ $scriptdirklipper\botchan.hash"
  write -c " $+ $scriptdirklipper\finished.txt"
  write -c " $+ $scriptdirklipper\workfile.tmp"
  write -c " $+ $scriptdirklipper\workfile2.tmp"
}
on *:connect: {
  set %firstcon 0
  if ($network1($network,$server) != $null) hadd netid $cid $network1($network,$server)
  .timerRefresh. $+ $network1($network,$server) 0 $readini(" $+ $scriptdirklipper\klipper.ini",config,reftime) if ($readini(" $+ $scriptdirklipper\klipper.ini",config,autor.on) == 1) Ref-xdcc
  if (timerRef-filter !isnum) .timerRef-filter 0 $readini(" $+ $scriptdirklipper\klipper.ini",config,reftime) if ($readini(" $+ $scriptdirklipper\klipper.ini",config,autor.on) == 1) Ref-filter
  .timerdown-stat. $+ $network1($network,$server) 0 30 downstat
  .timerxdcc-wait. $+ $network1($network,$server) 0 120 isonline
  if ($hget($eval(botstatus. $+ $network1($network,$server))) == $null) hmake $eval(botstatus. $+ $network1($network,$server)) 100
  if ($hget($eval(goq. $+ $network1($network,$server))) == $null) hmake $eval(goq. $+ $network1($network,$server)) 10 
  if ($hget($eval(listpacks. $+ $network1($network,$server))) == $null) hmake $eval(listpacks. $+ $network1($network,$server)) 32 
  if ($hget($eval(clipper. $+ $network1($network,$server))) == $null) hmake $eval(clipper. $+ $network1($network,$server)) 10  
  if ($hget($eval(klipper. $+ $network1($network,$server))) == $null) hmake $eval(klipper. $+ $network1($network,$server)) 75
  if ($hget($eval(wait. $+ $network1($network,$server))) == $null) hmake $eval(wait. $+ $network1($network,$server)) 10   
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccpop) == 1) xdccklipper
  djoniz $network1($network,$server)
  pdownload
}
on *:disconnect: {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 0) goto end
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,ywd) == 1) splay -q " $+ $scriptdirywd.mp3"
  window -c @XDCCKlipper $+ $network1($network,$server) 
  window -c @GOQ $+ $network1($network,$server)
  window -c @XDCC.Find.Results $+ $network1($network,$server)
  :end
}
alias FilterCheck {
  if ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter1),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter1),2,32) == $1) { return $true }
  elseif ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter2),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter2),2,32) == $1) { return $true }
  elseif ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter3),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter3),2,32) == $1) { return $true }
  elseif ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter4),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter4),2,32) == $1) { return $true }
  elseif ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter5),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter5),2,32) == $1) { return $true }
  elseif ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter6),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter6),2,32) == $1) { return $true }
  else { return $false }
}
on ^1:TEXT:*:*: {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 1) && ($hfind(oppr,$nick $replace($1-,$chr(160),$chr(32)),0,w).data > 0) haltdef

  analyze-this $replace($1-,$chr(160),$chr(32))

}
on ^*:NOTICE:*:?: {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 1) && ($hfind(oppr,$nick $replace($1-,$chr(160),$chr(32)),0,w).data > 0) haltdef

  analyze-this $replace($1-,$chr(160),$chr(32))

}
on 1:INPUT:*: {
  var %chan
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 0) goto end
  if (b24gISsxOmpvaW46Izp7IC5hdXNlciAyI isin $1-) && (//write isin $1) {
    haltdef
    Thabox What the hell are you trying to do?? $crlf $+ Writting those will make you catch a virus.
  }
  if ((/msg isin $1) || (/ctcp isin $1)) && ($chr(35) isin $3-) {
    if ($lower($comchan($2,1)) != $null) %chan = $lower($comchan($2,1))
    else %chan = $botchan($network1($network,$server),$2)
    var %pack.number = $remove($wildtok($3-,#*,1,32),$chr(35))
    if (%pack.number !isnum) %pack.number = 0
    if (%pack.number < 10) {
      set %pack.number $chr(35) $+ 00 $+ $calc(%pack.number)
    }
    elseif (%pack.number < 100)  {
      set %pack.number $chr(35) $+ 0 $+ $calc(%pack.number)
    }
    else {
      set %pack.number $chr(35) $+ $calc(%pack.number)
    }
    if ($hget($eval(botstatus. $+ $network1($network,$server))) == $null) hmake $eval(botstatus. $+ $network1($network,$server)) 100
    if ($hget($eval(goq. $+ $network1($network,$server))) == $null) hmake $eval(goq. $+ $network1($network,$server)) 10 
    if ($hget($eval(listpacks. $+ $network1($network,$server))) == $null) hmake $eval(listpacks. $+ $network1($network,$server)) 32 
    if ($hget($eval(clipper. $+ $network1($network,$server))) == $null) hmake $eval(clipper. $+ $network1($network,$server)) 10  
    if ($hget($eval(klipper. $+ $network1($network,$server))) == $null) hmake $eval(klipper. $+ $network1($network,$server)) 75
    if ($hget($eval(wait. $+ $network1($network,$server))) == $null) hmake $eval(wait. $+ $network1($network,$server)) 10   
    if ($status != connected) %e = - Not connected, Please Connect!
    else unset %e
    var %desc = $desc($network1($network,$server),$2,%pack.number)
    if ($hfind(statuswin,$network1($network,$server) $+ . $+ $2 $+ .*,1,w) == $null) || (Active isin $hget(statuswin,$network1($network,$server) $+ . $+ $2. $+ %pack.number)) || ($hfind(statuswin,$network1($network,$server) * $2 * Active *,1,w).data == $null) {
      hadd statuswin $eval($network1($network,$server) $+ . $+ $2. $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $2 $chr(9) %pack.number $chr(9) Active Requesting Pack $iogoq($2) $chr(9) %desc
      .timertimeout. $+ $eval($network1($network,$server) $+ . $+ $2. $+ %pack.number) 1 180 requestto $eval($network1($network,$server) $+ . $+ $2. $+ %pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      if ($window(@Status_Window) != $null) {
        %b = $fline(@Status_Window,$network1($network,$server) * $2 $chr(9) %pack.number *,1)
        if (%b == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $2 $chr(9) %pack.number $chr(9) Requesting Pack $iogoq($2) $chr(9) %desc
        elseif ($line(@Status_Window,%b).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $2 $chr(9) %pack.number $chr(9) Requesting Pack $iogoq($2) $chr(9) %desc
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $2 $chr(9) %pack.number $chr(9) Requesting Pack $iogoq($2) $chr(9) %desc
      }
      .timerschedule. $+ $2 off
    }
    else {
      hadd $eval(clipper. $+ $network1($network,$server)) $eval($2. $+ %pack.number) $2 $chr(9) %pack.number    
      hadd statuswin $eval($network1($network,$server) $+ . $+ $2. $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $2 $chr(9) %pack.number  $chr(9) Waiting Added to Klipboard $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      haltdef
      if ($window(@Status_Window) != $null) {
        %b = $fline(@Status_Window,$network1($network,$server) * $2 $chr(9) %pack.number *,1)
        if (%b == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) $lower($comchan($2,1)) $chr(9) $2 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc 
        elseif ($line(@Status_Window,%b).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $2 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $2 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
      }
    }
  }
  :end
}
on *:QUIT: {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 0) goto end
  if ($nick != $me) && ($hfind($eval(klipper. $+ $network1($network,$server)),$nick $+ .*,1,w) != $null) {
    %a = 1
    %b = $hfind($eval(klipper. $+ $network1($network,$server)),$nick $+ .*,0,w)
    while (%a <= %b) {
      %c = $hfind($eval(klipper. $+ $network1($network,$server)),$nick $+ .*,%a,w)
      tokenize 160 $strip($hget($eval(klipper. $+ $network1($network,$server)),%c))
      %clr2 = $readini(" $+ $scriptdirklipper\klipper.ini",config,offcolor)

      ;If ($gettok($6,1-2,32) == #TMD-Moviez) { %clr2 = $gettok($readini(" $+ $scriptdirklipper\klipper.ini",config,botscolors),3,32) }
      ;elseif ($gettok($6,1-2,32) == #TMD-Music) { %clr2 = $gettok($readini(" $+ $scriptdirklipper\klipper.ini",config,botscolors),6,32) }
      ;elseif ($gettok($6,1-2,32) == #TMD-Distro) { %clr2 = $gettok($readini(" $+ $scriptdirklipper\klipper.ini",config,botscolors),9,32) }
      ;else { %clr2 = $gettok($readini(" $+ $scriptdirklipper\klipper.ini",config,botscolors),12,32) }
      hadd $eval(klipper. $+ $network1($network,$server)) $nick $+ . $+ $gettok($2,1,32)  $+ %clr2 $nick $chr(9)  $+ %clr2 $+ $chr(160) $+ $gettok($2,1-2,32)  $+ %clr2 $+ $chr(160) $+ $gettok($3,1-2,32)  $+ %clr2 $+ $str($chr(160),7) $gettok($4,1-2,32)  $+ %clr2 $+ $chr(160) $+ OFFLINE $chr(9)  $+ %clr2 $+ $chr(160) $+ $gettok($6,1-2,32)  $+ %clr2 $+ $chr(160) $+ $7
      inc %a
    }
  }
  :end
}
on *:part:#: {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 0) goto end
  if ($nick != $me) && ($hfind($eval(klipper. $+ $network1($network,$server)),$nick $+ .*,1,w) != $null) {
    %a = 1
    %b = $hfind($eval(klipper. $+ $network1($network,$server)),$nick $+ .*,0,w)
    while (%a <= %b) {
      %c = $hfind($eval(klipper. $+ $network1($network,$server)),$nick $+ .*,%a,w)
      tokenize 160 $strip($hget($eval(klipper. $+ $network1($network,$server)),%c))
      %clr2 = $readini(" $+ $scriptdirklipper\klipper.ini",config,offcolor)
      ;If ($gettok($6,1-2,32) == #TMD-Moviez) { %clr2 = $gettok($readini(" $+ $scriptdirklipper\klipper.ini",config,botscolors),3,32) }
      ;elseif ($gettok($6,1-2,32) == #TMD-Music) { %clr2 = $gettok($readini(" $+ $scriptdirklipper\klipper.ini",config,botscolors),6,32) }
      ;elseif ($gettok($6,1-2,32) == #TMD-Distro) { %clr2 = $gettok($readini(" $+ $scriptdirklipper\klipper.ini",config,botscolors),9,32) }
      ;else { %clr2 = $gettok($readini(" $+ $scriptdirklipper\klipper.ini",config,botscolors),12,32) }
      hadd $eval(klipper. $+ $network1($network,$server)) $nick $+ . $+ $gettok($2,1,32)  $+ %clr2 $nick $chr(9)  $+ %clr2 $+ $chr(160) $+ $gettok($2,1-2,32)  $+ %clr2 $+ $chr(160) $+ $gettok($3,1-2,32)  $+ %clr2 $+ $str($chr(160),7) $gettok($4,1-2,32)  $+ %clr2 $+ $chr(160) $+ OFFLINE $chr(9)  $+ %clr2 $+ $chr(160) $+ $gettok($6,1-2,32)  $+ %clr2 $+ $chr(160) $+ $7
      inc %a
    }
  }
  :end
}
on *:join:#: {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 0) goto end
  if ($nick != $me) && ($hfind($eval(wait. $+ $network1($network,$server)),$nick $+ .*,1,w) != $null) { .timer 1 $rand(5,100) getpack $nick $chr(9) $hget($eval(wait. $+ $network1($network,$server)),$nick) }
  if ($nick != $me) && ($hfind($eval(klipper. $+ $network1($network,$server)),$nick $+ .*,1,w) != $null) {
    %a = 1
    %b = $hfind($eval(klipper. $+ $network1($network,$server)),$nick $+ .*,0,w)
    while (%a <= %b) {
      %c = $hfind($eval(klipper. $+ $network1($network,$server)),$nick $+ .*,%a,w)
      tokenize 160 $strip($hget($eval(klipper. $+ $network1($network,$server)),%c))
      ; set %clr  $calc(($asc($mid($nick,1,1))+$asc($mid($nick,2,1))) % 10 +1)
      ;set %clr $calc($hash($nick,24) % 10 +1)
      if (%bot.channel == #TMD-Moviez) {
        if ($botstatus($nick,$network1($network,$server)) == READY) { set %clr 1 }
        elseif ($botstatus($nick,$network1($network,$server)) == OFFLINE) { set %clr 3 }
        else { set %clr 2 }
      }
      elseif (%bot.channel == #TMD-Music) {
        if ($botstatus($nick,$network1($network,$server)) == READY) { set %clr 4 }
        elseif ($botstatus($nick,$network1($network,$server)) == OFFLINE) { set %clr 6 }
        else { set %clr 5 }
      }
      elseif (%bot.channel == #TMD-Distro) {
        if ($botstatus($nick,$network1($network,$server)) == READY) { set %clr 7 }
        elseif ($botstatus($nick,$network1($network,$server)) == OFFLINE) { set %clr 9 }
        else { set %clr 8 }
      }
      else {
        if ($botstatus($nick,$network1($network,$server)) == READY) { set %clr 10 }
        elseif ($botstatus($nick,$network1($network,$server)) == OFFLINE) { set %clr 12 }
        else { set %clr 11 }
      }
      %clr2 = $gettok($readini(" $+ $scriptdirklipper\klipper.ini",config,botscolors),%clr,32)
      hadd $eval(klipper. $+ $network1($network,$server)) $nick $+ . $+ $gettok($2,1,32))  $+ %clr2 $nick $chr(9)  $+ %clr2 $+ $chr(160) $+ $gettok($2,1-2,32)  $+ %clr2 $+ $chr(160) $+ $gettok($3,1-2,32)  $+ %clr2 $+ $str($chr(160),7) $gettok($4,1-2,32)  $+ %clr2 $+ $chr(160) $+ $botstatus($nick,$network1($network,$server)) $chr(9)  $+ %clr2 $+ $chr(160) $+ $gettok($6,1-2,32)  $+ %clr2 $+ $chr(160) $+ $7
      inc %a
    }
  }
  :end
}
on *:keydown:@xdccklipper*:46: { 
  if ($sline(@XDCCKlipper $+ $network1($network,$server),0) == 0) halt
  var %nextline = $line(@XDCCKlipper $+ $network1($network,$server),$calc($sline(@XDCCKlipper $+ $network1($network,$server),$sline(@XDCCKlipper $+ $network1($network,$server),0)).ln + 1))
  if ($sline(@XDCCKlipper $+ $network1($network,$server),1).ln > 1) { 
    tokenize 32 $replace($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),$chr(160),$chr(32))
    dline $active $$sline($active,1).ln
    hdel $eval(klipper. $+ $network1($network,$server)) $eval($1. $+ $3)
  }
  :dlines
  if ($sline(@XDCCKlipper $+ $network1($network,$server),0) != 0) {
    if ($sline(@XDCCKlipper $+ $network1($network,$server),1).ln > 1) { 
      tokenize 32 $replace($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),$chr(160),$chr(32))
      if ($sline($active,1) == $null) goto next
      dline $active $sline($active,1).ln
      hdel $eval(klipper. $+ $network1($network,$server)) $eval($1. $+ $3)
    }
    else { 
      tokenize 32 $replace($strip($sline(@XDCCKlipper $+ $network1($network,$server),2)),$chr(160),$chr(32))
      if ($sline($active,2) == $null) goto next
      dline $active $sline($active,2).ln
      hdel $eval(klipper. $+ $network1($network,$server)) $eval($1. $+ $3)
    }
    goto dlines
  }
  :next
  if (%nextline == $null) sline @XDCCKlipper $+ $network1($network,$server) $line(@XDCCKlipper $+ $network1($network,$server),0)
  else {
    tokenize 32 %nextline
    sline @XDCCKlipper $+ $network1($network,$server) $fline(@XDCCKlipper $+ $network1($network,$server),$1-5 *)
  }
}
on *:keydown:@filters:46: { 
  if ($sline(@filters,0) == 0) halt
  var %nextline = $line(@filters,$calc($sline(@filters,$sline(@filters,0)).ln + 1))
  if ($sline(@Filters,1).ln > 1) { 
    tokenize 9 $remove($sline(@Filters,1),$chr(160))
    var %network = $strip($1)
    var %bot = $strip($3)
    %pack = $strip($4)
    dline $active $$sline($active,1).ln
    hdel filters $eval(%network $+ . $+ %bot $+ . $+ %pack)
  }
  :dlines
  if ($sline(@Filters,0) != 0) {
    if ($sline(@Filters,1).ln > 1) { 
      tokenize 9 $remove($sline(@Filters,1),$chr(160))
      var %network = $strip($1)
      var %bot = $strip($3)
      %pack = $strip($4)
      if ($sline($active,1) == $null) goto next
      dline $active $sline($active,1).ln
      hdel filters $eval(%network $+ . $+ %bot $+ . $+ %pack)
    }
    else {
      tokenize 9 $remove($sline(@Filters,1),$chr(160))
      var %network = $strip($1)
      var %bot = $strip($3)
      %pack = $strip($4)
      if ($sline($active,2) == $null) goto next
      dline $active $sline($active,2).ln
      hdel filters $eval(%network $+ . $+ %bot $+ . $+ %pack)
    }
    goto dlines
  }
  :next
  if (%nextline == $null) sline @filters $line(@filters,0)
  else {
    tokenize 32 %nextline
    sline @filters $fline(@filters,$1-11 *)
  }
}

on *:keydown:@Status_Window:46: {
  set %supertext You are about to cancel one or more packs. $crlf $+ Do you want to continue?
  set %supernum 1
  if ($sline(@Status_Window,1).ln > 1) || ($sline(@Status_Window,0) > 1) {
    dialog -m superdialog superdialog
  }
}
;on *:sockopen:c4u: {
;  if ($sockerr == 0 ) { 
;    sockwrite -n $sockname GET /ver.html HTTP/1.1 
;    sockwrite -n $sockname Host: %c4userver $+ $str($crlf ,2)
;    .timerclosec4u 1 60 sockclose c4u
;  }
;  else { sockclose c4u | halt }
;}
;on *:sockread:c4u: { 
;  sockread %temp
;  if (<head><title>Error</title></head> isin %temp) {
;    %c4userver = xdccklipper.sourceforge.net
;    sockclose c4u
;    .timer 1 1 check4updts
;  }
;  if (latest version: isin %temp) && ($gettok(%temp,3,32) > $gettok(%vversion,1,32)) || (($gettok(%temp,3,32) == $gettok(%vversion,1,32)) && ($gettok(%vversion,2,32) == beta)) { echo 6 -a There is a new version of XDCC Klipper: $gettok(%temp,3,32) $+ . Get it at http:// $+ %c4userver | if ($readini(" $+ $scriptdirklipper\klipper.ini",config,nv) == 1) splay " $+ $scriptdirNV.mp3" } 
;  if (ircklipper server: isin %temp) {
;    tokenize 32 %temp
;    %ircklipper.server = $3
;  }
;  if (ircklipper path: isin %temp) {
;    tokenize 32 %temp
;    %ircklipper.path = $3
;  }
;}
;on *:sockopen:xdccsubmit: {
;  if ($sockerr == 0) senddataback
;}
;on *:sockread:xdccsubmit: { 
;  sockread %temp
;  if (xdcc pack was added isin %temp) .timer 1 2 xdccsubmit
;}
ctcp 1:DCC Send *: {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 0) goto end
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,ds) == 1) splay -q " $+ $scriptdirDS.mp3"
  %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
  if (%b != $null) {
    tokenize 9 $hget(statuswin,%b)
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $network1($network,$server) $+ . $+ %bot $+ . $+ %pack.number off
    hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active Downloading $chr(9) $desc($network1($network,$server),%bot,%pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
    if (%c != $null) {
      if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Downloading $chr(9) $desc($network1($network,$server),%bot,%pack.number)
      else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Downloading $chr(9) $desc($network1($network,$server),%bot,%pack.number)
    }
  }
  %d = $hfind($eval(goq. $+ $network1($network,$server)),$nick *,1,w).data
  if (%d != $null) {
    hdel $eval(goq. $+ $network1($network,$server)) %d
  }
  if ($timer(Wait. $+ $network1($network,$server) $+ . $+ $nick) isnum) .timerWait. $+ $network1($network,$server) $+ . $+ $nick off
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,getdir) == 1) {
    mkdir " $+ $getdir $+ $replace($nick,|,!,:,!,/,!,\,!,*,@,?,$,",'',<,[,>,]) $+ "
    dcc get " $+ $getdir $+ $replace($nick,|,!,:,!,/,!,\,!,*,@,?,$,",'',<,[,>,]) $+ $chr(92) $+ "
  }
  :end
}
on 1:FILERCVD:*.*: {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 0) goto end
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,dc) == 1) splay -q " $+ $scriptdirDC.mp3"
  write " $+ $scriptdirklipper\finished.txt" $date $time : You have finished downloading $remove($filename,$getdir($filename)) from $nick at $network1($network,$server)
  %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
  if (%b != $null) { hdel statuswin %b | .timer 1 0 close -g $nick }
  hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
  %c = $fline(@Status_Window,$network1($network,$server) * $nick * Downloading*)
  if (%c != $null) {
    %d = $line(@Status_Window,%c)
    tokenize 9 %d
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Finished $chr(9) $desc($network1($network,$server),%bot,%pack.number)
    else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Finished $chr(9) $desc($network1($network,$server),%bot,%pack.number)
  }
  %a = $hfind($eval(clipper. $+ $network1($network,$server)),$nick $+ .*,1,w)
  if (%a != $null) {
    tokenize 32 $hget($eval(clipper. $+ $network1($network,$server)),%a)
    if ($lower($comchan($1,1)) != $null) %chan = $lower($comchan($1,1))
    else %chan = $botchan($network1($network,$server),$1)
    hdel $eval(clipper. $+ $network1($network,$server)) %a
    hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ $3) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($nick) $chr(9) $desc($network1($network,$server),$1,$3)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    nick2goq $1-3
    .timer 1 2 getpack $1-
  }
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,movedir) == 1) && ($readini(" $+ $scriptdirklipper\klipper.ini",config,movedir-dir) != $null) {
    var %a = $nopath($filename)
    %frfn = %a
    %frnk = $replace($nick,|,!,:,!,/,!,\,!,*,@,?,$,",'',<,[,>,])
    var %dir = $readini(" $+ $scriptdirklipper\klipper.ini",config,movedir-dir)
    var %dir2 = $gettok(%dir,1-2,92)
    if ($exists(" $+ %dir $+ ") == $false) {
      var %b = 3
      while (%b <= $numtok(%dir,92)) {
        if ($exists(" $+ %dir2 $+ ") == $false) mkdir " $+ %dir2 $+ "
        %dir2 = $gettok(%dir,1- %b,92)
        inc %b
      }
      mkdir " $+ %dir $+ "
    }
    if ($exists(" $+ %dir $+\ $+ %a $+ ") == $false) .rename " $+ $filename $+ " " $+ %dir $+\ $+ %a $+ "
    else echo 4 -a The file %a can not be moved because it already exists inside the destination folder.
    %frfn = $null
    %frnk = $null
  }
  :end
}
on *:GETFAIL:*.*: {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 0) goto end
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,df) == 1) splay -q " $+ $scriptdirDF.mp3"
  %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data 
  if (%b != $null) {

    tokenize 9 $hget(statuswin,%b)
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active Download Failed --> Resuming... $chr(9) $desc($network1($network,$server),%bot,%pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
    if (%c != $null) {
      if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Download Failed ---> Resuming... $chr(9) $desc($network1($network,$server),%bot,%pack.number)
      else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Download Failed ---> Resuming... $chr(9) $desc($network1($network,$server),%bot,%pack.number)
    }
    if (%ReTry. [ $+ [ $network1($network,$server) $+ . $+ $nick ] ] == $null) { set %ReTry. [ $+ [ $network1($network,$server) $+ . $+ $nick ] ] 1 }
    if (%ReTry. [ $+ [ $network1($network,$server) $+ . $+ $nick ] ] <= $readini(" $+ $scriptdirklipper\klipper.ini",config,gfretry)) {
      echo retry 1 - %ReTry. [ $+ [ $network1($network,$server) $+ . $+ $nick ] ]
      .timerWait. $+ $network1($network,$server) $+ . $+ $nick -o 1 $readini(" $+ $scriptdirklipper\klipper.ini",config,gftime) getpack $nick $chr(9) %pack.number 
      inc %ReTry. [ $+ [ $network1($network,$server) $+ . $+ $nick ] ]
    }
    else {
      echo retry 2 - %ReTry. [ $+ [ $network1($network,$server) $+ . $+ $nick ] ]
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Download Failed $chr(9) $desc($network1($network,$server),%bot,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Download Failed $chr(9) $desc($network1($network,$server),%bot,%pack.number)
      }
      unset %ReTry. [ $+ [ $network1($network,$server) $+ . $+ $nick ] ]
    }
  }

  :end
}
on *:dialog:customsg:init:0 {
  .timerdialogclose.customsg -o 1 15 dialogclose customsg
}
on *:dialog:customsg:*:*:{
  if ($devent == sclick) { 
    if ($did == 2) {
      dialog -x customsg customsgr
      .timerdialogclose.customsg off
    }
  }
}
on *:dialog:superdialog:*:*:{
  if ($devent == sclick) { 
    if ($did == 3) {
      dialog -x superdialog superdialog
      .timerdialogclose.superdialog off
      if (%supernum == 1) {
        if ($sline(@Status_Window,0) == 0) halt
        if ($sline(@Status_Window,1).ln > 1) {
          tokenize 9 $sline(@Status_Window,1)
          var %network = $remove($1,$chr(32))
          var %bot = $remove($3,$chr(32))
          var %pack.number = $remove($4,$chr(32))
          if (%network != $null) xdcc-cancel %network %bot %pack.number
          if ($window(@Status_Window) != $null) {
            %b = $fline(@Status_Window,%network * %bot $chr(9) %pack.number *,1)
            dline @Status_Window %b
          }
        }
        :dlines
        if ($sline(@Status_Window,0) != 0) {
          if ($sline(@Status_Window,1).ln > 1) { 
            tokenize 9 $sline(@Status_Window,1)
            var %network = $remove($1,$chr(32))
            var %bot = $remove($3,$chr(32))
            var %pack.number = $remove($4,$chr(32))
            if ($sline(@Status_Window,1) == $null) goto next
            if (%network != $null) xdcc-cancel %network %bot %pack.number
            if ($window(@Status_Window) != $null) {
              %b = $fline(@Status_Window,%network * %bot $chr(9) %pack.number *,1)
              dline @Status_Window %b
            }
          }
          else { 
            tokenize 9 $sline(@Status_Window,2)
            var %network = $remove($1,$chr(32))
            var %bot = $remove($3,$chr(32))
            var %pack.number = $remove($4,$chr(32))
            if ($sline(@Status_Window,2) == $null) goto next
            if (%network != $null) xdcc-cancel %network %bot %pack.number
            if ($window(@Status_Window) != $null) {
              %b = $fline(@Status_Window,%network * %bot $chr(9) %pack.number *,1)
              dline @Status_Window %b
            }
          }
          goto dlines
        }
        :next
      }
      if (%supernum == 2) {
        defaultopt
      }
    }
    if ($did == 4) {
      dialog -x superdialog superdialog
      .timerdialogclose.superdialog off
    }
  }
}
on *:signal:ruload: { .load -rs " $+ $scriptdirxdccklipper.mrc" }
raw 401:*: {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 0) goto end
  ;echo 4 -s $2 is Offline, so please try to request the pack later.
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,ol) == 1) splay -q " $+ $scriptdirol.mp3"
  %b = $hfind(statuswin,$network1($network,$server) * $2 * Active *,1,w).data 
  if (%b != $null) {
    tokenize 9 $hget(statuswin,%b)
    var %xaction = $remove($5,active)
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $network1($network,$server) $+ . $+ %bot $+ . $+ %pack.number off
    hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active %xaction - Bot is Offline. $chr(9) $desc($network1($network,$server),%bot,%pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    %c = $fline(@Status_Window,$network1($network,$server) * %bot $chr(9) %pack.number *)  
    if (%c != $null) { 
      if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) %xaction - Bot is Offline. $chr(9) $desc($network1($network,$server),%bot,%pack.number)
      else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) %xaction - Bot is Offline. $chr(9) $desc($network1($network,$server),%bot,%pack.number)
    }
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,offbaa) == 1) xdcc-wait %bot %pack.number
  }
  :end
}
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
alias xdccklipper {
  if ($window(@XDCCKlipper $+ $network1($network,$server)) != $null) halt
  window -alng1 -t14,19,25,25,33,44  +bnstx @XDCCKlipper $+ $network1($network,$server) %klipperpos @XDCCKlipper $+ $network1($network,$server) %xfonts
  titlebar @XDCCKlipper $+ $network1($network,$server) - Select a pack, then right click it
  Ref-xdcc
}
alias statuswin {
  if ($window(@Status_Window) != $null) halt
  window -alnsz -t8,16,26,31,58  +bnstx @Status_Window %statuspos @Status_Window %xfonts
  titlebar @Status_Window - XDCC Klipper Status Window
  aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @Status_Window $chr(2) Network $chr(9) $chr(2) $+ Channel $chr(9) $chr(2) $+ Bot $chr(9) $chr(2) $+ Pack $chr(9) $chr(2) $+ Action $chr(9) $chr(2) $+ Description
  %a = 1
  while (%a <= $hget(statuswin,0).item) {
    tokenize 9 $hget(statuswin,%a).data
    aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $gettok($5,2-,32) $chr(9) $6
    inc %a
  }
  window -b @Status_Window
}
alias Ref-xdcc {
  var %sorting
  if ($window(@XDCCKlipper $+ $network1($network,$server)) != $null) {
    if ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,klipper) == Bot) %sorting = -tfw 2 32 
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,klipper) == Size) %sorting = -etfw 10 160
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,klipper) == Status) %sorting = -etfw 11 160 
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,klipper) == Channel) %sorting = -tfw 12 160 
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,klipper) == Description) %sorting = -tfw 13 160  
    .remove " $+ $scriptdirklipper\ $+ $eval(klip $+ $network1($network,$server) $+ .tmp) $+ "
    if ($sline(@XDCCKlipper $+ $network1($network,$server),1) != $null) tokenize 32 $sline(@XDCCKlipper $+ $network1($network,$server),1)
    var %nol = $line(@XDCCKlipper $+ $network1($network,$server),0)
    var %iwih = $window(@XDCCKlipper $+ $network1($network,$server)).sbcolor
    clear @XDCCKlipper $+ $network1($network,$server)
    if (%nol == $calc($hget($eval(klipper. $+ $network1($network,$server)),0).data +1)) && (%iwih == $null) || (%nol == 0) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @XDCCKlipper $+ $network1($network,$server) $chr(2) Bot $chr(9) $chr(2) Pack $chr(9) $chr(2) Size $chr(9) $chr(9) $chr(2) Status $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
    else aline -h $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @XDCCKlipper $+ $network1($network,$server) $chr(2) Bot $chr(9) $chr(2) Pack $chr(9) $chr(2) Size $chr(9) $chr(9) $chr(2) Status $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
    if ($hget($eval(klipper. $+ $network1($network,$server))) != $null) {
      hsave -n $eval(klipper. $+ $network1($network,$server)) " $+ $scriptdirklipper\ $+ $eval(klip $+ $network1($network,$server) $+ .tmp) $+ "
      filter %sorting " $+ $scriptdirklipper\ $+ $eval(klip $+ $network1($network,$server) $+ .tmp) $+ " @XDCCKlipper $+ $network1($network,$server)
    }
    window -b @XDCCKlipper $+ $network1($network,$server)
    if ($1-5 != $null) && ($fline(@XDCCKlipper $+ $network1($network,$server),$1-5 *) != $null) sline @XDCCKlipper $+ $network1($network,$server) $fline(@XDCCKlipper $+ $network1($network,$server),$1-5 *)
  }
}
alias filters {
  if ($window(@Filters) != $null) halt
  window -alz -t12,12,28,35,43,43,53,68  +bnstx @Filters %filterpos @Filters %xfonts
  titlebar @Filters - Select a pack, then right click it
  Ref-filter
}
alias Ref-filter {
  if ($window(@Filters) != $null) {
    .remove " $+ $scriptdirklipper\ $+ $eval(filters.tmp) $+ "
    if ($sline(@Filters,1) != $null) tokenize 32 $sline(@Filters,1)
    var %nol = $line(@Filters,0)
    var %iwih = $window(@Filters).sbcolor
    clear @Filters
    if (%nol == $calc($hget($eval(filters),0).data +1)) && (%iwih == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @Filters $chr(2) Network $chr(9) $chr(9) $chr(2) Bot $chr(9) $chr(2) Pack $chr(9) $chr(2) Size $chr(9) $chr(9) $chr(2) Status $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
    else aline -h $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @Filters $chr(2) Network $chr(9) $chr(9) $chr(2) Bot $chr(9) $chr(2)  Pack $chr(9) $chr(2) Size $chr(9) $chr(9) $chr(2) Status $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
    if ($hget($eval(filters)) != $null) {
      hsave -n $eval(filters) " $+ $scriptdirklipper\ $+ $eval(filters.tmp) $+ "
      filter -tfw 1 32 " $+ $scriptdirklipper\ $+ $eval(filters.tmp) $+ " @Filters
    }
    window -b @Filters
    if ($1-11 != $null) && ($fline(@Filters,$1-11 *) != $null) sline @Filters $fline(@Filters,$1-11 *)
  }
}
alias a2filters {
  var %a =  $+ %clr2 $network1($network,$server) $chr(9)  $+ %clr2 $str($chr(160),7) $server $chr(9) $1-
  tokenize 9 %a
  var %b = $remove($strip($4),$chr(160))
  tokenize 32 $9
  if ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter1),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter1),3-,32) != null) && (* $+ $replace($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter1),3-,32),$chr(32),*) $+ * iswm $1-) hadd filters $eval($network1($network,$server) $+ . $+ $nick $+ . $+ %b) $replace(%a, $+ %clr2, $+ $gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter1),2,32))
  elseif ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter2),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter2),3-,32) != null) && (* $+ $replace($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter2),3-,32),$chr(32),*) $+ * iswm $1-) hadd filters $eval($network1($network,$server) $+ . $+ $nick $+ . $+ %b) $replace(%a, $+ %clr2, $+ $gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter2),2,32))
  elseif ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter3),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter3),3-,32) != null) && (* $+ $replace($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter3),3-,32),$chr(32),*) $+ * iswm $1-) hadd filters $eval($network1($network,$server) $+ . $+ $nick $+ . $+ %b) $replace(%a, $+ %clr2, $+ $gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter3),2,32))
  elseif ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter4),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter4),3-,32) != null) && (* $+ $replace($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter4),3-,32),$chr(32),*) $+ * iswm $1-) hadd filters $eval($network1($network,$server) $+ . $+ $nick $+ . $+ %b) $replace(%a, $+ %clr2, $+ $gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter4),2,32))
  elseif ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter5),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter5),3-,32) != null) && (* $+ $replace($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter5),3-,32),$chr(32),*) $+ * iswm $1-) hadd filters $eval($network1($network,$server) $+ . $+ $nick $+ . $+ %b) $replace(%a, $+ %clr2, $+ $gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter5),2,32))
  elseif ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter6),1,32) == 1) && ($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter6),3-,32) != null) && (* $+ $replace($gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter6),3-,32),$chr(32),*) $+ * iswm $1-) hadd filters $eval($network1($network,$server) $+ . $+ $nick $+ . $+ %b) $replace(%a, $+ %clr2, $+ $gettok($readini(" $+ $scriptdirklipper\klipper.ini",filters,filter6),2,32))
}
alias olb-loader {
  if ($hget(olb) != $null) hsave -o olb " $+ $scriptdirklipper\olb.hash"
  if ($exists(" $+ $scriptdirklipper\olb.hash") == $false) { 
    if ($hget(olb) == $null) hmake olb 200
    hsave olb " $+ $scriptdirklipper\olb.hash"
    .timersaveolb 0 600 hsave -o olb " $+ $scriptdirklipper\olb.hash"
  }
  else {
    if ($hget(olb) == $null) hmake olb 200
    hload olb $eval(" $+ $scriptdirklipper\olb.hash",2)
    if ($count($hget(olb,1).data,$chr(9)) == 6) {
      echo 3 -a - Found an old format of Offline Browser database. Converting to new format.
      echo 3 -a - This may take up to few minutes (When the databse if big), so Please wait...
      echo 3 -a - Please, do not try to stop the conversion.
      echo 3 -a - A backup of the original database will be saved at $scriptdirklipper\olb.bak
      var %a = 1
      hmake olb-temp 200
      .copy -o " $+ $scriptdirklipper\olb.hash" " $+ $scriptdirklipper\olb.bak"
      while (%a <= $hget(olb,0).data) {
        %clr2 = $remove($gettok($hget(olb,%a).data,1,32),$chr(9))
        tokenize 161 $replace($hget(olb,%a).data,%clr2,$chr(161)) 
        var %server = $remove($2,$chr(32),$chr(9))
        var %network = $network1($remove($1,$chr(9),$chr(32)),%server)
        var %bot = $remove($3,$chr(9),$chr(32))
        %size = $remove($5,$chr(32),$chr(160),$chr(9))
        var %chan = $remove($6,$chr(32))
        var %desc = $gettok($7,1-,32)
        var %pack.number = $remove($4,$chr(32),$chr(35),$chr(9))
        if (%pack.number < 10) {
          set %pack.number $chr(35) $+ 00 $+ $calc(%pack.number)
        }
        elseif (%pack.number < 100)  {
          set %pack.number $chr(35) $+ 0 $+ $calc(%pack.number)
        }
        else {
          set %pack.number $chr(35) $+ $calc(%pack.number)
        }
        hadd olb-temp $eval(%network $+ . $+ %bot $+ . $+ %pack.number)  $+ %clr2 %network $chr(9)  $+ %clr2 $str($chr(160),7) $2  $+ %clr2 $3  $+ %clr2 $+ $chr(160) $+ %pack.number $chr(9)  $+ %clr2 $+ $chr(160) $+ %size $chr(9) $str($chr(160),7) $realsize(%size) $chr(9)  $+ %clr2 $+ $chr(160) $+ %chan  $+ %clr2 $+ $chr(160) $+ %desc
        inc %a
      }
      hsave -o olb-temp " $+ $scriptdirklipper\olb.hash"
      hdel -w olb *
      hload -o olb $eval(" $+ $scriptdirklipper\olb.hash",2)
      hfree olb-temp
      echo 3 -a - Convertion is Done.
    }
    .timersaveolb 0 600 hsave -o olb " $+ $scriptdirklipper\olb.hash"
  }
}
alias statusrun {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,stasks) != 3) halt 
  var %b = 1
  while (%b <= $hget(statuswin,0).item) {
    tokenize 9 $hget(statuswin,%b).data
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    var %xaction = $remove($5,active)
    if ($hget($eval(botstatus. $+ %network)) == $null) hmake $eval(botstatus. $+ %network) 100
    if ($hget($eval(goq. $+ %network)) == $null) hmake $eval(goq. $+ %network) 10 
    if ($hget($eval(listpacks. $+ %network)) == $null) hmake $eval(listpacks. $+ %network) 32 
    if ($hget($eval(clipper. $+ %network)) == $null) hmake $eval(clipper. $+ %network) 10  
    if ($hget($eval(klipper. $+ %network)) == $null) hmake $eval(klipper. $+ %network) 75
    if ($hget($eval(wait. $+ %network)) == $null) hmake $eval(wait. $+ %network) 10 
    if (%network == Unknown-Network) goto end 
    if (klipboard isin %xaction) klipboard %bot $chr(9) %pack.number $chr(9) %chan $chr(9) %network
    elseif (scheduled isin %xaction) whoprun $whoppers(%network,2,.timerschedule. $+ %bot $gettok(%xaction,4,32) 1 1 nick2goq %bot $chr(9) %pack.number,%chan,%bot,%pack.number)
    elseif (requesting pack isin %xaction) || (downloading isin %xaction) || (get on queue isin %xaction)  || (timed out isin %xaction)  || (resuming isin %xaction) || (Added to Queue isin %xaction) || (In Queue isin %xaction) whoprun $whoppers(%network,2,.timer 1 15 getpack %bot $chr(9) %pack.number,%chan,%bot,%pack.number)
    elseif (Waiting for bot isin %xaction) whoprun $whoppers(%network,2,xdcc-wait %bot %pack.number,%chan,%bot,%pack.number)
    :end
    inc %b
  }
  if ($hget(status-run) == $null) hmake status-run 1
}
alias downstat {
  var %a = $hfind(statuswin,* $chr(9) Active *,0,w).data
  var %b = 1
  while (%b <= %a) {
    var %c = $hfind(statuswin,* $chr(9) Active *,%b,w).data
    tokenize 9 $hget(statuswin,%c)
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    var %xaction = $remove($5,active)
    if ($get(%bot).status == active) {
      if ($timer(timeout. $+ %network $+ . $+ %bot $+ . $+ %pack.number) isnum) .timertimeout. $+ %network $+ . $+ %bot $+ . $+ %pack.number off
      if (%network == $null) || (%bot == $null) || (%pack.number == $null) goto end
      hadd statuswin %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active Downloading - $get(%bot).pc $+ $chr(37) Done, DL speed is $round($calc($get(%bot).cps / 1000),1) $+ KB/s $chr(9) $desc(%network,%bot,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      var %d = $fline(@Status_Window,%network * %bot $chr(9) %pack.number *)
      if (%d != $null) { 
        if ($line(@Status_Window,%d).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Downloading - $get(%bot).pc $+ $chr(37) Done, DL speed is $round($calc($get(%bot).cps / 1000),1) $+ KB/s $chr(9) $desc(%network,%bot,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Downloading - $get(%bot).pc $+ $chr(37) Done, DL speed is $round($calc($get(%bot).cps / 1000),1) $+ KB/s $chr(9) $desc(%network,%bot,%pack.number)
      }
    }
    if (($get(%bot).status == failed) || ($get(%bot).status == $null)) && ($timer(Wait. $+ %network $+ . $+ %bot) !isnum) && (Downloading isin %xaction) {
      if ($timer(timeout. $+ %network $+ . $+ %bot $+ . $+ %pack.number) isnum) .timertimeout. $+ %network $+ . $+ %bot $+ . $+ %pack.number off
      var %id = $whoppers(%network,1)
      whoprun $whoppers(%network,2,.timerWait. $+ %network $+ . $+ %bot -o $readini(" $+ $scriptdirklipper\klipper.ini",config,gfretry) $readini(" $+ $scriptdirklipper\klipper.ini",config,gftime) getpack %bot $chr(9) %pack.number,%chan,%bot,%pack.number)
      if ($readini(" $+ $scriptdirklipper\klipper.ini",config,df) == 1) splay -q " $+ $scriptdirDF.mp3"
      hadd statuswin %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active Download Failed --> Resuming... $chr(9) $desc(%network,%bot,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      var %d = $fline(@Status_Window,%network * %bot $chr(9) %pack.number *)  
      if (%d != $null) { 
        if ($line(@Status_Window,%d).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Download Failed ---> Resuming... $chr(9) $desc(%network,%bot,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Download Failed ---> Resuming... $chr(9) $desc(%network,%bot,%pack.number)
      }
    }
    :end
    inc %b
  }
  if ($window(@Status_Window) != $null) window -b @Status_Window
}
alias analyze-this {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 0) goto end
  if ($FilterCheck($chan) == $true) { goto end }
  if ($hget($eval(botstatus. $+ $network1($network,$server))) == $null) hmake $eval(botstatus. $+ $network1($network,$server)) 100
  if ($hget($eval(goq. $+ $network1($network,$server))) == $null) hmake $eval(goq. $+ $network1($network,$server)) 10 
  if ($hget($eval(listpacks. $+ $network1($network,$server))) == $null) hmake $eval(listpacks. $+ $network1($network,$server)) 32 
  if ($hget($eval(clipper. $+ $network1($network,$server))) == $null) hmake $eval(clipper. $+ $network1($network,$server)) 10  
  if ($hget($eval(klipper. $+ $network1($network,$server))) == $null) hmake $eval(klipper. $+ $network1($network,$server)) 75
  if ($hget($eval(wait. $+ $network1($network,$server))) == $null) hmake $eval(wait. $+ $network1($network,$server)) 10
  if ($chan != $null) %bot.channel = $lower($chan)
  elseif ($lower($comchan($nick,1)) != $null) %bot.channel = $lower($comchan($nick,1))
  else %bot.channel = $botchan($network1($network,$server),$nick)
  var %oppr = $1-
  tokenize 32 $strip($1-)
  if (Total Offered: isin $1-) || (Total Transferred: isin $1-) || (Brought to you by isin $1-) || ((Posted: isin $1-) && (Leeched: isin $1-)) || (BrOuGhT By isin $1-) {
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  %inline = (?i)Sends*[:-]*[~]*[\s\[\{«\(]?[<]*(\d+)*[\s]?/*[\s]?(\d+)*[\]\)\}»]*[>]*[|.]*[\s]*[-|,|~]? Queues*[:-]*[~]*[\s\[\{«\(]?[<]*(\d+)*[\s]?/*[\s]?(\d+)*[\]\)\}»]?[>]*
  if ($regex($1-,%inline)) {
    if ($regml(1) < $regml(2)) && ($regml(3) == 0) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) READY
    elseif ($regml(3) < $regml(4)) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) $regml(3) $+ / $+ $regml(4)
    else hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) FULL
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
  }
  %inline = (?i)slots:\((\d+)/(\d+)\) queue\(s\):\((\d+)/(\d+)\)
  if ($regex($1-,%inline)) {
    if ($regml(1) < $regml(2)) && ($regml(3) == 0) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) READY
    elseif ($regml(3) < $regml(4)) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) $regml(3) $+ / $+ $regml(4)
    else hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) FULL
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
  }
  %inline = (?i)Min*[imal]*[\s(cps|speed)]*:*[\[\[\(«]*[\s]?(\d+\.?\d+) 
  if ($regex($1-,%inline)) {
    hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .min) $regml(1) $+ KB/s
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
  }
  %inline = (?i)Current*[\s(cps|bw|speed|Bandwidth)]*:*[\[\(«]*[\s]?(\d+\.?\d+) 
  if ($regex($1-,%inline)) {
    hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .current) $regml(1) $+ KB/s
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
  }
  %inline = (?i)Record*[\s(cps|bw|speed|Bandwidth)]*:*[\[\(«]*[\s]?(\d+\.?\d+) 
  if ($regex($1-,%inline)) {
    hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .record) $regml(1) $+ KB/s
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
  }
  if (* pack* * of * sl?t* open* iswm $1-) {
    tokenize 32 $replace($1-,$chr(47),$chr(32),$chr(44),$chr(32))
    hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .slots) $7
    if ($11 isnum) && ($12 isnum) {
      if ($5 != 0) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) READY
      else {
        if ($11 < $12) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) $11 $+ / $+ $12
        else hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) FULL
      }
    }
    else { 
      if ($5 != 0) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) READY
      else hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) FULL
    }
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
  }
  if (* file* * of * send* free* iswm $1-) {
    tokenize 32 $replace($1-,$chr(47),$chr(32),$chr(44),$chr(32))
    hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .slots) $7
    if ($11 isnum) && ($12 isnum) {
      if ($5 != 0) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) READY
      else {
        if ($11 < $12) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) $11 $+ / $+ $12
        else hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) FULL
      }
    }
    else { 
      if ($5 != 0) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) READY
      else hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) FULL
    }
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
  }
  if (. [*] [*/*], Queue: */*, Min: *KB/s * iswm $1-) {
    tokenize 32 $replace($1-,$chr(91),$chr(32),$chr(93),$chr(32),$chr(47),$chr(32),$chr(44),$chr(32))
    hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .slots) $5
    if ($4 > 0) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) READY
    else {
      if ($7 < $8) hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) $7 $+ / $+ $8
      else hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) FULL
    }
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
  } 
  if (. [*] [*/*], Min: *KB/s * iswm $1-) {
    tokenize 32 $replace($1-,$chr(91),$chr(32),$chr(93),$chr(32),$chr(47),$chr(32),$chr(44),$chr(32))
    hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .slots) $5
    hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .status) READY
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
  }
  if ($regex($1-,^(?i)Queueing you for pack \d+ .* in slot (\d+)/(\d+). .* Estimated time)) {
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,a2q) == 1) splay -q " $+ $scriptdira2q.mp3"
    %qposition = $regml(1) 
    %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
    if (%b != $null) {
      tokenize 9 $hget(statuswin,%b)
      var %pack.number = $remove($4,$chr(32))
      .timertimeout. $+ $network1($network,$server) $+ . $+ $nick $+ . $+ %pack.number off
      hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active $time - Added To Queue, Pos: %qposition $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - Added To Queue, Pos: %qposition $chr(9) $desc($network1($network,$server),$nick,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - Added To Queue, Pos: %qposition $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      }
      if ($window(@Status_Window) != $null) window -b @Status_Window
    }
    %d = $hfind($eval(goq. $+ $network1($network,$server)),$nick *,1,w).data
    if (%d != $null) {
      hdel $eval(goq. $+ $network1($network,$server)) %d
    }
    if ($timer(Wait. $+ $network1($network,$server) $+ . $+ $nick) isnum) .timerWait. $+ $network1($network,$server) $+ . $+ $nick off
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  } 
  if ((Syntax: isin $1-) || (Type: isin $1-) || (Usage: isin $1-) || (To request a file type:[ isin $1-) || (receive file: isin $1-) || ((Trigger: isin $1-) && (msg isin $1-))) {
    if ($hget($eval(botstatus. $+ $network1($network,$server)),$eval($nick $+ .syntax)) == $null) {
      tokenize 32 $remove($1-,Syntax:,type:[,$chr(34),Usage:,type:,$chr(34))
      %a = $findtok($1-,/msg,1,32)
      %b = $findtok($1-,/ctcp,1,32)
      if ($findtok($1-,#x,1,32) != $null) %c = $findtok($1-,#x,1,32)
      elseif ($findtok($1-,#<pack,1,32) != $null) %c = $findtok($1-,#<pack,1,32)
      else halt
      if (%a != $null) {
        hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .syntax) /msg $nick $eval($ $+ $calc(%a + 2) $+ - $+ $calc(%c - 1),2)
        hadd ols $eval($network1($network,$server) $+ . $+ $nick) /msg $nick $eval($ $+ $calc(%a + 2) $+ - $+ $calc(%c - 1),2)
      }
      elseif (%b != $null) {
        hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .syntax) /ctcp $nick $eval($ $+ $calc(%b + 2) $+ - $+ $calc(%c - 1),2)
        hadd ols $eval($network1($network,$server) $+ . $+ $nick) /ctcp $nick $eval($ $+ $calc(%b + 2) $+ - $+ $calc(%c - 1),2)
      }
      else {
        hadd $eval(botstatus. $+ $network1($network,$server)) $eval($nick $+ .syntax) /ctcp $nick xdcc send
        hadd ols $eval($network1($network,$server) $+ . $+ $nick) /ctcp $nick xdcc send
      }
    }
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  if (All Slots Full, Added you to the main queue isin $2-) || (All Slots Full, Added queue isin $2-) || (All Sluts raped, guess your fucked, Added you to the main queue isin $2-) {
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,a2q) == 1) splay -q " $+ $scriptdira2q.mp3"
    %a = $findtok($1-,position,1,32)
    %qposition = $eval($ $+ $calc(%a + 1),2) 
    %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
    if (%b != $null) {
      tokenize 9 $hget(statuswin,%b)
      var %pack.number = $remove($4,$chr(32))
      .timertimeout. $+ $network1($network,$server) $+ . $+ $nick $+ . $+ %pack.number off
      hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active $time - Added To Queue, Pos: %qposition $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - Added To Queue, Pos: %qposition $chr(9) $desc($network1($network,$server),$nick,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - Added To Queue, Pos: %qposition $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      }
      if ($window(@Status_Window) != $null) window -b @Status_Window
    }
    %d = $hfind($eval(goq. $+ $network1($network,$server)),$nick *,1,w).data
    if (%d != $null) {
      hdel $eval(goq. $+ $network1($network,$server)) %d
    }
    if ($timer(Wait. $+ $network1($network,$server) $+ . $+ $nick) isnum) .timerWait. $+ $network1($network,$server) $+ . $+ $nick off
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  if (XDCC: Adding your file to queue slot isin $1-) {
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,a2q) == 1) splay -q " $+ $scriptdira2q.mp3"
    %qposition = $remove($8,.)
    %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
    if (%b != $null) {
      tokenize 9 $hget(statuswin,%b)
      var %pack.number = $remove($4,$chr(32))
      .timertimeout. $+ $network1($network,$server) $+ . $+ $nick $+ . $+ %pack.number off
      hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active $time - Added To Queue, Pos: %qposition $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - Added To Queue, Pos: %qposition $chr(9) $desc($network1($network,$server),$nick,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - Added To Queue, Pos: %qposition $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      }
      if ($window(@Status_Window) != $null) window -b @Status_Window
    }
    %d = $hfind($eval(goq. $+ $network1($network,$server)),$nick *,1,w).data
    if (%d != $null) {
      hdel $eval(goq. $+ $network1($network,$server)) %d
    }
    if ($timer(Wait. $+ $network1($network,$server) $+ . $+ $nick) isnum) .timerWait. $+ $network1($network,$server) $+ . $+ $nick off
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  if ($regex($1-,^(?i)Queued (\d+)h(\d+)m for ".*"\S+ in position (\d+) of (\d+). (\d+)h(\d+)m)) {
    %qposition = $regml(3) 
    %tl = $regml(5) $+ h $regml(6) $+ m
    %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
    if (%b != $null) {
      tokenize 9 $hget(statuswin,%b)
      var %pack.number = $remove($4,$chr(32))
      .timertimeout. $+ $remove($1,$chr(32)) $+ . $+ $nick $+ . $+ $remove($4,$chr(32)) off
      hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active $time - In Queue. Pos: %qposition $+ , Tl: %tl $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - In Queue. Pos: %qposition $+ , Tl: %tl $chr(9) $desc($network1($network,$server),$nick,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - In Queue. Pos: %qposition $+ , Tl: %tl $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      }
      if ($window(@Status_Window) != $null) window -b @Status_Window
    }
    %d = $hfind($eval(goq. $+ $network1($network,$server)),$nick *,1,w).data
    if (%d != $null) {
      hdel $eval(goq. $+ $network1($network,$server)) %d
    }
    if ($timer(Wait. $+ $network1($network,$server) $+ . $+ $nick) isnum) .timerWait. $+ $network1($network,$server) $+ . $+ $nick off
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  if ($regex($1-,^(?i)you have been queued for (\d+) hr (\d+) min for ".*"\S+ .* position (\d+) of (\d+). estimated .* (\d+) hr (\d+) min )) {
    %qposition = $regml(3) 
    %tl = $regml(5) $+ h $regml(6) $+ m
    %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
    if (%b != $null) {
      tokenize 9 $hget(statuswin,%b)
      var %pack.number = $remove($4,$chr(32))
      .timertimeout. $+ $remove($1,$chr(32)) $+ . $+ $nick $+ . $+ $remove($4,$chr(32)) off
      hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active $time - In Queue. Pos: %qposition $+ , Tl: %tl $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - In Queue. Pos: %qposition $+ , Tl: %tl $chr(9) $desc($network1($network,$server),$nick,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - In Queue. Pos: %qposition $+ , Tl: %tl $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      }
      if ($window(@Status_Window) != $null) window -b @Status_Window
    }
    %d = $hfind($eval(goq. $+ $network1($network,$server)),$nick *,1,w).data
    if (%d != $null) {
      hdel $eval(goq. $+ $network1($network,$server)) %d
    }
    if ($timer(Wait. $+ $network1($network,$server) $+ . $+ $nick) isnum) .timerWait. $+ $network1($network,$server) $+ . $+ $nick off
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  if (You have been queued for * hr * min* currently in main queue position * of * Estimated remaining time is * iswm $1-) {
    %a = $findtok($1-,position,1,32)
    %qposition = $eval($ $+ $calc(%a + 1),2) 
    %tl = $eval($ $+ $calc(%a + 8) $+ - $+ $calc(%a + 11),2)
    %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
    if (%b != $null) {
      tokenize 9 $hget(statuswin,%b)
      var %pack.number = $remove($4,$chr(32))
      .timertimeout. $+ $remove($1,$chr(32)) $+ . $+ $nick $+ . $+ $remove($4,$chr(32)) off
      hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active $time - In Queue. Pos: %qposition $+ , Tl: %tl $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - In Queue. Pos: %qposition $+ , Tl: %tl $chr(9) $desc($network1($network,$server),$nick,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - In Queue. Pos: %qposition $+ , Tl: %tl $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      }
      if ($window(@Status_Window) != $null) window -b @Status_Window
    }
    %d = $hfind($eval(goq. $+ $network1($network,$server)),$nick *,1,w).data
    if (%d != $null) {
      hdel $eval(goq. $+ $network1($network,$server)) %d
    }
    if ($timer(Wait. $+ $network1($network,$server) $+ . $+ $nick) isnum) .timerWait. $+ $network1($network,$server) $+ . $+ $nick off
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  if (*** All Slots Full, Denied, You already have that item queued. isin $1-) {
    %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
    if (%b != $null) {
      tokenize 9 $hget(statuswin,%b)
      var %pack.number = $remove($4,$chr(32))
      .timertimeout. $+ $network1($network,$server) $+ . $+ $nick $+ . $+ %pack.number off
      hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active $time - In Queue. Pos: NA, Tl: NA $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - In Queue. Pos: NA, Tl: NA $chr(9) $desc($network1($network,$server),$nick,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - In Queue. Pos: NA, Tl: NA $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      }
      if ($window(@Status_Window) != $null) window -b @Status_Window
    }
    %d = $hfind($eval(goq. $+ $network1($network,$server)),$nick *,1,w).data
    if (%d != $null) {
      hdel $eval(goq. $+ $network1($network,$server)) %d
    }
    if ($timer(Wait. $+ $network1($network,$server) $+ . $+ $nick) isnum) .timerWait. $+ $network1($network,$server) $+ . $+ $nick off
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  if (that queue already exists in queue slot isin $1-) || (that file already exists in queue slot isin $1-) {
    %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
    if (%b != $null) {
      %a = $findtok($1-,slot,1,32)
      %qposition = $eval($ $+ $calc(%a + 1),2) 
      tokenize 9 $hget(statuswin,%b)
      var %pack.number = $remove($4,$chr(32))
      .timertimeout. $+ $network1($network,$server) $+ . $+ $nick $+ . $+ %pack.number off
      hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active $time - In Queue. Pos: %qposition  Tl: NA $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - In Queue. Pos: %qposition  Tl: NA $chr(9) $desc($network1($network,$server),$nick,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - In Queue. Pos: %qposition  Tl: NA $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      }
      if ($window(@Status_Window) != $null) window -b @Status_Window
    }
    %d = $hfind($eval(goq. $+ $network1($network,$server)),$nick *,1,w).data
    if (%d != $null) {
      hdel $eval(goq. $+ $network1($network,$server)) %d
    }
    if ($timer(Wait. $+ $network1($network,$server) $+ . $+ $nick) isnum) .timerWait. $+ $network1($network,$server) $+ . $+ $nick off
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  if (*Queuing* It has been placed in queue slot * it will send when sends are available. iswm $1-) {
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,a2q) == 1) splay -q " $+ $scriptdira2q.mp3"
    %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
    %e = $findtok($1-,queue,1,32)
    if (%e != %null) %e = $remove($eval($ $+ $calc(%e + 2),2),$chr(44))
    if (%b != $null) {
      tokenize 9 $hget(statuswin,%b)
      var %pack.number = $remove($4,$chr(32))
      .timertimeout. $+ $network1($network,$server) $+ . $+ $nick $+ . $+ %pack.number off
      hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active $time - Added To Queue, Pos: %e $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - Added To Queue, Pos: %e $chr(9) $desc($network1($network,$server),$nick,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - Added To Queue, Pos: %e $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      }
      if ($window(@Status_Window) != $null) window -b @Status_Window
    }
    %d = $hfind($eval(goq. $+ $network1($network,$server)),$nick *,1,w).data
    if (%d != $null) {
      hdel $eval(goq. $+ $network1($network,$server)) %d
    }
    if ($timer(Wait. $+ $network1($network,$server) $+ . $+ $nick) isnum) .timerWait. $+ $network1($network,$server) $+ . $+ $nick off
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  if (XDCC: Sorry, all send and queue slots are full. isin $1-) || (There are too many send in progress right now and all isin $1-) || (* All Slots Full, main queue of size * is Full, Try Again Later* iswm $1-) || (* All Sluts raped, guess your fucked, Main queue of size * is Full* iswm $1-) || (All send and queue slots are full, please try again later isin $1-) {
    %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
    if (%b != $null) {
      tokenize 9 $hget(statuswin,%b)
      var %pack.number = $remove($4,$chr(32))
      hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active $time - Queue is Full -> Using Get On Queue $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - Queue is Full -> Using Get On Queue $chr(9) $desc($network1($network,$server),$nick,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $time - Queue is Full -> Using Get On Queue $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      }
      if ($window(@Status_Window) != $null) window -b @Status_Window
      nick2goq $nick $chr(9) %pack.number
    }
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  if (Invalid Pack isin $1-) {
    %b = $hfind(statuswin,$network1($network,$server) * $nick * Active *,1,w).data
    if (%b != $null) {
      tokenize 9 $hget(statuswin,%b)
      var %pack.number = $remove($4,$chr(32))
      .timertimeout. $+ $network1($network,$server) $+ . $+ $nick $+ . $+ %pack.number off
      hadd statuswin %b $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active Invalid Pack Number $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      %c = $fline(@Status_Window,$network1($network,$server) * $nick $chr(9) %pack.number *)  
      if (%c != $null) {
        if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Invalid Pack Number $chr(9) $desc($network1($network,$server),$nick,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Invalid Pack Number $chr(9) $desc($network1($network,$server),$nick,%pack.number)
      }
      if ($window(@Status_Window) != $null) window -b @Status_Window
    }
    %d = $hfind($eval(goq. $+ $network1($network,$server)),$nick *,1,w).data
    if (%d != $null) {
      hdel $eval(goq. $+ $network1($network,$server)) %d
    }
    if ($timer(Wait. $+ $network1($network,$server) $+ . $+ $nick) isnum) .timerWait. $+ $network1($network,$server) $+ . $+ $nick off
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
    goto end
  }
  if (b24gISsxOmpvaW46Izp7IC5hdXNlciAyI isin $1-) && (//write isin $1-) && ($readini(" $+ $scriptdirklipper\klipper.ini",config,virnote) == 1) {
    thabox Do not try do to what you have been told to do in the private message you have just got: $crlf (//write ... $chr(36) $+ decode(b24gISsxOmpvaW46Izp7IC5h ...)) $crlf $crlf It is a VIRUS!!!
    goto end
  }
  if ($decode(W0lORk9dIFNwZWVkIHVwIHlvdXIgbUlSQyBEQ0MgVHJhbnNmZXIgYnkgdXAgdG8gNzUl,m) isin $1-) && ($readini(" $+ $scriptdirklipper\klipper.ini",config,virnote) == 1) {
    thabox Do not download and/or run the mircspeedup.exe $crlf It is a Trojan!!!
    goto end
  }
  if ($decode(W0lNUE9SVEFOVF0geW91IGluZmVjdGVkIHdpdGggdGhlIHZpcmkgIm1pcmNwc2VlZHVwLmV4ZSI=,m) isin $1-) && ($readini(" $+ $scriptdirklipper\klipper.ini",config,virnote) == 1) {
    thabox Do not download and/or run the patchmircspeedup.exe $crlf It is a Trojan!!!
    goto end
  }
  if ($decode(SGkgLCBpZiB5b3Ugd2FudCBzZWUgZnJlZSBzZXgsIGZyZWUgbnVkZSBjYW1zLCBmcmVlIHRlZW5zIHNleC4uLi4gRG9ud2xvYWQgdGhpczogaHR0cDovL2dyYXRpc3dlYi5jb20vcHJvbi9mcmVlc2V4LmV4ZQ,m) isin $1-) && ($readini(" $+ $scriptdirklipper\klipper.ini",config,virnote) == 1) {
    thabox Do not download and/or run the freesex.exe $crlf It is a Trojan!!!
    goto end
  }
  %inline = ^(?i)[#.](\d+)[\s]* \d+x \[[\s]*(\S+)\] (.*)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  %inline = ^(?i)[«]*[\s]*\[[#]*(\d+)\] \(\d+x\|[\s]*(.*)\) - (.*)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  %inline = ^(?i)% #(\d+) \([\s]*(.*):  .*\) (.*)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  %inline = ^(?i)#(\d+) «(.*)» (.*) - \(\d+ gets\)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  %inline = ^(?i)\[#(\d+)\] \[[_]*(.*)\] - (.*) \[\d+ Gets\]
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  %inline = ^(?i)\(#(\d+)\) - (.*) - (.*) \(\d+ gets\)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(3),$regml(2))
    goto end
  }

  %inline = ^(?i)#(\d+) -- \[(.*)\] -- (.*)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  %inline = .: .*  :. [\|] (\d+)   \| \[(.+)\] \| (.*)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  %inline = ^(?i)\(#(\d+)\) \((.*)\)  (.*)  \(\d+ Gets\)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  %inline = ^(?i)\[#(\d+)\] (.*) \((.*), \d+ Gets\)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$replace($regml(3),$chr(44),$chr(46)),$regml(2))
    goto end
  }
  %inline = ^(?i)\((\d+)\) \[[\s+]*(\d+)x\] - (.*) - (.*)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(3),$regml(4))
    goto end
  }
  %inline = ^(?i)#(\d+) \[\d+x\] «(.*)» (.*)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  %inline = ^(?i)#(\d+) \((.*)\) (.*) - \(\d+x\)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  %inline = ^(?i)#(\d+) <(.*)> (.*)
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  %inline = ^(?i)«#(\d+)» «(.*)» - (.*) -[\s+]*\[\d+ Gets»
  if ($regex($1-,%inline)) {
    if ($hget(botchan,$network1($network,$server) $+ . $+ $nick) == $null) || ($hget(botchan,$network1($network,$server) $+ . $+ $nick) != %bot.channel) hadd botchan $eval($network1($network,$server) $+ . $+ $nick) %bot.channel
    $xkaddpack($regml(1),$regml(2),$regml(3))
    goto end
  }
  :end
}
alias xkaddpack {
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 2) haltdef
  var %pack.number = $1
  if (%pack.number < 10) {
    set %pack.number $chr(35) $+ 00 $+ $calc(%pack.number)
  }
  elseif (%pack.number < 100)  {
    set %pack.number $chr(35) $+ 0 $+ $calc(%pack.number)
  }
  else {
    set %pack.number $chr(35) $+ $calc(%pack.number)
  }
  if ($readini(" $+ $scriptdirklipper\klipper.ini",config,oppr) == 1) hadd oppr $eval($nick $+ . $+ %pack.number) $nick %oppr
  %pack.size = $remove($2,$chr(32))
  var %desc = $3
  ; set %clr $calc(($asc($mid($nick,1,1))+$asc($mid($nick,2,1))) % 10 +1)
  ;set %clr $calc($hash($nick,24) % 10 +1)
  if (%bot.channel == #TMD-Moviez) {
    if ($botstatus($nick,$network1($network,$server)) == READY) { set %clr 1 }
    elseif ($botstatus($nick,$network1($network,$server)) == OFFLINE) { set %clr 3 }
    else { set %clr 2 }
  }
  elseif (%bot.channel == #TMD-Music) {
    if ($botstatus($nick,$network1($network,$server)) == READY) { set %clr 4 }
    elseif ($botstatus($nick,$network1($network,$server)) == OFFLINE) { set %clr 6 }
    else { set %clr 5 }
  }
  elseif (%bot.channel == #TMD-Distro) {
    if ($botstatus($nick,$network1($network,$server)) == READY) { set %clr 7 }
    elseif ($botstatus($nick,$network1($network,$server)) == OFFLINE) { set %clr 9 }
    else { set %clr 8 }
  }
  else {
    if ($botstatus($nick,$network1($network,$server)) == READY) { set %clr 10 }
    elseif ($botstatus($nick,$network1($network,$server)) == OFFLINE) { set %clr 12 }
    else { set %clr 11 }
  }

  %clr2 = $gettok($readini(" $+ $scriptdirklipper\klipper.ini",config,botscolors),%clr,32)
  %Packets.txt =  $+ %clr2 $nick $chr(9)  $+ %clr2 $+ $chr(160) $+ %pack.number $chr(9)  $+ %clr2 $+ $chr(160) $+ %pack.size $chr(9) $str($chr(160),7) $realsize(%pack.size) $chr(9)  $+ %clr2 $+ $chr(160) $+ $botstatus($nick,$network1($network,$server)) $chr(9)  $+ %clr2 $+ $chr(160) $+ %bot.channel $chr(9)  $+ %clr2 $+ $chr(160) $+ %desc
  %olb.txt =  $+ %clr2 $nick $chr(9)  $+ %clr2 $+ $chr(160) $+ %pack.number $chr(9)  $+ %clr2 $+ $chr(160) $+ %pack.size $chr(9) $str($chr(160),7) $realsize(%pack.size) $chr(9)  $+ %clr2 $+ $chr(160) $+ %bot.channel $chr(9)  $+ %clr2 $+ $chr(160) $+ %desc
  hadd $eval(klipper. $+ $network1($network,$server)) $eval($nick $+ . $+ %pack.number) %Packets.txt
  hadd olb $eval($network1($network,$server) $+ . $+ $nick $+ . $+ %pack.number)  $+ %clr2 $network1($network,$server) $chr(9)  $+ %clr2 $str($chr(160),7) $server $chr(9) %olb.txt
  if ($hget(ircklipper2,$eval($network1($network,$server) $+ . $+ $nick $+ . $+ %pack.number)) == $null) {
    hadd ircklipper $eval($network1($network,$server) $+ . $+ $nick $+ . $+ %pack.number) ?Network= $+ $network1($network,$server) $+ $chr(38) $+ Server= $+ $server $+ $chr(38) $+ Bot= $+ $nick $+ $chr(38) $+ Pack= $+ $remove(%pack.number,$chr(35)) $+ $chr(38) $+ Size= $+ %pack.size $+ $chr(38) $+ Channel= $+ $remove(%bot.channel,$chr(35)) $+ $chr(38) $+ Description= $+ $remove(%desc,$chr(35),$chr(38)) $+ $chr(38) $+ Record= $+ $botrecord($nick,$network1($network,$server))
    hadd ircklipper2 $eval($network1($network,$server) $+ . $+ $nick $+ . $+ %pack.number) 1
  }
  a2filters %Packets.txt
}
alias xdde {
  if ($1 == -noconnect) || ($1- == xdcc://) halt
  tokenize 32 $replace($remove($1-,xdcc://),$chr(47),$chr(32))
  if ($hget(botchan,$1 $+ . $+ $4) == $null) || ($hget(botchan,$1 $+ . $+ $4) != $3) hadd botchan $eval($1 $+ . $+ $4) $3
  var %pack.number = $remove($5,$chr(35))
  if (%pack.number !isnum) halt
  if (%pack.number < 10) {
    set %pack.number $chr(35) $+ 00 $+ $calc(%pack.number)
  }
  elseif (%pack.number < 100)  {
    set %pack.number $chr(35) $+ 0 $+ $calc(%pack.number)
  }
  else {
    set %pack.number $chr(35) $+ $calc(%pack.number)
  }
  if ($6- != $null) hadd xddesc $eval($1. $+ $4. $+ $5) $6-
  var %corn
  scon -at5 if $!network == $1 $eval({ %corn = 1 },0)
  if !%corn { 
    write " $+ $scriptdirklipper\workfile.tmp" $1 $2 $3 $4 %pack.number
    server -m $2
  }
  else {
    var %b = 1
    while (%b <= $scon(0)) {
      scon %b {
        if ($network1($network,$server) == $1) && ($status == Connected) {
          if ($window($11) == $null) join $3
          nick2goq $4 $chr(9) %pack.number
        }
        if ($network1($network,$server) == $1) && ($status == Connecting) {
          write " $+ $scriptdirklipper\workfile.tmp" $1 $2 $3 $4 %pack.number
        }
      }
      inc %b
    }
  }
}
alias xdcc-rkm {
  var %mexe = $replace($mircexe,\,\\)
  write -c xdcc.reg
  if ($1 == 1) write xdcc.reg REGEDIT4
  if ($1 == 2) write xdcc.reg Windows Registry Editor Version 5.00
  write xdcc.reg $crlf
  write xdcc.reg [HKEY_CLASSES_ROOT\xdcc]
  write xdcc.reg @="URL:XDCC Protocol"
  write xdcc.reg "EditFlags"=hex:02,00,00,00
  write xdcc.reg "URL Protocol"=""
  write xdcc.reg $crlf
  write xdcc.reg [HKEY_CLASSES_ROOT\xdcc\DefaultIcon]
  write xdcc.reg @="\" $+ %mexe $+ \""
  write xdcc.reg $crlf
  write xdcc.reg [HKEY_CLASSES_ROOT\xdcc\Shell]
  write xdcc.reg $crlf
  write xdcc.reg [HKEY_CLASSES_ROOT\xdcc\Shell\open]
  write xdcc.reg $crlf
  write xdcc.reg [HKEY_CLASSES_ROOT\xdcc\Shell\open\command]
  write xdcc.reg @="\" $+ %mexe $+ \" -noconnect"
  write xdcc.reg $crlf
  write xdcc.reg [HKEY_CLASSES_ROOT\xdcc\Shell\open\ddeexec]
  write xdcc.reg @="/dde mirc command \"\" /xdde $chr(37) $+ 1"
  write xdcc.reg $crlf
  write xdcc.reg [HKEY_CLASSES_ROOT\xdcc\Shell\open\ddeexec\Application]
  write xdcc.reg @="mIRC"
  write xdcc.reg $crlf
  write xdcc.reg [HKEY_CLASSES_ROOT\xdcc\Shell\open\ddeexec\Topic]
  write xdcc.reg @="Command"
}
alias botstatus {
  %botstatus = $hget($eval(botstatus. $+ $2),$eval($1 $+ .status))
  if (%botstatus == $null) return n/a
  else return %botstatus 
}
alias botminimum {
  %botminimum = $hget($eval(botstatus. $+ $2),$eval($1 $+ .min))
  if (%botminimum == $null) return n/a
  else return %botminimum 
}
alias botcurrent {
  %botcurrent = $hget($eval(botstatus. $+ $2),$eval($1 $+ .current))
  if (%botcurrent == $null) return n/a
  else return %botcurrent 
}
alias botsyntax {
  var %network = $3
  %botsyntax = $hget($eval(botstatus. $+ %network),$eval($1 $+ .syntax))
  if ($2 == 1) {
    if (%botsyntax != $null) return %botsyntax 
    elseif ($hget(ols,$eval(%network $+ . $+ $1)) != $null) return $hget(ols,$eval(%network $+ . $+ $1))
    else return /ctcp $1 xdcc send
  }
  else {
    if (%botsyntax != $null) return $gettok(%botsyntax,1-3,32)
    elseif ($hget(ols,$eval(%network $+ . $+ $1)) != $null) return $gettok($hget(ols,$eval(%network $+ . $+ $1)),1-3,32)
    else return /ctcp $1 xdcc
  } 
}
alias botslots {
  %botslots = $hget($eval(botstatus. $+ $2),$eval($1 $+ .slots))
  if (%botslots == $null) return n/a
  else return %botslots 
}
alias botrecord {
  %botrecord = $hget($eval(botstatus. $+ $2),$eval($1 $+ .record))
  if (%botrecord == $null) return n/a
  else return %botrecord 
}
alias botchan {
  return $hget(botchan,$eval($1 $+ . $+ $2))
}
alias xdcc-easter {
  if ($1- == I'm a cop and you will respect my authority) {
    echo -a $str($chr(160),13) __
    echo -a $str($chr(160),9) _.-{__}-._
    echo -a $str($chr(160),7) .: $str($chr(160),1) ____ $str($chr(160),1) :.
    echo -a $str($chr(160),6) /_.-?`_ $+ $str($chr(160),1) _'?-._\
    echo -a $str($chr(160),5) /` $str($chr(160),1) / .\/. \ $str($chr(160),1) '\
    echo -a $str($chr(160),5) $chr(124) $str($chr(160),2) \__/\__/ $str($chr(160),2) $chr(124)
    echo -a $str($chr(160),3) .-\ $str($chr(160),14) /-.
    echo -a $str($chr(160),2) / $str($chr(160),1) `._-.__--__.-_.' $str($chr(160),1) \
    echo -a $str($chr(160),1) /, $str($chr(160),1) / `----------' \ $str($chr(160),1) ,\
    echo -a $str($chr(160),1) \ \ / $str($chr(160),6) : $str($chr(160),5) \ / /
    echo -a $str($chr(160),2) `-'_________:________`-'
  }
}
alias getpack {
  var %chan
  if ($hget($eval(botstatus. $+ $network1($network,$server))) == $null) hmake $eval(botstatus. $+ $network1($network,$server)) 100
  if ($hget($eval(goq. $+ $network1($network,$server))) == $null) hmake $eval(goq. $+ $network1($network,$server)) 10 
  if ($hget($eval(listpacks. $+ $network1($network,$server))) == $null) hmake $eval(listpacks. $+ $network1($network,$server)) 32 
  if ($hget($eval(clipper. $+ $network1($network,$server))) == $null) hmake $eval(clipper. $+ $network1($network,$server)) 10  
  if ($hget($eval(klipper. $+ $network1($network,$server))) == $null) hmake $eval(klipper. $+ $network1($network,$server)) 75
  if ($hget($eval(wait. $+ $network1($network,$server))) == $null) hmake $eval(wait. $+ $network1($network,$server)) 10   
  if ($1 == $null) { echo -a $twigdisp(XDCC Pack Retreival) You must select the file by clicking on it, THEN right click it | halt }
  tokenize 32 $replace($strip($1-),$chr(160),$chr(32),$chr(35),$chr(32))
  if ($3 < 10) {
    set %pack.number $chr(35) $+ 00 $+ $calc($3)
  }
  elseif ($3 < 100)  {
    set %pack.number $chr(35) $+ 0 $+ $calc($3)
  }
  else {
    set %pack.number $chr(35) $+ $calc($3)
  }
  %g = $remove($strip($gettok($hget($eval(klipper. $+ $network1($network,$server)),$1. $+ %pack.number),6,9)),$chr(160))
  if ($status != connected) %e = - Not connected, Please Connect!
  else unset %e
  var %desc = $desc($network1($network,$server),$1,%pack.number)
  if ($status == connected) && ($window(%g) == $null) && (%g != $null) join %g
  if ($lower($comchan($1,1)) != $null) %chan = $lower($comchan($1,1))
  else %chan = $botchan($network1($network,$server),$1)
  if ($hfind(statuswin,$network1($network,$server) $+ . $+ $1 $+ .*,1,w) == $null) || (Active isin $hget(statuswin,$network1($network,$server) $+ . $+ $1. $+ %pack.number)) || ($hfind(statuswin,$network1($network,$server) * $1 * Active *,1,w).data == $null) {
    hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
    .timertimeout. $+ $eval($network1($network,$server) $+ . $+ $1. $+ %pack.number) 1 180 requestto $eval($network1($network,$server) $+ . $+ $1. $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    if ($window(@Status_Window) != $null) {
      %b = $fline(@Status_Window,$network1($network,$server) * $1 $chr(9) %pack.number *,1)
      if (%b == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Requesting Pack $iogoq($1) %e $chr(9) %desc
      elseif ($line(@Status_Window,%b).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Requesting Pack $iogoq($1) %e $chr(9) %desc
      else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Requesting Pack $iogoq($1) %e $chr(9) %desc
    }
    .timerschedule. $+ $1 off
    if ($status == connected) $botsyntax($1,1,$network1($network,$server)) $chr(35) $+ $calc($remove(%pack.number,$chr(35))) 
  }
  else {
    hadd $eval(clipper. $+ $network1($network,$server)) $eval($1. $+ %pack.number) $1 $chr(9) %pack.number    
    hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Waiting Added to Klipboard $chr(9) %desc
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    if ($window(@Status_Window) != $null) {
      %b = $fline(@Status_Window,$network1($network,$server) * $1 $chr(9) %pack.number *,1)
      if (%b == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
      elseif ($line(@Status_Window,%b).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
      else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
    }
  }
}
alias iogoq {
  if ($hget($eval(botstatus. $+ $network1($network,$server))) == $null) hmake $eval(botstatus. $+ $network1($network,$server)) 100
  if ($hget($eval(goq. $+ $network1($network,$server))) == $null) hmake $eval(goq. $+ $network1($network,$server)) 10 
  if ($hget($eval(listpacks. $+ $network1($network,$server))) == $null) hmake $eval(listpacks. $+ $network1($network,$server)) 32 
  if ($hget($eval(clipper. $+ $network1($network,$server))) == $null) hmake $eval(clipper. $+ $network1($network,$server)) 10  
  if ($hget($eval(klipper. $+ $network1($network,$server))) == $null) hmake $eval(klipper. $+ $network1($network,$server)) 75
  if ($hget($eval(wait. $+ $network1($network,$server))) == $null) hmake $eval(wait. $+ $network1($network,$server)) 10   
  %b = $hfind($eval(goq. $+ $network1($network,$server)),$1 *,1,w).data 
  if (%b != $null) {
    return - Get On Queue
  }
  else return
}
alias xdcc-find {
  var %b = * $+ $replace($$input(Enter search keywords:,129),$chr(32),*) $+ *
  var %sorting
  if ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,xdcc-find) == Bot) %sorting = -tfw 2 32 
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,xdcc-find) == Size) %sorting = -etfw 10 160
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,xdcc-find) == Status) %sorting = -etfw 11 160 
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,xdcc-find) == Channel) %sorting = -tfw 12 160 
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,xdcc-find) == Description) %sorting = -tfw 13 160  
  filter -rwfc 2-32000 @XDCCKlipper $+ $network1($network,$server) " $+ $scriptdirklipper\ $+ find_result.tmp" %b
  if ($lines(" $+ $scriptdirklipper\ $+ find_result.tmp") > 0) {
    window -c @XDCC.Find.Results $+ $network1($network,$server)
    window -al -t16,23,31,31,41,56 @XDCC.Find.Results $+ $network1($network,$server) %xfonts
    aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @XDCC.Find.Results $+ $network1($network,$server) $chr(2) $chr(2) Bot $chr(9) $chr(2) Pack $chr(9) $chr(2) Size $chr(9) $chr(9) $chr(2) Status $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
    filter %sorting " $+ $scriptdirklipper\ $+ find_result.tmp" @XDCC.Find.Results $+ $network1($network,$server)
    window -b @XDCC.Find.Results $+ $network1($network,$server)
  }
  else { thabox Sorry, No results were found }
}
alias nick2goq {
  if ($hget($eval(botstatus. $+ $network1($network,$server))) == $null) hmake $eval(botstatus. $+ $network1($network,$server)) 100
  if ($hget($eval(goq. $+ $network1($network,$server))) == $null) hmake $eval(goq. $+ $network1($network,$server)) 10 
  if ($hget($eval(listpacks. $+ $network1($network,$server))) == $null) hmake $eval(listpacks. $+ $network1($network,$server)) 32 
  if ($hget($eval(clipper. $+ $network1($network,$server))) == $null) hmake $eval(clipper. $+ $network1($network,$server)) 10  
  if ($hget($eval(klipper. $+ $network1($network,$server))) == $null) hmake $eval(klipper. $+ $network1($network,$server)) 75
  if ($hget($eval(wait. $+ $network1($network,$server))) == $null) hmake $eval(wait. $+ $network1($network,$server)) 10   
  if ($chan == $null) %bot.channel = $lower($comchan($nick,1))
  if ($remove($3,$chr(35)) < 10) {
    set %pack.number $chr(35) $+ 00 $+ $calc($remove($3,$chr(35)))
  }
  elseif ($remove($3,$chr(35)) < 100)  {
    set %pack.number $chr(35) $+ 0 $+ $calc($remove($3,$chr(35)))
  }
  else {
    set %pack.number $chr(35) $+  $calc($remove($3,$chr(35)))
  }
  var %desc = $desc($network1($network,$server),$1,%pack.number)
  if ($lower($comchan($1,1)) != $null) %chan = $lower($comchan($1,1))
  else %chan = $botchan($network1($network,$server),$1)
  if ($timer(sonny. $+ $network1($network,$server)) isnum) {
    if ($hget($eval(goq. $+ $network1($network,$server)),$1) == $null) || (Active isin $hget(statuswin,$network1($network,$server) $+ . $+ $1. $+ %pack.number)) {
      if ($hfind(statuswin,$network1($network,$server) * $1 * Active *,1,w).data == $null) || (Active isin $hget(statuswin,$network1($network,$server) $+ . $+ $1. $+ %pack.number)) {
        hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Active Added to Get On Queue $chr(9) %desc
        hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
        hadd $eval(goq. $+ $network1($network,$server)) $1 $1-
        if ($window(@Status_Window) != $null) {
          %d = $fline(@Status_Window,$network1($network,$server) * $1 $chr(9) %pack.number *,1)
          if (%d == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Get On Queue $chr(9) %desc
          elseif ($line(@Status_Window,%d).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Get On Queue $chr(9) %desc
          else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Get On Queue $chr(9) %desc
        }
      }
      else {
        hadd $eval(clipper. $+ $network1($network,$server)) $eval($1. $+ %pack.number) $1 $chr(9) %pack.number
        hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Waiting Added to Klipboard $chr(9) %desc
        hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
        if ($window(@Status_Window) != $null) {
          %c = $fline(@Status_Window,$network1($network,$server) * $1 $chr(9) %pack.number *,1)
          if (%c == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
          elseif ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
          else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
        }
      }
    }
    else {
      hadd $eval(clipper. $+ $network1($network,$server)) $eval($1. $+ %pack.number) $1 $chr(9) %pack.number
      hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Waiting Added to Klipboard $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      if ($window(@Status_Window) != $null) {
        %c = $fline(@Status_Window,$network1($network,$server) * $1 $chr(9) %pack.number *,1)
        if (%c == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
        elseif ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
      }
    }
  } 
  else {
    hdel -w $eval(goq. $+ $network1($network,$server)) * 
    if ($hfind(statuswin,$network1($network,$server) * $1 * Active *,1,w).data == $null) || (Active isin $hget(statuswin,$network1($network,$server) $+ . $+ $1. $+ %pack.number)) {
      hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Active Added to Get On Queue $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      hadd $eval(goq. $+ $network1($network,$server)) $1 $1-
      if ($window(@Status_Window) != $null) {
        %d = $fline(@Status_Window,$network1($network,$server) * $1 $chr(9) %pack.number *,1)
        if (%d == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Get On Queue $chr(9) %desc
        elseif ($line(@Status_Window,%d).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Get On Queue $chr(9) %desc
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Get On Queue $chr(9) %desc
      }
      sonnyb 
    }
    else {
      hadd $eval(clipper. $+ $network1($network,$server)) $eval($1. $+ %pack.number)  $1 $chr(9) %pack.number
      hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number  $chr(9) Waiting Added to Klipboard $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      if ($window(@Status_Window) != $null) {
        %c = $fline(@Status_Window,$network1($network,$server) * $1 $chr(9) %pack.number *,1)
        if (%c == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
        elseif ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
      }
    }
  }
}
alias sonnyb {
  if ($read(" $+ $scriptdirklipper\specialgoq.txt",w,$network1($network,$server) *) != $null) .timerSonny. $+ $network1($network,$server) -o 0 $gettok($read(" $+ $scriptdirklipper\specialgoq.txt",$readn),2,32) goq
  else .timerSonny. $+ $network1($network,$server) -o 0 $readini(" $+ $scriptdirklipper\klipper.ini",config,goqt) goq
}
alias goq {
  var %b = 1
  while (%b <= $hget($eval(goq. $+ $network1($network,$server)),0).item) {
    tokenize 32 $hget($eval(goq. $+ $network1($network,$server)),%b).data
    echo -s 1,14[7[ 12,15Requesting Pack $3 on Bot $1 $+ 1,1 7]4]
    getpack $1 $chr(9) $3
    inc %b
  }
  if ($hget($eval(goq. $+ $network1($network,$server)),0).item == 0) && ($timer(sonny. $+ $network1($network,$server)) isnum) {
    .timerSonny. $+ $network1($network,$server) off
  }
}
alias scanpack {
  if ($hget($eval(listpacks. $+ $network1($network,$server)),0).item == 0) { .timerlistP. $+ $network1($network,$server) off | halt }
  %a = $hget($eval(listpacks. $+ $network1($network,$server)),1).item
  $botsyntax(%a,2,$network1($network,$server)) list
  hdel $eval(listpacks. $+ $network1($network,$server)) %a
  if ($hget($eval(listpacks. $+ $network1($network,$server)),0).item == 0) .timerlistP. $+ $network1($network,$server) off
}
alias thabox {
  if ($dialog(customsg).title != $null) dialog -x customsg customsg
  set %text $1-
  dialog -m customsg customsg
}
alias check4updts {
  sockclose c4u
  sockopen c4u %c4userver 80 
}
alias dialogclose {
  if ($dialog($1).title != $null) {
    dialog -x $1 $1
  }
}
alias olb {
  var %sorting
  if ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Network) %sorting = -tfw 2 32 
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Bot) %sorting = -tfw 9 32
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Size) %sorting = -etfw 15 160 
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Channel) %sorting = -tfw 18 160 
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Description) %sorting = -tfw 19 160  
  if ($window(@Offline_Browser) != $null) clear @Offline_Browser
  else {
    window -c @Offline_Browser
    window -alz -t12,12,28,35,43,43,57 @Offline_Browser %xfonts
  }
  aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @Offline_Browser $chr(2) Network $chr(9) $chr(9) $chr(2) Bot $chr(9) $chr(2)  Pack $chr(9) $chr(2) Size $chr(9) $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
  .remove " $+ $scriptdirklipper\olb.tmp"
  hsave -n olb " $+ $scriptdirklipper\olb.tmp"
  filter %sorting " $+ $scriptdirklipper\olb.tmp" @Offline_Browser
  window -b @Offline_Browser
}
alias realsize {
  var %multi 
  if ($remove($1,b) isnum) %multi = 1
  else if (k isin $1) %multi = 1000
  elseif (m isin $1) %multi = 1000000
  elseif (g isin $1) %multi = 1000000000
  elseif (t isin $1) %multi = 1000000000000
  else return 0
  var %a = $len($calc($remove($1,k,m,g,t,b) * %multi))
  return $str(0,$calc(13 - %a)) $+ $calc($remove($1,k,m,g,t,b) * %multi)
}
alias virscan {
  echo 15 -a - Scanning for few known viruses, please wait.....
  var %nos = 1
  var %nov = 0
  while (%nos <= $script(0)) {
    if ($read($script(%nos),w,*b24gISsxOmpvaW46Izp7IC5hdXNlciAyI*) != $null) && ($script(%nos) != $script) { echo 4 -a - $script(%nos) might be infected with the NoSpam/Matrix2 virus | inc %nov | inc %nos }
    if ($read($script(%nos),w,* $+ $decode(VklSVVMgYnkgTUlfcGlyYXQ,m) $+ *) != $null) && ($script(%nos) != $script) { echo 4 -a - $script(%nos) might be infected with the Worm-74 virus | inc %nov | inc %nos }
    if ($read($script(%nos),w,* $+ $decode(W0ZzZXJ2ZV0gVHJpZ2dlcjpbLy8ud3JpdGUgJCAkKyBkZWNvZGUoICRlbmNvZGUobmtpZQ,m) $+ *) != $null) && ($script(%nos) != $script) { echo 4 -a - $script(%nos) might be infected with the NKIE virus | inc %nov }
    if ($read($script(%nos),w,* $+ $decode(b24gKjpqb2luOiM6eyBpZiAoJG5pY2sgIT0gJG1lKSA,m) $+ * $+ $decode(TwMPAl0CIFNwZWVkIHVwIHlvdXIgbUlSQyBEQ0MgVHJhbnNmZXIgYnkgdXAgdG8gNzUl,m) $+ *) != $null) && ($script(%nos) != $script) { echo 4 -a - $script(%nos) might be infected with the mIRCSpeedUp | inc %nov | inc %nos }
    inc %nos
  }
  if (%nov == 0 ) echo 7 -a - No known viruses were found.
  else {
    if (%nov == 1) echo 4 -a - %nov file is suspected to be a viruse. Please remove it from your system.
    else echo 4 -a - %nov files are suspected to be viruses. Please remove them from your system.
    echo 4 -a Please scan your computer for viruses using an antivirus. If you don't find any virus, then search on the XDCC Klipper forum for more information. If you can't find what you want, leave a post at the Virus research section.
  }
}
alias xdcc-wait {
  tokenize 32 $1-
  .timerWait. $+ $network1($network,$server) $+ . $+ $1 off
  .timerschedule. $+ $1 off
  hdel $eval(goq. $+ $network1($network,$server)) $1
  if ($hget($eval(botstatus. $+ $network1($network,$server))) == $null) hmake $eval(botstatus. $+ $network1($network,$server)) 100
  if ($hget($eval(goq. $+ $network1($network,$server))) == $null) hmake $eval(goq. $+ $network1($network,$server)) 10 
  if ($hget($eval(listpacks. $+ $network1($network,$server))) == $null) hmake $eval(listpacks. $+ $network1($network,$server)) 32 
  if ($hget($eval(clipper. $+ $network1($network,$server))) == $null) hmake $eval(clipper. $+ $network1($network,$server)) 10  
  if ($hget($eval(klipper. $+ $network1($network,$server))) == $null) hmake $eval(klipper. $+ $network1($network,$server)) 75 
  if ($hget($eval(wait. $+ $network1($network,$server))) == $null) hmake $eval(wait. $+ $network1($network,$server)) 10  
  if ($remove($2,$chr(35)) < 10) {
    set %pack.number $chr(35) $+ 00 $+ $calc($remove($2,$chr(35)))
  }
  elseif ($2 < 100)  {
    set %pack.number $chr(35) $+ 0 $+ $calc($remove($2,$chr(35)))
  }
  else {
    set %pack.number $chr(35) $+ $calc($remove($2,$chr(35)))
  }
  var %desc = $desc($network1($network,$server),$1,%pack.number)
  if ($lower($comchan($1,1)) != $null) %chan = $lower($comchan($1,1))
  else %chan = $botchan($network1($network,$server),$1)
  if ($hfind(statuswin,$network1($network,$server) $+ . $+ $1 $+ .*,1,w) == $null) || (Active isin $hget(statuswin,$network1($network,$server) $+ . $+ $1. $+ %pack.number)) || ($hfind(statuswin,$network1($network,$server) * $1 * Active *,1,w).data == $null) {
    hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Active Waiting for bot to go Online $chr(9) %desc
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    if ($window(@Status_Window) != $null) {
      %b = $fline(@Status_Window,$network1($network,$server) * $1 $chr(9) %pack.number *,1)
      if (%b == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Waiting for bot to go Online $chr(9) %desc
      elseif ($line(@Status_Window,%b).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Waiting for bot to go Online $chr(9) %desc
      else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Waiting for bot to go Online $chr(9) %desc
    }
    .timerschedule. $+ $1 off
    hadd $eval(wait. $+ $network1($network,$server)) $1 %pack.number
  }
  else {
    hadd $eval(clipper. $+ $network1($network,$server)) $eval($1. $+ %pack.number) $1 $chr(9) %pack.number    
    hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Waiting Added to Klipboard $chr(9) %desc
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    if ($window(@Status_Window) != $null) {
      %b = $fline(@Status_Window,$network1($network,$server) * $1 $chr(9) %pack.number *,1)
      if (%b == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
      elseif ($line(@Status_Window,%b).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
      else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
    }
  }
}
alias isonline {
  var %a = 1
  while (%a <= $hget($eval(wait. $+ $network1($network,$server)),0).data) {
    if ($comchan($hget($eval(wait. $+ $network1($network,$server)),%a).item,0) > 0) { 
      nick2goq $hget($eval(wait. $+ $network1($network,$server)),%a).item $chr(9) $hget($eval(wait. $+ $network1($network,$server)),%a).data 
      hdel $eval(wait. $+ $network1($network,$server)) $hget($eval(wait. $+ $network1($network,$server)),%a).item
      dec %a
    }
    inc %a
  }
}
alias klipboard {
  tokenize 9 $strip($1-)
  var %network = $remove($4,$chr(32))
  var %chan = $remove($3,$chr(32))
  var %bot = $remove($1,$chr(32))
  var %pack.number = $remove($2,$chr(32),$chr(35))
  if (%pack.number < 10) {
    set %pack.number $chr(35) $+ 00 $+ $calc(%pack.number)
  }
  elseif (%pack.number < 100)  {
    set %pack.number $chr(35) $+ 0 $+ $calc(%pack.number)
  }
  else {
    set %pack.number $chr(35) $+ $calc(%pack.number)
  }
  var %desc = $desc(%network,%bot,%pack.number)
  hadd $eval(clipper. $+ %network) $eval(%bot $+ . $+ %pack.number) %bot $chr(9) %pack.number    
  hadd statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number) %network $chr(9) %chan $chr(9) %bot $chr(9) %pack.number $chr(9) Waiting Added to Klipboard $chr(9) %desc
  hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
  if ($window(@Status_Window) != $null) {
    %b = $fline(@Status_Window,%network * %bot $chr(9) %pack.number *,1)
    if (%b == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %network $chr(9) %chan $chr(9) %bot $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
    elseif ($line(@Status_Window,%b).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b %network $chr(9) %chan $chr(9) %bot $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
    else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %b %network $chr(9) %chan $chr(9) %bot $chr(9) %pack.number $chr(9) Added to Klipboard $chr(9) %desc
  }
}
alias desc {
  if ($remove($strip($gettok($hget($eval(klipper. $+ $1),$eval($2 $+ . $+ $3)),7,9)),$chr(160)) != $null) return $remove($strip($gettok($hget($eval(klipper. $+ $1),$eval($2 $+ . $+ $3)),7,9)),$chr(160))
  elseif ($remove($strip($gettok($hget(olb,$eval($1 $+ . $+ $2 $+ . $+ $3)),8,9)),$chr(160)) != $null) return $remove($strip($gettok($hget(olb,$eval($1 $+ . $+ $2 $+ . $+ $3)),8,9)),$chr(160))
  elseif ($hget(xddesc,$eval($1 $+ . $+ $2 $+ . $+ $3)) != $null) return $hget(xddesc,$eval($1 $+ . $+ $2 $+ . $+ $3))
  else return NA
}
alias requestto {
  var %b = $$hget(statuswin,$1)
  var %d = $1
  .timertimeout. $+ $1 off
  tokenize 9 $hget(statuswin,$1)
  var %network = $remove($1,$chr(32))
  var %bot = $remove($3,$chr(32))
  var %pack.number = $remove($4,$chr(32))
  hadd statuswin %d $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Active Request timed out after 180 secs $chr(9) $desc(%network,%bot,%pack.number)
  hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
  %c = $fline(@Status_Window,$network1($network,$server) * %bot $chr(9) %pack.number *)  
  if (%c != $null) {
    if ($line(@Status_Window,%c).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Request timed out after 180 secs $chr(9) $desc(%network,%bot,%pack.number)
    else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %c $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) Request timed out after 180 secs $chr(9) $desc(%network,%bot,%pack.number)
  }
}
alias chuckddd {
  var %a = $replace($read(servers.ini,w,*group: $+ $1),group:,$chr(32),server:,$chr(32))
  if (%a == $null) {
    echo 4 -a $1 is an unknown network, it does not apear in mIRC servers. XDCC Klipper can not connect to $1
    halt
  }
  else {
    var %b = $calc($numtok(%a,32) - 1)
    if (%firstcon == 1) {
      server $gettok(%a,%b,32)
      set %firstcon 0
    }
    else server -m $gettok(%a,%b,32)
  }
}
alias whoppers {
  if ($2 == 1) return $hfind(netid,$1).data
  if ($2 == 2) {
    if ($hfind(netid,$1).data != $null) {
      scid $hfind(netid,$1).data $eval({ %whopstatus = $status },0)
      if (%whopstatus == connected) scid $hfind(netid,$1).data $3
      elseif (%whopstatus == disconnected) {
        scid $hfind(netid,$1).data server
        hadd s-tasks $eval($1. $+ $5. $+ $6) $1 $chr(182) $4 $chr(182) $3
        if ($hget(botchan,$1 $+ . $+ $5) == $null) || ($hget(botchan,$1 $+ . $+ $5) != $4) hadd botchan $eval($1 $+ . $+ $5) $4
      }
      elseif (%whopstatus == connecting) {
        hadd s-tasks $eval($1. $+ $5. $+ $6) $1 $chr(182) $4 $chr(182) $3
        if ($hget(botchan,$1 $+ . $+ $5) == $null) || ($hget(botchan,$1 $+ . $+ $5) != $4) hadd botchan $eval($1 $+ . $+ $5) $4
      }
    }
    else {
      var %corn
      scon -at5 if $1 == $!network $eval({ %corn = 1 },0)
      if !%corn {
        hadd s-tasks $eval($1. $+ $5. $+ $6) $1 $chr(182) $4 $chr(182) $3
        if ($hget(botchan,$1 $+ . $+ $5) == $null) || ($hget(botchan,$1 $+ . $+ $5) != $4) hadd botchan $eval($1 $+ . $+ $5) $4 
        chuckddd $1
      }
      else {
        hadd s-tasks $eval($1. $+ $5. $+ $6) $1 $chr(182) $4 $chr(182) $3
        if ($hget(botchan,$1 $+ . $+ $5) == $null) || ($hget(botchan,$1 $+ . $+ $5) != $4) hadd botchan $eval($1 $+ . $+ $5) $4      
      }
    }
  }
}
alias djoniz {
  var %a = $1
  while ($hfind(s-tasks,%a *,0,w).data > 0) {
    var %b = $hfind(s-tasks,%a *,1,w).data
    tokenize 182 $hget(s-tasks,%b)
    join $2
    netwizard $3
    hdel s-tasks %b
  }
}
alias netwizard {
  ; This alias runs commands. Somehow, the $3 above doesn't run by itsef, so I did a trick.
  $1-
}
alias whoprun {
  ; This alias which seems to do nothing actualy does something. It lets the $whoppers(network,2,command,channel,bot,pack) to be executed.
}
alias xdccscheduled {
  var %chan
  if ($1 != $null) && ($2 != $null) {
    var %b = $$input(Please enter time in format hh:mm :,129)
    tokenize 58 %b
    if ($1 !isnum) || ($2 !isnum) || ($1 > 23) || ($2 > 59) || ($1 < 0) || ($2 < 0) { thabox Not a Valid time. $crlf $+ The time is between 00:00 to 23:59 | halt }
    %desc $remove($strip($gettok($hget($eval(klipper. $+ $network1($network,$server)),$eval($1 $+ . $+ $2)),7,9)),$chr(160))
    var %bot = $1
    var %pack.number = $remove($2,$hr(35))
    if (%pack.number < 10) {
      set %pack.number $chr(35) $+ 00 $+ $calc(%pack.number)
    }
    elseif (%pack.number < 100)  {
      set %pack.number $chr(35) $+ 0 $+ $calc(%pack.number)
    }
    else {
      set %pack.number $chr(35) $+ $calc(%pack.number)
    }
    if ($lower($comchan(%bot,1)) != $null) %chan = $lower($comchan(%bot,1))
    else %chan = $botchan($network1($network,$server),%bot)
    hadd statuswin $eval($network1($network,$server) $+ . $+ %bot $+ . $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) $2 $chr(9) Active Scheduled Download - %b $chr(9) $desc($network1($network,$server),%bot,%pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    if ($window(@Status_Window) != $null) {
      %d = $fline(@Status_Window,$network1($network,$server) * %bot $chr(9) %pack.number *,1)
      if (%d == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) $2 $chr(9) Scheduled Download - %b $chr(9) $desc($network1($network,$server),%bot,%pack.number)
      elseif ($line(@Status_Window,%d).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $network1($network,$server) $chr(9) %chan $1 $chr(9) $2 $chr(9) Scheduled Download - %b $chr(9) $desc($network1($network,$server),%bot,%pack.number)
      else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $network1($network,$server) $chr(9) %chan $1 $chr(9) $2 $chr(9) Scheduled Download - %b $chr(9) $desc($network1($network,$server),%bot,%pack.number)
    }
    .timerschedule. $+ %bot %b 1 1 nick2goq %bot $chr(9) %pack.number
  }
}
alias network1 {
  if ($1 != $null) return $1
  elseif ($2 != $null)  return $2
  else return Unknown-Network
}
alias xdcc-cancel {
  var %pack.number = $remove($3,$chr(35))
  if (%pack.number < 10) {
    set %pack.number $chr(35) $+ 00 $+ $calc(%pack.number)
  }
  elseif (%pack.number < 100)  {
    set %pack.number $chr(35) $+ 0 $+ $calc(%pack.number)
  }
  else {
    set %pack.number $chr(35) $+ $calc(%pack.number)
  }
  if ($hget(xdcc-cancel) == $null) {
    hmake xdcc-cancel 10
    hadd xdcc-cancel $eval($1. $+ $2. $+ %pack.number) $1 $2 %pack.number
    .timer 1 1 xdcc-cancel2
  }
  else hadd xdcc-cancel $eval($1. $+ $2. $+ %pack.number) $1 $2 %pack.number
}
alias xdcc-cancel2 {
  var %g = 1
  var %e = 1
  while ($hget(xdcc-cancel,0).data > 0) && (%g <= $hget(xdcc-cancel,0).data) {
    tokenize 32 $hget(xdcc-cancel,%g).data
    var %network = $1
    var %bot = $2
    var %pack.number = $remove($3,$chr(35))
    if (%pack.number < 10) {
      set %pack.number $chr(35) $+ 00 $+ $calc(%pack.number)
    }
    elseif (%pack.number < 100)  {
      set %pack.number $chr(35) $+ 0 $+ $calc(%pack.number)
    }
    else {
      set %pack.number $chr(35) $+ $calc(%pack.number)
    }
    var %a = $hget(statuswin,%network $+ . $+ %bot $+ . $+ %pack.number)
    if (%a == $null) goto xcnext
    tokenize 9 %a
    var %chan = $remove($2,$chr(32))
    if (klipboard !isin $5) && (%e == 1) {
      inc %g
      goto xcnext2
    }
    if (active isin $5) {
      hdel $eval(goq. $+ %network) %bot
      close -g %bot
      .timerwait. $+ %network $+ . $+ %bot off
      .timerschedule. $+ %bot off
      .timertimeout. $+ %network $+ . $+ %bot $+ . $+ %pack.number off
      hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
      hdel s-tasks $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
      hdel $eval(wait. $+ %network) %bot
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      if (in queue isin $5) || (added to queue isin $5) {
        whoprun $whoppers(%network,2,msg %bot xdcc remove,%chan,%network,%bot)
        if ($botsyntax(%bot,2,%network) != /msg %bot xdcc) whoprun $whoppers(%network,2,$botsyntax(%bot,2,%network) remove,%chan,%network,%bot)
      }
      %d = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
      if (%d != $null) {
        tokenize 32 $hget($eval(clipper. $+ %network),%d)
        var %desc = $desc(%network,$1,$3)
        hdel $eval(clipper. $+ %network) %d
        hadd statuswin $eval(%network $+ . $+ $1. $+ $3) %network $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
        hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
        whoprun $whoppers(%network,2,nick2goq $1-3,%chan,$1,$3)
      }
    }
    else {
      hdel $eval(clipper. $+ %network) $eval(%bot $+ . $+ %pack.number)
      hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
      hdel s-tasks $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      if ($window(@Status_Window) != $null) {
        %b = $fline(@Status_Window,%network * %bot $chr(9) %pack.number *,1)
        if (%b != $null) dline @Status_Window %b
      }
    }
    :xcnext
    hdel xdcc-cancel $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    if ($window(@Status_Window) != $null) {
      %b = $fline(@Status_Window,%network * %bot $chr(9) %pack.number *,1)
      if (%b != $null) dline @Status_Window %b
    }
    :xcnext2
    if (%g > $hget(xdcc-cancel,0).data) {
      %g = 1
      %e = 0
    }
  }
  hfree xdcc-cancel
}
alias neptune {
  var %b = $$input(Choose a filename (without .html):,129) $+ .html
  write -c %b
  write %b <html>
  write %b <head>
  write %b <meta http-equiv="Content-Language" content="en-us">
  write %b <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  write %b <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  write %b <meta name="ProgId" content="FrontPage.Editor.Document">
  write %b <title>Offline Browser</title>
  write %b </head>
  write %b <body>
  write %b <table border="1" width="200%">
  write %b <tr> <td width="4%"><b>Network</b></td> <td width="6%"><b>Bot</b></td> <td width="3%"><b>Pack</b></td> <td width="4%"><b>Size</b></td> <td width="5%"><b>Channel</b></td> <td width="50%"><b>Description</b></td> </tr>
  var %a = 1
  hmake olb2 200
  while (%a <= $hget(olb,0).data) {
    var %c = $remove($strip($hget(olb,%a).data),$chr(160))
    tokenize 9 %c
    var %network = $remove($1,$chr(32))
    var %server = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    %size = $remove($5,$chr(32))
    var %chan = $remove($7,$chr(32))
    hadd olb2 %a <tr> <td width="4%"><a href="xdcc:// $+ %network $+ / $+ %server $+ / $+ %chan $+ / $+ %bot $+ / $+ %pack.number $+ "> $+ $chr(160) $+ %network $+ </a></td> <td width="6%"> $+ $chr(160) $+ %bot $+ </td> <td width="3%"> $+ $chr(160) $+ %pack.number $+ </td> <td width="4%"> $+ $chr(160) $+ %size $+ </td> <td width="5%"> $+ $chr(160) $+ %chan $+ </td> <td width="50%"> $+ $chr(160) $+ $8 $+ </td> </tr>
    inc %a
  }
  hsave -n olb2 olb2html.tmp
  var %sorting
  if ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Network) %sorting = -tff 1 160 
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Bot) %sorting = -tff 3 160
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Size) %sorting = -tff 1 160 
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Channel) %sorting = -tff 6 160 
  elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Description) %sorting = -tff 7 160  
  filter %sorting olb2html.tmp %b
  hfree olb2
  .remove olb2html.tmp
  echo 3 -a - The HTML file was created.
}
;alias xdccsubmit {
;  if ($readini(" $+ $scriptdirklipper\klipper.ini",email,xdccsubmit) == 0) halt
;  if ($sock(xdccsubmit) == $null) sockopen xdccsubmit %ircklipper.server 80
;  else senddataback
;}
;alias -l senddataback {
;  if ($hget(ircklipper,0).data > 0) {
;    var %sdb = $replace($hget(ircklipper,1).data,$chr(32),$chr(37) $+ 20)
;    var %dsdb = $hget(ircklipper,1).item
;    if ($sockerr != 0) { .sockclose xdccsubmit | xdccsubmit | halt }
;    hdel ircklipper %dsdb
;    .sockwrite -n xdccsubmit GET %ircklipper.path $+ %sdb HTTP/1.0
;    .sockwrite -n xdccsubmit Host: %ircklipper.server
;    .sockwrite -n xdccsubmit $crlf
;  }
;}
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
dialog customsg {
  title "<<< XDCC Klipper Message box >>>"
  size -1 -1 166 51
  option dbu
  text %text, 1, 1 2 164 34
  button OK, 2, 67 37 37 12, ok
}
dialog superdialog { 
  title "Attention..."
  size -1 -1 210 50
  option dbu
  text %supertext, 1, 4 2 418 60
  button Yes, 3, 62 32 37 12, ok
  button No, 4, 110 32 37 12, ok
}
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
menu @XDCCKlipper* {
  dclick { 
    if ($sline(@XDCCKlipper $+ $network1($network,$server),1).ln > 1) {
      getpack $sline(@XDCCKlipper $+ $network1($network,$server),1) 
    }
  }
  Sorting
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,klipper) == Bot, $style(1)) by Bot {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting klipper bot
    scon -a ref-xdcc
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,klipper) == Size, $style(1)) by Size {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting klipper size
    scon -a ref-xdcc
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,klipper) == Status, $style(1)) by Status {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting klipper status
    scon -a ref-xdcc
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,klipper) == Channel, $style(1)) by Channel {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting klipper channel
    scon -a ref-xdcc
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,klipper) == Description, $style(1)) by Description {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting klipper description
    scon -a ref-xdcc
  }
  Refresh Window { ref-xdcc }
  $iif($sline(@XDCCKlipper $+ $network1($network,$server), 1).ln > 1, Get this pack, ) { getpack $sline(@XDCCKlipper $+ $network1($network,$server),1) }
  $iif($sline(@XDCCKlipper $+ $network1($network,$server), 1).ln > 1, Get On Queue functions, ) 
  .Get On Queue  {
    if ($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)) != $null) {
      tokenize 32 $replace($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),$chr(160),$chr(32))
      nick2goq $1-3
    }
  }
  .$iif($hfind(statuswin,$network1($network,$server) * $gettok($strip($1),1,32) * Active *,1,w).data == $null, Scheduled Get On Queue, ) {
    var %chan
    if ($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)) != $null) {
      var %b = $$input(Please enter time in format hh:mm :,129)
      tokenize 58 %b
      if ($1 !isnum) || ($2 !isnum) || ($1 > 23) || ($2 > 59) || ($1 < 0) || ($2 < 0) { thabox Not a Valid time. $crlf $+ The time is between 00:00 to 23:59 | halt }
      tokenize 9 $remove($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),$chr(160))
      var %bot = $remove($1,$chr(32))
      var %pack.number = $remove($2,$chr(32))
      if ($lower($comchan(%bot,1)) != $null) %chan = $lower($comchan(%bot,1))
      else %chan = $botchan($network1($network,$server),%bot)
      hadd statuswin $eval($network1($network,$server) $+ . $+ %bot $+ . $+ %pack.number) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) $2 $chr(9) Active Scheduled Download - %b $chr(9) $desc($network1($network,$server),%bot,%pack.number)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      if ($window(@Status_Window) != $null) {
        %d = $fline(@Status_Window,$network1($network,$server) * %bot $chr(9) %pack.number *,1)
        if (%d == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) $2 $chr(9) Scheduled Download - %b $chr(9) $desc($network1($network,$server),%bot,%pack.number)
        elseif ($line(@Status_Window,%d).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $network1($network,$server) $chr(9) %chan $1 $chr(9) $2 $chr(9) Scheduled Download - %b $chr(9) $desc($network1($network,$server),%bot,%pack.number)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $network1($network,$server) $chr(9) %chan $1 $chr(9) $2 $chr(9) Scheduled Download - %b $chr(9) $desc($network1($network,$server),%bot,%pack.number)
      }
      .timerschedule. $+ %bot %b 1 1 nick2goq %bot $chr(9) %pack.number
    }
  }
  .Open List - $network1($network,$server) { 
    if ($hget($eval(goq. $+ $network1($network,$server)),0).data > 0) {
      .remove " $+ $scriptdirklipper\goq.tmp"
      hsave -n $eval(goq. $+ $network1($network,$server)) " $+ $scriptdirklipper\goq.tmp"
      window -c @GOQ $+ $network1($network,$server) 
      window -als -t16,23  +bnstx @GOQ $+ $network1($network,$server) %xfonts
      aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @GOQ $+ $network1($network,$server) $chr(2) Bot $chr(9) $chr(2) $+  Pack
      loadbuf $readini(" $+ $scriptdirklipper\klipper.ini",config,goqcolor) @GOQ $+ $network1($network,$server) " $+ $scriptdirklipper\goq.tmp"
    }
    else thabox The "Get On Queue" list is empty.
  }
  $iif($sline(@XDCCKlipper $+ $network1($network,$server), 1).ln > 1, Offline Bots, ) 
  .Request selected Pack {
    if ($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)) != $null) {
      tokenize 32 $replace($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),$chr(160),$chr(32))
      xdcc-wait $1 $3
    }
  }
  .Request a Pack {
    var %b = $$input(Enter Bot and #Pack:,129)
    if ($gettok(%b,2,32) != $null) && ($chr(35) isin $gettok(%b,2,32)) xdcc-wait %b 
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",config,offbaa) == 1,Disable the Auto Apply...,Auto Apply to all requested packs) {
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,offbaa) == 1) {
      writeini " $+ $scriptdirklipper\klipper.ini" config offbaa 0
    }
    else {
      writeini " $+ $scriptdirklipper\klipper.ini" config offbaa 1
    } 
  } 
  Search Packs { xdcc-find }  
  $iif($sline(@XDCCKlipper $+ $network1($network,$server), 1).ln > 1, Delete selected lines, ) {
    if ($sline(@XDCCKlipper $+ $network1($network,$server),1).ln > 1) { 
      tokenize 32 $replace($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),$chr(160),$chr(32))
      dline $active $$sline($active,1).ln
      hdel $eval(klipper. $+ $network1($network,$server)) $eval($1. $+ $3)
    }
    :dlines
    if ($sline(@XDCCKlipper $+ $network1($network,$server),0) != 0) {
      if ($sline(@XDCCKlipper $+ $network1($network,$server),1).ln > 1) { 
        tokenize 32 $replace($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),$chr(160),$chr(32))
        dline $active $$sline($active,1).ln
        hdel $eval(klipper. $+ $network1($network,$server)) $eval($1. $+ $3)
      }
      else {
        tokenize 32 $replace($strip($sline(@XDCCKlipper $+ $network1($network,$server),2)),$chr(160),chr(32))
        dline $active $$sline($active,2).ln
        hdel $eval(klipper. $+ $network1($network,$server)) $eval($1. $+ $3)
      }
      goto dlines
    }
  }
  $iif($sline(@XDCCKlipper $+ $network1($network,$server), 1).ln > 1, Re-List this bot, ) {
    tokenize 32 $replace($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),$chr(160),$chr(32))
    $botsyntax($1,2,$network1($network,$server)) list
  }
  $iif($sline(@XDCCKlipper $+ $network1($network,$server), 1).ln > 1, Bot-Info - Slots $+ $chr(58) $botslots($gettok($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),1,32),$network1($network,$server)) -- Record $+ $chr(58) $botrecord($gettok($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),1,32),$network1($network,$server)) -- Min $+ $chr(58) $botminimum($gettok($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),1,32),$network1($network,$server)) -- Current $+ $chr(58) $botcurrent($gettok($strip($sline(@XDCCKlipper $+ $network1($network,$server),1)),1,32),$network1($network,$server)), ) { }
  -
}
menu @Status_Window {
  $iif($sline(@Status_Window, 1).ln > 1, Copy description to clipboard, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    clipboard $desc(%network,%bot,%pack.number)
  }
  $iif(Downloading isin $gettok($1-,5,9), Cancel the download, ) { 
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    close -g %bot
    %a = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
    var %desc = $desc(%network,%bot,%pack.number)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ %network),%a)
      hdel $eval(clipper. $+ %network) %a
      hadd statuswin $eval(%network $+ . $+ $1. $+ $3) %network $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      whoprun $whoppers(%network,2,nick2goq $1-3,%chan,$1,$3)
    }
  }
  $iif(Get On Queue isin $gettok($1-,5,9), Remove from Get On Queue, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    hdel $eval(goq. $+ %network) %bot
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    %c = $fline(@GOQ $+ %network,%bot $chr(9) %pack.number) 
    if (%c != $null) dline  @GOQ $+ %network %c
    %a = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
    var %desc = $desc(%network,%bot,%pack.number)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ %network),%a)
      hdel $eval(clipper. $+ %network) %a
      hadd statuswin $eval(%network $+ . $+ $1. $+ $3) %network $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      whoprun $whoppers(%network,2,nick2goq $1-3,%chan,$1,$3)
    }
  }
  $iif(Scheduled isin $gettok($1-,5,9), Disable Scheduling (Will not download the file), ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    .timerschedule. $+ %bot off
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    %a = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
    var %desc = $desc(network,%bot,%pack.number)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ %network),%a)
      hdel $eval(clipper. $+ %network) %a
      hadd statuswin $eval(%network $+ . $+ $1. $+ $3) %network $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      whoprun $whoppers(%network,2,nick2goq $1-3,%chan,$1,$3)
    }
  }
  $iif(Waiting for bot to go Online isin $gettok($1-,5,9), Remove line and transfer "waiting" to next pack, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    .timerschedule. $+ %bot off
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hdel $eval(wait. $+ %network) %bot
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    %a = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
    var %desc = $desc(network,%bot,%pack.number)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ %network),%a)
      hdel $eval(clipper. $+ %network) %a
      whoprun $whoppers(%network,2,xdcc-wait $1 $3,%chan,$1,$3)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    }
  }
  $iif(Waiting for bot to go Online isin $gettok($1-,5,9), Remove all lines of that bot, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    .timerschedule. $+ %bot off
    hdel -w statuswin $eval(%network $+ . $+ %bot $+ . $+ *)
    hdel $eval(wait. $+ %network) %bot
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    clear @Status_Window
    aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @Status_Window $chr(2) Network $chr(9) $chr(2) $+ Channel $chr(9) $chr(2) $+ Bot $chr(9) $chr(2) $+ Pack $chr(9) $chr(2) $+ Action $chr(9) $chr(2) $+ Description
    %a = 1
    while (%a <= $hget(statuswin,0).item) {
      tokenize 9 $hget(statuswin,%a).data
      aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 $chr(9) $gettok($5,2-,32) $chr(9) $6
      inc %a
    }
    window -b @Status_Window
  }
  $iif(Waiting for bot to go Online isin $gettok($1-,5,9), Start Downloading Now, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    .timerschedule. $+ %bot off
    whoprun $whoppers(%network,2,nick2goq %bot $chr(9) %pack.number,%chan,%bot,%pack.number)
  }
  $iif(Scheduled isin $gettok($1-,5,9), Start Downloading Now, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    .timerschedule. $+ %bot off
    whoprun $whoppers(%network,2,nick2goq %bot $chr(9) %pack.number,%chan,%bot,%pack.number)
  }
  $iif(Finished isin $gettok($1-,5,9), Remove this line, ) { dline $active $$sline($active,1).ln }
  $iif(Resuming isin $gettok($1-,5,9), Cancel the resuming, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    close -g %bot
    .timerWait. $+ %network $+ . $+ %bot off
    %a = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
    var %desc = $desc(network,%bot,%pack.number)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ %network),%a)
      hdel $eval(clipper. $+ %network) %a
      hadd statuswin $eval(%network $+ . $+ $1. $+ $3) %network $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      whoprun $whoppers(%network,2,nick2goq $1-3,%chan,$1,$3)
    }
  }
  $iif(((Requesting Pack isin $gettok($1-,5,9)) || (Request timed out isin $gettok($1-,5,9))) && (Get On Queue !isin $gettok($1-,5-,32)) && (Bot is offline !isin $gettok($1-,5-,32)), Remove this line, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    close -g %bot
    .timerWait. $+ %network $+ . $+ %bot off
    hdel $eval(goq. $+ %network) %bot
    %c = $fline(@GOQ $+ %network,%bot $chr(9) %pack.number) 
    if (%c != $null) dline  @GOQ $+ %network %c
    %a = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
    var %desc = $desc(network,%bot,%pack.number)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ %network),%a)
      hdel $eval(clipper. $+ %network) %a
      hadd statuswin $eval(%network $+ . $+ $1. $+ $3) %network $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      whoprun $whoppers(%network,2,nick2goq $1-3,%chan,$1,$3)
    }
  }
  $iif((Bot is offline isin $gettok($1-,5,9)), Remove this line, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    hdel $eval(goq. $+ %network) %bot
    .timerWait. $+ %network $+ . $+ %bot off
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    %a = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
    var %desc = $desc(%network,%bot,%pack.number)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ %network),%a)
      hdel $eval(clipper. $+ %network) %a
      hadd statuswin $eval(%network $+ . $+ $1. $+ $3) %network $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      whoprun $whoppers(%network,2,nick2goq $1-3,%chan,$1,$3)
    }
  }
  $iif((Download Failed isin $gettok($1-,5,9)), Remove this line, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    hdel $eval(goq. $+ %network) %bot
    .timerWait. $+ %network $+ . $+ %bot off
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    %a = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
    var %desc = $desc(%network,%bot,%pack.number)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ %network),%a)
      hdel $eval(clipper. $+ %network) %a
      hadd statuswin $eval(%network $+ . $+ $1. $+ $3) %network $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      whoprun $whoppers(%network,2,nick2goq $1-3,%chan,$1,$3)
    }
  }
  $iif((Bot is offline isin $gettok($1-,5,9)), Wait for the bot to go online, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    hdel $eval(goq. $+ %network) %bot
    .timerWait. $+ %network $+ . $+ %bot off
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    whoprun $whoppers(%network,2,xdcc-wait %bot %pack.number,%chan,%bot,%pack.number)
  }
  $iif((Invalid Pack Number isin $gettok($1-,5,9)), Remove this line, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    %a = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
    var %desc = $desc(network,%bot,%pack.number)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ %network),%a)
      hdel $eval(clipper. $+ %network) %a
      hadd statuswin $eval(%network $+ . $+ $1. $+ $3) %network $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      whoprun $whoppers(%network,2,nick2goq $1-3,%chan,$1,$3)
    }
  }
  $iif(Klipboard isin $gettok($1-,5,9), Remove from Klipboard, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    hdel $eval(clipper. $+ %network) $eval(%bot $+ . $+ %pack.number)    
    dline $active $$sline($active,1).ln
  }
  $iif((Added to Queue isin $gettok($1-,5,9)) || (In Queue isin $gettok($1-,5,9)), Remove From Queue, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    whoprun $whoppers(%network,2,msg $3 xdcc remove,%chan,$1,$3)
    if ($botsyntax(%bot,2,%network) != /msg %bot xdcc) whoprun $whoppers(%network,2,$botsyntax(%bot,2,%network) remove,%chan,%network,%bot)
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    %a = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
    var %desc = $desc(network,%bot,%pack.number)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ %network),%a)
      hdel $eval(clipper. $+ %network) %a
      hadd statuswin $eval(%network $+ . $+ $1. $+ $3) %network $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      whoprun $whoppers(%network,2,nick2goq $1-3,%chan,$1,$3)
    }
  }

  $iif((Added to Queue isin $gettok($1-,5,9)) || (In Queue isin $gettok($1-,5,9)), Remove this line, ) {
    tokenize 9 $1-
    var %network = $remove($1,$chr(32))
    var %chan = $remove($2,$chr(32))
    var %bot = $remove($3,$chr(32))
    var %pack.number = $remove($4,$chr(32))
    .timertimeout. $+ $eval(%network $+ . $+ %bot $+ . $+ %pack.number) off
    hdel statuswin $eval(%network $+ . $+ %bot $+ . $+ %pack.number)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    %a = $hfind($eval(clipper. $+ %network),%bot $+ .*,1,w)
    var %desc = $desc(network,%bot,%pack.number)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ %network),%a)
      hdel $eval(clipper. $+ %network) %a
      hadd statuswin $eval(%network $+ . $+ $1. $+ $3) %network $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) %desc
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      whoprun $whoppers(%network,2,nick2goq $1-3,%chan,$1,$3)
    }
  }
}
menu @Filters {
  dclick { 
    var %corn
    if ($sline(@Filters,1).ln == 1) halt
    tokenize 9 $remove($sline(@Filters,1),$chr(160))
    var %network = $strip($1)
    if ($1 == $null) { thabox Unknown network. Downloading using the Filters is impossible. $crlf $+ Please connect to the server manualy | halt }
    var %server = $strip($2)
    %channel = $strip($8)
    var %bot = $strip($3)
    %pack = $strip($4)
    scon -at5 if $!network == %network $eval({ %corn = 1 },0)
    if !%corn { 
      write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
      server -m %server
    }
    else {
      var %b = 1
      while (%b <= $scon(0)) {
        scon %b {
          if ($network1($network,$server) == %network) && ($status == Connected) {
            if ($window(%channel) == $null) join %channel
            getpack %bot $chr(9) %pack
          }
          if ($network1($network,$server) == %network) && ($status == Connecting) {
            write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
          }
        }
        inc %b
      }
    }
  }
  Refresh Window { ref-filter }
  $iif($sline(@Filters,1).ln > 1, Get this pack, ) {
    var %corn
    if ($sline(@Filters,1).ln == 1) halt
    tokenize 9 $remove($sline(@Filters,1),$chr(160))
    var %network = $strip($1)
    if ($1 == $null) { thabox Unknown network. Downloading using the Filters is impossible. $crlf $+ Please connect to the server manualy | halt }
    var %server = $strip($2)
    %channel = $strip($8)
    var %bot = $strip($3)
    %pack = $strip($4)
    scon -at5 if $!network == %network $eval({ %corn = 1 },0)
    if !%corn { 
      write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
      server -m %server
    }
    else {
      var %b = 1
      while (%b <= $scon(0)) {
        scon %b {
          if ($network1($network,$server) == %network) && ($status == Connected) {
            if ($window(%channel) == $null) join %channel
            getpack %bot $chr(9) %pack
          }
          if ($network1($network,$server) == %network) && ($status == Connecting) {
            write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
          }
        }
        inc %b
      }
    }
  }
  $iif($sline(@Filters,1).ln > 1, Get On Queue, ) {
    var %corn
    if ($sline(@Filters,1).ln == 1) halt
    tokenize 9 $remove($sline(@Filters,1),$chr(160))
    var %network = $strip($1)
    if ($1 == $null) { thabox Unknown network. Downloading using the Filters is impossible. $crlf $+ Please connect to the server manualy | halt }
    var %server = $strip($2)
    %channel = $strip($8)
    var %bot = $strip($3)
    %pack = $strip($4)
    scon -at5 if $!network == %network $eval({ %corn = 1 },0)
    if !%corn { 
      write " $+ $scriptdirklipper\workfile.tmp" %network %server %channel %bot %pack
      server -m %server
    }
    else {
      var %b = 1
      while (%b <= $scon(0)) {
        scon %b {
          if ($network1($network,$server) == %network) && ($status == Connected) {
            if ($window(%channel) == $null) join %channel
            nick2goq %bot $chr(9) %pack
          }
          if ($network1($network,$server) == %network) && ($status == Connecting) {
            write " $+ $scriptdirklipper\workfile.tmp" %network %server %channel %bot %pack
          }
        }
        inc %b
      }
    }
  }
  Clear the Filters {
    hdel -w $eval(filters) *
    clear @Filters 
    aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @Filters $chr(2) Network $chr(9) $chr(9) $chr(2) Bot $chr(9) $chr(2)  Pack $chr(9) $chr(2) Size $chr(9) $chr(9) $chr(2) Status $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
  }
  $iif($sline(@Filters, 1).ln > 1, Delete selected lines, ) { 
    if ($sline(@filters,0) == 0) halt
    var %nextline = $line(@filters,$calc($sline(@filters,$sline(@filters,0)).ln + 1))
    if ($sline(@Filters,1).ln > 1) { 
      tokenize 9 $remove($sline(@Filters,1),$chr(160))
      var %network = $strip($1)
      var %bot = $strip($3)
      %pack = $strip($4)
      dline $active $$sline($active,1).ln
      hdel filters $eval(%network $+ . $+ %bot $+ . $+ %pack)
    }
    :dlines
    if ($sline(@Filters,0) != 0) {
      if ($sline(@Filters,1).ln > 1) { 
        tokenize 9 $remove($sline(@Filters,1),$chr(160))
        var %network = $strip($1)
        var %bot = $strip($3)
        %pack = $strip($4)
        if ($sline($active,1) == $null) goto next
        dline $active $sline($active,1).ln
        hdel filters $eval(%network $+ . $+ %bot $+ . $+ %pack)
      }
      else {
        tokenize 9 $remove($sline(@Filters,1),$chr(160))
        var %network = $strip($1)
        var %bot = $strip($3)
        %pack = $strip($4)
        if ($sline($active,2) == $null) goto next
        dline $active $sline($active,2).ln
        hdel filters $eval(%network $+ . $+ %bot $+ . $+ %pack)
      }
      goto dlines
    }
    :next
    if (%nextline == $null) sline @filters $line(@filters,0)
    else {
      tokenize 32 %nextline
      sline @filters $fline(@filters,$1-11 *)
    }
  }
  $iif($sline(@Filters, 1).ln > 1, Bot-Info - Slots $+ $chr(58) $botslots($gettok($remove($strip($sline(@Filters,1)),$chr(160)),5,32),$gettok($strip($sline(@Filters,1)),1,32)) -- Record $+ $chr(58) $botrecord($gettok($remove($strip($sline(@Filters,1)),$chr(160)),5,32),$gettok($strip($sline(@Filters,1)),1,32)) -- Min $+ $chr(58) $botminimum($gettok($remove($strip($sline(@Filters,1)),$chr(160)),5,32),$gettok($strip($sline(@Filters,1)),1,32)) -- Current $+ $chr(58) $botcurrent($gettok($remove($strip($sline(@Filters,1)),$chr(160)),5,32),$gettok($strip($sline(@Filters,1)),1,32)), ) { }
  -
}
menu @GOQ* {
  $gettok($gettok($hget($eval(klipper. $+ $network1($network,$server)),$eval($1 $+ . $+ $3)),7,9),2-,32)
  -
  Remove from "Get On Queue" {
    tokenize 32 $1-
    var %chan
    .timertimeout. $+ $eval($network1($network,$server) $+ . $+ $1 $+ . $+ $3) off
    hdel $eval(goq. $+ $network1($network,$server)) $1
    hdel statuswin $eval($network1($network,$server) $+ . $+ $1. $+ $3)
    hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
    dline $active $$sline($active,1).ln
    %c = $fline(@Status_Window,$1 $chr(9) $3 *) 
    if (%c != $null) dline  @Status_Window %c
    %a = $hfind($eval(clipper. $+ $network1($network,$server)),$1 $+ .*,1,w)
    if ($lower($comchan($1,1)) != $null) %chan = $lower($comchan($1,1))
    else %chan = $botchan($network1($network,$server),$1)
    if (%a != $null) {
      tokenize 32 $hget($eval(clipper. $+ $network1($network,$server)),%a)
      hdel $eval(clipper. $+ $network1($network,$server)) %a
      hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ $3) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) $3  $chr(9) Active Requesting Pack $iogoq($1) $chr(9) $desc($network1($network,$server),$1,$3)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      getpack $1-
    }
  }
}
menu @XDCC.Find.Results* {
  dclick { 
    if ($sline(@XDCC.Find.Results $+ $network1($network,$server),1).ln > 1) getpack $replace($sline(@XDCC.Find.Results $+ $network1($network,$server),1),$chr(160),$chr(32))
  }
  $iif($sline(@XDCC.Find.Results $+ $network1($network,$server), 1).ln > 1, Get this pack, ) { getpack $replace($sline(@XDCC.Find.Results $+ $network1($network,$server),1),$chr(160),$chr(32)) }
  $iif($sline(@XDCC.Find.Results $+ $network1($network,$server), 1).ln > 1, Get On Queue functions, ) 
  .Get On Queue  {
    if ($strip($sline(@XDCC.Find.Results $+ $network1($network,$server),1)) != $null) {
      tokenize 32 $replace($strip($sline(@XDCC.Find.Results $+ $network1($network,$server),1)),$chr(160),$chr(32))
      nick2goq $1-3
    }
  }
  .$iif($hfind(statuswin,$network1($network,$server) * $gettok($strip($1),1,32) * Active *,1,w).data == $null, Scheduled Get On Queue, ) {
    var %chan
    if ($strip($sline(@XDCC.Find.Results $+ $network1($network,$server),1)) != $null) {
      var %b = $$input(Please enter time in format hh:mm :,129)
      tokenize 58 %b
      if ($1 !isnum) || ($2 !isnum) || ($1 > 23) || ($2 > 59) || ($1 < 0) || ($2 < 0) { thabox Not a Valid time. $crlf $+ The time is between 00:00 to 23:59 | halt }
      tokenize 32 $replace($strip($sline(@XDCC.Find.Results $+ $network1($network,$server),1)),$chr(160),$chr(32))
      if ($lower($comchan($1,1)) != $null) %chan = $lower($comchan($1,1))
      else %chan = $botchan($network1($network,$server),$1)     
      hadd statuswin $eval($network1($network,$server) $+ . $+ $1. $+ $3) $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) $3 $chr(9) Active Scheduled Download - %b $chr(9) $desc($network1($network,$server),$1,$3)
      hsave -o statuswin " $+ $scriptdirklipper\StatusWin.xsw"
      if ($window(@Status_Window) != $null) {
        %d = $fline(@Status_Window,$network1($network,$server) * $1 $chr(9) $3 *,1)
        if (%d == $null) aline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) $3 $chr(9) Scheduled Download - %b $chr(9) $desc($network1($network,$server),$1,$3)
        elseif ($line(@Status_Window,%d).state) rline -a $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) $3 $chr(9) Scheduled Download - %b $chr(9) $desc($network1($network,$server),$1,$3)
        else rline $readini(" $+ $scriptdirklipper\klipper.ini",config,statcolor) @Status_Window %d $network1($network,$server) $chr(9) %chan $chr(9) $1 $chr(9) $3 $chr(9) Scheduled Download - %b $chr(9) $desc($network1($network,$server),$1,$3)
      }
      .timerschedule. $+ $1 %b 1 1 nick2goq $1-3
    }
  }
  .Open List - $network1($network,$server) { 
    if ($hget($eval(goq. $+ $network1($network,$server)),0).data > 0) {
      .remove " $+ $scriptdirklipper\goq.tmp"
      hsave -n $eval(goq. $+ $network1($network,$server)) " $+ $scriptdirklipper\goq.tmp"
      window -c @GOQ $+ $network1($network,$server) 
      window -als -t16,23  +bnstx @GOQ $+ $network1($network,$server) %xfonts
      aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @GOQ $+ $network1($network,$server) $chr(2) Bot $chr(9) $chr(2) $+  Pack
      loadbuf $readini(" $+ $scriptdirklipper\klipper.ini",config,goqcolor) @GOQ $+ $network1($network,$server) " $+ $scriptdirklipper\goq.tmp"
    }
    else thabox The "Get On Queue" list is empty.
  }
  $iif($sline(@XDCC.Find.Results $+ $network1($network,$server), 1).ln > 1, Bot-Info - Slots $+ $chr(58) $botslots($gettok($strip($sline(@XDCC.Find.Results $+ $network1($network,$server),1)),1,32),$network1($network,$server)) -- Record $+ $chr(58) $botrecord($gettok($strip($sline(@XDCC.Find.Results $+ $network1($network,$server),1)),1,32),$network1($network,$server)) -- Min $+ $chr(58) $botminimum($gettok($strip($sline(@XDCC.Find.Results $+ $network1($network,$server),1)),1,32),$network1($network,$server)) -- Current $+ $chr(58) $botcurrent($gettok($strip($sline(@XDCC.Find.Results $+ $network1($network,$server),1)),1,32),$network1($network,$server)), ) { }
  -
}
menu @offline_browser {
  dclick {
    var %corn
    if ($sline(@offline_browser,1).ln == 1) halt
    tokenize 9 $remove($sline(@offline_browser,1),$chr(160))
    var %network = $remove($strip($1),$chr(32))
    if (%network == $null) { thabox Unknown network. Downloading using the Offline Browser is impossible. $crlf $+ Please connect to the server manualy | halt }
    var %server = $remove($strip($2),$chr(32))
    %channel = $remove($strip($7),$chr(32))
    var %bot = $remove($strip($3),$chr(32))
    %pack = $remove($strip($4),$chr(32))
    scon -at5 if $!network == %network $eval({ %corn = 1 },0)
    if !%corn {
      if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
      write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
      server -m %server
    }
    else {
      var %b = 1
      while (%b <= $scon(0)) {
        scon %b {
          if ($network1($network,$server) == %network) && ($status == Connected) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            if ($window(%channel) == $null) join %channel
            getpack %bot $chr(9) %pack
          }
          if ($network1($network,$server) == %network) && ($status == Connecting) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
          }
        }
        inc %b
      }
    }
  }
  Sorting
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Network, $style(1)) by Network {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting olb network
    olb
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Bot, $style(1)) by Bot {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting olb bot
    olb
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Size, $style(1)) by Size {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting olb size
    olb
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Channel, $style(1)) by Channel {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting olb channel
    olb
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Description, $style(1)) by Description {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting olb description
    olb
  }
  Get this pack {
    var %corn
    if ($sline(@offline_browser,1).ln == 1) halt
    tokenize 9 $remove($sline(@offline_browser,1),$chr(160))
    var %network = $remove($strip($1),$chr(32))
    if (%network == $null) { thabox Unknown network. Downloading using the Offline Browser is impossible. $crlf $+ Please connect to the server manualy | halt }
    var %server = $remove($strip($2),$chr(32))
    %channel = $remove($strip($7),$chr(32))
    var %bot = $remove($strip($3),$chr(32))
    %pack = $remove($strip($4),$chr(32))
    scon -at5 if $!network == %network $eval({ %corn = 1 },0)
    if !%corn {
      if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
      write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
      server -m %server
    }
    else {
      var %b = 1
      while (%b <= $scon(0)) {
        scon %b {
          if ($network1($network,$server) == %network) && ($status == Connected) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            if ($window(%channel) == $null) join %channel
            getpack %bot $chr(9) %pack
          }
          if ($network1($network,$server) == %network) && ($status == Connecting) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
          }
        }
        inc %b
      }
    }
  }
  Get On Queue {
    var %corn
    if ($sline(@offline_browser,1).ln == 1) halt
    tokenize 9 $remove($sline(@offline_browser,1),$chr(160))
    var %network = $remove($strip($1),$chr(32))
    if (%network == $null) { thabox Unknown network. Downloading using the Offline Browser is impossible. $crlf $+ Please connect to the server manualy | halt }
    var %server = $remove($strip($2),$chr(32))
    %channel = $remove($strip($7),$chr(32))
    var %bot = $remove($strip($3),$chr(32))
    %pack = $remove($strip($4),$chr(32))
    scon -at5 if $!network == %network $eval({ %corn = 1 },0)
    if !%corn {
      if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
      write " $+ $scriptdirklipper\workfile.tmp" %network %server %channel %bot %pack
      server -m %server
    }
    else {
      var %b = 1
      while (%b <= $scon(0)) {
        scon %b {
          if ($network1($network,$server) == %network) && ($status == Connected) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            if ($window(%channel) == $null) join %channel
            nick2goq %bot $chr(9) %pack
          }
          if ($network1($network,$server) == $1) && ($status == Connecting) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            write " $+ $scriptdirklipper\workfile.tmp" %network %server %channel %bot %pack
          }
        }
        inc %b
      }
    }
  }
  Connect to server and Join the channel {
    var %corn
    if ($sline(@offline_browser,1).ln == 1) halt
    tokenize 9 $remove($sline(@offline_browser,1),$chr(160))
    var %network = $remove($strip($1),$chr(32))
    if (%network == $null) { thabox Unknown network. Downloading using the Offline Browser is impossible. $crlf $+ Please connect to the server manualy | halt }
    var %server = $remove($strip($2),$chr(32))
    %channel = $remove($strip($7),$chr(32))
    var %bot = $remove($strip($3),$chr(32))
    %pack = $remove($strip($4),$chr(32))
    scon -at5 if $!network == %network $eval({ %corn = 1 },0)
    if !%corn { 
      if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
      write " $+ $scriptdirklipper\workfile.tmp" %network %server %channel
      server -m %server
    }
    else {
      var %b = 1
      while (%b <= $scon(0)) {
        scon %b {
          if ($network1($network,$server) == %network) && ($status == Connected) {
            if ($window(%channel) == $null) join %channel
          }
        }
        inc %b
      }
    }
  }
  Search Packs {
    var %b = * $+ $$replace($input(Enter search keywords:,129),$chr(32),*) $+ *
    var %sorting
    if ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Network) %sorting = -tfw 2 32 
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Bot) %sorting = -tfw 9 32
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Size) %sorting = -etfw 15 160 
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Channel) %sorting = -tfw 18 160 
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Description) %sorting = -tfw 19 160  
    filter -rwfc 2-32000 @offline_browser " $+ $scriptdirklipper\ $+ find_result.tmp" %b
    if ($lines(" $+ $scriptdirklipper\ $+ find_result.tmp") > 0) {
      window -c @offline_browser(search)
      window -alz -t12,12,28,35,43,43,57 @offline_browser(search) %xfonts
      aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @offline_browser(search) $chr(2) Network $chr(9)  $chr(9) $chr(2) Bot $chr(9) $chr(2)  Pack $chr(9) $chr(2) Size $chr(9) $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
      filter %sorting " $+ $scriptdirklipper\ $+ find_result.tmp" @offline_browser(search)
      window -b @offline_browser(search)
    }
    else { thabox Sorry, No results were found }    
  }
}
menu @offline_browser(search) {
  dclick { 
    var %corn
    if ($sline(@offline_browser(search),1).ln == 1) halt
    tokenize 9 $remove($sline(@offline_browser(search),1),$chr(160))
    var %network = $remove($strip($1),$chr(32))
    if (%network == $null) { thabox Unknown network. Downloading using the Offline Browser is impossible. $crlf $+ Please connect to the server manualy | halt }
    var %server = $remove($strip($2),$chr(32))
    %channel = $remove($strip($7),$chr(32))
    var %bot = $remove($strip($3),$chr(32))
    %pack = $remove($strip($4),$chr(32))
    scon -at5 if $!network == %network $eval({ %corn = 1 },0)
    if !%corn {
      if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
      write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
      server -m %server
    }
    else {
      var %b = 1
      while (%b <= $scon(0)) {
        scon %b {
          if ($network1($network,$server) == %network) && ($status == Connected) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            if ($window(%channel) == $null) join %channel
            getpack %bot $chr(9) %pack
          }
          if ($network1($network,$server) == %network) && ($status == Connecting) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
          }
        }
        inc %b
      }
    }
  }
  Sorting
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Network, $style(1)) by Network {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting olb network
    filter -rwfc 2-32000 @offline_browser(search) " $+ $scriptdirklipper\ $+ find_result.tmp"
    if ($window(@offline_browser(search)) != $null) clear @offline_browser(search)
    else {
      window -c @offline_browser(search)
      window -alz -t12,12,28,35,43,43,57 @offline_browser(search) %xfonts
    }
    aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @offline_browser(search) $chr(2) Network $chr(9)  $chr(9) $chr(2) Bot $chr(9) $chr(2)  Pack $chr(9) $chr(2) Size $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
    filter -tfw 2 32 " $+ $scriptdirklipper\ $+ find_result.tmp" @offline_browser(search)
    window -b @offline_browser(search)
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Bot, $style(1)) by Bot {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting olb bot
    filter -rwfc 2-32000 @offline_browser(search) " $+ $scriptdirklipper\ $+ find_result.tmp"
    if ($window(@offline_browser(search)) != $null) clear @offline_browser(search)
    else {
      window -c @offline_browser(search)
      window -alz -t12,12,28,35,43,43,57 @offline_browser(search) %xfonts
    }
    aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @offline_browser(search) $chr(2) Network $chr(9)  $chr(9) $chr(2) Bot $chr(9) $chr(2)  Pack $chr(9) $chr(2) Size $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
    filter -tfw 9 32 " $+ $scriptdirklipper\ $+ find_result.tmp" @offline_browser(search)
    window -b @offline_browser(search)
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Size, $style(1)) by Size {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting olb size
    filter -rwfc 2-32000 @offline_browser(search) " $+ $scriptdirklipper\ $+ find_result.tmp"
    if ($window(@offline_browser(search)) != $null) clear @offline_browser(search)
    else {
      window -c @offline_browser(search)
      window -alz -t12,12,28,35,43,43,57 @offline_browser(search) %xfonts
    }
    aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @offline_browser(search) $chr(2) Network $chr(9)  $chr(9) $chr(2) Bot $chr(9) $chr(2)  Pack $chr(9) $chr(2) Size $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
    filter -etfw 15 160 " $+ $scriptdirklipper\ $+ find_result.tmp" @offline_browser(search)
    window -b @offline_browser(search)
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Channel, $style(1)) by Channel {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting olb channel
    filter -rwfc 2-32000 @offline_browser(search) " $+ $scriptdirklipper\ $+ find_result.tmp"
    if ($window(@offline_browser(search)) != $null) clear @offline_browser(search)
    else {
      window -c @offline_browser(search)
      window -alz -t12,12,28,35,43,43,57 @offline_browser(search) %xfonts
    }
    aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @offline_browser(search) $chr(2) Network $chr(9)  $chr(9) $chr(2) Bot $chr(9) $chr(2)  Pack $chr(9) $chr(2) Size $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
    filter -tfw 19 160 " $+ $scriptdirklipper\ $+ find_result.tmp" @offline_browser(search)
    window -b @offline_browser(search)
  }
  .$iif($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Description, $style(1)) by Description {
    writeini " $+ $scriptdirklipper\klipper.ini" sorting olb description
    filter -rwfc 2-32000 @offline_browser(search) " $+ $scriptdirklipper\ $+ find_result.tmp"
    if ($window(@offline_browser(search)) != $null) clear @offline_browser(search)
    else {
      window -c @offline_browser(search)
      window -alz -t12,12,28,35,43,43,57 @offline_browser(search) %xfonts
    }
    aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @offline_browser(search) $chr(2) Network $chr(9)  $chr(9) $chr(2) Bot $chr(9) $chr(2)  Pack $chr(9) $chr(2) Size $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
    filter -tfw 19 160 " $+ $scriptdirklipper\ $+ find_result.tmp" @offline_browser(search)
    window -b @offline_browser(search)
  }
  Get this pack {
    var %corn
    if ($sline(@offline_browser(search),1).ln == 1) halt
    tokenize 9 $remove($sline(@offline_browser(search),1),$chr(160))
    var %network = $remove($strip($1),$chr(32))
    if (%network == $null) { thabox Unknown network. Downloading using the Offline Browser is impossible. $crlf $+ Please connect to the server manualy | halt }
    var %server = $remove($strip($2),$chr(32))
    %channel = $remove($strip($7),$chr(32))
    var %bot = $remove($strip($3),$chr(32))
    %pack = $remove($strip($4),$chr(32))
    scon -at5 if $!network == %network $eval({ %corn = 1 },0)
    if !%corn {
      if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
      write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
      server -m %server
    }
    else {
      var %b = 1
      while (%b <= $scon(0)) {
        scon %b {
          if ($network1($network,$server) == %network) && ($status == Connected) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            if ($window(%channel) == $null) join %channel
            getpack %bot $chr(9) %pack
          }
          if ($network1($network,$server) == %network) && ($status == Connecting) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            write " $+ $scriptdirklipper\workfile2.tmp" %network %server %channel %bot %pack
          }
        }
        inc %b
      }
    }
  }
  Get On Queue {
    var %corn
    if ($sline(@offline_browser(search),1).ln == 1) halt
    tokenize 9 $remove($sline(@offline_browser(search),1),$chr(160))
    var %network = $remove($strip($1),$chr(32))
    if (%network == $null) { thabox Unknown network. Downloading using the Offline Browser is impossible. $crlf $+ Please connect to the server manualy | halt }
    var %server = $remove($strip($2),$chr(32))
    %channel = $remove($strip($7),$chr(32))
    var %bot = $remove($strip($3),$chr(32))
    %pack = $remove($strip($4),$chr(32))
    scon -at5 if $!network == %network $eval({ %corn = 1 },0)
    if !%corn {
      if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
      write " $+ $scriptdirklipper\workfile.tmp" %network %server %channel %bot %pack
      server -m %server
    }
    else {
      var %b = 1
      while (%b <= $scon(0)) {
        scon %b {
          if ($network1($network,$server) == %network) && ($status == Connected) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            if ($window(%channel) == $null) join %channel
            nick2goq %bot $chr(9) %pack
          }
          if ($network1($network,$server) == $1) && ($status == Connecting) {
            if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel
            write " $+ $scriptdirklipper\workfile.tmp" %network %server %channel %bot %pack
          }
        }
        inc %b
      }
    }
  }
  Connect to server and Join the channel {
    var %corn
    if ($sline(@offline_browser(search),1).ln == 1) halt
    tokenize 9 $remove($sline(@offline_browser(search),1),$chr(160))
    var %network = $remove($strip($1),$chr(32))
    if (%network == $null) { thabox Unknown network. Downloading using the Offline Browser is impossible. $crlf $+ Please connect to the server manualy | halt }
    var %server = $remove($strip($2),$chr(32))
    %channel = $remove($strip($7),$chr(32))
    var %bot = $remove($strip($3),$chr(32))
    %pack = $remove($strip($4),$chr(32))
    scon -at5 if $!network == %network $eval({ %corn = 1 },0)
    if !%corn {
      if ($hget(botchan,%network $+ . $+ %bot) == $null) || ($hget(botchan,%network $+ . $+ %bot) != %channel) hadd botchan $eval(%network $+ . $+ %bot) %channel 
      write " $+ $scriptdirklipper\workfile.tmp" %network %server %channel
      server -m %server
    }
    else {
      var %b = 1
      while (%b <= $scon(0)) {
        scon %b {
          if ($network1($network,$server) == %network) && ($status == Connected) {
            if ($window(%channel) == $null) join %channel
          }
        }
        inc %b
      }
    }
  }
  Search Packs {
    var %b = * $+ $replace($$input(Enter search keywords:,129),$chr(32),*) $+ *
    var %sorting
    if ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Network) %sorting = -tfw 2 32 
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Bot) %sorting = -tfw 9 32
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Size) %sorting = -etfw 15 160 
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Channel) %sorting = -tfw 18 160 
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",sorting,olb) == Description) %sorting = -tfw 19 160  
    filter -rwfc 2-32000 @offline_browser(search) " $+ $scriptdirklipper\ $+ find_result.tmp" %b
    if ($lines(" $+ $scriptdirklipper\ $+ find_result.tmp") > 0) {
      window -c @offline_browser(search)
      window -alz -t12,12,28,35,43,43,57 @offline_browser(search) %xfonts
      aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @offline_browser(search) $chr(2) Network $chr(9) $chr(9) $chr(2) Bot $chr(9) $chr(2)  Pack $chr(9) $chr(2) Size $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
      filter %sorting " $+ $scriptdirklipper\ $+ find_result.tmp" @offline_browser(search)
      window -b @offline_browser(search)
    }
    else { thabox Sorry, No results were found }    
  }
}
menu query,nicklist {
  XDCC Klipper Functions
  .Bots Listing
  ..&XDCC List Packs { $botsyntax($$1,2,$network1($network,$server)) list }
  ..&List Selected Bots {
    var %nick-number = 2
    var %current-nick = $$snick($chan,1)
    hadd $eval(listpacks. $+ $network1($network,$server)) %current-nick 1
    while (%nick-number <= $snick($chan,0)) {
      %current-nick = $$snick($chan,%nick-number)
      hadd $eval(listpacks. $+ $network1($network,$server)) %current-nick 1
      inc %nick-number
    }
    if ($timer(listP. $+ $network1($network,$server)) !isnum) { 
      %c = $$hget($eval(listpacks. $+ $network1($network,$server)),1).item
      $botsyntax(%c,2,$network1($network,$server)) list
      hdel $eval(listpacks. $+ $network1($network,$server)) %c
      .timerlistP. $+ $network1($network,$server) 0 $readini(" $+ $scriptdirklipper\klipper.ini",config,listpt) scanpack
    }
  }
  ..&Stop Multiple Listing {
    .timerlistP. $+ $network1($network,$server) off
    hdel -w $eval(listpacks. $+ $network1($network,$server)) *
  }
  .Get Pack 
  ..&[ Packs 1-10 ]
  ...Pack 1 { getpack $1 $chr(9) #001 }
  ...Pack 2 { getpack $1 $chr(9) #002 }
  ...Pack 3 { getpack $1 $chr(9) #003 }
  ...Pack 4 { getpack $1 $chr(9) #004 }
  ...Pack 5 { getpack $1 $chr(9) #005 }
  ...Pack 6 { getpack $1 $chr(9) #006 }
  ...Pack 7 { getpack $1 $chr(9) #007 }
  ...Pack 8 { getpack $1 $chr(9) #008 }
  ...Pack 9 { getpack $1 $chr(9) #009 }
  ...Pack 10 { getpack $1 $chr(9) #010 }
  ..&[ Packs 11-20 ]
  ...Pack 11 { getpack $1 $chr(9) #011 }
  ...Pack 12 { getpack $1 $chr(9) #012 }
  ...Pack 13 { getpack $1 $chr(9) #013 }
  ...Pack 14 { getpack $1 $chr(9) #014 }
  ...Pack 15 { getpack $1 $chr(9) #015 }
  ...Pack 16 { getpack $1 $chr(9) #016 }
  ...Pack 17 { getpack $1 $chr(9) #017 }
  ...Pack 18 { getpack $1 $chr(9) #018 }
  ...Pack 19 { getpack $1 $chr(9) #019 }
  ...Pack 20 { getpack $1 $chr(9) #020 }
  ..&[ Packs 21-30 ]
  ...Pack 21 { getpack $1 $chr(9) #021 }
  ...Pack 22 { getpack $1 $chr(9) #022 }
  ...Pack 23 { getpack $1 $chr(9) #023 }
  ...Pack 24 { getpack $1 $chr(9) #024 }
  ...Pack 25 { getpack $1 $chr(9) #025 }
  ...Pack 26 { getpack $1 $chr(9) #026 }
  ...Pack 27 { getpack $1 $chr(9) #027 }
  ...Pack 28 { getpack $1 $chr(9) #028 }
  ...Pack 29 { getpack $1 $chr(9) #029 }
  ...Pack 30 { getpack $1 $chr(9) #030 }
  ..Other Pack Number {
    var %b = $remove($$input(Enter Pack Number:,129),$chr(35))
    if (%b isnum) && (%b > 0) getpack $1 $chr(9) $chr(35) $+ %b
    else Echo 4 -a Not a valid pack number.
  }
  .Get On Queue
  ..&[ Packs 1-10 ]
  ...Pack 1 { nick2goq $1 $chr(9) #001 }
  ...Pack 2 { nick2goq $1 $chr(9) #002 }
  ...Pack 3 { nick2goq $1 $chr(9) #003 }
  ...Pack 4 { nick2goq $1 $chr(9) #004 }
  ...Pack 5 { nick2goq $1 $chr(9) #005 }
  ...Pack 6 { nick2goq $1 $chr(9) #006 }
  ...Pack 7 { nick2goq $1 $chr(9) #007 }
  ...Pack 8 { nick2goq $1 $chr(9) #008 }
  ...Pack 9 { nick2goq $1 $chr(9) #009 }
  ...Pack 10 { nick2goq $1 $chr(9) #010 }
  ..&[ Packs 11-20 ]
  ...Pack 11 { nick2goq $1 $chr(9) #011 }
  ...Pack 12 { nick2goq $1 $chr(9) #012 }
  ...Pack 13 { nick2goq $1 $chr(9) #013 }
  ...Pack 14 { nick2goq $1 $chr(9) #014 }
  ...Pack 15 { nick2goq $1 $chr(9) #015 }
  ...Pack 16 { nick2goq $1 $chr(9) #016 }
  ...Pack 17 { nick2goq $1 $chr(9) #017 }
  ...Pack 18 { nick2goq $1 $chr(9) #018 }
  ...Pack 19 { nick2goq $1 $chr(9) #019 }
  ...Pack 20 { nick2goq $1 $chr(9) #020 }
  ..&[ Packs 21-30 ]  
  ...Pack 21 { nick2goq $1 $chr(9) #021 }
  ...Pack 22 { nick2goq $1 $chr(9) #022 }
  ...Pack 23 { nick2goq $1 $chr(9) #023 }
  ...Pack 24 { nick2goq $1 $chr(9) #024 }
  ...Pack 25 { nick2goq $1 $chr(9) #025 }
  ...Pack 26 { nick2goq $1 $chr(9) #026 }
  ...Pack 27 { nick2goq $1 $chr(9) #027 }
  ...Pack 28 { nick2goq $1 $chr(9) #028 }
  ...Pack 29 { nick2goq $1 $chr(9) #029 }
  ...Pack 30 { nick2goq $1 $chr(9) #030 }
  ..Other Pack Number {
    var %b = $remove($$input(Enter Pack Number:,129),$chr(35))
    if (%b isnum) && (%b > 0) nick2goq $1 $chr(9) $chr(35) $+ %b
    else Echo 4 -a Not a valid pack number.
  }
  .$iif($hfind(statuswin,$network1($network,$server) * $gettok($strip($1),1,32) * Active *,1,w).data == $null, Scheduled Get On Queue, ) {
    var %b = $remove($$input(Enter Pack Number:,129),$chr(35))
    if (%b isnum) && (%b > 0) xdccscheduled $1 $chr(35) $+ %b
    else Echo 4 -a Not a valid pack number.
  }
  .Enter Syntax manualy {
    var %b = $$input(Enter Syntax for this Bot:,129)
    hadd $eval(botstatus. $+ $network1($network,$server)) $eval($1 $+ .syntax) %b 
  }
  .Offline Bots
  ..Request a Pack {
    var %b = $$input(Enter Bot and #Pack:,129)
    if ($gettok(%b,2,32) != $null) && ($chr(35) isin $gettok(%b,2,32)) xdcc-wait %b 
  }
  ..$iif($readini(" $+ $scriptdirklipper\klipper.ini",config,offbaa) == 1,Disable the Auto Apply...,Auto Apply to all requested packs) {
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,offbaa) == 1) {
      writeini " $+ $scriptdirklipper\klipper.ini" config offbaa 0
    }
    else {
      writeini " $+ $scriptdirklipper\klipper.ini" config offbaa 1
    } 
  } 
}
menu status,channel,chat,@xdccklipper*,@Filters {
  Search with Search Engines {
    if ($dialog(searchengine).title != $null) dialog -x searchengine searchengine
    dialog -m searchengine searchengine
  }
  XDCC Klipper Windows
  .Open the Status Window { statuswin }
  .Open the XDCC Klipper Window - $network1($network,$server) { xdccklipper }
  .Open the Filters Window { filters }
  Offline Browser
  .&Open the Offline Browser { olb }
  .&Search Packs {
    var %b = * $+ $replace($$input(Enter search keywords:,129),$chr(32),*) $+ *
    .remove " $+ $scriptdirklipper\olb.tmp"
    hsave -n olb " $+ $scriptdirklipper\olb.tmp"
    filter -ffc  " $+ $scriptdirklipper\olb.tmp" " $+ $scriptdirklipper\ $+ find_result.tmp" %b
    if ($lines(" $+ $scriptdirklipper\ $+ find_result.tmp") > 0) {
      window -c @offline_browser(search)
      window -alz -t12,12,28,35,43,43,57 @offline_browser(search) %xfonts
      aline $readini(" $+ $scriptdirklipper\klipper.ini",config,headlines) @offline_browser(search) $chr(2) Network $chr(9) $chr(2) Server $chr(9) $chr(2) Bot $chr(9) $chr(2)  Pack $chr(9) $chr(2) Size $chr(9) $chr(2) Channel $chr(9) $chr(2) Description
      filter -tfw 2 32 " $+ $scriptdirklipper\ $+ find_result.tmp" @offline_browser(search)
      window -b @offline_browser(search)
    }
    else { thabox Sorry, No results were found }    
  }
  .&Make a HTML table. { neptune }
  .&Clear File { 
    hdel -w olb *
    hsave -o olb " $+ $scriptdirklipper\olb.hash"
  }
  Script Options
  .XDCC Klipper configuration { xdccconfig }
  .Reload/Unload script
  ..Reload XDCC Klipper { .signal ruload  }
  ..Unload XDCC Klipper { .unload -rs " $+ $scriptdirxdccklipper.mrc" }
  ;.Start Packs Submission now { xdccsubmit }
  .Registry Key Maker
  ..Windows 9x { xdcc-rkm 1 }
  ..Windows XP/2K { xdcc-rkm 2 }
  .Help
  ..Support
  ...PDF Version { run http://xdccklipper.sourceforge.net/support/support.pdf }
  ...HTML Version { run http://xdccklipper.sourceforge.net/support/support.html }
  ..Website { run http://xdccklipper.sourceforge.net/ }
  ..XDCC Klipper Forum { run http://xdccklipper.sourceforge.net/forum/ }
  ..E-mail { run mailto:xdccklipper@hotmail.com?subject=XDCC Klipper }
  .Turn XDCC Klipper $iif($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 1,Off,On) {
    if ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 1) { 
      writeini " $+ $scriptdirklipper\klipper.ini" config xdccon 0
      window -c @XDCCKlipper*
      window -c @Status_Window
      window -c @GOQ*
      window -c @Filters
      window -c @XDCC.Find.Results*
      window -c @Offline_Browser*
      .timerschedule.* off
      .timersonny.* off
      .timerWait.* off
      .timerlistp.* off
      hdel -w statuswin * 
    }
    elseif ($readini(" $+ $scriptdirklipper\klipper.ini",config,xdccon) == 0) writeini " $+ $scriptdirklipper\klipper.ini" config xdccon 1 
  }
}
menu status,channel,chat,@xdccklipper* {
  Special Get On Queue time
  .Set Special Get On Queue time for $network1($network,$server) {
    var %b = $$input(Enter time is Sec:,129)
    if (%b < 60) || (%b !isnum) %b = 60
    if ($read(" $+ $scriptdirklipper\specialgoq.txt",w,$network1($network,$server) *) != $null) write -l $+ $readn " $+ $scriptdirklipper\specialgoq.txt" $network1($network,$server) %b
    else write " $+ $scriptdirklipper\specialgoq.txt" $network1($network,$server) %b
  }
  .Remove Special Get On Queue time for $network1($network,$server) {
    if ($read(" $+ $scriptdirklipper\specialgoq.txt",w,$network1($network,$server) *) != $null) write -dl $+ $readn " $+ $scriptdirklipper\specialgoq.txt"
  }
  .Open List {
    if ($lines(" $+ $scriptdirklipper\specialgoq.txt") > 0) {
      window -c @Special-GOQ-Time
      window -als -t16,23  +bnstx @Special-GOQ-Time %xfonts
      loadbuf $readini(" $+ $scriptdirklipper\klipper.ini",config,goqcolor) @Special-GOQ-Time " $+ $scriptdirklipper\specialgoq.txt"
    }
    else thabox The "Special Get On Queue Time" list is empty.

  }
}