IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü oto zline ekleme - oto nick değiştirme (https://www.ircforumlari.net/mirc-scripting-sorunlari/987273-oto-zline-ekleme-oto-nick-degistirme.html)

Yasakkk 24 Eylül 2022 23:47
oto zline ekleme - oto nick değiştirme
 
Merhaba

Arkadaşlar kısaca anlatayım sunucuya istemediğimiz Ip Adresleri giriyor bu Ip adresini,ve indentini oto zline eklemek istiyorum nasıl yapabilirim ? Remote olarak
1 diğer sorunum ise oto nick değiştirme remotesi varmı yada yapabilirmiyiz misal !ekle abaza bu nick sunucuya giriş yaptığında oto olarak mircim abaza nickini misafir olarak değiştirsin
Diğer sorum ise T-blok banlarını biliyorsunuzdur bu t-blok banlarını remoteye ekleye bilirmiyiz Okuyan zahmet edip cevap yazan herkese teşekkür ederim

Mylife 27 Eylül 2022 17:09
Cevap: oto zline ekleme - oto nick değiştirme
 
Merhaba,

Forumda sorunuz ile ilgili epeyli bir kod paylaşımı olduğunu düşünüyorum. Forumu aramanız yeterli olacaktır.

Bazı fikirler;

Girişte oto ban atmak istiyorsanız bunu $read ile txt dosyasına kayıt edip snotice eventi kullanıp text dosyası ile server noticelerinde ip adresine denk gelicek şekilde karşılaştırma yaparak basitce yapabilirsiniz.

oto nick değiştirme için de yine aynı şekilde server notice ( snotice ) eventi ile nicke denk gelicek şekilde yaparak text dosyası ile karşılaştırma yapıp raw dan dilediğiniz nicki almasını yapabilirsiniz.

alias içinde aşağıda link bıraktım araştırıp yapabilirsiniz.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

İyi forumlar.

aLone 27 Eylül 2022 18:48
Cevap: oto zline ekleme - oto nick değiştirme
 
Şu Konuya bir göz at istersen [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Yasakkk 27 Eylül 2022 20:25
Cevap: oto zline ekleme - oto nick değiştirme
 
aLone selam yönlendirdiğin link'i inceledim mirc'e nasıl yüklerim yönlendirirsen çok sevinirim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:46 -->-> Daha önceki mesaj 19:41 --

Çok teşekkür ederim inceliyorum

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:22 -->-> Daha önceki mesaj 19:46 --

butonlar çalışmıyor çalışırsa güzel olmuş tam aradağım özellik

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:25 -->-> Daha önceki mesaj 20:22 --

Alıntı:
alias mdc { return $dll(dll\mdc.dll,$1,$2-) }
alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias a.b { dialog -m zlnat zlnat }
dialog zlnat {
title "~"
size 40 170 510 320
option pixels
radio "Acık",13,420 225 55 24,group
radio "KapaLı",14,420 250 55 24
box "", 11, 5 8 500 295
edit "Nick Yazınız..!", 9, 175 20 160 30, center
edit "Ident Yazınız..!", 1, 175 55 160 30, center
edit "Host Yazınız..!", 2, 175 90 160 30, center
edit "", 19, 93 132 80 30, center
edit "", 20, 93 182 80 30, center
edit "", 21, 93 232 80 30, center
edit " Girişte Oto Nick ident host Gzline Paneli ", 33, 10 276 490 23, center
list 22, 175 132 160 130, size
}
on *:dialog:zlnat:sclick:*:{
if ($did = 13) { set %NickZ Acık | set %identZ Acık | set %HostZ Acık | dialog -t zlnat Yasak Giriş Koruması AcıLdı. | did -e zlnat 9,1,2,19,20,21,33,22 }
if ($did = 14) { set %NickZ Kapalı | set %identZ Kapalı | set %HostZ Kapalı | dialog -t zlnat Yasak Giriş Koruması KapatıLdı. | did -b zlnat 9,1,2,19,20,21,33,22 }
}
on *:dialog:zlnat:init:0: {
if (%NickZ == Acık) { did -c zlnat 13 }
if (%NickZ == Kapalı) { did -c zlnat 14 }
.timerxa 1 2 did -r zlnat 9,1,2
mdx MarkDialog $dname
mdx SetDialog [ $dname ] bgcolor $rgb(28,134,238)
mdx SetColor 9,1,2,19,20,21,22,33 background $rgb(0,0,0)
mdx SetColor 9,1,2,19,20,21,22,33 textbg $rgb(0,0,0)
mdx SetColor $dname 9,1,2,19,20,21,22,33 text $rgb(255,0,0)
mdx SetFont 13,14,9,1,2,19,20,21,22,33 -11 700 Tahoma
mdx SetFont 33 -14 700 Tahoma
mdx SetColor 13,14 background $rgb(28,134,238)
mdx SetColor 13,14 textbg $rgb(28,134,238)
mdx SetColor $dname 13,14 text $rgb(255,0,0)
mdc BitBtn Create zlnat 2 10 20 162 31 > Nick Zline Ekle
mdc BitBtn Create zlnat 3 10 55 162 31 > Ident Zline Ekle
mdc BitBtn Create zlnat 4 10 90 162 31 > Host Zline Ekle
mdc BitBtn Create zlnat 5 337 20 162 31 > Nick Zline SiL
mdc BitBtn Create zlnat 6 337 55 162 31 > Ident Zline SiL
mdc BitBtn Create zlnat 7 337 90 162 31 > Host Zline SiL
mdc BitBtn Create zlnat 13 10 125 80 21 > Muaf N Ekle
mdc BitBtn Create zlnat 14 10 175 80 21 > Muaf i Ekle
mdc BitBtn Create zlnat 15 10 225 80 21 > Muaf H Ekle
mdc BitBtn Create zlnat 16 10 150 80 21 > Muaf N Sil
mdc BitBtn Create zlnat 17 10 200 80 21 > Muaf i Sil
mdc BitBtn Create zlnat 18 10 250 80 21 > Muaf H Sil
mdc BitBtn Create zlnat 26 337 125 80 21 > Muaf N list
mdc BitBtn Create zlnat 27 337 175 80 21 > Muaf i list
mdc BitBtn Create zlnat 28 337 225 80 21 > Muaf H list
mdc BitBtn Create zlnat 29 337 150 80 21 > Yasak N list
mdc BitBtn Create zlnat 30 337 200 80 21 > Yasak i list
mdc BitBtn Create zlnat 31 337 250 80 21 > Yasak H list
mdc BitBtn Create zlnat 8 420 125 79 97 > Kapat
mdc BitBtn Color 2 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 2 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 3 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 3 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 4 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 4 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 5 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 5 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 6 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 6 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 7 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 7 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 8 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 8 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 13 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 13 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 14 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 14 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 15 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 15 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 16 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 16 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 17 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 17 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 18 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 18 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 26 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 26 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 27 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 27 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 28 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 28 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
mdc BitBtn Color 29 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 29 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
mdc BitBtn Color 30 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 30 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
mdc BitBtn Color 31 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(20,180,255) $rgb(122,233,20)
mdc BitBtn downcolor 31 $rgb(25,2,22) $rgb(6,135,5) $rgb(130,25,255) $rgb(2,5,255) $rgb(2,10,220)
mdc BitBtn Font 2 $rgb(240,240,240) 9 +b > Tahoma
mdc BitBtn Font 3 $rgb(240,240,240) 9 +b > Tahoma
mdc BitBtn Font 4 $rgb(240,240,240) 9 +b > Tahoma
mdc BitBtn Font 5 $rgb(240,240,240) 9 +b > Tahoma
mdc BitBtn Font 6 $rgb(240,240,240) 9 +b > Tahoma
mdc BitBtn Font 7 $rgb(240,240,240) 9 +b > Tahoma
mdc BitBtn Font 8 $rgb(240,240,240) 14 +b > Tahoma
mdc BitBtn Font 13 $rgb(240,240,240) 7 +b > Tahoma
mdc BitBtn Font 14 $rgb(240,240,240) 7 +b > Tahoma
mdc BitBtn Font 15 $rgb(240,240,240) 7 +b > Tahoma
mdc BitBtn Font 16 $rgb(240,240,240) 7 +b > Tahoma
mdc BitBtn Font 17 $rgb(240,240,240) 7 +b > Tahoma
mdc BitBtn Font 18 $rgb(240,240,240) 7 +b > Tahoma
mdc BitBtn Font 26 $rgb(255,252,252) 7 +b > Tahoma
mdc BitBtn Font 27 $rgb(255,252,252) 7 +b > Tahoma
mdc BitBtn Font 28 $rgb(255,252,252) 7 +b > Tahoma
mdc BitBtn Font 29 $rgb(255,252,252) 7 +b > Tahoma
mdc BitBtn Font 30 $rgb(255,252,252) 7 +b > Tahoma
mdc BitBtn Font 31 $rgb(255,252,252) 7 +b > Tahoma
did -f $dname 9
}
on *:signal:mdc: {
if ($2 == zlnat) && ($3 == sclick) && ($4 == 2) { .auser NickZ $did(zlnat,9) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,9) 4 Nick 0zLine liste Eklendi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 3) { .auser identZ $did(zlnat,1) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,1) 4 identi 0zLine liste Eklendi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 4) { .auser HostZ $did(zlnat,2) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,2) 4 Hostu 0zLine liste Eklendi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 5) { .ruser NickZ $did(zlnat,9) | echo -a 0,1 4 SiLme işLemi7 $did(zlnat,9) 11 Nick 0zLine listesinden SiLindi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 6) { .ruser identZ $did(zlnat,1) | echo -a 0,1 4 SiLme işLemi7 $did(zlnat,1) 11 ident 0zLine listesinden SiLindi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 7) { .ruser HostZ $did(zlnat,2) | echo -a 0,1 4 SiLme işLemi7 $did(zlnat,2) 11 Host 0zLine listesinden SiLindi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 8) { .timer 1 0 dialog -x zlnat }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 13) { .auser Muafnick $did(zlnat,19) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,19) 4 Nick 0Muaf liste Eklendi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 14) { .auser Muafident $did(zlnat,20) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,20) 4 ident 0Muaf liste Eklendi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 15) { .auser Muafhost $did(zlnat,21) | echo -a 0,1 4 Ekleme işLemi11 $did(zlnat,21) 4 Host 0Muaf liste Eklendi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 16) { .ruser Muafnick $did(zlnat,19) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,19) 4 Nick 0Muaf listesinden SiLindi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 17) { .ruser Muafident $did(zlnat,20) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,20) 4 ident 0Muaf listesinden SiLindi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 18) { .ruser Muafhost $did(zlnat,21) | echo -a 0,1 4 SiLme işLemi11 $did(zlnat,21) 4 Host 0Muaf listesinden SiLindi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 26) { .m.nick | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,19) 4 Nick 0Muaf listesi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 27) { .m.ident | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,20) 4 ident 0Muaf listesi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 28) { .m.host | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,21) 4 Host 0Muaf listesi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 29) { .y.nick | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,19) 4 Nick 0Yasak listesi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 30) { .y.ident | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,20) 4 ident 0Yasak listesi. }
if ($2 == zlnat) && ($3 == sclick) && ($4 == 31) { .y.host | echo -a 0,1 4 Listeleme işLemi11 $did(zlnat,21) 4 Host 0Yasak listesi. }
}
on *:snotice:*connecting on*: {
if ($level($9) == muafnick) { halt }
if (connecting isin $1-) {
if (%nickZ == Acık) {
var %:ip $remove($gettok($10,2,64),$chr(41))
if $level($9) = NickZ { gzline $+(*@,%:ip) 1d YasakLı Nick | halt }
}
if (%identZ == Acık) {
var %:idnt $remove($gettok($10,1,64),$chr(40))
if ($level(%:idnt) == muafident) { halt }
if $level(%:idnt) = identZ { gzline $+(*@,%:ip) 1d YasakLı ident | halt }
}
if (%HostZ == Acık) {
if ($level(%:ip) == muafhost) { halt }
if $level(%:ip) = HostZ { gzline $+(*@,%:ip) 1d YasakLı Host | halt }
}
}
}
;Yasak list
alias y.nick {
did -r zlnat 22
did -a zlnat 22 : Yasak Nick Listesi :
var %x = 1
while (%x <= $ulist(*,nickz,0)) {
did -a zlnat 22 ) $ulist(*,nickz,%x)
inc %x
}
}
alias y.ident {
did -r zlnat 22
did -a zlnat 22 : Yasak Ident Listesi :
var %xx = 1
while (%xx <= $ulist(*,identz,0)) {
did -a zlnat 22 ) $ulist(*,identz,%xx)
inc %xx
}
}
alias y.host {
did -r zlnat 22
did -a zlnat 22 : Yasak Host Listesi :
var %xxx = 1
while (%xxx <= $ulist(*,hostz,0)) {
did -a zlnat 22 ) $ulist(*,hostz,%xxx)
inc %xxx
}
}
;Muaf list
alias m.nick {
did -r zlnat 22
did -a zlnat 22 : Muaf Nick Listesi :
var %ax = 1
while (%ax <= $ulist(*,muafnick,0)) {
did -a zlnat 22 ) $ulist(*,muafnick,%ax)
inc %ax
}
}
alias m.ident {
did -r zlnat 22
did -a zlnat 22 : Muaf Ident Listesi :
var %axx = 1
while (%axx <= $ulist(*,muafident,0)) {
did -a zlnat 22 ) $ulist(*,muafident,%axx)
inc %axx
}
}
alias m.host {
did -r zlnat 22
did -a zlnat 22 : Muaf Host Listesi :
var %axxx = 1
while (%axxx <= $ulist(*,muafhost,0)) {
did -a zlnat 22 ) $ulist(*,muafHost,%axxx)
inc %axxx
}
}
menu * {
Gzline Paneli:/a.b }
bu kodu mirc üzerinde kalışır hale getirebilecek varmı ?

