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

Feragat · 31 Ağustos 2014, 12:59

Forumda buna benzer çok fazla kod var.
Cümlenin ilk harfini büyük yapmak için regex ile cümlenin başlangıcını temsil eden karakteri baz alman gerekiyor. Regex'te cümlenin başlangıcını temsil eden karakter ^ budur. Mantık şu; ^\S Cümlenin ilk harfi \S (Non-Space) yani "boşluk olmayan" ilk karakteri yakala ve regexin çıkışında $upper(\1) büyük harf olarak döndür.

Küçük bir örnek:

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

on *:input:*:if $regex($1-,^[^/]) { msg $active $replacecs($regsubex($1-,/(^\S)/, $upper(\1)), s,S,l,L,b,ß,B,ß,g,q,?,¿,g,q,ş,$,Ş,$, I,i) $+ . | halt }

Sonuç:

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

[12:56] <Feragat> SeLam naßer naSıLSın.
[12:56] <Feragat> $arkı SöyLemek Lazım.
[12:56] <Feragat> Deneme 1223434 SeLam.

Üstteki örneği inceleyerek ve biraz da araştırma yaparak geliştirebilirsin. İyi forumlar.

Dahimurat · 31 Ağustos 2014, 13:24

Toprak hocam ordaki yazı şekli her kelimenin baş harfi büyük dikkat ederseniz ben Her cümlenin baş harfi ve sonuna nokta işareti demişim. oradaki kod farklıdır. tşkler.

KuL · 31 Ağustos 2014, 13:41

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

Toprak hocam ordaki yazı şekli her kelimenin baş harfi büyük dikkat ederseniz ben Her cümlenin baş harfi ve sonuna nokta işareti demişim. oradaki kod farklıdır. tşkler.

Dahimurat Feragat Arkadasimda zaten, Kodu vermedi Dikkat edersen.

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

Küçük bir örnek:

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

on *:input:*:if $regex($1-,^[^/]) { msg $active $replacecs($regsubex($1-,/(^\S)/, $upper(\1)), s,S,l,L,b,ß,B,ß,g,q,?,¿,g,q,ş,$,Ş,$, I,i) $+ . | halt }

Üstteki örneği inceleyerek ve biraz da araştırma yaparak geliştirebilirsin. İyi forumlar.

Size Örnek vermis, bu Örnekten Yola cikarak Dilediginiz Sonuca ulasabilirsiniz.

Lütfen Sizde anlamaya calisin, malesef nerdeyse Hergün bir Konu acilmakta. Forumda Arama yapip zaten benzer Kodlar cok var. Biraz degistirme ile istediginize ulasmaniz o kadarda zor olmasa gerek.

Hayirli Forumlar dilerim

aLone · 01 Eylül 2014, 16:41

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

Sunucuma girenlerin kaçı Sohbet identli, kaçı mynet identli, kaçı geveze identli onu görmek istiyorum bunun içinde sayaç varmıdır !rapor cektiğimde kaç giriş olmus hangi identten?
birde haftalık sayaç sıfırlasın kendini veri.txt verileri toplasın #x kanalına !rapor dediğimizde rapor olarak versin.

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

on *:join:#Kanal:{ $iif(!$hget(ident),hmake ident 100) | var %ident $remove($gettok($address($nick,1),1,64),*!*) | hinc ident %ident | hsave -i ident ident.ini }
on *:start: { hmake ident 100 | hload -i ident ident.ini } | else { hmake ident 100 | hsave -i ident ident.ini } 
on *:text:!rapor:#x:{ msg #x 1 Kayıtlı identler listeleniyor | play #x ident.ini 1 } 
on *:text:!sil:#x:{ msg #x 1 Ident listesi silindi. | ups }
alias ups { 
write -c ident.ini | hfree ident  }

!sil listeyisi temizler !rapor #x kanalına listeyi yansıtır

