Ren-Ren's Fileserver — File Browser
Ren-RensFileserverv1.2 / Ren-RensFileserverv1.2 / rfs-dmn.mrc
rfs-dmn.mrc — 30.04 KB — Download this file
; Ren-Ren's Fileserver v1.2
; Copyright© 2001-2003 by Adrian Au. All rights reserved.
; http://adrian.saxtus.gr
; http://www.geocities.com/renx2
; renx2@yahoo.com
;
on 1:unload:{
var %~rfsu = $rfs-def(win)
if (%_rfsunload != 1) unset %rfs*
hfree -w rfs*
if ($dialog(%~rfsu) != $null) dialog -x %~rfsu
}
on 1:dialog:RFS-*:init:0:{
rfs-varcheck
rfs-fsshow
}
on 1:dialog:RFS-*:sclick:1:rfs-fsinfoshow
on 1:dialog:RFS-*:sclick:4:if ($did(1).sel != $null) rfs-filecache $gettok($did(1).seltext,2,32)
on 1:dialog:RFS-*:sclick:15:{
if ($dialog(RFSAddTrig [ $+ [ $rfs-network ] ] ) != $null) {
did -r RFSAddTrig $+ $rfs-network 1,3,7,11
did -u RFSAddTrig $+ $rfs-network 13,14,15,16
did -a RFSAddTrig $+ $rfs-network 1 $gettok($did(15).seltext,1,160)
did -a RFSAddTrig $+ $rfs-network 3 $gettok($did(15).seltext,2,160)
did -a RFSAddTrig $+ $rfs-network 7 $gettok($did(15).seltext,3,160)
did -a RFSAddTrig $+ $rfs-network 11 $gettok($did(15).seltext,4,160)
if ($gettok($did(15).seltext,5,160) != none) did -c RFSAddTrig $+ $rfs-network $replace($gettok($did(15).seltext,5,160),o,13,h,14,v,15,r,16)
}
}
on 1:dialog:RFS-*:sclick:23:{
var %~rfsd = 1
while ($did(1,$did(1,%~rfsd).sel) != $null) {
rfs-fson $gettok($did(1,$did(1,%~rfsd).sel),2,32)
inc %~rfsd 1
}
rfs-fsshow
}
on 1:dialog:RFS-*:sclick:24:{
if ($hget(rfs-fs) == $null) goto End
var %~rfsd = 1
:A
if ($did(1,$did(1,%~rfsd).sel) != $null) {
rfs-fsoff $gettok($did(1,$did(1,%~rfsd).sel),2,32)
inc %~rfsd 1
goto A
}
rfs-fsshow
:End
}
on 1:dialog:RFS-*:sclick:25:{
if ($did(1).sel != $null) var %~rfsd = $rfs-alert(1,Remove selected Fserves?)
if (%~rfsd != Yes) goto End
while ($did(1).sel != $null) {
var %~rfsd = $gettok($did(1,$did(1).sel),2,32)
if ($hget(rfs-fs,%~rfsd) != $null) hdel rfs-fs %~rfsd
remini -n $rfs-def(ini) fs %~rfsd
remini -n $rfs-def(ini) fs- $+ %~rfsd
remini -n $rfs-def(ini) profile- $+ %~rfsd
remini -n $rfs-def(ini) stat- $+ %~rfsd
remini -n $rfs-def(ini) sched- $+ %~rfsd
.remove " $+ %rfs-dir $+ rfs-file $+ %~rfsd $+ .ini"
.remove " $+ %rfs-dir $+ fs- $+ %~rfsd $+ .fsc"
unset %rfs-stat-cps- [ $+ [ %~rfsd ] ]
did -d $rfs-def(win) 1 $did(1).sel
.timerrfsad $+ %~rfsd $+ * off
}
if ($hget(rfs-fs) != $null) && ($hget(rfs-fs,0).item < 1) hfree rfs-fs
did -r $rfs-def(win) 3,6,7,8,9,10,11,12,13,14,15,16,17,18,19,47,69,71
did -c $rfs-def(win) 74,75,76,77,78,79
did -u $rfs-def(win) 73
did -o $rfs-def(win) 48 1 Pause Sel. Q&ueue(s)
:End
}
on 1:dialog:RFS-*:sclick:26:rfs-ddialog $rfs-def(win) s
on 1:dialog:RFS-*:sclick:29:{
dialog -ma RFSAddTrig $+ $rfs-network rfsaddtrig
if ($did(15).sel != $null) {
did -r RFSAddTrig $+ $rfs-network 1,3,7,11
did -u RFSAddTrig $+ $rfs-network 13,14,15,16
did -a RFSAddTrig $+ $rfs-network 1 $gettok($did(15).seltext,1,160)
did -a RFSAddTrig $+ $rfs-network 3 $gettok($did(15).seltext,2,160)
did -a RFSAddTrig $+ $rfs-network 7 $gettok($did(15).seltext,3,160)
did -a RFSAddTrig $+ $rfs-network 11 $gettok($did(15).seltext,4,160)
if ($gettok($did(15).seltext,5,160) != none) did -c RFSAddTrig $+ $rfs-network $replace($gettok($did(15).seltext,5,160),o,13,h,14,v,15,r,16)
}
else did -c RFSAddTrig $+ $rfs-network 13,14,15,16
}
on 1:dialog:RFS-*:sclick:30:{
while ($did(15).sel != $null) {
did -d $rfs-def(win) 15 $did(15).sel
}
did -z $rfs-def(win) 15
}
on 1:dialog:RFS-*:sclick:31:did -r $rfs-def(win) 15
on 1:dialog:RFS-*:sclick:33:{
if ($did(10) == $null) goto End
var %~rfsprev = $did(10).lines
while (%~rfsprev > 0) {
var %~rfsprev3 = $did(10,%~rfsprev) %~rfsprev3
dec %~rfsprev 1
}
unset %~rfsprev
var %~rfsprev2 = 1
while ($did(15,%~rfsprev2) != $null) {
var %~rfsprev = $addtok(%~rfsprev,$gettok($did(15,%~rfsprev2),1,160),160)
inc %~rfsprev2 1
}
if (%~rfsprev != $null) {
if ($did(12) == $null) did -a $rfs-def(win) 12 $rfs-def(trigsep)
var %~rfsprev2 = $replace(%~rfsprev,<ctcp>,/ctcp $me,<action>,/me,$chr(160),$chr(32) $+ $did(12) $+ $chr(32))
var %~rfsprev3 = $replace(%~rfsprev3,<trigger>,%~rfsprev2)
}
if ($did(6) isnum) {
var %~rfsprev3 = $replace(%~rfsprev3,<maxq>,$did(6))
var %~rfsprev5 = $did(6)
}
else {
var %~rfsprev3 = $replace(%~rfsprev3,<maxq>,$gettok($rfs-opt(prop),1,32))
var %~rfsprev5 = $gettok($rfs-opt(prop),1,32)
}
if ($did(7) isnum) {
var %~rfsprev3 = $replace(%~rfsprev3,<maxsend>,$did(7))
var %~rfsprev = $did(7)
}
else {
var %~rfsprev3 = $replace(%~rfsprev3,<maxsend>,$gettok($rfs-opt(prop),2,32))
var %~rfsprev = $gettok($rfs-opt(prop),2,32)
}
if ($did(8) isnum) var %~rfsprev3 = $replace(%~rfsprev3,<maxq-i>,$did(8))
else var %~rfsprev3 = $replace(%~rfsprev3,<maxq-i>,$gettok($rfs-opt(prop),3,32))
if ($did(9) isnum) var %~rfsprev3 = $replace(%~rfsprev3,<maxsend-i>,$did(9))
else var %~rfsprev3 = $replace(%~rfsprev3,<maxsend-i>,$gettok($rfs-opt(prop),4,32))
if ($did(13) isnum) {
var %~rfsprev3 = $replace(%~rfsprev3,<maxonline>,$did(13))
var %~rfsprev2 = $did(13)
}
else {
var %~rfsprev3 = $replace(%~rfsprev3,<maxonline>,$gettok($rfs-opt(prop),5,32))
var %~rfsprev2 = $gettok($rfs-opt(prop),5,32)
}
if ($did(19) isnum) var %~rfsprev3 = $replace(%~rfsprev3,<mincps>,$did(19))
else var %~rfsprev3 = $replace(%~rfsprev3,<mincps>,$gettok($rfs-opt(prop),6,32))
if ($did(47) isnum) var %~rfsprev3 = $replace(%~rfsprev3,<maxcps>,$did(47))
else var %~rfsprev3 = $replace(%~rfsprev3,<maxcps>,$gettok($rfs-opt(prop),7,32))
if ($did(1).sel != $null) {
rfs-qchk $gettok($did(1).seltext,2,32)
var %~rfsprev3 = $replace(%~rfsprev3,<queue>,$line(@rfs-q- [ $+ [ $gettok($did(1).seltext,2,32) ] ] ,0),<freeq>,$calc(%~rfsprev5 - $line(@rfs-q- [ $+ [ $gettok($did(1).seltext,2,32) ] ] ,0)))
var %~rfsprev4 = $rfs-sendcnt($gettok($did(1).seltext,2,32),%~rfsprev,1)
var %~rfsprev3 = $replace(%~rfsprev3,<send>,$calc(%~rfsprev - %~rfsprev4),<freesend>,%~rfsprev4)
var %~rfsprev4 = $rfs-onlinecnt($gettok($did(1).seltext,2,32),%~rfsprev2,1)
var %~rfsprev3 = $replace(%~rfsprev3,<online>,$calc(%~rfsprev2 - %~rfsprev4),<freeonline>,%~rfsprev4)
var %~rfsprev3 = $replace(%~rfsprev3,<fson>,$rfs-statfsonoff($gettok($did(1).seltext,2,32),on),<fsoff>,$rfs-statfsonoff($gettok($did(1).seltext,2,32),off))
var %~rfsprev5 = <created> <access> <sent> <sentb> <fail> <failb> <recordcps>
var %~rfsprev7 = 1 access sent sentb fail failb cps
var %~rfsprev6 = 7
while (%~rfsprev6 > 0) {
if ($gettok(%~rfsprev5,%~rfsprev6,32) isin %~rfsprev3) {
var %~rfsprev4 = $rfs-stat($gettok($did(1).seltext,2,32),$gettok(%~rfsprev7,%~rfsprev6,32))
if (%~rfsprev4 == $null) var %~rfsprev4 = N/A
var %~rfsprev3 = $replace(%~rfsprev3,$gettok(%~rfsprev5,%~rfsprev6,32),%~rfsprev4)
}
dec %~rfsprev6 1
}
}
if ($rfs-opt(ad) == 1) var %~rfsprev3 = %~rfsprev3 15» Using $rfs-def(scripts) «
if ($line(@rfs-q- [ $+ [ $gettok($did(1).seltext,2,32) ] ] ,0) < 1) window -c @rfs-q- $+ $gettok($did(1).seltext,2,32)
did -r $rfs-def(win) 14
did -a $rfs-def(win) 14 $strip(%~rfsprev3)
rfs-log 2 $+ $rfs-opt(color1) $+ RFS Preview: %~rfsprev3
:End
}
on 1:dialog:RFS-*:sclick:34:{
did -r $rfs-def(win) 10,14
did -a $rfs-def(win) 10 $rfs-def(ad)
}
on 1:dialog:RFS-*:sclick:35:rfs-alert 0 Parameters: <trigger> <maxq> <maxsend> <maxonline> <maxq-i> <maxsend-i> <mincps> <maxcps> <queue> <send> <online> <freeq> <freesend> <freeonline> <created> <access> <sent> <sentb> <fail> <failb> <recordcps> <fson> <fsoff>
on 1:dialog:RFS-*:sclick:37:{
if ($dialog(rfs= [ $+ [ $rfs-network ] ] ) != $null) did -c rfs= $+ $rfs-network
dialog -ma rfs= $+ $rfs-network $+ $1 rfsstatbox
did -i rfs= $+ $rfs-network 1 1 Created: $rfs-stat($gettok($did(1).seltext,2,32),1)
did -i rfs= $+ $rfs-network 1 2 Access: $rfs-stat($gettok($did(1).seltext,2,32),access)
did -i rfs= $+ $rfs-network 1 3 Files Sent: $rfs-stat($gettok($did(1).seltext,2,32),sent)
did -i rfs= $+ $rfs-network 1 4 Bytes Sent: $rfs-stat($gettok($did(1).seltext,2,32),sentb)
did -i rfs= $+ $rfs-network 1 5 Files Failed: $rfs-stat($gettok($did(1).seltext,2,32),fail)
did -i rfs= $+ $rfs-network 1 6 Bytes Failed: $rfs-stat($gettok($did(1).seltext,2,32),failb)
did -i rfs= $+ $rfs-network 1 7 Record CPS: $rfs-stat($gettok($did(1).seltext,2,32),cps)
}
on 1:dialog:RFS-*:sclick:38:rfs-ddialog $rfs-def(win) q
on 1:dialog:RFS-*:sclick:39:rfs-ddialog $rfs-def(win) p
on 1:dialog:RFS-*:sclick:41:rfs-moveup $rfs-def(win) 15 $calc($did(15).sel - 1)
on 1:dialog:RFS-*:sclick:42:rfs-movedown $rfs-def(win) 15 $calc($did(15).sel + 2)
on 1:dialog:RFS-*:sclick:43:rfs-moveup $rfs-def(win) 15 1
on 1:dialog:RFS-*:sclick:44:rfs-movedown $rfs-def(win) 15 $calc($did(15).lines + 1)
on 1:dialog:RFS-*:sclick:46:rfs-pauseq $gettok($did(1).seltext,2,32) | rfs-fsdef
on 1:dialog:RFS-*:sclick:48:{
if ($did(1).sel == $null) goto End
if ($did(48) == Pause Sel. Q&ueue(s)) {
var %~rfspauseq2 = 0
did -o $rfs-def(win) 48 1 Start Sel. Q&ueue(s)
}
else did -o $rfs-def(win) 48 1 Pause Sel. Q&ueue(s)
var %~rfspauseq = 1
while ($did(1,%~rfspauseq).sel != $null) {
if (%~rfspauseq2 == 0) {
if ($findtok(%rfs-q,$gettok($did(1,$did(1,%~rfspauseq).sel),2,32),1,32) == $null) %rfs-q = $addtok(%rfs-q,$gettok($did(1,$did(1,%~rfspauseq).sel),2,32),32)
}
elseif ($findtok(%rfs-q,$gettok($did(1,$did(1,%~rfspauseq).sel),2,32),1,32) != $null) {
%rfs-q = $remtok(%rfs-q,$gettok($did(1,$did(1,%~rfspauseq).sel),2,32),1,32)
rfs-qsend $gettok($did(1,$did(1,%~rfspauseq).sel),2,32)
}
inc %~rfspauseq 1
}
:End
}
on 1:dialog:RFS-*:sclick:49:{
if ($did(1).sel == $null) goto End
var %~rfsstop = $rfs-alert(1,Stop current sends from the selected Fserves?)
if (%~rfsstop != Yes) goto End
did -o $rfs-def(win) 48 1 Start Sel. Q&ueue(s)
var %~rfsstop5 = 1
while ($did(1,%~rfsstop5).sel != $null) {
var %~rfsstop2 = $gettok($did(1,$did(1,%~rfsstop5).sel),2,32)
rfs-qchk %~rfsstop2
var %~rfsstop = 1
while ($send(%~rfsstop) != $null) {
:A
var %~rfsstop3 = $send(%~rfsstop) $+ $chr(160) $+ $replace($send(%~rfsstop).path,$chr(32),$chr(95)) $+ $replace($send(%~rfsstop).file,$chr(32),$chr(95))
if ($gettok(%rfs-send- [ $+ [ %~rfsstop3 ] ],1,32) == %~rfsstop2) {
var %~rfsstop4 = 1
while ($send($send(%~rfsstop),%~rfsstop4) != $null) {
if ($send($send(%~rfsstop),%~rfsstop4).path $+ $send($send(%~rfsstop),%~rfsstop4).file == $send(%~rfsstop).path $+ $send(%~rfsstop).file) {
iline @rfs-q- $+ %~rfsstop2 1 $send(%~rfsstop) $replace($gettok(%rfs-send- [ $+ [ %~rfsstop3 ] ],2-5,32),$chr(32),$chr(46)) $gettok(%rfs-send- [ $+ [ %~rfsstop3 ] ],6,32) $send(%~rfsstop).path $+ $send(%~rfsstop).file
close -s $+ %~rfsstop4 $send(%~rfsstop)
goto A
}
inc %~rfsstop4 1
}
}
inc %~rfsstop 1
}
savebuf @rfs-q- $+ %~rfsstop2 " $+ $rfs-opt(dir) $+ rfs-q- $+ %~rfsstop2 $+ .rfs"
inc %~rfsstop5 1
}
:End
}
on 1:dialog:RFS-*:sclick:50:rfs-savefs
on 1:dialog:RFS-*:sclick:51:rfs-savefs 1
on 1:dialog:RFS-*:sclick:67:{
if ($did(1).sel != $null) rfs-msgchan $gettok($did(1).seltext,2,32) $rfs-ad($gettok($did(1).seltext,2,32))
beep 1
}
on 1:dialog:RFS-*:sclick:68:did -c $rfs-def(win) 1
on 1:dialog:RFS-*:sclick:81:{
if ($did(1).sel == $null) did -c $rfs-def(win) 1 1
if ($did(1).sel == $null) goto End
if ($rfs-alert(1,Reset checked stats of selected Fserve?) != Yes) goto End
if ($did(76).state == 1) remini -n $rfs-def(ini) stat- $+ $gettok($did(1).seltext,2,32) access
if ($did(77).state == 1) {
remini -n $rfs-def(ini) stat- $+ $gettok($did(1).seltext,2,32) sent
remini -n $rfs-def(ini) stat- $+ $gettok($did(1).seltext,2,32) sentb
}
if ($did(78).state == 1) {
remini -n $rfs-def(ini) stat- $+ $gettok($did(1).seltext,2,32) fail
remini -n $rfs-def(ini) stat- $+ $gettok($did(1).seltext,2,32) failb
}
if ($did(79).state == 1) .remove " $+ $rfs-opt(dir) $+ rfs-file $+ $gettok($did(1).seltext,2,32) $+ .ini"
rfs-alert 0 Checked stats removed for Fserve $gettok($did(1).seltext,2,32)
:End
}
on 1:dialog:RFS-*:sclick:82:rfs-alert 0 Sending files directly to a user's IP requires the user to turn on DCC Server, and Listen for Sends on the selected port (currently port $rfs-opt(ipsendport) $+ ) (in mIRC Options or by typing: /dccserver +s on $rfs-opt(ipsendport) )
on 1:dialog:RFS-*:menu:92:rfs-unload
on 1:dialog:RFS-*:menu:94:rfs-logwin
on 1:dialog:RFS-*:menu:95:if ($exists($rfs-def(logfile)) == $true) run $rfs-def(logfile)
on 1:dialog:RFS-*:menu:98:run $rfs-opt(dir) $+ rfsdoc.htm
on 1:dialog:RFS-*:menu:99:run $rfs-def(page)
on 1:dialog:RFS-*:sclick:200:if ($did(203,1) == $null) rfs-banlistc
on 1:dialog:RFS-*:sclick:202:rfs-banlistn
on 1:dialog:RFS-*:sclick:204:{
while ($did(203).sel != $null) {
if ($address($did(203).seltext,3) != $null) did -a $rfs-def(win) 201 $address($did(203).seltext,3) $asctime(yyyy/mm/dd h:nn:sstt ddd)
else {
rfs-whois $did(203).seltext rfs-whoisdid $rfs-def(win) 201 $did(203).seltext 3 <address> $asctime(yyyy/mm/dd h:nn:sstt ddd)
var %~rfsban = 1
}
did -d $rfs-def(win) 203 $did(203).sel
}
if (%~rfsban == 1) rfs-alert 3 Please wait...
}
on 1:dialog:RFS-*:sclick:205:{
set -u1 %rfs-alert1 $address($me,3)
var %~rfsenterban = $gettok($rfs-alert(2,Enter nick or address to ban: (example shown is your address)),1,32)
if (%~rfsenterban == $null) goto End
if (@ !isin %~rfsenterban) {
if ($address(%~rfsenterban,3) != $null) var %~rfsenterban = $address(%~rfsenterban,3)
else {
rfs-whois %~rfsenterban rfs-whoisdid $rfs-def(win) 201 %~rfsenterban 3 <address> $asctime(yyyy/mm/dd h:nn:sstt ddd)
rfs-alert 3 Please wait...
goto End
}
}
if ($didwm(201,%~rfsenterban *) > 0) rfs-alert 0 Entry already exists for %~rfsenterban
else did -a $rfs-def(win) 201 %~rfsenterban $asctime(yyyy/mm/dd h:nn:sstt ddd)
:End
}
on 1:dialog:RFS-*:sclick:206:{
while ($did(201).sel != $null) {
did -d $rfs-def(win) 201 $did(201).sel
}
}
on 1:dialog:RFS-*:sclick:207:did -r $rfs-def(win) 201
on 1:dialog:RFS-*:sclick:208:{
if ($did(201).sel != $null) {
set -u1 %rfs-alert1 $did(201).seltext
var %~rfsbanedit = $rfs-alert(2,Edit ban information:)
if ($numtok(%~rfsbanedit,32) > 1) did -o $rfs-def(win) 201 $did(201).sel %~rfsbanedit
}
}
on 1:dialog:RFS-*:sclick:209:rfs-banlistc
on 1:dialog:RFS-*:sclick:210:savebuf -o $rfs-def(win) 201 $rfs-def(banfile)
on 1:dialog:RFS-*:sclick:300:rfs-credlist
on 1:dialog:RFS-*:sclick:302:{
set -u1 %rfs-alert1 $address($me,3) 100
var %~rfscredadd = $gettok($rfs-alert(2,Enter address followed by credit value: (example shown is your address with 100 credits)),1-2,32)
if (%~rfscredadd == $null) || (@ !isin $gettok(%~rfscredadd,1,32)) || ($gettok(%~rfscredadd,2,32) !isnum) goto End
var %~rfscredadd2 = $ctime
writeini -n $rfs-def(inir) credit $gettok(%~rfscredadd,1,32) $abs($gettok(%~rfscredadd,2,32)) %~rfscredadd2
if ($did(306).state == 1) did -a $rfs-def(win) 301 $asctime(%~rfscredadd2,yyyy/mm/dd h:nn:sstt ddd) $gettok(%~rfscredadd,1,32) $abs($gettok(%~rfscredadd,2,32))
elseif ($did(307).state == 1) did -a $rfs-def(win) 301 $gettok(%~rfscredadd,1,32) $abs($gettok(%~rfscredadd,2,32)) $asctime(%~rfscredadd2,yyyy/mm/dd h:nn:sstt ddd)
else did -a $rfs-def(win) 301 $abs($gettok(%~rfscredadd,2,32)) $gettok(%~rfscredadd,1,32) $asctime(%~rfscredadd2,yyyy/mm/dd h:nn:sstt ddd)
:End
}
on 1:dialog:RFS-*:sclick:303:{
var %~rfscredrem = 0
while ($did(301).sel != $null) {
inc %~rfscredrem 1
if ($did(306).state == 1) remini $rfs-def(inir) credit $gettok($did(301).seltext,4,32)
elseif ($did(307).state == 1) remini $rfs-def(inir) credit $gettok($did(301).seltext,1,32)
else remini $rfs-def(inir) credit $gettok($did(301).seltext,2,32)
}
rfs-alert 0 Removed %~rfscredrem entries.
}
on 1:dialog:RFS-*:sclick:304:{
var %~rfscredclr = $rfs-alert(1,Clear all credit data?)
if (%~rfscredclr == Yes) {
remini -n $rfs-def(inir) credit
did -r $rfs-def(win) 301
}
}
on 1:dialog:RFS-*:sclick:305:{
if ($did(301).sel == $null) goto End
var %~rfscrededit = $abs($gettok($rfs-alert(2,Enter new credit value:),1,32))
if (%~rfscrededit !isnum) goto End
if ($did(306).state == 1) {
writeini -n $rfs-def(inir) credit $gettok($did(301).seltext,4,32) %~rfscrededit $ctime($gettok($did(301).seltext,1-3,32))
var %~rfscrededit2 = $gettok($did(301).seltext,1-4,32) %~rfscrededit
}
elseif ($did(307).state == 1) {
writeini -n $rfs-def(inir) credit $gettok($did(301).seltext,1,32) %~rfscrededit $ctime($gettok($did(301).seltext,3-,32))
var %~rfscrededit2 = $gettok($did(301).seltext,1,32) %~rfscrededit $ctime($gettok($did(301).seltext,3-,32))
}
else {
writeini -n $rfs-def(inir) credit $gettok($did(301).seltext,2,32) %~rfscrededit $ctime($gettok($did(301).seltext,3-,32))
var %~rfscrededit2 = %~rfscrededit $gettok($did(301).seltext,2-,32)
}
did -d $rfs-def(win) 301 $did(301).sel
did -a $rfs-def(win) 301 %~rfscrededit2
:End
}
on 1:dialog:RFS-*:sclick:306:did -u $rfs-def(win) 307,308 | rfs-credlist
on 1:dialog:RFS-*:sclick:307:did -u $rfs-def(win) 306,308 | rfs-credlist
on 1:dialog:RFS-*:sclick:308:did -u $rfs-def(win) 306,307 | rfs-credlist
on 1:dialog:RFS-*:sclick:402:rfs-logwin
on 1:dialog:RFS-*:sclick:403:did -r $rfs-def(win) 401
on 1:dialog:RFS-*:sclick:500:if ($dialog(RFSOption [ $+ [ $rfs-network ] ] ) == $null) { did -f $rfs-def(win) 100 | dialog -ma RFSOption $+ $rfs-network rfsoption }
on 1:dialog:RFSAddTrig*:sclick:4:{
if ($did(3) != $null) && ($exists($did(3)) == $true) var %~rfspath = $sdir($did(3),RFS Choose Fserve starting directory)
else var %~rfspath = $sdir($rfs-opt(dir),RFS Choose Fserve starting directory)
if (%~rfspath != $null) did -o RFSAddTrig $+ $rfs-network 3 1 %~rfspath
}
on 1:dialog:RFSAddTrig*:sclick:5:{
if ($did(3) != $null) && ($exists($did(3)) == $true) var %~rfspath = $sfile($did(3),RFS Choose file to send on trigger:)
else var %~rfspath = $sfile($rfs-opt(dir),RFS Choose file to send on trigger:)
if (%~rfspath != $null) did -o RFSAddTrig $+ $rfs-network 3 1 %~rfspath
}
on 1:dialog:RFSAddTrig*:sclick:8:{
if ($did(7) != $null) && ($exists($nofile($did(7))) == $true) var %~rfsfile = $sfile( [ [ $nofile($did(7)) ] $+ ] *.txt,RFS Choose Fserve welcome text file)
else var %~rfsfile = $sfile( [ [ $rfs-opt(dir) ] $+ ] *.txt,RFS Choose Fserve welcome text file)
if (%~rfsfile != $null) did -o RFSAddTrig $+ $rfs-network 7 1 %~rfsfile
}
on 1:dialog:RFSAddTrig*:sclick:9:if ($exists($did(7)) == $true) run $did(7)
on 1:dialog:RFSAddTrig*:sclick:18:{
if ($did(1) == $null) { rfs-alert 0 You must enter a trigger. | halt }
if ($did(3) == $null) { rfs-alert 0 You must enter an Fserve starting directory/file. | halt }
if ($exists($did(3)) != $true) { rfs-alert 0 Invalid starting directory/file $did(3) | halt }
if ($did(7) == $null) || ($file($did(3)) != $null) did -o RFSAddTrig $+ $rfs-network 7 1 none
elseif ($did(7) != none) && ($exists($did(7)) != $true) { rfs-alert 0 Invalid welcome text file $did(7) | halt }
if ($did(11) !isnum) || ($file($did(3)) != $null) did -o RFSAddTrig $+ $rfs-network 11 1 0
if ($did(13).state == 1) var %~rfstrig2 = o
if ($did(14).state == 1) var %~rfstrig2 = $addtok(%~rfstrig2,h,44)
if ($did(15).state == 1) var %~rfstrig2 = $addtok(%~rfstrig2,v,44)
if ($did(16).state == 1) var %~rfstrig2 = $addtok(%~rfstrig2,r,44)
if (%~rfstrig2 == $null) var %~rfstrig2 = none
var %~rfstrig = 1
while ($did($rfs-def(win),15,%~rfstrig) != $null) {
if ($gettok($did($rfs-def(win),15,%~rfstrig),1,160) == $did(1)) {
did -o $rfs-def(win) 15 %~rfstrig $did(1) $+ $str($chr(160),3) $+ $did(3) $+ $str($chr(160),3) $+ $did(7) $+ $str($chr(160),3) $+ $did(11) $+ $str($chr(160),3) $+ %~rfstrig2
did -c $rfs-def(win) 15 %~rfstrig
did -z $rfs-def(win) 15
goto End
}
inc %~rfstrig 1
}
did -a $rfs-def(win) 15 $did(1) $+ $str($chr(160),3) $+ $did(3) $+ $str($chr(160),3) $+ $did(7) $+ $str($chr(160),3) $+ $did(11) $+ $str($chr(160),3) $+ %~rfstrig2
did -c $rfs-def(win) 15 $did(15).lines
did -z $rfs-def(win) 15
:End
}
on 1:dialog:RFSOption*:init:0:{
did -a RFSOption $+ $rfs-network 5 $rfs-opt(dir)
did -a RFSOption $+ $rfs-network 7 $rfs-opt(sound1)
did -a RFSOption $+ $rfs-network 9 $rfs-opt(sound2)
if ($rfs-opt(desktop) == 1) did -c RFSOption $+ $rfs-network 2
if ($rfs-opt(ontop) == 1) did -c RFSOption $+ $rfs-network 3
if ($rfs-opt(log,fsopen) == 1) did -c RFSOption $+ $rfs-network 77
if ($rfs-opt(log,fslogin) == 1) did -c RFSOption $+ $rfs-network 78
if ($rfs-opt(log,fserror) == 1) did -c RFSOption $+ $rfs-network 79
if ($rfs-opt(log,filercvd) == 1) did -c RFSOption $+ $rfs-network 80
if ($rfs-opt(log,filesent) == 1) did -c RFSOption $+ $rfs-network 81
if ($rfs-opt(log,sendfail) == 1) did -c RFSOption $+ $rfs-network 82
if ($rfs-opt(antiidle) == 1) did -c RFSOption $+ $rfs-network 38
if ($rfs-opt(ratio) == 1) did -c RFSOption $+ $rfs-network 39
if ($rfs-opt(onchan) == 1) did -c RFSOption $+ $rfs-network 40
if ($rfs-opt(ad) == 1) did -c RFSOption $+ $rfs-network 41
if ($rfs-opt(msg,onchanmsgaccess) == 1) did -c RFSOption $+ $rfs-network 43
if ($rfs-opt(msg,onchanmsgfail) == 1) did -c RFSOption $+ $rfs-network 44
if ($rfs-opt(msg,cps) == 1) did -c RFSOption $+ $rfs-network 45
if ($rfs-opt(msg,clone) == 1) did -c RFSOption $+ $rfs-network 46
if ($rfs-opt(msg,ban) == 1) did -c RFSOption $+ $rfs-network 47
if ($rfs-opt(msg,dccallow) == 1) did -c RFSOption $+ $rfs-network 48
if ($rfs-opt(fsoffstopq) == 1) did -c RFSOption $+ $rfs-network 83
if ($rfs-opt(ontoplog) == 1) did -c RFSOption $+ $rfs-network 84
if ($rfs-opt(noticeshow) == 1) did -c RFSOption $+ $rfs-network 85
if ($rfs-opt(qdupchk) == 1) did -c RFSOption $+ $rfs-network 86
if ($rfs-opt(pauseqonget) == 1) did -c RFSOption $+ $rfs-network 87
did -a RFSOption $+ $rfs-network 23 $rfs-opt(fs,maxq,1 $rfs-opt(prop))
did -a RFSOption $+ $rfs-network 25 $rfs-opt(fs,maxsend,1 $rfs-opt(prop))
did -a RFSOption $+ $rfs-network 27 $rfs-opt(fs,maxonline,1 $rfs-opt(prop))
did -a RFSOption $+ $rfs-network 30 $rfs-opt(fs,maxq-i,1 $rfs-opt(prop))
did -a RFSOption $+ $rfs-network 32 $rfs-opt(fs,maxsend-i,1 $rfs-opt(prop))
did -a RFSOption $+ $rfs-network 34 $rfs-opt(fs,mincps,1 $rfs-opt(prop))
did -a RFSOption $+ $rfs-network 36 $rfs-opt(fs,maxcps,1 $rfs-opt(prop))
var %~rfstmp = 1
:A
var %~rfstmp2 = $ini($rfs-def(ini),Network,%~rfstmp)
if (%~rfstmp2 > 0) {
did -a RFSOption $+ $rfs-network 10 %~rfstmp2 $readini $rfs-def(ini) Network %~rfstmp2
inc %~rfstmp 1
goto A
}
if ($exists( [ [ $rfs-opt(dir) ] $+ ] rfs-quicktutorial.txt) != $true) goto End
var %~rfstmp = 1
:B
var %~rfstmp2 = $read -l $+ %~rfstmp $rfs-opt(dir) $+ rfs-quicktutorial.txt
if (%~rfstmp2 != $null) {
did -a RFSOption $+ $rfs-network 301 %~rfstmp2 $crlf
inc %~rfstmp 1
goto B
}
:End
}
on 1:dialog:RFSOption*:sclick:2:rfs-switch desktop 18
on 1:dialog:RFSOption*:sclick:3:rfs-switch ontop 17
on 1:dialog:RFSOption*:sclick:5:{
var %~rfsd = $sdir($rfs-opt(dir),Select RFS directory:)
if (%~rfsd != $null) %rfs-dir = %~rfsd
}
on 1:dialog:RFSOption*:sclick:7:{
if (%rfs-sound1 != $null) %rfs-sound1 = $sfile( [ [ $nofile(%rfs-sound1) ] $+ ] *.wav,Select system sound (cancel for none):)
elseif (%rfs-sound2 != $null) %rfs-sound1 = $sfile( [ [ $nofile(%rfs-sound2) ] $+ ] *.wav,Select system sound (cancel for none):)
else %rfs-sound1 = $sfile( [ [ $rfs-opt(dir) ] $+ ] *.wav,Select system sound (cancel for none):)
did -o RFSOption $+ $rfs-network 7 1 %rfs-sound1
}
on 1:dialog:RFSOption*:sclick:9:{
if (%rfs-sound2 != $null) %rfs-sound2 = $sfile( [ [ $nofile(%rfs-sound2) ] $+ ] *.wav,Select warning sound (cancel for none):)
elseif (%rfs-sound1 != $null) %rfs-sound2 = $sfile( [ [ $nofile(%rfs-sound1) ] $+ ] *.wav,Select warning sound (cancel for none):)
else %rfs-sound2 = $sfile( [ [ $rfs-opt(dir) ] $+ ] *.wav,Select warning sound (cancel for none):)
did -o RFSOption $+ $rfs-network 9 1 %rfs-sound2
}
on 1:dialog:RFSOption*:sclick:11:{
if ($gettok($did(10),2,32) != $null) {
var %~rfsd = $rfs-def(win)
var %~rfsd2 = RFSOption $+ $rfs-network
writeini -n $rfs-def(ini) Network $gettok($did(10),1-2,32)
if ($gettok($did(10),1,32) == $server) {
%rfs-network = $gettok($did(10),2,32)
dialog -x %~rfsd2
dialog -x %~rfsd
rfs
dialog -ma RFSOption $+ $rfs-network rfsoption
}
else {
did -a RFSOption $+ $rfs-network 10 $gettok($did(10),1-2,32)
did -d RFSOption $+ $rfs-network 10 0
}
}
}
on 1:dialog:RFSOption*:sclick:12:{
if ($did(10) != $null) {
remini -n $rfs-def(ini) Network $gettok($did(10),1,32)
if ($ini($rfs-def(ini),Network,0) < 1) remini -n $rfs-def(ini) Network
did -d RFSOption $+ $rfs-network 10 $didwm($rfs-def(win),10,$did(10))
did -d RFSOption $+ $rfs-network 10 0
}
}
on 1:dialog:RFSOption*:sclick:13:{
if ($rfs-alert(1,Clear Network List?) == Yes) {
remini -n $rfs-def(ini) Network
did -r RFSOption $+ $rfs-network 10
}
}
on 1:dialog:RFSOption*:sclick:15:{
%rfs-sound1 = $rfs-def(sound1)
%rfs-sound2 = $rfs-def(sound2)
%rfs-opt = $rfs-def(opt)
%rfs-list = $rfs-def(list)
%rfs-find = $rfs-def(find)
dialog -x RFSOption $+ $rfs-network
dialog -ma RFSOption $+ $rfs-network rfsoption
}
on 1:dialog:RFSOption*:edit:18:if ($did(18) != $null) %rfs-list = $did(18)
on 1:dialog:RFSOption*:edit:20:if ($did(20) != $null) %rfs-find = $did(20)
on 1:dialog:RFSOption*:edit:23:if ($did(23) isnum) && ($did(23) >= 0) %rfs-opt = $puttok(%rfs-opt,$puttok($rfs-opt(prop),$did(23),1,32),1,46)
on 1:dialog:RFSOption*:edit:25:if ($did(25) isnum) && ($did(25) >= 0) %rfs-opt = $puttok(%rfs-opt,$puttok($rfs-opt(prop),$did(25),2,32),1,46)
on 1:dialog:RFSOption*:edit:27:if ($did(27) isnum) && ($did(27) >= 0) %rfs-opt = $puttok(%rfs-opt,$puttok($rfs-opt(prop),$did(27),5,32),1,46)
on 1:dialog:RFSOption*:edit:30:if ($did(30) isnum) && ($did(30) >= 0) %rfs-opt = $puttok(%rfs-opt,$puttok($rfs-opt(prop),$did(30),3,32),1,46)
on 1:dialog:RFSOption*:edit:32:if ($did(32) isnum) && ($did(32) >= 0) %rfs-opt = $puttok(%rfs-opt,$puttok($rfs-opt(prop),$did(32),4,32),1,46)
on 1:dialog:RFSOption*:edit:34:if ($did(34) isnum) && ($did(34) >= 0) %rfs-opt = $puttok(%rfs-opt,$puttok($rfs-opt(prop),$did(34),6,32),1,46)
on 1:dialog:RFSOption*:edit:36:if ($did(36) isnum) && ($did(36) >= 0) %rfs-opt = $puttok(%rfs-opt,$puttok($rfs-opt(prop),$did(36),7,32),1,46)
on 1:dialog:RFSOption*:sclick:38:rfs-switch antiidle 5
on 1:dialog:RFSOption*:sclick:39:rfs-switch ratio 14
on 1:dialog:RFSOption*:sclick:40:rfs-switch onchan 16
on 1:dialog:RFSOption*:sclick:41:rfs-switch ad 2
on 1:dialog:RFSOption*:sclick:43:rfs-switch msg onchanmsgaccess 4 1
on 1:dialog:RFSOption*:sclick:44:rfs-switch msg onchanmsgfail 4 2
on 1:dialog:RFSOption*:sclick:45:rfs-switch msg cps 4 3
on 1:dialog:RFSOption*:sclick:46:rfs-switch msg clone 4 4
on 1:dialog:RFSOption*:sclick:47:rfs-switch msg ban 4 5
on 1:dialog:RFSOption*:sclick:48:rfs-switch msg dccallow 4 6
on 1:dialog:RFSOption*:edit:49:if ($did(49) isnum) %rfs-opt = $puttok(%rfs-opt,$abs($did(49)),6,46)
on 1:dialog:RFSOption*:edit:51:if ($did(51) isnum) %rfs-opt = $puttok(%rfs-opt,$abs($did(51)),13,46)
on 1:dialog:RFSOption*:edit:53:if ($did(53) isnum) %rfs-opt = $puttok(%rfs-opt,$abs($did(53)),15,46)
on 1:dialog:RFSOption*:edit:55:{
if ($did(55) isnum) && ($did(55) >= 0) %rfs-opt = $puttok(%rfs-opt,$abs($did(55)),11,46)
elseif ($left($did(55),$calc($len($did(55)) - 1)) isnum) && ($left($did(55),$calc($len($did(55)) - 1)) > 0) && ($right($did(55),1) == $chr(37)) %rfs-opt = $puttok(%rfs-opt, [ [ $abs($did(55)) ] $+ [ $chr(37) ] ] ,11,46)
}
on 1:dialog:RFSOption*:edit:57:if ($did(57) isnum) %rfs-opt = $puttok(%rfs-opt,$abs($did(57)),10,46)
on 1:dialog:RFSOption*:edit:59:if ($did(59) isnum) %rfs-opt = $puttok(%rfs-opt,$abs($did(59)),8,46)
on 1:dialog:RFSOption*:edit:61:if ($did(61) isnum) %rfs-opt = $puttok(%rfs-opt,$abs($did(61)),9,46)
on 1:dialog:RFSOption*:edit:63:if ($did(63) isnum) %rfs-opt = $puttok(%rfs-opt,$abs($did(63)),7,46)
on 1:dialog:RFSOption*:edit:65:if ($did(65) isnum) %rfs-opt = $puttok(%rfs-opt,$abs($did(65)),12,46)
on 1:dialog:RFSOption*:sclick:67:if ($exists($rfs-def(logfile)) == $true) run $rfs-def(logfile)
on 1:dialog:RFSOption*:sclick:69:{
var %~rfsd = $gettok($rfs-alert(2,Enter new total max cps:),1,32)
if (%~rfsd isnum) {
.dcc maxcps $abs(%~rfsd)
did -o RFSOption $+ $rfs-network 68 1 $abs(%~rfsd)
saveini
}
}
on 1:dialog:RFSOption*:edit:70:if ($did(70) >= 0) && ($did(70) < 16) %rfs-opt = $puttok(%rfs-opt,$did(70),19,46)
on 1:dialog:RFSOption*:edit:72:if ($did(72) >= 0) && ($did(72) < 16) %rfs-opt = $puttok(%rfs-opt,$did(72),20,46)
on 1:dialog:RFSOption*:edit:74:if ($did(74) >= 0) && ($did(74) < 16) %rfs-opt = $puttok(%rfs-opt,$did(74),21,46)
on 1:dialog:RFSOption*:sclick:76:rfs-log 2 $+ $rfs-opt(color1) $+ RFS Color preview: Primary color $+ $rfs-opt(color3) Secondary color $+ $rfs-opt(color2) Warning color
on 1:dialog:RFSOption*:sclick:77:rfs-switch log fsopen 3 1
on 1:dialog:RFSOption*:sclick:78:rfs-switch log fslogin 3 2
on 1:dialog:RFSOption*:sclick:79:rfs-switch log fserror 3 3
on 1:dialog:RFSOption*:sclick:80:rfs-switch log filercvd 3 4
on 1:dialog:RFSOption*:sclick:81:rfs-switch log filesent 3 5
on 1:dialog:RFSOption*:sclick:82:rfs-switch log sendfail 3 6
on 1:dialog:RFSOption*:sclick:83:rfs-switch fsoffstopq 22
on 1:dialog:RFSOption*:sclick:84:rfs-switch ontoplog 23
on 1:dialog:RFSOption*:sclick:85:rfs-switch noticeshow 24
on 1:dialog:RFSOption*:sclick:86:rfs-switch qdupchk 27
on 1:dialog:RFSOption*:sclick:87:rfs-switch pauseqonget 29
on 1:dialog:RFSOption*:sclick:303:run $rfs-def(page)
on 1:dialog:RFSOption*:sclick:305:run $rfs-opt(dir) $+ rfsdoc.htm
; End of script