## -----------------------------------------------------------------------

##           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 ***

## -----------------------------------------------------------------------