Otomatik reklam atan TCL
Zamanlı kullanıcılara otomatik mesaj atan eggdrop tcl PHP- Kodu:
## -----------------------------------------------------------------------
## CYborg ENT.TCL ver 1.0 Disign by Skyone (hendra asianto)
## -----------------------------------------------------------------------
## FOR MORE INFORMATION VISIT OUR CHANNEL (bot home #Cyborg) , #PALU AND #GRESIK @DalNet
## my email :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
## Cyborg ent.tcl V1.0
## by Skyone (hendra asianto)
##
## All newsheadlines parsed by this script are (C) cyborg`eggdrop`team
##
## Cyborg Version History:1 Command V1.0 - Public command like (botnick) (command)
## 2 protection v1.0 - This script i just made medium protection
## if some one flood color or say bad word or what on channel
## the bot will lock channel for a moment (mode +mi).
## ( i have been tried it on Channel #palu #gresik @Dalnet)
## 3 entertainment v1.0 - Auto speak and respon :).
## v1.1 - Auto speak when some one change they nickname
## v1.2 - Auto speak when some get kick or join channel.
## The author takes no responsibility whatsoever for the usage and working of this script !
##
## Türkçeleştiren IUC aralık 2025 alıntı değil Çalıntıdır Araklamaca:)
## ----------------------------------------------------------------
## Set global variables and specificic
## ----------------------------------------------------------------
## -=[ SPEAK ]=- Set the next line as the channels you want to run in
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "#kanal1 #kanal2"
set speaks_chans "*"
# Set you want in XXX minute you bot always talk on minute
set speaks_time 10
## -=[ Hello ]=- Set the next line as the channels you want to run in
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "#kanal #kanal"
set hello_chans "*"
## -=[ BRB ]=- Set the next line as the channels you want to run in
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "#kanal #kanal"
set brb_chans "*"
## -=[ BYE ]=- Set the next line as the channels you want to run in
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "#kanal #kanal"
set bye_chans "*"
## -=[ PING ]=- Set the next line as the channels you want to run in
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "#kanal #kanal"
set ping_chans "*"
## ----------------------------------------------------------------
## --- Don't change anything below here if you don't know how ! ---
## ----------------------------------------------------------------
######################################################################
##--------------------------------------------------------------------
##--- F O R --- E N T E R T A I N M E N T --- CHANNEL ----
##--------------------------------------------------------------------
######################################################################
### SPEAK ###
set spoken.v "Auto talk"
# Set the next lines as the random speaks msgs you want to say
set speaks_msg {
{"0,4C* 0,7Radyomuzu DinLemek için =>9 http://radyo.domain.com:3840/listen.pls 0,7 TıkLamanız YeterLi... C*"}
{"0,7 domain.com 0,7 SOhbet Sunucusunda BuLunmaktasiniz..Sunucumuz Sizler için SizLerin Seviyeli Bir Ortama Sahip olmaniz için KuruLmustur.. Lütfen Kurallara Uyalim,Uymayanlari Uyaralim...0,7 Unutmayin Kotu Soz Ve Kufur Kisinin Acizligini Gösterir..."}
{"0,7 Zekanizi Gelistirmek Ve eğlenmek için 9#Oyun #Yarisma 10Radyomuzu Dinlemek için 9#Radyo 0,7ircd Komutlari Hakkinda Yardim almak için 9#Help 0,7 Kanallarini Kullanabilirsiniz..."}
}
if {![string match "*time_speaks*" [timers]]} {
timer $speaks_time time_speaks
}
proc time_speaks {} {
global speaks_msg speaks_chans speaks_time
if {$speaks_chans == "*"} {
set speaks_temp [channels]
} else {
set speaks_temp $speaks_chans
}
foreach chan $speaks_temp {
set speaks_rmsg [lindex $speaks_msg [rand [llength $speaks_msg]]]
foreach msgline $speaks_rmsg {
puthelp "PRIVMSG $chan :[subst $msgline]"
}
}
if {![string match "*time_speaks*" [timers]]} {
timer $speaks_time time_speaks
}
}
## PING PONG ##
set Reponden2.v "Ping Respon"
bind pub - !ping ping_speak
bind pub - `ping ping_speak
bind pub - .ping ping_speak
set ranping {
{"0,7Radyomuzu DinLemek için =>0,4 http://radyo.domain.com:3840/listen.pls 0,7 TıkLamanız YeterLi..."}
{"0,7 domain.com 0,7 SOhbet Sunucusunda BuLunmaktasiniz..Sunucumuz Sizler için SizLerin Seviyeli Bir Ortama Sahip olmaniz için KuruLmustur Lütfen Kurallara Uyalim,Uymayanlari Uyaralim... "}
{"0,7 Zekanizi Gelistirmek Ve eğlenmek için 8#Oyun #Yarisma 0,7 Radyomuzu Dinlemek için 8#Radyo 0,7 ircd Komutlari Hakkinda Yardim almak için 8#help 0,7Bu Server 0,4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$ping_chans] [string tolower $chan]] != -1) || ($ping_chans == "*"))} {
set pings [lindex $ranping [rand [llength $ranping]]]
putserv "PRIVMSG $chan :$nick $pings"
}
}
## hello ##
set Reponden3.v "hello Respon"
bind pub - hello hello_speak
bind pub - alo hello_speak
bind pub - hallo hello_speak
bind pub - hai hello_speak
bind pub - hi hello_speak
set ranhello {
{"0,7Radyomuzu DinLemek için =>0,4http://radyo.domain.com:3840/listen.pls 0,7 TıkLamanız YeterLi..."}
{"0,7 domain.com 0,2 SOhbet Sunucusunda BuLunmaktasiniz..Sunucumuz Sizler için SizLerin Seviyeli Bir Ortama Sahip olmaniz için KuruLmustur Lütfen Kurallara Uyalim, Uymayanlari Uyaralim... 0,4domain.com Ailesi "}
{"0,7 Zekanizi Gelistirmek Ve eğlenmek için 8#Oyun #Yarisma 0,7Radyomuzu Dinlemek için 8#Radyo 0,7 ircd Komutlari Hakkinda Yardim almak için 8#help 10 Bu Server 0,4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$brb_chans] [string tolower $chan]] != -1) || ($brb_chans == "*"))} {
set brbs [lindex $ranbrb [rand [llength $ranbrb]]]
putserv "PRIVMSG $chan :$nick $brbs"
}
}
## Bye ##
set Reponden5.v "Bye respon"
bind pub - bye bye_speak
set ranbye {
{"0,7Umariz 0,4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$bye_chans] [string tolower $chan]] != -1) || ($bye_chans == "*"))} {
set byes [lindex $ranbye [rand [llength $ranbye]]]
putserv "PRIVMSG $chan : $nick $byes"
}
}
## -----------------------------------------------------------------------
#putlog "-=-= ENTERTAINMENT PROSES =-=-=-=-=-"
#putlog "Entertainment Channel (auto/respon) Ver 1.0:"
#putlog "1.${spoken.v},2.${Reponden2.v},3.${Reponden3.v}"
#putlog "4.${Reponden4.v},5.${Reponden5.v}"
#putlog "loaded Successfuly..."
##------------------------------------------------------------------------
## *** E N D OF ENT1.0.TCL ***
## -----------------------------------------------------------------------
|
