Cevap: Add-on ve snippet(parça) kod istekleri buraya
 

Teşekkürler Feragat, oldu ;)

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 

Halen böyle bir kod arıyorsan daha önce L4roXyL paylaşmıştı.

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

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 

Arastirdim Ama Bulamadim . Eger Varsa da Af Yola Rahatsizlik verdigim icin
Bu PHP coduna Benzer Mirc Addon Seklinde Bir Cod Ariyorum Veya Yapilabilirmi . Yardimci Olursaniz Sevinirim.

# greet for ;p
set repchan {
"#Sohbet"
}
# asagidaki kelimeleri isteginize gore turete bilirsiniz
set repwords {
"s.a:%nick, aleyküm selam hoş geldin"
"selam:selam hoş geldin %nick.."
"nasılsınız:teşekurler sen nasılsın %nick"
"nasılsın:teşekurler bomba gibiyim sen nasılsın %nick"
"mrb:%nick: hoş geldin?"
"bye:hoşçakal %nick"
"harika:%kim bu harika ya sorup duruyon"
"lan:%nick: lan kelimesini kullanmayınız lütfen'"
"selamun aleykum:aleykum selam hoşgeldin %nick"
"anlayacaksın.:seni kimse anlamaz PpP %nick"
"bot:%nick: benmi?"
"canım:birtanem"
"gelecem:gelmesende olur seni özlemiycez"
"bebegim:sevgilim"
"sevgilim:seni cok özledim %nick"
"hayatım:bi tanem bi bi bi"
"istiyorum:bende admin olmak istiyorum ama nerde %nick"
"cıkkkktım:bi cımakadın ha %nick"
"acıktı:boşalda semerimi ye daha az önce yemeğe gittin"
"fb:0,4C* 8,12Fenerbahçe 12,8Cumhuriyeti0,4C* "
"hoşçakalın:hoşçakal canım"
"göruşürüz:görüşürüz canım kendine iyi bak %nick"
"gorusuruz:görüşürüz canım kendine iyi bak %nick"
"ben geldim:hoş geldin"
"anlat:Ben Anlatmayı Değil Anlatılanı Dinlemeyi Severim"
"sade:hemen canımın içi"
"melek:efendim"
"geveze:sen geveze değilsin sanki"
"asl:19 aslında ama 20 yaşımdaim"
"nerdesiniz:körmüsün burdayız ya"
"nickimi:./ns register şifren mailin %nick"
"cevap:kusura bakma özellerim dolu sohbet ediyorum
"banlamayın:sende rahat dur bi"
"aloo:I m soryy canım.. kusura bakmıyorsun dimi.. ben bi okey oynuyup geliyom"
"kahve:hemen getiriyorum nasıl olsun %nick"
"hadi bana bye:nereye karpuz kesicez daha %nick"
"bjk:0,4 C*1,0Canımız 0,1Kara Kartalımız 1,0 Beşiktaşımız 0,4 C*"
"kaçtım:kaçma ALLAH'ın emri iler git %nick"
"selamın aleykum:aleykum selam %nick hoş geldin"
"eee:esi oyle iste hehe"
"evlenelim:hehe ne evlenmesi tamam sen yakışıklımısın bare :)"
"gelim:valla gelmessen üzülürsün zaten "
"gelmem:Gelmessen zorlamam güzel ve hızla gelişen bir kanal neyse baii canım"
"gidicem:tamam ama gitmeden önce bye demeyi unutma"
"hayır:hımm demek öyle tamam pek hoşlanmam bana hayır denmesinden ona göre "
"hosgeldin:Hoşbulduk Ne güzel yer burası :P"
"kabul: su an online degilim sonra acıcam"
"ne:dediklerimden anlamıyorsun galiba frekanslar ayrı"
"komik:hehe cem ozer"
"mail:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
"msn:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
"msnen:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
"merhaba:merhabalar"
"nasılsın:bomba gibi sen nasılsın"
"off:ne olduya sıkıldınmı"
"of:ne olduya sıkıldınmı"
"ya:Ne Yağı Bebek Yağımı :Pp"
"yaş:20 büyükmüyüm"
"cep:hadiya ama genede vereyim 0535 243 ..."
"adınney:arzu"
"adın:arzu"
"isim:arzu"
"arzu:efendim"
"ismin:arzu"
"isminiz:arzu"
}

