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/)
-   -   Amsg Remote (https://www.ircforumlari.net/mirc-scripting-sorunlari/519273-amsg-remote.html)

ParaboLa 02 Ocak 2013 11:25
Amsg Remote
 
Ya su yazdigim amsglarin belirledigim kanallara gitmesini engelleyen Remote 'yi (ALLIAS DEGIL) verebilirmi birisi ?

fatal 02 Ocak 2013 11:32
Cevap: Amsg Remote
 
Kod:
/ame { if $1 { var %º = 1 | while $chan(%º) { if !$istok(#help #operhelp ,$v1,32) { !describe $chan(%º) $1- } | inc %º } } }
#help #operhelp kanallarını, mesajın gitmesini istemediğiniz kanallara göre düzenleyin.

moonman 25 Ocak 2013 23:40
Cevap: Amsg Remote
 
Birde bu Ame Amsg bu kodların DIALOG lu olanını yapsanız daha güzel olacak :)

Coldman 25 Ocak 2013 23:54
Cevap: Amsg Remote
 
Alıntı:
menu channel {
-
» Ame-Amsg-Muaf:/amele
-
}
dialog amele {
title " $nick Script Ame-Amsg Muaf Menu"
size -1 -1 240 126
option dbu
edit "" 11, 10 26 60 10
list 3, 10 36 60 70
button "Ekle", 4, 78 28 32 12
button "Sil", 5, 78 48 33 12
edit "" 12, 130 26 60 10
list 6, 130 36 60 70
button "Ekle", 7, 196 28 33 12
button "Sil", 8, 196 48 33 12, tab 2
box "Muaf Ame ekleyiniz", 9, 5 14 110 90
box "Muaf Amsg ekleyiniz", 19, 125 14 110 90
button "Tamam", 10, 5 110 230 10, ok
}
alias amele { .dialog -m amele amele }
alias ame { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafame,$chan(%i),32) != $true { describe $chan(%i) $1- } } }
alias amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafamsg,$chan(%i),32) != $true { msg $chan(%i) $1- } } }
on *:dialog:amele:init:*:{
if (%muafame) .didtok $dname 3 32 $ifmatch
if (%muafamsg) .didtok $dname 6 32 $ifmatch
}
on *:dialog:amele:sclick:*: {
;ame için muafiyet
if ($did == 4) { if ($did(11) != $null) { set -u %sk $did(11) | if (%sk) && (!$istok(%muafame,%sk,32)) { .set %muafame $addtok(%muafame,%sk,32) | did -a $dname 3 %sk | did -r $dname 11 } } }
if ($did == 5) { if ($did(3).sel > 0) { .set %muafame $remtok(%muafame,$did(3).seltext,1,32) | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } }
;amsg için muafiyet
if ($did == 7) { if ($did(12) != $null) { set -u %sk $did(12) | if (%sk) && (!$istok(%muafamsg,%sk,32)) { .set %muafamsg $addtok(%muafamsg,%sk,32) | did -a $dname 6 %sk | did -r $dname 12 } } }
if ($did == 8) { if ($did(6).sel > 0) { .set %muafamsg $remtok(%muafamsg,$did(6).seltext,1,32) | did -d $dname 6 $did(6).sel | did -c $dname 6 1 } }




Alintidir, Remotelere ekle.. menu halinde cıkacaktir.

MesqeN 26 Ocak 2013 11:21
Cevap: Amsg Remote
 
Kod:
alias root dialog -m yasakkanal yasakkanal
dialog yasakkanal {
  title "Ame/Amsg Mesaj Engelleme Paneli"
  size -1 -1 175 100
  option dbu
  ;icon $mircdiricon/mesqen.ico
  tab "Ame", 5, 2 0 188 105
  button "&Ekle", 7, 46 66 30 12, tab 5 default flat multi
  button "&Sil", 8, 12 66 30 12, tab 5 default flat multi
  check "/Ame Mesaji Aktif Yap!", 17, 4 44 63 9, tab 5
  list 1, 94 18 75 80, tab 5 size hsbar vsbar
  edit "#kanal=all şeklinde kanallarinizi ekleyiniz.", 3, 4 20 68 23, tab 5 read multi center
  tab "Amsg", 10
  button "&SiL", 13, 12 66 30 12, tab 10
  button "&Ekle", 14, 46 66 30 12, tab 10
  check "/Amsg Mesajı Aktif Yap!", 18, 4 44 63 9, tab 10
  list 2, 94 18 75 80, tab 10 size hsbar vsbar
  edit "#Kanal=all Şeklinde ekleme yapınız.", 6, 4 20 68 23, tab 10 read multi
  tab "Bilgi", 15
  edit "/ame /amsg Tüm Kanallara Mesaj Göndermeye Yarar ßu Add-on iLe BeLirlediginiz KanaL'Lara Ame Amsg MesajLarınızın Gitmemesini Saglaya bilirsiniz Daha TetayLı Destek icin #help kanalını Kulanabilirsiniz" , 19, 4 20 170 60, tab 15 read multi
  button "&Kapat&", 9, 10 85 72 12, enable flat multi ok
}
 

ON *:dialog:yasakkanal:init:*:{
  mdx SetDialog $dname style title tool sysmenu
  if (!$isfile(mesqen/yasak.ini)) { return }
  if ($readini(mesqen/yasak.ini,settings,ame) == on) { did -c $dname 17 }
  if ($readini(mesqen/yasak.ini,settings,amsg) == on) { did -c $dname 18 }
  if ($ini(mesqen/yasak.ini,ame_channels)) loadbuf $ini(mesqen/yasak.ini,ame_channels,0) -otame_channels $dname 1 mesqen/yasak.ini
  if ($ini(mesqen/yasak.ini,amsg_channels)) loadbuf $ini(mesqen/yasak.ini,amsg_channels,0) -otamsg_channels $dname 2 mesqen/yasak.ini
  did -z $dname 1
  did -z $dname 2
}
ON *:dialog:yasakkanal:sclick:*:{
  if ($did == 8) {
    remini mesqen/yasak.ini ame_channels $gettok($did(1).seltext,1,61)
    did -r $dname 1
    if ($ini(mesqen/yasak.ini,ame_channels)) loadbuf $ini(mesqen/yasak.ini,ame_channels,0) -otame_channels $dname 1 mesqen/yasak.ini
    did -z $dname 1
    return
  }
  if ($did == 7) {
    var %ame_add = $$input(Add a channel to exclude from /ame $+ $chr(44) in the form: #channel=all for all networks or #channel=network1 $+ $chr(44) $+ network2 $+ $chr(44) $+ network3 for particular networks.,e,Add a channel to exclude from ame),61)
    if ($numtok(%ame_add,61) == 2) { writeini mesqen/yasak.ini ame_channels $replace(%ame_add,=,$chr(32)) | did -r yasakkanal 1 | loadbuf $ini(mesqen/yasak.ini,ame_channels,0) -otame_channels $dname 1 mesqen/yasak.ini }
    else echo -a *** 7Gecersiz İstek girişi Lütfen Türk İRCd'e Sohbet Sunucuları İcin 4#KANAL=all 7Türk IRCd'e Sunucuları Dışındaki Sohbet siteleri İçin Örnek : 4#KANAL=undernet,dalnet 7Şeklinden İşlem girişi yapınız %mesqen
    did -z $dname 1
    return
  }
  if ($did == 17) {
    writeini mesqen/yasak.ini settings ame $iif($did(17).state == 1,on,off)
    return
  }
  if ($did == 18) {
    writeini mesqen/yasak.ini settings amsg $iif($did(18).state == 1,on,off)
    return
  }
  if ($did == 13) {
    remini mesqen/yasak.ini amsg_channels $gettok($did(2).seltext,1,61)
    did -r $dname 2
    if ($ini(mesqen/yasak.ini,amsg_channels)) loadbuf $ini(mesqen/yasak.ini,amsg_channels,0) -otamsg_channels $dname 2 mesqen/yasak.ini
    did -z $dname 2 
    return
  }
  if ($did == 14) {
    var %amsg_add = $$input(Add a channel to exclude from /amsg $+ $chr(44) in the form: #channel=all for all networks or #channel=network1 $+ $chr(44) $+ network2 $+ $chr(44) $+ network3 for particular networks.,e,Add a channel to exclude from amsg),61)
    if ($numtok(%amsg_add,61) == 2) { writeini mesqen/yasak.ini amsg_channels $replace(%amsg_add,=,$chr(32)) | did -r yasakkanal 2 | loadbuf $ini(mesqen/yasak.ini,amsg_channels,0) -otamsg_channels $dname 2 mesqen/yasak.ini }
    else echo -a *** 7Gecersiz İstek girişi Lütfen Türk İRCd'e Sohbet Sunucuları İcin 4#KANAL=all 7Türk IRCd'e Sunucuları Dışındaki Sohbet siteleri İçin Örnek : 4#KANAL=undernet,dalnet 7Şeklinden İşlem girişi yapınız %mesqen
    did -z $dname 2
    return
  }
}
alias ame {
  if ($readini(mesqen/yasak.ini,settings,ame) != on) { ame $1- | return }
  var %all_chans = $chan(0)
  while (%all_chans) {
    if ($ini(mesqen/yasak.ini,ame_channels,$chan(%all_chans)) == 0) { var %ame_list =  $chan(%all_chans) $+ $chr(44) $+ %ame_list | echo $chan(%all_chans)  $+ $color(action) $+ $timestamp * $me $1- | goto skip }
    if ($readini(mesqen/yasak.ini,ame_channels,$chan(%all_chans)) == all) { goto skip }
    if ($network !isin $readini(mesqen/yasak.ini,ame_channels,$chan(%all_chans))) { var %ame_list = $chan(%all_chans) $+ $chr(44) $+ %ame_list |  echo $chan(%all_chans)  $+ $color(action) $+ $timestamp  * $me $1- }
    :skip
    dec %all_chans
  }
  if (%ame_list) { .raw PRIVMSG %ame_list :ACTION $1- $+  }
}
alias amsg {
  if ($readini(mesqen/yasak.ini,settings,amsg) != on) { amsg $1- | return }
  var %all_chans = $chan(0)
  while (%all_chans) {
    if ($ini(mesqen/yasak.ini,amsg_channels,$chan(%all_chans)) == 0) { var %amsg_list =  $chan(%all_chans) $+ $chr(44) $+ %amsg_list | echo $chan(%all_chans)  $+ $color(own text) $+ $timestamp < $+ $me $+ > $1- | goto skip }
    if ($readini(mesqen/yasak.ini,amsg_channels,$chan(%all_chans)) == all) { goto skip }
    if ($network !isin $readini(mesqen/yasak.ini,amsg_channels,$chan(%all_chans))) { var %amsg_list = $chan(%all_chans) $+ $chr(44) $+ %amsg_list |  echo $chan(%all_chans)  $+ $color(own text) $+ $timestamp < $+ $me $+ > $1- }
    :skip
    dec %all_chans
  }
  if (%amsg_list) { .raw privmsg %amsg_list : $+ $1- }
}
Merhaba
yazanı kim bilmiyorum 2009 dan beri Arşivimde var.
Türkçe'ye ben cevirmiştim. belki işinize yarar.

Kulanımı gayet basit.

yasak kanal eklemek icin #Kanal=all

ZoRuN 28 Kasım 2014 21:08
Cevap: Amsg Remote
 
#kanal=all nereye yazacaz

Toprak 28 Kasım 2014 21:28
Cevap: Amsg Remote
 
Dialog penceresini açıp(/root) Ekle butonuna tıklayın oraya. #kanal=all yada #kanal=sunucu.com,sunucu2.com gibi eklemeler yapabilirsiniz.

#Kanal=all / Bütün sunucularda yasaklar..
#Kanal=sunucu.com / Belirlediğiniz sunucularda yasaklar..


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

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