Away PaneLi

menu menubar {
-
» Away paneli:/dialog -m away away
-
}
alias awayset { dialog -m away away }
dialog away {
title "OzZy sCripT Away"
size -1 -1 139 147
option dbu
button "Yemekteyim", 1, 4 10 37 12
button "D1_arday1m", 2, 48 10 37 12
button "Telefonday1m", 3, 93 10 40 12
button "Me_gul", 4, 4 29 37 12
button "Uyuyorum", 5, 48 29 37 12
button "Yok", 6, 93 29 40 12
box "Otomatik Away", 7, 1 0 137 45
edit "", 8, 27 53 79 10, autohs
box "Sebep Gir", 9, 1 45 137 37
button "Away Ol", 10, 10 66 44 12
button "Awaydan Ç1k", 11, 86 66 44 12
button "Uygula", 14, 3 131 37 12, ok
box "Ayarlar", 15, 1 100 138 47
button "0ptal", 16, 96 131 37 12, cancel
radio "Mesaj Olarak Kanala Gönder", 13, 26 118 92 10
radio "Notice Olarak Nicke Gönder", 12, 26 106 88 10
edit "", 17, 43 93 19 9
text " ^u Kadar Dakika Konu_mazsam Otomatik Away Ol", 18, 4 85 133 8
text "Dakika", 19, 65 94 25 8
}

on *:dialog:away:init:*: {
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(131,139,139)
mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 +b Turkish 12 600 Tahoma
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 textbg $rgb(131,139,139)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 background $rgb(131,139,139)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 text $rgb(0,0,0)
mdx SetDialog $dname style title tool sysmenu
if (%noticea == on) { did -c away 12 }
if (%mesaja == on) { did -c away 13 }
}

