!Sayi tahmin remotesi - IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

**Daemon** · 28 Ocak 2024, 05:09

Kod

on *:TEXT:!sayı:#kanal: {
  set %hedefsayi $rand(1,100)
  msg $chan Bir sayı seçildi, tahmin et bakalım!
}

on *:TEXT:*:#kanal: {
  if ($($1) isnum) {
    if ($1 == %hedefsayi) {
      msg $chan  Tebrikler $nick, doğru tahmin ettiniz!
      unset %hedefsayi
    }
    elseif ($1 < %hedefsayi) {
      msg $chan Daha büyük bir sayı söyle.
    }
    else {
      msg $chan  Daha küçük bir sayı söyle.
    }
  }
}

**ZeyNa** · 30 Ocak 2024, 15:59

Emeğinize sağlık

**Sim** · 30 Ocak 2024, 21:05

paylasim icin tesekkürler

**idyllic** · 31 Ocak 2024, 12:20

@[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] yapıyorsun bu sporu tebrikler.

**oMeN** · 03 Şubat 2024, 13:48

Emeğine sağlık kank

**BuSeM** · 03 Şubat 2024, 13:52

Emeğinize sağlık

**Daemon** · 16 Şubat 2024, 19:04

Bu da gelismis hali

Alıntı:

; Oyun ayarları
var %minSayi = 1
var %maxSayi = 100
var %maxHaklar = 5
var %puanSistemi = $iif($prop == $null, 1, 0) ; 1: Etkin, 0: Devre dışı
var %oyunSuresi = $iif($prop == $null, 0, 60) ; Saniye cinsinden, 0: Devre dışı

; Yeni oyun başlatma komutu
on *:TEXT:!sayitahmin:#: {
if (%oyunDurumu == 1) {
msg $chan Bir oyun zaten devam ediyor. Lütfen önceki oyunu bitirin.
return
}
var %kanal = $chan
set %hedefSayi $rand(%minSayi,%maxSayi)
set %kalanHaklar %maxHaklar
set %tahminler
set %oyunDurumu 1
set %oyunBaslamaZamani $ctime
msg %kanal Yeni bir sayı seçildi, 1 ile 100 arasında bir sayı tahmin et! (%maxHaklar hakkınız var.) Oyunu bitirmek için !bitir komutunu kullanabilirsiniz.
if (%oyunSuresi > 0) { timerOyunSuresi %oyunSuresi 1 }
}

; Tahmin işlemi komutu
on *:TEXT

:#: {
if (%oyunDurumu == 1 && $chan == %kanal) {
if ($($1) isnum) {
var %tahmin = $1
if (%tahmin >= %minSayi && %tahmin <= %maxSayi) {
dec %kalanHaklar

if (%tahmin == %hedefSayi) {
var %sure = $calc($ctime - %oyunBaslamaZamani)
var %puan = $iif(%puanSistemi == 1, $calc(100 - (%sure / 10)), 0)
msg %kanal Tebrikler $nick! Doğru tahmin ettiniz. Sayı: %hedefSayi. (%maxHaklar - %kalanHaklar). Tahminler: %tahminler. Puanınız: %puan
unset %hedefSayi
unset %kalanHaklar
unset %tahminler
unset %oyunDurumu
unset %kanal
unset %oyunBaslamaZamani
if (%oyunSuresi > 0) { timerOyunSuresi off }
return
}
elseif (%tahmin > %hedefSayi) {
msg %kanal Daha küçük bir sayı söyle. Kalan tahmin hakkı: %kalanHaklar.
}
else {
msg %kanal Daha büyük bir sayı söyle. Kalan tahmin hakkı: %kalanHaklar.
}

; Tahminleri listeleme
if (%kalanHaklar > 0) {
set %tahminler $addtok(%tahminler,%tahmin,32)
}

; Tahmin hakkı kalmadığında oyunu sonlandır
if (%kalanHaklar == 0) {
msg %kanal Üzgünüz, tahmin hakkınız bitti. Doğru sayı: %hedefSayi. Tahminler: %tahminler
unset %hedefSayi
unset %kalanHaklar
unset %tahminler
unset %oyunDurumu
unset %kanal
unset %oyunBaslamaZamani
if (%oyunSuresi > 0) { timerOyunSuresi off }
}
}
else {
msg %kanal Lütfen 1 ile 100 arasında geçerli bir sayı giriniz.
}
}
else {
msg %kanal Geçerli bir sayı giriniz.
}
}
}

; Oyun süresi kontrolü
alias -l timerOyunSuresi {
if ($timer($+(timerOyunSuresi,$2))) { timer $+(timerOyunSuresi,$2) off }
if (%oyunDurumu == 1 && $timer($+(timerOyunSuresi,$2)) == $null) { msg %kanal Oyun süresi doldu. Doğru sayı: %hedefSayi. Tahminler: %tahminler | unset %hedefSayi %kalanHaklar %tahminler %oyunDurumu %kanal %oyunBaslamaZamani }
}

**Ruyanur** · 25 Şubat 2024, 02:41

Emeginize saglik

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)