| Alper |
09 Nisan 2020 11:42 |
Alıntı:
Free_EyeS Nickli Üyeden Alıntı
(Mesaj 63462)
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. Ü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 -mu 120 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,
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
