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

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

- - Çözüldü Çay Kahve (https://www.ircforumlari.net/mirc-scripting-sorunlari/1025047-cay-kahve.html)

Kod:

on *:text:*:#: {

  if $regex($1,/^[!.]([cçÇ]ayl|kah[fv]e)$/Si) {

    msg # $+(1,$replace($regml(1),c,Ç,ç,Ç,k,K)) hazırlanıyor...

    $+(.timer,$regml(1)) 1 3 caykahve $regml(1) $chan $nick

  }

}

alias caykahve {

  var %k $1, %c $2, %n $3, %r 2 3 4 5 6 10 12 13, %rnk $gettok(%r,$rand(1,8),32), %renkver $+(,$chr(3),%rnk), %cay 1|1,4_1|>, %kahve 1|1,5_1|>

  if $regex(%k,/[cçÇ]ay/Si) {

    msg %c $+(4,%n) 1tüm kanala 4Çay 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 1çaylarınız...

    msg %c $+($str($+(%cay,$chr(32)),$calc($nick(%c,0) - 1)))

    msg %c 1Afiyet olsun4.

  }

  elseif $regex(%k,/kah[fv]e/Si) {

    msg %c $+(4,%n) 1tüm kanala 5Kahve 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 1kahveleriniz...

    msg %c $+($str($+(%kahve,$chr(32)),$calc($nick(%c,0) - 1)))

    msg %c 1Afiyet olsun4.

  }

}

selam, bu kodu çalıştıramadım hatanın nerede olduğunu görebiliyor musunuz?

Cevap: Çay Kahve

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Aslında kod da sorun yok sadece bir iki renk ayarları bozuktu düzelttim

Kod:

if $regex($1,/^[!.]([cçÇ]ayl|kah[fv]e)$/Si) {

burada çayl yazmışsın o yüzden belki çalışmamıştır düzelttim.

Kod:

[15:46:17] <Efsane> !çay [15:46:17] <&Forbidden> Çay hazırlanıyor... [15:46:20] <&Forbidden> Efsane tüm kanala Çay ısmarladı. Buyurun AsiL Forbidden Deneme çaylarınız... [15:46:20] <&Forbidden> |_|> |_|> |_|> |_|> |_|> [15:46:20] <&Forbidden> Afiyet olsun. [15:46:21] <Efsane> !kahve [15:46:21] <&Forbidden> Kahve hazırlanıyor... [15:46:24] <&Forbidden> Efsane tüm kanala Kahve ısmarladı. Buyurun AsiL Forbidden Deneme kahveleriniz... [15:46:24] <&Forbidden> |_|> |_|> |_|> |_|> |_|> [15:46:24] <&Forbidden> Afiyet olsun.

Kod;

Kod:

on *:text:*:#: { if $regex($1,/^[!.]([cçÇ]ay|kah[fv]e)$/Si) { msg # $+(4,$replace($regml(1),c,Ç,ç,Ç,k,K)) hazırlanıyor... $+(.timer,$regml(1)) 1 3 caykahve $regml(1) $chan $nick } } alias caykahve { var %k $1, %c $2, %n $3, %r 2 3 4 5 6 10 12 13, %rnk $gettok(%r,$rand(1,8),32), %renkver $+(,$chr(3),%rnk), %cay 1|1,4_1|>, %kahve 1|1,5_1|> if $regex(%k,/[cçÇ]ay/Si) { msg %c $+(4,%n) 1tüm kanala 4Çay 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 1çaylarınız... msg %c $+($str($+(%cay,$chr(32)),$calc($nick(%c,0) - 1))) msg %c 1Afiyet olsun4. } elseif $regex(%k,/kah[fv]e/Si) { msg %c $+(4,%n) 1tüm kanala 5Kahve 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 1kahveleriniz... msg %c $+($str($+(%kahve,$chr(32)),$calc($nick(%c,0) - 1))) msg %c 1Afiyet olsun4. } }