IRCForumu.ORG - mIRC Eğlence Botu

Alıntı:

Billy Nickli Üyeden Alıntı (Mesaj 140911)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bunda ki eğlence remotelerini kendime nasıl geçire bilirim

Merhaba Bu Set'in yapmış olduğu Remote. Bunu Deneyebilirsiniz.
Benim Tüm dosyaların ve arşivim eski bilgisayarım ile çöp oldu. Ve bunlarıda deneme fırsatım olmadı. mIRC 6.35 üstü sürümde çalışır aşağı da vermiş olduğum remote.
İlerleyen zamanlarda Deneyipte eski Usul paylaşırım ancak dediğim gibi şuan da bilgisayarımda hiç bir bilgi mevcut değil. ^_^
[Ü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,^&[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]!.]b&[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]uüÜ]y&[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]uüÜ]k$) { var %regml buyuk }

  if $regex($1,^&[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]!.]k&[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]uüÜ]c&[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]uüÜ]k$) { var %regml kucuk }

  if $regex($1,^&[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]!.]e&[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]şsŞ]&[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ı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) 

}

Komut ;

Kod:

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