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.
}