IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet

 Bugünki Mesajlar  Arama

ircforumu sekershell
bizimkiler sosyalchat


Like Tree1Beğeni(ler)
  • 1 Post By Sessiz
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 15 Haziran 2016, 23:36   #1
Çevrimdışı

Sessiz - ait Kullanıcı Resmi (Avatar)
Socket Puan Botu

Reklam

Merhaba,
X kişinin isteği üzerine kendi botum'dan ayrı olarak sizlerle paylaşıyorum.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;- Ayarlar
alias _pubot return T-Puan
alias _pass return pass
alias _ident return Paradox
alias _username return 2Coder by 4Toprak
alias _oper return oper pass
alias _sunucu return irc.ircforumu.net
alias _sunucuip return 185.103.196.68
alias _port return 6667
alias _puan return #Sohbet
alias _pmuaf return Nick Nick2 Nick3 Nick4
;-

alias swpubot if ($sock(pubot).status == active) sockwrite -n pubot $1-
on *:sockclose:pubot:{ $+(.timer,pubot) 1 2 sockopen pubot $_sunucuip $_port }
on *:sockopen:pubot:{
  if ($sockerr) { sockclose pubot | $+(.timer,pubot) 1 2 sockopen pubot $_sunucuip $_port | returnex }
  swpubot NICK $+($_pubot,$r(10,9999)) 
  swpubot USER $_ident "" " $+ $iif($host,$host,$ip) $_username
  sockmark $sockname $+($_pubot,$r(1,999999999))
}
on *:sockread:pubot:{
  if ($sockerr) { sockclose pubot | $+(.timer,pubot) 1 2 sockopen pubot $_sunucuip $_port | returnex }
  var %; | sockread %; | tokenize 32 %;
  if ($1 = ping) swpubot pong $remove($2,:) 
  if ($2 == 001) {
    swpubot oper $_oper
    swpubot join 0,0
    swpubot nick $_pubot
  }
  if $1 == error && $2 == :closing { sockclose pubot | $+(.timer,pubot) 1 2 sockopen pubot $_sunucuip $_port }
  if ($2 == 451) { sockclose pubot | $+(.timer,$rand(100,999)) 1 4 sockopen pubot $_sunucuip $_port }
  if ($regex($2,/473|475|471|474)) { swpubot sajoin $_pubot $4 }
  if ($regex($2,/481|411)) { swpubot oper $_oper | swpubot nick $_pubot | swpubot nickserv identify $_pass | swpubot os su $_supass }
  if $2 == 433 { swpubot ns ghost $_pubot $_pass | swpubot ns release $_pubot $_pass | swpubot nick $_pubot }
  if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION && $left($3,1) != $chr(35) {
    if $4 == :TIME { swpubot NOTICE $_nick($1)  TIME $time | return }
    if $4 == :VERSION { swpubot NOTICE $_nick($1) VERSION 2mIRC v6.35 Khaled Mardam-Bey | return }
    if $4 == :FINGER { swpubot NOTICE $_nick($1) FINGER $_username $+  ( $+ $_ident $+ @) Idle 1 seconds | return }
    if $4 == :PING  { swpubot NOTICE $_nick($1) PONG $5- | return }
  }
  if ($2 == NICK) { 
    if $_nick($1) == $_pubot { swpubot ns ghost $_pubot $_pass | swpubot ns release $_pubot $_pass | $+(.timer,$rand(100,999)) 1 3 swpubot nick $_pubot }
    if $right($3,-1) == $_pubot {
      swpubot nickserv identify $_pass
      swpubot oper $_oper
      swpubot join 0,0
      swpubot mode $right($3,-1) +qHp-h
      $+(.timer,pugirs) 1 3 swpubot sajoin $right($3,-1) $_puan
    }
  }
  if $2 == 366 { if !$istok($_puan,$4,44) { swpubot part $4 } }  
  if $2 == PART { if $_nick($1) == $_pubot { if $istok($_puan,$3,44) { swpubot sajoin $_nick($1) $3 } } }
  if ($2 == KICK) {
    if $4 == $_pubot {
      if $istok(ChanServ NickServ MemoServ HelpServ OperServ StatServ,$1,32) { swpubot sajoin $4 $3 | return }
      swpubot os raw :chanserv mode $3 -qaoh+v $_nick($1) $_nick($1) $_nick($1) $_nick($1) $_nick($1) 
      swpubot sajoin $4 $3
      return 
    } 
  }
  if ($2 == JOIN) {
    if $_nick($1) == $_pubot {
      swpubot mode $right($3,-1) -qao+h $_nick($1) $_nick($1) $_nick($1) $_nick($1) $_nick($1)
      swpubot os raw svsmode $_nick($1) +qHpN-h
      return
    }
    if $istok($_puan,$right($3,-1),44) {
      if $istok($_pmuaf,$_nick($1),32) { return } 
      if $hget(vnick,$_nick($1)) {
        swpubot mode $right($3,-1) +v $_nick($1) | swpubot chghost $_nick($1) Vip. $+ $gettok($_sunucu,2-,46)
      } 
      if $hget(hnick,$_nick($1)) {
        swpubot mode $right($3,-1) +h $_nick($1) | swpubot chghost $_nick($1) Bronz. $+ $gettok($_sunucu,2-,46)
      } 
      if $hget(anick,$_nick($1)) { swpubot chghost $_nick($1) Platinium. $+ $gettok($_sunucu,2-,46) } 
    }
  }
  if $2 == MODE && $left($3,1) == $chr(35) {
    if (!$5) { return }
    if ($regex($4,\+(b))) && ($+(*,$_pubot,*) iswm $5-) { swpubot mode $3 -b $_pubot | return }
    if ($regex($4,\-(h))) && ($+(*,$_pubot,*) iswm $5-) { swpubot mode $3 -qao+h $_pubot $_pubot $_pubot $_pubot }
    if ($regex($4,\+(a|o|q))) && ($+(*,$_pubot,*) iswm $5-) { swpubot mode $3 -qao+h $_pubot $_pubot $_pubot $_pubot }
  }
  if $2 == PRIVMSG && $istok($_puan,$3,44) {
    if $regex($gettok($1,2,64),/(Root|admin|ircop|oper|techinal|serveradmin|services|network)/i) && $remove($4,:) == !sıfırla { .sıfırla $3 }
    if $remove($4,:) == !top10 { if $hget(Flodtop10,$3) >= 1 { return } | .hinc -msu10 Flodtop10 $3 | $top10($3) | return }
    if $remove($4,:) == !puan {
      if $istok($_pmuaf,$strip($5),32) { return } 
      if $hget(Flod!puan,$_nick($1)) >= 1 { return }
      .hinc -msu5 Flod!puan $_nick($1) 
      if !$strip($5) || $strip($5) == $_nick($1) { 
        if $hget(Puan,$_nick($1)) { swpubot privmsg $3 :[ $_nick($1) ] Konuşma Puanınız; [ $hget(Puan,$_nick($1)) ] | return } 
        else { swpubot privmsg $3 :[ $_nick($1) ] Konuşma puan'ınız bulunmamaktadır. | return }
      }
      if $strip($5) {
        if $hget(Puan,$strip($5)) { swpubot privmsg $3 :[ $strip($5) ] Konuşma Puanı; [ $hget(Puan,$strip($5)) ] | return }
        else { swpubot privmsg $3 :[ $strip($5) ] Nick'inin konuşma puan'ı bulunmamaktadır. | return } 
      }
    } 
    if $hget(anick,$_nick($1)) || $istok($_pmuaf,$_nick($1),32) { return }
    if $hget(Puan,$_nick($1)) { .hinc -ms konus $_nick($1) 1 | .hsave -i konus Puan/konus.mercy } 
    else { .hadd -ms Puan $_nick($1) 1 | .hsave -i Puan Puan/Puan.mercy }
    if $hget(konus,$_nick($1)) >= $r(30,50) {
      .hinc -m Puan $_nick($1) 1 | .hsave -i Puan Puan/Puan.mercy 
      .hdel konus $_nick($1) | .hsave -i konus Puan/konus.mercy
      swpubot os raw swhois $_nick($1) :Rütbe [ $rütbe($hget(Puan,$_nick($1))) ] Konuşma Puani = [ $hget(Puan,$_nick($1)) ] 
    } 
    if $hget(Puan,$_nick($1)) == 10 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 20 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 30 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 40 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 50 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 60 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 70 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 80 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 90 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 100 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 150 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 200 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 250 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | .hadd -m vnick $_nick($1) 1 | .hsave -i vnick Puan/vnick.mercy | swpubot mode $3 +v $_nick($1) | swpubot chghost $_nick($1) Vip. $+ $gettok($_sunucu,2-,46) }                                       
    if $hget(Puan,$_nick($1)) == 300 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 350 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 400 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 450 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 500 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | .hdel vnick $_nick($1) | .hsave -i vnick Puan/vnick.mercy | .hadd -m hnick $_nick($1) 1 | .hsave -i hnick Puan/hnick.mercy | swpubot mode $3 +h $_nick($1) | swpubot chghost $_nick($1) Bronz. $+ $gettok($_sunucu,2-,46) }
    if $hget(Puan,$_nick($1)) == 550 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 600 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 650 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 700 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 750 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | swpubot chghost $_nick($1) Gold. $+ $gettok($_sunucu,2-,46) }
    if $hget(Puan,$_nick($1)) == 800 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 850 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 900 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 950 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 999 { .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hadd -m anick $_nick($1) 1 | .hsave -i anick Puan/anick.mercy |  swpubot chghost $_nick($1) Platinium. $+ $gettok($_sunucu,2-,46) }
  }
}