Yasakkk 28 Eylül 2022 01:20
Cevap: oto zline ekleme - oto nick değiştirme
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] görsel]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Ekran görüntüsü paylaştım

Forbidden 28 Eylül 2022 04:07
Cevap: oto zline ekleme - oto nick değiştirme
 
Toplam 1 Eklenti bulunuyor.
Alıntı:
Yasakkk Nickli Üyeden Alıntı (Mesaj 1042722502)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] görsel]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Ekran görüntüsü paylaştım
Sana orada dll klasöründe mdx.dll si olmadıgını söylüyor altda verdigim ekden indirip rardan cıkar klasörü mircin dosya bölümüne atıp tekrar acmayı dene.
Yalnız o kodda mdc.dll si de gerekiyor o bende yok.

Forbidden 28 Eylül 2022 04:34
Cevap: oto zline ekleme - oto nick değiştirme
 
Alıntı:
Yasakkk Nickli Üyeden Alıntı (Mesaj 1042721925)
Merhaba

Arkadaşlar kısaca anlatayım sunucuya istemediğimiz Ip Adresleri giriyor bu Ip adresini,ve indentini oto zline eklemek istiyorum nasıl yapabilirim ? Remote olarak
1 diğer sorunum ise oto nick değiştirme remotesi varmı yada yapabilirmiyiz misal !ekle abaza bu nick sunucuya giriş yaptığında oto olarak mircim abaza nickini misafir olarak değiştirsin
Diğer sorum ise T-blok banlarını biliyorsunuzdur bu t-blok banlarını remoteye ekleye bilirmiyiz Okuyan zahmet edip cevap yazan herkese teşekkür ederim

