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

r0ck · 09 Şubat 2007, 11:20

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 } }
}
}

TiPiTiP · 09 Şubat 2007, 16:44

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.
}
}

r0ck · 10 Şubat 2007, 09:42

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadasım eline saglık ugrasman gü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ür ederım.

TiPiTiP · 11 Şubat 2007, 21:18

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...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Otomatik girme	Kimimben	Unreal IRCd	2	29 Ekim 2009 22:56
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

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.