[dre]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#: {
  if $regex($1,/^[!.]([cçÇ]ayl|kah[fv]e)$/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çÇ]ay/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 olsun4.
  }
  elseif $regex(%k,/kah[fv]e/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 olsun4.
  }
}

selam, bu kodu çalıştıramadım hatanın nerede olduğunu görebiliyor musunuz?

[Forbidden]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Aslında kod da sorun yok sadece bir iki renk ayarları bozuktu düzelttim

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

  if $regex($1,/^[!.]([cçÇ]ayl|kah[fv]e)$/Si) {

burada çayl yazmışsın o yüzden belki çalışmamıştır düzelttim.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

[15:46:17] <Efsane> !çay
[15:46:17] <&Forbidden> Çay hazırlanıyor...
[15:46:20] <&Forbidden> Efsane tüm kanala Çay ısmarladı. Buyurun AsiL Forbidden Deneme çaylarınız...
[15:46:20] <&Forbidden> |_|> |_|> |_|> |_|> |_|>
[15:46:20] <&Forbidden> Afiyet olsun.
[15:46:21] <Efsane> !kahve
[15:46:21] <&Forbidden> Kahve hazırlanıyor...
[15:46:24] <&Forbidden> Efsane tüm kanala Kahve ısmarladı. Buyurun AsiL Forbidden Deneme kahveleriniz...
[15:46:24] <&Forbidden> |_|> |_|> |_|> |_|> |_|>
[15:46:24] <&Forbidden> Afiyet olsun.

Kod;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#: {
  if $regex($1,/^[!.]([cçÇ]ay|kah[fv]e)$/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 1|1,4_1|>, %kahve 1|1,5_1|>
  if $regex(%k,/[cçÇ]ay/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 olsun4.
  }
  elseif $regex(%k,/kah[fv]e/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 olsun4.
  }
}

[AkMaN]

bunun Ayran ve Gazoz olarak farklı versiyonlarını yapabilirmisiniz rica etsem

[SNOOPY]

AkMaN Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bunun Ayran ve Gazoz olarak farklı versiyonlarını yapabilirmisiniz rica etsem

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#: {
  if $regex($1,/^[!.](ayran|gazoz|kola|soda|meyvesuyu)$/Si) {
    msg # $+(4,$upper($regml(1))) hazırlanıyor...
    $+(.timer,icecek,$regml(1)) 1 3 icecek $regml(1) $chan $nick
  }
}

alias icecek {
  var %i $1, %c $2, %n $3
  var %r 2 3 4 5 6 10 12 13
  var %rnk $gettok(%r,$rand(1,$numtok(%r,32)),32)
  var %renkver $+(,$chr(3),%rnk)

  ; bardak/şişe şekilleri
  var %ayran 1|1,11_1|>
  var %gazoz 1|1,3_1|>
  var %kola 1|1,4_1|>
  var %soda 1|1,12_1|>
  var %meyve 1|1,7_1|>

  var %sekil

  if (%i == ayran) %sekil = %ayran
  elseif (%i == gazoz) %sekil = %gazoz
  elseif (%i == kola) %sekil = %kola
  elseif (%i == soda) %sekil = %soda
  elseif (%i == meyvesuyu) %sekil = %meyve

  msg %c $+(4,%n) 1tüm kanala 4$upper(%i) 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 1içecekleriniz...
  msg %c $+($str($+(%sekil,$chr(32)),$calc($nick(%c,0) - 1)))
  msg %c 1Serin serin için, afiyet olsun4.
}

[AkMaN]

SNOOPY Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:text:*:#: { if $regex($1,/^[!.](ayran|gazoz|kola|soda|meyvesuyu)$/Si) { msg # $+(4,$upper($regml(1))) hazırlanıyor... $+(.timer,icecek,$regml(1)) 1 3 icecek $regml(1) $chan $nick } } alias icecek { var %i $1, %c $2, %n $3 var %r 2 3 4 5 6 10 12 13 var %rnk $gettok(%r,$rand(1,$numtok(%r,32)),32) var %renkver $+(,$chr(3),%rnk) ; bardak/şişe şekilleri var %ayran 1|1,11_1|> var %gazoz 1|1,3_1|> var %kola 1|1,4_1|> var %soda 1|1,12_1|> var %meyve 1|1,7_1|> var %sekil if (%i == ayran) %sekil = %ayran elseif (%i == gazoz) %sekil = %gazoz elseif (%i == kola) %sekil = %kola elseif (%i == soda) %sekil = %soda elseif (%i == meyvesuyu) %sekil = %meyve msg %c $+(4,%n) 1tüm kanala 4$upper(%i) 1ısmarladı. Buyurun $+ $regsubex($str(-,$nick(%c,0)),/./g,$+(%renkver,$iif($nick(%c,\n) != %n,$+($chr(32),$nick(%c,\n))))) 1içecekleriniz... msg %c $+($str($+(%sekil,$chr(32)),$calc($nick(%c,0) - 1))) msg %c 1Serin serin için, afiyet olsun4. }

çok teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] eline emeğine sağlık.