Code:

# Kênh để Eggdrop tự động tham giaset channelToJoin "#chatvn"# Hàm thực hiện tự động rời khỏi và tham gia kênh khi kết nối thành côngbind join - * ujoinproc ujoin {nick uhost handle chan} {   after 1000 autoPartJoinChannel}# Danh sách các câu danh ngôn# Hàm xử lý tự động rời khỏi và tham gia kênhproc autoPartJoinChannel {} {    set randomJoinTime [expr {int(rand() * 580) + 180}] ;# Thời gian ngẫu nhiên từ 2 đến 5 phút (120 đến 300 giây)    after [expr {$randomJoinTime * 1000}] {        channel remove $::channelToJoinautoJoinChannel}}proc autoJoinChannel {} {set randomPartTime [expr {int(rand() * 580) + 180}] ;# Thời gian ngẫu nhiên từ 2 đến 5 phút (120 đến 300 giây)after [expr {$randomPartTime * 1000}] {channel add $::channelToJoindelaypartchannel    }}proc delaypartchannel {} {set nextRandomTime [expr {int(rand() * 480) + 120}] ;# Thời gian ngẫu nhiên từ 2 đến 8 phút (120 đến 600 giây)after [expr {$nextRandomJoinTime * 1000}] autoPartJoinChannel}

[09:03] * xavang (xavang@xxx) has joined #ChatVN[09:03] * xavang (xavang@xxx) has left #ChatVN

Statistics: Posted by Repdientu — Sat Jun 10, 2023 10:11 pm

bind join - * ujoinproc ujoin {nick uhost handle chan} {   after 1000 autoPartJoinChannel }

Statistics: Posted by CrazyCat — Fri Jun 09, 2023 12:31 pm

Code:

set channelToJoin "#chatvn"set quoteList {    "Sự thành công không phải là chìa khóa của sự hạnh phúc. Sự hạnh phúc là chìa khóa của sự thành công. Nếu bạn yêu những gì bạn đang làm, bạn sẽ thành công."    "Cách duy nhất để làm việc tốt là yêu những gì bạn đang làm."    "Không có bí mật để thành công. Đó là sự chuẩn bị, công việc chăm chỉ và học hỏi từ thất bại."    ...    # Danh sách câu danh ngôn tiếp theo...}proc autoPartJoinChannel {} {    set randomJoinTime [expr {int(rand() * 180) + 120}] ;    set randomPartTime [expr {int(rand() * 180) + 120}] ;        channel add $::channelToJoin    set afterId [after [expr {$randomJoinTime * 1000}] "channel remove $::channelToJoin"]    after [expr {($randomJoinTime + $randomPartTime) * 1000}] "channel add $::channelToJoin"        set randomQuoteIndex [expr {int(rand() * [llength $::quoteList])}]    set randomQuote [lindex $::quoteList $randomQuoteIndex]    after [expr {int(rand() * ($randomPartTime - $randomJoinTime)) * 1000}] {        putquick "PRIVMSG $::channelToJoin :$randomQuote"    }}bind join - * {    after 1000 autoPartJoinChannel}

Statistics: Posted by Repdientu — Fri Jun 09, 2023 10:49 am