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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   otomatik away (https://www.ircforumlari.net/mirc-scripting-sorunlari/27638-otomatik-away.html)

r0ck 09 Şubat 2007 11:20

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

TiPiTiP 09 Şubat 2007 16:44

Yanıt: otomatik away
 
Kod:

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

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.

TiPiTiP 11 Şubat 2007 21:18

Yanıt: otomatik away
 
Tekrar alır mısın kodu?

Kod:

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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:51.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net