mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
|
Seçenekler | Stil |
02 Şubat 2020, 22:07 | #1 |
Çaylar / Kahveler (Eğlence) Komutu
Merhaba,
Kullanım: [!.]çaylar - [!.]kahveler Kanaldaki herkese çay veya kahve dağıtır. Kodon *: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. } } İyi forumlar. Konu Emrehan tarafından (02 Şubat 2020 Saat 22:18 ) değiştirilmiştir.. |
|
|
02 Şubat 2020, 22:14 | #2 |
ellerine sağlık ustam
________________
|
|
|
02 Şubat 2020, 22:21 | #3 |
Eline sağlık
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
hocam
________________
Sayonaraaa.. |
|
|
03 Şubat 2020, 15:21 | #4 | |
Alıntı:
________________
Edep; aklın Tercümanıdır. İnsan edebi kadar akıllı, Aklı kadar şerefli, Şerefi kadar Kıymetlidir. Massive.. ~ E & B ~ |
||
|
03 Şubat 2020, 23:33 | #5 |
Emeğinize sağlık güzel paylaşım için.
________________
~ E & B ~ |
|
|
09 Nisan 2020, 11:15 | #6 | |
Alıntı:
Kodon *: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. } } |
||
|
09 Nisan 2020, 11:42 | #7 | |
Alıntı:
Kodon *: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. } } %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, |
||
|
09 Nisan 2020, 11:49 | #8 |
tesekkur ederim Alper :) ıyı oldu sımdı.
|
|
|
15 Ekim 2020, 00:32 | #9 |
Emeğinize sağlık
________________
. |
|
|
15 Ekim 2020, 00:52 | #10 |
Emeğinize sağlık
________________
bazen insanlar iyilesmek istemez.
cünkü , icindeki acı sevdiklerinin son hatirasidir.. per aspera ad astra ✨ |
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|