Kod: Kodu kopyalamak için üzerine çift tıklayın!
;- Ayarlar
alias _pubot return mIRCV-Puan
alias _pass return zuhaha1112
alias _ident return S-Shell
alias _username return 2Coder by 4Toprak
alias _oper return eggdrop zuhaha1211
alias _sunucu return irc.mircvatan.net
alias _sunucuip return 85.95.253.197
alias _port return 6667
alias _puan return #Sohbet
alias _pmuaf return Guard Guard-B mIRCVatanFM
alias _sunucuip return 85.95.253.197
;-
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,:) == !sifirla { .sifirla $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) ] Konusma Puaniniz; [ $hget(Puan,$_nick($1)) ] | return }
else { swpubot privmsg $3 :[ $_nick($1) ] Konusma puan'iniz bulunmamaktadir. | return }
}
if $strip($5) {
if $hget(Puan,$strip($5)) { swpubot privmsg $3 :[ $strip($5) ] Konusma Puani; [ $hget(Puan,$strip($5)) ] | return }
else { swpubot privmsg $3 :[ $strip($5) ] Nick'inin konusma puan'i bulunmamaktadir. | 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))) ] Konusma Puani = [ $hget(Puan,$_nick($1)) ]
}
if $hget(Puan,$_nick($1)) == 10 { swpubot privmsg $3 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 :Konusma Puanin [ $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 sifirla {
.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 sifirlanmistir.
return
}