mIRC Home    About    Download    Register    News    Help

Print Thread
Suggestion for fserv explorer/browse #97262 10/09/04 01:06 PM
Joined: Aug 2004
Posts: 18
H
homeless Offline OP
Pikka bird
OP Offline
Pikka bird
H
Joined: Aug 2004
Posts: 18
I all,
I use original mirc with many addon into, but will be very important to have a addon like fserv explorer of invision.
I's possible make a script with this caracteristic?
Where I find this type of addon?

Thanks a lot in advance.
HM

Re: Suggestion for fserv explorer/browse #97263 10/09/04 02:38 PM
Joined: Aug 2004
Posts: 423
C
clutz1572 Offline
Fjord artisan
Offline
Fjord artisan
C
Joined: Aug 2004
Posts: 423
Look Here Click

Re: Suggestion for fserv explorer/browse #97264 10/09/04 10:12 PM
Joined: Aug 2004
Posts: 18
H
homeless Offline OP
Pikka bird
OP Offline
Pikka bird
H
Joined: Aug 2004
Posts: 18
Thank for help...
I did find this script but dont' work 100% ok.

alias fse dialog -md fse $+ . $+ $1 fse
dialog fse {
title "FSE - File Server Explorer"
icon fileservers.ico
size -1 -1 525 345
button "OK", 1, 445 315 75 25, cancel
box "Explorer", 2, 5 5 515 300
list 3, 13 23 500 275, size
}
on *:dialog:fse.*:init:*:{
dialog -t $dname Exploring $right($dname,-4) - [FSE]
}
on *:dialog:fse.*:dclick:3:{
var %nick = = $+ $right($dname,-4),%sel = $$did($dname,3).seltext
if (%sel === $upper(%sel)) msg %nick cd $iif(%sel == [..],..,%sel)
elseif (%sel === $lower(%sel)) msg %nick get %sel
}
#fse on
on *:chat:*:{
if (['C' for more, 'S' to stop] == $1-) { msg =$nick S }
if (mIRC*File Server* iswm $1-) {
fse $nick
msg =$nick dir
}
var %dialog = fse. $+ $nick
if ($dialog(%dialog)) {
if ($1- == End of list.) unset $+(%,fse,.,$nick)
if ($eval($+(%,fse,.,$nick),2)) {
var %arg = $1-
if ($lower(%arg) === %arg) {
if ($regex(%arg,^[[:alnum:]\.\-_\s]+ [0-9\.]+ (b|kb|mb)$)) %arg = $gettok(%arg,1- $+ $calc($numtok(%arg,32) -2),32)
elseif ($regex(%arg,^[[:alnum:]\.\-_\s]+ [0-9]+(b|kb|mb)$)) %arg = $gettok(%arg,1- $+ $calc($numtok(%arg,32) -1),32)
}
did -a %dialog 3 $iif($strip(%arg) == ..,[..],$strip(%arg))
}
if ([\*] iswm $1-) {
if (\*.*] isin $1-) { set $+(%,fse,.,$nick) 1 | did -r %dialog 3 }
else msg =$nick dir
}
}
}
on *:CLOSE:=:if ($dialog(fse. $+ $nick)) dialog -c fse. $+ $nick
#fse end

menu channel,menubar {
&FSE
.&Open:fse
.-
. $iif($group(#FSE) == on,$style(1)) &Enabled: $iif($group(#FSE) == on,.disable,.enable) #fse
}

When i digit !list on chan where are fserv a window must show the fserv trigger so i clik on fserv and the dialog start.
Now the script work, but when i double click on file i receive a error, becouse the file on fserv is for example
the name of song.mp3 5mb
it' possible modify this script?
Thanks a lot
HM