alias rütbe {
  if ($1 <= 75) { return Caylak }
  if ($1 >= 76 && $1 <= 150) { return Star }
  if ($1 >= 151 && $1 <= 250) { return Super Star }
  if ($1 >= 251 && $1 <= 350) { return Multi Star ( VIP Üye ) }
  if ($1 >= 351 && $1 <= 500) { return Super ChatterBox ( VIP Üye ) }
  if ($1 >= 501 && $1 <= 650) { return Vezir ( Bronz Üye ) }
  if ($1 >= 651 && $1 <= 800) { return Lord ( Gold Üye ) }
  if ($1 >= 801) { return KraL ( Platinium Üye ) }
}
on *:start:{ 
  .remote on 
  if (!$hget(Puan)) { hmake Puan | hload -i Puan Puan/Puan.mercy  }
  if (!$hget(konus)) { hmake konus | hload -i konus Puan/konus.mercy  }
  if (!$hget(vnick)) { hmake vnick | hload -i vnick Puan/vnick.mercy  }
  if (!$hget(hnick)) { hmake hnick | hload -i hnick Puan/hnick.mercy  }
  if (!$hget(onick)) { hmake onick | hload -i onick Puan/onick.mercy  }
  if (!$hget(anick)) { hmake anick | hload -i anick Puan/anick.mercy  }
}
alias top10 {
  var %:ibo = 1
  while %:ibo <= $hget(Puan,0).data {
    var %:top10 $addtok(%:top10,$hget(Puan,%:ibo).data,191)
    inc %:ibo 
  }
  var %:sira = $sorttok(%:top10,191,nr)
  var %:top10 = $gettok(%:sira,1-10,191)
  var %t = 1 | while %t <= $gettok(%:top10,0,191) { .fazlaise $gettok(%:top10,%t,191) | inc %t }
  var %1 = 14,1#10,1 $iif($token($gettok(%:tops10,1,191),1,32),$token($gettok(%:tops10,1,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,1,191),2,32),$token($gettok(%:tops10,1,191),2,32),0) $+ )
  var %2 = 14,1 #20,1 $iif($token($gettok(%:tops10,2,191),1,32),$token($gettok(%:tops10,2,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,2,191),2,32),$token($gettok(%:tops10,2,191),2,32),0) $+ )
  var %3 = 14,1 #30,1 $iif($token($gettok(%:tops10,3,191),1,32),$token($gettok(%:tops10,3,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,3,191),2,32),$token($gettok(%:tops10,3,191),2,32),0) $+ )
  var %4 = 14,1 #40,1 $iif($token($gettok(%:tops10,4,191),1,32),$token($gettok(%:tops10,4,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,4,191),2,32),$token($gettok(%:tops10,4,191),2,32),0) $+ )
  var %5 = 14,1 #50,1 $iif($token($gettok(%:tops10,5,191),1,32),$token($gettok(%:tops10,5,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,5,191),2,32),$token($gettok(%:tops10,5,191),2,32),0) $+ )
  var %6 = 14,1 #60,1 $iif($token($gettok(%:tops10,6,191),1,32),$token($gettok(%:tops10,6,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,6,191),2,32),$token($gettok(%:tops10,6,191),2,32),0) $+ )
  var %7 = 14,1 #70,1 $iif($token($gettok(%:tops10,7,191),1,32),$token($gettok(%:tops10,7,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,7,191),2,32),$token($gettok(%:tops10,7,191),2,32),0) $+ )
  var %8 = 14,1 #80,1 $iif($token($gettok(%:tops10,8,191),1,32),$token($gettok(%:tops10,8,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,8,191),2,32),$token($gettok(%:tops10,8,191),2,32),0) $+ )
  var %9 = 14,1 #90,1 $iif($token($gettok(%:tops10,9,191),1,32),$token($gettok(%:tops10,9,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,9,191),2,32),$token($gettok(%:tops10,9,191),2,32),0) $+ )
  var %10 = 14,1 #100,1 $iif($token($gettok(%:tops10,10,191),1,32),$token($gettok(%:tops10,10,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,10,191),2,32),$token($gettok(%:tops10,10,191),2,32),0) $+ )
  swpubot privmsg $1 :0,1 Top10 %1 %2 %3 %4 %5 %6 %7 %8 %9 %10 
  .unset %:tops10
}
alias fazlaise { var %:10 = 1 | while %:10 <= $hfind(Puan,$1,0).data { .set %:tops10 $addtok(%:tops10,$hfind(Puan,$1,%:10,w).data,191) $1 | inc %:10 } }
alias sıfırla {
  .hfree -sw Puan | .hmake Puan | .hsave -i Puan Puan/Puan.mercy
  .hfree -sw konus | .hmake konus | .hsave -i Puan Puan/Konus.mercy
  .hfree -sw vnick | .hmake vnick | .hsave -i Puan Puan/vnick.mercy
  .hfree -sw hnick | .hmake hnick | .hsave -i Puan Puan/hnick.mercy
  .hfree -sw anick | .hmake anick | .hsave -i Puan Puan/anick.mercy
  swpubot privmsg $1 :Bütün puanlar sıfırlanmıştır.
  return
}

