alias _helpbot return HelpSystem
alias _pass return nicksifreniz
alias _ident return System
alias _username return $+(1,$regsubex($_helpbot v0.1,/(.)/gi, \t),™) -6 $token($_sunucu,2-,46)
alias _oper return Oper pass
alias _supass return supassifresi
alias _sunucu return irc.sunucuadi.com
alias _sunucuip return 1.2.3.4
alias _port return 6667
;-Help kanallari
alias _helpers return #Helpers
alias _helpsop return #HelpSop
alias _helpstaff return #HelpStaff
alias _egitim return #Helpteam
alias _helpegitim return #Helpegitim
alias _mirchelp return #mIRCHelp
alias _help return #Help
-
alias _qt1 return $+(1[,$1,1])
alias _qt2 return $+(3[,$1,3])
alias _qt3 return $+(6[,$1,6])
alias _qt4 return $+(6[,$1,6])
alias _qt5 return $+(6[,$1,6])
alias _qt6 return $+(7[,$1,7])
alias _qt7 return $+(1[,$1,1])
alias _qt8 return $+(6[,$1,6])
alias _qt13 return $+(6[.-!6])
-
on *:start:{
.remote on
.titlebar $upper($token($_sunucu,2-,46)) - $_bot $chr(124) HelpSystem var %:_hash =
$+(.timer,_saatkontrol) 0 5 _saatkontrol
}
alias _saatkontrol {
$iif(!$sock(helpbot),sockopen helpbot $_sunucuip $_port)
}
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, 17:02
HelpSystem Socket bot 
Benzer Konular 
1Beðeni
Normal
