IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi  
 sohbet
Sohbet chat
Kayıt ol
Güncel Konular
🎄💥 🎆IRCRehberi.Net Yılbaşı Özel Çekilişi 2026 🎆🎄💥    IR-2025 Yılının En Çok Konuşulan Konuları     Sunucu Polemiği : Samyeli.Net & SamyeliFM    Radyo Polemiği : AskCafem.Net & AskFm     Vbulletin 3.8.x - Yazarlar Platformu ( Yeni Sistem )    Chatlak.com.tr ve diğer domain portfoyum satılıktır.        Bugün itibariyle IRC yolculuğumu noktalıyorum.    Sunucumuz Bünyesine DJ-op-Sop alımı    


mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.

💬 Bu Alana Reklam Ver ! 🎉 Hemen Katıl!
22Beğeni(ler)


Yeni Konu Aç
Cevap Yaz
  
Sayfa 1 Toplam 2 Sayfadan 1 2
 
Seçenekler Stil
Alt 02 Şubat 2020, 22:07   #1
ZirveShell Sahibi
Emrehan - ait Kullanıcı Resmi (Avatar)
Standart Çaylar / Kahveler (Eğlence) Komutu
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.
  }
}
Kendi botum/müşterilerim için yazdığım bir eklenti idi, ayıklayıp paylaşıyorum işine yarayan kullansın.

İyi forumlar.
👍 14
Konu Emrehan tarafından (02 Şubat 2020 Saat 22:18 ) değiştirilmiştir..
 
Alıntı Yap
Alt 02 Şubat 2020, 22:14   #2
𐱅𐰇𐰼𐰚
Swat - ait Kullanıcı Resmi (Avatar)
Standart
ellerine sağlık ustam

👍 1
________________
 
Alıntı Yap
Alt 02 Şubat 2020, 22:21   #3
~ Kekkei Genkai ~
L_ - ait Kullanıcı Resmi (Avatar)
Standart
Eline sağlık @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] hocam

👍 1
________________

Sayonaraaa..
 
Alıntı Yap
Alt 03 Şubat 2020, 15:21   #4
✰ ÖzeL..
oMeN - ait Kullanıcı Resmi (Avatar)
Standart
Alıntı:
L_ Nickli Üyeden Alıntı Mesajı göster
Eline sağlık @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] hocam
Bol bol çay ikram eder durursun :d Emeğine sağlık kardeşim

👍 2
________________

Edep; aklın Tercümanıdır. İnsan edebi kadar akıllı, Aklı kadar şerefli, Şerefi kadar Kıymetlidir. Massive..
 
Alıntı Yap
Alt 03 Şubat 2020, 23:33   #5
Özel Üye
She - ait Kullanıcı Resmi (Avatar)
Standart
Emeğinize sağlık güzel paylaşım için.

 
Alıntı Yap
Alt 09 Nisan 2020, 11:15   #6
Özel Üye
Free_EyeS - ait Kullanıcı Resmi (Avatar)
Standart
Alıntı:
Emrehan Nickli Üyeden Alıntı Mesajı göster
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.
  }
}
Kendi botum/müşterilerim için yazdığım bir eklenti idi, ayıklayıp paylaşıyorum işine yarayan kullansın.

İyi forumlar.

Kod

on *:text:*:#: {
  if $regex($1,/^[!.]([cçÇ]aylar|kah[fv]eler)$/Si) {
    msg # $+(4,$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 4,0)4_4,0(>0,0_ , %kahve 5,0|5,0_5|>
  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))))) 4çaylarınız...
    msg %c $+($str($+(%cay,$chr(32)),$calc($nick(%c,0) - 1)))
    msg %c 4Afiyet 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))))) 4kahveleriniz...
    msg %c $+($str($+(%kahve,$chr(32)),$calc($nick(%c,0) - 1)))
    msg %c 4Afiyet Bal Şeker olsun.
  }
}
Renk kodları düzenleyerek verıyorum @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] buna dakika eklemek ıcın ne lazım yanı komutu bır dakıka da bır uygulasın kahvehaneye donmesın ortalık :)

👍 1
________________
 
Alıntı Yap
Alt 09 Nisan 2020, 11:42   #7
Özel Üye
Alper - ait Kullanıcı Resmi (Avatar)
Standart
Alıntı:
Free_EyeS Nickli Üyeden Alıntı Mesajı göster

Kod

