Keşfet

mIRC away remotesi

Tutsaq

Tutsaq

Yeni Üye
Katılım
18 Mar 2021
Mesajlar
58
Tepkime puanı
0
Puanları
0
Yaş
37
aşağıda resimde gördüğünüz üzere bir away remotesidir remotede özel olarak secenekler sunulmuştur yemekteyim, dışarıdayım, telefondayım, meşkul, uyuyorum, ve yok gibi bu seçeneklerden birini seçe bilirsiniz yada dilerseniz kendi durumunuzu belirte bilirsiniz siz away modda iken away mesajınızı kişiye notice olarak yada kanaldan cevap olarak bildirir ve siz away modda iken kişinin yazmış olduğu mesaj ı away penceresine alarak loglar away panelini açmak icin mirc üst kısımdaki menü bardan Away paneli yazısına tıklamanız yeterlidir.

Kod: 
menu menubar {
  -
  » Away paneli:/dialog -m away away
  -
}
alias awayset { dialog -m away away }
dialog away {
  title "OzZy sCripT Away"
  size -1 -1 139 147
  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 "Uyuyorum", 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, autohs
  box "Sebep Gir", 9, 1 45 137 37
  button "Away Ol", 10, 10 66 44 12
  button "Awaydan Çık", 11, 86 66 44 12
  button "Uygula", 14, 3 131 37 12, ok
  box "Ayarlar", 15, 1 100 138 47
  button "İptal", 16, 96 131 37 12, cancel
  radio "Mesaj Olarak Kanala Gönder", 13, 26 118 92 10
  radio "Notice Olarak Nicke Gönder", 12, 26 106 88 10
  edit "", 17, 43 93 19 9
  text " Şu Kadar Dakika Konuşmazsam Otomatik Away Ol", 18, 4 85 133 8
  text "Dakika", 19, 65 94 25 8
}

on *:dialog:away:init:*: {
  mdx MarkDialog $dname   
  mdx SetDialog $dname bgcolor $rgb(131,139,139)
  mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 +b Turkish 12 600 Tahoma
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 textbg $rgb(131,139,139)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 background $rgb(131,139,139)
  mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 text $rgb(0,0,0)
  mdx SetDialog $dname style title tool sysmenu
  if (%noticea == on) { did -c away 12 }
  if (%mesaja == on) { did -c away 13 }
}

