IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Merhabalar Sayın IF Kullanıcıları. Botum icin takim eklentisi ariyordum, istekde bulunmustum @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ten oda yazdi bende paylasmak istedim, düzenlemeyi yapmayi bilmiyorsaniz pm atabilirsiniz yardımcı olurum.

Kod:

############################################

############################################

##########  Takım Eklentisi   ##############

############################################

############################################
 

on $*:text:/^[!.]takim/i:?: {

  var %bjk  3[1,0 Beşik0,1taş 3], %fb 3[8,2 Fener2,8bahce 3], %gs 3[4,8 Galata8,4saray 3], %ts 3[5,10 Trab10,5zon 3], %takim [ [ $+(%,$2) ] ] 

  if !$2 { msg $nick Takim seciniz lutfen. Örnek 4[ 10BJK , FB , TS , GS 4] | return }

  if !$var($+(%,$2)) { msg $nick böyle 1 takim listemde yok. } 

  hadd -m takim $nick %takim

  who +R $nick

}

raw 352:*: {

  if $hget(takim,$6) { var %v1 $v1

    if $regex($7,r) {

      if $read(takim.63,w,$+($6,=*)) { msg $6 Eski takim: $token($v1,2,61) - takim degistiriliyor. }

      msg $6 2Takiminiz secildi. %v1

      hdel -m takim $6

      write takim.63 $+($6,=,%v1)

    }

    if !$regex($7,r) {

      msg $6 2Nickiniz kayitsizdir, Lutfen nick kayit işlemini yaptiktan sonra işlemi tekrar ediniz.

      hdel -m takim $6

    }

  }

}

on *:rawmode:#: {

  if $regex($1,/\+(q|a|o|h|v)/i) {

    $iif($read(takim.63,w,$+($2,=*)),msg $chan $+([,Takim,]) ~ $token($v1,2,61))

  }

}

Yapimci : @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kodu Deneyen : AzRaiL