IRcap — File Browser
ircap871-mircscripts_2799 / ircap871-mircscripts_2799 / mod / Fserver / setup_fserver.mrc
setup_fserver.mrc — 12.32 KB — Download this file
alias SETUP_fserver {
%setup.pñ2 = 140 92 1 Fservertab $s(1) $+ $+ $s(2) $+ $+ $s(3) $+ $+ $s(4) $+ $+ $s(5) $+ $+ $s(6)
%setup.fsmax = $o(1) | %setup.fsctcp = $o(2) | %setup.fslist = $o(3) | %setup.fstanu = $o(4) | %setup.fslogf = $o(5) | %setup.fsclon = $o(6) | %setup.fsext = $o(7) | %setup.fsanu = $o(8) | %setup.fsflod = $o(9)
fservertab 1
}
alias -l S return $hget(fserver,$1)
alias FserverTab {
cuag @setup 128 92 444 200 gui
pestana @setup setup.pñ2
unset %setup.ls1 %setup.ls2 %setup.op %setup.tx %setup.cb %setup.bt
if $1 == 1 {
cuagi @setup 244 116 104 24 gui $s(7)
cuagi @setup 140 116 76 24 gui $s(8)
%setup.ls1 = 136 128 76 9 1 0 fs.clicksesion @hash1
%setup.ls2 = 240 128 304 9 9999 0 return @FS.logsesion
%setup.op = 280 268 setup.fslogf/fs.set_log $s(9)
%setup.bt = 444 264 8 fs.guitrig_clog x|484 264 60 vlog_f.server $s(10) |136 264 80 fs.menunick $s(11)
window -c @hash1 | window -hls @hash1 | fs.llenausr
fs.logsesion
}
if $1 == 2 {
unset %setup.fstrig %setup.fsdir %setup.fsbie %setup.fscan %setup.fsacc
cuag @setup 136 112 164 168 gui $s(2)
%setup.ls1 = 144 126 128 8 1 0 FS.guitrig_clickFS.onoff1 @hash1 0,18
%setup.tx = 308 120 164 setup.fstrig ! $+ $s(12) |308 168 200 setup.fsdir ! $+ $s(13) |308 216 200 setup.fsbie ! $+ $s(14) |308 264 252 setup.fscan ! $+ $s(15)
%setup.bt = 512 164 6 FS.setupa_dir !|540 164 6 FS.setupa_veo >|512 212 6 FS.setupa_bie !|540 212 6 FS.setupa_ebie e|156 252 8 FS.setupa_+t +|184 252 8 FS.setupa_-t -|212 252 36 FS.setupa_onoff on/off
%setup.cb = 480 120 76 setup.fsacc $s(16) $+ $+ $s(17) $+ $+ $s(18) $+ $+ $s(19) $+ ! $+ $s(20)
window -c @hash1 | window -hl @hash1 | fs.llenatrig
}
if $1 == 3 {
%setup.ls1 = 404 124 124 10 1 0 returnFS.onoff2 @hash1 0,20
cuagr @setup 136 108 240 172
cuagr @setup 384 108 180 172 $s(21)
%setup.op = 152 242 setup.fsclon/fs.set $s(22) |152 260 setup.fsflod/fs.set $s(23)
%setup.tx = 152 172 60 setup.fsmax ! $+ $s(24) |152 216 212 setup.fsext ! $+ $s(25)
%setup.cb = 148 128 56 setup.fsctcp MSGCTCP ! $+ $s(26)
window -c @hash1 | window -hl @hash1 | fs.llenacom
}
if $1 == 4 {
cuagr @setup 140 116 420 36
cuari @setup 144 210 416 50 gui $s(27)
%setup.op = 152 128 setup.fsanu/fs.set_spam $s(28) |416 128 setup.fslist/fs.set $s(29)
%setup.tx = 312 128 40 setup.fstanu $s(30) |144 176 412 fsbanner ! $+ $s(31)
%setup.bt = 310 264 72 FS.guitrig_banner_L $s(32) |170 264 72 FS.guitrig_banner_+ $s(33) |446 264 72 ircapweb_ayuda $s(94)
fs.previobanner
}
if $1 == 5 {
%setup.ls1 = 148 140 384 7 1 0 return @hash1 0,138,210
cuagr @setup 136 108 428 172
%setup.bt = 272 248 50 fs.guitrig_ban_+ +|364 248 50 fs.guitrig_ban_- -
guitgrid @setup %setup.ls1 $s(34) $s(35) $s(36)
window -c @hash1 | window -hl @hash1 | fs.llenabans
}
if $1 == 6 {
unset %setup.fstop10
cuagr @setup 136 104 188 180 $s(6)
cuagr @setup 332 104 232 180 $s(37)
%setup.ls1 = 144 120 152 9 1 0 return @hash1
%setup.ls2 = 340 136 192 8 1 0 return @hash2 0,26
%setup.bt = 184 256 68 fs.guitrig_rst1 $s(38) |408 256 68 fs.guitrig_rst2 $s(38)
var %n = 1 , %c | :L1 | var %a = $readini(%perfil,fserver,T $+ %n) | if (%a) { %c = $addtok(%c,$replace($gettok(%a,1,32),…, $chr(32)),22) | inc %n | goto L1 }
%setup.cb = 404 116 140 setup.fstop10 %c $+ $+ $s(39)
window -c @hash1 | window -hl @hash1 | fs.llenastats
window -c @hash2 | window -hl @hash2
}
%setup.op = %setup.op $+ |150 300 #FS-serv/fs.guitrig_act $s(41)
%setup.bt = %setup.bt $+ |444 296 100 loadu_g-dccs $s(40)
muestrasetup
}
alias FS.set {
%fs.o = %setup.fsmax $+ , $+ %setup.fsctcp $+ , $+ %setup.fslist $+ , $+ %setup.fstanu $+ , $+ %setup.fslogf $+ , $+ %setup.fsclon $+ , $+ %setup.fsext $+ , $+ %setup.fsanu $+ , $+ %setup.fsflod
writeini %perfil fserver o %fs.o
if $1 == spam {
if (%setup.fsanu == off) .timerFSanuncia off
if (%setup.fsanu == on) {
if ($group(#fs-serv) == on) { .timerFSanuncia -io 0 $calc(%setup.fstanu * 60) FS-serv anuncia }
}
}
}
alias FS.llenausr if (1 Fservertab isin %setup.pñ2) { clear @hash1 | var %i = 1 | :L1 | var %a = $fserv(%i) | if (%a) { aline @hash1 %a | inc %i | goto L1 } | guilista @setup setup.ls1 | drawline @setup }
alias FS.menunick {
if (!$1) { window -c @tttip | smenu fs.menunick 150 $s(43) $+ $+ $s(44) $+ $+ $s(45) $+ $+ $s(46) $+ - $+ $s(47) $+ $+ $s(48) $+ - $+ $s(49) $+ $+ $s(50) | return }
var %n = $sline(@hash1,1) | if (%n) goto $1 | return
:1 | w %n | return
:2 | q %n | return
:3 | fs.ban+ %n $+ $chr(8) $+ $date $+ $chr(8) $+ $?=" $mg(razonkik) " | goto 6
:4 | dcc send %n | return
:6 | close -f %n | FS.llenausr | return
:7 | close -s %n | return
:9 | close -f | FS.llenausr | return
:10 | close -s
}
alias FS.llenatrig {
var %s = $sline(@hash1,1).ln | clear @hash1 | var %n = 1 | :L1 | var %a = $readini(%perfil,fserver,T $+ %n) | if (%a) {
aline @hash1 $iif($gettok(%a,6,32) == on,#/#on,#/#off) $+ $chr(8) $+ $replace($gettok(%a,1,32),…, $chr(32)) $+ $chr(8) $+ %a | inc %n | goto L1
}
if (%s) sline @hash1 %s
}
alias FS.llenacom {
var %c = $readini(%perfil,fserver,com) , %n = 1 | :L1 | var %a = $gettok(%c,%n,44) | if (%a) { aline @hash1 $iif($gettok(%a,2,32) == on,#/#on,#/#off) $+ $chr(8) $+ $gettok(%a,1,32) | inc %n | goto L1 }
}
alias FS.llenabans {
var %s = $sline(@hash1,1).ln | clear @hash1 | var %n = 1 | :L1 | var %a = $readini(%perfil,fserver,B $+ %n) | if (%a) {
aline @hash1 $gettok(%a,1,32) $+ $chr(8) $+ $gettok(%a,2,32) $+ $chr(8) $+ $gettok(%a,3-,32) $+ $chr(8) $+ %n | inc %n | goto L1
}
if (%s) sline @hash1 %s
}
alias FS.llenastats {
var %m = aline @hash1 , %r = $round($calc($readini(%perfil,dccstats,record) / 1024),1) kB/s -> $readini(%perfil,dccstats,campeon) | sendstat
%m $s(51) $+ : $send(0) $+ / $+ %fsn
%m $s(52) $+ : $gettok($result,1,32)
%m $s(53) $+ : $gettok($result,2,32)
%m $s(54) $+ : $nonull($line(@dccola,0)) $+ / $+ %dcque.max
%m $s(55) $+ : $gettok($result,3-9,32)
%m $s(56) $+ : $readini(%perfil,dccstats,send) ( $+ $bytes($readini(%perfil,dccstats,bsend)).suf $+ )
%m $s(57) $+ : %r
%m $s(58) $+ : $readini(%perfil,DCCstats,logins)
%m $s(8) $+ : $fserv(0) $+ / $+ $o(1))
}
alias FS.guitrig {
goto $1
:click | var %a = $readini(%perfil,fserver,T $+ $sline(@hash1,1).ln) | %setup.fsdir = $longfn($gettok(%a,2,32)) | if ($gettok(%a,2,32) == -) { %setup.fsdir = }
%setup.fsbie = $longfn($gettok(%a,3,32)) | if ($gettok(%a,3,32) == -) { %setup.fsbie = } | %setup.fscan = $gettok(%a,5,32)
%setup.fsacc = $gettok($s(16) $+ $+ $s(17) $+ $+ $s(18) $+ $+ $s(19),$findtok(*ovov,$gettok(%a,4,32),1,22),22) | %setup.fstrig = $replace($gettok(%a,1,32),…,$chr(32))
muestrasetup | return
:act | fs-serv $group(#fs-serv) | return
:banner
if $2 == L { loads listador | $listador($mg2(mp3ba),$mg(aceptar),$nofile(%perfil) $+ fserverbanner.txt,fs.guitrig banner s <item>,1) }
if $2 == + write $nofile(%perfil) $+ fserverbanner.txt %fsbanner
if $2 == s { %fsbanner = $3- | muestrasetup | fs.previobanner }
return
:ban
var %a = $sline(@hash1,1)
if $2 == + { var %a = $gettok($$?=" $s(59) ",1,32) $+ $chr(8) $+ $date $+ $chr(8) $+ $?=" $mg(razonkik) " | fs.ban+ %a | fs.llenabans | muestrasetup }
if $2 == - {
var %n = $gettok(%a,4,8) | if (%n) {
:L2 | var %l = $readini(%perfil,fserver,B $+ $calc(%n + 1)) | if (%l) { writeini %perfil fserver B $+ %n %l | inc %n | goto L2 } | remini %perfil fserver B $+ %n
}
fs.llenabans | sline -r @hash1 | muestrasetup
}
return
:rst1 | var %c = remini %perfil dccstats | %c send | %c get | %c bsend | %c bget | %c record | %c campeon | %c logins | writeini %perfil dccstats fecha $date | .timer -mo 1 100 FserverTab 6 | return
:rst2 | if (%setup.fstop10) remini s\log\fservertop10.log $replace(%setup.fstop10,$chr(32),…) | .timer -mo 1 100 FserverTab 6 | return
:clog | clear @fs.logsesion | muestrasetup | return
}
alias FS.ban+ {
var %b = $replace($1-,$chr(8),$chr(32)) , %m = $gettok(%b,1,32) | if (@ !isin %m) { %b = $puttok(%b,%m $+ !*@*,1,32) } | if (!$gettok(%b,3,32)) { %b = $addtok(%b,-,32) }
var %n = 1 | :L1 | var %a = $readini(%perfil,fserver,B $+ %n) | if (!%a) { writeini %perfil fserver B $+ %n %b | return } | inc %n | goto L1
}
alias FS.onoff1 {
var %l = $sline(@hash1,1) , %ln = $sline(@hash1,1).ln , %a = #/#on | if (!%ln) return | if ($gettok(%l,1,8) == #/#on) { %a = #/#off } | %l = $puttok(%l,%a,1,8) | rline @hash1 %ln %l | sline @hash1 %ln
var %l = $readini(%perfil,fserver,T $+ %ln) | writeini %perfil fserver T $+ %ln $gettok(%l,1-5,32) $remove(%a,#/#)
fspillatriggers
}
alias FS.onoff2 {
if (%tmp.noclic) return
var %l = $sline(@hash1,1) , %ln = $sline(@hash1,1).ln , %a = #/#on | if (!%ln) return | if ($gettok(%l,1,8) == #/#on) { %a = #/#off } | %l = $puttok(%l,%a,1,8) | rline @hash1 %ln %l | sline @hash1 %ln
set -u1 %tmp.noclic 1 | .timerTMPUNSER -mo 1 100 unset %tmp.noclic | muestrasetup
var %n = 1 , %c | :L1 | var %a = $line(@hash1,%n) | if (%a) { %c = $addtok(%c,$gettok(%a,2,8) $remove($gettok(%a,1,8),#/#),44) | inc %n | goto L1 } | writeini %perfil fserver com %c
}
alias FS.modtrig {
var %l = $sline(@hash1,1).ln | if (!%l) return
var %ac = $gettok(*ovov,$findtok($s(16) $+ $+ $s(17) $+ $+ $s(18) $+ $+ $s(19),%setup.fsacc,1,22),22)
%setup.fscan = $remove(%setup.fscan,$chr(32)) | if (!%setup.fscan) { %setup.fscan = * }
var %a = $strip($replace(%setup.fstrig,$chr(32),…)) $iif($exists($shortfn(%setup.fsdir)),$gettok($shortfn(%setup.fsdir),1,32),-) $iif($exists($shortfn(%setup.fsbie)),$gettok($shortfn(%setup.fsbie),1,32),-) %ac %setup.fscan $remove($gettok($sline(@hash1,1),1,8),#/#)
writeini %perfil fserver T $+ %l %a
muestrasetup
}
alias FS.setupA {
goto $1
:dir | elid setup.fsdir | fs.modtrig | return
:veo | if (%setup.fsdir) run %setup.fsdir | return
:bie | elif setup.fsbie *.txt | fs.modtrig | return
:ebie | run notepad.exe %setup.fsbie | return
:onoff | fs.onoff1 | fs.modtrig | return
:+t | var %n = 1 | :L1 | var %t = $readini(%perfil,fserver,T $+ %n) | if (%t) { inc %n | goto L1 } | writeini %perfil fserver T $+ %n ????? - - * * off
fs.llenatrig | sline @hash1 $line(@hash1,0) | %setup.ls1 = $puttok(%setup.ls1,999,5,32) | fs.guitrig click | return
:-t | var %n = $sline(@hash1,1).ln | :L2 | var %l = $readini(%perfil,fserver,T $+ $calc(%n + 1)) | if (%l) { writeini %perfil fserver T $+ %n %l | inc %n | goto L2 } | remini %perfil fserver T $+ %n
remini s\log\fservertop10.log $replace($gettok($sline(@hash1,1),2,8),$chr(32),…)
fs.llenatrig | sline -r @hash1 | fs.guitrig click | return
}
alias FS.clicksesion {
if ($3) {
var %n = $fserv($3) , %a = %tmp.fserver.t. [ $+ [ %n ] ]
.timerTTTIPFS -m 1 300 tttip %n IP: $fserv($3).ip $s(60) $+ : $replace(%tmp.fserver. [ $+ [ %n ] ],…,$chr(32)) $s(61) $+ : $longfn($fserv($3).cd) $s(62) $+ : $duration($calc($ctime - %a))
}
}
alias -l o return $gettok(%fs.o,$1,44)
on 1:signal:setuprclick: {
if (1 Fservertab isin %setup.pñ2) { FS.menunick }
}
on 1:signal:setupedit: {
if (2 Fservertab isin %setup.pñ2) { FS.modtrig | FS.llenatrig | guilista @setup setup.ls1 | drawline @setup }
if (3 Fservertab isin %setup.pñ2) { FS.set }
if (4 Fservertab isin %setup.pñ2) {
if $1 == setup.fstanu FS.set spam
if $1 == fsbanner fs.previobanner
}
}
on 1:signal:setupcombo: {
if (2 Fservertab isin %setup.pñ2) { FS.modtrig }
if (3 Fservertab isin %setup.pñ2) { FS.set | .disable #fsoye.msg #fsoye.ctcp | if ($group(#fs-serv) == on) { if $o(2) == msg .enable #fsoye.msg | else .enable #fsoye.ctcp } }
if (6 Fservertab isin %setup.pñ2) { clear @hash2 | FStop10 $replace(%setup.fstop10,$chr(32),…) *setup* 100 | guilista @setup setup.ls2 | drawline @setup }
}
alias -l fs.previobanner {
window -c @hash1 | window -hp @hash1 100 100 1250 60 | drawtext -npb @hash1 $color(normal) $color(background) tahoma 10 0 0 %fsbanner
drawcopy -n @hash1 0 0 400 12 @setup 152 220
drawcopy -n @hash1 401 0 400 12 @setup 152 232
drawcopy -n @hash1 801 0 400 12 @setup 152 244
drawline @setup | window -c @hash1
}
on 1:unload: if ($group(#fs-serv) != on) window -c @fs.logsesion
;eof-dt