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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 22 Ocak 2009, 00:02   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
yardim pLs




Arkadaşlar #radyo kanalinda dinleycilere oto +v ( voice ) weren tcl lazim yardimlarinizi bekliyorum

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 22 Ocak 2009, 01:22   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: yardim pLs




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#Karsilama yapilcak oda: set kanal "#Radyo" bind join - * girisvar proc girisvar { nick uhost hand chan } { global kanal if {$chan==$kanal} { putquick "mode $kanal +v $nick" } return 0 }

Buyrun kod, fakat bu kodu 1 dk'lık bir arama sonucunda kolaylıkla elde edebilirdiniz. Daha önce farklı başlık(lar) altında verdim kodu.

İyi çalışmalar...

__________________
Eskiden buralar hep dutluktu...
 
Alıntı ile Cevapla

Alt 22 Ocak 2009, 09:44   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: yardim pLs




şu şekilde bir tcl kullanıyorum belki budur aradığınız kanalda sohbet eden kişilere yazdığı kelime sayısına göre voice veren tcl bir süre konuşmayandanda aktif olmadığı için voice yi almaktadır .
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# $Id: activechatter.tcl, v3.47.b eggdrop-1.6.18 2007/08/07 10:11:56 Exp $
# Begin - Active Chatter v3.47.b [activechatter.tcl]
# Build date: 6th August 2007
# Copyright © 1998-2007 awyeah (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
# This TCL script is designed to work with eggdrop v1.6.17 or higher
#########################################################################
# Active Chatter 3.47.b #
# #
# #
# Author: awyeah 7th August 2007 #
# Email: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 Build version 3.47.b #
#########################################################################
# #
# ########### #
# DESCRIPTION #
# ########### #
# #
# This script voices users who have said a certain number of lines on a #
# channel (Active chatters). Additionally, it devoices users who are #
# idling for more than a certain amount of time on a channel (Unactive #
# chatters). #
# #
#########################################################################
# #
# ############ #
# REQUIREMENTS #
# ############ #
# #
# The following requirements must be taken into consideration before #
# utilizing this script further: #
# #
# (Fields marked with a '*' are compulsory requirements) #
# #
# (*) (1) You must be running EGGDROP v1.6.17 or higher. #
# (*) (2) You must have TCL v8.4 or higher installed on the system. #
# #
# To FIND the TCL VERSION and PATCH LEVEL your shell is running: #
# (1) At your shell prompt type: tclsh #
# (a) If you have several different versions of tcl installed #
# on the system, pick the latest version. E.g: tclsh8.3, #
# tclsh8.4 which is installed from the given list. #
# (i) At shell prompt type: tclsh8.4 (and go to step 2) #
# (b) If you have only one version, pick that one or continue #
# with 'tclsh' only if it doesn't say to use another name. #
# (2) To find your tcl version type: info tclversion #
# (3) To exit tclsh, type: exit #
# #
#########################################################################
# #
# ############ #
# INSTALLATION #
# ############ #
# #
# This quick installation tutorial consists of 4 steps. Please follow #
# all steps correctly in order to setup your script. #
# #
# (1) Upload the file activechatter.tcl in your eggdrop '/scripts' #
# folder along with your other scripts. #
# #
# (2) OPEN your eggdrops configuration (.conf) file and add a link at #
# the bottom of the configuration file to the path of drone nick #
# remover script, it would be: #
# #
# source scripts/activechatter.tcl #
# #
# #
# (3) SAVE your bots configuration file. #
# #
# (4) REHASH and RESTART your bot. #
# #
#########################################################################
# #
# ######## #
# VERSIONS #
# ######## #
# #
# v3.47.b - First public release. #
# (07/08/07) #
# #
#########################################################################
# #
# ######## #
# CONTACTS #
# ######## #
# #
# (*) For any suggestions, comments, questions or bugs reports, feel #
# free to email me at: #
# #

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 #
# #
# #
# (*) You can also contact me on MSN Messenger - my messenger ID is: #
# #

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 #
# #
# #
# (*) You can also catch me on The DALnet Network: #
# #
# /server irc.dal.net:6667, Nick: awyeah #
# Channels: #awyeah, #eggdrops #
# #
#########################################################################
# #
# ######### #
# COPYRIGHT #
# ######### #
# #
# This program is a free software; you can distribute it under the #
# terms of the GNU General Public License under Section 1 as published #
# by the Free Software Foundation; either version 2 of the license, or #
# (at your option) any later version. #
# #
# This program is distributed in the hope that it will be useful, #
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# GNU General Public License for more details. #
# #
# WARNING: #
# This program is protected by copyright law and international #
# treaties. Unauthorized reproduction of this program, or any portion #
# of it, may result in severe civil penalties and will be prosecuted to #
# the maximum extent possible under the law. #
# #
#########################################################################
# #
# ######### #
# DOWNLOADS #
# ######### #
# #
# Latest versions of this script can be found on the TCL archives of #
# the following websites: #
# #
# 1) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set autovoice
(chantype"1"
 
### SET THIS ONLY IF YOU HAVE SET THE PREVIOUS SETTING TO '1' ###
#Set the channels below (each separated by a space) on which this script would work.
#USAGE: set clonescan(channels) "#channel1 #channel2 #mychannel"
set autovoice(chans"#yarisma"
 
#Set the 'number of lines' here after which a user will be voiced for being
#an ACTIVE CHATTER. Only channel messages will be counted for activity.
set autovoice(lines"500"
 
#Set the time here in 'minutes' after which you would like to devoice idlers (UNACTIVE
#CHATTERs). Users idling for more than this number of minute(s) will be devoiced.
######################################################################################
#If you wish yo disable this setting, set it to: "0"
#USAGE: Any numerical integer value.
set autovoice(dvtime"30"
 
### SET THIS ONLY IF YOU HAVE ENABLED (UNACTIVE CHATTER) DEVOICING FOR IDLERS ###
#Set the time here in 'minutes' after which you would continuously like to check
#channel voices for idling. It is better to set this value low for good accuracy.
#USAGE: Any numerical integer value.
set autovoice(dvcheck"2"
 
### ACTIVE-CHATTER (VOICE) EXEMPT NICKS ###
#Set the list of nicks here which you would like to be exempted from being
#autovoiced by the script. Place separate each entry by placing it in a new line.
##################################################################################
#If you do not have any nick to exempt, then: set autovoice(avexempt) {}
set autovoice(avexempt) {
nick1
nick2
nick3
}
 
### UNACTIVE-CHATTER (DEVOICE) EXEMPT NICKS ###
#Set the list of nicks here which you would like to be exempted from being
#devoiced by the script. Place separate each entry by placing it in a new line.
################################################################################
#If you do not have any nick to exempt, then: set autovoice(dvexempt) {}
set autovoice(dvexempt) {
nick1
nick2
nick3
}
 
#############################################################
### Congratulations! Script configuration is now complete ###
#############################################################
 
##############################################################################
### Don't edit anything else from this point onwards even if you know tcl! ###
##############################################################################
set autovoice(auth"\x61\x77\x79\x65\x61\x68"
set autovoice(ver"v3.75.b"
bind pubm "*" autovoice:users
bind join 
"*" autovoice:erase:record
if {$autovoice(dvtime) > 0} {bind time "*" autovoice:devoice:idlers}
proc autovoice:users {nick uhost hand chan text} {
global 
autovoice voice
if {($autovoice(chantype) == 1) && ([lsearch -exact [split [string tolower $autovoice(chans)]] [string tolower $chan]] == -1)} { return }
if {[
isbotnick $nick] || [isop $nick $chan] || [isvoice $nick $chan]} { return }
set exemptlist [list]
foreach 
user $autovoice(avexempt) {
lappend exemptlist $user
}
if {[
llength $exemptlist] > 0} {
foreach 
person $exemptlist {
if {[
string equal -nocase $person $nick]} {
return 
0
}
}
}
set user [split [string tolower $nick:$chan]]
if {![
info exists voice($user)] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
set voice($user0
} elseif {[info exists voice($user)] && ([expr $voice($user) + 1] >= $autovoice(lines)) && ![isop $nick $chan] && ![isvoice $nick $chan]} {
utimer 3[list autovoice:delay $nick $chan]
unset 
voice($user)
} elseif {[
info exists voice($user)]} {
incr voice($user)
}
}
proc autovoice:delay {nick chan} {
set user [split [string tolower $nick:$chan]]
if {[
botisop $chan] && [onchan $nick $chan] && ![isop $nick $chan] && ![isvoice $nick $chan]} {
pushmode $chan +v $nick
putquick 
"privmsg $chan 0,4Tebrikler 0,2 $nick 0,4Yarisma kanalında 0,2Voice 0,4almaya Hak kazandınız.";
set voiced($user1
}
if {[
info exists voiced($user)]} {
pushmode $chan -\0032Active.\00312chatter
flushmode $chan
}
}
proc autovoice:erase:record {nick uhost hand chan} {
global 
autovoice voice
if {($autovoice(chantype) == 1) && ([lsearch -exact [split [string tolower $autovoice(chans)]] [string tolower $chan]] == -1)} { return }
if {[
isbotnick $nick]} { return }
set user [split [string tolower $nick:$chan]]
if {[
info exists voice($user)]} { unset voiceuser($user) }
}
proc autovoice:devoice:idlers {m h d mo y} {
global 
autovoice
if {([scan $m %d]+([scan $h %d]*60)) % $autovoice(dvcheck) == 0} {
switch -
exact $autovoice(chantype) {
set chans [split $autovoice(chans)] }
set chans [channels] }
default { return 
}
}
foreach 
chan $chans {
set chan [split [string tolower $chan]]
foreach 
user [chanlist $chan] {
set user [split [string tolower $user]]
if {![
isbotnick $user] && ![isop $user $chan] && [isvoice $user $chan]} {
set exemptlist [list]
foreach 
nick $autovoice(dvexempt) {
lappend exemptlist $nick
}
if {[
llength $exemptlist] > 0} {
foreach 
person $exemptlist {
if {[
string equal -nocase $person $user]} {
set exempt($user1; break
}
}
}
if {![
info exists exempt($user)] && ([getchanidle $user $chan] >= $autovoice(dvtime))} {
pushmode $chan -v $user
putquick 
"privmsg $chan Aktif olamadığınız için voice'niz alındı.";
if {![
info exists devoice($chan)]} {
set devoice($chan1
}
} else {
continue
}
} else {
continue
}
}
if {[
info exists devoice($chan)]} {
pushmode $chan -\0032Unactive.\00312chatter
flushmode $chan
}
}
}
}
if {![
string equal "\x61\x77\x79\x65\x61\x68" $autovoice(auth)]} { set autovoice(auth) \x61\x77\x79\x65\x61\x68 }
putlog "Active Chatter $autovoice(ver) by $autovoice(auth) has been loaded successfully." 


 
Alıntı ile Cevapla

Alt 22 Ocak 2009, 16:58   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: yardim pLs




By-ArtiSt Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Arkadaşlar #radyo kanalinda dinleycilere oto +v ( voice ) weren tcl lazim yardimlarinizi bekliyorum

anladığım kadarı ile..
arkadaşın istediği..
radyo kanalına girenler veya..
radyo kanalında sohbet edenler değilde..
radyo kanalında bulunup radyoyu dinleyen kişilere..
voice (+v) veren bir tcl arıyor..
ve arkadaşın aradığı tcl yi..
Nebiliymben arkadaşımız..
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] paylaşmış..

 
Alıntı ile Cevapla

Cevapla

Etiketler
pls, yardim


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
özele !yardim yazildiginda yardim kanalına sajoinlemek BunaLim mIRC Scripting Sorunları 2 15 Eylül 2009 15:36