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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - voice kayıt (https://www.ircforumlari.net/mirc-scripting-sorunlari/171532-voice-kayit.html)

help kanalında verilen + ları kayıt eder
on *:voice:#Help:$read(nikler.txt,w,$nick),write nikler.txt $nick)

aşağıdaki nickler !sıfırla ve !rapor komtunu uygulaya bilsin demek

if !$istok(ahmet mehmet hüseyin,$nick,32) { return }

benim yapmak istediğim help kanalında verilen + ları kay detmek ve helpers kanalında da !info nick yazan o nick in ne kadar + verdiğini rakam olarak göre bilsin istiyorum ahmet mehmet hüseyin !rapor yazdığında tüm voice sayılarını versin helpers kanalında ve !sıfırla dediğinde ahmet mehmet hüseyin se !sıfırla yazan sıfırlasın istiyorum
!info nick yazdıklarında + vermemiş ise vermemiştir desin silip listelerkende şimdiden tşk
biraz uğraştım hiç yoktan iyidir gerisini tammalarsanız iyi olur

Cevap: voice kayıt

Kod:

on *:voice:#help: {

  if $read(nikler.txt,w,$+(*,$nick,*)) { write $+(-,l,$readn) nikler.txt $nick $calc($token($read(nikler.txt,$readn),2,32) + 1) }

  else { write nikler.txt $nick 1 }

}

on *:text:*:#helper: {

  if $1 == !info && $2 {

    if $read(nikler.txt,w,$+(*,$2,*)) { msg $chan 12 $2 2nickinin voice sayısı =>4 $gettok($read(nikler.txt,w,$+(*,$2,*)),2,32) }

    else { msg $chan 4 $2 2nicki listede yok. }

  }

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

  if $1 == !rapor {

    msg $chan 5-12 #Help 5kanalı voice istatikleri -

    var %voices 1

    while %voices <= $lines(nikler.txt) {

      msg $chan 4 $gettok($read(nikler.txt,%voices),1,32) 2voice sayısı =>6 $token($read(nikler.txt,%voices),2,32))

      inc %voices

    }

    msg $chan 5- Liste Sonu -

  }

  if $1 == !sil && $2 {

    if $read(nikler.txt,w,$+(*,$2,*)) { write $+(-,d,l,$readn) nikler.txt | msg $chan 4 $2 2nicki listeden silindi. }

    else { msg $chan 4 $2 2nicki listede yok. }

  }

  if $1 == !sıfırla {

    msg $chan 2-4 #Help 2kanalı voice sayıları sıfırlanmıştır -

    var %zero 1

    while %zero <= $lines(nikler.txt) {

      write $+(-,l,%zero) nikler.txt $token($read(nikler.txt,%zero),1,32) 0

      inc %zero

    }

  }

}

#helper kanalında !info nick komutunu herkes kullanabilir.Diğer komutları kullanabilecek kişiler Halil Hasan Cenk nickleri olarak belirttim.Şayet tüm komutları bu nickler kullansın demek istediysen,o satırı text event'ının hemen altına başlangıç olarak yazmalısın.

İyi forumlar...

Cevap: voice kayıt

denedim çok güzel çalışıyor son bir isteğim olucak mümkünse help kanalında % & @ bir birine + verdiklerinde onları kayt tutmasın istiyorum bunuda yaparsak iiy olur tşk

Cevap: voice kayıt

Kod:

on *:voice:#help: {

  if !$count($nick(#help,$vnick).pnick,%,@,&) {

    if $read(nikler.txt,w,$+(*,$nick,*)) { write $+(-,l,$readn) nikler.txt $nick $calc($token($read(nikler.txt,$readn),2,32) + 1) }

    else { write nikler.txt $nick 1 }

  }

}

on *:text:*:#helper: {

  if $1 == !info && $2 {

    if $read(nikler.txt,w,$+(*,$2,*)) { msg $chan 12 $2 2nickinin voice sayısı =>4 $gettok($read(nikler.txt,w,$+(*,$2,*)),2,32) }

    else { msg $chan 4 $2 2nicki listede yok. }

  }

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

  if $1 == !rapor {

    msg $chan 5-12 #Help 5kanalı voice istatikleri -

    var %voices 1

    while %voices <= $lines(nikler.txt) {

      msg $chan 4 $gettok($read(nikler.txt,%voices),1,32) 2voice sayısı =>6 $token($read(nikler.txt,%voices),2,32))

      inc %voices

    }

    msg $chan 5- Liste Sonu -

  }

  if $1 == !sil && $2 {

    if $read(nikler.txt,w,$+(*,$2,*)) { write $+(-,d,l,$readn) nikler.txt | msg $chan 4 $2 2nicki listeden silindi. }

    else { msg $chan 4 $2 2nicki listede yok. }

  }

  if $1 == !sıfırla {

    msg $chan 2-4 #Help 2kanalı voice sayıları sıfırlanmıştır -

    var %zero 1

    while %zero <= $lines(nikler.txt) {

      write $+(-,l,%zero) nikler.txt $token($read(nikler.txt,%zero),1,32) 0

      inc %zero

    }

  }

}