Kod: Kodu kopyalamak için üzerine çift tıklayın!
;----------------------------------------
;- Başlangıç Tarihi: 11.04.2021
;- JOIN BOTU
;----------------------------------------
;- Bot'un gireceği kanallar.
alias _j-kanallar return $_log $_bots $_kontrol
;----------------------------------------
alias swjbot $iif($sock(jbot).status == active,sockwrite -nt jbot $1-)
on *:sockclose:jbot:$+(.timer,_saatkontrol) 1 2 _saatkontrol
on *:sockopen:jbot:{
if ($sockerr) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol }
else { swjbot NICK $+($_bot,$left($calc($ticks * $r(10,99999)),$r(5,7))) | swjbot USER $_ident "" $+(",$ip) $+(:,$_username) | sockmark $sockname $_jbot }
}
on *:sockread:jbot:{
var %;jbot | sockread -f %;jbot | tokenize 32 %;jbot
if $regex($1,/^PING$/) { swjbot pong $remove($2,:) }
elseif $regex($1,/^ERROR$/i) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol }
elseif $regex($2,/^(471|473|474|475)$/) { swjbot sajoin $_jbot $4 }
elseif $regex($2,/^(411|481)$/) { swjbot oper $_oper | swjbot nick $_jbot | swjbot nickserv identify $_pass }
elseif $regex($2,/^(001|433)$/) {
$iif($regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si),set %:myip $regml(1))
swjbot oper $_oper
swjbot ns ghost $_jbot $_pass
swjbot ns release $_jbot $_pass
swjbot join #0,0
.timer 1 3 swjbot nick $_jbot
}
elseif $regex($2,/^NICK$/i) {
if ($_nick($1) == $_jbot) { swjbot ns ghost $_jbot $_pass | swjbot ns release $_jbot $_pass | .timer 1 3 swjbot nick $_jbot }
elseif ($right($3,-1) == $_jbot) {
swjbot ns identify $_pass
swjbot oper $_oper
swjbot os su $_supass
swjbot join #0,0
swjbot mode $right($3,-1) +qHp-hY
swjbot chghost $right($3,-1) $_host
swjbot os raw swhois $right($3,-1) :4,1 ®0,1 $token($_sunucu,2,46) IRCd 4,1®0,1 $remove($strip($_username),•,™) ®
$+(.timer,_saatkontrol) 0 20 _saatkontrol
$+(.timer,jbot-gir) 1 3 swjbot sajoin $right($3,-1) $replace($_j-kanallar,$chr(32),$chr(44))
}
}
elseif $regex($2,/^PART$/i) && ($_nick($1) == $_jbot) && $istok($_j-kanallar,$3,32) { swjbot sajoin $_nick($1) $3 }
elseif $regex($2,/^KICK$/i) && ($4 == $_jbot) && $istok($_j-kanallar,$3,32) { swjbot sajoin $4 $3 }
elseif $regex($2,/^JOIN$/i) {
if ($_nick($1) == $_jbot) {
if $istok($_j-kanallar,$right($3,-1),32) { swjbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5) | swjbot chghost $_nick($1) $_host }
else { swjbot sapart $_nick($1) $right($3,-1) }
}
}
elseif $regex($2,/^MODE$/i) && $regex($3,/^#/) {
if $regex($4,^\+(\S+)?(b)(\S+)?) && $regex($5-,/(^|\s) $+ $_jbot $+ !\*@\*/i) { swjbot mode $3 -b $_jbot }
elseif $regex($5-,/(^|\s) $+ $_jbot $+ (\s|$)/i) && ($_nickler($_nick($1)) == 0) { swjbot mode $3 -qao+h $str($+($_jbot,$chr(32)),5) }
}
elseif $regex($2,/^401$/) { if $hget(Mobil-Vers,$4) { swjbot privmsg $_bots $+(:4,$4,) nick'i sunucuda bulunmamaktadır, mobil ekleme yapılmamaktadır.. | .hdel -ms Mobil-Vers $4 } }
elseif $regex($2,/^PRIVMSG$/i) && ($3 == $_bots) {
if $regex($remove($4,:),/^([!.&]mob[ıiİ]l)$/Si) {
if ($scbul($_nick($1)) == 0) { swjbot privmsg $3 :Güvenlik departmanında ekli olmadığınızdan, komut kullanamazsınız. }
elseif !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st)$/Si) { swjbot privmsg $3 :Lütfen 4!mobil <4ekle|4sil|4list> olarak belirtiniz. }
elseif $regex($5,/^ekle$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swjbot privmsg $3 :Lütfen 4!mobil <4ekle> <4Nick> <4Sebep> olarak belirtiniz. }
elseif !$7 { swjbot privmsg $3 :Lütfen 4!mobil <4ekle> <4Nick> <4Sebep> olarak belirtiniz. }
elseif $regex($7-,/./Sg) <= 10 { swjbot privmsg $3 :Sebep kısa olamaz. }
else { .hadd -msu10 Mobil-Vers $strip($6) $+(ekle,¿,$_nick($1),¿,$strip($7-)) | swjbot privmsg $strip($6) $+(:,$chr(1)i,VERSION,$chr(1)) }
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex($6,/\d+/S) { swjbot privmsg $3 :Lütfen 4!mobil <4sil> <4ID> olarak belirtiniz. }
elseif !$hget(Mobil-Ver,$strip($6)) { swjbot privmsg $3 :Bu ID'e ait kayıt bulunmamaktadır. }
else {
.hdel -ms Mobil-Ver $strip($6)
.hsave -o Mobil-Ver hash/mobil-ver.tprk
swjbot privmsg $3 $+(:,$strip($6),) ID'e ait version silinmiştir..
}
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if !$hget(Mobil-Ver,0).data { swjbot privmsg $3 :Mobil version listesi boş. }
else {
swjbot privmsg $3 :Mobil version listesi
swjbot privmsg $3 :
var %:mobil = $hget(Mobil-Ver,0).data | while %:mobil {
swjbot privmsg $3 :ID: $hget(Mobil-Ver,%:mobil).item $hget(Mobil-Ver,%:mobil).data
dec %:mobil
}
swjbot privmsg $3 :
}
}
}
}
elseif $regex($2,/^NOTICE$/Si) {
if $regex($4-,/Client connecting (on port|at) (.+)\: (.+) \(.+@(.+)\)/Si) && (@ !isin $1) {
var %_jp = $regml(2), %_jn $regml(3), %_ji $regml(4), %_jhub $regml(1)
if $istok($_sunucuip %:myip,%_ji,32) || $istok($_mobilport $_webport,%_jp,32) || $hget(MuafIP,%_ji) || $hget(IGS-Muaf,%_ji) || $hget(MuafPort,%_jp) || $hget(MuafNick,%_jn) { return }
else {
swjbot notice %_jn :[2/]
swjbot notice %_jn :[2\] 1Güvenlik taramalarından geçiriliyorsunuz. Lütfen bekleyiniz.
swjbot notice %_jn :[2/]
}
}
elseif $regex($4,/VERSION/Si) {
if $regex($5-,/(qwebirc|Mobile IRC|Android|SekerSHell v4 html5 irc client|ChatV2.1-ofs)/Si) && $regex($token($5-,-1,32),/^(\d+)$/Si) {
if ($token($hget(Mobil-Vers,$_nick($1)),1,191) == ekle) {
.hadd -ms Mobil-Ver $regml(1) Ekleyen: $token($hget(Mobil-Vers,$_nick($1)),2,191) Eklenen: $_nick($1) Sebep: $token($hget(Mobil-Vers,$_nick($1)),3-,191)
.hsave -o Mobil-Ver hash/mobil-ver.tprk
swjbot privmsg $_bots $+(:4,$_nick($1),) version cevapı yasaklandı..
swjbot privmsg $_bots :Version: $strip($5-)
swjbot privmsg $_bots :Yakalanan ID: $regml(1)
swjbot gzline $_nick($1) - Kurallara aykırı davranıdığınızdan dolayı sunucudan uzaklaştırıldınız.
.hdel -ms Mobil-Vers $_nick($1)
}
elseif $hget(Mobil-Ver,$regml(1)) {
swjbot privmsg $_bots :----(4Yasak mobil giriş )---
swjbot privmsg $_bots :
swjbot privmsg $_bots :Nick: $_nick($1) $hget(Mobil-Ver,$regml(1))
swjbot privmsg $_bots :
swjbot privmsg $_bots :Mobil veriyi silmek için !mobil sil $regml(1) yazabilirsiniz.
swjbot gzline $_nick($1) - Kurallara aykırı davranıdığınızdan dolayı sunucudan uzaklaştırıldınız.
}
else { swjbot privmsg $_bots :[5 $+ $iif($regex($5-,/Mobile/Si),Mobil,WEB) Giriş Uyarı] $_nick($1) nicki için $iif($regex($5-,/Mobile/Si),Mobil,WEB) giriş bulundu Yasaklamak için: 4!mobil ekle $_nick($1) Sebep }
}
elseif ($token($hget(Mobil-Vers,$_nick($1)),1,191) == ekle) {
swjbot privmsg $_bots $+(:4,$_nick($1),) mobil/web girişi olmadığından yasaklanamaz..
swjbot privmsg $_bots :Version: $5-
.hdel -ms Mobil-Vers $_nick($1)
}
}
}
}
alias _dagit {
swjbot notice $1 :[2\]
swjbot notice $1 :[2/] 1Taramalardan geçtiniz. Kanallara aktarılıyorsunuz. $+(4,$chr(40),1,$2-,4,$chr(41))
swjbot notice $1 :[2\]
$+(.timer,gec¿,$1) 1 2 swjbot gec $1
$+(.timer,version¿,$1) 1 4 swjbot privmsg $1 $+(:,$chr(1)i,VERSION,$chr(1))
$iif($hget(IGS-IP,$1),.hdel -ms IGS-IP $1)
swjbot privmsg $_bots $+(:,$chr(40),3,$2-,,$chr(41)) $1 global kanallara aktarıldı.
}