Transformé un script mirc en tcl

Bonjour , je vous explique vite fait le projet que je cherche a codé en tcl .

J'ai un serveur irc , et nous avons décider de crée des salons , par tranches d'ages , ados ou adultes ou salon lesbienne / homo et donc pour cela on aimerais que le script tcl regardel username de l'utilisateur .

Je vous montre , se que j ai pu avoir en codage mirc mais j arrive vraiment pas a le transformé en tcl .

Code:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 On 1:input:#:{
     If ($1 == +b) {
     { mode $chan +b ~r:7_*_* }
     { mode $chan +b ~r:8_*_* }
     { mode $chan +b ~r:9_*_* }
     { mode $chan +b ~r:10_*_* }
     { mode $chan +b ~r:11_*_* }
     { mode $chan +b ~r:12_*_* }
     { mode $chan +b ~r:13_*_* }
     { mode $chan +b ~r:14_*_* }
     { mode $chan +b ~r:15_*_* }
     }
     If ($1 == +h) {
     { mode $chan +b ~r:H_*_* }
     { mode $chan +b ~r:?_*_* }
     { mode $chan +b ~r:M_*_* }
     }
     If ($1 == +f) {
     { mode $chan +b ~r:F_*_* }
     { mode $chan +b ~r:?_*_* }
     }
     If ($1 == -b) {
     { mode $chan -b ~r:7_*_* }
     { mode $chan -b ~r:8_*_* }
     { mode $chan -b ~r:9_*_* }
     { mode $chan -b ~r:10_*_* }
     { mode $chan -b ~r:11_*_* }
     { mode $chan -b ~r:12_*_* }
     { mode $chan -b ~r:13_*_* }
     { mode $chan -b ~r:14_*_* }
     { mode $chan -b ~r:15_*_* }
     }
     If ($1 == -h) {
     { mode $chan -b ~r:H_*_* }
     { mode $chan -b ~r:?_*_* }
     { mode $chan -b ~r:M_*_* }
     }
     If ($1 == -f) {
     { mode $chan -b ~r:F_*_* }
     { mode $chan -b ~r:?_*_* }
     }
     If ($1 == +pseudo) {
     { mode $chan +b *0*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan +b *1*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan +b *2*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan +b *3*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan +b *4*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan +b *5*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan +b *6*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan +b *7*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan +b *8*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan +b *9*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     }
     If ($1 == -pseudo) {
     { mode $chan -b *0*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan -b *1*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan -b *2*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan -b *3*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan -b *4*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan -b *5*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan -b *6*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan -b *7*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan -b *8*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     { mode $chan -b *9*!*@* /notice $2 Pseudo Comportant Des Chiffres Interdit }
     }

merci , de votre attention , je vous souhaites une bonne journée a+