on *:dialog:away:sclick:*: {
  if ($did == 1) { set %u on | set %r Şuan Yemekteyim, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Online Olduğumda Cevap Vereceğim. | unset %a %c %k %w %e %f %uf %k %s %y %ken %l | dialog -x away away  }
  if ($did == 2) { set %f on | set %a Şuan Dışardayım, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Online Olduğumda Cevap Vereceğim. | unset %r %c %k %w %e %u %uf %k %s %y %ken %l | dialog -x away away } 
  if ($did == 3) { set %uf on | set %c Şuan Telefondayım, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Online Olduğumda Cevap Vereceğim. | unset %a %r %k %w %e %f %u %k %s %y %ken %l | dialog -x away away  } 
  if ($did == 4) { set %k on | set %ka Şuan Meşgulüm, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Online Olduğumda Cevap Vereceğim. | unset %a %c %r %w %e %f %uf %u %s %y %ken %l | dialog -x away away  } 
  if ($did == 5) { set %s on | set %w Uyuyorum, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Online Olduğumda Cevap Vereceğim. | unset %a %c %k %r %e %f %uf %k %u %y %ken %l | dialog -x away away  } 
  if ($did == 6) { set %y on | set %e Şuan Yokum, Notunuzu Tarih,Kanal ve Mesajınızla Beraber Not Aldım, Online Olduğumda Cevap Vereceğim. | unset %a %c %k %w %r %f %uf %k %s %u %ken %l | dialog -x away away  } 
  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 away away  }
  if ($did == 12) {
    if ($did(away,12).state == 1) {
      set %noticea on | set %mesaja off
    }
  }
  if ($did == 13) {
    if ($did(away,13).state == 1) {
      set %mesaja on | set %noticea off
    }
  }
  if ($did == 11) {
    unset %r %a %c %k %w %e %f %uf %k %s %y %l %ka %ken %u
    if $did(17) == $null { unset %awaylimited | unset %kaf | unset %pcyok | .timers off | dialog -x away away }
  }
  if $did == 14 {
    if $did(17) != $null { set %kaf $calc($did(17) * 60) | .timers off | unset %awaylimited | .timer 0 %kaf whois $me | .timer 0 %kaf echo -a 10 Away Menüsü X Dakika Sonra Away Ol Komutu Aktif Olduğundan Whois Kontrol İçin Whois Çekmektedir. Bilginize.. }
  }
}
on *:exit: {
  unset %r %a %c %k %w %e %f %uf %k %s %y %l %ka %ken %u
}
on *:text:*:#: {
  if ($me isin $1-) {
    if (%mesaja == on) {
      set %OzZy $nick
      if (%u == on) && (!$hmatch(ozelkoru,koru)) { msg $chan Merhaba %OzZy $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%f == on) && (!$hmatch(ozelkoru,koru)) { msg $chan Merhaba %OzZy $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%uf == on) && (!$hmatch(ozelkoru,koru)) { msg $chan Merhaba %OzZy $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%k == on) && (!$hmatch(ozelkoru,koru)) { msg $chan Merhaba %OzZy $+ , %ka | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%s == on) && (!$hmatch(ozelkoru,koru)) { msg $chan Merhaba %OzZy $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%y == on) && (!$hmatch(ozelkoru,koru)) { msg $chan Merhaba %OzZy $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%ken == on) && (!$hmatch(ozelkoru,koru)) { msg $chan Merhaba %OzZy $+ , %l | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%pcyok == on) && (!$hmatch(ozelkoru,koru)) { msg $chan Merhaba %OzZy $+ , Pc Başında Yokum, Mesajınızı Tarih/Saat/Kanal/Yazınız Olarak Not Aldım. Geldiğinde Sahibime İleteceğim | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      unset %OzZy
    }
    if (%noticea == on) {
      if (%u == on) && (!$hmatch(ozelkoru,koru)) { notice $nick Merhaba %OzZy $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%f == on) && (!$hmatch(ozelkoru,koru)) { notice $nick Merhaba %OzZy $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%uf == on) && (!$hmatch(ozelkoru,koru)) { notice $nick Merhaba %OzZy $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%k == on) && (!$hmatch(ozelkoru,koru)) { notice $nick Merhaba %OzZy $+ , %k | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%s == on) && (!$hmatch(ozelkoru,koru)) { notice $nick Merhaba %OzZy $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%y == on) && (!$hmatch(ozelkoru,koru)) { notice $nick Merhaba %OzZy $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%ken == on) && (!$hmatch(ozelkoru,koru)) { notice $nick Merhaba %OzZy $+ , %l | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      if (%pcyok == on) && (!$hmatch(ozelkoru,koru)) { notice $nick Merhaba %OzZy $+ , Pc Başında Yokum, Mesajınızı Tarih/Saat/Kanal/Yazınız Olarak Not Aldım. Geldiğinde Sahibime İleteceğim | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru koru }
      unset %OzZy
    }
  }
}


on *:text:*:?: {
  if ($me isin $1-) {
    if (%mesaja == on) {
      set %OzZy $nick
      if (%u == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%f == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%uf == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%k == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %k | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%s == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%y == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%ken == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , %l | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%pcyok == on) && (!$hmatch(ozelkoru2,koru)) { msg $nick Merhaba %OzZy $+ , Pc Başında Yokum, Mesajınızı Tarih/Saat/Kanal/Yazınız Olarak Not Aldım. Geldiğinde Sahibime İleteceğim | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 7 $time 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      unset %OzZy
    }
    if (%noticea == on) {
      if (%u == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %r | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%f == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %a | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%uf == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %c | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%k == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %ka | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%s == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %w | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%y == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %e | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%ken == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , %l | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      if (%pcyok == on) && (!$hmatch(ozelkoru2,koru)) { notice $nick Merhaba %OzZy $+ , Pc Başında Yokum, Mesajınızı Tarih/Saat/Kanal/Yazınız Olarak Not Aldım. Geldiğinde Sahibime İleteceğim | $iif(!$window(@AwayMesaj),window -nCk @AwayMesaj) | echo -et @AwayMesaj 4 %OzZy 12 $chan 2Kanalında Size Seslendi Mesajı: 10 $1- | hinc -mu10 ozelkoru2 koru }
      unset %OzZy
    }
  }
}
raw 317:*: {
  if $2 == $me {
    set %awaylimited $3
    if %awaylimited >= %kaf { set %pcyok on }
    halt
  }
}
raw 340:*: {
  if %yyap == on {
    ns list *@ $+ $gettok($2,2,64)
    unset %yyap
  }
  if %birbak == on {
    set %ozelk on | who +h $gettok($2,2,64) | unset %birbak
  }
 
Cevap yazmak için giriş yap yada kayıt ol.

Konu görüntüleyen kullanıcılar

Toplam: 2 (Kullanıcı: 0, ziyaretçi: 2)
Benzer konular Forum Tarih
Polen Welcome, TRmIRC Hey Sen Yenisin Galiba ? 0 135
T Sunucular TRmIRC.net IRC sunucusu IRC Sunucu Tanıtımları 1 232
AkrepX mIRC Nick listesini kaydetme mIRC Scripting Hazır Kodlar 0 176
AkrepX mIRC Hava durumu sorgulama kodu mIRC Scripting Hazır Kodlar 0 202
AkrepX mIRC Doğum Günü Hatırlatıcı mIRC Scripting Hazır Kodlar 0 223
NasyoneL mIRC Mouse Hover Menu mIRC Scripting Hazır Kodlar 1 209
M mIRC Üzerinden !zar Oyunu Remotesi mIRC Scripting Hazır Kodlar 1 377
M mIRC Event'sız Otomatik Selam Alma mIRC Scripting Hazır Kodlar 0 438

Benzer konular

Geri
Üst