Mirc botunuza ekleyin. (6.35 sürüm mirc tercih ediniz.)

Yapmanız gereken en üst kısımdaki ayar'lar kısmını kendinize göre ayarlamak.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;- Ayarlar
alias _pubot return T-Puan
alias _pass return pass
alias _ident return Paradox
alias _username return 2Coder by 4Toprak
alias _oper return oper pass
alias _sunucu return irc.ircforumu.net
alias _sunucuip return 185.103.196.68
alias _port return 6667
alias _puan return #Sohbet
alias _pmuaf return Nick Nick2 Nick3 Nick4
;-

Bir çok kanalda kullanmak istiyor iseniz;
Burayı:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias _puan return #Sohbet

Böyle değiştiriniz:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias _puan return #Sohbet,#Muhabbet,#Chat,#kanal

gibi.

Puan dan muaf tutulacak nick'leri;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias _pmuaf return Nick Nick2 Nick3 Nick4

Aralarında boşluk bırakarak yazınız.

Hata alırsanız konu altında bildiriniz düzeltmeleri yaparım.
Merhaba,
X kişinin isteği üzerine kendi botum'dan ayrı olarak sizlerle paylaşıyorum.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;- Ayarlar
alias _pubot return T-Puan
alias _pass return pass
alias _ident return Paradox
alias _username return 2Coder by 4Toprak
alias _oper return oper pass
alias _sunucu return irc.ircforumu.net
alias _sunucuip return 185.103.196.68
alias _port return 6667
alias _puan return #Sohbet
alias _pmuaf return Nick Nick2 Nick3 Nick4
;-