Buda istedigin tblock kodu +tmodeall kelime ekler -tmodeall kelime siler

Kod:
alias _kanal return #Sohbet #Radyo #Oyun #Kelime #Yarisma
on *:input:#opers:{
  if $regex($1,/^[+]tmodeall$/Si) {
    var %:md = $token($_kanal,0,32) | while %:md {
      .mode $token($_kanal,%:md,32) +b ~T:block: $+ $2
      dec %:md
    }
  }
  if $regex($1,/^[-]tmodeall$/Si) {
    var %:md = $token($_kanal,0,32) | while %:md {
      .mode $token($_kanal,%:md,32) -b ~T:block: $+ $2
      dec %:md
    }
  }
}
Tüm modeleri kullanmak istersen eger
Kod:
alias _kanal return #Sohbet #Radyo #Oyun #Kelime #Yarisma
on *:text:*:#Opers:{
  if $regex($1,/^[!.-]modeal$/Si) {
    if !$regex($2,/^[+-]/Si) { msg # Lütfen mode belirtiniz. Kullanımı:4 [!.]modeal [+-]<MODLAR> }
    else {
      var %:md = $token($_kanal,0,32) | while %:md {
        mode $token($_kanal,%:md,32) $strip($2-)     
        dec %:md
      }
      msg # Global kanallarda $strip($2-) modları uygulanmıştır.
    }
  }
}
Kodun tamamı @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ait.

