IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

Toprak · 09 Ekim 2015, 13:11

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] pardon hocam yanlıs bilgi vermişim. Nomercy botundan alıntı yapmısım kodlar böyle ;

Botun özeli Takim ekleme kodu ;

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

if ($2 = privmsg && $left($3,1) != $chr(35)) {
     if $right($4,-1) == !takim || $right($4,-1) == .takim {
      if $hget(takim,$_nick($1)) >= 1 { return }
      .hinc -msu10 takim $_nick($1) 
      if !$istok(Fb Gs Normal Bjk Trb,$5,32) { swbot privmsg $_nick($1) Lütfen 4 büyük takim kisaltmalarini yaziniz, !Takim FB / GS / BJK / TRB / Normal  | return }  
      .Cle add $_nick($1) $5
      swbot privmsg $_nick($1) Takiminiz degistirildi.
      swbot privmsg #Opers $_nick($1) > $4-          
    }
  }

Aliaslar eklenen kodlar ;

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

alias Cle {
  if $1 == add {
    hadd -m Cle $2 $3-
    hsave Cle Hash/takim.sr
  }
  if $1 == get {
    if $hget(Cle,$2) {
      return $ifmatch
    }
    else {
      return Normal
    }
  }
}

alias yetkilitkm {
  if *SOHBET-* iswm $1- { return }
  if $1 == Fb { swbot os raw svsjoin $2 :#fenerbahçe | return [Takim] ~ 2,8Fener8,2bahçe!   }
  if $1 == Gs { swbot os raw svsjoin $2 :#Galatasaray | return [Takim] ~ 4,8Galata8,4saray!  }
  if $1 == Bjk { swbot os raw svsjoin $2 :#Besiktas | return [Takim] ~ 1,0Be$ik0,1ta$!    }
  if $1 == Trb { swbot os raw svsjoin $2 :#Trabzon | return [Takim] ~ 11,5Trabzon5,11spor!  |  }
  if $1 == Normal { return 4* [Takim] ~ 4,0Tür0,4kiye! }
}

Nomercy botundaki silme komutları şöyle ;
Bu kodu sockete ceviremiyom.

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

      if $gettok(%::text,1,32) == !clear || $gettok(%::text,1,32) == !temizle {
        if $read(txt/Globl.txt,w,$3) || *Fener* iswm $3 {
          if !%clearkont. [ $+ [ %::nick ] ] {
            inc -u5 %clearkont. [ $+ [ %::nick ] ] 2
            if $cle(get,%::Nick) == FB {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 2,2FENERBAHÇE FENERBAHÇE  8,8FENERBAHÇE FENERBAHÇE 
            }
            if $cle(get,%::Nick) == GS {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 4,4GALATASARAYGALATASARAY8,8GALATASARAYGALATASARAY
            }
            if $cle(get,%::Nick) == Bjk {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 1,1BEŞİKTAŞBEŞİKTAŞ 0,0BEŞİKTAŞBEŞİKTAŞ
            }
            if $cle(get,%::Nick) == Trb {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 5,5TRABZONTRABZON 11,11TRABZONTRABZON
            }
            if $cle(get,%::Nick) == normal {
              .timer 50 00 sockwrite -nt $sockname privmsg %::chan 
            }
            .timer 1 2 sockwrite -nt $sockname privmsg %::chan Kanal temizlenmistir, Ekran temizlenmiştir.
          }
          else {
            ;sw $sockname kick %::chan %::nick !clear flood yapmayiniz!
          }
        }
      }

Buyur denemedim ben denersin sorun varsa yaz bakalım;

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

if ($2 = privmsg && $left($3,1) != $chr(35)) {
  if $regex($right($4,-1),/^[!.&]tak[ıiİ]m$/Si) {
    if $hget(takim,$_nick($1)) >= 1 { return }
    .hinc -msu10 takim $_nick($1) 
    if !$regex($5,/^(FB|GS|BJK|TRB|KONYA|NORMAL)$/Si) { swbot privmsg $_nick($1) Lütfen 5 büyük takim kisaltmalarini yaziniz, [!.]takim FB / GS / BJK / TRB / KONYA / NORMAL | return }  
    .hadd -m Takim $_nick($1) $5
    .hsave Takim Hash/takim.tprk
    swbot privmsg $_nick($1) Takiminiz degistirildi.
    swbot privmsg #Opers $_nick($1) > $5          
  }
}
on *:start:if !$hget(Takim) { .hmake Takim | .hload Takim Hash/Takim.tprk }
alias yetkilitkm {
  if *SOHBET-* iswm $1- { return }
  if $1 == Fb { swbot os raw svsjoin $2 #fenerbahçe | return [Takim] ~ 2,8 Fener8,2Bahçe!  }
  if $1 == Gs { swbot os raw svsjoin $2 #Galatasaray | return [Takim] ~ 4,8 Galata8,4Saray!  }
  if $1 == Bjk { swbot os raw svsjoin $2 #Besiktas | return [Takim] ~ 1,0 Be$ik0,1ta$(K)!  }
  if $1 == Trb { swbot os raw svsjoin $2 #Trabzon | return [Takim] ~ 11,5 Trabzon5,11spor!  }
  if $1 == Konya { swbot os raw svsjoin $2 #KonyaSpor | return [Takim] ~ 0,3 Konya Spor  }
  if $1 == Normal { return 4* [Takim] ~ 4,0Tür0,4kiye! }
}

if $regex($right($4,-1),/^[!.&](clear|s[ıiİ]l|tem[ıiİ]zle)$/Si) {
  if $read(txt/Globl.txt,w,$3) || *Fener* iswm $3 {
    if $hget(Takim,$_nick($1)) == FB { 
      .timer 50 00 sockwrite -nt $sockname privmsg $3 2,2FENERBAHÇE FENERBAHÇE  8,8FENERBAHÇE FENERBAHÇE 
    }
    else if $hget(Takim,$_nick($1)) == GS { 
      .timer 50 00 sockwrite -nt $sockname privmsg $3 4,4GALATASARAYGALATASARAY8,8GALATASARAYGALATASARAY
    }
    else if $hget(Takim,$_nick($1)) == BJK { 
      .timer 50 00 sockwrite -nt $sockname privmsg $3 1,1BEŞİKTAŞBEŞİKTAŞ 0,0BEŞİKTAŞBEŞİKTAŞ
    }
    else if $hget(Takim,$_nick($1)) == TRB { 
      .timer 50 00 sockwrite -nt $sockname privmsg $3 5,5TRABZONTRABZON 11,11TRABZONTRABZON
    }
    else if $hget(Takim,$_nick($1)) == KONYA { 
      .timer 50 00 sockwrite -nt $sockname privmsg $3 0,3 Konya Spor  0,3 Konya Spor  0,3 Konya Spor 
    }
    else if $hget(Takim,$_nick($1)) == NORMAL {
      .timer 50 00 sockwrite -nt $sockname privmsg $3 
    }
    else {
      swbot privmsg $3 :4Kanal Temizleniyor.
      var %:clear = 1 | while %:clear <= 60 { swbot privmsg $3 : $+($chr(3),$r(2,13),•) | inc %:clear } 
      swbot privmsg $3 :4Kanal Temizlendi.
    }
  }
}