alias swpubot if ($sock(pubot).status == active) sockwrite -n pubot $1-
on *:sockclose:pubot:{ $+(.timer,pubot) 1 2 sockopen pubot $_sunucuip $_port }
on *:sockopen:pubot:{
  if ($sockerr) { sockclose pubot | $+(.timer,pubot) 1 2 sockopen pubot $_sunucuip $_port | returnex }
  swpubot NICK $+($_pubot,$r(10,9999)) 
  swpubot USER $_ident "" " $+ $iif($host,$host,$ip) $_username
  sockmark $sockname $+($_pubot,$r(1,999999999))
}
on *:sockread:pubot:{
  if ($sockerr) { sockclose pubot | $+(.timer,pubot) 1 2 sockopen pubot $_sunucuip $_port | returnex }
  var %; | sockread %; | tokenize 32 %;
  if ($1 = ping) swpubot pong $remove($2,:) 
  if ($2 == 001) {
    swpubot oper $_oper
    swpubot join 0,0
    swpubot nick $_pubot
  }
  if $1 == error && $2 == :closing { sockclose pubot | $+(.timer,pubot) 1 2 sockopen pubot $_sunucuip $_port }
  if ($2 == 451) { sockclose pubot | $+(.timer,$rand(100,999)) 1 4 sockopen pubot $_sunucuip $_port }
  if ($regex($2,/473|475|471|474)) { swpubot sajoin $_pubot $4 }
  if ($regex($2,/481|411)) { swpubot oper $_oper | swpubot nick $_pubot | swpubot nickserv identify $_pass | swpubot os su $_supass }
  if $2 == 433 { swpubot ns ghost $_pubot $_pass | swpubot ns release $_pubot $_pass | swpubot nick $_pubot }
  if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION && $left($3,1) != $chr(35) {
    if $4 == :TIME { swpubot NOTICE $_nick($1)  TIME $time | return }
    if $4 == :VERSION { swpubot NOTICE $_nick($1) VERSION 2mIRC v6.35 Khaled Mardam-Bey | return }
    if $4 == :FINGER { swpubot NOTICE $_nick($1) FINGER $_username $+  ( $+ $_ident $+ @) Idle 1 seconds | return }
    if $4 == :PING  { swpubot NOTICE $_nick($1) PONG $5- | return }
  }
  if ($2 == NICK) { 
    if $_nick($1) == $_pubot { swpubot ns ghost $_pubot $_pass | swpubot ns release $_pubot $_pass | $+(.timer,$rand(100,999)) 1 3 swpubot nick $_pubot }
    if $right($3,-1) == $_pubot {
      swpubot nickserv identify $_pass
      swpubot oper $_oper
      swpubot join 0,0
      swpubot mode $right($3,-1) +qHp-h
      $+(.timer,pugirs) 1 3 swpubot sajoin $right($3,-1) $_puan
    }
  }
  if $2 == 366 { if !$istok($_puan,$4,44) { swpubot part $4 } }  
  if $2 == PART { if $_nick($1) == $_pubot { if $istok($_puan,$3,44) { swpubot sajoin $_nick($1) $3 } } }
  if ($2 == KICK) {
    if $4 == $_pubot {
      if $istok(ChanServ NickServ MemoServ HelpServ OperServ StatServ,$1,32) { swpubot sajoin $4 $3 | return }
      swpubot os raw :chanserv mode $3 -qaoh+v $_nick($1) $_nick($1) $_nick($1) $_nick($1) $_nick($1) 
      swpubot sajoin $4 $3
      return 
    } 
  }
  if ($2 == JOIN) {
    if $_nick($1) == $_pubot {
      swpubot mode $right($3,-1) -qao+h $_nick($1) $_nick($1) $_nick($1) $_nick($1) $_nick($1)
      swpubot os raw svsmode $_nick($1) +qHpN-h
      return
    }
    if $istok($_puan,$right($3,-1),44) {
      if $istok($_pmuaf,$_nick($1),32) { return } 
      if $hget(vnick,$_nick($1)) {
        swpubot mode $right($3,-1) +v $_nick($1) | swpubot chghost $_nick($1) Vip. $+ $gettok($_sunucu,2-,46)
      } 
      if $hget(hnick,$_nick($1)) {
        swpubot mode $right($3,-1) +h $_nick($1) | swpubot chghost $_nick($1) Bronz. $+ $gettok($_sunucu,2-,46)
      } 
      if $hget(anick,$_nick($1)) { swpubot chghost $_nick($1) Platinium. $+ $gettok($_sunucu,2-,46) } 
    }
  }
  if $2 == MODE && $left($3,1) == $chr(35) {
    if (!$5) { return }
    if ($regex($4,\+(b))) && ($+(*,$_pubot,*) iswm $5-) { swpubot mode $3 -b $_pubot | return }
    if ($regex($4,\-(h))) && ($+(*,$_pubot,*) iswm $5-) { swpubot mode $3 -qao+h $_pubot $_pubot $_pubot $_pubot }
    if ($regex($4,\+(a|o|q))) && ($+(*,$_pubot,*) iswm $5-) { swpubot mode $3 -qao+h $_pubot $_pubot $_pubot $_pubot }
  }
  if $2 == PRIVMSG && $istok($_puan,$3,44) {
    if $regex($gettok($1,2,64),/(Root|admin|ircop|oper|techinal|serveradmin|services|network)/i) && $remove($4,:) == !sıfırla { .sıfırla $3 }
    if $remove($4,:) == !top10 { if $hget(Flodtop10,$3) >= 1 { return } | .hinc -msu10 Flodtop10 $3 | $top10($3) | return }
    if $remove($4,:) == !puan {
      if $istok($_pmuaf,$strip($5),32) { return } 
      if $hget(Flod!puan,$_nick($1)) >= 1 { return }
      .hinc -msu5 Flod!puan $_nick($1) 
      if !$strip($5) || $strip($5) == $_nick($1) { 
        if $hget(Puan,$_nick($1)) { swpubot privmsg $3 :[ $_nick($1) ] Konuşma Puanınız; [ $hget(Puan,$_nick($1)) ] | return } 
        else { swpubot privmsg $3 :[ $_nick($1) ] Konuşma puan'ınız bulunmamaktadır. | return }
      }
      if $strip($5) {
        if $hget(Puan,$strip($5)) { swpubot privmsg $3 :[ $strip($5) ] Konuşma Puanı; [ $hget(Puan,$strip($5)) ] | return }
        else { swpubot privmsg $3 :[ $strip($5) ] Nick'inin konuşma puan'ı bulunmamaktadır. | return } 
      }
    } 
    if $hget(anick,$_nick($1)) || $istok($_pmuaf,$_nick($1),32) { return }
    if $hget(Puan,$_nick($1)) { .hinc -ms konus $_nick($1) 1 | .hsave -i konus Puan/konus.mercy } 
    else { .hadd -ms Puan $_nick($1) 1 | .hsave -i Puan Puan/Puan.mercy }
    if $hget(konus,$_nick($1)) >= $r(30,50) {
      .hinc -m Puan $_nick($1) 1 | .hsave -i Puan Puan/Puan.mercy 
      .hdel konus $_nick($1) | .hsave -i konus Puan/konus.mercy
      swpubot os raw swhois $_nick($1) :Rütbe [ $rütbe($hget(Puan,$_nick($1))) ] Konuşma Puani = [ $hget(Puan,$_nick($1)) ] 
    } 
    if $hget(Puan,$_nick($1)) == 10 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 20 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 30 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 40 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 50 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 60 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 70 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 80 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 90 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 100 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 150 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 200 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 250 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | .hadd -m vnick $_nick($1) 1 | .hsave -i vnick Puan/vnick.mercy | swpubot mode $3 +v $_nick($1) | swpubot chghost $_nick($1) Vip. $+ $gettok($_sunucu,2-,46) }                                       
    if $hget(Puan,$_nick($1)) == 300 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 350 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 400 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 450 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 500 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | .hdel vnick $_nick($1) | .hsave -i vnick Puan/vnick.mercy | .hadd -m hnick $_nick($1) 1 | .hsave -i hnick Puan/hnick.mercy | swpubot mode $3 +h $_nick($1) | swpubot chghost $_nick($1) Bronz. $+ $gettok($_sunucu,2-,46) }
    if $hget(Puan,$_nick($1)) == 550 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 600 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 650 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 700 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 750 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | swpubot chghost $_nick($1) Gold. $+ $gettok($_sunucu,2-,46) }
    if $hget(Puan,$_nick($1)) == 800 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 850 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 900 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 950 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 999 { .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hadd -m anick $_nick($1) 1 | .hsave -i anick Puan/anick.mercy |  swpubot chghost $_nick($1) Platinium. $+ $gettok($_sunucu,2-,46) }
  }
}





