Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- namespace eval template2 {
- setudef flag no[namespace tail [namespace current]]
- variable timer 10
- variable pbind 1
- variable clock 0
- foreach bind {тест} {bind pub - $::gprefix(1)$bind [namespace current]::pub
- proc pub {nick host hand chan text} {
- variable timer; variable clock
- if {$chan != $nick && [channel get $chan no[namespace tail [namespace current]]]} {return} else {set lastbind $::lastbind}
- if {[expr [clock seconds]-$clock] < $timer} {putserv "[expr {$nick == $chan ? "PRIVMSG":"NOTICE"}] $nick :Команда недавно запрашивалась. Повтори попытку через [expr $timer-([clock seconds]-$clock)] сек."; return}; set clock [clock seconds]
- set users [chanlist $chan]
- foreach "*Митхун_Чакраборт*" [chanlist $chan] {
- set test [lreplace $users [lsearch $users "*Митхун_Чакраборт*"] [lsearch $users "*Митхун_Чакраборт*"] "Митхун_Чакраборти"]
- set files [open data/myfile.txt w+]
- puts $files $test
- close $files
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement