Şu kısmı : Kod: Kodu kopyalamak için üzerine çift tıklayın!
######################
# DOKUNMA BOZULUR :d #
######################
utimer 30 globalat
proc globalat {} {
global botnick globalat glbmsg
if {[lsearch -exact [channel info $glbmsg(operchan)] +globcmd] != -1} {
set msgzaman "0"
set dosya [open $glbmsg(text) r]
set liste [split [subst -nocommands [read $dosya]] \n]
close $dosya
foreach i $liste {
set msgzaman [expr $msgzaman + $glbmsg(zaman)]
timer $msgzaman [list putquick "os global [lrange $i 2 end]"]
}
close $dosya
set msgzaman [expr $msgzaman + $glbmsg(zaman)]
timer $msgzaman [list globalat]
}
return 0
}
}
}
Şu şekilde değiştirin : Kod: Kodu kopyalamak için üzerine çift tıklayın!
######################
# DOKUNMA BOZULUR :d #
######################
proc globalat {} {
global botnick globalat glbmsg
if {[lsearch -exact [channel info $glbmsg(operchan)] +globcmd] != -1} {
set msgzaman "0"
set dosya [open $glbmsg(text) r]
set liste [split [subst -nocommands [read $dosya]] \n]
close $dosya
foreach i $liste {
set msgzaman [expr $msgzaman + $glbmsg(zaman)]
timer $msgzaman [list putquick "os global [lrange $i 0 end]"]
}
} else {
return 0
}
}