[Set]

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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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) 
}

[Zalimsin]

bu kod calışmadı neden ola bilir

[Set]

off Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bu kod calışmadı neden ola bilir

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

[Zalimsin]

versiyon 6.21

[İRcFrm]

bunun socket'i var mı?

[Subzero]

İRcFrm Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bunun socket'i var mı?

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

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

[İRcFrm]

Subzero Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Ü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.

[YouMyCure]

İRcFrm Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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:   Kodu kopyalamak için üzerine çift tıklayın!

  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:   Kodu kopyalamak için üzerine çift tıklayın!

sayiskor {
  return $iif($readini(sayiskor.63,$1,$2),$v1,0) 
}
_bot return BOTNICKI
_nick return $remove($gettok($1,1,33),:)

ekle

[İRcFrm]

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


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Subzero]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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.