Kod

alias caykahve {
  if $regex($2,/privmsg/i) {
    var %nick $right($token($1,1,33),-1), %chan $3
    tokenize 32 $right($4-,-1)
    ;;;Altaki büyük harflerle SOCKNAME yerine bot'un socket ismi yazılacak

    ;var %komut sockwrite -nt SOCKNAME
    if $regex($1,/^[!.]([cçÇ]aylar|kah[fv]eler)$/Si) {
      %komut privmsg %chan $+(4,$replace($regml(1),c,Ç,ç,Ç,k,K)) hazırlanıyor...
      hadd -m ikram komut $regml(1)
      hadd -m ikram chan %chan
      hadd -m ikram nick %nick
      %komut names %chan
    }
  }
  if $regex($2,353) {
    if $hget(ikram,komut) {
      var %x 1
      while $token($right($6-,-1),%x,32) { 
        var  %r 2 3 4 5 6 10 12 13, %rnk $gettok(%r,$rand(1,8),32), %renkver $+(,$chr(3),%rnk)
        var %nick %renkver $remove($token($v1,1,33),.,~,@,&,%,+)
        set %nickler %nickler %nick
        inc %x
      }
    }
  }
  if $regex($2,366) {
    var %cay 4,0)4_4,0(>0,0_ , %kahve 5,0|5,0_5|>, %komut sockwrite -nt SOCKNAME
    if $regex($hget(ikram,komut),/[cçÇ]aylar/Si) {
      %komut privmsg $hget(ikram,chan) $+(4,$hget(ikram,nick)) 1Tüm kanala 4Çay 1ısmarladı. Buyurun  %nickler 4çaylarınız...
      %komut privmsg $hget(ikram,chan) $+($str($+(%cay,$chr(32)),$calc($token(%nickler,0,32) - 1)))
      %komut privmsg $hget(ikram,chan) 4Afiyet olsun.
      .hfree -sw ikram
      unset %nickler
    }
    if $regex($hget(ikram,komut),/kah[fv]eler/Si) {
      %komut privmsg $hget(ikram,chan) $+(4,$hget(ikram,nick)) 1Tüm kanala 5Kahve 1ısmarladı. Buyurun %nickler 4kahveleriniz...
      %komut privmsg $hget(ikram,chan) $+($str($+(%kahve,$chr(32)),$calc($token(%nickler,0,32) - 1)))
      %komut privmsg $hget(ikram,chan) 4Afiyet Bal Şeker olsun.
      .hfree -sw ikram
      unset %nickler

    }
  }
}