29 Mart 2024, 17:20
| #1 | |
| |  HelpSystem Socket bot HelpSystem Socket bot Alıntı:
Kod: alias _yolla {
var %:_kanal = $1, %:_egitim $2, %:_dosya $+(Help/Egitim/,%:_egitim,.txt), %:_lines $lines(%:_dosya)
inc %:_veri
swhelpbot privmsg %:_kanal $+(:,$replace($read(%:_dosya,%:_veri),kalbim.net,$gettok($_sunucu,2-,46),yılmaz,Toprak,yilmaz,Toprak))
if (%:_veri >= %:_lines) { $+(.timer,¿,%:_egitim) off | unset %:_veri | swhelpbot privmsg %:_kanal : | swhelpbot privmsg %:_kanal $+(:",$upper(%:_egitim),") eğitimi bitti. }
}
;-
;- Ayarlar kısmı sonu gereksiz oynama
alias swhelpbot $iif($sock(helpbot).status == active,sockwrite -nt helpbot $1-)
on *:sockclose:helpbot:$+(.timer,_saatkontrol) 1 2 _saatkontrol
on *:sockopen:helpbot:{
if ($sockerr) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol }
else { swhelpbot NICK $+($_helpbot,$r(1000,9999999)) | swhelpbot USER $_ident "" " $+ $iif($host,$host,$ip) $_username | sockmark $sockname $_helpbot }
}
on *:sockread:helpbot:{
var %;helpbot | sockread %;helpbot | tokenize 32 %;helpbot
if ($1 = ping) swhelpbot pong $remove($2,:)
elseif $regex($2,/(001|433)/) {
swhelpbot oper $_oper
swhelpbot ns ghost $_helpbot $_pass
swhelpbot ns release $_helpbot $_pass
swhelpbot join #0,0
.timer 1 3 swhelpbot nick $_helpbot
}
elseif $regex($1,/^ERROR$/i) && $regex($2,/^:Closing$/i) { sockclose $sockname | $+(.timer,_saatkontrol) 1 2 _saatkontrol }
elseif $regex($2,/(473|475|471|474)/) { swhelpbot sajoin $_helpbot $4 }
elseif $regex($2,/(481|411)/) { swhelpbot oper $_oper | swhelpbot nick $_helpbot | .timer 1 10 swhelpbot nickserv identify $_pass }
elseif $regex($2,/^NICK$/i) {
if ($_nick($1) == $_helpbot) { swhelpbot ns ghost $_helpbot $_pass | swhelpbot ns release $_helpbot $_pass | .timer 1 3 swhelpbot nick $_helpbot }
elseif ($right($3,-1) == $_helpbot) {
swhelpbot ns identify $_pass
swhelpbot oper $_oper
$iif($_supass,swhelpbot os su $_supass)
swhelpbot join #0,0
swhelpbot mode $right($3,-1) +qHps-hYF
$+(.timer,¿*) off
$+(.timer,$right($3,-1),¿gir) 1 3 swhelpbot sajoin $right($3,-1) $+($_help,$chr(44),$_helpers,$chr(44),$_helpsop,$chr(44),$_helpstaff,$chr(44),$_egitim,$chr(44),$_helpegitim,$chr(44),$_mirchelp)
$+(.timer,_saatkontrol) 0 20 _saatkontrol
$+(.timer,online-helper) 0 15 _o-helps
unset %:_veri
}
}
elseif $regex($2,/^(223|216)$/i) {
if ($5 == %trip) { set %ipblnd ipbulundu | swhelpbot privmsg #helpers :4IP :4 $remove($gettok($5,1,33),$chr(42),$chr(64)) 4Banlayan :4 $remove($gettok($8,1,33),:) 4Sebep :4 $replace($remove($gettok($9-,1,33),:),no reason,4Sebep Girilmemiş.) }
}
elseif $regex($2,/^219$/i) && ($4 == g) {
if (%ipblnd == ipyok) { swhelpbot privmsg #helpers G-line Z-line Gz-line listesinde aranilan IP 'de ban yok. }
}
elseif $regex($2,/^PART$/i) && ($_nick($1) == $_helpbot) { if $istok($_help $_helpers $_helpsop $_helpstaff $_egitim $_helpegitim $_mirchelp,$3,32) { swhelpbot sajoin $_nick($1) $3 } }
elseif $regex($2,/^KICK$/i) && ($4 == $_helpbot) { if $istok($_help $_helpers $_helpsop $_helpstaff $_egitim $_helpegitim $_mirchelp,$3,32) { swhelpbot sajoin $4 $3 } }
elseif $regex($2,/^JOIN$/i) {
if ($_nick($1) == $_helpbot) {
if $istok($_help $_helpers $_helpsop $_helpstaff $_egitim $_helpegitim $_mirchelp,$right($3,-1),32) { swhelpbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5) }
else { swhelpbot sapart $_nick($1) $right($3,-1) }
}
elseif ($right($3,-1) == $_help) {
if $regex($gettok($1,2,64),/(Root|net(work)?admin|owner|teknik|services|server|ircop|admin|system|oper)/Si) { return }
swhelpbot privmsg $_nick($1) :Merhaba $+($_nick($1),$chr(44)) IRCd/Services komut yardım kanalımız $right($3,-1) kanalına hoş geldiniz.
swhelpbot privmsg $_nick($1) :Yardım almak için kanal yetkililerinin size voice(4+) vermesini bekleyiniz ve daha sonra sorununuzu açık ve net bir şekilde anlatınız.
swhelpbot privmsg $_nick($1) :Nick sorunlarınız ile ilgili işlemleri #NickServ Kanal ile ilgili sorunlarınızı #ChanServ kanalından destek alabilirsiniz.
swhelpbot privmsg $_nick($1) $+(:,$right($3,-1)) kanalında bekleme yapmak yasaktır..
.hadd -ms OSeslen List $_nick($1) | swhelpbot who $right($3,-1)
}
}
if $3 == #Help {
if Daemon iswm $5 { halt }
if Maestro iswm $5 { halt }
if Funda iswm $5 { halt }
if Debug iswm $5 { halt }
if Rulet iswm $5 { halt }
if M-net iswm $5 { halt }
if HelpSystem iswm $5 { halt }
if $4 == +oq {
sw $sockname os raw swhois $5 :4,1 ®0,1 $gettok($_sunucu,2-,46) 4,1®0,1 Help Koordinatoru
sw $sockname privmsg #Kontrol : $+ $5 $+ : Sisteme Help Koordinatoruolarak giris yapti.
sw $sockname Chghost $5 Help.Koordinator.$gettok($_sunucu,2-,46)
swhelpbot sajoin $5 $+($_help,$chr(44),$_helpers,$chr(44),$_helpsop,$chr(44),$_helpstaff,$chr(44),$_egitim,$chr(44),$_helpegitim,$chr(44),$_mirchelp)
}
if $4 == +oa {
sw $sockname os raw swhois $5 :4,1 ®0,1 $gettok($_sunucu,2-,46) 4,1®0,1 HelpManager
sw $sockname privmsg #Kontrol : $+ $5 $+ : Sisteme Help Managerolarak giris yapti.
sw $sockname Chghost $5 HelpManager.$gettok($_sunucu,2-,46)
swhelpbot sajoin $5 $+($_help,$chr(44),$_helpers,$chr(44),$_helpsop,$chr(44),$_egitim,$chr(44),$_helpegitim,$chr(44),$_mirchelp)
}
if $4 == +o {
sw $sockname os raw swhois $5 :4,1 ®0,1 $gettok($_sunucu,2-,46) 4,1®0,1 Helper
sw $sockname privmsg #Kontrol : $+ $5 $+ : Sisteme Helperolarak giris yapti.
sw $sockname Chghost $5 Helper.$gettok($_sunucu,2-,46)
sw $sockname sajoin $5 $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim,$chr(44),$_mirchelp)
}
}
if $3 == #Helpers {
if Daemon iswm $5 { halt }
if Maestro iswm $5 { halt }
if Funda iswm $5 { halt }
if Debug iswm $5 { halt }
if Rulet iswm $5 { halt }
if M-net iswm $5 { halt }
if HelpSystem iswm $5 { halt }
if $4 == +o {
sw $sockname os raw swhois $5 :4,1 ®0,1 $gettok($_sunucu,2-,46) 4,1®0,1 HelpSop
sw $sockname privmsg #Kontrol : $+ $5 $+ : Sisteme HelpSopolarak giris yapti.
sw $sockname Chghost $5 Helpsop.$gettok($_sunucu,2-,46)
}
if $4 == +h {
sw $sockname os raw swhois $5 :4,1 ®0,1 $gettok($_sunucu,2-,46) 4,1®0,1 HelpAsistan
sw $sockname privmsg #Kontrol : $+ $5 $+ : Sisteme HelperAsistanolarak giris yapti.
sw $sockname Chghost $5 HelpAsistan.$gettok($_sunucu,2-,46)
}
if $4 == +v {
sw $sockname os raw swhois $5 :4,1 ®0,1 $gettok($_sunucu,2-,46) 4,1®0,1 KıdemliHelper
sw $sockname privmsg #Kontrol : $+ $5 $+ : Sisteme Kıdemli Helperolarak giris yapti.
sw $sockname Chghost $5 KidemliHelper.$gettok($_sunucu,2-,46)
}
}
elseif $regex($2,/352/) && ($4 == $_help) && ($_nickler($8) == 0) && $regex($9,/[~.&@%]/) {
if $hget(OSeslen,List) {
if ($hget(OSeslen,List) == $8) { .hfree -sw OSeslen }
else { .hadd -msu5 OSeslen Kisiler $hget(OSeslen,Kisiler) $+(4,$8,) }
}
elseif $regex($9,/([~.])/) { .hadd -ms Online-Helps $8 Founder }
elseif $regex($9,/([&])/) { .hadd -ms Online-Helps $8 Sop }
elseif $regex($9,/([@])/) { .hadd -ms Online-Helps $8 Aop }
elseif $regex($9,/([%])/) { .hadd -ms Online-Helps $8 Halfop }
}
elseif $regex($2,/315/) && ($4 == $_help) && $hget(OSeslen,List) {
swhelpbot privmsg $_helpers :
swhelpbot privmsg $_helpers $+(:,$4) yardım kanalına $hget(OSeslen,List) nicki giriş yapmıştır, lütfen ilgileniniz; ( $iif($hget(OSeslen,Kisiler),$replace($v1,$chr(32),$+($chr(32),-,$chr(32))),Online Görevli Yok) )
.hfree -sw OSeslen
}
elseif $regex($2,/^MODE$/i) && $regex($3,/^#/) {
if $regex($4,^\+(\S+)?(b)(\S+)?) && $regex($5,/^ $+ $_helpbot $+ /i) { swhelpbot mode $3 -b $_helpbot }
elseif $regex($4,^\-(\S+)?(h)(\S+)?) || $regex($4,^\+(\S+)?(a|q|o)(\S+)?) && $regex($5-,/ $+ $_helpbot $+ /i) { swhelpbot mode $3 -qao+h $str($+($_helpbot,$chr(32)),5) }
elseif ($3 == $_help) && ($_nickler($5) == 0) && ($_nickler($_nick($1)) == 0) {
if ($4 == +h) { swhelpbot sajoin $5 $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim) }
elseif ($4 == +o) { swhelpbot sajoin $5 $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim,$chr(44),$_mirchelp) | swhelpbot privmsg $_helpers Helperlerimizden $5 online olmustur. }
elseif $regex($4,^\+(\S+)?(a)(\S+)?) { swhelpbot sajoin $5 $+($_help,$chr(44),$_helpers,$chr(44),$_helpsop,$chr(44),$_egitim,$chr(44),$_helpegitim,$chr(44),$_mirchelp) }
elseif $regex($4,^\+(\S+)?(q)(\S+)?) { swhelpbot sajoin $5 $+($_help,$chr(44),$_helpers,$chr(44),$_helpsop,$chr(44),$_helpstaff,$chr(44),$_egitim,$chr(44),$_helpegitim,$chr(44),$_mirchelp) }
elseif ($4 == +v) { .hinc -ms Voice $_nick($1) 1 | .hsave -o Voice Hash/Voice.tprk | .hinc -ms Toplam Voice 1 | .hsave -o Toplam Hash/Toplam.tprk }
elseif ($4 == -v) { .hinc -ms DeVoice $_nick($1) 1 | .hsave -o DeVoice Hash/DeVoice.tprk | .hinc -ms Toplam DeVoice 1 | .hsave -o Toplam Hash/Toplam.tprk }
elseif ($4 == +b) { .hinc -ms Ban $_nick($1) 1 | .hsave -o Ban Hash/Ban.tprk | .hinc -ms Toplam Ban 1 | .hsave -o Toplam Hash/Toplam.tprk }
}
}
elseif $regex($2,/^NOTICE$/Si) {
if $regex($_nick($1),/^ChanServ$/Si) && $hget(CS,acık) { swhelpbot privmsg $hget(CS,acık) $4- }
elseif $regex($_nick($1),/^NickServ$/Si) {
if $regex($4-,/Kayit Tarihi\: (\w+) (\d{2}) .+\:.+\:.+ (.+) \+.+ \[(.+)\]/Si) && $hget(Ns,Tarih) { swhelpbot privmsg $hget(Ns,Tarih) :Kayıt tarihi: $regml(2) $regml(1) $regml(3) ( $+ $regml(4) $+ ) | .hdel -ms Ns Tarih }
elseif $regex($4-,/Toplam Online Süresi\: (.+)/Si) && $hget(Ns,Online) { swhelpbot privmsg $hget(Ns,Online) :Online süresi: $replace($regml(1),and,ve) | .hdel -ms Ns Online }
elseif $regex($4-,/\:(.+) kayitli bir nick degil/Si) && $hget(Ns,Tarih) { swhelpbot privmsg $hget(Ns,Tarih) $+(:,$regml(1)) kayıtlı bir nick değil. | .hdel -ms Ns Tarih }
elseif $regex($4-,/\:(.+) kayitli bir nick degil/Si) && $hget(Ns,Online) { swhelpbot privmsg $hget(Ns,Online) $+(:,$regml(1)) kayıtlı bir nick değil. | .hdel -ms Ns Online }
elseif $regex($4-,/nicki icin auth \(tanitim\) kodu\: (.+)/Si) && $hget(NS,acık) {
swhelpbot privmsg $strip($remove($4,:)) :Nick'inize ait auth(tanitim) kodunuz: $regml(1)
swhelpbot privmsg $strip($remove($4,:)) :Lütfen /msg nickserv auth $regml(1) yazarak auth işlemini tamamlayınız.
swhelpbot privmsg $hget(NS,acık) $4-
}
else { swhelpbot privmsg $hget(NS,acık) $4- }
}
}
elseif $regex($2,/^PRIVMSG$/i) {
if ($3 == $_helpsop) {
if $regex($remove($4,:),/^([!.&-]komutlar)$/Si) {
swhelpbot privmsg $3 $+(:4,$gettok($_sunucu,2-,46),4) HelpSop Komutları
swhelpbot privmsg $3 :
swhelpbot privmsg $3 : $_qt3 info $_qt5(Nick) Kayıt tarihini gösterir.
swhelpbot privmsg $3 : $_qt3 online $_qt5(Nick) Toplam online süresini gösterir.
swhelpbot privmsg $3 : $_qt3 reklamlar Kullanmanız gereken reklam ID'lerini gösterir.
swhelpbot privmsg $3 : $_qt3 allsend $_qt5(ID) Belirttiğiniz ID'in reklamını tüm özellere gönderir.
swhelpbot privmsg $3 : $_qt3 global $_qt5(Mesaj) Mesajı global atar.
swhelpbot privmsg $3 : $_qt3 sicil $_qt5(Ekle|Sil|List|Oku) Sicil işlemleri hakkında bilgi verir.
swhelpbot privmsg $3 : $_qt3 not $_qt5(Ekle) $_qt5(Sil) $_qt5(List) Haber komutları.
swhelpbot privmsg $3 :
swhelpbot privmsg $3 : $_qt3 helpaday $_qt5(Ekle) $_qt5(Sil) $_qt5(List) Helper adayı komutları.
swhelpbot privmsg $3 : $_qt3 helper $_qt5(Ekle) $_qt5(Sil) $_qt5(List) Helper komutları.
swhelpbot privmsg $3 : $_qt3 kıdemlihelper $_qt5(Ekle) $_qt5(Sil) $_qt5(List) Kıdemli helper komutları.
swhelpbot privmsg $3 : $_qt3 helpadmin $_qt5(Ekle) $_qt5(Sil) $_qt5(List) Help admin komutları.
swhelpbot privmsg $3 : $_qt3 helpsop $_qt5(Ekle) $_qt5(Sil) $_qt5(List) HelpSop komutları.
swhelpbot privmsg $3 : $_qt3 helpmanager $_qt5(Ekle) $_qt5(Sil) $_qt5(List) HelpManager komutları.
swhelpbot privmsg $3 :
swhelpbot privmsg $3 : $_qt3 hhelper $_qt5(Ekle) Haftanın helperini ekler.
swhelpbot privmsg $3 : $_qt3 ahelper $_qt5(Ekle) Ayın helperini ekler.
}
elseif $regex($remove($4,:),/^([!.&-][ıiİ]nfo)$/Si) {
if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 info $_qt5(Nick) olarak belirtiniz. }
else { .hadd -msu2 NS Tarih $3 | swhelpbot ns info $regml(1) all }
}
elseif $regex($remove($4,:),/^([!.&-]onl[ıiİ]ne)$/Si) {
if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 online $_qt5(Nick) olarak belirtiniz. }
else { .hadd -msu2 NS Online $3 | swhelpbot ns info $regml(1) all }
}
elseif $regex($remove($4,:),/^([!.&-]reklamlar)$/Si) {
swhelpbot privmsg $3 :Allsend reklamları listeleniyor.
swhelpbot privmsg $3 :
var %:reklam = 1 | while %:reklam <= $lines(reklam.txt) { swhelpbot privmsg $3 :ID: %:reklam Reklam: $read(reklam.txt,%:reklam) | inc %:reklam }
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :Göndereceğiniz reklamı $_qt3 allsend <4ID> ile özellere gönderebilirsiniz.
}
elseif $regex($remove($4,:),/^([!.&-]allsend)$/Si) {
if ($strip($5) < 1) || !$read(reklam.txt,$strip($5)) { swhelpbot privmsg $3 :Lütfen $_qt3 reklam <4ID> olarak belirtiniz. }
else {
var %:_allsend = $read(reklam.txt,$strip($5))
swhelpbot allsend all private global $_helpbot %:_allsend
swhelpbot privmsg $3 :Tüm özellere reklam gönderildi.
swhelpbot privmsg $3 :Reklam: %:_allsend
}
}
elseif $regex($remove($4,:),/^([!.&-]global)$/Si) {
if !$5 { swhelpbot privmsg $3 :Lütfen $_qt3 global $_qt5(Mesaj) olarak belirtiniz. }
elseif $regex($5-,/./Sg) <= 15 { swhelpbot privmsg $3 :Göndermek istediğiniz global mesaj çok kısa.. }
else { swhelpbot os global $5- | swhelpbot privmsg $3 :Global mesaj gönderildi. | swhelpbot privmsg $3 :Global: $5- }
}
elseif $regex($remove($4,:),/^([!.&]s[ıiİ]c[ıiİ]l)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st|oku)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 sicil <4ekle|4sil|4list|4oku> olarak belirtiniz. }
elseif $regex($5,/^ekle$/Si) {
if !$regex(k,$6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 sicil $_qt5(Ekle) $_qt5(Nick) <4Notunuz> olarak belirtiniz. }
elseif !$regex(n,$7-,/(.+)/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 sicil $_qt5(Ekle) $_qt5(Nick) <4Notunuz> olarak belirtiniz. }
elseif $regex($7-,/./Sg) < 10 { swhelpbot privmsg $3 :Lütfen notunuzu açık bir şekilde yazın, şuan ki çok kısa. }
else {
$iif(!$isfile(Sicil),.mkdir Sicil)
.write $+(Sicil/,$regml(k,1),.txt) $+($date,¿,$time,¿,$regml(n,1),®,$_nick($1))
swhelpbot privmsg $3 $+(:,$regml(k,1)) nickine sicil eklenmiştir.
}
}
elseif $regex($5,/^oku$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 sicil <4oku> $_qt5(Nick) olarak belirtiniz. }
elseif !$findfile(Sicil/,$+($regml(1),.txt),0) { swhelpbot privmsg $3 $+(:,$regml(1)) nicki için sicil kaydı bulunmamaktadır. }
elseif !$lines($+(Sicil/,$regml(1),.txt)) { swhelpbot privmsg $3 $+(:,$regml(1)) nicki için sicil kaydı bulunmamaktadır. }
else {
swhelpbot privmsg $3 $+(:,$regml(1)) nicki için sicil kaydı..
var %sc = 1 | while (%sc <= $lines($+(Sicil/,$regml(1),.txt))) {
var %:sicil = $read($+(Sicil/,$regml(1),.txt),%sc)
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :ID: %sc Ekleyen: $token(%:sicil,2,174) Tarih: $iif($token(%:sicil,1,191) == $date,Bugün,$v1) Saat: $token(%:sicil,2,191)
swhelpbot privmsg $3 :NOT: $token($token($token(%:sicil,3-,191),1,169),1,174)
inc %sc
}
swhelpbot privmsg $3 :
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex(n,$6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 sicil $_qt5(Sil) $_qt5(Nick) <4ID> olarak belirtiniz. }
elseif !$regex(i,$7,/(\d+)/S) { swhelpbot privmsg $3 :Lütfen $_qt3 sicil $_qt5(Sil) $_qt5(Nick) <4ID> olarak belirtiniz. }
elseif !$findfile(Sicil/,$+($regml(n,1),.txt),0) { swhelpbot privmsg $3 $+(:,$regml(n,1)) nicki için sicil kaydı bulunmamaktadır. }
elseif $lines($+(Sicil/,$regml(n,1),.txt)) < $regml(i,1) { swhelpbot privmsg $3 $+(:,$regml(n,1)) nickinde böyle bir ID kaydı bulunmamaktadır. }
else {
swhelpbot privmsg $3 $+(:,$regml(n,1)) $iif($lines($+(Sicil/,$regml(n,1),.txt)) == 1,Sicil nick listesinden silindi.,Nickinin $+($regml(i,1),.) ID silindi.)
$iif($lines($+(Sicil/,$regml(n,1),.txt)) == 1,.remove $+(Sicil/,$regml(n,1),.txt),.write $+(-,dl,$regml(i,1)) $+(Sicil/,$regml(n,1),.txt))
}
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if !$findfile(Sicil/,*.txt,0) { swhelpbot privmsg $3 :Sicil nick listesi boş. }
else {
swhelpbot privmsg $3 :Sicil nick listesi
swhelpbot privmsg $3 :
var %sc = 1 | while (%sc <= $findfile(Sicil/,*.txt,0)) {
swhelpbot privmsg $3 $+(:,%sc,-4,$chr(41),) $remove($token($findfile(Sicil/,*.txt,%sc),-1,92),.txt)
inc %sc
}
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :Sicil nick listesi sonu
}
}
}
elseif $regex($remove($4,:),/^([!.&-]not)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 not $_qt5(Ekle) $_qt5(Sil) $_qt5(List) olarak belirtiniz. }
elseif $regex($5,/^ekle$/Si) {
if !$6 { swhelpbot privmsg $3 :Lütfen $_qt3 not <4ekle> $_qt5(Mesaj) olarak belirtiniz. }
elseif $regex($6-,/./Sg) <= 15 { swhelpbot privmsg $3 :Eklemek istediğiniz not çok kısa. }
else {
swhelpbot privmsg $3 :Notunuz eklenmiştir..
swhelpbot privmsg $3 :Not: $strip($6-)
.write Not.txt $+($strip($6-),¿,$_nick($1),¿,$date)
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex($6,/\d/S) { swhelpbot privmsg $3 :Lütfen $_qt3 not <4sil> <4ID> olarak belirtiniz. }
elseif $lines(Not.txt) < $strip($6) { swhelpbot privmsg $3 :Bu ID'e ait bir not bulunamadı. Toplam not sayısı; $lines(Not.txt) }
else {
swhelpbot privmsg $3 $+(:,$strip($6),.) ID'e ait not silinmiştir.
.write $+(-,dl,$strip($6)) Not.txt
}
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if !$lines(Not.txt) { swhelpbot privmsg $3 :Not listesi boş. }
else {
swhelpbot privmsg $3 :Notlar listeleniyor.
var %:mesaj = 1 | while %:mesaj <= $lines(Not.txt) {
var %:_not = $read(Not.txt,%:mesaj)
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :ID: %:mesaj Ekleyen: $token(%:_not,2,191) Tarih: $iif($token(%:_not,3,191) == $date,Bugün,$v1)
swhelpbot privmsg $3 :NOT: $token(%:_not,1,191)
swhelpbot privmsg $3 :
inc %:mesaj
}
swhelpbot privmsg $3 :Notlar listelendi.
}
}
}
elseif $regex($remove($4,:),/^([!.&-]helpaday)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 helpaday $_qt5(Ekle) $_qt5(Sil) $_qt5(List) 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) { swhelpbot privmsg $3 :Lütfen $_qt3 helpaday $_qt5(Ekle) $_qt5(Nick) olarak belirtiniz. }
elseif $hget(HelpAday,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki zaten HelpAday listesinde ekli. }
else {
.hadd -ms HelpAday $strip($6) $_nick($1) $date $time
.hsave -o HelpAday Hash/HelpAday.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpAday olarak eklenmiştir.
swhelpbot privmsg $+(:,$strip($6),$chr(44)) Merhaba $+(:,$strip($6),,$chr(44)) HelpAday olarak eklendiniz. Basarilar.
swhelpbot cs access $_help add $strip($6) 4
swhelpbot cs access $_helpers add $strip($6) 1
swhelpbot cs access $_egitim add $strip($6) 1
swhelpbot cs access $_helpegitim add $strip($6) 1
swhelpbot sajoin $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim)
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 helpaday $_qt5(Sil) $_qt5(Nick) olarak belirtiniz. }
elseif !$hget(HelpAday,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpAday listesinde bulunmamaktadır. }
else {
.hdel -ms HelpAday $strip($6)
.hsave -o HelpAday Hash/HelpAday.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpAday listesinden silinmiştir.
swhelpbot cs access $_help del $strip($6)
swhelpbot cs access $_helpers del $strip($6)
swhelpbot cs access $_egitim del $strip($6)
swhelpbot cs access $_helpegitim del $strip($6)
swhelpbot sapart $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim)
}
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if !$hget(HelpAday,0).data { swhelpbot privmsg $3 :HelpAday listesi boş. }
else {
swhelpbot privmsg $3 :HelpAday listesi
swhelpbot privmsg $3 :
var %:_help-aday = $hget(HelpAday,0).data | while %:_help-aday {
swhelpbot privmsg $3 :Nick: $hget(HelpAday,%:_help-aday).item Ekleyen: $hget(HelpAday,%:_help-aday).data
dec %:_help-aday
}
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :HelpAday listesi sonu.
}
}
}
elseif $regex($remove($4,:),/^([!.&-]helper)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 helper $_qt5(Ekle) $_qt5(Sil) $_qt5(List) 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) { swhelpbot privmsg $3 :Lütfen $_qt3 helper $_qt5(Ekle) $_qt5(Nick) olarak belirtiniz. }
elseif $hget(Helper,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki zaten Helper listesinde ekli. }
else {
.hadd -ms Helper $strip($6) $_nick($1) $date $time
.hsave -o Helper Hash/Helper.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Helper olarak eklenmiştir.
swhelpbot cs access $_help add $strip($6) 50
swhelpbot cs access $_helpers add $strip($6) 1
swhelpbot cs access $_egitim add $strip($6) 1
swhelpbot cs access $_helpegitim add $strip($6) 1
swhelpbot sajoin $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim)
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 helper $_qt5(Sil) $_qt5(Nick) olarak belirtiniz. }
elseif !$hget(Helper,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Helper listesinde bulunmamaktadır. }
else {
.hdel -ms Helper $strip($6)
.hsave -o Helper Hash/Helper.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Helper listesinden silinmiştir.
swhelpbot cs access $_help del $strip($6)
swhelpbot cs access $_helpers del $strip($6)
swhelpbot cs access $_egitim del $strip($6)
swhelpbot cs access $_helpegitim del $strip($6)
swhelpbot sapart $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim)
}
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if !$hget(Helper,0).data { swhelpbot privmsg $3 :Helper listesi boş. }
else {
swhelpbot privmsg $3 :Helper listesi
swhelpbot privmsg $3 :
var %:_help-er = $hget(Helper,0).data | while %:_help-er {
swhelpbot privmsg $3 :Nick: $hget(Helper,%:_help-er).item Ekleyen: $hget(Helper,%:_help-er).data
dec %:_help-er
}
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :Helper listesi sonu.
}
}
}
elseif $regex($remove($4,:),/^([!.&-]k[ıiİ]deml[ıiİ]helper)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 kıdemlihelper $_qt5(Ekle) $_qt5(Sil) $_qt5(List) 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) { swhelpbot privmsg $3 :Lütfen $_qt3 kıdemlihelper $_qt5(Ekle) $_qt5(Nick) olarak belirtiniz. }
elseif $hget(KıdemliHelper,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki zaten KıdemliHelper listesinde ekli. }
else {
.hadd -ms KıdemliHelper $strip($6) $_nick($1) $date $time
.hsave -o KıdemliHelper Hash/KıdemliHelper.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki KıdemliHelper olarak eklenmiştir.
swhelpbot cs access $_help add $strip($6) 50
swhelpbot cs access $_helpers add $strip($6) 30
swhelpbot cs access $_egitim add $strip($6) 30
swhelpbot cs access $_helpegitim add $strip($6) 30
swhelpbot sajoin $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim)
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 kıdemlihelper $_qt5(Sil) $_qt5(Nick) olarak belirtiniz. }
elseif !$hget(KıdemliHelper,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki KıdemliHelper listesinde bulunmamaktadır. }
else {
.hdel -ms KıdemliHelper $strip($6)
.hsave -o KıdemliHelper Hash/KıdemliHelper.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki KıdemliHelper listesinden silinmiştir.
swhelpbot cs access $_help del $strip($6)
swhelpbot cs access $_helpers del $strip($6)
swhelpbot cs access $_egitim del $strip($6)
swhelpbot cs access $_helpegitim del $strip($6)
swhelpbot sapart $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim)
}
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if !$hget(KıdemliHelper,0).data { swhelpbot privmsg $3 :KıdemliHelper listesi boş. }
else {
swhelpbot privmsg $3 :KıdemliHelper listesi
swhelpbot privmsg $3 :
var %:_help-kıdemli = $hget(KıdemliHelper,0).data | while %:_help-kıdemli {
swhelpbot privmsg $3 :Nick: $hget(KıdemliHelper,%:_help-kıdemli).item Ekleyen: $hget(KıdemliHelper,%:_help-kıdemli).data
dec %:_help-kıdemli
}
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :KıdemliHelper listesi sonu.
}
}
}
elseif $regex($remove($4,:),/^([!.&-]helpadm[ıiİ]n)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 helpadmin $_qt5(Ekle) $_qt5(Sil) $_qt5(List) 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) { swhelpbot privmsg $3 :Lütfen $_qt3 helpadmin $_qt5(Ekle) $_qt5(Nick) olarak belirtiniz. }
elseif $hget(HelpAdmin,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki zaten HelpAdmin listesinde ekli. }
else {
.hadd -ms HelpAdmin $strip($6) $_nick($1) $date $time
.hsave -o HelpAdmin Hash/HelpAdmin.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpAdmin olarak eklenmiştir.
swhelpbot cs access $_help add $strip($6) 50
swhelpbot cs access $_helpers add $strip($6) 40
swhelpbot cs access $_egitim add $strip($6) 40
swhelpbot cs access $_helpegitim add $strip($6) 40
swhelpbot sajoin $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim)
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 helpadmin $_qt5(Sil) $_qt5(Nick) olarak belirtiniz. }
elseif !$hget(HelpAdmin,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpAdmin listesinde bulunmamaktadır. }
else {
.hdel -ms HelpAdmin $strip($6)
.hsave -o HelpAdmin Hash/HelpAdmin.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpAdmin listesinden silinmiştir.
swhelpbot cs access $_help del $strip($6)
swhelpbot cs access $_helpers del $strip($6)
swhelpbot cs access $_egitim del $strip($6)
swhelpbot cs access $_helpegitim del $strip($6)
swhelpbot sapart $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim)
}
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if !$hget(HelpAdmin,0).data { swhelpbot privmsg $3 :HelpAdmin listesi boş. }
else {
swhelpbot privmsg $3 :HelpAdmin listesi
swhelpbot privmsg $3 :
var %:_help-admin = $hget(HelpAdmin,0).data | while %:_help-admin {
swhelpbot privmsg $3 :Nick: $hget(HelpAdmin,%:_help-admin).item Ekleyen: $hget(HelpAdmin,%:_help-admin).data
dec %:_help-admin
}
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :HelpAdmin listesi sonu.
}
}
}
elseif $regex($remove($4,:),/^([!.&-]helpsop)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 helpsop $_qt5(Ekle) $_qt5(Sil) $_qt5(List) 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) { swhelpbot privmsg $3 :Lütfen $_qt3 helpsop $_qt5(Ekle) $_qt5(Nick) olarak belirtiniz. }
elseif $hget(HelpSop,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki zaten HelpSop listesinde ekli. }
else {
.hadd -ms HelpSop $strip($6) $_nick($1) $date $time
.hsave -o HelpSop Hash/HelpSop.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpSop olarak eklenmiştir.
swhelpbot cs access $_help add $strip($6) 50
swhelpbot cs access $_helpers add $strip($6) 50
swhelpbot cs access $_egitim add $strip($6) 50
swhelpbot cs access $_helpegitim add $strip($6) 50
swhelpbot cs access $_helpsop add $strip($6) 50
swhelpbot cs access $_helpstaff add $strip($6) 50
swhelpbot cs access $_mirchelp add $strip($6) 50
swhelpbot sajoin $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim,$chr(44),$_helpsop,$chr(44),$_helpstaff,$chr(44),$_mirchelp)
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 helpsop $_qt5(Sil) $_qt5(Nick) olarak belirtiniz. }
elseif !$hget(HelpSop,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpSop listesinde bulunmamaktadır. }
else {
.hdel -ms HelpSop $strip($6)
.hsave -o HelpSop Hash/HelpSop.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpSop listesinden silinmiştir.
swhelpbot cs access $_help del $strip($6)
swhelpbot cs access $_helpers del $strip($6)
swhelpbot cs access $_egitim del $strip($6)
swhelpbot cs access $_helpegitim del $strip($6)
swhelpbot cs access $_helpsop del $strip($6)
swhelpbot cs access $_helpstaff del $strip($6)
swhelpbot cs access $_mirchelp del $strip($6)
swhelpbot sapart $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim,$chr(44),$_helpsop,$chr(44),$_helpstaff,$chr(44),$_mirchelp)
}
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if !$hget(HelpSop,0).data { swhelpbot privmsg $3 :HelpSop listesi boş. }
else {
swhelpbot privmsg $3 :HelpSop listesi
swhelpbot privmsg $3 :
var %:_help-sop = $hget(HelpSop,0).data | while %:_help-sop {
swhelpbot privmsg $3 :Nick: $hget(HelpSop,%:_help-sop).item Ekleyen: $hget(HelpSop,%:_help-sop).data
dec %:_help-sop
}
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :HelpSop listesi sonu.
}
}
}
elseif $regex($remove($4,:),/^([!.&-]helpmanager)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 helpmanager $_qt5(Ekle) $_qt5(Sil) $_qt5(List) 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) { swhelpbot privmsg $3 :Lütfen $_qt3 helpmanager $_qt5(Ekle) $_qt5(Nick) olarak belirtiniz. }
elseif $hget(HelpManager,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki zaten HelpManager listesinde ekli. }
else {
.hadd -ms HelpManager $strip($6) $_nick($1) $date $time
.hsave -o HelpManager Hash/HelpManager.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpManager olarak eklenmiştir.
swhelpbot cs access $_help add $strip($6) 999
swhelpbot cs access $_helpers add $strip($6) 999
swhelpbot cs access $_egitim add $strip($6) 999
swhelpbot cs access $_helpegitim add $strip($6) 999
swhelpbot cs access $_helpsop add $strip($6) 999
swhelpbot cs access $_helpstaff add $strip($6) 999
swhelpbot cs access $_mirchelp add $strip($6) 9999
swhelpbot sajoin $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim,$chr(44),$_helpsop,$chr(44),$_helpstaff,$chr(44),$_mirchelp)
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 helpmanager $_qt5(Sil) $_qt5(Nick) olarak belirtiniz. }
elseif !$hget(HelpManager,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpManager listesinde bulunmamaktadır. }
else {
.hdel -ms HelpManager $strip($6)
.hsave -o HelpManager Hash/HelpManager.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki HelpManager listesinden silinmiştir.
swhelpbot cs access $_help del $strip($6)
swhelpbot cs access $_helpers del $strip($6)
swhelpbot cs access $_egitim del $strip($6)
swhelpbot cs access $_helpegitim del $strip($6)
swhelpbot cs access $_helpsop del $strip($6)
swhelpbot cs access $_helpstaff del $strip($6)
swhelpbot cs access $_mirchelp del $strip($6)
swhelpbot sapart $strip($6) $+($_help,$chr(44),$_helpers,$chr(44),$_egitim,$chr(44),$_helpegitim,$chr(44),$_helpsop,$chr(44),$_helpstaff,$chr(44),$_mirchelp)
}
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if !$hget(HelpManager,0).data { swhelpbot privmsg $3 :HelpManager listesi boş. }
else {
swhelpbot privmsg $3 :HelpManager listesi
swhelpbot privmsg $3 :
var %:_help-manager = $hget(HelpManager,0).data | while %:_help-manager {
swhelpbot privmsg $3 :Nick: $hget(HelpManager,%:_help-manager).item Ekleyen: $hget(HelpManager,%:_help-manager).data
dec %:_help-manager
}
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :HelpManager listesi sonu.
}
}
}
elseif $regex($remove($4,:),/^([!.&-]hhelper)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 hhelper <4ekle|4sil> 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) { swhelpbot privmsg $3 :Lütfen $_qt3 hhelper $_qt5(Ekle) $_qt5(Nick) olarak belirtiniz. }
elseif (%:_helper-haftanin == $strip($6)) { swhelpbot privmsg $3 :Haftanın Helperi zaten aynı kişi. }
elseif %:_helper-haftanin {
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Haftanın Helperi olarak değiştirilmiştir. Eski: %:_helper-haftanin Yeni: $strip($6)
.set %:_helper-haftanin $strip($6)
swhelpbot cs set $_helpers topiclock off
swhelpbot topic $_helpers :1Haftanın Helper'i: $strip($6) $iif(%:_helper-ayin,Ayın Helper'i: $v1)
}
else {
.set %:_helper-haftanin $strip($6)
swhelpbot cs set $_helpers topiclock off
swhelpbot topic $_helpers :1Haftanın Helper'i: $strip($6) $iif(%:_helper-ayin,Ayın Helper'i: $v1)
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Haftanın Helperi olarak eklenmiştir.
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if %:_helper-haftanin { .unset %:_helper-haftanin | swhelpbot privmsg $3 :Haftanın Helperi silinmiştir. }
else { swhelpbot privmsg $3 :Haftanın Helperi zaten yok. }
}
}
elseif $regex($remove($4,:),/^([!.&-]ahelper)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 ahelper <4ekle|4sil> 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) { swhelpbot privmsg $3 :Lütfen $_qt3 ahelper $_qt5(Ekle) $_qt5(Nick) olarak belirtiniz. }
elseif (%:_helper-ayin == $strip($6)) { swhelpbot privmsg $3 :Ayın Helperi zaten aynı kişi. }
elseif %:_helper-ayin {
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Ayın Helperi olarak değiştirilmiştir. Eski: %:_helper-ayin Yeni: $strip($6)
.set %:_helper-ayin $strip($6)
swhelpbot cs set $_helpers topiclock off
swhelpbot topic $_helpers $+(:1,$iif(%:_helper-haftanin,Haftanın Helper'i: $v1)) Ayın Helper'i: $strip($6)
}
else {
.set %:_helper-ayin $strip($6)
swhelpbot cs set $_helpers topiclock off
swhelpbot topic $_helpers $+(:1,$iif(%:_helper-haftanin,Haftanın Helper'i: $v1)) Ayın Helper'i: $strip($6)
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Ayın Helperi olarak eklenmiştir.
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if %:_helper-ayin { .unset %:_helper-ayin | swhelpbot privmsg $3 :Ayın Helperi silinmiştir. }
else { swhelpbot privmsg $3 :Ayın Helperi zaten yok. }
}
}
}
elseif ($3 == $_egitim) {
if $regex($remove($4,:),/^([!.&-]konular)$/Si) {
swhelpbot privmsg $3 :4Services Eğitim Konuları
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :[4*] 4+helpserv HelpServ genel komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+nickserv NickServ genel komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+nssetunset NickServ Set/Unset komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+chanserv ChanServ genel komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+cssetunset ChanServ Set/Unset komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+cslevels ChanServ Levels komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+csakick ChanServ Akick komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+memoserv MemoServ genel komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+statserv StatServ genel komutları konu eğitimi.
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :4IRCd Genel Eğitim Konuları
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :[4*] 4+helpop HelpOp komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+wildcard Wildcard açıklamaları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+extban ExtBan(Chmodeb) komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+exception Exception komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+nickmodekip Nick mode(Umodes) konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+kanalmodekip Kanal mode(Chmodes) konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+who Who komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+flood Flood(Chmodef) konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+list List komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+kkomutları Kullanıcı komutları(Usercmds) konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+version Version açıklamaları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+bhataları Bağlantı hataları açıklamaları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+okomutları Oper komutları(Opercmds) konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+skomutları Services komutları(Svscmds) konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+opermodekip Oper mode(Oflags) konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+snomasks Snomasks açıklamaları konu eğitimi.
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :4mIRC(Client) Eğitim Konuları
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :[4*] 4+ignore Ignore komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+inumaraları Ignore numaraları komut konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+bnumaraları Ban numaraları komut konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+timer Timer komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+remote mIRC entegrasyon açıklamaları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+showmirc ShowmIRC komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+cnick CNick komutları konu eğitimi.
swhelpbot privmsg $3 :[4*] 4+ascii ASCII kod açıklamaları konu eğitimi.
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :4Help Simulasyon Eğitim Konuları
swhelpbot privmsg $3 :[4*] 4+simulasyon Helper Simulasyon egitimi
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :[4*] 4[!.]dur Eğitimi sonlandırır.
}
elseif $regex($remove($4,:),/^[!.+-]dur$/Si) { swhelpbot privmsg $3 :Eğitim anlatımı sonlandırılmıştır. | $+(.timer,¿,*) off }
elseif $regex($remove($4,:),/^\+(.+)(\s)?$/Si) {
if $isfile($+(Help/Egitim/,$regml(1),.txt)) {
swhelpbot privmsg $3 $+(:",$upper($regml()),") eğitimi başlıyor.
swhelpbot privmsg $3 :
$+(.timer,¿,$regml(1)) 0 3 _yolla $3 $regml(1)
}
}
}
elseif ($3 == $_helpers) {
if $regex($remove($4,:),/^([!.&-]komutlar)$/Si) {
swhelpbot privmsg $3 $+(:4,$gettok($_sunucu,2-,46),4) Helper Komutları
swhelpbot privmsg $3 :
swhelpbot privmsg $3 : $_qt3 alias Kullanmanız gereken aliasları listeler.
swhelpbot privmsg $3 : $_qt3 kurallar Uymanız gereken kuralları gösterir.
swhelpbot privmsg $3 : $_qt3 voicelist Verilen tüm voice(4+) kayıtlarını listeler.
swhelpbot privmsg $3 : $_qt3 devoicelist Alınan tüm devoice(4-) kayıtlarını listeler.
swhelpbot privmsg $3 : $_qt3 banlist Atılan tüm banlar(4+b) kayıtlarını listeler.
swhelpbot privmsg $3 : $_qt3 nickreg $_qt5(Nick) Nick kayıt işlemi için bilgi gönderir.
swhelpbot privmsg $3 : $_qt3 chanreg $_qt5(Nick) Kanal kayıt işlemi için bilgi gönderir.
swhelpbot privmsg $3 : $_qt3 voice $_qt5(Nick) $_help kanalında nicke voice(4+) verir. (Sadece mobil görevliler için)
swhelpbot privmsg $3 : $_qt3 devoice $_qt5(Nick) $_help kanalında nicki devoice(4-) eder. (Sadece mobil görevliler için)
swhelpbot privmsg $3 : $_qt3 auth $_qt5(Nick) Belirlenen nick'in AUTH bilgisini verir.
swhelpbot privmsg $3 : $_qt3 setauth $_qt5(Nick) Belirlenen nick'in için yeni bir AUTH kodu tanımlar.
swhelpbot privmsg $3 : $_qt3 clearauth $_qt5(Nick) Belirlenen nick'in için tanımlanan AUTH kodunu siler.
swhelpbot privmsg $3 : $_qt3 banac $_qt5(IP) Belirlenen IP adresindeki X:Line'leri kaldırır.
swhelpbot privmsg $3 : $_qt3 ip $_qt5(IP) Belirlenen IP adresindeki Ban sebebini gosterir.
swhelpbot privmsg $3 : $_qt3 notlist Departman tarafından eklenilen haberleri gösterir.
swhelpbot privmsg $3 : $_qt3 sıfırla $_qt5(DATA) Belirlenen DATA'yı sıfırlar.
}
elseif $regex($remove($4,:),/^([!.&-]al[ıiİ]as(es)?)$/Si) {
var %:ases = 1 | while %:ases <= $lines(aliaslar.txt) { swhelpbot privmsg $3 $read(help/alias.txt,n,%:ases) | inc %:ases }
}
elseif $regex($remove($4,:),/^([!.&-]kurallar)$/Si) {
var %:_kural = 1 | while %:_kural <= $lines(kural.txt) { swhelpbot privmsg $3 $read(help/kural.txt,n,%:_kural) | inc %:_kural }
}
elseif $regex($remove($4,:),/^([!.&-]vo[ıiİ]cel[ıiİ]st)$/Si) {
if !$hget(Voice,0).data { swhelpbot privmsg $3 :Voice listesi boş. }
else {
swhelpbot privmsg $3 $+(:,$_help) kanalı için, voice(4+) istatistikleri sıralanıyor.
swhelpbot privmsg $3 :Kayıt tarihinden beri, toplam verilen voice sayısı: $hget(Toplam,Voice)
swhelpbot privmsg $3 :
var %:_voice = $hget(Voice,0).data | while %:_voice {
swhelpbot privmsg $3 :Nick: $hget(Voice,%:_voice).item Voice sayısı: $hget(Voice,%:_voice).data
dec %:_voice
}
}
}
elseif $regex($remove($4,:),/^([!.&-]devo[ıiİ]cel[ıiİ]st)$/Si) {
if !$hget(DeVoice,0).data { swhelpbot privmsg $3 :DeVoice listesi boş. }
else {
swhelpbot privmsg $3 $+(:,$_help) kanalı için, devoice(4-) istatistikleri sıralanıyor.
swhelpbot privmsg $3 :Kayıt tarihinden beri, toplam alınan voice sayısı: $hget(Toplam,DeVoice)
swhelpbot privmsg $3 :
var %:_devoice = $hget(DeVoice,0).data | while %:_devoice {
swhelpbot privmsg $3 :Nick: $hget(DeVoice,%:_devoice).item DeVoice sayısı: $hget(DeVoice,%:_devoice).data
dec %:_devoice
}
}
}
elseif $regex($remove($4,:),/^([!.&-]banl[ıiİ]st)$/Si) {
if !$hget(Ban,0).data { swhelpbot privmsg $3 :Ban listesi boş. }
else {
swhelpbot privmsg $3 $+(:,$_help) kanalı için, ban(4+b) istatistikleri sıralanıyor.
swhelpbot privmsg $3 :Kayıt tarihinden beri, toplam atılan ban sayısı: $hget(Toplam,Ban)
swhelpbot privmsg $3 :
var %:_ban = $hget(Ban,0).data | while %:_ban {
swhelpbot privmsg $3 :Nick: $hget(Ban,%:_ban).item Ban sayısı: $hget(Ban,%:_ban).data
dec %:_ban
}
}
}
elseif $regex($remove($4,:),/^([!.&-]n[ıiİ]ckreg)$/Si) {
if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 nickreg $_qt5(Nick) olarak belirtiniz. }
else {
swhelpbot privmsg $3 $+(:,$regml(1)) nickine nick kayıt işlemleri gönderildi.
swhelpbot privmsg $regml(1) :Merhaba $regml(1)
swhelpbot privmsg $regml(1) $+(:,$_nick($1)) tarafından size nick kayıt işlemi gönderildi.
swhelpbot privmsg $regml(1) :
swhelpbot privmsg $regml(1) :1-4) /nickserv info NICK nickin kayıtlımı değilmi kontrol ediniz.
swhelpbot privmsg $regml(1) :2-4) /nickserv register SIFRE E-MAIL komutu ile nickinizi kayıt ediniz.
swhelpbot privmsg $regml(1) :4ORN: /nickserv register 123321 $+($regml(1),@,$gettok($_sunucu,2-,46))
swhelpbot privmsg $regml(1) :3-4) /nickserv auth KOD statuse gelen AUH kodunu giriniz.
swhelpbot privmsg $regml(1) :
swhelpbot privmsg $regml(1) :4Bilgi: Nick ile ilgili sorunlarınızı #NickServ kanalına girerek yardım alabilirsiniz.
}
}
elseif $regex($remove($4,:),/^([!.&-]chanreg)$/Si) {
if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 chanreg $_qt5(Nick) olarak belirtiniz. }
else {
swhelpbot privmsg $3 $+(:,$regml(1)) nickine kanal kayıt işlemleri gönderildi.
swhelpbot privmsg $regml(1) :Merhaba $regml(1)
swhelpbot privmsg $regml(1) $+(:,$_nick($1)) tarafından size kanal kayıt işlemi gönderildi.
swhelpbot privmsg $regml(1) :
swhelpbot privmsg $regml(1) :1-4) /chanserv info #KANAL kanalın kayıtlımı değilmi kontrol ediniz.
swhelpbot privmsg $regml(1) :2-4) /chanserv register #KANAL SIFRE ACIKLAMA komutu ile kanalı kayıt ediniz.
swhelpbot privmsg $regml(1) :4ORN: /chanserv register #Kanal 1233214 $gettok($_sunucu,2-,46) Sunucusuna hoş geldiniz.
swhelpbot privmsg $regml(1) :
swhelpbot privmsg $regml(1) :4Bilgi: Kanal ile ilgili sorunlarınızı #ChanServ kanalına girerek yardım alabilirsiniz.
}
}
elseif $regex($remove($4,:),/^([!.&-]vo[ıiİ]ce)$/Si) {
if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 voice $_qt5(Nick) olarak belirtiniz. }
else {
swhelpbot mode $_help +v $regml(1)
swhelpbot privmsg $3 $+(:,$regml(1)) nickine $_nick($1) tarafından voice(4+) verildi lütfe kimse karışmasın..
swhelpbot privmsg $_help Merhaba, $+(:,$regml(1)) $_nick($1) tarafindan voice verildi. Size nasil yardimci olabilirim.?
.hinc -ms Voice $_nick($1) 1
.hsave -o Voice Hash/Voice.tprk
.hinc -ms Toplam Voice 1
.hsave -o Toplam Hash/Toplam.tprk
}
}
elseif $regex($remove($4,:),/^([!.&-]devo[ıiİ]ce)$/Si) {
if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 devoice $_qt5(Nick) olarak belirtiniz. }
else {
swhelpbot mode $_help -v $regml(1)
swhelpbot kick $_help $regml(1) Voiceniz alindi keyifli sohbetler dileriz.
swhelpbot privmsg $3 $+(:,$regml(1)) nickinin voicesi(4-) alındı.
.hinc -ms DeVoice $_nick($1) 1
.hsave -o DeVoice Hash/DeVoice.tprk
.hinc -ms Toplam DeVoice 1
.hsave -o Toplam Hash/Toplam.tprk
}
}
elseif $regex($remove($4,:),/^([!.&-]auth)$/Si) {
if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 auth $_qt5(Nick) olarak belirtiniz. }
else { .hadd -msu2 NS acık $3 | swhelpbot ns GETAUTH $regml(1) }
}
elseif $regex($remove($4,:),/^([!.&-]setauth)$/Si) {
if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 setauth $_qt5(Nick) olarak belirtiniz. }
else { .hadd -msu2 NS acık $3 | swhelpbot ns SETAUTH $regml(1) }
}
elseif $regex($remove($4,:),/^([!.&-]clearauth)$/Si) {
if !$regex($5,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 clearauth $_qt5(Nick) olarak belirtiniz. }
else { .hadd -msu2 NS acık $3 | swhelpbot ns CLEARAUTH $regml(1) }
}
elseif $regex($remove($4,:),/^([!.&-]bana[cçÇ])$/Si) {
if !$regex($5,/\d+\.\d+\.\d+\.\d+/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 banaç <4IP> olarak belirtiniz. }
else {
swhelpbot gline $+(-*@,$strip($5))
swhelpbot zline $+(-*@,$strip($5))
swhelpbot kline $+(-*@,$strip($5))
swhelpbot gzline $+(-*@,$strip($5))
swhelpbot shun $+(-*@,$strip($5))
swhelpbot privmsg $3 :Belirlenen IP adresindeki X:Line'ler kaldırıldı.
}
}
elseif $regex($remove($4,:),/^([!.&-][ıiİ]p)$/Si) {
if !$regex($5,/\d+\.\d+\.\d+\.\d+/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 ip <4IP> olarak belirtiniz. }
else {
_nerden $strip($5)
set %trip *@ $+ $strip($5)
swhelpbot stats K
swhelpbot stats G
set %ipblnd ipyok
.timer 1 2 swhelpbot privmsg $3 0,4 BILGI 0,2 Oper/Admin tarafindan atilan banlari #Master kanalina yönlendiriniz. Sadece Koruma botunun attığı Shun/gline/zline açılacaktır.
}
}
elseif $regex($remove($4,:),/^([!.&-]notl[ıiİ]st)$/Si) {
if !$lines(help/Not.txt) { swhelpbot privmsg $3 :Not listesi boş. }
else {
swhelpbot privmsg $3 :Notlar listeleniyor.
var %:mesaj = 1 | while %:mesaj <= $lines(Help/Not.txt) {
var %:_not = $read(help/Not.txt,%:mesaj)
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :ID: %:mesaj Ekleyen: $token(%:_not,2,191) Tarih: $iif($token(%:_not,3,191) == $date,Bugün,$v1)
swhelpbot privmsg $3 :NOT: $token(%:_not,1,191)
swhelpbot privmsg $3 :
inc %:mesaj
}
swhelpbot privmsg $3 :Notlar listelendi.
}
}
elseif $regex($remove($4,:),/^([!.&-]s[ıiİ]f[ıiİ]rla)$/Si) {
if !$regex($5,/^(Voice|DeVoice|Ban)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 sıfırla <4Voice|4DeVoice|4Ban> olarak belirtiniz. }
else {
.hfree -sw $regml(1)
.remove $+(Hash/,$regml(1),.tprk)
.hdel -ms Toplam $regml(1)
.hsave -o Toplam Hash/Toplam.tprk
swhelpbot privmsg $3 $+(:,$upper($regml(1))) verileri sıfırlanmıştır.
}
}
}
elseif ($3 == $_helpstaff) {
if $regex($remove($4,:),/^([!.&-]komutlar)$/Si) {
swhelpbot privmsg $3 $+(:4,$gettok($_sunucu,2-,46),4) HelpStaff Komutları
swhelpbot privmsg $3 :
swhelpbot privmsg $3 : $_qt3 aday $_qt5(Ekle) $_qt5(Sil) $_qt5(List) Eğitim alacak kişi komut dizini.
swhelpbot privmsg $3 : $_qt3 rapor <4ekle|4list> Nicke verilmiş olan eğitim komut dizini.
swhelpbot privmsg $3 :
}
elseif $regex($remove($4,:),/^([!.&-]aday)$/Si) {
if !$regex($5,/^(ekle|s[ıiİ]l|l[ıiİ]st)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 aday $_qt5(Ekle) $_qt5(Sil) $_qt5(List) 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) { swhelpbot privmsg $3 :Lütfen $_qt3 aday $_qt5(Ekle) $_qt5(Nick) olarak belirtiniz. }
elseif $hget(AdayEgitim,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki zaten Aday listesinde ekli. }
else {
.hadd -ms AdayEgitim $strip($6) $_nick($1)
.hsave -o AdayEgitim Hash/AdayEgitim.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Aday olarak eklendi ve eğitim tablosu oluşturuldu.
var %:-edosya = $findfile(Help/Egitim/,*.txt,0) | while %:-edosya {
.hadd -ms $strip($6) $token($token($findfile(Help/Egitim/,*.txt,%:-edosya),-1,92),1,46) 4İşlenmedi
dec %:-edosya
}
.hsave -o $strip($6) $+(Hash/,$strip($6),.tprk)
}
}
elseif $regex($5,/^s[ıiİ]l$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 aday $_qt5(Sil) $_qt5(Nick) olarak belirtiniz. }
elseif !$hget(AdayEgitim,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Aday listesinde bulunmamaktadır. }
else {
.hdel -ms AdayEgitim $strip($6)
.hsave -o AdayEgitim Hash/AdayEgitim.tprk
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Aday listesinden silinmiştir.
.hfree -sw $strip($6)
.remove $+(Hash/,$strip($6),.tprk)
}
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if !$hget(AdayEgitim,0).data { swhelpbot privmsg $3 :Aday listesi boş. }
else {
swhelpbot privmsg $3 :Aday listesi
swhelpbot privmsg $3 :
var %:_help-aegitim = $hget(AdayEgitim,0).data | while %:_help-aegitim {
swhelpbot privmsg $3 :Nick: $hget(AdayEgitim,%:_help-aegitim).item Ekleyen: $hget(AdayEgitim,%:_help-aegitim).data
dec %:_help-aegitim
}
swhelpbot privmsg $3 :
swhelpbot privmsg $3 :Aday listesi sonu.
}
}
}
elseif $regex($remove($4,:),/^([!.&-]rapor)$/Si) {
if !$regex($5,/^(ekle|l[ıiİ]st)$/Si) { swhelpbot privmsg $3 :Lütfen $_qt3 rapor <4ekle|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) { swhelpbot privmsg $3 :Lütfen $_qt3 rapor $_qt5(Ekle) $_qt5(Nick) <4Konu> olarak belirtiniz. }
elseif !$hget(AdayEgitim,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Aday listesinde ekli değil lütfen önce ekleyiniz. }
elseif !$7 { swhelpbot privmsg $3 :Lütfen $_qt3 rapor $_qt5(Ekle) $_qt5(Nick) <4Konu> olarak belirtiniz. }
elseif !$isfile($+(Help/Egitim/,$strip($7),.txt)) { swhelpbot privmsg $3 :Lütfen konu ismini düzgün giriniz. }
else {
.hadd -ms $strip($6) $strip($7) 3İşlendi $_nick($1)
.hsave -o $strip($6) $+(Hash/,$strip($6),.tprk)
swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki için $upper($strip($7)) konusu işlendi olarak eklendi.
}
}
elseif $regex($5,/^l[ıiİ]st$/Si) {
if !$regex($6,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{`][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { swhelpbot privmsg $3 :Lütfen $_qt3 rapor <4list> $_qt5(Nick) olarak belirtiniz. }
elseif !$hget(AdayEgitim,$strip($6)) { swhelpbot privmsg $3 $+(:,$strip($6),,$chr(44)) nicki Aday listesinde ekli değil lütfen önce ekleyiniz. }
else {
swhelpbot privmsg $3 $(:",$strip($6),") konu eğitim listesi
swhelpbot privmsg $3 :
var %:_klist = $hget($strip($6),0).data | while %:_klist {
swhelpbot privmsg $3 :Konu: $upper($hget($strip($6),%:_klist).item) Durum: $token($hget($strip($6),%:_klist).data,1,32) $iif($token($hget($strip($6),%:_klist).data,2,32),Eğitmen: $v1)
dec %:_klist
}
swhelpbot privmsg $3 :
swhelpbot privmsg $3 $(:",$strip($6),") konu eğitim listesi sonu
}
}
}
}
}
} Egitim dokumani zip halinde eklenmistir.. mIRC Script klasorunde help/egitim olarak konular calismaktadir bilgiize | |
|  |
|
29 Mart 2024, 19:45
| #3 |
| | Cevap: HelpSystem Socket bot Ziyaretçilere içerik gizlenmiştir.İçerikleri görebilmek için üye olmalı ve üye girişi yapmalısınız.Giriş Yap Kayıt Ol Sensiz bir müziğin notası yok. Renklerin en güzeli eksik Seninle birlikte renk senfonisi olsak. Sen ise "KıRıK" bir nota ya ses olsan ? Her Besteye nefesin ile eşlik etsen. Nefes almaya korkarak dalsam gözlerine... Damarlarıma doldurduğum sen ile uzasa gecelerimiz... Ürpersem hissettiğim teninle Uzun iç çekişlerle kokunu çeksem ciğerlerime... Sevgilim ! "KıRıK" bir SoL notasında bestelenmemiş şarkı olalım... ~`  |
| |
| Cevapla |
| Yer İmleri |
| Etiketler |
| bot, helpsystem, socket |
| Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 ziyaretçi) | |
 (View-All)
Bu konuyu daha önce 0 kişi okudu. Liste Aşağıdadır
| |
| Görüntülenecek isim yok. |
| Seçenekler | |
| Stil | |
| |
Normal
