Add-on ve snippet(parça) kod istekleri buraya - Sayfa 14 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

KuL · 02 Nisan 2015, 11:34

mikropp Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Merhaba Arkadaşlar.

Sunucuya Giriş yaptığım zaman #op2 #op #sop2 #Destekyönetim ( Nickimdeki memolar ) ayrı pencerede Otomatik dizilsin
Mümkün mü ?

Tesekkür ederim

Sunucuya girer girmez, Nickinizi Identify edip o Kanalara Ersiminizin olmasi ne kadar sürer bilmiyorum. O yüzden #op Kanalina girer girmez calisacaktir Kod, böylecede Nickinizi Identify etdiginizden emin de olmus olabiliriz. Yani Memolara bakmada Sorun yasamazsiniz.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on me:*:join:#op: { 
  enable #memolistem
  timer 1 1 ms list
  timer 1 2 ms list #op
  timer 1 3 ms list #op2
  timer 1 4 ms list #sop2
  timer 1 5 ms list #destekyönetim
  timer 1 10 disable #memolistem
}
#memolistem off
on ^*:notice:*:*:{
  if ($nick == MemoServ) && ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim) == $null) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim }
  if *nick?ine?ait?notlar* iswm $1- { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim 4Nickinize 1Ait Memolar Siralaniyor... Okumak icin: ( 4/ms read numara1 ) - Silmek icin: ( 4/ms del numara1 ) }
  if *kanal??i?in?notlar?var* iswm $1- { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim 4 $1 1Kanalina Ait Memolar Siralaniyor... Okumak icin: ( 4/ms read $1 numara1 ) - Silmek icin: ( 4/ms del $1 numara1 ) }
  if *EEST* iswm $1- { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim 1(4 $11) 1Numarali Memo - Gönderen: 1(4 $2 1) - Tarih: 1(4 $4 $+ : $+ $3 $+ : $+ $6 4)1 - Saat: (4 $5 1) }
  halt
}
#memolistem end

Görünümüde böyle oluyor:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

Nickinize Ait Memolar Siralaniyor... Okumak icin: ( /ms read numara ) - Silmek icin: ( /ms del numara )
( 1) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 09:55:30 )
( 2) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 09:56:04 )
( 3) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 09:56:09 )
( 4) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 10:09:56 )
( 5) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 10:09:59 )
( 6) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 10:10:02 )
 #testt Kanalina Ait Memolar Siralaniyor... Okumak icin: ( /ms read #testt numara ) - Silmek icin: ( /ms del #testt numara )
( 1) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 09:53:37 )
( 2) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 10:09:25 )

Not: Eger Nickinizde yada herhangi bir Kanalda Memo yok ise, ozaman onu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim Penceresinde göstermiyecektir. Sadece Memosu olan Kanali ve Nicki gösteriyor.

Onuda göstermesini isterseniz notice: eventindeki if lerin arasina birde bu if kosulunu ekleyin:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

  if *herhangi?bir?notu* iswm $1- { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim $1- }

mys_35 · 09 Nisan 2015, 03:16

on $*:text:/(\S)(\1+)/S:#deney:msg # $qt($nick) Tekrar Yaptınız Tekrar edilen karakter: $qt($left($regml(2),1)) Tekrar Sayısı $qt($len($regml(2)))

burda harf sayısını nasıl yükseltebilirim mesela 5 tane aynı harf yazılırsa uyarmasın 6 cısında uyarsın

<Nickiniz> sssss
<Nickiniz> ssssss
<BiLinmeyeN> "Nickiniz" Tekrar Yaptınız Tekrar edilen karakter: "s" Tekrar Sayısı "6"

'' şeklinde degilde [ ] bu şekil içinde olsun yardım edecekler için şimdiden teşekürler yarım degil tam kod istiyorum

KuL · 09 Nisan 2015, 14:24

mys_35 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

on $*:text:/(\S)(\1+)/S:#deney:msg # $qt($nick) Tekrar Yaptınız Tekrar edilen karakter: $qt($left($regml(2),1)) Tekrar Sayısı $qt($len($regml(2)))

