Gönderen Konu: Soccet Puan Botu  (Okunma sayısı 170 defa)

bLaCkSea_61

  • Genel Moderatör
  • Yeni Üye
  • *****
  • İleti: 18
    • Profili Görüntüle
    • İRC.Sohbetimiz.Org
Soccet Puan Botu
« : 14 Temmuz 2018, 15:16:38 »

;- 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.mircforum.com
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
}






NOT:
Yapmanız gereken en üst kısımdaki ayar'lar kısmını kendinize göre ayarlamak Kusursuz Calismaktadir
Tipki Karadeniz Gibiyim Bazen Gozu Kara Coskun Bazen İci Kara Suskun