| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Merhaba Coder Arkadaşlar Bu Koda Yardımcı olacak Arkadaşlar varmı Acaba
| Tinba Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
on *:text:*:#dj@: {
if !$istok(nick nick nick,$nick,32) { return }
if ($1 == !ekle) { if (!$2) { return }
if ($2 == $me) { msg # Beni takip listesine alamazsın $nick $+ | return }
if ($ini(takip.ini,$replace($2,[,~,],~))) { msg # $+ $2 nicki zaten listede ekli durumda. | return }
else {
writeini -n takip.ini $replace($2,[,~,],~) Pazartesi 0
writeini -n takip.ini $replace($2,[,~,],~) Salı 0
writeini -n takip.ini $replace($2,[,~,],~) Çarşamba 0
writeini -n takip.ini $replace($2,[,~,],~) Perşembe 0
writeini -n takip.ini $replace($2,[,~,],~) Cuma 0
writeini -n takip.ini $replace($2,[,~,],~) Cumartesi 0
writeini -n takip.ini $replace($2,[,~,],~) Pazar 0
.auser takip $2
msg # $+ $2 nicki online listesine eklenmiştir.
;if ($2 ison #Mizah) { $+(.timertakip,$2) 0 1 inc -e $+(%,$replace($2,[,~,],~)) }
}
}
if ($1 == !sil) {
if (!$2) { return }
if (!$ini(takip.ini,$replace($2,[,~,],~))) { msg # $2 Listede ekli değil | return }
else { .remini takip.ini $replace($2,[,~,],~) | .ruser takip $2 | msg # $2 Listeden silindi.
if $+($timertakip,($2)) { $+(timertakip,$2) off | unset $+(%,$replace($2,[,~,],~)) }
}
}
if ($1 == !online) {
if (!$2) { return }
if !$var($+(%,$replace($2,[,~,],~)),0) { msg # $2 'nin henüz online süresi yok. | return }
if (!$ini(takip.ini,$replace($2,[,~,],~))) { msg # $2 Listede ekli değil | return }
kayit $replace($2,[,~,],~)
msg # 4 $str(-,10) $2 nicki için takip listesi $str(-,10)
.play $+(-t,$replace($2,[,~,],~)) # takip.ini 300
$+(.timerlist,$2) 1 3 msg # 4 $str(-,10) Listenin sonu $str(-,10)
}
if ($1 == !sıfırla) {
var %\ = $ulist(*,takip,0)
while %\ {
$+(.timertakip,$ulist(*,takip,%\)) off
set $+(%,$replace($ulist(*,takip,%\),[,~,],~)) 0
writeini -n takip.ini $replace($ulist(*,takip,%\),[,~,],~) Pazartesi 0
writeini -n takip.ini $replace($ulist(*,takip,%\),[,~,],~) Salı 0
writeini -n takip.ini $replace($ulist(*,takip,%\),[,~,],~) Çarşamba 0
writeini -n takip.ini $replace($ulist(*,takip,%\),[,~,],~) Perşembe 0
writeini -n takip.ini $replace($ulist(*,takip,%\),[,~,],~) Cuma 0
writeini -n takip.ini $replace($ulist(*,takip,%\),[,~,],~) Cumartesi 0
writeini -n takip.ini $replace($ulist(*,takip,%\),[,~,],~) Pazar 0
if ($ulist(*,takip,%\) ison #radyo) { $+(.timertakip,$ulist(*,takip,%\)) 0 1 inc -e $+(%,$replace($ulist(*,takip,%\),[,~,],~)) }
dec %\
}
msg # Tüm online süreleri sıfırlanıp yeniden başlatılmıştır.
}
if ($1 == !temizle) {
write -c takip.ini
var %\ = $ulist(*,takip,0)
while %\ {
$+(.timertakip,$ulist(*,takip,%\)) off
.timer 1 1 unset $+(%,$replace($ulist(*,takip,%\),[,~,],~))
.ruser takip $ulist(*,takip,%\)
dec %\
}
msg # Tüm online takip listesi içeriğiyle beraber tamamen temizlenmiştir.
}
}
on takip:join:#Mizah: { $+(.timertakip,$nick) 0 1 inc -e $+(%,$replace($nick,[,~,],~)) }
on takip:part:#Mizah:{ if $+($timertakip,($nick)) { $+(.timertakip,$nick) off | kayit $replace($nick,[,~,],~) } }
alias kayit { .remini takip.ini $1 $gün | writeini -n takip.ini $1 $gün $replace($duration($($+(%,$1),2)),mins,Dakika,hrs, Saat,secs,Saniye,min,Dakika,hr,Saat,sec,Saniye,day ,Gün,days,Gün) }
alias gün { return $replace($asctime($ctime,dddd),monday,Pazartesi,su nday,Pazar,wednesday,Çarşamba,friday,Cuma,saturday ,Cumartesi,tuesday,Salı,thursday,Perşembe) }
Hocam Bu kodu Radyo Kanalında Sadece Yayın Alan Djlerin Günlük Kac Saat Yayın Almış Şeklinde Düzenleyebilirmiyiz
| Kod #dj@ kanalında çalışır
sendeki silmen gereken yerleri kırmızıya boyadım. Kırmızı bölgeleri silip aşağıdaki kodu eklersen dilediğin olur.
aşağıdaki kodun çalışma mantığı; kullanıcı nick değiştirdiğinde #radyo kanalında op ise ve(&&) yeni nickinde Dj takısı var ise ve(&&) takip.ini dosyasında nicki var ise adına timer açıp değerini her saniye yükseltir,
dj yayın alırken Dj takısını aldığını varsayarak yazdım kodu. Aynı şekilde her hangi bir nick değişiminde eğer yeni nickte dj takısı yoksa ve nick adına açılmış bir timer(zamanlayıcı) varsa timer durdurulur. Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:nick: {
if $nick isop #radyo && dj* iswm $newnick && $ini(takip.ini,$replace($nick,[,~,],~)) {
$+(.timertakip,$nick) 0 1 inc -e $+(%,$replace($nick,[,~,],~)) | return }
if dj* !iswm $newnick && $timer($+(timertakip,$newnick)) { $+(.timertakip,$newnick) off | kayit $replace($newnick,[,~,],~) } }
on takip:quit: { if $+($timertakip,($nick)) { $+(timertakip,$nick) off | kayit $replace($nick,[,~,],~) } }
En azından kodu yazarken bu mantıkla yazdım çalışıp çalışmadığını deneme imkanım olmadı. umarım çalışır ve işine yarar.
__________________
TurkSohbet.NET | #XPass |