IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 09 Şubat 2007, 11:20   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
otomatik away




20 dak mesaj yazmadıgım zaman otomatik away olabılmek istiyorum.bir away add-on um var bununla beraber calısmasını istiyorum.nasıl yapabılırım?

away add-onum ;
alias awayol { dialog -m ewey ewey }
dialog ewey {
title "Away Ol"
icon $mircdiricon\away.ico
size -1 -1 196 69
option dbu
text "Away'a Gir", 1, 66 4 64 14
edit "", 2, 38 25 150 10, autohs
text "Away Sebebiniz", 3, 0 27 36 5
button "Away Ol", 4, 13 38 77 14
button "Awaydan Çık", 5, 100 38 77 14
check "Bulunduğum Tüm Kanallardan Deop Et Beni", 6, 45 54 117 10
}
on *:dialog:ewey:*:*:{
if ($devent == init) {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetFont 2,4,5,6 11 700 Tahoma
mdx SetFont 1 29 700 Tahoma
mdx SetFont 3 10 700 Verdana
mdx SetColor $dname 2 textbg $rgb(13,16,130)
mdx SetColor $dname 2 Background $rgb(13,16,130)
mdx SetColor $dname 2 text $rgb(255,255,255)
if (%deopla == acik) { did -c ewey 6 }
mdx SetColor $dname 1,3 text $rgb(13,16,130)
if ($away == $true) { did -a $dname 2 Şu Anda Awaysınız : %awaysebep }
if ($away == $false) { halt }
}
if ($devent == sclick) {
if ($did == 4) { if ($server != $null) { set %awaysebep $did(2) | away Awayım : %awaysebep  %logo | did -b $dname 2 | did -ra $dname 2 Şu Anda Awaysınız : %awaysebep | Ame awayım Sebep : %awaysebep %logo
if (%deopla == acik) {
var %i $comchan($me,0)
while (%i > 0) {
if ($me isop $comchan($me,%i)) { mode $comchan($me,%i) +v-ao $me $me $me }
dec %i
}
}
}
}
if ($did == 5) { ame " $+ %awaysebep $+ " Awaydım Geri Geldim %logo | unset %awaysebep | away | did -e $dname 2 | did -ra $dname 2 Şu Anda Away Değilsiniz
if (%deopla == acik) {
var %i $comchan($me,0)
while (%i > 0) {
cs op $comchan($me,1) $me
dec %i
}
}
}
if ($did == 6) { if ($did(6).state == 1) { set %deopla acik } | else { set %deopla kapali } }
}
}

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 09 Şubat 2007, 16:44   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: otomatik away




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias awayol { dialog -m ewey ewey } dialog ewey { title "Away Ol" icon $mircdiricon\away.ico size -1 -1 196 89 option dbu text "Away'a Gir", 1, 66 4 64 14 edit "", 2, 38 25 150 10, autohs text "Away Sebebiniz", 3, 0 27 36 5 button "Away Ol", 4, 13 38 77 14 button "Awaydan &#199;ık", 5, 100 38 77 14 check "Bulunduğum T&#252;m Kanallardan Deop Et Beni", 6, 45 54 117 10 check "20 Dakika Mesaj Yazmazsam Oto. Away Ol", 7, 45 64 117 10 } on *:dialog:ewey:*:*:{ if ($devent == init) { mdx SetMircVersion $version mdx MarkDialog $dname mdx SetFont 2,4,5,6,7 11 700 Tahoma mdx SetFont 1 29 700 Tahoma mdx SetFont 3 10 700 Verdana mdx SetColor $dname 2 textbg $rgb(13,16,130) mdx SetColor $dname 2 Background $rgb(13,16,130) mdx SetColor $dname 2 text $rgb(255,255,255) if (%deopla == acik) { did -c ewey 6 } if (%otoaway == acik) { did -c ewey 7 } mdx SetColor $dname 1,3 text $rgb(13,16,130) if ($away == $true) { did -a $dname 2 Şu Anda Awaysınız : %awaysebep } if ($away == $false) { halt } } if ($devent == sclick) { if ($did == 4) { if ($server != $null) { set %awaysebep $did(2) | away Awayım : %awaysebep  %logo | did -b $dname 2 | did -ra $dname 2 Şu Anda Awaysınız : %awaysebep | Ame awayım Sebep : %awaysebep %logo if (%deopla == acik) { var %i $comchan($me,0) while (%i > 0) { if ($me isop $comchan($me,%i)) { mode $comchan($me,%i) +v-ao $me $me $me } dec %i } } } } if ($did == 5) { ame " $+ %awaysebep $+ " Awaydım Geri Geldim %logo | unset %awaysebep | away | did -e $dname 2 | did -ra $dname 2 Şu Anda Away Değilsiniz if (%deopla == acik) { var %i $comchan($me,0) while (%i > 0) { cs op $comchan($me,1) $me dec %i } } } if ($did == 6) { if ($did(6).state == 1) { set %deopla acik } | else { set %deopla kapali } } if ($did == 7) { if ($did(7).state == 1) { set %otoaway acik | .timerCNTL 0 1 awaykontrol } | else { set %otoaway kapali | .timerCNTL off } } } } alias awaykontrol { if ($idle <= 1200) && !$away { ame Otomatik Meşgul Modu: 20 dk. | away Otomatik Meşgul Modu: 20 dk. } }