Örnek
[16:40:10] <05aLone> !rapor
[16:40:11] <04Botcuk> 1 Kayıtlı identler listeleniyor
[16:40:11] <04Botcuk> [hashtable]
[16:40:11] <04Botcuk> DarkNeSs=4
[16:40:11] <04Botcuk> muhabbet=97
[16:40:11] <04Botcuk> Sohbet=2026
[16:40:11] <04Botcuk> Kaan=2
[16:40:11] <04Botcuk> kelebek=81
[16:40:11] <04Botcuk> TmIRC=88
[16:40:11] <04Botcuk> Help=1
[16:40:11] <04Botcuk> mIRC=47
[16:40:11] <04Botcuk> Sohbetaski=7
[16:40:11] <04Botcuk> Lost=1
[16:40:11] <04Botcuk> yAkLaSmA=1
[16:40:11] <04Botcuk> Zurna=15
[16:40:11] <04Botcuk> Kalpfm=79
[16:40:57] <05aLone> !sil
[16:40:57] <04Botcuk> 1 Ident listesi silindi.

Gibi..

aLone · 01 Eylül 2014, 17:44

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

on *:input:*:if $regex($1-,^[^/]) { msg $active  $replacecs($regsubex($1-,/(^\S)/, $upper(\1)), s,S,l,L,b,ß,B,ß,g,q,?,¿,g,q,ş,$,Ş,$, I,i) $+ . | halt }

Dahimurat Bunu dene bakalım

sEntieL · 12 Eylül 2014, 05:31

Merhaba arkadaşlar,

Kanalda halfop olunca op olunca ayrı sop olunca ayrı founder olunca ayrı hostlar vermesini istiyorum botun kodu nedir bunun yardımcı olabilirmisiniz?

Hangman · 12 Eylül 2014, 08:55

Bu ve buna benzer binlerce konu var forumda birazcık arama yapsanız emin olun bulabilirsiniz. Hatta üzerinde kafa yorduğunuzda kendi kendinize " bunu bende yaparım yahu çok kolaymış " dediğinizi göreceksiniz.

IRC-Dancer · 12 Eylül 2014, 11:32

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ın dediğine katılıyorum , lakin kayıt'ın eski diğe saygı duydum.
Ve bu gibi benzeri kod şimdilik işini görür. '' Nomercy '' Bot'unda ; Bu dediğin özellik var , onu kurup kullana bilirsin. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

on *:rawmode:#Kanal:{
  if $istok(IRC-Dancer Muafnick-1 Muafnick-2,$nick,32) { return }
  if *+h* iswm $1  { chghost $2 Halfop. $+ $Network }
}
on *:rawmode:#Kanal:{
  if $istok(IRC-Dancer Muafnick-1 Muafnick-2,$nick,32) { return }
  if *+o* iswm $1  { chghost $2 Aop. $+ $Network }
}
on *:rawmode:#Kanal:{
  if $istok(IRC-Dancer Muafnick-1 Muafnick-2,$nick,32) { return }
  if *+a* iswm $1  { chghost $2 Sop. $+ $Network }
}
on *:rawmode:#Kanal:{
  if $istok(IRC-Dancer Muafnick-1 Muafnick-2,$nick,32) { return }
  if *+q* iswm $1  { chghost $2 Founder. $+ $Network }
}

Toprak · 12 Eylül 2014, 12:07

Event bollugu var masallah
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

aLone · 12 Eylül 2014, 14:29

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

on *:rawmode:#kanal:{
  if $istok(IRC-Dancer Muafnick-1 Muafnick-2,$nick,32) { return }
  if (+o iswm $1 ) { chghost $2 Aop. $+ $Network }
  if (+a iswm $1 ) { chghost $2 Sop. $+ $Network }
  if (+q iswm $1 ) { chghost $2 Founder. $+ $Network }
  if (+oa iswm $1 ) { chghost $2 Sop. $+ $Network }
  if (+oq iswm $1 ) { chghost $2 Founder. $+ $Network }
  if (+h iswm $1 ) { chghost $2 Halfop. $+ $Network }
}

eventlerden çaldım [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Konuyu Toplam 6 Üye okuyor. (0 Kayıtlı üye ve 6 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.