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

Aşadaki Kodları Nomercy.mrc içine Yapıştırın. txt klasorune not.txt dosyası acınız. güle güle kullanın.

Kod:

if $regex($strip(%text),/^[!.]notekle$/i) || $regex($strip(%text),/^[!.]notal$/i) {

        write txt/not.txt $5- 5Tarih : $time - $date 5Ekleyen : %nick

        sw $sockname privmsg %chan Notunuz eklendi %nick $+ . ( $5- )

      }

      if $regex($strip(%text),/^[!.]notsil$/i) {

        sw $sockname privmsg %chan %nick : $5 nolu sıradaki not silindi. 

        write -dl $5 txt/not.txt   

      }

      if $regex($strip(%text),/^[!.]notlar$/i) {

        if ($lines(txt/not.txt) == 0) { sw $sockname privmsg %chan Eklenmiş Not Bulunmamaktadır. | /remove txt/nsnot.txt | halt }

        else {

          sw $sockname privmsg %chan Sisteme Eklenmiş Notlar Listeleniyor...

          sw $sockname privmsg %chan 

          var %afsn 1

          while %afsn <= $lines(txt/not.txt) { 

            sw $sockname privmsg %chan %afsn $+ ) $read(txt/not.txt,%afsn)

            inc %afsn 

          }

        }

      }