# cycle.tcl - Sahte services kullanıcı döngüsü (JOIN/PART/QUIT)
set cycle_users_file "user.txt"
set cycle_channels {#genel #yardim}
set cycle_delay 10 ;# Her işlem arası saniye
set cycle_repeat 1 ;# 1 = Sonsuz döngü
# Kullanıcıları oku
if {[file exists $cycle_users_file]} {
set f [open $cycle_users_file r]
set cycle_users [split [read $f] "\n"]
close $f
} else {
putlog "cycle.tcl: user.txt dosyası bulunamadı!"
set cycle_users {}
}
proc cycle_simulate {} {
global cycle_users cycle_channels cycle_delay cycle_repeat
foreach user $cycle_users {
if {$user eq ""} { continue }
foreach chan $cycle_channels {
putlog "Cycle: $user katıldı $chan"
putserv ":[string trim $user] JOIN $chan"
after [expr {$cycle_delay * 1000}]
putlog "Cycle: $user ayrıldı $chan"
putserv ":[string trim $user] PART $chan :çıkış"
after [expr {$cycle_delay * 1000}]
putlog "Cycle: $user quit oldu"
putserv ":[string trim $user] QUIT :Connection closed"
after [expr {$cycle_delay * 1000}]
}
}
if {$cycle_repeat} {
after [expr {$cycle_delay * 1000 * 3}] cycle_simulate
}
}
# Başlangıçta tetikleyelim
bind evnt - init-server start_cycle_simulation
proc start_cycle_simulation {type} {
putlog "cycle.tcl: Sahte kullanıcı döngüsü başlatılıyor..."
cycle_simulate
}