![]() | #1 | |
| ![]() 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 | |
![]() | ![]() |
![]() | #3 |
| ![]() 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) | |
![]() | |
Burakk, KinGStaR, Linux, Mys, |
Seçenekler | Arama |
Stil | |
| |