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

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - !buyuk - !kucuk - !esit (mIRC Eglence) (https://www.ircforumlari.net/mirc-parca-kodlar/836711-buyuk-kucuk-esit-mirc-eglence.html)

!buyuk - !kucuk - !esit (mIRC Eglence)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

on *:text:*:#: {

  if $me !== Set { return }

  var %rand $rand(1,10), %sonuc $iif(%rand >= 10,buyuk,$iif(%rand == 5,esit,kucuk)), %secimler buyuk esit kucuk, %rands $rand(1,3), %secimi $token(%secimler,%rands,32)

  if $regex($1,^[!.]b[uüÜ]y[uüÜ]k$) { var %regml buyuk }

  if $regex($1,^[!.]k[uüÜ]c[uüÜ]k$) { var %regml kucuk }

  if $regex($1,^[!.]e[şsŞ][ıiİ]t$) { var %regml esit }

  if %regml && %sonuc {

    var %sonucs $iif(%regml == %sonuc && %secimi == %sonuc ,Oyun Berabere,$iif(%regml !== %sonuc,$me,$nick))

    if %sonucs == $nick {  writeini sayiskor.63 $nick skor $calc($sayiskor($nick,skor) + 1) }

    if %sonucs == $me {  writeini sayiskor.63 $nick bot $calc($sayiskor($nick,bot) + 1) }

    var %skorlar $+($chr(40),2Skor:14 $nick 10 $sayiskor($nick,skor) 4-14 $me 10 $sayiskor($nick,bot),$chr(41)) 

    msg $chan -

    msg $chan Seciminiz10 $upper(%regml) Botun secimi10 $upper(%secimi) (Sonuc: $upper(%sonuc) $+ $chr(41) $+($chr(40),$iif(%sonucs !== oyun berabere,4Kazanan: %sonucs,4Oyun Berabere),$chr(41)) %skorlar

    msg $chan -

  }

}

alias sayiskor {

  return $iif($readini(sayiskor.63,$1,$2),$v1,0) 

}

Cevap: !buyuk - !kucuk - !esit (mIRC Eglence)

bu kod calışmadı neden ola bilir

Cevap: !buyuk - !kucuk - !esit (mIRC Eglence)

Alıntı:

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

bu kod calışmadı neden ola bilir

Mirc version 6.35 üstünde yazıldı sizin version kaç?

Cevap: !buyuk - !kucuk - !esit (mIRC Eglence)

bunun socket'i var mı?

Cevap: !buyuk - !kucuk - !esit (mIRC Eglence)

Alıntı:

İRcFrm Nickli Üyeden Alıntı (Mesaj 1042500133)

bunun socket'i var mı?

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bu link belki işini görür.

Cevap: !buyuk - !kucuk - !esit (mIRC Eglence)

Alıntı:

Subzero Nickli Üyeden Alıntı (Mesaj 1042502303)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bu link belki işini görür.

Mesajın için teşekkür ederim ama bu TCL bana socket lazım. Bir şekilde uğraşacağım.

Cevap: !buyuk - !kucuk - !esit (mIRC Eglence)

Alıntı:

İRcFrm Nickli Üyeden Alıntı (Mesaj 1042502347)

Mesajın için teşekkür ederim ama bu TCL bana socket lazım. Bir şekilde uğraşacağım.

socket botunda PRIVMSG tagı içerisine,

Kod:

  var %rand $rand(1,10), %sonuc $iif(%rand >= 10,buyuk,$iif(%rand == 5,esit,kucuk)), %secimler buyuk esit kucuk, %rands $rand(1,3), %secimi $token(%secimler,%rands,32)

  if $regex($remove($4,:),^[!.]b[uüÜ]y[uüÜ]k$) { var %regml buyuk }

  if $regex($remove($4,:),^[!.]k[uüÜ]c[uüÜ]k$) { var %regml kucuk }

  if $regex($remove($4,:),^[!.]e[şsŞ][ıiİ]t$) { var %regml esit }

  if %regml && %sonuc {

    var %sonucs $iif(%regml == %sonuc && %secimi == %sonuc ,Oyun Berabere,$iif(%regml !== %sonuc,$_bot,$_nick($1)))

    if %sonucs == $_nick($1) {  writeini sayiskor.63 $_nick($1) skor $calc($sayiskor($_nick($1),skor) + 1) }

    if %sonucs == $_bot {  writeini sayiskor.63 $_nick($1) bot $calc($sayiskor($_nick($1),bot) + 1) }

    var %skorlar $+($chr(40),2Skor:14 $_nick($1) 10 $sayiskor($_nick($1),skor) 4-14 $_bot 10 $sayiskor($_nick($1),bot),$chr(41)) 

    sockwrite -n $sockname privmsg $3 :-

    sockwrite -n $sockname privmsg $3 :Seciminiz10 $upper(%regml) Botun secimi10 $upper(%secimi) (Sonuc: $upper(%sonuc) $+ $chr(41) $+($chr(40),$iif(%sonucs !== oyun berabere,4Kazanan: %sonucs,4Oyun Berabere),$chr(41)) %skorlar

    sockwrite -n $sockname privmsg $3 :-

  }

aliases kısmına,

Kod:

sayiskor {

  return $iif($readini(sayiskor.63,$1,$2),$v1,0) 

}

_bot return BOTNICKI

_nick return $remove($gettok($1,1,33),:)

ekle

Cevap: !buyuk - !kucuk - !esit (mIRC Eglence)

Socket botun mirc verisonu 6.35 olmasına rağmen kodu bir türlü çalıştıramadım.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Re: !buyuk - !kucuk - !esit (mIRC Eglence)

Kod:

sayiskor {

  return $iif($readini(sayiskor.63,$1,$2),$v1,0) 

}

_bot return Eglence

_nick return $remove($gettok($1,1,33),:)

bu şekilde denermisin. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazmıs ama sen biraz karıştırmıssın anladıgım kadarıyla.