Cycle.tcl

[Administrator]

Kod Seç Genişlet

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