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

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

- - mIRCTurk NoMercy (https://www.ircforumlari.net/mirc-scripting-sorunlari/38799-mircturk-nomercy.html)

mIRCTurk NoMercy

mIRCTurkdeki NoMercyde Özel Olarak !Rapor Kodu Eklenmiş Ben Bu Kodu Kendi Serverımdaki NoMercy ime Eklemek İstiyorum Kodu Bilen Varsa Anlatarak Yazabilirmi ??

Cevap: mIRCTurk NoMercy

Alıntı:

DraqonS Nickli Üyeden Alıntı (Mesaj 268225)

mIRCTurkdeki NoMercyde Özel Olarak !Rapor Kodu Eklenmiş Ben Bu Kodu Kendi Serverımdaki NoMercy ime Eklemek İstiyorum Kodu Bilen Varsa Anlatarak Yazabilirmi ??

Özelliği nedir? Ne iş görür? Bunlardan bahset ona göre olurunu söyleyelim.

Cevap: mIRCTurk NoMercy

Helpers Kanalında !Rapor Çekince Help Kanalında Helperlerin Kaç Tane + Verdiğini Gösteriyor

DraqonS Nickli Helper 100 Kere
MaviPikseL Nickli Helper 500 Kere

Gibisinden ...

Ben Bu Kodu NoMercy e Eklemek istiyorum ...

Hangi Kodu Hangi Dosyada Hangi Satıra Eklerim usta ?

Cevap: mIRCTurk NoMercy

mIRCTURK Yenımı yapmış onu :)

Cevap: mIRCTurk NoMercy

voice sayacı diye arat bu forumda olmalı yoksa googlede arat vardı piyasada oda yoksa yaz buraya

Cevap: mIRCTurk NoMercy

Ben onu yazalı yıllar oldu. Yeni mi moda olmuş ilginç? Nomercy türü (sock) botlara sonradan ekleme yapmak çok zahmet gerektiren bir iştir. Ben sana kodu veririm ama sen nereye hangi çekilde yapıştıracağını bilemessin. Bilirim deme bilseydin kendin de yapabilirdin.:)

Cevap: mIRCTurk NoMercy

Kod:

on me:voice:#a: {

if !%vc { set %vc 0 }

inc %vc

msg #x  %vc kez voice verdin..

}

Cevap: mIRCTurk NoMercy

Kod:

  if $2 == MODE {

    var %chan $3

    var %mode $4

    var %mnick $5

    if $4 == -v {

      if $3 == #operhelp {

        sw $sockname KICK $3 $5 : $+ $botfnick($1) tarafindan voice'iniz alindi. #OperHelp kanalında bekleme yapmak yasaktır hoş sohbetler dileriz ...

      }

    }

    if %chan == #operhelp {

      if *-* !iswm $4 {

        if *+* iswm $4 {

          if *q* iswm $4 || *a* iswm $4 || *o* iswm $4 {

            ;sw MNet SAJOIN $botfnick($1) #helpers

          }

        }

      }

      if %mode == +v {

        sw $sockname privmsg #helpdesk : $+ %mnick usere $unick($1) "helpdesk" yardım vermektedir.

        if (%voices1. [ $+ [ $unick($1) ] ]) { 

          inc %voices1. [ $+ [ $unick($1) ] ] 1 

          goto yaz

        } 

        eLse { 

          set %voices1. [ $+ [ $unick($1) ] ] 1 

          goto yaz 

        } 

      } 

      goto son 

      :yaz 

      write -s $+ $unick($1) voices1.txt $unick($1) nicki   %voices1. [ $+ [ $unick($1) ] ]  kez yardım verdi

      haLt 

      :son 

      haLt 

    }

  }

  if $2 == MODE {

    var %chan $3

    var %mode $4

    var %mnick $5

    if $4 == -v {

      if $3 == #help {

        sw $sockname KICK $3 $5 : $+ $botfnick($1) tarafindan voice'iniz alindi. #Help kanalında bekleme yapmak yasaktır hoş sohbetler dileriz ...

      }

    }

    if %chan == #help {

      if *-* !iswm $4 {

        if *+* iswm $4 {

          if *q* iswm $4 || *a* iswm $4 || *o* iswm $4 {

            sw MNet SAJOIN $botfnick($1) #helpers,#eğitim,#sınav

          }

        }

      }

      if %mode == +v {

        sw $sockname privmsg #helpers : $+ %mnick usere $unick($1) "helper" yardım vermektedir.

        if (%voice. [ $+ [ $unick($1) ] ]) { 

          inc %voice. [ $+ [ $unick($1) ] ] 1 

          goto yaz

        } 

        eLse { 

          set %voice. [ $+ [ $unick($1) ] ] 1 

          goto yaz 

        } 

      } 

      goto son 

      :yaz 

      write -s $+ $unick($1) voices.txt $unick($1) nicki   %voice. [ $+ [ $unick($1) ] ]  kez yardım verdi

      haLt 

      :son 

      haLt 

    }

  }

