IRCForumu.Net - Türkiye'nin IRC ve mIRC Forumu


Damlasu ircforumu


Like Tree1Beğeni(ler)
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 17 Haziran 2016, 01:32   #11
Çevrimdışı
Cevap: Puan botunu ayrı bir socket olarak açma



Hocam botu sokup çalıştırdım !puan'a cevap veriyo puanlarıda işliyor ancak !top10'da alttaki gibi bir hata veriyor.

* Geçersiz format: $addtok (Satir 167, puan.txt)

Ayrıca hocam kaytsız nickler !puan yazınca hiçbirşey yazmıyor onlara mesaj olarak " nickiniz kayıtsızdır. puan listesine girmeniz için vs. vs. " gibi bir mesaj attırabilirmiyiz ?

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 17 Haziran 2016, 01:33   #12
Çevrimdışı
Cevap: Puan botunu ayrı bir socket olarak açma



6.35 ve üstü sürüm mirc kullanın

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 17 Haziran 2016, 01:36   #13
Çevrimdışı
Cevap: Puan botunu ayrı bir socket olarak açma



Hocam bi 6.35 mirc.exe atın da tam olsun bari .d çokmu şey istedim .d

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 21 Haziran 2016, 03:07   #14
Çevrimdışı
Cevap: Puan botunu ayrı bir socket olarak açma



Kafa karışıklığı olmaması için kodun en son çalışır hatasız hali aşşağıdadır.

6.35 mirc.exe altı olan versiyonlarda

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
* Geçersiz format: $addtok (Satir 167, puan.txt)

Şu şekilde bir hata veriyor. Ancak 6.35 ve üstü serilerde hatasız çalışıyor. Eklemek isteyenler alttaki kodu ekleyebilirler.

Ayrıca mirc versiyonunuzu

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
//echo $version

şeklinde öğrenebilirsiniz...

Puan Sock Botu

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...

Sessiz bunu beğendi.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
acma, ayrı, bir, botunu, olarak, puan, socket
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

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