Kan ikke få det her til at virke
Hej... jeg har fået hjælp inde på mirc's forum med at få lavet et multiserver script... men jeg kan bare ikke få det til at virke..... det joiner fint nok de forskellige servere.... men det vil bare ikke joine kanalerne.... kun hvis jeg har smidt dem ind i favoriterScript:
/*
Multiserv-options
Written by MikeChat
11-2-2005
as a reply to:
http://trout.snt.utwente.nl/ubbthreads/showflat.php?Cat=0&Number=141379&an=0&page=1#141379
NFSPOWER
Note: Changes include autosave on close
and some fixes to errors in the coding I noticed
post comments to the thread listed above if you
have a constructive criticism.
*/
menu status {
Multiserver Setup
.Enter Network Settings:dialog -dm multiervset multiervset
.Multiserver is $group(#multiserver_options) : $iif($group(#multiserver_options).status == off,.enable #multiserver_options,.disable #multiserver_options)
}
dialog multiervset {
title "Multiserver Setup"
size -1 -1 200 150
option dbu
button "", 999, 0 0 0 0, cancel
tab "Network 1", 1, 0 0 198 150
edit "", 111, 1 30 98 10, tab 1
edit "", 112, 102 75 80 10, tab 1
edit "", 113, 102 135 80 10, tab 1
list 210, 1 55 98 100, sort, tab 1
text "Network 1 Name", 311, 5 15 90 8, tab 1
text "Channels to Join", 312, 1 45 98 8, tab 1
text "E-Mail", 313, 110 125 80 10, tab 1
button "Update Network 1", 911, 125 30 50 10, tab 1
button "Add Channel to List", 912, 125 95 50 10, tab 1
button "Remove Channel", 913, 125 110 50 10, tab 1
tab "Network 2", 2, 0 0 198 150
edit "", 121, 1 30 98 10, tab 2
edit "", 122, 102 75 80 10, tab 2
edit "", 123, 102 135 80 10, tab 2
list 220, 1 55 98 100, sort, tab 2
text "Network 2 Name", 321, 5 15 90 8, tab 2
text "Channels to Join", 322, 1 45 98 8, tab 2
text "E-Mail", 323, 110 125 80 10, tab 2
button "Update Network 2", 921, 125 30 50 10, tab 2
button "Add Channel to List", 922, 125 95 50 10, tab 2
button "Remove Channel", 923, 125 110 50 10, tab 2
tab "Network 3", 3, 0 0 198 150
edit "", 131, 1 30 98 10, tab 3
edit "", 132, 102 75 80 10, tab 3
edit "", 133, 102 135 80 10, tab 3
list 230, 1 55 98 100, sort, tab 3
text "Network 3 Name", 331, 5 15 90 8, tab 3
text "Channels to Join", 332, 1 45 98 8, tab 3
text "E-Mail", 333, 110 125 80 10, tab 3
button "Update Network 3", 931, 125 30 50 10, tab 3
button "Add Channel to List", 932, 125 95 50 10, tab 3
button "Remove Channel", 933, 125 110 50 10, tab 3
tab "Network 4", 4, 0 0 198 150
edit "", 141, 1 30 98 10, tab 4
edit "", 142, 102 75 80 10, tab 4
edit "", 143, 102 135 80 10, tab 4
list 240, 1 55 98 100, sort, tab 4
text "Network 4 Name", 341, 5 15 90 8, tab 4
text "Channels to Join", 342, 1 45 98 8, tab 4
text "E-Mail", 343, 110 125 80 10, tab 4
button "Update Network 4", 941, 125 30 50 10, tab 4
button "Add Channel to List", 942, 125 95 50 10, tab 4
button "Remove Channel", 943, 125 110 50 10, tab 4
tab "Network 5", 5, 0 0 198 150
edit "", 151, 1 30 98 10, tab 5
edit "", 152, 102 75 80 10, tab 5
edit "", 153, 102 135 80 10, tab 5
list 250, 1 55 98 100, sort, tab 5
text "Network 5 Name", 351, 5 15 90 8, tab 5
text "Channels to Join", 352, 1 45 98 8, tab 5
text "E-Mail", 353, 110 125 80 10, tab 5
button "Update Network 5", 951, 125 30 50 10, tab 5
button "Add Channel to List", 952, 125 95 50 10, tab 5
button "Remove Channel", 953, 125 110 50 10, tab 5
}
on *:dialog:multiervset:init:0:{
var %i = 1
while (%i <= 5) {
var %net.id = $+(net,%i)
did -a multiervset $+(1,%i,1) $readini(networkjoin.ini,%net.id,name)
var %x.t = $gettok($readini(networkjoin.ini,%net.id,chans),0,44)
var %x.i = 1
while (%x.i <= %x.t) {
did -a multiervset $+(2,%i,0) $gettok($readini(networkjoin.ini,%net.id,chans),%x.i,44)
inc %x.i
}
did -a multiervset $+(1,%i,3) $readini(networkjoin.ini,%net.id,email)
inc %i
}
}
;on *:dialog:multiervset:sclick:999:{ var %null.value = $input(If You did not click the $crlf Update Network Button for EACH Network $crlf the changes were lost,o, Network Setup Info!!) }
on *:dialog:multiervset:sclick:911:{
writeini networkjoin.ini net1 name $did(multiervset,111)
var %ms_chans
var %i = 1
var %ms_chanlist = $did(multiervset,210).lines
while (%i <= %ms_chanlist) {
$iif(%ms_chans == $null,%ms_chans = $did(multiervset,210,%i),%ms_chans = %ms_chans $+ $chr(44) $+ $did(multiervset,210,%i))
inc %i
}
if (%ms_chans) { writeini networkjoin.ini net1 chans %ms_chans }
if ($did(multiervset,113)) { writeini networkjoin.ini net1 email $did(multiervset,113) }
}
on *:dialog:multiervset:sclick:912:{
did -a multiervset 210 $did(multiervset,112)
did -r multiervset 112
}
on *:dialog:multiervset:sclick:913:{
did -d multiervset 210 $did(multiervset,210).sel
}
on *:dialog:multiervset:sclick:921:{
writeini networkjoin.ini net2 name $did(multiervset,121)
var %ms_chans
var %i = 1
var %ms_chanlist = $did(multiervset,220).lines
while (%i <= %ms_chanlist) {
$iif(%ms_chans == $null,%ms_chans = $did(multiervset,220,%i),%ms_chans = %ms_chans $+ $chr(44) $+ $did(multiervset,220,%i))
inc %i
}
if (%ms_chans) { writeini networkjoin.ini net2 chans %ms_chans }
if ($did(multiervset,123)) { writeini networkjoin.ini net2 email $did(multiervset,123) }
}
on *:dialog:multiervset:sclick:922:{
did -a multiervset 220 $did(multiervset,122)
did -r multiervset 122
}
on *:dialog:multiervset:sclick:923:{
did -d multiervset 220 $did(multiervset,220).sel
}
on *:dialog:multiervset:sclick:931:{
writeini networkjoin.ini net3 name $did(multiervset,131)
var %ms_chans
var %i = 1
var %ms_chanlist = $did(multiervset,230).lines
while (%i <= %ms_chanlist) {
$iif(%ms_chans == $null,%ms_chans = $did(multiervset,230,%i),%ms_chans = %ms_chans $+ $chr(44) $+ $did(multiervset,230,%i))
inc %i
}
if (%ms_chans) { writeini networkjoin.ini net3 chans %ms_chans }
if ($did(multiervset,133)) { writeini networkjoin.ini net3 email $did(multiervset,133) }
}
on *:dialog:multiervset:sclick:932:{
did -a multiervset 230 $did(multiervset,132)
did -r multiervset 132
}
on *:dialog:multiervset:sclick:933:{
did -d multiervset 230 $did(multiervset,230).sel
}
on *:dialog:multiervset:sclick:941:{
writeini networkjoin.ini net4 name $did(multiervset,141)
var %ms_chans
var %i = 1
var %ms_chanlist = $did(multiervset,240).lines
while (%i <= %ms_chanlist) {
$iif(%ms_chans == $null,%ms_chans = $did(multiervset,240,%i),%ms_chans = %ms_chans $+ $chr(44) $+ $did(multiervset,240,%i))
inc %i
}
if (%ms_chans) { writeini networkjoin.ini net4 chans %ms_chans }
if ($did(multiervset,143)) { writeini networkjoin.ini net4 email $did(multiervset,143) }
}
on *:dialog:multiervset:sclick:942:{
did -a multiervset 240 $did(multiervset,142)
did -r multiervset 142
}
on *:dialog:multiervset:sclick:943:{
did -d multiervset 240 $did(multiervset,240).sel
}
on *:dialog:multiervset:sclick:951:{
writeini networkjoin.ini net5 name $did(multiervset,151)
var %ms_chans
var %i = 1
var %ms_chanlist = $did(multiervset,250).lines
while (%i <= %ms_chanlist) {
$iif(%ms_chans == $null,%ms_chans = $did(multiervset,250,%i),%ms_chans = %ms_chans $+ $chr(44) $+ $did(multiervset,250,%i))
inc %i
}
if (%ms_chans) { writeini networkjoin.ini net5 chans %ms_chans }
if ($did(multiervset,153)) { writeini networkjoin.ini net5 email $did(multiervset,153) }
}
on *:dialog:multiervset:sclick:952:{
did -a multiervset 250 $did(multiervset,152)
did -r multiervset 152
}
on *:dialog:multiervset:sclick:953:{
did -d multiervset 250 $did(multiervset,250).sel
}
on *:dialog:multiervset:close:*:{
var %i = 1
while (%i <= 5) {
var %net.id = $+(net,%i)
if ($did(multiervset,$+(1,%i,1)) == $null) { remini networkjoin.ini %net.id | inc %i | continue }
if ($did(multiervset,$+(1,%i,1)) != $null) {
writeini networkjoin.ini %net.id name $did(multiervset,$+(1,%i,1))
var %ms_chans
var %x = 1
var %ms_chanlist = $did(multiervset,$+(2,%i,0)).lines
while (%x <= %ms_chanlist) {
$iif(%ms_chans == $null,%ms_chans = $did(multiervset,$+(2,%i,0),%x),%ms_chans = %ms_chans $+ $chr(44) $+ $did(multiervset,$+(2,%i,0),%x))
inc %x
}
if (%ms_chans == $null) {
var %null.value = $input( %net.id has no channels associated with it $crlf If Exists old data will be used. $crlf Re-open the setup dialog to make changes.,o, Network Setup Info!!)
}
if (%ms_chans != $null) { writeini networkjoin.ini %net.id chans %ms_chans }
if ($did(multiervset,$+(1,%i,3)) != $null) { writeini networkjoin.ini %net.id email $did(multiervset,$+(1,%i,3)) }
}
inc %i
}
}
#multiserver_options off
on *:start:{
var %netslist.count = $ini(networkjoin.ini,0)
var %i = 1
var %x = 1
while (%i <= %netslist.count) {
var %netslist.network.c = $ini(networkjoin.ini,%i)
var %netjoin.c = $ini(networkjoin.ini,%netslist.network.c,0)
var %net.data = $ini(networkjoin.ini,%netslist.network.c,1)
server %multi $readini(networkjoin.ini,%netslist.network.c,%net.data)
var %multi = -m
inc %i
}
}
on *:connect:{
var %i = 1
while (%i <= 5) {
var %net.check = $+(net,%i)
var %net.logon = $readini(networkjoin.ini,%net.check,name)
if (%net.logon == $network) { join $readini(networkjoin.ini,%net.check,chans) }
inc %i
}
}
#multiserver_options end
