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

Kod:

on *:text:*:#: {

  if ($regex($1-, /^[-.!]ba[sş]la$/)) {

    baslat_oyun

  }

  if ($regex($1-, /^[-.!]c (\d+)[\s]*([\+\-\*\/x])[\s]*(\d+)$/)) {

    işlem $2 $3 $4

  }

  if ($regex($1-, /^[-.!]puan$/)) {

    puan_goster

  }

  if ($regex($1-, /^[-.!]puanlar$/)) {

    eniyiler

  }

  if ($regex($1-, /^[-.!]yard[ıi]m$/)) {  

    yardimkomut

  }

}
 

alias baslat_oyun {

  var %sayi $rand(1, 500)

  set %dogru_sonuc %sayi

  set %islem_turu $rand(1, 4)

  set %oyun_bitti 0

  msg $chan 4Oyun başladı! 2Şimdi, 1 ile 500 arasında rastgele seçilen sayıyı işlem yaparak bulmaya çalışacaksınız.İşlem zor geldiyse yeniden !başla yap :)
 

  if (%islem_turu == 1) {

    msg $chan 4Toplama işlemi yaparak 2 %dogru_sonuc 4sayısını bulmaya çalışın.

    msg $chan 4Örnek işlem: 200 + 2 (cevabınızı sadece işlemi yazarak verin. Örnek: 200 + 2)

  }

  elseif (%islem_turu == 2) {

    msg $chan 4Çıkarma işlemi yaparak 2 %dogru_sonuc 4sayısını bulmaya çalışın.

    msg $chan 4Örnek işlem: 401 - 1 (cevabınızı sadece işlemi yazarak verin. Örnek: 401 - 1)

  }

  elseif (%islem_turu == 3) {

    msg $chan 4Çarpma işlemi yaparak 2 %dogru_sonuc 4sayısını bulmaya çalışın.

    msg $chan 4Örnek işlem: 200 * 2 (cevabınızı sadece işlemi yazarak verin. Örnek: 200 * 2)

  }

  elseif (%islem_turu == 4) {

    msg $chan 4Bölme işlemi yaparak 2 %dogru_sonuc 4sayısını bulmaya çalışın.

    msg $chan 4Örnek işlem: 400 / 2 (cevabınızı sadece işlemi yazarak verin. Örnek: 400 / 2)

  }

}
 

alias işlem {

  if (%oyun_bitti) {

    msg $chan 0,1Oyun zaten bitti, yeniden başlatmak için !başlat yazabilirsiniz.

    return

  }

  var %ilk_sayi $remove($1, 32)

  var %operatör $remove($2, 32)

  var %ikinci_sayi $remove($3, 32)

  var %sonuc
 

  if (%operatör == x) { set %operatör * }
 

  ; İşlemi yapalım

  if (%operatör == +) {

    var %sonuc = %ilk_sayi + %ikinci_sayi

  }

  elseif (%operatör == -) {

    var %sonuc = %ilk_sayi - %ikinci_sayi

  }

  elseif (%operatör == *) {

    var %sonuc = %ilk_sayi * %ikinci_sayi

  }

  elseif (%operatör == /) {

    var %sonuc = %ilk_sayi / %ikinci_sayi

  }

  if (%sonuc == %dogru_sonuc) {

    var %nick = $nick

    var %puan = $readini(puanlar.bzkrt, %nick, puan)

    if (%puan == $null) { set %puan 0 }

    set %puan $calc(%puan + 10)

    writeini puanlar.bzkrt %nick puan %puan

    msg $chan 0,4Tebrikler! Doğru sonucu buldunuz. Puanınız: %puan

    set %oyun_bitti 1

  }

  else {

    msg $chan 0,2Yanlış sonuç! Tekrar deneyin.

  }

}
 

alias puan_goster {

  var %nick = $nick

  var %puan = $readini(puanlar.bzkrt, %nick, puan)

  if (%puan == $null) { set %puan 0 }

  msg $chan 0,4 $nick , mevcut puanın: %puan

}
 

alias eniyiler {

  var %top_puanlar = $sortini(puanlar.bzkrt, puan, d)

  var %i = 1

  msg $chan En iyi puanlar:

  if (%top_puanlar == $null) {

    msg $chan 4Henüz puan kaydedilmemiş.

    return

  }
 

  while (%i <= 10) {

    var %nick = $gettok(%top_puanlar, %i, 44)

    var %puan = $readini(puanlar.bzkrt, %nick, puan)

    msg $chan %i %nick - %puan puan

    inc %i

  }

}
 

alias yardimkomut {

  msg $chan 0,2 İŞLEM ARENASI OYUNUNA HOŞ GELDİNİZ

  msg $chan 4 !başlat oyunu başlatır.

  msg $chan 2!c işlem cevap verir. ÖRNEK: !c 200x2

  msg $chan 3!puan : Sizin puanınızı gösterir.

  msg $chan 7!puanlar : Diğer kullanıcıların puanlarını gösterir.

}

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

Basit bir matematik işlem oyunu.
Mantık sistem 1 ve 500 arasında bir sayı seçer. (500 olan kısım değiştirilebilir.)
Seçtiği sayıyı verdiği işlemle bulunmanızı ister.
!c işlem şeklinde cevap verilir.
!başlat oyunu başlatır.

Not : Cevapların 1 + 1 2 * 6 gibi arada boşluk bırakılarak verilmesi gerekir aksi halde cevap doğru da olsa cevabı doğru olarak kabul etmez.