# So don't set this too low ;pp
set maxmsgrep 5:10

# work too hard ;pp hehe
set msgfloodm {
"you're performing MSG which considered as FLOOD..."
}
# Set this as your bot auto-ignore time. Set this one in Minute(s) format.
set msgrepignore 1
#
set utlarlg "\[J-*C*\]:"
#
proc replyuser {nick uhost hand rest} {
global botnick repwords msgcount maxmsgrep msgfloodm msgrepignore utlarlg
if {[string match "#*" [lindex $rest 0]]} {set repto [lindex $rest 0] ; set rest [lrange $rest 1 end]} else {set repto $nick}
set repperf 0
foreach repwrd $repwords {
set rquestion [lindex [split $repwrd :] 0]
set ranswer [string trim [lrange [split $repwrd :] 1 end] "{}"]
if {[string match [string tolower $rquestion]* [string tolower $rest]]} {
regsub -all "%nick" $ranswer "$nick" ranswer
set repperf 1 ; putquick "PRIVMSG $repto :$ranswer" ; return 0
}
}
if {!$repperf && $repto != $nick} {return 0}
set repperf 0 ; set n [string tolower *!*@[lindex [split $uhost @] 1]]
if {[info exists msgcount($n)]} {
set msgcount{$n} [incr msgcount($n)] ; set currmsgcount $msgcount($n) ; set maxmsgreprecv [lindex [split $maxmsgrep :] 0]
if {$currmsgcount >= $maxmsgreprecv} {
set msgingrep [lindex $msgfloodm [rand [llength $msgfloodm]]]
foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {killutimer [lindex $msgreptimer 2]}}
if {$repto == $nick} {putquick "NOTICE $nick :$utlarlg $msgingrep. Ignored for: $msgrepignore min(s)."}
newignore *!*@[lindex [split $uhost @] 1] $botnick "MSG flood" $msgrepignore
putlog "$utlarlg MSG flood ($msgcount($n)), received from $nick. Message replies will be stopped for $msgrepignore min(s)." ; unset msgcount($n) ; return 1
} else {
foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {return 1}}
utimer [lindex [split $maxmsgrep :] 1] "unset msgcount($n)"
}
} else {set msgcount($n) 1}
}
proc replychan {nick uhost hand chan rest} {
global botnick repchan
foreach targchan $repchan {if {[string match *[string tolower $targchan]* [string tolower $chan]]} {append reps "$chan $rest" ; replyuser $nick $uhost $hand $reps ; return 0}}
}
bind msgm - * replyuser
bind pubm - * replychan
putlog "*** ${utlarlg} Entertainment, Entertainment, MSG Auto Reply + Query Flood Protection. Loaded."

