Forums Scripts & Popups Fserve not working anymore

i think this it it
on *:dialog:Fserve:*:*:{
if ($devent == init) {
did -c $dname 1
did -ra $dname 12 $vnum($r.set(Fserve,Max.Sends.Each),1)
did -ra $dname 14 $vnum($r.set(Fserve,Max.Sends.Total),2)
did -ra $dname 22 $vnum($r.set(Fserve,Max.Queues.Each),4)
did -ra $dname 24 $vnum($r.set(Fserve,Max.Queues.Total),10)
if ($r.set(Fserve,Auto.Start) == On) { did -c $dname 32 }
did -ra $dname 41 $vnum($r.set(Fserve,Max.Serve),4)
did -ra $dname 46 $vnum($r.set(Fserve,Ad.Delay),5)
did -ra $dname 51 $r.set(Fserve,Note)
if (($r.set(Fserve,Channels) == All) || ($r.set(Fserve,Channels) == $null)) { did -c $dname 62 | did -b $dname 61,63,64 } | else { dla $dname 61 $r.set(Fserve,Channels) }
if ($r.set(Fserve.1,Status) == On) { did -c $dname 70 }

;; Begin dyerseve Code
if ($r.set(Fserve.1,VOP) == On) { did -c $dname 572 }
;; End dyerseve Code

did -ra $dname 72 $r.set(Fserve.1,Trigger)
did -mra $dname 77 $r.set(Fserve.1,Root.Dir)
did -mra $dname 81 $isset($r.set(Fserve.1,Welcome.File),None)
if ($r.set(Fserve.2,Status) == On) { did -c $dname 90 }

;; Begin dyerseve Code
if ($r.set(Fserve.2,VOP) == On) { did -c $dname 574 }
;; End dyerseve Code

did -ra $dname 92 $r.set(Fserve.2,Trigger)
did -mra $dname 97 $r.set(Fserve.2,Root.Dir)
did -mra $dname 101 $isset($r.set(Fserve.2,Welcome.File),None)
if ($r.set(Fserve.3,Status) == On) { did -c $dname 110 }

;; Begin dyerseve Code
if ($r.set(Fserve.3,VOP) == On) { did -c $dname 576 }
;; End dyerseve Code

did -ra $dname 112 $r.set(Fserve.3,Trigger)
did -mra $dname 117 $r.set(Fserve.3,Root.Dir)
did -mra $dname 121 $isset($r.set(Fserve.3,Welcome.File),None)
if ($r.set(Fserve.4,Status) == On) { did -c $dname 130 }

;; Begin dyerseve Code
if ($r.set(Fserve.4,VOP) == On) { did -c $dname 578 }
;; End dyerseve Code

did -ra $dname 132 $r.set(Fserve.4,Trigger)
did -mra $dname 137 $r.set(Fserve.4,Root.Dir)
did -mra $dname 141 $isset($r.set(Fserve.4,Welcome.File),None)
if ($r.set(Fserve.5,Status) == On) { did -c $dname 150 }

;; Begin dyerseve Code
if ($r.set(Fserve.5,VOP) == On) { did -c $dname 580 }
;; End dyerseve Code

did -ra $dname 152 $r.set(Fserve.5,Trigger)
did -mra $dname 157 $r.set(Fserve.5,Root.Dir)
did -mra $dname 161 $isset($r.set(Fserve.5,Welcome.File),None)
did -mra $dname 171 $vnum($gettok($r.set(Fserve,Record.CPS),1,32),0) by $isset($gettok($r.set(Fserve,Record.CPS),2-,32))
did -mra $dname 173 $size($r.set(Fserve,Send.Bytes))
did -mra $dname 175 $vnum($r.set(Fserve,Send.Total),0)
did -mra $dname 177 $vnum($r.set(Fserve,Send.Fails),0)
did -mra $dname 179 $vnum($r.set(Fserve,Access),0)
}
if ($devent == sclick) {
if ($did isnum 1-7) { did -h $dname $fserve_grp( [ $replace($remtok(1 2 3 4 5 6 7,$did,1,32),$chr(32),$chr(44)) ] ) | did -v $dname $fserve_grp($did) }
if ($did == 62) { if ($did($dname,$did).state == 1) { did -b $dname 61,63,64 } | else { did -e $dname 61,63,64 } }
if ($did == 63) && ($did($dname,61).sel == $null) && ($did($dname,61).text != $null) { did -a $dname 61 $vc($did($dname,61).text) | did -c $dname 61 $did($dname,61).lines }
if ($did == 64) && ($did($dname,61).sel isnum) { did -d $dname 61 $did($dname,61).sel }
if ($did == 78) { .timer 1 0 did -ra $dname 77 $!shortfn( $chr(91) $!$sdir="Choose Root Directory" *.* $chr(93) ) }
if ($did == 82) { .timer 1 0 did -ra $dname 81 $!isset($lower( $chr(91) $!shortfn( $chr(91) $!dir="Choose Welcome File (Cancel = None)" *.txt $chr(93) ) $chr(93) ),None) }
if ($did == 98) { .timer 1 0 did -ra $dname 97 $!shortfn( $chr(91) $!$sdir="Choose Root Directory" *.* $chr(93) ) }
if ($did == 102) { .timer 1 0 did -ra $dname 101 $!isset($lower( $chr(91) $!shortfn( $chr(91) $!dir="Choose Welcome File (Cancel = None)" *.txt $chr(93) ) $chr(93) ),None) }
if ($did == 118) { .timer 1 0 did -ra $dname 117 $!shortfn( $chr(91) $!$sdir="Choose Root Directory" *.* $chr(93) ) }
if ($did == 122) { .timer 1 0 did -ra $dname 121 $!isset($lower( $chr(91) $!shortfn( $chr(91) $!dir="Choose Welcome File (Cancel = None)" *.txt $chr(93) ) $chr(93) ),None) }
if ($did == 138) { .timer 1 0 did -ra $dname 137 $!shortfn( $chr(91) $!$sdir="Choose Root Directory" *.* $chr(93) ) }
if ($did == 142) { .timer 1 0 did -ra $dname 141 $!isset($lower( $chr(91) $!shortfn( $chr(91) $!dir="Choose Welcome File (Cancel = None)" *.txt $chr(93) ) $chr(93) ),None) }
if ($did == 158) { .timer 1 0 did -ra $dname 157 $!shortfn( $chr(91) $!$sdir="Choose Root Directory" *.* $chr(93) ) }
if ($did == 162) { .timer 1 0 did -ra $dname 161 $!isset($lower( $chr(91) $!shortfn( $chr(91) $!dir="Choose Welcome File (Cancel = None)" *.txt $chr(93) ) $chr(93) ),None) }
if (($did == 498) || ($did == 500)) {
w.set Fserve Max.Sends.Each $vnum($did($dname,12).text,1)
w.set Fserve Max.Sends.Total $vnum($did($dname,14).text,2)
w.set Fserve Max.Queues.Each $vnum($did($dname,22).text,4)
w.set Fserve Max.Queues.Total $vnum($did($dname,24).text,10)
if ($did($dname,32).state == 1) { w.set Fserve Auto.Start On } | else { w.set Fserve Auto.Start Off }
w.set Fserve Max.Serve $vnum($did($dname,41).text,4)
w.set Fserve Ad.Delay $vnum($did($dname,46).text,5)
if ($did($dname,62).state == 1) || ($did($dname,61).lines == 0) { w.set Fserve Channels All } | else { dls $dname 61 w.set Fserve Channels }
w.set Fserve Note $isset($did($dname,51).text,Just type the Trigger!)
if ($did($dname,70).state == 1) { w.set Fserve.1 Status On } | else { w.set Fserve.1 Status Off }

;; Begin dyerseve code
if ($did($dname,572).state == 1) { w.set Fserve.1 VOP On } | else { w.set Fserve.1 VOP Off }
;; End dyerseve code

w.set Fserve.1 Trigger $isset($did($dname,72).text,!trigger-1)
w.set Fserve.1 Root.Dir $isset($did($dname,77).text,$shortfn($mircdir))
w.set Fserve.1 Welcome.File $isset($did($dname,81).text,None)
if ($did($dname,90).state == 1) { w.set Fserve.2 Status On } | else { w.set Fserve.2 Status Off }

;; Begin dyerseve code
if ($did($dname,574).state == 1) { w.set Fserve.2 VOP On } | else { w.set Fserve.2 VOP Off }
;; End dyerseve code

w.set Fserve.2 Trigger $isset($did($dname,92).text,/ctcp $me)
w.set Fserve.2 Root.Dir $isset($did($dname,97).text,$shortfn($mircdir))
w.set Fserve.2 Welcome.File $isset($did($dname,101).text,None)
if ($did($dname,110).state == 1) { w.set Fserve.3 Status On } | else { w.set Fserve.3 Status Off }

;; Begin dyerseve code
if ($did($dname,576).state == 1) { w.set Fserve.3 VOP On } | else { w.set Fserve.3 VOP Off }
;; End dyerseve code

w.set Fserve.3 Trigger $isset($did($dname,112).text,!trigger-3)
w.set Fserve.3 Root.Dir $isset($did($dname,117).text,$shortfn($mircdir))
w.set Fserve.3 Welcome.File $isset($did($dname,121).text,None)
if ($did($dname,130).state == 1) { w.set Fserve.4 Status On } | else { w.set Fserve.4 Status Off }

;; Begin dyerseve code
if ($did($dname,578).state == 1) { w.set Fserve.4 VOP On } | else { w.set Fserve.4 VOP Off }
;; End dyerseve code

w.set Fserve.4 Trigger $isset($did($dname,132).text,!trigger-4)
w.set Fserve.4 Root.Dir $isset($did($dname,137).text,$shortfn($mircdir))
w.set Fserve.4 Welcome.File $isset($did($dname,141).text,None)
if ($did($dname,150).state == 1) { w.set Fserve.5 Status On } | else { w.set Fserve.5 Status Off }

;; Begin dyerseve code
if ($did($dname,580).state == 1) { w.set Fserve.5 VOP On } | else { w.set Fserve.5 VOP Off }
;; End dyerseve code

w.set Fserve.5 Trigger $isset($did($dname,152).text,!trigger-5)
w.set Fserve.5 Root.Dir $isset($did($dname,157).text,$shortfn($mircdir))
w.set Fserve.5 Welcome.File $isset($did($dname,161).text,None)
if ($did($dname,186).state == 1) { w.set Fserve Record.CPS 0 n/a }
if ($did($dname,187).state == 1) { w.set Fserve Send.Bytes 0 }
if ($did($dname,188).state == 1) { w.set Fserve Send.Total 0 }
if ($did($dname,189).state == 1) { w.set Fserve Send.Fails 0 }
if ($did($dname,190).state == 1) { w.set Fserve Access 0 }
}
}
}