aLone 28 Eylül 2022 07:04
Cevap: oto zline ekleme - oto nick değiştirme
 
buradan indirebilirsin [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Yasakkk 28 Eylül 2022 13:51
Cevap: oto zline ekleme - oto nick değiştirme
 
İlgi ve alakanıza teşekkür ederim kodları ekleyip geri sizlere geri dönüş yapacağım

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:41 -->-> Daha önceki mesaj 13:36 --

İlgi ve alakana teşekkür ederim sağolasın

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:51 -->-> Daha önceki mesaj 13:41 --

söylediğiniz gibi mirc klasörünü açtım dlls klasörüne girdim linkdeki mdx.dll,mdc.dll buraya kopyaladım ekran görüntüsü aynı değişmedi statüs de verdiği hatayı aşağıda belirttim

* $dll: 'C:\TurkishChat Script\dll\mdx.dll' Açılamıyor (Satır 2, script14.Kadir)

Forbidden 28 Eylül 2022 13:59
Cevap: oto zline ekleme - oto nick değiştirme
 
Alıntı:
Yasakkk Nickli Üyeden Alıntı (Mesaj 1042722594)
İlgi ve alakanıza teşekkür ederim kodları ekleyip geri sizlere geri dönüş yapacağım

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:41 -->-> Daha önceki mesaj 13:36 --

İlgi ve alakana teşekkür ederim sağolasın

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:51 -->-> Daha önceki mesaj 13:41 --

söylediğiniz gibi mirc klasörünü açtım dlls klasörüne girdim linkdeki mdx.dll,mdc.dll buraya kopyaladım ekran görüntüsü aynı değişmedi statüs de verdiği hatayı aşağıda belirttim

* $dll: 'C:\TurkishChat Script\dll\mdx.dll' Açılamıyor (Satır 2, script14.Kadir)
Canım kardesim sana yukarda anlatmıstım aslında. aLone verdigi klasörü indir ac mirc dosyasına dll klasörü ekle icine at sonra kodu calistir

Yasakkk 28 Eylül 2022 20:10
Cevap: oto zline ekleme - oto nick değiştirme
 
Hallettim kusura bakma hocam sizlere zahmet verdim sağolun teşekkür ederim

Yasakkk 29 Eylül 2022 01:43
Cevap: oto zline ekleme - oto nick değiştirme
 
Arkadaşım bir sorum daha olacak resimde gördüğü gibi host eklenin altına bir buton daha ekleyip Ip adresine zline ekleme yapabilirmiyiz fakat biraz farklı misal
@78.182.129.183 İp adresi ben bunu @78.182.129.* yıldız koyduğum yere hangi numara alırsa alsın zline atılsın istiyorum
saldırıları engellemek için genelde son 3 hane yada 4 hane değişiyor yani * koyduğum yerden sonrasına hangi rakamı alırsa zline atılsın mümkünmüdür böyle bir kodu resimdeki addonun içine eklemek

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 01:33 -->-> Daha önceki mesaj 00:19 --

Alıntı:
Yasakkk Nickli Üyeden Alıntı (Mesaj 1042722698)
Arkadaşım bir sorum daha olacak resimde gördüğü gibi host eklenin altına bir buton daha ekleyip Ip adresine zline ekleme yapabilirmiyiz fakat biraz farklı misal
@78.182.129.183 İp adresi ben bunu @78.182.129.* yıldız koyduğum yere hangi numara alırsa alsın zline atılsın istiyorum
saldırıları engellemek için genelde son 3 hane yada 4 hane değişiyor yani * koyduğum yerden sonrasına hangi rakamı alırsa zline atılsın mümkünmüdür böyle bir kodu resimdeki addonun içine eklemek
bir nevi tblok banı gibi düşüne biliriz +b ~q:*!*@37.155.130.* gibi bunun zline olan şekli

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 01:43 -->-> Daha önceki mesaj 01:33 --

Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1042722416)
Şu Konuya bir göz at istersen [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Arkadaşım bir sorum daha olacak resimde gördüğü gibi host eklenin altına bir buton daha ekleyip Ip adresine zline ekleme yapabilirmiyiz fakat biraz farklı misal
@78.182.129.183 İp adresi ben bunu @78.182.129.* yıldız koyduğum yere hangi numara alırsa alsın zline atılsın istiyorum
saldırıları engellemek için genelde son 3 hane yada 4 hane değişiyor yani * koyduğum yerden sonrasına hangi rakamı alırsa zline atılsın mümkünmüdür böyle bir kodu resimdeki addonun içine eklemek

Forbidden 29 Eylül 2022 02:56
Cevap: oto zline ekleme - oto nick değiştirme
 
Alıntı:
Yasakkk Nickli Üyeden Alıntı (Mesaj 1042722698)
Arkadaşım bir sorum daha olacak resimde gördüğü gibi host eklenin altına bir buton daha ekleyip Ip adresine zline ekleme yapabilirmiyiz fakat biraz farklı misal
@78.182.129.183 İp adresi ben bunu @78.182.129.* yıldız koyduğum yere hangi numara alırsa alsın zline atılsın istiyorum
saldırıları engellemek için genelde son 3 hane yada 4 hane değişiyor yani * koyduğum yerden sonrasına hangi rakamı alırsa zline atılsın mümkünmüdür böyle bir kodu resimdeki addonun içine eklemek

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 01:33 -->-> Daha önceki mesaj 00:19 --



bir nevi tblok banı gibi düşüne biliriz +b ~q:*!*@37.155.130.* gibi bunun zline olan şekli

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 01:43 -->-> Daha önceki mesaj 01:33 --



Arkadaşım bir sorum daha olacak resimde gördüğü gibi host eklenin altına bir buton daha ekleyip Ip adresine zline ekleme yapabilirmiyiz fakat biraz farklı misal
@78.182.129.183 İp adresi ben bunu @78.182.129.* yıldız koyduğum yere hangi numara alırsa alsın zline atılsın istiyorum
saldırıları engellemek için genelde son 3 hane yada 4 hane değişiyor yani * koyduğum yerden sonrasına hangi rakamı alırsa zline atılsın mümkünmüdür böyle bir kodu resimdeki addonun içine eklemek

Eger ki proxy saldırılarında yapmak istiyorsan koda gerek yok. Hem sen yokken de proxy saldırı olabilir.
Spam eklemek en dogrusudur.


Bu sekilde tek tek ekleyebilirsin.

Kod:
/spamfilter add u gzline - Proxy. ^(.+!.+@193.148.+:.+)$
Bu sekilde yan yana toplu eklersin. Proxy girisli ipler atılmıs olur.

Kod:
/spamfilter add u gzline - Proxy ^(.+!.+@161.97.+:.+)$|^(.+!.+@185.112.+:.+)$|^(.+!.+@46.166.+:.+)$

aLone 29 Eylül 2022 16:55
Cevap: oto zline ekleme - oto nick değiştirme
 
Spamfilter kullanabilirsin, Forbidden paylaşmış. Kod üzerinde kullanmak istersende Wildcard kullanabilirsin

Örnek Nick : *Ahmet*
Örnek İdent: *Mirctr*
Örnek Host: *85.78*

İçinde geçenler = *merhaba*
Bitenler = *merhaba
başlayanlar = *merhaba

Wildcard hakkında paylaşımlar yapılmış incelersen çok faydasını görürsün. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Yasakkk 29 Eylül 2022 19:02
Cevap: oto zline ekleme - oto nick değiştirme
 
Alıntı:
aLone Nickli Üyeden Alıntı (Mesaj 1042722820)
Spamfilter kullanabilirsin, Forbidden paylaşmış. Kod üzerinde kullanmak istersende Wildcard kullanabilirsin

Örnek Nick : *Ahmet*
Örnek İdent: *Mirctr*
Örnek Host: *85.78*

İçinde geçenler = *merhaba*
Bitenler = *merhaba
başlayanlar = *merhaba

Wildcard hakkında paylaşımlar yapılmış incelersen çok faydasını görürsün. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kral adamsın eyvallah teşekkür ederim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:02 -->-> Daha önceki mesaj 19:01 --

Alıntı:
Forbidden Nickli Üyeden Alıntı (Mesaj 1042722712)
Eger ki proxy saldırılarında yapmak istiyorsan koda gerek yok. Hem sen yokken de proxy saldırı olabilir.
Spam eklemek en dogrusudur.


Bu sekilde tek tek ekleyebilirsin.

Kod:
/spamfilter add u gzline - Proxy. ^(.+!.+@193.148.+:.+)$
Bu sekilde yan yana toplu eklersin. Proxy girisli ipler atılmıs olur.

Kod:
/spamfilter add u gzline - Proxy ^(.+!.+@161.97.+:.+)$|^(.+!.+@185.112.+:.+)$|^(.+!.+@46.166.+:.+)$
Kod çok güzel bunu addona ekleme şansımız olsa çok iyi olurdu

Forbidden 30 Eylül 2022 16:07
Cevap: oto zline ekleme - oto nick değiştirme
 
Alıntı:
Yasakkk Nickli Üyeden Alıntı (Mesaj 1042722844)
Kral adamsın eyvallah teşekkür ederim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:02 -->-> Daha önceki mesaj 19:01 --



Kod çok güzel bunu addona ekleme şansımız olsa çok iyi olurdu
Örnek: Yasaklanacak ip 193.148.19.242

Kod:
[15:57:28] <&Forbidden> !spamekle 193.148.
[15:57:29] <&Forbidden>  Forbidden Yasakladıgınız ip adres 193.148. Spamfiltere eklenmiştir.
[15:57:45] [S-NOTİCE]  *** G:Line added for *@193.148.19.242 on Fri Sep 30 15:57:44 2022 GMT (from webirc.******.com to expire at Sat Oct 1 15:57:44 2022 GMT: Yasak)
Kod:
[15:58:22] <&Forbidden> !spamsil 193.148.
[15:58:24] <&Forbidden> Yasakladıgınız ip adres 193.148. Spamfilterden silinmiştir.
Kod;
Kod:
on *:input:*: {
  if $regex($1,/^[.!]spamekle$/Si) {
    if !$2 { msg $chan 4 $+ $nick 1Hatalı kullanım lütfen 1[4.!1]4!spamekle ip 1şeklinde kullanın. | halt }
    /spamfilter add u gline - 4Yasak1 ^(.+!.+@ $+ $2- $+ +:.+)$
  msg $chan 4 $nick 1Yasakladıgınız ip adres4 $2 1Spamfiltere eklenmiştir.
  }
  if $regex($1,/^[.!]spamsil$/Si) {
    if !$2 { msg $chan 4 $+ $nick 1Hatalı kullanım lütfen 1[12.!1]4!spamsil ip 1şeklinde kullanın. | halt }
    /spamfilter del u gline - 4Yasak1 ^(.+!.+@ $+ $2- $+ +:.+)$
  msg $chan 12 $nick 1Yasakladıgınız ip adres12 $2 1Spamfilterden silinmiştir.
  }
}

Yasakkk 01 Ekim 2022 00:28
Cevap: oto zline ekleme - oto nick değiştirme
 
Alıntı:
Forbidden Nickli Üyeden Alıntı (Mesaj 1042722989)
Örnek: Yasaklanacak ip 193.148.19.242

Kod:
[15:57:28] <&Forbidden> !spamekle 193.148.
[15:57:29] <&Forbidden>  Forbidden Yasakladıgınız ip adres 193.148. Spamfiltere eklenmiştir.
[15:57:45] [S-NOTİCE]  *** G:Line added for *@193.148.19.242 on Fri Sep 30 15:57:44 2022 GMT (from webirc.******.com to expire at Sat Oct 1 15:57:44 2022 GMT: Yasak)
Kod:
[15:58:22] <&Forbidden> !spamsil 193.148.
[15:58:24] <&Forbidden> Yasakladıgınız ip adres 193.148. Spamfilterden silinmiştir.
Kod;
Kod:
on *:input:*: {
  if $regex($1,/^[.!]spamekle$/Si) {
    if !$2 { msg $chan 4 $+ $nick 1Hatalı kullanım lütfen 1[4.!1]4!spamekle ip 1şeklinde kullanın. | halt }
    /spamfilter add u gline - 4Yasak1 ^(.+!.+@ $+ $2- $+ +:.+)$
  msg $chan 4 $nick 1Yasakladıgınız ip adres4 $2 1Spamfiltere eklenmiştir.
  }
  if $regex($1,/^[.!]spamsil$/Si) {
    if !$2 { msg $chan 4 $+ $nick 1Hatalı kullanım lütfen 1[12.!1]4!spamsil ip 1şeklinde kullanın. | halt }
    /spamfilter del u gline - 4Yasak1 ^(.+!.+@ $+ $2- $+ +:.+)$
  msg $chan 12 $nick 1Yasakladıgınız ip adres12 $2 1Spamfilterden silinmiştir.
  }
}
çok teşekkür ederim olduk hızlı geri dönüş yapıyorsunuz çok sağolun

Yasakkk 06 Ekim 2022 18:11
Cevap: oto zline ekleme - oto nick değiştirme
 
Alıntı:
Yasakkk Nickli Üyeden Alıntı (Mesaj 1042723082)
çok teşekkür ederim olduk hızlı geri dönüş yapıyorsunuz çok sağolun
Yeniden selam hızlı ve sorunsuz cevap verdiğiniz için size sormak istiyorum forumda araştırdım buldum fakat çalıştıramadım mircin remote kısmanına !sicil ekle !sicil sil !sicil listele !islemler gibi bir kod varmı benim belirdeğim kanalda ben nick'im aktif olduğu süre çalışsın belirlediğim kanalda her kim bu işlemi uygularsa sorunsuz çalışsın şimdiden teşekkür ederim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:11 -->-> Daha önceki mesaj 18:10 --

Yeniden selam hızlı ve sorunsuz cevap verdiğiniz için size sormak istiyorum forumda araştırdım buldum fakat çalıştıramadım mircin remote kısmanına !sicil ekle !sicil sil !sicil listele !islemler gibi bir kod varmı benim belirdeğim kanalda ben nick'im aktif olduğu süre çalışsın belirlediğim kanalda her kim bu işlemi uygularsa sorunsuz çalışsın şimdiden teşekkür ederim

Subzero 06 Ekim 2022 23:54
Cevap: oto zline ekleme - oto nick değiştirme
 
Kod:
on *:input:*: {
  if $1 == .Hayir && %rcsil { msg $chan Islem iptal edildi. | unset %rcsil | return }
  if $1 == .Evet && %rcsil { msg $chan [SicilDepo/ $+ %rcsil $+ ] $2 nickine ait sicil kayitlari silinmistir. | .remove RC/ $+ %rcsil $+ .txt | unset %rcsil }
  if $1 == .sicil {
    if $2 == bilgi {
      .msg $chan 4-
      .msg $chan 4- 4--- Nick sicil kaydi sistemi kullanim sekli 4---
      .msg $chan 4-
      .msg $chan 4- .Sicil list -> (Sistemdeki nickleri listeler)
      .msg $chan 4- .Sicil ekle Nick mesajiniz -> (Nick'e Sicil kaydi ekler)
      .msg $chan 4- .Sicil oku Nick -> (Nick'in Sicil kaydini okur)
      .msg $chan 4- .Sicil sil Nick -> (Nicke ait Sicil kayitlarini siler) Not : Sadece Help Founder kullanabilir.
      .msg $chan 4-
      .msg $chan 4- 4Not : Eklediginiz Sicil kayitlari örnekteki gibi olmalidir.
      .msg $chan 4-
      .msg $chan 4- 4Örnek : .Sicil ekle XX Nicki #help kanalında Küfür ettiÄŸi için Silindi.
      .msg $chan 4-
      return
    }
    if $2 == list {
      if $findfile($mircdirrc,*.txt,0) == 0 {
        .msg $chan Hata! Sicil kaydi deposu bos.
      }
      else {
        .msg $chan [SicilDepo/ $+ $nick $+ ] - Sicil kaydi deposu kontrol ediliyor...
        var %a = 1
        while $findfile($mircdirrc,*.txt,%a) {
          msg $chan $gettok($nopath($v1),1,46) : nickine ait sicil kaydi vardir. Okumak icin .sicil oku $gettok($nopath($v1),1,46) yapiniz.
          inc %a
        }
      }
    }
    if $2 == ekle {
      if $4 == $null { .msg $chan Lütfen kayit giriniz. }
      else { !$exists(RC) { mkdir RC }
        .write RC/ $+ $3 $+ .txt *  [ $date - $time - $3 ] : $4- [Ekleyen: $nick ]
        .write RC/ $+ $3 $+ .txt -
        .msg $chan [SicilDepo/ $+ $nick $+ ] $3 nickine sicil kaydi girilmistir..
      }
    }
    if $2 == oku {
      if !$file(RC/ $+ $3- $+ .txt) {
        .msg $chan $+ $3 $+ kayitli sicil kaydi bulunamadi.
      }
      else {
        .msg $chan [SicilDepo/ $+ $nick $+ ] - $3- nicki sicil dosyasi kontrol ediliyor...
        saydir $2-
      }
    }     
    if $2 == sil {
      if !$read(hfounder.txt,w,$nick) { .msg $chan Bu komutu kullanmaya yetkili degilsiniz. Bir nickin sicil kaydini sadece Help Founder silebilir $nick $+ . }
      elseif !$isfile(RC/ $+ $3- $+ .txt) {
        .msg $chan Hata! $2 nicki sicil dosyasi bulunamadi.
      }
      else {
        .msg $chan UYARI! Bu komut ile $3 nickine ait bütün sicil kaydini silersiniz.
        .msg $chan Uygulamaya devam etmek istiyorsaniz ; .Evet ,
        .msg $chan Uygulamayi iptal etmek istiyorsaniz ; .Hayir yaziniz.
        .set -e %rcsil $3
      }
    }
  }
}
Dene Bakalım Denemedim.

Yasakkk 07 Ekim 2022 13:48
Cevap: oto zline ekleme - oto nick değiştirme
 
Alıntı:
Subzero Nickli Üyeden Alıntı (Mesaj 1042724483)
Kod:
on *:input:*: {
  if $1 == .Hayir && %rcsil { msg $chan Islem iptal edildi. | unset %rcsil | return }
  if $1 == .Evet && %rcsil { msg $chan [SicilDepo/ $+ %rcsil $+ ] $2 nickine ait sicil kayitlari silinmistir. | .remove RC/ $+ %rcsil $+ .txt | unset %rcsil }
  if $1 == .sicil {
    if $2 == bilgi {
      .msg $chan 4-
      .msg $chan 4- 4--- Nick sicil kaydi sistemi kullanim sekli 4---
      .msg $chan 4-
      .msg $chan 4- .Sicil list -> (Sistemdeki nickleri listeler)
      .msg $chan 4- .Sicil ekle Nick mesajiniz -> (Nick'e Sicil kaydi ekler)
      .msg $chan 4- .Sicil oku Nick -> (Nick'in Sicil kaydini okur)
      .msg $chan 4- .Sicil sil Nick -> (Nicke ait Sicil kayitlarini siler) Not : Sadece Help Founder kullanabilir.
      .msg $chan 4-
      .msg $chan 4- 4Not : Eklediginiz Sicil kayitlari örnekteki gibi olmalidir.
      .msg $chan 4-
      .msg $chan 4- 4Örnek : .Sicil ekle XX Nicki #help kanalında Küfür ettiÄŸi için Silindi.
      .msg $chan 4-
      return
    }
    if $2 == list {
      if $findfile($mircdirrc,*.txt,0) == 0 {
        .msg $chan Hata! Sicil kaydi deposu bos.
      }
      else {
        .msg $chan [SicilDepo/ $+ $nick $+ ] - Sicil kaydi deposu kontrol ediliyor...
        var %a = 1
        while $findfile($mircdirrc,*.txt,%a) {
          msg $chan $gettok($nopath($v1),1,46) : nickine ait sicil kaydi vardir. Okumak icin .sicil oku $gettok($nopath($v1),1,46) yapiniz.
          inc %a
        }
      }
    }
    if $2 == ekle {
      if $4 == $null { .msg $chan Lütfen kayit giriniz. }
      else { !$exists(RC) { mkdir RC }
        .write RC/ $+ $3 $+ .txt *  [ $date - $time - $3 ] : $4- [Ekleyen: $nick ]
        .write RC/ $+ $3 $+ .txt -
        .msg $chan [SicilDepo/ $+ $nick $+ ] $3 nickine sicil kaydi girilmistir..
      }
    }
    if $2 == oku {
      if !$file(RC/ $+ $3- $+ .txt) {
        .msg $chan $+ $3 $+ kayitli sicil kaydi bulunamadi.
      }
      else {
        .msg $chan [SicilDepo/ $+ $nick $+ ] - $3- nicki sicil dosyasi kontrol ediliyor...
        saydir $2-
      }
    }     
    if $2 == sil {
      if !$read(hfounder.txt,w,$nick) { .msg $chan Bu komutu kullanmaya yetkili degilsiniz. Bir nickin sicil kaydini sadece Help Founder silebilir $nick $+ . }
      elseif !$isfile(RC/ $+ $3- $+ .txt) {
        .msg $chan Hata! $2 nicki sicil dosyasi bulunamadi.
      }
      else {
        .msg $chan UYARI! Bu komut ile $3 nickine ait bütün sicil kaydini silersiniz.
        .msg $chan Uygulamaya devam etmek istiyorsaniz ; .Evet ,
        .msg $chan Uygulamayi iptal etmek istiyorsaniz ; .Hayir yaziniz.
        .set -e %rcsil $3
      }
    }
  }
}
Dene Bakalım Denemedim.
Kodu remote ye eklememiz yeterlimi birde sadece help kanalındamı çalışıyor

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:48 -->-> Daha önceki mesaj 13:27 --

Alıntı:
Subzero Nickli Üyeden Alıntı (Mesaj 1042724483)
Kod:
on *:input:*: {
  if $1 == .Hayir && %rcsil { msg $chan Islem iptal edildi. | unset %rcsil | return }
  if $1 == .Evet && %rcsil { msg $chan [SicilDepo/ $+ %rcsil $+ ] $2 nickine ait sicil kayitlari silinmistir. | .remove RC/ $+ %rcsil $+ .txt | unset %rcsil }
  if $1 == .sicil {
    if $2 == bilgi {
      .msg $chan 4-
      .msg $chan 4- 4--- Nick sicil kaydi sistemi kullanim sekli 4---
      .msg $chan 4-
      .msg $chan 4- .Sicil list -> (Sistemdeki nickleri listeler)
      .msg $chan 4- .Sicil ekle Nick mesajiniz -> (Nick'e Sicil kaydi ekler)
      .msg $chan 4- .Sicil oku Nick -> (Nick'in Sicil kaydini okur)
      .msg $chan 4- .Sicil sil Nick -> (Nicke ait Sicil kayitlarini siler) Not : Sadece Help Founder kullanabilir.
      .msg $chan 4-
      .msg $chan 4- 4Not : Eklediginiz Sicil kayitlari örnekteki gibi olmalidir.
      .msg $chan 4-
      .msg $chan 4- 4Örnek : .Sicil ekle XX Nicki #help kanalında Küfür ettiÄŸi için Silindi.
      .msg $chan 4-
      return
    }
    if $2 == list {
      if $findfile($mircdirrc,*.txt,0) == 0 {
        .msg $chan Hata! Sicil kaydi deposu bos.
      }
      else {
        .msg $chan [SicilDepo/ $+ $nick $+ ] - Sicil kaydi deposu kontrol ediliyor...
        var %a = 1
        while $findfile($mircdirrc,*.txt,%a) {
          msg $chan $gettok($nopath($v1),1,46) : nickine ait sicil kaydi vardir. Okumak icin .sicil oku $gettok($nopath($v1),1,46) yapiniz.
          inc %a
        }
      }
    }
    if $2 == ekle {
      if $4 == $null { .msg $chan Lütfen kayit giriniz. }
      else { !$exists(RC) { mkdir RC }
        .write RC/ $+ $3 $+ .txt *  [ $date - $time - $3 ] : $4- [Ekleyen: $nick ]
        .write RC/ $+ $3 $+ .txt -
        .msg $chan [SicilDepo/ $+ $nick $+ ] $3 nickine sicil kaydi girilmistir..
      }
    }
    if $2 == oku {
      if !$file(RC/ $+ $3- $+ .txt) {
        .msg $chan $+ $3 $+ kayitli sicil kaydi bulunamadi.
      }
      else {
        .msg $chan [SicilDepo/ $+ $nick $+ ] - $3- nicki sicil dosyasi kontrol ediliyor...
        saydir $2-
      }
    }     
    if $2 == sil {
      if !$read(hfounder.txt,w,$nick) { .msg $chan Bu komutu kullanmaya yetkili degilsiniz. Bir nickin sicil kaydini sadece Help Founder silebilir $nick $+ . }
      elseif !$isfile(RC/ $+ $3- $+ .txt) {
        .msg $chan Hata! $2 nicki sicil dosyasi bulunamadi.
      }
      else {
        .msg $chan UYARI! Bu komut ile $3 nickine ait bütün sicil kaydini silersiniz.
        .msg $chan Uygulamaya devam etmek istiyorsaniz ; .Evet ,
        .msg $chan Uygulamayi iptal etmek istiyorsaniz ; .Hayir yaziniz.
        .set -e %rcsil $3
      }
    }
  }
}
Dene Bakalım Denemedim.
Remote kısmına ekledim çalıştıramadım


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:52.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk