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

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

- - !seviyor (https://www.ircforumlari.net/mirc-scripting-sorunlari/836930-seviyor.html)

Kod:

on *:text:*:#: {

  if ($regex($strip($1),/^[!.]sev[ıIİı]yor/Si)) {

    if $strip($2) == $nick { return }

    if ($strip($2) !ison # && $2) { msg $chan 2 $qt($nick) $+(<,$strip($2),>)  $chan kanalında bulunmamaktadır. | return }

    if $hget(seviyormu,$nick) { .notice $nick 30 saniye içersinde, Yalnız 1 defa $1 komutunu kullanabilirsiniz. Kalan Süre: $hget(seviyormu,$nick).unset Saniye }

    else {

      .hinc -msu30 seviyormu $nick 1

      var %toplam 100

      var %seviyor $r(1,%toplam)

      var %toplam $calc(%toplam - %seviyor)

      var %sevmiyor $r(1,%toplam) 

      var %toplam $calc(%toplam - %sevmiyor)

      var %umursamıyor %toplam

      msg $chan $iif($2,$+ $+(4,$nick,1) $+(4,$2,1) 2seni;,$+ $+(4[,$nick,]1) seni;)

      msg $chan 4,4................. 0 % $+ %seviyor Seviyor! <3

      msg $chan 2,2......................... 0 % $+ %sevmiyor Sevmiyor! </3

      msg $chan 7,7.......................................................... 0 % $+ %umursamıyor Umursamıyor! ;|

    }

  }

}

Arkadaşlar bu kod calışıyordu şimdi calışmıyor neden ola bilir acaba

Kod:

if ($regex($strip($1),/^[!.]sev[ıIİı]yor/Si)) {

burayı

Kod:

if $regex($1,/^[!.]sev[ıiİ]yor/Si) {

değiştirip deneyin

Alıntı:

off Nickli Üyeden Alıntı (Mesaj 1042154535)

Kod:

on *:text:*:#: {

  if ($regex($strip($1),/^[!.]sev[ıIİı]yor/Si)) {

    if $strip($2) == $nick { return }

    if ($strip($2) !ison # && $2) { msg $chan 2 $qt($nick) $+(<,$strip($2),>)  $chan kanalında bulunmamaktadır. | return }

    if $hget(seviyormu,$nick) { .notice $nick 30 saniye içersinde, Yalnız 1 defa $1 komutunu kullanabilirsiniz. Kalan Süre: $hget(seviyormu,$nick).unset Saniye }

    else {

      .hinc -msu30 seviyormu $nick 1

      var %toplam 100

      var %seviyor $r(1,%toplam)

      var %toplam $calc(%toplam - %seviyor)

      var %sevmiyor $r(1,%toplam) 

      var %toplam $calc(%toplam - %sevmiyor)

      var %umursamıyor %toplam

      msg $chan $iif($2,$+ $+(4,$nick,1) $+(4,$2,1) 2seni;,$+ $+(4[,$nick,]1) seni;)

      msg $chan 4,4................. 0 % $+ %seviyor Seviyor! <3

      msg $chan 2,2......................... 0 % $+ %sevmiyor Sevmiyor! </3

      msg $chan 7,7.......................................................... 0 % $+ %umursamıyor Umursamıyor! ;|

    }

  }

}

Arkadaşlar bu kod calışıyordu şimdi calışmıyor neden ola bilir acaba

denedim ama olmadı

Kodun çalışmamasının koşul parantezlerine bağlı olduğunu düşünmüyorum.

Kodu düzenlemeye kalkarsan, göze çarpanlardan birisi

Kod:

if ($regex($strip($1),/^[!.]sev[ıIİı]yor/Si)) {

$strip($1) yerine $1 yeterli olur, çünkü regexde /S flağı ile strip işlemini zaten uygular.

Örnek:

Kod:

Negatif:  //echo -a $regex(4se2lam,/^(selam)$/i) - $regml(1)
 
 Pozitif:  //echo -a $regex(4se2lam,/^(selam)$/Si) - $regml(1)

Ayrıca hash table komutlarını kullanırken "Örneğin hinc" -s parametresi bu tarz kodlarda gereksiz. Test ve deneme aşamasında kullanılabilir bence. İşlevi, komuttaki atamaları ekrana yansıtıyor sadece.

Alıntı:

off Nickli Üyeden Alıntı (Mesaj 1042154549)

denedim ama olmadı

Kodda herhangi bir problem gözükmüyor.

Örnek görüntü: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kolay gelsin.

on $*:text:/^[!.][sşSŞ]sev[iıİI]y[oöOÖ]r/Si:#: { if (!$2) { msg # Hatalı kullanım lütfen nick belirtin. } | elseif $regex($2,/\W+|\s+|\d+|/Si) && ($2 !ison #) { msg # Hatalı kullanım lütfen gecerli veya kanalda bulunan bir nick belirtin. } | else { var %:Mylife = $rand(5,100) | msg # 0,4 % $+ %:Mylife Seviyor. | msg # 0,3 % $+ $calc(100-%:Mylife) Sevmiyor. | var %:Kod = $calc(100-%:Mylife) | $iif(%:Kod >= 50,msg # $read(nefret.txt,1),msg # $read(sevgi.txt,1)) } }