Çevrimdışı

Malesef Heart hocam tam olarak istediğimi alamıyorum tcl içerisinde değişiklik yaptığım zaman sadece giriş oluyor oyle kalıyor


proc pwjoin {what what2 what3 what4 what5 what6 what7 what8 what9} {
global kanal logit logchany
if {$logit == 1} {
puthelp "PRIVMSG $logchany :$what Kanala sokuluyor --> $what9"
}
putquick "operserv :raw :$what join $what9 "
utimer $what2 "pwpart $what $what3 $what $what2 $what3 $what4 $what5 $what6 $what7 $what8 $what9"
}

proc pwpart {whad whad2 oldu1 oldu2 oldu3 oldu4 oldu5 oldu6 oldu7 oldu8 oldu9} {
global kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Kanaldan cikartiliyor --> $oldu9" }
putquick "operserv :raw :$whad part $oldu9 "
putquick "kill $oldu4 :this is a bot nick. u cant use it."
putquick "operserv :raw :$whad nick $oldu4"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Nick degistiriliyor --> $oldu4" }
utimer $whad2 "pwjoin2 $oldu4 $whad2 $oldu1 $oldu2 $oldu3 $oldu4 $oldu5 $oldu6 $oldu7 $oldu8 $oldu9"
}

proc pwjoin2 {whas whas2 oldud1 oldud2 oldud3 oldud4 oldud5 oldud6 oldud7 oldud8 oldud9} {
global kanal logit logchany
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whas Kanala tekrar sokuluyor --> $oldud9" }
putquick "operserv :raw :$whas join $oldud9 "
utimer $oldud2 "pwbquit $whas $oldud1 $oldud2 $oldud3 $oldud4 $oldud5 $oldud6 $oldud7 $oldud8 $oldud9"
}

proc pwbquit {whaaq oldukha1 oldukha2 oldukha3 oldukha4 oldukha5 oldukha6 oldukha7 oldukha8 oldukha9} {
global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
foreach iii $nickflist {
if {[regexp {(.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+):
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.+)} $iii tmppp botident3 before3 after3 botadi3 wait3 partwait3 joinwait3 yenisi3 quitmes3 cikmadan3 kanallar3]} {
if { $whaaq == $after3 } {
if { $cikmadan3 != 0 } {
putquick "operserv :raw :$whaaq privmsg $kanallar3 :$cikmadan3"
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturuluyor." }
utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
return


pwpart satırından direk pwquit satırına aktarmak istiyorum bunu yapma şansım varmıdır.