- alias aa { dialog -m aa aa }
- dialog aa {
- title "Auto Auth"
- size -1 -1 218 55
- option dbu
- text "Entre le nom du bot :", 1, 3 2 51 8
- edit "", 2, 53 1 51 10, autohs
- edit "", 3, 53 12 51 10, autohs
- text "Entre le chan :", 4, 3 13 35 8
- edit "", 5, 53 23 51 10, autohs
- text "Entre ton pass :", 6, 3 24 39 8
- button "Ajouter", 7, 43 35 64 9
- button "Fermer", 8, 89 46 37 8, ok
- list 9, 110 0 107 32, size vsbar
- button "Supprimer", 10, 110 35 64 9
- }
- On *:dialog:aa:*:*:{
- if $devent == init { loadbuf -o aa 9 texte\salon.txt }
- if $devent == sclick {
- if $did == 7 { write texte\bot.txt $did(aa,2) | write texte\salon.txt $did(aa,3) | write texte\pass.txt $did(aa,5) | did -r aa 9 | loadbuf -o aa 9 texte\salon.txt }
- if $did == 10 { write -dl $did(aa,9).sel texte\bot.txt | write -dl $did(aa,9).sel texte\salon.txt | write -dl $did(aa,9).sel texte\pass.txt | did -r aa 9 | loadbuf -o aa 9 texte\bot.txt }
- }
- }
- On 1:Connect:{
- var %a = 1
- while (%a <= $lines(texte\bot.txt)) {
- msg $read -l $+ %a texte\bot.txt auth $read -l $+ %a texte\salon.txt $me $read -l $+ %a texte\pass.txt
- inc %a
- }
- }
alias aa { dialog -m aa aa }
dialog aa {
title "Auto Auth"
size -1 -1 218 55
option dbu
text "Entre le nom du bot :", 1, 3 2 51 8
edit "", 2, 53 1 51 10, autohs
edit "", 3, 53 12 51 10, autohs
text "Entre le chan :", 4, 3 13 35 8
edit "", 5, 53 23 51 10, autohs
text "Entre ton pass :", 6, 3 24 39 8
button "Ajouter", 7, 43 35 64 9
button "Fermer", 8, 89 46 37 8, ok
list 9, 110 0 107 32, size vsbar
button "Supprimer", 10, 110 35 64 9
}
On *:dialog:aa:*:*:{
if $devent == init { loadbuf -o aa 9 texte\salon.txt }
if $devent == sclick {
if $did == 7 { write texte\bot.txt $did(aa,2) | write texte\salon.txt $did(aa,3) | write texte\pass.txt $did(aa,5) | did -r aa 9 | loadbuf -o aa 9 texte\salon.txt }
if $did == 10 { write -dl $did(aa,9).sel texte\bot.txt | write -dl $did(aa,9).sel texte\salon.txt | write -dl $did(aa,9).sel texte\pass.txt | did -r aa 9 | loadbuf -o aa 9 texte\bot.txt }
}
}
On 1:Connect:{
var %a = 1
while (%a <= $lines(texte\bot.txt)) {
msg $read -l $+ %a texte\bot.txt auth $read -l $+ %a texte\salon.txt $me $read -l $+ %a texte\pass.txt
inc %a
}
}