IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  reklamver

Etiketlenen Kullanıcılar

1Beğeni(ler)
  • 1 Post By diEfoRyoU

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 18 Kasım 2018, 19:53   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Merhaba Coder Arkadaşlar Bu Koda Yardımcı olacak Arkadaşlar varmı Acaba




on *:text:*:#Mizah@: {
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 #Mizah) { $+(.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,[,~,],~) } }
on takip:quit: { 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

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 18 Kasım 2018, 21:04   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.
Hocam Bu kodu Radyo Kanalında Sadece Yayın Alan Djlerin Günlük Kac Saat Yayın Almış Şeklinde Düzenleyebilirmiyiz


mIRC Scripting Sorunları Kurallar : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 19 Kasım 2018, 13:41   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Merhaba Coder Arkadaşlar Bu Koda Yardımcı olacak Arkadaşlar varmı Acaba




Galiba ilgilenen Cıkmayacak Moderatör Arkadaşlar paylaşamı silebilir

 
Alıntı ile Cevapla

Alt 19 Kasım 2018, 23:28   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
 
Alıntı ile Cevapla

Alt 20 Kasım 2018, 12:25   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Merhaba Coder Arkadaşlar Bu Koda Yardımcı olacak Arkadaşlar varmı Acaba




diEfoRyoU Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

Peki ilave !list yapıp Takip Listesini Alsak ?

 
Alıntı ile Cevapla

Alt 20 Kasım 2018, 20:32   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Merhaba Coder Arkadaşlar Bu Koda Yardımcı olacak Arkadaşlar varmı Acaba




if !$istok(nick nick nick,$nick,32) { return }

aşağıdaki kodu yukarıdaki satırın hemen altına yapıştırırsan;
!list komutu ile takip listesinde olan bütün Djleri, !info nick komutu ile bilgisini almak istediğin Dj'in bilgilerine ulaşabilirsin.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $regex($1,/^((!|\.)l[ıi]st)$/i) { play # takip.ini 100 | return } if $regex($1,/^((!|\.)[iı]nfo)$/i) { play $+(-t,$2) # takip.ini 10 | return }


__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Cevapla

Etiketler
coder ler, yardım edin lütfen


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Merhaba Coder Arkadaşlar 2 Sorunum olacak Yardımcı olurmusunuz Tinba mIRC Scripting Sorunları 21 13 Mayıs 2018 14:53
Coder Arkadaşlar S.a Tinba mIRC Scripting Sorunları 7 26 Ağustos 2013 00:41
Coder Arkadaşlar Bu kodu düzeltebilirmisiniz? sohbetsevgi mIRC Scripting Sorunları 10 10 Haziran 2008 21:51
arkadaşlar yardımcı olurmusunuz GaziosmanpasaLi Unreal IRCd 5 14 Mart 2007 15:00