Konu TiPiTiP tarafından (09 Şubat 2007 Saat 17:56 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 10 Şubat 2007, 09:42   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: otomatik away




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadasım eline saglık ugrasman g&#252;zel fakat malesef 20 dak beklemeden hemen kendını away modesıne sokuyor.yaklasık 10 sanıye beklıyor ondan sonra otomatık awaya alıyor.Yinede cok tesekk&#252;r ederım.

 
Alıntı ile Cevapla

Alt 11 Şubat 2007, 21:18   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: otomatik away




Tekrar alır mısın kodu?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias awayol { dialog -m ewey ewey } dialog ewey { title "Away Ol" icon $mircdiricon\away.ico size -1 -1 196 89 option dbu text "Away'a Gir", 1, 66 4 64 14 edit "", 2, 38 25 150 10, autohs text "Away Sebebiniz", 3, 0 27 36 5 button "Away Ol", 4, 13 38 77 14 button "Awaydan Çık", 5, 100 38 77 14 check "Bulunduğum Tüm Kanallardan Deop Et Beni", 6, 45 54 117 10 check "20 Dakika Mesaj Yazmazsam Oto. Away Ol", 7, 45 64 117 10 } on *:dialog:ewey:*:*:{ if ($devent == init) { mdx SetMircVersion $version mdx MarkDialog $dname mdx SetFont 2,4,5,6,7 11 700 Tahoma mdx SetFont 1 29 700 Tahoma mdx SetFont 3 10 700 Verdana mdx SetColor $dname 2 textbg $rgb(13,16,130) mdx SetColor $dname 2 Background $rgb(13,16,130) mdx SetColor $dname 2 text $rgb(255,255,255) if (%deopla == acik) { did -c ewey 6 } if (%otoaway == acik) { did -c ewey 7 } mdx SetColor $dname 1,3 text $rgb(13,16,130) if ($away == $true) { did -a $dname 2 Şu Anda Awaysınız : %awaysebep } if ($away == $false) { halt } } if ($devent == sclick) { if ($did == 4) { if ($server != $null) { set %awaysebep $did(2) | away Awayım : %awaysebep  %logo | did -b $dname 2 | did -ra $dname 2 Şu Anda Awaysınız : %awaysebep | Ame awayım Sebep : %awaysebep %logo if (%deopla == acik) { var %i $comchan($me,0) while (%i > 0) { if ($me isop $comchan($me,%i)) { mode $comchan($me,%i) +v-ao $me $me $me } dec %i } } } } if ($did == 5) { ame " $+ %awaysebep $+ " Awaydım Geri Geldim %logo | unset %awaysebep | away | did -e $dname 2 | did -ra $dname 2 Şu Anda Away Değilsiniz if (%deopla == acik) { var %i $comchan($me,0) while (%i > 0) { cs op $comchan($me,1) $me dec %i } } } if ($did == 6) { if ($did(6).state == 1) { set %deopla acik } | else { set %deopla kapali } } if ($did == 7) { if ($did(7).state == 1) { set %otoaway acik | .enable #oto-away } | else { set %otoaway kapali | .disable #oto-away } } } } #oto-away on on *:CONNECT:{ .timer 0 1 /boşsürekontrol } alias boşsürekontrol { if ($idle == 1200) && !$away { ame [Otomatik Meşgul Modu: 20 dk.] | away [Otomatik Meşgul Modu: 20 dk.] } } #oto-away end

Biraz değiştirdim, mIRC'i başlattığında "20 Dakika Mesaj Yazmazsam Oto. Away Ol" seçeneğini işaretlediğinde herhangi bir sunucuya bağlandığında her saniye boş süreni (idleını) kontrol eder. 20 dakika olduğunda otomatik meşgul moduna geçersin...

 
Alıntı ile Cevapla

Cevapla

Etiketler
away, mirc, mirc download, mirc indir, otomatik


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
otomatik girme Kimimben Unreal IRCd 1 29 Ekim 2009 00:33
Otomatik ban açma .. KhaiN mIRC Scripting Sorunları 6 09 Ağustos 2006 23:21
otomatik away MaeLStrOm mIRC Scripting Sorunları 1 03 Mayıs 2005 18:48