CONFIGURATIONS PSEUDOS

menu channel {
  Config Pseudo : dialog -m pseudos pseudos
}

dialog pseudos {
  title "Configuration pseudos par ---Anonyme---"
  size -1 -1 164 137
  option dbu
  tab "Pseudos + Pass", 1, 1 2 161 133
  edit %nick1, 3, 23 41 50 10, tab 1, autohs
  edit %pass1, 4, 88 41 50 10, tab 1, autohs
  edit %nick2, 5, 23 68 50 10, tab 1, autohs
  edit %pass2, 6, 88 68 50 10, tab 1, autohs
  edit %nick3, 7, 23 96 50 10, tab 1, autohs
  edit %pass3, 8, 88 96 50 10, tab 1, autohs
  button "Fermer", 35, 1 125 162 11, tab 1, flat ok cancel
  text "Pseudos", 9, 24 29 49 8, tab 1
  text "Mots de passe", 10, 89 29 49 8, tab 1
  tab "!xcommande", 2
  edit %monpseudo1, 11, 7 28 44 10, tab 2, autohs
  edit %monpseudo2, 12, 7 43 44 10, tab 2, autohs
  edit %monpseudo3, 13, 7 58 44 10, tab 2, autohs
  edit %monpseudo4, 14, 7 73 44 10, tab 2, autohs
  edit %monpseudo5, 15, 7 89 44 10, tab 2, autohs
  edit %monpseudo6, 16, 7 105 44 10, tab 2, autohs
  edit %monpseudo7, 17, 7 121 44 10, tab 2, autohs
  edit %compseudo1, 18, 58 28 30 10, tab 2, autohs
  edit %compseudo2, 19, 58 43 30 10, tab 2, autohs
  edit %compseudo3, 20, 58 58 30 10, tab 2, autohs
  edit %compseudo4, 21, 58 73 30 10, tab 2, autohs
  edit %compseudo5, 22, 58 89 30 10, tab 2, autohs
  edit %compseudo6, 23, 58 105 30 10, tab 2, autohs
  edit %compseudo7, 24, 58 121 30 10, tab 2, autohs
  edit %messpseudo1, 25, 96 28 61 10, tab 2, autohs
  edit %messpseudo2, 26, 96 43 61 10, tab 2, autohs
  edit %messpseudo3, 27, 96 58 61 10, tab 2, autohs
  edit %messpseudo4, 28, 96 73 61 10, tab 2, autohs
  edit %messpseudo5, 29, 96 89 61 10, tab 2, autohs
  edit %messpseudo6, 30, 96 105 61 10, tab 2, autohs
  edit %messpseudo7, 31, 96 121 61 10, tab 2, autohs
  text "Pseudo à prendre", 32, 8 18 43 8, tab 2
  text "Commande", 33, 59 18 29 8, tab 2
  text "Message dit sur le chan", 34, 97 18 59 8, tab 2
}

on *:dialog:Pseudos:edit:11:{ /set %monpseudo1 $did(Pseudos,11) }
on *:dialog:Pseudos:edit:12:{ /set %monpseudo2 $did(Pseudos,12) }
on *:dialog:Pseudos:edit:13:{ /set %monpseudo3 $did(Pseudos,13) }
on *:dialog:Pseudos:edit:14:{ /set %monpseudo4 $did(Pseudos,14) }
on *:dialog:Pseudos:edit:15:{ /set %monpseudo5 $did(Pseudos,15) }
on *:dialog:Pseudos:edit:16:{ /set %monpseudo6 $did(Pseudos,16) }
on *:dialog:Pseudos:edit:17:{ /set %monpseudo7 $did(Pseudos,17) }
on *:dialog:Pseudos:edit:18:{ /set %compseudo1 $did(Pseudos,18) }
on *:dialog:Pseudos:edit:19:{ /set %compseudo2 $did(Pseudos,19) }
on *:dialog:Pseudos:edit:20:{ /set %compseudo3 $did(Pseudos,20) }
on *:dialog:Pseudos:edit:21:{ /set %compseudo4 $did(Pseudos,21) }
on *:dialog:Pseudos:edit:22:{ /set %compseudo5 $did(Pseudos,22) }
on *:dialog:Pseudos:edit:23:{ /set %compseudo6 $did(Pseudos,23) }
on *:dialog:Pseudos:edit:24:{ /set %compseudo7 $did(Pseudos,24) }
on *:dialog:Pseudos:edit:25:{ /set %messpseudo1 $did(Pseudos,25) }
on *:dialog:Pseudos:edit:26:{ /set %messpseudo2 $did(Pseudos,26) }
on *:dialog:Pseudos:edit:27:{ /set %messpseudo3 $did(Pseudos,27) }
on *:dialog:Pseudos:edit:28:{ /set %messpseudo4 $did(Pseudos,28) }
on *:dialog:Pseudos:edit:29:{ /set %messpseudo5 $did(Pseudos,29) }
on *:dialog:Pseudos:edit:30:{ /set %messpseudo6 $did(Pseudos,30) }
on *:dialog:Pseudos:edit:31:{ /set %messpseudo7 $did(Pseudos,31) }
on *:dialog:Pseudos:edit:03:{ /set %nick1 $did(Pseudos,03) }
on *:dialog:Pseudos:edit:05:{ /set %nick2 $did(Pseudos,05) }
on *:dialog:Pseudos:edit:07:{ /set %nick3 $did(Pseudos,07) }
on *:dialog:Pseudos:edit:04:{ /set %pass1 $did(Pseudos,04) }
on *:dialog:Pseudos:edit:06:{ /set %pass2 $did(Pseudos,06) }
on *:dialog:Pseudos:edit:08:{ /set %pass3 $did(Pseudos,08) }



On *:input:*: {
  if ($1 == %compseudo1) { /nick %monpseudo1 | amsg %messpseudo1 }
  if ($1 == %compseudo2) { /nick %monpseudo2 | amsg %messpseudo2 }
  if ($1 == %compseudo3) { /nick %monpseudo3 | amsg %messpseudo3 }
  if ($1 == %compseudo4) { /nick %monpseudo4 | amsg %messpseudo4 }
  if ($1 == %compseudo5) { /nick %monpseudo5 | amsg %messpseudo5 }
  if ($1 == %compseudo6) { /nick %monpseudo6 | amsg %messpseudo6 }
  if ($1 == %compseudo7) { /nick %monpseudo7 | amsg %messpseudo7 }
}

on 1:connect:{
  if ($me == %nick1) { /msg nickserv identify %pass1 }
  if ($me == %nick2) { /msg nickserv identify %pass2 }
  if ($me == %nick3) { /msg nickserv identify %pass3 }
}

on 1:nick: {
  if ($nick == $me) {
    if ($newnick == %nick1) { /msg nickserv identify %pass1 }
    if ($newnick == %nick2) { /msg nickserv identify %pass2 }
    if ($newnick == %nick3) { /msg nickserv identify %pass3 }
  }
}