/ScriptServ

;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
;             ~AutoJoin~               
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

on 1:connect: {
  if (%ajoin == on) && ($network == %mnet) {
    if (%ajchan1 != $null) { .timerj1 1 2 /join %ajchan1 }
    if (%ajchan2 != $null) { .timerj2 1 3 /join %ajchan2 }
    if (%ajchan3 != $null) { .timerj3 1 4 /join %ajchan3 }
    if (%ajchan4 != $null) { .timerj4 1 5 /join %ajchan4 }
    if (%ajchan5 != $null) { .timerj5 1 6 /join %ajchan5 }
    if (%ajchan6 != $null) { .timerj6 1 7 /join %ajchan6 }
    if (%ajchan7 != $null) { .timerj7 1 8 /join %ajchan7 }
    if (%ajchan8 != $null) { .timerj8 1 9 /join %ajchan8 }
    if (%ajchan9 != $null) { .timerj9 1 10 /join %ajchan9 }
    if (%ajchan10 != $null) { .timerj10 1 11 /join %ajchan10 }
    if (%ajchan11 != $null) { .timerj11 1 12 /join %ajchan11 }
    if (%ajchan12 != $null) { .timerj12 1 13 /join %ajchan12 }
    if (%ajchan13 != $null) { .timerj13 1 14 /join %ajchan13 }
    if (%ajchan14 != $null) { .timerj14 1 15 /join %ajchan14 }
    if (%ajchan15 != $null) { .timerj15 1 16 /join %ajchan15 }
    if (%ajchan16 != $null) { .timerj16 1 17 /join %ajchan16 }
    if (%ajchan17 != $null) { .timerj17 1 18 /join %ajchan17 }
    if (%ajchan18 != $null) { .timerj18 1 19 /join %ajchan18 }
    if (%ajchan19 != $null) { .timerj19 1 20 /join %ajchan19 }
    if (%ajchan20 != $null) { .timerj20 1 21 /join %ajchan20 }
  }
}
on 1:LOAD: { set %mnet MindForge }
alias aj { dialog -m ajoin ajoin }

dialog ajoin {
  title "AutoJoin"
  icon $mircdirImmagini\1.ico, 0
  size -1 -1 169 168
  option dbu
  text "Canali da joinare alla connessione",1, 2 3 100 10
  text "1",2, 2 15 15 10
  edit %ajchan1,3, 12 15 65 10,autohs
  text "2",4, 2 27 15 10
  edit %ajchan2,5, 12 27 65 10,autohs
  text "3",6, 2 39 15 10
  edit %ajchan3,7, 12 39 65 10,autohs
  text "4",8, 2 51 15 10
  edit %ajchan4,9, 12 51 65 10,autohs
  text "5",10, 2 63 15 10
  edit %ajchan5,11, 12 63 65 10,autohs
  text "6",12, 2 75 15 10
  edit %ajchan6,13, 12 75 65 10,autohs
  text "7",14, 2 87 15 10
  edit %ajchan7,15, 12 87 65 10,autohs
  text "8",21, 2 99 15 10
  edit %ajchan8,16, 12 99 65 10,autohs
  text "9",17, 2 111 15 10
  edit %ajchan9,18, 12 111 65 10,autohs
  text "10",19, 2 123 15 10
  edit %ajchan10,20, 12 123 65 10,autohs
  text "11",22, 85 15 15 10
  edit %ajchan11,23, 97 15 65 10,autohs
  text "12",24, 85 27 15 10
  edit %ajchan12,25, 97 27 65 10,autohs
  text "13",26, 85 39 15 10
  edit %ajchan13,27, 97 39 65 10,autohs
  text "14",28, 85 51 15 10
  edit %ajchan14,29, 97 51 65 10,autohs
  text "15",30, 85 63 15 10
  edit %ajchan15,31, 97 63 65 10,autohs
  text "16",32, 85 75 15 10
  edit %ajchan16,33, 97 75 65 10,autohs
  text "17",34, 85 87 15 10
  edit %ajchan17,35, 97 87 65 10,autohs
  text "18",36, 85 99 15 10
  edit %ajchan18,37, 97 99 65 10,autohs
  text "19",38, 85 111 15 10
  edit %ajchan19,39, 97 111 65 10,autohs
  text "20",40, 85 123 15 10
  edit %ajchan20,41, 97 123 65 10,autohs
  text "Net:",42, 2 137 15 10
  edit %mnet,43, 17 137 65 10,autohs
  check %ajoin,44, 88 137 7 8
  text "Attiva/Disattiva",45, 98 137 42 10
  button "Okay",46, 3 151 160 13,ok
}
on *:dialog:ajoin:init:*: {
  if %ajoin = ON { did -c ajoin 44 }
  ;mdx  
  mdxbegin
  mdx SetDialog $dname bgcolor $rgb(0,0,0)
  mdx SetBorderStyle $dname 46 staticedge clientedge
  mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,45,46 16 660 comic sans ms
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45 background $rgb(0,0,0)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,45 text $rgb(0,173,255)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,45 textbg $rgb(0,0,0)
  mdx SetColor $dname 46 background $rgb(0,173,255)
}
on *:dialog:ajoin:sclick:46: { 
  if ($did(ajoin,44).state = 1) { %ajoin = on } | else { %ajoin = off }
  set %ajchan1 $did(ajoin,3)
  set %ajchan2 $did(ajoin,5)
  set %ajchan3 $did(ajoin,7)
  set %ajchan4 $did(ajoin,9)
  set %ajchan5 $did(ajoin,11)
  set %ajchan6 $did(ajoin,13)
  set %ajchan7 $did(ajoin,15)
  set %ajchan8 $did(ajoin,16)
  set %ajchan9 $did(ajoin,18)
  set %ajchan10 $did(ajoin,20)
  set %ajchan11 $did(ajoin,23)
  set %ajchan12 $did(ajoin,25)
  set %ajchan13 $did(ajoin,27)
  set %ajchan14 $did(ajoin,29)
  set %ajchan15 $did(ajoin,31)
  set %ajchan16 $did(ajoin,33)
  set %ajchan17 $did(ajoin,35)
  set %ajchan18 $did(ajoin,37)
  set %ajchan19 $did(ajoin,39)
  set %ajchan20 $did(ajoin,41)
  set %mnet $did(ajoin,43)
}