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/)
-   -   away addon (https://www.ircforumlari.net/mirc-scripting-sorunlari/315868-away-addon.html)

Leo 09 Şubat 2010 15:25
away addon
 
PHP- Kodu:
alias mdx return $dll(maway/mdx.dll,$1,$2-)
alias maway { dialog -m maway maway } 
dialog maway {
  title "Mynet Away Menüsü"
  size -1 -1 139 131
  option dbu
  button "Yemekteyim", 1, 4 10 37 12
  button "Dışardayım", 2, 48 10 37 12
  button "Telefondayım", 3, 93 10 40 12
  button "Meşgul", 4, 4 29 37 12
  button "H.Dönecek", 5, 48 29 37 12
  button "Yok", 6, 93 29 40 12
  box "Otomatik Away", 7, 1 0 137 45
  edit "", 8, 27 53 79 10
  box "Sebep Gir", 9, 1 45 137 37
  button "Away Ol", 10, 10 66 44 12
  button "Awaydan Çık", 11, 86 66 44 12
  check "Notice Olarak Nicke Gönder", 12, 26 91 90 10
  check "Mesaj Olarak Kanala Gönder", 13, 26 101 94 10
  button "Tamam", 14, 3 114 37 12, ok
  box "Ayarlar", 15, 1 83 137 47
  button "İptal", 16, 96 114 37 12, cancel
}
 
menu * { 
  Away:maway
}
on *:dialog:maway:init:*: { 
  mdx MarkDialog $dname   
  mdx SetDialog $dname bgcolor $rgb(0,128,0) 
  var %i = 1
  while (%i <= 16) {  
    mdx SetFont $dname %i +b Turkish 14 600 Arial
    mdx SetColor $dname %i textbg $rgb(0,128,0)
    mdx SetColor $dname %i background $rgb(0,128,0)
    mdx SetColor $dname %i text $rgb(255,255,255) 
    inc %i
    mdx SetDialog $dname style title tool sysmenu
  }
  if (%noticea == on) { did -c maway 12 }
  if (%mesaja == on) { did -c maway 13 } 
}
on *:dialog:maway:sclick:*: { 
  if ($did == 1) { set %u on | set %r Şuan Yemekteyim, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %a %c %k %w %e %f %uf %k %s %y %ken %l | dialog -x maway maway  } 
  if ($did == 2) { set %f on | set %a Şuan Dışardayım, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %r %c %k %w %e %u %uf %k %s %y %ken %l | dialog -x maway maway }  
  if ($did == 3) { set %uf on | set %c Şuan Telefondayım, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %a %r %k %w %e %f %u %k %s %y %ken %l | dialog -x maway maway  }  
  if ($did == 4) { set %k on | set %ka Şuan Meşgulüm, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %a %c %r %w %e %f %uf %u %s %y %ken %l | dialog -x maway maway  }  
  if ($did == 5) { set %s on | set %w Birazdan Döneceğim, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %a %c %k %r %e %f %uf %k %u %y %ken %l | dialog -x maway maway  }  
  if ($did == 6) { set %y on | set %e Şuan Yokum, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Sahibim Online Olduğunda İleteceğim. | unset %a %c %k %w %r %f %uf %k %s %u %ken %l | dialog -x maway maway  }  
  if ($did == 10) { set %ken on | set %l $did(8) | unset %e %y %a %c %k %w %r %f %uf %k %s %u | dialog -x maway maway  } 
  if ($did == 11) { unset %r %a %c %k %w %e %f %uf %k %s %y %l %ka %ken | dialog -x maway maway } 
  if ($did == 12) { 
    if ($did(maway,12).state == 1) { 
      set %noticea on | set %mesaja off
    } 
  }
  if ($did == 13) { 
    if ($did(maway,13).state == 1) { 
      set %mesaja on | set %noticea off 
    } 
  }
}
on *:text:*:#: { 
  if ($me isin $1-) {
    if (%mesaja == on) { 
      set %ufuk $nick 
      if (%u == on) { msg $chan Merhaba %ufuk $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%f == on) { msg $chan Merhaba %ufuk $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%uf == on) { msg $chan Merhaba %ufuk $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%k == on) { msg $chan Merhaba %ufuk $+ , %ka | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%s == on) { msg $chan Merhaba %ufuk $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%y == on) { msg $chan Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%l == on) { msg $chan Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
    }
    if (%noticea == on) { 
      if (%u == on) { notice $nick Merhaba %ufuk $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%f == on) { notice $nick Merhaba %ufuk $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%uf == on) { notice $nick Merhaba %ufuk $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%k == on) { notice $nick Merhaba %ufuk $+ , %k | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%s == on) { notice $nick Merhaba %ufuk $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%y == on) { notice $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%l == on) { notice $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
    }
  }
}
on *:text:*:?: { 
  if ($me isin $1-) {
    if (%mesaja == on) { 
      set %ufuk $nick 
      if (%u == on) { msg $nick Merhaba %ufuk $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%f == on) { msg $nick Merhaba %ufuk $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%uf == on) { msg $nick Merhaba %ufuk $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%k == on) { msg $nick Merhaba %ufuk $+ , %k | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%s == on) { msg $nick Merhaba %ufuk $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%y == on) { msg $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%l == on) { msg $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
    }
    if (%noticea == on) { 
      if (%u == on) { notice $nick Merhaba %ufuk $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%f == on) { notice $nick Merhaba %ufuk $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%uf == on) { notice $nick Merhaba %ufuk $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%k == on) { notice $nick Merhaba %ufuk $+ , %ka | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%s == on) { notice $nick Merhaba %ufuk $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%y == on) { notice $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
      if (%l == on) { notice $nick Merhaba %ufuk $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %ufuk 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 igno $nick 1 | if $hget(igno,$nick) > 2 { ignore -u50 $nick } }
    }
  }
} 
merhabalar arkadaslar away kodunda şöle birşey mümkünmü op sop voice oper admin root admin vsvs kişiler ozele kontrl mesaji attiğinda onlaa who çekip eğer ki op sop voice oper admin ise away mesajini iletmeyecek koda ek bişiler yapa bilirmiyiz mesaj atmamasi için oper admin op sop voicelere Veya dediğim konuya gore farklib bir away addon varmidir şimdiden tskrler emeği geçen herkeze .

Leo 09 Şubat 2010 23:20
Cevap: away addon
 
ylütfen yardim arkadaslar ;eek

Leo 18 Şubat 2010 07:26
Cevap: away addon
 
arkadaslar yardim lütfen :(

CesuryureK 18 Şubat 2010 07:42
Cevap: away addon
 
Kodu yapanın kodunu buraya vermişsin üstüne üstük yardım lütfen diye söyleniyorsun.
istediğin yardımla ilgili tek bir adım atmışmısın kod adına, bişiler yapmaya çalışmış bişiler çabalamışmısın? Biraz uğraş istediğine dair bişiler çabala ki bizde yardım edelim

biz burdaki mIRC Scripting yöneticileri olarak emek vermeyene çabalamayana yardım vermiyoruz. Al gülüm ver gülüm mantığı ile ne hareket ederiz nede bu gayret için çabalarız.
Bu şekilde yaptığın sürece bir yardım alabileceğini sanmıyorum.

Emek Verin ki Emek Verelim.

CipriX 18 Şubat 2010 09:14
Cevap: away addon
 
İçerikte de away vasıtasıyla reklam seziyorum.

DenperaS 08 Nisan 2010 23:57
Cevap: away addon
 
bide sataşmak gibi olmasın şu mynetteki üst yönetimde bulunan kişiler kendilerini türkiyenin sahibi sanıyorlar oplarıda öyle soplarıda ircoplarıda... benim şahşi görüşüm mynet türkiyenin en büyük serverlerinden biris olabilir bunu büyük yapan userler userlere köpekgibi davranıyorlar dengesiz ve çok havalı insanlar... op ol admin ol ircop ol en önemlisi saygılı ve mütevazi ol o zaman herkes seni sayar sever ve kollar


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk