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
|
dialog auth {
title "Auth by nada"
size -1 -1 240 215
option pixels
button "OK", 1, 85 140 66 24, ok cancel
box "Authear Bot:", 2, 4 10 230 120
text "Auth IRC:", 3, 10 35 50 20
edit "Pon aqui auth del bot", 4, 100 30 128 20, autohs autovs
text "Contraseña:", 5, 10 60 60 20
edit "Pon aqui pw del bot", 6, 100 55 128 20, autohs autovs
check "Auth al conectar", 7, 10 80 120 20
check "+x (hide mask)", 8, 10 100 100 20
icon 9, 9 100 220 180, "imagenes/config.jpg", 1
}
alias _auth {
If ( $hget(auth) == $null ) {
}
dialog -m auth auth
}
on *:dialog:auth:sclick:1: {
if ($did(auth,4) == Pon aqui auth del bot) { _cfgfaltab | goto end }
if ($did(auth,4) == $null) { _cfgfaltab | goto end }
if ($did(auth,6) == Pon aqui pw del bot) { _cfgfaltaa | goto end }
if ($did(auth,6) == $null) { _cfgfaltaa | goto end }
writeini -n ini\auth.ini Auth User $did(auth,4)
writeini -n ini\auth.ini Auth Password $did(auth,6)
writeini -n ini\auth.ini Auth AutoAuth $did(auth,7).state
writeini -n ini\auth.ini Auth hideX $did(auth,8).state
//echo %e.s ------------------------- %e.e
//echo %e.s Auth aceptado %e.e
//echo %e.s Gracias por utilizar Tournament Proxy Bot v.4.01 %e.e
goto end2
:end
halt
:end2
}
On *:CONNECT: {
if ($readini(ini\auth.ini, Auth, AutoAuth) == 1) { .msg Q@CServe.quakenet.org AUTH $readini(ini\auth.ini, Auth, User) $readini(ini\auth.ini, Auth, Password) }
if ($readini(ini\auth.ini, Auth, hideX) == 1) { .timer 1 3 /mode $me +x }
}
|