on *:load:{
echo -at 4 Caricamento ...
set %away off
set %radioaway off
set %nickname.away $me $+ [away]
set %passnick.away Password
set %motivo Motivo dell'Away
set %check.away on
set %query.away on
echo -at 4 Completato correttamente.
echo -at 4 Il Sistema di Away è pronto per essere utilizzato.
echo -at 4 Per cominciare ad utilizzare il Sistema clicca con
echo -at 4 il tasto destro in qualsiasi finestra di mIRC, e
echo -at 4 poi clicca sulla voce "Sistema Away".
echo -at 4 Grazie per aver scelto questa Utility.
}
menu channel,query,status {
-
«‡Sistema di AwaY‡»:/dialog -m away away
-
}
dialog away {
title "Sistema Away «}-²¯[ذ¥آكLطڑ]¯‡¤‡¯]§¢®¥™[¯²-{»"
box "Impostazione",13,5 0 390 90
box "Stato",14,5 90 390 35
box "Azione",15,5 125 390 35
option dbu
size -1 2 200 100
radio "Attiva", 1, 10 53 30 8
radio "Disattiva", 2, 100 53 30 8
button "Ok", 3, 20 85 50 10, ok
button "Annulla", 4, 100 85 50 10, cancel
text "Motivo Away:", 5, 10 10 70 10
text "Nickname:", 6, 10 20 70 10
edit "", 7, 65 19 125 10, autohs
edit "", 8, 65 9 125 10, autohs
text "Password Nick:", 9, 10 30 80 10
edit "", 10, 65 29 100 10, autohs
check "Avvisa in Chan", 11, 10 69 48 10
check "Chiudi Query", 12, 100 69 48 10
}
on *:dialog:away:init:0: {
if (%radioaway == on) { did -c away 1 }
if (%radioaway == off) { did -c away 2 }
if (%away == on) { did -b away 7 | did -b away 8 | did -b away 10 }
if (%check.away == on) { did -c away 11 }
if (%check.away == off) { did -u away 11 }
if (%query.away == on) { did -c away 12 }
if (%query.away == off) { did -u away 12 }
{ did -a away 7 %nickname.away }
{ did -a away 8 %motivo }
{ did -a away 10 %passnick.away }
}
on *:dialog:away:sclick:1: { set %radioaway on }
on *:dialog:away:sclick:2: { set %radioaway off }
on *:dialog:away:sclick:3:{
if (%radioaway == on) && (%away == off) && (%check.away == on) { set %nickname.presente $me | set %away.durata $time(HH:nn) | /away %motivo | /nick %nickname.away | /amsg 14S4ono 14a4way 14P4erchè11 %motivo 10²8,1•7¤4-14ذ4-14¥4-15آ4-15ك4,1-15L4-14ط4-14ڑ4-7¤8•10²14 14B4y14M4oro14M4oro | set %away on }
if (%radioaway == on) && (%away == off) && (%check.away == off) { set %nickname.presente $me | /away %motivo | /nick %nickname.away | set %away on }
elseif (%radioaway == off) && (%away == on) && (%check.away == on) { /away | /nick %nickname.presente | /amsg 14N4n 14S4ono 14p4iù 14a4way7 %motivo 14D4alle 14o4re7 %away.durata 10²8,1•7¤4-14ذ4-14¥4-15آ4-15ك4,1-15L4-14ط4-14ڑ4-7¤8•10²14 14B4y14M4oro14M4oro | set %away off }
elseif (%radioaway == off) && (%away == on) && (%check.away == off) { /away | /nick %nickname.presente | set %away off }
else { /close -c }
}
on *:dialog:away:edit:7: { set %nickname.away $did(away,7) }
on *:dialog:away:edit:8: { set %motivo $did(away,8) }
on *:dialog:away:edit:10: { set %passnick.away $did(away,10) }
on *:dialog:away:sclick:11: {
if ($did(11).state == 1) { set %check.away on }
else { set %check.away off }
}
on *:dialog:away:sclick:12: {
if ($did(12).state == 1) { set %query.away on }
else { set %query.away off }
}
on *:TEXT:*:?:{ if (%away == on) && (%query.away == on) && ($nick != $me) { /close -m $nick | /msg $nick 14M4i 14d4ispiace 14n4on 14h4o 14r4icevuto 14i4l 14t4uo 14m4essaggio 14p4erkè 14s4ono 14a4way7 %motivo 14è 14h4o 14d4isabilitato 14l4e 14Q4uery14.4. } }
on *:NOTICE:*:*:{ if ($nick == NickServ) && (*identificati* iswm $1-) && (%away == on) { /ns identify %passnick.away } }
on 1:start:{ if (%away == on) && (%radioaway == on) { set %away off | set %radioaway off } }
on 1:DISCONNECT:{ if (%away == on) && (%radioaway == on) { /nick %nickname.presente | set %away off | set %radioaway off } }