on *:dialog:away:sclick:*: {
if ($did == 1) { set %u on | set %r ^uan Yemekteyim, Notunuzu Tarih,Kanal ve Mesaj1n1zla Beraber Not Ald1m, Online Olduumda Cevap Vereceim. | unset %a %c %k %w %e %f %uf %k %s %y %ken %l | dialog -x away away }
if ($did == 2) { set %f on | set %a 0,12 | unset %r %c %k %w %e %u %uf %k %s %y %ken %l | dialog -x away away }
if ($did == 3) { set %uf on | set %c ^uan Telefonday1m, Notunuzu Tarih,Kanal ve Mesaj1n1zla Beraber Not Ald1m, Online Olduumda Cevap Vereceim. | unset %a %r %k %w %e %f %u %k %s %y %ken %l | dialog -x away away }
if ($did == 4) { set %k on | set %ka ^uan Me_gulüm, Notunuzu Tarih,Kanal ve Mesaj1n1zla Beraber Not Ald1m, Online Olduumda Cevap Vereceim. | unset %a %c %r %w %e %f %uf %u %s %y %ken %l | dialog -x away away }
if ($did == 5) { set %s on | set %w Uyuyorum, Notunuzu Tarih,Kanal ve Mesaj1n1zla Beraber Not Ald1m, Online Olduumda Cevap Vereceim. | unset %a %c %k %r %e %f %uf %k %u %y %ken %l | dialog -x away away }
if ($did == 6) { set %y on | set %e ^uan Yokum, Notunuzu Tarih,Kanal ve Mesaj1n1zla Beraber Not Ald1m, Online Olduumda Cevap Vereceim. | unset %a %c %k %w %r %f %uf %k %s %u %ken %l | dialog -x away away }
if ($did == 10) { set %ken on | set %l $did(8) | unset %e %y %a %c %k %w %r %f %uf %k %s %u | dialog -x away away }
if ($did == 12) {
if ($did(away,12).state == 1) {
set %noticea on | set %mesaja off
}
}
if ($did == 13) {
if ($did(away,13).state == 1) {
set %mesaja on | set %noticea off
}
}
if ($did == 11) {
unset %r %a %c %k %w %e %f %uf %k %s %y %l %ka %ken %u
if $did(17) == $null { unset %awaylimited | unset %kaf | unset %pcyok | .timers off | dialog -x away away }
}
if $did == 14 {
if $did(17) != $null { set %kaf $calc($did(17) * 60) | .timers off | unset %awaylimited | .timer 0 %kaf whois $me | .timer 0 %kaf echo -a 10 Away Menüsü X Dakika Sonra Away Ol Komutu Aktif Olduundan Whois Kontrol 0çin Whois Çekmektedir. Bilginize.. }
}
}
on *:exit: {
unset %r %a %c %k %w %e %f %uf %k %s %y %l %ka %ken %u
}
on *:text:*:#: {
if ($me isin $1-) {
if (%mesaja == on) {
set %OzZy $nick
if (%u == on) && (!$hmatch(ozelkoru,koru)) { msg $chan %OzZy $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%f == on) && (!$hmatch(ozelkoru,koru)) { msg $chan %OzZy $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%uf == on) && (!$hmatch(ozelkoru,koru)) { msg $chan %OzZy $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%k == on) && (!$hmatch(ozelkoru,koru)) { msg $chan %OzZy $+ , %ka | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%s == on) && (!$hmatch(ozelkoru,koru)) { msg $chan %OzZy $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%y == on) && (!$hmatch(ozelkoru,koru)) { msg $chan %OzZy $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%ken == on) && (!$hmatch(ozelkoru,koru)) { msg $chan %OzZy $+ , %l | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%pcyok == on) && (!$hmatch(ozelkoru,koru)) { msg $chan %OzZy $+ , Pc Ba_1nda Yokum, Mesaj1n1z1 Tarih/Saat/Kanal/Yaz1n1z Olarak Not Ald1m. Geldiinde Sahibime 0leteceim | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
unset %OzZy
}
if (%noticea == on) {
if (%u == on) && (!$hmatch(ozelkoru,koru)) { notice $nick %OzZy $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%f == on) && (!$hmatch(ozelkoru,koru)) { notice $nick %OzZy $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%uf == on) && (!$hmatch(ozelkoru,koru)) { notice $nick %OzZy $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%k == on) && (!$hmatch(ozelkoru,koru)) { notice $nick %OzZy $+ , %k | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%s == on) && (!$hmatch(ozelkoru,koru)) { notice $nick %OzZy $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%y == on) && (!$hmatch(ozelkoru,koru)) { notice $nick %OzZy $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%ken == on) && (!$hmatch(ozelkoru,koru)) { notice $nick %OzZy $+ , %l | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
if (%pcyok == on) && (!$hmatch(ozelkoru,koru)) { notice $nick %OzZy $+ , Pc Ba_1nda Yokum, Mesaj1n1z1 Tarih/Saat/Kanal/Yaz1n1z Olarak Not Ald1m. Geldiinde Sahibime 0leteceim | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru koru }
unset %OzZy
}
}
}


on *:text:*:?: {
if ($me isin $1-) {
if (%mesaja == on) {
set %OzZy $nick
if (%u == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%f == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%uf == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%k == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %k | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%s == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%y == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%ken == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %l | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%pcyok == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , Pc Ba_1nda Yokum, Mesaj1n1z1 Tarih/Saat/Kanal/Yaz1n1z Olarak Not Ald1m. Geldiinde Sahibime 0leteceim | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
unset %OzZy
}
if (%noticea == on) {
if (%u == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%f == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%uf == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%k == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %ka | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%s == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%y == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%ken == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %l | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
if (%pcyok == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , Pc Ba_1nda Yokum, Mesaj1n1z1 Tarih/Saat/Kanal/Yaz1n1z Olarak Not Ald1m. Geldiinde Sahibime 0leteceim | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanal1nda Size Seslendi Mesaj1: 10 $1- | hinc -mu10 ozelkoru2 koru }
unset %OzZy
}
}
}
raw 317:*: {
if $2 == $me {
set %awaylimited $3
if %awaylimited >= %kaf { set %pcyok on }
halt
}
}
raw 340:*: {
if %yyap == on {
ns list *@ $+ $gettok($2,2,64)
unset %yyap
}
if %birbak == on {
set %ozelk on | who +h $gettok($2,2,64) | unset %birbak