Mdx.DLL Ve DiyaLogum
arkadaşlar bende mdx.dll var Birde diyalogta yazılmış MdxLer var ama renkLi gözükmüyor Niye acaba yardım ederseniz sevinirim.. Diyalogta Şu . Kod:
alias _awaypop { dialog $iif($dialog(awayset),-v,-m) awayset awayset }
alias cdialog { if ($dialog(cdialog)) { dialog -o cdialog | dialog -n cdialog } | else { dialog -m cdialog cdialog } }
dialog awayset {
title "-» Sakiz Script v2.0 "
size -1 -1 209 146
option dbu
box "MeşguL AyarLarı", 1, 2 17 204 37
text "Meşgul sebebim:", 4, 11 26 46 8, right
text "Meşgul olduğumda", 5, 11 38 46 8, right
edit "", 6, 60 37 76 10
text "ekini nickime ekLe.", 7, 143 38 57 8
combo 8, 60 25 94 40, edit size drop
box "GeLişmiş AyarLar", 9, 2 55 204 77
check "Cevap gönder", 10, 11 67 47 10
edit "", 11, 53 80 88 10, disable autohs
text "Cevap Mesajım:", 12, 11 81 40 8, right
check "Kayıt Tut", 13, 63 67 35 10
text "oLsun...", 14, 143 81 25 8, center
button "&MeşguL / Away Ol", 15, 11 95 37 31, multi
button "Meşgul / Away &Kapat", 16, 49 95 37 31, multi
text "Durum:", 17, 89 96 20 8
text "Nick:", 18, 89 107 14 8
text "Away Nick:", 19, 89 117 29 8
text "Kapalı", 20, 110 96 23 8
text "$me", 21, 106 107 96 8
text "Away Nick", 22, 121 117 81 8
text "00:00:00'da Away oldunuz", 23, 133 96 70 8, center
button "&Tamam", 24, 2 135 51 10, ok
text "mIRC Away ( Meşgul ) Sistemi", 975, 0 0 207 14, center
}
on 1:dialog:awayset:*:*:{
if ($devent == init) {
mdxdll SetMircVersion $version
mdxdll MarkDialog $dname $dialog($dname).hwnd
mdxdll SetColor 23 text $rgb(255,141,035)
mdxdll SetColor $dname 975 text $rgb(0,76,148)
mdxdll SetFont 975 25 100 Sylfaen
mdxdll SetColor 4,5,7,12,14,17,18,19 text $rgb(025,039,241)
mdxdll SetColor 20,21,22 text $rgb(228,000,000)
mdxdll SetBorderStyle 8,11 staticedge,visible
mdxdll SetBorderStyle 15,16,24 staticedge
mdxdll SetFont 3 19 700 Palatino Linotype
mdxdll SetColor 6,11 text $rgb(2,139,28)
if (%a.omes == on) { did -c $dname 10 | did -e $dname 11 }
if (%a.kayit == on) { did -c $dname 13 }
did -a $dname 23 $iif($away == $true,%a.times da Away oLdunuz,MeşguL değiLsiniz.)
did -a $dname 21 $iif($away == $true,%b.nick,$me)
did -a $dname 22 $iif($away == $true,$me,MeşguL DeğiLsiniz.)
did -a $dname 20 $iif($away == $true,MeşguL,Çevrimiçi)
did -ra $dname 6 %awayek
did -ra $dname 11 %a.otomesm
did -a $dname 8 Pc ßaşında DeğiLim.
did -a $dname 8 TeLefondayım.
did -a $dname 8 Yemekteyim.
did -a $dname 8 Dışardayım.
did -a $dname 8 TV İzLiyorum.
did -a $dname 8 WC'deyim :Pp
did -a $dname 8 SıkıLdım.
did -a $dname 8 Küstüm Size. :((
did -c $dname 8 1
}
if ($devent == sclick) {
if ($did == 10) {
if (%a.omes == on) { set %a.omes off | did -b $dname 11 | halt }
if (%a.omes == off) { set %a.omes on | did -e $dname 11 | halt }
}
if ($did == 13) {
if (%a.kayit == on) { set %a.kayit off | halt }
if (%a.kayit == off) { set %a.kayit on | halt }
}
if ($did == 15) { set %awayek $did(6) | a.ol $did(8) }
if ($did == 16) { a.kap }
}
if ($devent == edit) {
if ($did == 11) { set %a.otomesm $did(11) }
}
}
alias a.ol {
away $1-
set %b.nick $me
set %a.times $time
.nick $me $+ %awayek
ame MeşguLüm. Seßep: $1- %logo
$iif($dialog(awayset),dialog -c awayset awayset)
}
alias a.kap {
away
.nick %b.nick
ame MeşguLden Döndüm %logo
$iif($dialog(awayset),dialog -c awayset awayset)
}
on 1:text:*:?:{
if ($away == $true) && ($nick !== $me) {
if (%a.omes == on) { .msg $nick %a.otomesm $iif(%a.kayit == on,10Mesajınız KaydediLiyor.) %logo }
if (%a.kayit == on) { window -m @Away | echo @Away < $+ $nick $+ > $1- | close -m $nick }
}
}
on *:text:*:#: {
if $me isin $strip($1-) && $away {
describe # 7 $nick 4aWaY1DaYıM oLm Ne SesLeniYoN aWaY Seßeßim 2 ( $awaymsg $+ 2 ) 3;) HaDi yQkum RaHaTSıZ EtMe 4« 10OpS 5SCRiPT4 »
}
}
McKruger'in anlatımlarına baktım Öyle yapmaya çalıştım yok olmuyor sonunda deLirecem vallahi :S |