alias rütbe {
  if ($1 <= 75) { return Caylak }
  if ($1 >= 76 && $1 <= 150) { return Star }
  if ($1 >= 151 && $1 <= 250) { return Super Star }
  if ($1 >= 251 && $1 <= 350) { return Multi Star ( VIP Üye ) }
  if ($1 >= 351 && $1 <= 500) { return Super ChatterBox ( VIP Üye ) }
  if ($1 >= 501 && $1 <= 650) { return Vezir ( Bronz Üye ) }
  if ($1 >= 651 && $1 <= 800) { return Lord ( Gold Üye ) }
  if ($1 >= 801) { return KraL ( Platinium Üye ) }
}
on *:start:{ 
  .remote on 
  if (!$hget(Puan)) { hmake Puan | hload -i Puan Puan/Puan.mercy  }
  if (!$hget(konus)) { hmake konus | hload -i konus Puan/konus.mercy  }
  if (!$hget(vnick)) { hmake vnick | hload -i vnick Puan/vnick.mercy  }
  if (!$hget(hnick)) { hmake hnick | hload -i hnick Puan/hnick.mercy  }
  if (!$hget(onick)) { hmake onick | hload -i onick Puan/onick.mercy  }
  if (!$hget(anick)) { hmake anick | hload -i anick Puan/anick.mercy  }
}
alias top10 {
  var %:ibo = 1
  while %:ibo <= $hget(Puan,0).data {
    var %:top10 $addtok(%:top10,$hget(Puan,%:ibo).data,191)
    inc %:ibo 
  }
  var %:sira = $sorttok(%:top10,191,nr)
  var %:top10 = $gettok(%:sira,1-10,191)
  var %t = 1 | while %t <= $gettok(%:top10,0,191) { .fazlaise $gettok(%:top10,%t,191) | inc %t }
  var %1 = 14,1#10,1 $iif($token($gettok(%:tops10,1,191),1,32),$token($gettok(%:tops10,1,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,1,191),2,32),$token($gettok(%:tops10,1,191),2,32),0) $+ )
  var %2 = 14,1 #20,1 $iif($token($gettok(%:tops10,2,191),1,32),$token($gettok(%:tops10,2,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,2,191),2,32),$token($gettok(%:tops10,2,191),2,32),0) $+ )
  var %3 = 14,1 #30,1 $iif($token($gettok(%:tops10,3,191),1,32),$token($gettok(%:tops10,3,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,3,191),2,32),$token($gettok(%:tops10,3,191),2,32),0) $+ )
  var %4 = 14,1 #40,1 $iif($token($gettok(%:tops10,4,191),1,32),$token($gettok(%:tops10,4,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,4,191),2,32),$token($gettok(%:tops10,4,191),2,32),0) $+ )
  var %5 = 14,1 #50,1 $iif($token($gettok(%:tops10,5,191),1,32),$token($gettok(%:tops10,5,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,5,191),2,32),$token($gettok(%:tops10,5,191),2,32),0) $+ )
  var %6 = 14,1 #60,1 $iif($token($gettok(%:tops10,6,191),1,32),$token($gettok(%:tops10,6,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,6,191),2,32),$token($gettok(%:tops10,6,191),2,32),0) $+ )
  var %7 = 14,1 #70,1 $iif($token($gettok(%:tops10,7,191),1,32),$token($gettok(%:tops10,7,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,7,191),2,32),$token($gettok(%:tops10,7,191),2,32),0) $+ )
  var %8 = 14,1 #80,1 $iif($token($gettok(%:tops10,8,191),1,32),$token($gettok(%:tops10,8,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,8,191),2,32),$token($gettok(%:tops10,8,191),2,32),0) $+ )
  var %9 = 14,1 #90,1 $iif($token($gettok(%:tops10,9,191),1,32),$token($gettok(%:tops10,9,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,9,191),2,32),$token($gettok(%:tops10,9,191),2,32),0) $+ )
  var %10 = 14,1 #100,1 $iif($token($gettok(%:tops10,10,191),1,32),$token($gettok(%:tops10,10,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,10,191),2,32),$token($gettok(%:tops10,10,191),2,32),0) $+ )
  swpubot privmsg $1 :0,1 Top10 %1 %2 %3 %4 %5 %6 %7 %8 %9 %10 
  .unset %:tops10
}
alias fazlaise { var %:10 = 1 | while %:10 <= $hfind(Puan,$1,0).data { .set %:tops10 $addtok(%:tops10,$hfind(Puan,$1,%:10,w).data,191) $1 | inc %:10 } }
alias sıfırla {
  .hfree -sw Puan | .hmake Puan | .hsave -i Puan Puan/Puan.mercy
  .hfree -sw konus | .hmake konus | .hsave -i Puan Puan/Konus.mercy
  .hfree -sw vnick | .hmake vnick | .hsave -i Puan Puan/vnick.mercy
  .hfree -sw hnick | .hmake hnick | .hsave -i Puan Puan/hnick.mercy
  .hfree -sw anick | .hmake anick | .hsave -i Puan Puan/anick.mercy
  swpubot privmsg $1 :Bütün puanlar sıfırlanmıştır.
  return
}

