Notes

; www.mircturk.com , www.mircforum.com
; LeadeR ([email protected])

dialog _away {
title "Away Dialog | MTOps V2.0 Coded : LeadeR &"
size -1 -1 157 204
option dbu
icon icon9.ico, 0, 0
tab "Hazır ( Meşgul ) Menu", 1, 0 -2 156 200
box "", 12, 8 115 141 19, tab 1
button "Ok", 13, 11 121 12 10, tab 1
edit " Yemek Molasi , Geleceğim..", 14, 23 120 124 12, tab 1 read
button "Ok", 9, 11 105 12 10, tab 1
edit " Çalışıyorum , Rahatsız Etmeyiniz..", 10, 23 104 124 12, tab 1 read
box "", 8, 8 83 141 19, tab 1
edit "Hızlı meşgul menu'den , uygulanmasını istediğiniz seceneğin sol tarafında bulunan Ok Butonuna tıklayarak işlem yaparsınız", 24, 10 138 137 28, tab 1 read multi
box "", 25, 8 132 141 37, tab 1
edit " Meşgul Durumdan Çık.", 27, 23 169 87 12, tab 1 read
button "Kapat", 28, 121 169 28 11, tab 1
button "Ok", 26, 10 170 12 10, tab 1
edit " Bilgisayar başında değilim..", 7, 23 88 124 12, tab 1 read
button "Ok", 6, 11 89 12 10, tab 1
box "", 29, 8 99 141 19, tab 1
edit " Hazır Meşgul Menu", 41, 26 71 105 12, tab 1 read
tab "Kişisel ( Meşgul ) Menu", 2
edit " Mesaj", 31, 10 88 34 12, tab 2 read
edit "", 32, 47 88 100 12, tab 2 return autohs autovs
box "", 33, 8 100 141 19, tab 2
button "Ok", 30, 11 106 12 10, tab 2
edit " Mesajı Girdi iseniz Ok Tusuna Basın", 34, 23 105 124 12, tab 2 read
edit "Bilgilendirme Penceresi , Mesaj bölümünü doldurup , ok tuşuna bastığınızda yazdığınız mesaj ile away(meşgul) duruma gecmiş olacaksınız , ve bu aktif pencerede ön izleme yapacaksınız..", 35, 10 124 137 36, tab 2 read multi
box "", 36, 8 119 141 43, tab 2
button "Ok", 37, 11 163 12 10, tab 2
edit " Meşgul Durumdan Çık.", 38, 23 162 87 12, tab 2 read
button "Kapat", 39, 121 162 28 11, tab 2
edit " Kişisel Meşgul Menu", 3, 26 71 105 12, tab 2 read
icon 22, 28 18 15 15, AwayBubble Arrow Silver.ico, 0
edit " Seçenekler", 5, 44 21 65 12, read
icon 23, 109 18 15 15, AwayBubble Arrow Silver.ico, 0
check "Check Box", 16, 10 41 7 7
edit "Seslenildiğinde Kanal'a Rapor Ver..", 17, 17 38 130 12, read
box "", 15, 8 33 141 19
check "Check Box", 19, 10 57 7 7
edit "30 DK Yazmaz isem Otomatik Away Ol", 20, 17 54 130 12, read
box "", 18, 8 49 141 19
icon 4, 8 68 15 15, AwayBubble Checker.ico, 0
icon 21, 132 68 15 15, AwayBubble Checker.ico, 0
box "", 11, 8 83 141 19
box "", 40, 4 12 149 172
edit " © 2006 - www.turkcoders.com , Coded : LeadeR", 42, 3 184 150 14, read multi
}

on *:dialog:_away:sclick:*: {
if ($did == 13) { away 0,4Yemek Molasi , Geleceğim.. | echo -a 0,4.:: Meşgul Duruma Gectiniz ::. | did -ra $dname 14 İşlem Gerçekleşti }
if ($did == 9) { away 0,4Çalışıyorum , Rahatsız Etmeyiniz.. | echo -a 0,4.:: Meşgul Duruma Gectiniz ::. | did -ra $dname 10 İşlem Gerçekleşti }
if ($did == 6) { away 0,4Bilgisayar başında değilim.. | echo -a 0,4.:: Meşgul Duruma Gectiniz ::. | did -ra $dname 7 İşlem Gerçekleşti }
if ($did == 26) { away | echo -a 0,4.:: Meşgul Durumdan Çıktınız ::. | did -ra $dname 27 Artık Meşgul Değilsiniz }
if ($did == 37) { away | echo -a 0,4.:: Meşgul Durumdan Çıktınız ::. | did -ra $dname 38 Artık Meşgul Değilsiniz | did -ra $dname 35 Meşgul Durumdan Çıkış Yaptınız | did -ra $dname 32 }
if ($did == 30) { away $did(32) | did -ra $dname 35 Meşgul Sebebi : $did(32) | echo -a 0,4.:: Meşgul Duruma Geçtiniz ::. }
if ($did(16).state == 1) { .enable #ses } | else { .disable #ses }
if ($did(19).state == 1) { .enable #awayk } | else { .disable #awayk }
if ($did == 39) { dialog -x _away }
if ($did == 28) { dialog -x _away }
}

on *:dialog:_away:init:0: {
if ($group(#ses) == on) { did -c _away 16 }
if ($group(#awayk) == on) { did -c _away 19 }
}

on *:dialog:_away:*:*:{
mdx SetMircVersion $version | mdx MarkDialog $dname
mdx SetFont 3,41,5 16 700 Tahoma
mdx SetFont 42,13,9,31,6,30,34,39,26,28,37,27,38,14,7,10 13 800 Tahoma
mdx SetColor $dname 31,34,5,41,3,27,38,14,7,10,1 text $rgb(0,0,0)
mdx SetColor $dname 31,34,5,41,3,27,38,14,7,10,1 background $rgb(220,220,220)
mdx SetColor $dname 31,34,5,41,3,27,38,14,7,10,1 textbg $rgb(220,220,220)
mdx SetFont 17,20,32 13 800 Tahoma
mdx SetColor $dname 17,20,32 text $rgb(220,220,220)
mdx SetColor $dname 17,20,32 background $rgb(0,54,81)
mdx SetColor $dname 17,20,32 textbg $rgb(0,54,81)
mdx SetFont 42,35,24 13 800 Tahoma
mdx SetColor $dname 42,35,24 text $rgb(255,255,255)
mdx SetColor $dname 42,35,24 background $rgb(145,72,0)
mdx SetColor $dname 42,35,24 textbg $rgb(145,72,0)
}

#ses on
on *:text:*:#: {
if $me isin $strip($1-) && $away {
describe # $nick su anda away'im (sebep: $awaymsg $+ ). özelime not bırakabilirsiniz.
}
}

on *:open:?: {
if $away {
msg $nick Şu anda awayim (sebep: $awaymsg $+ ).
}
}
#ses end

#awayk on
on *:start: {
.timer 0 1 awaykontrol
.timertitletoc off
.title [ $server $time ] Boş geçen zaman: $iif($server,$idle) saniye
.timertitle 0 1 titletime
}

alias awaykontrol {
if ($idle == 1800) {
if ($server) {
.away 0,4Otomatik away moduna geçildi..
}
}
}
#awayk end


alias _away { dialog -m _away _away }

mdx { return $dll(DLLmdx.dll,$1,$2-) }

on *:load: {
echo -a 0,4www.mircturk.com & www.mircforum.com
echo -a 0,7Kodlayan : LeadeR ([email protected])
}