Çevrimdışı

merhaba, sizler sayesinde bir away dialog tasarladım
Buna, pc başında olmadığım zaman otomatik away olsun kısmını eklemeye çalışıyorum. timer nasıl kullanılıyor. Mantığı nedir.
id nosu 7 olan checkbox işaretli ise, id si 9 olan editteki süre sonunda avay olsun
Teşekkurler


kodum şu şekilde
---------------------------------------------

alias mdx { return $dll(icon\dll\mdx.dll,$1,$2-) }
alias avaydlg { dialog -m avaydlg avaydlg }

dialog avaydlg {
title "Away Menüsü"
size -1 -1 177 97
option dbu
icon $mircdiricon\avay.ico, 0
box "Tutukuyuz Away Menüsü", 1, 4 4 165 72
text "Away Mesajı", 2, 8 16 37 8
edit "Biraz Müsade", 3, 40 15 122 10
check "", 4, 10 30 8 10
text "Away Olduğumda Nick'e Ekle", 5, 19 30 72 8
edit "_yok", 6, 95 29 66 10
check "", 7, 10 43 8 10
text "Pc Başında Değilsem", 8, 19 43 53 8
edit "25", 9, 72 42 20 10
text "Dk. Sonra Away oL", 10, 96 43 53 8
check "", 11, 10 56 8 10
text "Away Olduğumda Gelen Mesajları Kaydet", 12, 19 56 131 8
text "", 15, 62 65 48 8
button "Away oL", 13, 47 80 37 12
button "Awaydan Çık", 14, 87 80 37 12
}

on *:dialog:avaydlg:init:*:{
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(210,210,210)
mdx SetColor $dname 1,2,3,5,6,8,9,10,12 textbg $rgb(210,210,210)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12 background $rgb(210,210,210)
mdx SetColor $dname 2,3,5,6,8,9,10,12 text $rgb(128,0,0)
.did -ra $dname 3 %msebep
.did -c $dname 4
}
on *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ialog:avaydlg:sclick:13: { if %away == $null {
.set %mnickim $nick
.set %msebep $did(3)
.set %duy $amsg
if ($did(4).state == 1) {
set %awayn %nick $+ $did(6)
.nick %awayn
.away %msebep
/ame Gidiyorum.. Sebep: " $+ %msebep $+ 2"
echo -a 9,1Şuan Away Konumdasınız.
.did -ra $dname 15 Şuan Awaysiniz
.timer 1 0 dialog -x $dname $dname


} | else {
.away %msebep
/ame Gidiyorum.. Sebep: " $+ %msebep $+ 2"
echo -a 9,1Şuan Away Konumdasınız.
.did -ra $dname 15 Şuan Awaysiniz
.timer 1 0 dialog -x $dname $dname

}


}

elseif ( %away !== $true ) { echo -a zaten avaysin }


}

on *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ialog:avaydlg:sclick:14: { echo -a 9,1Şuan Awayden Çıktınız. .
.ame 5 Geri geldim!..
.away
.nick %mnickim
.did -ra $dname 15 Awayden Çıktınız

}