Kafa karışıklığı olmaması için kodun en son çalışır hatasız hali aşşağıdadır.
Şu şekilde bir hata veriyor. Ancak 6.35 ve üstü serilerde hatasız çalışıyor. Eklemek isteyenler alttaki kodu ekleyebilirler.
şeklinde öğrenebilirsiniz...
Kod: Kodu kopyalamak için üzerine çift tıklayın!
;- Ayarlar
alias _pubot return m-Puan
alias _pass return şifre
alias _ident return ident
alias _username return 2Coder by 4Toprak
alias _oper return eggdrop şifre
alias _sunucu return irc.sunucuismi.net
alias _sunucuip return ipadresi
alias _port return 6667
alias _puan return #Kanal
alias _pmuaf return Nick1 Nick2 (Muaf Nickler)
alias _nick return $remove($gettok($1,1,33),:)
;-
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
}
Kurulumu..
mirc klasöründe puan.txt oluşturup mircinizde /load -rs puan.txt yazdığınızda yüklenir. Sonrasında tekrardan mirc klasöründe puan isimli bir klasör oluşturun (Puanları oraya kaydediyor ). Sonrasında socket botunuz da " /m-Puan " dediğinizde sunucuya giriş yapar...