bind msgm - slm* msg_slm*
bind msgm - nbr* msg_nbr*
bind msgm - msn* msg_msn*
bind msgm - nerden* msg_nerden*
bind msgm - selam* msg_selam*
bind msgm - naber* msg_naber*
bind msgm - alo* msg_alo*
bind msgm - ordamisin* msg_ordamisin*
bind msgm - seviyorum* msg_seviyorum*
bind msgm - oh* msg_bosal*
bind msgm - ahh* msg_biseyyok*
bind msgm - yermisin* msg_tokum*
bind msgm - root* msg_zorbey*
proc msg_slm* { nick uhost handle text } {
putserv "PRIVMSG $nick : slm."
}
proc msg_selam* { nick uhost handle text } {
putserv "PRIVMSG $nick : slm."
}
proc msg_nbr* { nick uhost handle text } {
putserv "PRIVMSG $nick : iim cnm saol sen?."
}
proc msg_naber* { nick uhost handle text } {
putserv "PRIVMSG $nick : iim cnm senden?."
}
proc msg_nerden* { nick uhost handle text } {
putserv "PRIVMSG $nick : izmir ama daha yeni geldik sen?."
}
proc msg_msn* { nick uhost handle text } {
putserv "PRIVMSG $nick : Msn'im daha yeni calindi ya kusura bakma"
}
proc msg_ordamisin* { nick uhost handle text } {
putserv "PRIVMSG $nick : Burdayim sen nerdesin!"
}
proc msg_alo* { nick uhost handle text } {
putserv "PRIVMSG $nick : Ne be ne alla alla Telefondamisin?!"
}
proc msg_seviyorum* { nick uhost handle text } {
putserv "PRIVMSG $nick : Cokmu seviyorsun?!"
}
proc msg_bosal* { nick uhost handle text } {
putserv "PRIVMSG $nick : Niye ohladin? hosuna mi gitti yoksa? "
}
proc msg_biseyyok* { nick uhost handle text } {
putserv "PRIVMSG $nick : Ah canim biseyin yok dimi?"
}
proc msg_tokum* { nick uhost handle text } {
putserv "PRIVMSG $nick : Ben daha yenii yedim sagol"
}
proc msg_aspawa* { nick uhost handle text } {
putserv "PRIVMSG $nick : Buranin tek Root Admini "WorD" Dir."
}
proc benimle_konuscakmısın* { nick uhost handle text } {
putserv "PRIVMSG $nick : tmm ya bekle biraz!"
}
# End of - Entertainment, Message Auto-Reply. (ent_areply.tcl)

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 

if koşulunda wildcard (iswm) operatörü kullanarak şartlarını netleştirebilirsin. if (*kelime* iswm $1-) { kodlar } vb.
if koşulunda regexp kullanıp şartlarını daha da net belirleyebilirsin. if ($regex($1-,/(kelime(ler))/)) { kodlar } vb.

Onlarca yol var. Rahat anlayabilmen için basite indirgemeye çalıştım. Forumda arama yaparak daha fazlasına ulaşabilirsin.

Hoşuna gideni kullan. Kolay gelsin.

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 

Merhaba Arkadaşlar ;

Öncelik ile herkese iyi forumlar.

Bir konu da , ki mümkün ise eğer bir koda ihtiyacım var.

Bir takip botu kullanıyorum, bu botun görevi ; verilen voiceleri,opları, susban, nick ban, kanal açma,kapama gibi durumları belirlediğim kanala yansıtıyor. Buraya kadar herşey OK, sıkıntı yok.

Lakin kullandığım botun içerisine şöyle bir kod eklemek istiyorum ;

Misal sunucu da, online olmadığım zamanlar yetkilerimin olduğu kanalda, herhangi bir olay, tartışma vb durumlar oluştuğu zaman #op ya da #sop kanalında ki, görevli arkadaşlarım !bilgi ya da !adminmesaj gibi komut ile bana bilgi göndermeleri. Bunu ister memo olarak yapacaklar ya da e-mail ile. Hatta hem memo olarak bana bilgi gelmesi, hem de gelen memonun mail olarak tarafıma gelmesi daha güzel olur.

Yapılabilir mi böyle bir şey ?

Saygılar sunarım, kolay gelsin. İyi forumlar.


Tapatalk kullanarak iPhone aracılığıyla gönderildi

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 

Selamun Aleykum @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ,

bahs etdigin olayda Memo göndermesi basitde. Ama hatirladigim kadariyla MAIL olayi biraz sorunluydu, bir kac kere galiba paylasildi ama emin degilim. Daha sonra Mail Protokollerindemiydi neyse sorun oluyor diye, ve hotmail birseyler yapiyor diye güvenilir bir sistem degildi. Yani halen aynimi bilmiyorum, cünki düsünsene her mesaj oldugunda mircin hotmaile girip, yada diger mail sistemine ordan sana mail aticak. Bunun yerine modul gibi birsey varmi bilmiyorum ama belki vardir, o tarz ara derim.

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 

