Sohbet sohbet odası
Sohbet Odası Okey Oyna
sohbetci mircx

Çaylar / Kahveler (Eğlence) Komutu

[mIRCX] Konu Bilgileri

Konu Hakkında Merhaba, tarihinde mIRC Scripting Hazır Kodlar kategorisinde admin tarafından oluşturulan Çaylar \/ Kahveler (Eğlence) Komutu başlıklı konuyu okuyorsunuz. Bu konu şimdiye dek 710 kez görüntülenmiş, 0 yorum ve 0 tepki puanı almıştır...
Kategori Adı mIRC Scripting Hazır Kodlar
Konu Başlığı Çaylar \/ Kahveler (Eğlence) Komutu
Konbuyu başlatan admin
Başlangıç tarihi
Cevaplar
Görüntüleme
İlk mesaj tepki puanı
Son Mesaj Yazan admin

admin

Mustafa Kemal ATATÜRK
Administrator
Katılım
16 Kas 2019
Mesajlar
514
Tepkime puanı
0
Puanları
16
Konum
public_html
Cinsiyet
Erkek
İlgi Alanı
Xenforo
IRC
irc.superalem.org

İtibar:

Merhaba,

Kullanım: [!.]çaylar - [!.]kahveler

Kanaldaki herkese çay veya kahve dağıtır.

Kod:
on *:text:*:#: {
  if $regex($1,/^[!.]([cçÇ]aylar|kah[fv]eler)$/Si) {
    msg # $+(1,$replace($regml(1),c,Ç,ç,Ç,k,K)) hazırlanıyor...
    $+(.timer,$regml(1)) 1 3 caykahve $regml(1) $chan $nick
  }
}
alias caykahve {
  var %k $1, %c $2, %n $3, %r 2 3 4 5 6 10 12 13, %rnk $gettok(%r,$rand(1,8),32), %renkver $+(,$chr(3),%rnk), %cay 1|1,4_1|>, %kahve 1|1,5_1|>
  if $regex(%k,/[cçÇ]aylar/Si) {
    msg %c $+(4,%n) 1tüm kanala 4Çay 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 1çaylarınız...
    msg %c $+($str($+(%cay,$chr(32)),$calc($nick(%c,0) - 1)))
    msg %c 1Afiyet olsun.
  }
  elseif $regex(%k,/kah[fv]eler/Si) {
    msg %c $+(4,%n) 1tüm kanala 5Kahve 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 1kahveleriniz...
    msg %c $+($str($+(%kahve,$chr(32)),$calc($nick(%c,0) - 1)))
    msg %c 1Afiyet olsun.
  }
}
 
Üst Alt