CONNEXION DES SERVEURS PROPOSÉE ET PERSONNALISÉ

ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
ù          Connection         ù
ù           By XaDaZ (T4r3n)  ù
ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù

on *:START:{
  /dialog -m Connect Connect
}

dialog connect {
  title " Connection by XaDaZ"

  size -1 -1 400 300
  Option pixels
  text "T4r3n-Script", 2001, 160 5 90 14 , tab 1
  text "<!>Ton Pseudo<!>", 1001, 50 50 90 15, tab 1
  box "Serveurs:", 8, 5 100 400 90, tab 1
  button "Shannidacool", 4, 10 120 120 25, flat Tab 1
  button "Tchat-irc", 20, 144 120 120 25, flat Tab 1
  button "EpiKnet", 120, 275 120 120 25, flat tab 1
  button "Discut", 9, 78 150 120 25, flat Tab 1
  button "Chat-europe", 10, 218 150 120 25, flat Tab 1
  edit "", 5, 150 46 130 22, center tab 1
  button "fermer" 100, 165 250 60 25, center flat ok


}
on *:dialog:connect:sclick:4:{
  if ($me != %me) { nick %me | .anick $me $+ _ }
  .identd on %me
  /server -m  shannidacool.com
  /dialog -x connect connect
}
on *:dialog:connect:sclick:20:{
  if ($me != %me) { nick %me | .anick $me $+ _ }
  .identd on %me
  /server -m irc.Tchat-irc.com
  /dialog -x connect connect
}
on *:dialog:connect:sclick:120:{
  if ($me != %me) { nick %me | .anick $me $+ _ }
  .identd on %me
  /server -m irc.Epiknet.fr:6667
  /dialog -x connect connect
}
on *:dialog:connect:sclick:9:{
  if ($me != %me) { nick %me | .anick $me $+ _ }
  .identd on %me
  /server -m irc.Discut.fr
  /dialog -x connect connect
}
on *:dialog:connect:sclick:10:{
  if ($me != %me) { nick %me | .anick $me $+ _ }
  .identd on %me
  /server -m irc.chat-europe.com
  /dialog -x connect connect
}
on *:dialog:connect:sclick:3:{ dialog -x connect connect }
on 1:dialog:connect:edit:5: { set %me $did(connect,5) }
on 1:dialog:connect:init:0: {
  did -a connect 5 $me
  if ($me != %me) { set %me $me }

}

ùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
ù          Connection       ù
ù           By XaDaZ (T4r3n)ù
ùùùùùùùùùùùùùùùùùùùùùùùùùùùùù



dialog con {
  title " Choix de connection a ton choix, T4r3n"
  size -1 -1 200 250
  Option pixels
  Box "&#164;&#164;Pseudo:", 1, 16 5 160 64 , tab 1
  Edit "", 2, 35 25 120 20, center tab 1
  Box "&#164;&#164;Serveur de ton choix:", 3, 16 115 170 104 , tab 1
  edit "Irc.nomduserveur.com:6667", 5, 25 145 150 22, center tab 1
  button "Aller au server choisi", 6, 25 175 150 25, flat Tab 1
}





on 1:dialog:con:edit:5: { set %server $did(con,5) }

on 1:dialog:con:edit:2: { set %me $did(con,2) }
on *:dialog:con:sclick:6:{
  if ($me != %me) { nick %me | .anick $me $+ _ }
  .identd on %me
  /server -m %server
  /dialog -x con con
}