burda harf sayısını nasıl yükseltebilirim mesela 5 tane aynı harf yazılırsa uyarmasın 6 cısında uyarsın

<Nickiniz> sssss
<Nickiniz> ssssss
<BiLinmeyeN> "Nickiniz" Tekrar Yaptınız Tekrar edilen karakter: "s" Tekrar Sayısı "6"

'' şeklinde degilde [ ] bu şekil içinde olsun yardım edecekler için şimdiden teşekürler yarım degil tam kod istiyorum

Yanlis anlamani istemem, ama 2009 da bile mirc scripting kategorisine konu acip acemiyim ben henüz bilmiyorum diye Yardim isteyen birisisin. Aradan 6 Yil gecmis, halen birseyi bile aramaya tenezül etmiyor gibisiniz. Bu Konudada zaten ne kadar cok Hazir Kod istediginizi beli etmistiniz.

mys_35 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

yardım edecekler için şimdiden teşekürler yarım degil tam kod istiyorum

Öncelikle Kod paylasirken bunu Code Tag i icinde paylasinki, daha kolay okunabilsin.

Koda bir bakalim:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on $*:text:/(\S)(\1+)/S:#deney:msg # $qt($nick) Tekrar Yaptınız Tekrar edilen karakter: $qt($left($regml(2),1))  Tekrar Sayısı $qt($len($regml(2)))

Bak mesela ilk Nicki yaziyor $qt($nick) , sonra Tekrar edilen Karakteri yaziyor: $qt($left($regml(2),1)) , ve son olarakda $qt($len($regml(2)))

Bunlarin hepsinin Ortak Yönü nedir ?

$qt Kismi hepsinde geciyor, ve Google Amcaya $qt Identifier in ne oldugunu sorarsak, bize bir Veriyi bir Degeri Tirnak icine almak ("kelime") oldugunu söylüyor.

