| $+ $chr(160) $+ %network $+ | $+ $chr(160) $+ %bot $+ | $+ $chr(160) $+ %pack.number $+ | $+ $chr(160) $+ %size $+ | $+ $chr(160) $+ %chan $+ | $+ $chr(160) $+ $8 $+ |
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.
}
}