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/)
-   -   Çözüldü otomatik voice yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/13021-otomatik-voice-yardim.html)

AdriAno 01 Mart 2006 09:27

otomatik voice yardım
 
arkadaşlar ben kanalda otomatik + vermek istiyorum fakat kanalda op sop halfop olanlara ve belirledigim niklere vermek istemiyorum bunu nasıl yaparım ??

on *:join:#: { /mode # +v $nick }

devamını getirirseniz sevinirim .. ..

AdriAno 01 Mart 2006 10:28

arkadaşlar bide benim eklemiş oldugum kelimeyi istedigim bi kanalda o kişi yazarsa o kişiye akik atıcak ?

orn : ben adriano nikini ysak kelimelere ekledim diyelim biri kanalda adriano yazarsa kanaldan atılacak

djiNn 01 Mart 2006 10:39

Alıntı:

AdriAno Nickli Üyeden Alıntı
arkadaşlar ben kanalda otomatik + vermek istiyorum fakat kanalda op sop halfop olanlara ve belirledigim niklere vermek istemiyorum bunu nasıl yaparım ??

on *:join:#: { /mode # +v $nick }

devamını getirirseniz sevinirim .. ..

on *:join:#kanal:{ timer 1 3 _kontrol $nick }

alias _kontrol { if ($1 isreg #kanal) { mode #kanal +v $1 } }

Bu Voice Işini Görür Sanırım..

Sunay 01 Mart 2006 13:15

alias AutoVOICE { dialog -m AutoVOICE AutoVOICE }
dialog AutoVOICE {
title AutoVOICE
size -1 -1 77 149
option dbu
box "Auto Voice System:", 1, 2 3 73 95
edit "", 2, 5 10 66 11, autohs
button "Ekle", 3, 5 81 67 8, flat
button "Sil", 4, 5 89 67 8, flat
list 5, 5 20 66 60, size
button "Tamam", 6, 6 136 66 10, cancel, flat
box "Status:", 7, 2 100 73 19
radio "On", 8, 13 107 21 10
radio "Off", 9, 44 107 32 10
box "", 10, 21 115 35 19
edit "", 11, 27 121 24 11, read limit 4 center
}
on *:dialog:autovoice:init:*: {
if (%autovoice.status == on) { did -c autovoice 8 }
else { did -c autovoice 9 }
didtok autovoice 5 32 %autovoice.list
did -a autovoice 2 %autovoice.nick
did -a autovoice 11 %autovoice.status
}
on *:dialog:autovoice:sclick:*: {
if ($did == 3) { if ($did(2).text == $null) { return } | else { did -a autovoice 5 $did(2).text | set %autovoice.list $didtok(autovoice,5,32) | .auser 5 $did(2).text | did -r autovoice 2 } }
if ($did == 4) { if ($did(5).sel == $null) { return } | else { .ruser $did(5,$did(5).sel).text | did -d autovoice 5 $did(5).sel | set %autovoice.list $didtok(autovoice,5,32) } }
if ($did == 8) { set %autovoice.status ON | .enable #autovoice | did -ra autovoice 11 %autovoice.status }
if ($did == 9) { set %autovoice.status OFF | .disable #autovoice | did -ra autovoice 11 %autovoice.status }
}
#autovoice off
on 5:join:#: {
if (%autovoice.status == on) {
mode $chan +v $nick
elseif (%autovoice.status == off) { halt }
}
}
#autovoice end

diEfoRyoU 01 Mart 2006 23:42

bunun iki yolu vardır birincisi eğer unreal kullanıyorsan
/cs levels #kanal set AUTOVOICE 0 Yaparsan Kanala Her Giren voice Alır ama Halfop, Op, ve Sop'lara Vermez Bir dier Yoluysa

on *:join:#: { if ($nick !isop $chan) && ($nick != $me) && ($nick !ishop $chan) { timer 1 1 mode # +v $nick
}
}

on *text:*:#:{ if ($nick !isop $chan) && ($nick !isvop $chan) && ($nick !ishop $chan) && ($nick != $me)
{ if (*yaziniyaz* iswm $1-) || (*yazi2* iswm $1-) {
mode # +b $nick | kick # $bnick Yasaklı Kelime Kullanmayınız } } }


on text eventinde yazınıyaz ve yazı2 olarak bir takım örenkler verdim kendini geliştimen açısından da yararı olursa sana gereken eklemeri ve deişiklikleri yaparsın Kolay Gelsin

AdriAno 02 Mart 2006 11:50

kardeş bu calısmadı bi kontrol etsenem

on *text:*:#:{ if ($nick !isop $chan) && ($nick !isvop $chan) && ($nick !ishop $chan) && ($nick != $me)
{ if (*yaziniyaz* iswm $1-) | (*yazi2* iswm $1-) {
mode # +b $nick | kick # $bnick Yasaklı Kelime Kullanmayınız } } }

$îzºf®eN 02 Mart 2006 14:50

if (*yaziniyaz* iswm $1-) | (*yazi2* iswm $1-) {

kısmını

if (*yaziniyaz* iswm $1-) || (*yazi2* iswm $1-) {

olarak düzenle.

izmir_LEE 02 Mart 2006 19:41

Listeden Okutsak
 
Hocam peki bu yazıyı bir dosyadan (*.txt) okutmak istersek ne şekilde değiştirmemiz gerekiyor? $read nasıl ekleyebiliriz?

diEfoRyoU 02 Mart 2006 20:03

alias ekle { write nick.txt $1- }
on *:join:#: { if $read(nick.txt,w,$nick) { mode $chan +v $nick } }

nick eklmek içinde bilmem kaçyüzkez yadıım /ekle nick Şeklinde Eklemelerini Yaparsın Kolay Geldin :)

izmir_LEE 03 Mart 2006 09:42

Ne Bu hız :)
 
Sacmaliyoruz teşekkürler cevap için.Hızır mısın be güzel insan :) 20 dakikada yetişmişsin sağolasın.Ben Volkan'dan sonra foruma kaydolmuşum anlaşılan ama bu işi sanırım kavrayamıyacağım bir türlü ;huh ilgilenmeye zaman olsa daha çok başınızı ağrıtırım ben sizin de neyse ...
Re sağol

CakmakCakmak 21 Temmuz 2010 20:52

Cevap: otomatik voice yardım
 
kardeş bu komutu vermişsin ama /cs levels #kanal set AUTOVOICE 0 Bu komut anope services te kullanılmıyor [20:48] -ChanServ- Bu modda bu komut kullanilmaz. buyurun bakın yardım ederseniz sevinirim

Giant 09 Temmuz 2023 10:50

Cevap: otomatik voice yardım
 
Arkadaşlar merhaba otomatik voice popups da var remote de yok ilgilenir misiniz


Kod:

Otomatik Voice
.Ekle:.auser +vlist $$1 | .notice $$1 Seni Otomatik Voice Listeme Ekledim! %CesuryureK | echo -a %CesuryureK $$1 Auto Voice Listesine Eklendi.
.Çıkar:.ruser +vlist $$1 | echo -a %CesuryureK $$1 Auto Voice Listesinden Çıkartıldı.
.-
.Listele:dialog -m _+vlist _+vlist
-

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 10:50 -->-> Daha önceki mesaj 09:56 --

alias -l _buser { .guser +vlist $1 3 }
alias -l _rbuser { .ruser +vlist $1 3 }
alias -l _luser { dialog -m _+vlist _+vlist }
alias -l _vlist {
did -r _+vlist 11
var %_btotal = $ulist(*,+vlist,0) , %_b = 0
while (%_b < %_btotal) {
inc %_b
did -a _+vlist 11 $ulist(*,+vlist,%_b)
}
}
dialog _+vlist {
title "Auto Voice Listesi"
size -1 -1 105 125
option dbu
combo 11, 4 6 68 115
button "Ekle", 20, 74 6 26 11
button "Sil", 30, 74 19 26 11
button "Tamam", 40, 75 104 26 11, ok
box "", 1, 1 0 102 122
}

on *:dialog:_+vlist:init:*: {
idset 1000
_vlist
dll aniwin.dll anime $dialog($dname).hwnd -hn 650
}

on *:dialog:_+vlist:sclick:*: {
if ($did == 20) {
if ($did(11).text != $null && $level($did(11).text) != +vlist) {
var %_badd = $did(11).text
.auser +vlist %_badd
_vlist
}

}
if ($did == 30) {
if ($did(11).text != $null && $level($did(11).text) == +vlist) {
var %_brem = $did(11).text
.ruser +vlist %_brem
_vlist
}

}
}

on @+vlist:join:#: {
mode # +v-k $nick Autovoice
notice $nick 4,1Auto Voice Listemdesin! %CesuryureK
}


çalışmadı

Vision 09 Temmuz 2023 11:32

Cevap: otomatik voice yardım
 
Bu kodu deneyebilirsin.

Kod:


;############################# ARKADAŞ LİSTESİ ######################################


menu channel,status,menubar,query {
  -
  Arkadaş Listesi { dialog -m arkadaslist arkadaslist }
  -
}

;- Arkadaş Listenizde ekli kişiye #Sohbet kanalın 'da (+v) verirsiniz.
#arkadaslist on
on arkadaslist:join:#Sohbet:{
  .mode # +v $nick
  .msg $nick $_bilgi(Bilgilendirme Mesajı: Arkadaş listesine ekli kullanıcı kanalda (+) 'landı.)
  $iif(!$window(@Q-Takip),.window -zne @Q-Takip)
  .echo -em @Q-Takip $_gri($_tarih) $_baslik2(Arkadaş Listesi) $_kirmizi(Nick/IP: $nick - @ $+ $_ndr($nick)) $_bilgi(Arkadaş listesine ekli kullanıcı kanalda (+) 'landı.) $_sari(#) $_yesil($network)
}
on *:NICK:{
  if ($level($newnick) == arkadaslist) {
    var %:chans = $comchan($newnick,0) | while %:chans {
      if $istok(#Sohbet,$comchan($newnick,%:chans),44) {
        .mode $comchan($newnick,%:chans) +v $newnick
        $iif(!$window(@Q-Takip),window -zne @Q-Takip)
        .echo -em @Q-Takip $_gri($_tarih) $_baslik2(Arkadaş Listesi) $_kirmizi(Nick/IP: $newnick - @ $+ $_ndr($nick)) $_bilgi(Arkadaş listesine ekli kullanıcı kanalda (+) 'landı.) $_sari($comchan($newnick,%:chans)) $_yesil($network)
      }
      dec %:chans
    }
    .msg $newnick $_bilgi(Bilgilendirme Mesajı: Arkadaş listesine ekli kullanıcı kanalda (+) 'landı.)
  }
}
#arkadaslist end

alias arkadaslist { /dialog -m arkadaslist arkadaslist }
dialog arkadaslist {
  title "Arkadaş Listesi"
  size -1 -1 136 102
  option dbu
  box Nick:, 6, 66 0 68 97
  text "Arkadaşına + verir.", 12, 70 20 68 97
  button Ekle(+), 4, 82 30 39 11
  button Kaldır(-), 10, 82 46 39 11
  edit "", 1, 70 8 61 10, autohs
  button Tamam, 3, 82 70 39 18, default ok
  list 2, 5 3 57 83, size
  check Sistemi Aktifleştir, 5, 7 89 51 10
}

on 1:dialog:arkadaslist:sclick:5:{
  if ($did(5).state == 1) { .enable #arkadaslist | .echo -a 4Arkadaş Listesi 14Aktif Edildi. }
  else { .disable #arkadaslist | .echo -a 4Arkadaş Listesi 14Deaktif Edildi. }
}
on *:dialog:arkadaslist:*:*:{
  if ($group(#arkadaslist) == on) { did -c arkadaslist 5 }
  if ($devent == sclick) {
    if ($did == 4) { .did -a arkadaslist 2 $did(arkadaslist,1) | .auser arkadaslist $did(arkadaslist,1) | .did -r arkadaslist 1 }
    if ($did == 10) { .ruser arkadaslist $did(arkadaslist,2).seltext | .did -d arkadaslist 2 $did(arkadaslist,2).sel }
  }
  if ($devent == init) {
    if $ulist(*,arkadaslist,0) > 0 {
      var %i 1
      while %i <= $ulist(*,arkadaslist,0) {
        .did -a arkadaslist 2 $ulist(*,arkadaslist,%i)
        inc %i 
      }
    }
  }
}


Alıntı:

Giant Nickli Üyeden Alıntı (Mesaj 1042814249)
Arkadaşlar merhaba otomatik voice popups da var remote de yok ilgilenir misiniz
çalışmadı



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

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