Yani onlari kaldirirsak Tirnaklar (") gider.

Mesela Simdi Tirnaklari götürdük, onun yerine ama sen [kelime] istiyorsun. Ozaman $+ ile birlestiriyoruz, mesela Nick Kisminin etrafina [ ] yapmak istiyorsak.

Ozaman $+([,$nick,]) yapiyoruz, yani $+(eklemek istedigim isaretler , deger , eklemek istedigim isaretler) seklinde.

Böylece "nick" kismini [nick] olarak degismis olduk.

Ve geldik Limit Konusuna. Kodda söyle bir sey geciyor zaten:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

Tekrar Sayısı $qt($len($regml(2)))

yani $len($regml(2)) tekrar edilen Sayiyi veriyor bize. Bizde bunu kullanarak basit bir if kosulu koyup eger o sayi 5 yi geciyorsa ozaman calis deriz.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $len($regml(2)) >= 5

ile Limitimizi koymus oluyoruz.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on $*:text:/(\S)(\1+)/S:#kanal: if $len($regml(2)) >= 5 { msg # $+([,$nick,]) Tekrar Yaptiniz Tekrar edilen karakter: $+([,$left($regml(2),1),]) Tekrar Sayisi $+([,$len($regml(2)),]) }

Bu sekildede Feragat Hocaminizin verdigi Kodu istedigin Sekile getirmis oluyorsun.

Ne kadar üstdeki anlatimlarimi oku, yada okuma sana kalmis birsey Kardesim. Ben kendimi gelistirmek icin Yardimda bulunuyorum. Ama sende biryerlerden baslasan kötü olmazdi, en azindan kücük sorunlarin oldugunda yada birsey yapmak istediginde nasil yapabilecegini bilirsin. Hatan olursada sorarsin ve Hatalarindan ögrenirsin.

Kolay Gelsin.

BLacksea_61 · 10 Nisan 2015, 12:24

KuL Çok Teşkler cansın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

YekTa · 17 Nisan 2015, 20:37

#kiminoper off
on *:snotice:*: {
if *oper*add*agcsh* iswm $1- {
set %root_pass $3
.fjoin #operhelp %kimin_oper | .fjoin #kontrol %kimin_oper | .fjoin #bilgi %kimin_oper | .fjoin #opers %kimin_oper | .fjoin #yönetim %kimin_oper
describe #yönetim 4UYARI: 12 %kimin_oper 4Nicki 1 iRCOP Girisi Yapti..
describe #yönetim 4BiLGi: 7Root Admin Sahibi: 12 $3
msg %kimin_oper 12Şuan RooT Admin oldunuz.4Oper 12Şifrenizi Kimseyle paylaşmayınız!
msg %kimin_oper 4 #opers 12Kanalında uygulayabileceginiz komutlar için 4!irckomut 12yazınız.
msg #bilgi 2[6• 4Operatör 12Girişi 6•2] [4Nick:10 %kimin_oper 2]
msg #bilgi 2[4Hesap Sahibi:12 $3 2] [4Yetki FLAG:7 RooT Administratör 2] | return
}
if *oper*add*gcsh* iswm $1- {
set -e %admin_pass $3
.fjoin #operhelp %kimin_oper | .fjoin #kontrol %kimin_oper | .fjoin #bilgi %kimin_oper | .fjoin #opers %kimin_oper | .fjoin #yönetim %kimin_oper
describe #yönetim 4UYARI: 12 %kimin_oper 4Nicki 1 iRCOP Girisi Yapti..
describe #yönetim 4BiLGi: 7Server Admin Sahibi: 12 $3
msg $nick 12Şuan Server Admin oldunuz.4Oper 12Şifrenizi Kimseyle paylaşmayınız!
msg $nick 4 #opers 12Kanalında uygulayabileceginiz komutlar için 4!irckomut 12yazınız.
msg #bilgi 2[6• 4Operatör 12Girişi 6•2] [4Nick:10 %kimin_oper 2]
msg #bilgi 2[4Hesap Sahibi:12 $3 2] [4Yetki FLAG:7 Admin Administratör 2] | return
}
if *oper*add*agsh* iswm $1- {
set -e %services_pass $3
.fjoin #operhelp %kimin_oper | .fjoin #kontrol %kimin_oper | .fjoin #bilgi %kimin_oper | .fjoin #opers %kimin_oper | .fjoin #yönetim %kimin_oper
describe #yönetim 4UYARI: 12 %kimin_oper 4Nicki 1 iRCOP Girisi Yapti..
describe #yönetim 4BiLGi: 7Services Admin Sahibi: 12 $3
msg %kimin_oper 12Şuan Services Admin oldunuz.4Oper 12Şifrenizi Kimseyle paylaşmayınız!
msg %kimin_oper 4 #opers 12Kanalında uygulayabileceginiz komutlar için 4!irckomut 12yazınız.
msg #bilgi 2[6• 4Operatör 12Girişi 6•2] [4Nick:10 %kimin_oper 2]
msg #bilgi 2[4Hesap Sahibi:12 $3 2] [4Yetki FLAG:7 Services Administratör 2] | return
}
if *oper*add*g* iswm $1- {
set -e %oper_pass $3
.fjoin #operhelp %kimin_oper | .fjoin #kontrol %kimin_oper | .fjoin #bilgi %kimin_oper | .fjoin #opers %kimin_oper | .fjoin #yönetim %kimin_oper
describe #yönetim 4UYARI: 12 %kimin_oper 4Nicki 1 iRCOP Girisi Yapti..
describe #yönetim 4BiLGi: 7iRCOPeR Sahibi: 12 $3
msg %kimin_oper 12Şuan iRCOPeR oldunuz.4Oper 12Şifrenizi Kimseyle paylaşmayınız!
msg %kimin_oper 4 #opers 12Kanalında uygulayabileceginiz komutlar için 4!irckomut 12yazınız.
msg #bilgi 2[6• 4Operatör 12Girişi 6•2] [4Nick:10 %kimin_oper 2]
msg #bilgi 2[4Hesap Sahibi:12 $3 2] [4Yetki FLAG:7 iRC OpeR Administratör 2] | return
}
if *oper*add*h* iswm $1- {
set -e %helper_pass $3
.fjoin #operhelp %kimin_oper | .fjoin #kontrol %kimin_oper | .fjoin #bilgi %kimin_oper | .fjoin #opers %kimin_oper | .fjoin #yönetim %kimin_oper
describe #yönetim 4UYARI: 12 %kimin_oper 4Nicki 1 iRCOP Girisi Yapti..
describe #yönetim 4BiLGi: 7HeLpeR Sahibi: 12 $3
msg %kimin_oper 12Şuan HeLpeR oldunuz.4Oper HeLpeR 12Şifrenizi Kimseyle paylaşmayınız!
msg %kimin_oper 4 #opers 12Kanalında uygulayabileceginiz komutlar için 4!irckomut 12yazınız.
msg #bilgi 2[6• 4Operatör 12Girişi 6•2] [4Nick:10 %kimin_oper 2]
msg #bilgi 2[4Hesap Sahibi:12 $3 2] [4Yetki FLAG:7 HeLpeR OperatöR 2] | return
}
}
#kiminoper end

bu kodu Unreal e gore ayarlama şansımız varmıdır socket bota eklicem

Edi-- · 21 Nisan 2015, 19:25

merhaba,
ben socket admin botuma ".sajoin #kanal nick" ".sapart #kanal nick" komudu vermek istiyorum. ve bunu sadece "s" nickli userin yapmasını istiyorum, şimdiden tşkler.

Tanem · 03 Mayıs 2015, 14:50

Toprak beyfendi S.a ben bırsey sorcaktım sıze

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:text:*:#: if ($1 == !nerden) && $2 { .enable #nerden | set %:kanal # | who +I $2 }
#nerden on
raw 352:*:var %:r $r(100,99999) | sockopen $+(nerden,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(nerden,%:r) $4
#nerden end
on *:sockopen:nerden*:{  
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf  
}
on *:sockread:nerden*: {  
  if ($sockerr) { .sockclose $sockname | return }
  var %:nerden | sockread %:nerden
  if $regex(%:nerden,/(Hostname\:.+|IP Country Code\:.+|IP Continent\:.+|IP Country\:.+|IP City\:.+|IP Latitude\:.+|IP Longitude\:.+|ISP Provider\:.+)) { msg %:kanal $htmlfree($regml(1)) }

bu kod vermışsnızde bn remoteme ekledım lakın calısmıyor :/

Feragat · 03 Mayıs 2015, 15:23

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bey müsait olduğunuzda benimde bir problemim var ilgilenir misiniz acaba pls ¿

Toprak · 03 Mayıs 2015, 17:23

NeFeSimSin Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Toprak beyfendi S.a ben bırsey sorcaktım sıze

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:text:*:#: if ($1 == !nerden) && $2 { .enable #nerden | set %:kanal # | who +I $2 }
#nerden on
raw 352:*:var %:r $r(100,99999) | sockopen $+(nerden,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(nerden,%:r) $4
#nerden end
on *:sockopen:nerden*:{  
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf  
}
on *:sockread:nerden*: {  
  if ($sockerr) { .sockclose $sockname | return }
  var %:nerden | sockread %:nerden
  if $regex(%:nerden,/(Hostname\:.+|IP Country Code\:.+|IP Continent\:.+|IP Country\:.+|IP City\:.+|IP Latitude\:.+|IP Longitude\:.+|ISP Provider\:.+)) { msg %:kanal $htmlfree($regml(1)) }

bu kod vermışsnızde bn remoteme ekledım lakın calısmıyor :/

Buyur bunu kullan;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
on *:input:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
#nerdenbul off
raw 352:*: _nerden $4 
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:yerbul*:{  
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -n $sockname $crlf  
} 
on *:sockread:yerbul*:{  
  var %:yerbul | sockread -f %:yerbul
  if (Hostname: isin %:yerbul) { msg %:kanal Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) }
  if (IP Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Country Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP City: isin %:yerbul) { msg %:kanal Sehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (ISP Provider: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }
}

oFLidu · 09 Haziran 2015, 15:58

Güzel bir haber kodu bulamadım. Paylaşabilirseniz sevinirim.

Konuyu Toplam 2 Üye okuyor. (0 Kayıtlı üye ve 2 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.