Çevrimdışı

S'a

elimdeki bu code ile kanala oto giriyor nickimi identify ediyor istedigim kanala join oluyorum.join listesindeki kanallardan birisinden ciktigimda tekrar o kanala oto giriyorum.

on *:disconnect:.server $server
raw 433:*: {
ns ghost $nick sifre
nick nick
identify sifre halt }
on *:connect:apart
alias apart { set %channels $replace($dde(mirc, channels),$chr(32),$chr(44)) | .part %channels | unset %channels | .TIMER 0 10 .join #}

su elimdeki code ilede .part #kanal yazdigimda bot'u kanaldan cikariyorum.bot'u bir kanaldan .part #kanal seklinde cikardigimda yukaridaki codeye gore tekrar kanala giriyor. .part #kanal yazarak cikardigim kanala bot oto girmesin.taki bn .join #kanal yazana kadar .iki codeyi birlestirebilirmisiniz rica etsem

on *:text:*:#Admin:{
if $istok(nick1 nick2 nick3,$nick,32) {
if $1 == .join && $regex($2,^#) && $me !ison $2 { join $2 | .msg # $2 kanalına girildi. }
elseif $1 == .part && $regex($2,^#) && $me ison $2 { part $2 | .msg # $2 kanalından çıkıldı.
elseif $1 == .konuş { .msg $2 $3- | .msg # $2 $iif($regex($2,^#),kanalına,nickine) gönderildi: $qt($3-) }
elseif $1 == .alljoin { var %y = 1 | while $read(kanallar.txt,%y) { .timer 1 2 join $read(kanallar.txt,%y) | inc %y } | .msg # Tüm kanallara girildi. }
elseif $1 == .allpart { var %x = 1 | while $chan(%x) { if !$regex($ifmatch,$chan) { part $chan(%x) } | inc %x } | .msg # # hariç, tüm kanallardan çıkıldı. }
}
}

code Lifeman'e aittir.

tesekkur ederim