Mirc botunuza ekleyin. (6.35 sürüm mirc tercih ediniz.)

Yapmanız gereken en üst kısımdaki ayar'lar kısmını kendinize göre ayarlamak.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;- Ayarlar
alias _pubot return T-Puan
alias _pass return pass
alias _ident return Paradox
alias _username return 2Coder by 4Toprak
alias _oper return oper pass
alias _sunucu return irc.ircforumu.net
alias _sunucuip return 185.103.196.68
alias _port return 6667
alias _puan return #Sohbet
alias _pmuaf return Nick Nick2 Nick3 Nick4
;-

Bir çok kanalda kullanmak istiyor iseniz;
Burayı:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias _puan return #Sohbet

Böyle değiştiriniz:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias _puan return #Sohbet,#Muhabbet,#Chat,#kanal

gibi.

Puan dan muaf tutulacak nick'leri;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias _pmuaf return Nick Nick2 Nick3 Nick4

Aralarında boşluk bırakarak yazınız.

Hata alırsanız konu altında bildiriniz düzeltmeleri yaparım.
Set bunu beğendi.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 02 Temmuz 2016, 18:35   #2
Çevrimdışı
xqw

Cevap: Socket Puan Botu


Puan ı söylüyor fakat puana dair diğer işlemleri yapmıyor.