Kod:

    if $2 == PRIVMSG && $3 == #helpers {

      var %irt $right($4-,-1)

      if $gettok(%irt,1,32) == !rapor  && (Sysop_* iswm $botfnick($1) || *Visor_* iswm $botfnick($1) || Csop_* iswm $botfnick($1) || Admin_* iswm $botfnick($1) || $botfnick($1) == MNet) {

        sw $sockname privmsg #helpers 4Muhabbet1.4NET 1Helper'lerinin #help kanalında verdikleri voice sayısı;

        var %s 1

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

          sw $sockname privmsg #helpers > $read(voices.txt,%s)

          inc %s

        }

      }

    }

    if $2 == PRIVMSG && $3 == #helpdesk {

      var %irt $right($4-,-1)

      if $gettok(%irt,1,32) == !rapor  && (Sysop_* iswm $botfnick($1) || Helpdesk_Murat iswm $botfnick($1) || Csop_* iswm $botfnick($1) || Admin_* iswm $botfnick($1) || $botfnick($1) == MNet) {

        sw $sockname privmsg #helpdesk 4Muhabbet1.4NET 1Helpdesk_'lerinin #operhelp kanalında verdikleri voice sayısı;

        var %s 1

        while %s <= $lines(voices1.txt) {

          sw $sockname privmsg #helpdesk > $read(voices1.txt,%s)

          inc %s

        }

      }

    }

Kodlari verebilirim nereye koyağınıda söyleyeyim helpbot' koyacaksın. Scriptin kurulu olduğu dosya içinede iki tane txt acıcaksın voices.txt voices1.txt yapacaksın isimlerini silmesinide soracak olursan daha yapmadım onu yapınca veririm.

Cevap: mIRCTurk NoMercy

Kod:

    if $2 == PRIVMSG && $3 == #helpers {

      var %irt $right($4-,-1)

      if $gettok(%irt,1,32) == !sifirla  && (Sysop_* iswm $botfnick($1) || *Visor_* iswm $botfnick($1) || Talesin iswm $botfnick($1) || Csop_* iswm $botfnick($1) || Admin_* iswm $botfnick($1) || $botfnick($1) == MNet) {

        write -c helpers.txt 

        unset %*helpers*

        sw $sockname privmsg #helpers 4Muhabbet1.4NeT Helper rapor istatistikleri sifirlaniyor........ 

      }

    }

    if $2 == PRIVMSG && $3 == #helpers {

      var %irt $right($4-,-1)

      if $gettok(%irt,1,32) == !rapor  && (Sysop_* iswm $botfnick($1) || *Visor_* iswm $botfnick($1) || Talesin iswm $botfnick($1) || Csop_* iswm $botfnick($1) || Admin_* iswm $botfnick($1) || $botfnick($1) == MNet) {

        sw $sockname privmsg #helpers 4Muhabbet1.4NeT 1Helper'lerinin #help kanalında verdikleri voice sayısı;

        var %s 1

        while %s <= $lines(helpers.txt) {

          sw $sockname privmsg #helpers > $read(helpers.txt,%s)

          inc %s

        }

      }

    }

Txt. isimlerinde değişiklik olmustur onlari ayarlamayı unutmayın arkadaşlar.