on *:text:*:#: {
  if $regex($1,/^[!.]([cçÇ]aylar|kah[fv]eler)$/Si) {
    msg # $+(4,$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 4,0)4_4,0(>0,0_ , %kahve 5,0|5,0_5|>
  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))))) 4çaylarınız...
    msg %c $+($str($+(%cay,$chr(32)),$calc($nick(%c,0) - 1)))
    msg %c 4Afiyet 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))))) 4kahveleriniz...
    msg %c $+($str($+(%kahve,$chr(32)),$calc($nick(%c,0) - 1)))
    msg %c 4Afiyet Bal Şeker olsun.
  }
}
Renk kodları düzenleyerek verıyorum @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] buna dakika eklemek ıcın ne lazım yanı komutu bır dakıka da bır uygulasın kahvehaneye donmesın ortalık :)

Kod

on *:text:*:#: {
  if $regex($1,/^[!.]([cçÇ]aylar|kah[fv]eler)$/Si) {
    if $hget(caylarkahveler,$nick) { .notice $nick $hget(caylarkahveler,$nick).unset saniye içersinde, Yalnız 1 defa [.!][Çaylar|Kahveler] Komutunu Kullanabilirsiniz. }
    else {
      msg # $+(4,$replace($regml(1),c,Ç,ç,Ç,k,K)) hazırlanıyor...
      $+(.timer,$regml(1)) 1 3 caykahve $regml(1) $chan $nick
      .hinc -mu120 caylarkahveler $nick
    }
  }
}
alias caykahve {
  var %k $1, %c $2, %n $3, %r 2 3 4 5 6 10 12 13, %rnk $gettok(%r,$rand(1,$numtok(%r,32)),32), %renkver $+(,$chr(3),%rnk), %cay 4,0)4_4,0(>0,0_ , %kahve 5,0|5,0_5|>
  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))))) 4çaylarınız...
    msg %c $+($str($+(%cay,$chr(32)),$calc($nick(%c,0) - 1)))
    msg %c 4Afiyet 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))))) 4kahveleriniz...
    msg %c $+($str($+(%kahve,$chr(32)),$calc($nick(%c,0) - 1)))
    msg %c 4Afiyet Bal Şeker olsun.
  }
}
.hinc -mu120 caylarkahveler $nick => 120 saniyeyi temsil eder isteğin şekilde değiştirirsin.

%r 2 3 4 5 6 10 12 13 => bu kısım renk kodlarını temsil eder ekleme veya çıkarma yapabilmeniz için ufak bir düzenleme yaptım. Yani random gelecek renkleri arttırabilir veya eksiltebilirsiniz.

Ha renk kodlarını nereden bileceğim diye düşünüyorsanız,

Çaylar / Kahveler (Eğlence) Komutu

👍 2
 
Alıntı Yap
Alt 09 Nisan 2020, 11:49   #8
Özel Üye
Free_EyeS - ait Kullanıcı Resmi (Avatar)
Standart
tesekkur ederim Alper :) ıyı oldu sımdı.

👍 1
________________
 
Alıntı Yap
Alt 15 Ekim 2020, 00:32   #9
"Mizantrop"
Rima - ait Kullanıcı Resmi (Avatar)
Standart
Emeğinize sağlık

________________

.
 
Alıntı Yap
Alt 15 Ekim 2020, 00:52   #10
𝐏𝐚𝐫𝐥𝐚 ✨
Reyhan - ait Kullanıcı Resmi (Avatar)
Standart
Emeğinize sağlık

________________


vâki olanda hayr vardir. .
Biraz da kendimden
 
Alıntı Yap
Cevap Yaz
Sayfa 1 Toplam 2 Sayfadan 1 2

« Ip den şehir bulma remotesi !Who nick | !Söz Addonu »

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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı




Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:40.
 

İçerik sağlayıcı platformu forumlarından biri olan ircrehberi.net sitemizde T.C.K 20.ci Madde ve 5651 Sayılı Kanun'un 4.cü maddesinin (2).ci fıkrasına göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. ircrehberi.net hakkında yapılacak tüm hukuki şikayetlere ilişkin iletişim sayfasından Veya E-Mail ile irtibata geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 15 (On beş) gün içinde tarafımızca gerekli aksiyon alınacak ve size dönüş yapılacaktır.
Sohbet Chat Chat mobil sohbet Tiktok Video indir sohbet sohbet sitesi Sohbet Sohbet
IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi Arşiv Gizlilik Bildirimi Kullanım Koşulları İletişim
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Copyright ©2019 - 2025 | IRCRehberi.Net

IRCRehberi.Net, JRodix.Com Sunucularında Barınmaktadır.