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

mIRC 6.35 üstü versiyonlarda çalışır.

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