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

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

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

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