Diğer socket ile çakışma ihtimali var mı?

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 02 Temmuz 2016, 20:49   #3
Çevrimdışı

Sessiz - ait Kullanıcı Resmi (Avatar)
Cevap: Socket Puan Botu


xqw Nickli Üyeden Alıntı Mesajı göster
Puan ı söylüyor fakat puana dair diğer işlemleri yapmıyor.

Diğer socket ile çakışma ihtimali var mı?

Botta sorun yok dediğiniz gibi bir ihtimal olabilir.

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 03 Temmuz 2016, 02:22   #4
Set
Guest
Cevap: Socket Puan Botu


Puan tek başına fazla bir görüntüden ibaret, puan ile ilgili daha fazla ilgi cekicek şeyler yaparak puan botunun faaliyetini daha sağlayabilir şeyler yapmak daha akıllıca olur. Tek başına sadece puan bir halt yariycagini düşünmüyorum, bot alt yapı olarak sunmuş ıbram gerisi sizde geliştirmeye açık olmalısınız yerinizde saymak istemiyorsaniz , eline sağlık ıbram

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
botu, puan, socket
IRCForumu.Net - Sponsor Bağlantılar


« önceki Konu | sonraki Konu »

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, IRC Forum sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumu.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet gösterilmesi durumunda iletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
Sohbet Bizim mekan
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.