on *:start:{
.remote on
$+(.timer,_saatkontrol) 0 5 _saatkontrol
}
alias _saatkontrol {
$iif(!$sock(forumbot),sockopen forumbot $_sunucuip $_port)
}
;-
alias _forumbot return Forum
alias _ident return System
alias _sunucu return irc.sunucuadi.com
alias _port return 6667
alias _pass return nickpass
alias _oper return Oper Pass
alias _username return 14 $_forumbot $token($_sunucu,2-,46) 14v1.0
alias _forum-kanallar return #Forum #Forum@
alias _forum return #Forum
alias _forum@ return #Forum@
alias _qt5 return $+(6[,$1,6])
alias _qt13 return $+(4[.-!4])
;- Forum adresi
alias _site return www.Siteadi.net
;-
;---------------------------------------
alias _linkyolla {
var %:_kanal = $1, %:_egitim $2, %:_dosya $+(Forum/,%:_egitim,.txt), %:_lines $lines(%:_dosya)
inc %:_veri
swforumbot privmsg %:_kanal $+(:,$replace($read(%:_dosya,%:_veri),************ .net,$gettok($_sunucu,2-,46),Muafnick,muafnick2,muafnick3,muafnick4))
if (%:_veri >= %:_lines) { $+(.timer,¿,%:_egitim) off | unset %:_veri | swforumbot privmsg %:_kanal : | swforumbot privmsg %:_kanal $+(:",$upper(%:_egitim),") Veri sonu }
}
alias _tr return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Å?,ş,ÄŸ,ğ ,Ãœ,ü,Ä?,ğ,$chr(39),-)
alias _veri { var %:veri = 1 | while %:veri <= $lines(Forum/konu.txt) { swforumbot privmsg #Forum $read(Forum/konu.txt,%:veri) | inc %:veri } | .remove Forum/konu.txt }
alias cek {
var %rand = $rand(1,999)
sockopen $+(ssl,%rand) qbilisim.net 80
sockmark $+(ssl,%rand) $1-
}

on *:sockopen:ssl*:{
var %komut = sockwrite -n $sockname
%komut GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
%komut Host: $sock($sockname).addr
%komut User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/110.0.0.0 Safari/537.36
%komut $crlf
}

on *:sockread:ssl*:{
var %63 | sockread %63 | tokenize 44 %63
if $regex($1-,/<title>(.+)<\/title>/Si) { .hadd -ms Forum Title $_tr($remove($regml(1),<![CDATA[,]]>)) }
elseif $regex($1-,/<link>(.+)<\/link>/Si) { .hadd -ms Forum Link $regml(1) }
elseif $regex($1-,/<pubDate>(.+)<\/pubDate>/Si) { .hadd -ms Forum Tarih $remove($regml(1),GMT) }
elseif $regex($1-,/<category domain=".+">(.+)<\/category>/Si) { .hadd -ms Forum Kategori $_tr($remove($regml(1),<![CDATA[,]]>)) }
elseif $regex($1-,/<dc:creator>(.+)<\/dc:creator>/Si) {
if !$read(Forum/link.txt,w,$hget(Forum,Link)) {
.write Forum/konu.txt 7--------------------2 YENİ KONU 7--------------------------
.write Forum/konu.txt 6Oluşturan :1 $_tr($regml(1)) | .write Forum/konu.txt 6Başlık :1 $hget(Forum,Title) | .write Forum/konu.txt 6Link :1 $hget(Forum,Link) | .write Forum/konu.txt 6Tarih :1 $replace($remove($hget(Forum,Tarih),GMT),Mar,Mart, Fri,Cuma,Sun,Pazar,Mon,Pazartesi) | .write Forum/link.txt $hget(Forum,Link)
sockclose $sockname | _veri
}
}
}
on *:start:sockopen forumbot $_sunucu $_port
alias bagla sockopen forumbot $_sunucu $_port
alias _nick return $remove($gettok($1,1,33),:)
alias swforumbot $iif($sock(forumbot).status == active,sockwrite -nt forumbot $1-)

on *:sockclose:forumbot:$+(.timer,forumbot) 1 2 sockopen forumbot $_sunucu $_port
on *:sockopen:forumbot:{
if ($sockerr) { sockclose forumbot | $+(.timer,bot) 1 2 sockopen forumbot $_sunucu $_port | returnex }
swforumbot NICK $+($_forumbot,$r(100,999999))
swforumbot USER $_ident "" " $+ $iif($host,$host,$ip) $_username
sockmark $sockname $_forumbot
}
on *:sockread:forumbot:{
if ($sockerr) { sockclose forumbot | $+(.timer,forumbot) 1 2 sockopen forumbot $_sunucu $_port | returnex }
var %;forumbot | sockread %;forumbot | tokenize 32 %;forumbot
if ($1 = ping) { swforumbot pong $remove($2,:) }
elseif $regex($2,/(001|433)/) { swforumbot oper $_oper | swforumbot ns ghost $_forumbot $_pass | swforumbot ns release $_forumbot $_pass | $+(.timer,_bot-nick) 1 3 swforumbot nick $_forumbot }
elseif $1 == error && $2 == :closing { sockclose bot | $+(.timer,bot) 1 2 sockopen bot $_sunucu $_port }
elseif $regex($2,/(473|475|471|474)/) { swforumbot sajoin $_forumbot $4 }
elseif $regex($2,/(481|411)/) { swforumbot oper $_oper | swforumbot nick $_forumbot | swforumbot nickserv identify $_pass | $iif($_supass,swforumbot os su $_supass) }
elseif ($2 == NICK) {
if $_nick($1) == $_forumbot { swforumbot ns ghost $_forumbot $_pass | swforumbot ns release $_forumbot $_pass | $+(.timer,_bot-nick) 1 3 swforumbot nick $_forumbot }
elseif $right($3,-1) == $_forumbot {
swforumbot ns identify $_pass
swforumbot oper $_oper
swforumbot os su $_supass
swforumbot join #0,0
swforumbot mode $right($3,-1) +qHp-hY
swforumbot chghost $right($3,-1) $_host
swforumbot os raw swhois $right($3,-1) :6,1 ®0,1 $token($_sunucu,2,46) IRCd 6,1®0,1 $remove($strip($_username),•,™) ® 
$+(.timer,_saatkontrol) 0 20 _saatkontrol
$+(.timer,forumbot-gir) 1 3 swforumbot sajoin $right($3,-1) $replace($_forum-kanallar,$chr(32),$chr(44))
cek
}
}
elseif $regex($2,/^PART$/i) && ($_nick($1) == $_scbot) && $istok($_forum-kanallar,$3,32) { swforumbot sajoin $_nick($1) $3 }
elseif $regex($2,/^KICK$/i) && ($4 == $_scbot) && $istok($_forum-kanallar,$3,32) { swforumbot sajoin $4 $3 }
elseif $regex($2,/^NOTICE$/Si) {
if *did a /whois on you. iswm $strip($1-) {
inc -u5 %wf. [ $+ [ $5 ] ] 1
swforumbot PRIVMSG $_forum@ $5 kullanicisi $+  $6 $+  whois cekti. Forum botu hakkinda bilgi verildi
if %wf. [ $+ [ $5 ] ] == 3 {
sw $sockname KILL $5 Whois flood yapmayin!
}
swforumbot PRIVMSG $5 : Merhaba $_qt5($5) Ben $_qt5(Forum) için özel tasarlanmış forum botuyum.
swforumbot PRIVMSG $5 :
swforumbot PRIVMSG $5 :Bugun cekilen veri sayisi : $lines(Forum/Link.txt)
swforumbot PRIVMSG $5 :
swforumbot PRIVMSG $5 : Bu sistem tamamen $_qt5(Forum) için geliştirilmektedir. 4Satılık yada 4Kiralık değildir.
swforumbot PRIVMSG $5 :
swforumbot PRIVMSG $5 Sistem üzerindeki hataları ve istekleri lütfen6 $_qt5($_Forum) kanalına bildiriniz.
}
}
if $regex($2,/^PRIVMSG$/i) && ($3 == #Forum@) {
if $regex($remove($4,:),/^([!.&-\*]Komutlar)$/Si) {
swforumbot privmsg $3 $_qt13(Forum Komut Dizini)
swforumbot privmsg $3 $_qt13 2Forum Global kanallara Forum reklamını atar.
swforumbot privmsg $3 $_qt13 2Kurallar - 4Forum kurallarini gosterir.
swforumbot privmsg $3 $_qt13 2Link - 4Forumdan cekilen gunluk veri linkini gosterir.
swforumbot privmsg $3 $_qt13 2Toplam - 4Forumdan cekilen toplam veriyi gosterir.
swforumbot privmsg $3 $_qt13 2basla - 4Forum'dan veri cekmeyi baslatir.
swforumbot privmsg $3 $_qt13 2Dur - 4Forum'dan veri cekmeyi durdurur.
}
elseif $regex($remove($4,:),/^([!.&-\*]basla)$/Si) {
if !$timer(ket) {
swforumbot privmsg $3 Forumdan bilgi alımı başlatıldı.
timerket 0 60 /cek https://www.Siteadi.net/external.php?type=rss
}
else { swforumbot privmsg $3 Forumdan bilgi alımı zaten başlatılmış. }
}
elseif $regex($remove($4,:),/^([!.&-\*]dur)$/Si) {
if $timer(ket) {
.timerket off
sw $sockname privmsg $3 Forumdan bilgi alımı durduruldu.
}
else { swforumbot privmsg $3 Forumdan bilgi alımı zaten başlatılmamış. }
}
}
if $regex($remove($4,:),/^([!.&-\*]toplam)$/Si) {
swforumbot privmsg $3 : $_qt6(Bilgi) Forumdan cekilen toplam veri sayisi : $lines(Forum/link.txt)
}
elseif $regex($remove($4,:),/^\!(.+)(\s)?$/Si) {
if $isfile($+(Forum/,$regml(1),.txt)) {
swforumbot privmsg $3 Forum için Linkler hazirlaniyor.
swforumbot privmsg $3 :
$+(.timer,¿,$regml(1)) 0 1 _linkyolla $3 $regml(1)
}
elseif $regex($remove($4,:),/^([!.&-\*]kurallar)$/Si) {
swforumbot privmsg $3 :(Yönetim Kuralları)
swforumbot privmsg $3 :
swforumbot privmsg $3 : $_qt(Bilgi) Tüm Moderatorler şifrelerinin güvenliğinden sorumludur. Şifre güvenliklerini tehdit eden her durumda tedbiri almak ve aldırmak zorundadır.
swforumbot privmsg $3 :
swforumbot privmsg $3 :1-6) Moderatörler yetkileri verildikleri andan itibaren bu kuralları kabul etmiş sayılırlar.)
swforumbot privmsg $3 :2-6) Moderatörler en az 2 günde bir siteye girmeli; site içinde aktif olarak bulunmalı ve kendisine verilen görevleri yerine getirmelidir.
swforumbot privmsg $3 :3-6) Moderatörler her zaman 4yöneticilere kullanıcılara) ve 4diğer moderatörlere karşı saygılı davranmak zorundadır. Üyeleri rencide edici kelimeler kullanmamalıdır.)
swforumbot privmsg $3 :4-6) Moderatörler bulundukları bölümün ve özellikle de sitenin iyiliğinden sorumludur.).
swforumbot privmsg $3 :5-6) Moderatörler bulundukları bölümde yazılanları; açılan konuları takip etmeli düzeltilmesi gereken linkleri veya eklenmiş fotoları düzenlemeli gayri ahlaki bir şey gördüklerinde kendileri müdahale edebiliyorlarsa etmeliler; edemiyorlarsa bir üst yöneticiye durumu iletmelidirler.)
swforumbot privmsg $3 :6-6) Kendi bölümünden sorumlu olan moderatör başka bölümlerin iç işlerinden sorumlu değildir ve buraya yaptırım uygulayamaz.
swforumbot privmsg $3 :7-6) Moderatörler üyelere kin gütme gibi bir hakka sahip değildir. Bu davranış modluklarının alınması ve bir daha aday gösterilememeleri için geçerli bir sebeptir.
swforumbot privmsg $3 :8-6) Moderatörleri eleştiren üyeler olabilir. Onların görevlerini kötüye kullandıklarını haksızlıklar yaptığını söyleyen kişileri hakaret ediyor gerekçesiyle açılan konuyu kilitleyemez üyelerin moderatörler hakkındaki şikayet ve görüşlerini istedikleri yerde ifade etme hakları vardır. Yine hakaret yada seviyesizlik olmadığı sürece kimsenin düşüncesini söyleme özgürlüğü kısıtlanamaz. Bu bağlamda moderatörler hakaret veya seviyesizlik dışında bir eleştiriye açık olmalıdırlar.
swforumbot privmsg $3 :9-6) Moderatörler hiçbir sebeple moderatör olan nicklerinin şifrelerini bir başkasına veremezler..! Bu kişiler 1.dereceden yakınları (anne baba kardeş kuzen yeğen vs...) bile olsa kabul edilemeyecek bir davranıştır. Herhangi bir sorun yaşandığında da böyle bir bahane kabul edilmeyecektir ve moderatörlükleri geri alınacaktır.
swforumbot privmsg $3 :10-6) Moderatörler müdahalede zorluk çektikleri konularda diğer moderatörlerden veya bir üst yöneticilerden yardım isteyebilirler.
swforumbot privmsg $3 :11-6) Admin tarafından kabul edilen kararlar gereği "Siteye zarar vereceğine kanaat getirilirse" moderatörün/moderatörlerin görevine bir açıklama yapılmadan son verilebilir.)
swforumbot privmsg $3 :12-6) Moderator bölümünü/bölümlerini sürekli aktif tutmak zorundadır. Bölümlerini canlandırmak için atılan her adımda moderatörler bizzat sorumludurlar. Haftada en az birkaç konu eklemelidir.
swforumbot privmsg $3 :13-6) Moderatörler kendi bölümlerinde kuralları çiğneyen üye olursa öncelikle kendileri uyarmalı; eğer kuralları çiğnemekte ısrar ederse durumu bir üst makama bildirmelidirler.)
swforumbot privmsg $3 :14-6)Moderatörler veya yetkili gruplar kesinlikle üyelere forum yönetimi için gerekli olan veya yardım amaçlı hariç özel mesaj atamazlar. Pm'i farklı amaç için kullanan yetkililer tesbit edildiği an haber verilmeksizin yetkileri alınır.
swforumbot privmsg $3 :15-6) Moderatörlerin görevleri kırık linkleri geri dönüşüm alanına taşımak değildir. Kırık link gördükleri anda bunları kendileri yenilemelidirler.)
swforumbot privmsg $3 :16-6) Moderatörlük görevini aksatan moderatöre internet yoluyla belli aralıklarla ilk önce uyarı aksatmaya devam ettiği takdirde de yetkilerini elinden alınması yada sınırlandırılması yoluna gidilecektir.)
swforumbot privmsg $3 :
}
}
}