Aleyküm Selam ; @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Ya aslında tam olarak öyle değil, hani memoları maile yönlendiriyoruz ya, yani memolardan haberdar olabiliyoruz mail ile. memoyu maile forward etme diyeyim kısaca.

Misal #aaa kanalında Op ya da Soplarım ben online değil iken bir sorun yaşandığında !bilgi ya da benzer bir komut ile bana mesaj (memo) bırakıcak, gelen memonun haberi de forward olayı gibi mailime düşecek gibi düşün.

İlla mail olacak diye bir şey yok, !bilgi ya da benzer bir komut ile kullandığında önüne bir mesaj penceresi açılıp bana memo olarakta göndermesi yeterli.


Tapatalk kullanarak iPhone aracılığıyla gönderildi

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 

Alıntı:

Rakun Nickli Üyeden Alıntı (Mesaj 1041814616) Aleyküm Selam ; @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ya aslında tam olarak öyle değil, hani memoları maile yönlendiriyoruz ya, yani memolardan haberdar olabiliyoruz mail ile. memoyu maile forward etme diyeyim kısaca. Misal #aaa kanalında Op ya da Soplarım ben online değil iken bir sorun yaşandığında !bilgi ya da benzer bir komut ile bana mesaj (memo) bırakıcak, gelen memonun haberi de forward olayı gibi mailime düşecek gibi düşün. İlla mail olacak diye bir şey yok, !bilgi ya da benzer bir komut ile kullandığında önüne bir mesaj penceresi açılıp bana memo olarakta göndermesi yeterli. Tapatalk kullanarak iPhone aracılığıyla gönderildi

Hmm kusura bakma Servislerde Memoserv komutlari aklimda degil, her memoda mail gönderiyormu onuda bilmiyorum. IRC de uzak durali biraz oluyor =)

Ama Sirf memo icin böyle olabilir, eger gözümden birsey kacmadiysa ve hata yapmadiysam :)

Kod:

---

on *:text:*:#:{
  if $1 == !bilgi && $2 {
    if ($me isop #) || ($me ishop #) {
      if ($nick ison #op) || ($nick ison #sop) {
        msg # $nick Mesajiniz Yetkili Admine gönderilmistir!
        ms send NICKIN $nick Nicki # Kanalindan size gönderdigi Mesaj: $2-
      }
      else {
        msg # $nick Bu Komutu kullanabilmek icin gerekli Yetkili Kanalinda bulunmuyorsunuz!
      }
    }
  }
}

---

Herhangi bir Kanalda !bilgi MESAJ yazildiginda;
-> Senin o kanalda yetkin olup olmadigini kontrol ediyor,
-> Daha sonra !bilgi yazan Kisi #op yada #sop kanalinda bulunup bulunmadigina bakiyor.

A: Eger hepsi Olumlu ise, Kanala Mesaj gönderiyor Mesajiniz gönderildi diye ve Memo gönderiyor
B: Eger kisi #OP yada #SOP Kanalinda Yetkili degilse, Uyari gönderiyor ve mesaji iletmiyor.

Kullanimi: !bilgi MESAJ

Deneme Firsatim yok maalesef suan, ama olmasi gerek.

Dipnot: NICKIN yazan yerede nickini eklemeyi unutma =)

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 

Bu kodu, kullandığım botun içerisine eklesem çalışır değil mi ?


Tapatalk kullanarak iPhone aracılığıyla gönderildi

Cevap: Add-on ve snippet(parça) kod istekleri buraya
 

Alıntı:

Rakun Nickli Üyeden Alıntı (Mesaj 1041814619) Bu kodu, kullandığım botun içerisine eklesem çalışır değil mi ? Tapatalk kullanarak iPhone aracılığıyla gönderildi

Evet zaten mirc botu icin yazdim.