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

IrCbaStarD · 19 Mart 2017, 09:41

forumla o kadar cok hasir nesir değilim, mesaj olarak birlestirmeyi bilmiyorum malesef ama [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buradaki baslik altinda belirtebilirsin.

AngeL · 19 Mart 2017, 11:19

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] konu belirttiginiz alana tasınmıstır.

PoiSoN20 · 19 Mart 2017, 15:12

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

alias takip {
  if !$1 { echo -at Takip listesine alınacak kanal'ı girmediniz. Kullanım şekli; $+($chr(2),/takip #kanalismi,$chr(2)) | halt }
  if $hget($1) { echo -at $+($chr(2),$1,$chr(2)) kanal'ı zaten takip listesinde. | halt }
  if $me !ison $1 { echo -at $+($chr(2),$1,$chr(2)) kanalında bulunmuyorsunuz. | halt }
  else { hmake $1 100 | echo -at $+($chr(2),$1,$chr(2)) kanal'ı takip listesine eklendi. }
}
on *:quit: { var %1 = 1,%2 = $comchan($me,0) | while %1 <= %2 { if $hget($comchan($me,%1))  { hinc $v1 $+(ayr,½,$v1) 1 } | inc %1 } }
on *:nick: { var %= 1,%& = $comchan($me,0) | while %= <= %& { if $hget($comchan($me,%=)) { var %o = $v1 | hinc $v1 $+(nck,½,$v1) 1 | ekle $+(%o,nick,.txt) | write $+(%o,nick,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Nick: $+($chr(2),$nick,$chr(2)) - Yeni nick: $+($chr(2),$newnick) } | inc %= } }
on !*:join:#: { if $hget(#) { hinc # $+(grs,½,#) 1 } }
on *:part:#: { if $hget(#) { hinc # $+(cks,½,#) 1 } }
on *:text:*:#: { if $hget(#) { hinc # $+(yz,½,#) 1 | hinc -m $+(yazı,#) $nick 1 } }
on *:ban:#: { if $hget(#) { hinc # $+(ban,½,#) 1 | ekle $+(#,ban,.txt) | write $+(#,ban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Banlıyan: $+($chr(2),$nick,$chr(2)) - Banlanan: $+($chr(2),$banmask,$chr(2)) } }
on *:unban:#: { if $hget(#) { hinc # $+(unbn,½,#) 1 | ekle $+(#,unban,.txt) | write $+(#,unban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Ban açan: $+($chr(2),$nick,$chr(2)) - Banı açılan: $+($chr(2),$banmask) } }
on *:voice:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(vc,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice veren: $+($chr(2),$nick,$chr(2)) - Voice olan: $+($chr(2),$vnick,$chr(2)) } }
on *:op:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(op,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u veren: $+($chr(2),$nick,$chr(2)) - Op olan: $+($chr(2),$opnick,$chr(2)) } }
on *:help:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(hlp,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u veren: $+($chr(2),$nick,$chr(2)) - Halfop olan: $+($chr(2),$hnick,$chr(2)) } }
on *:devoice:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(devc,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice'u alan: $+($chr(2),$nick,$chr(2)) - Voice'u alınan: $+($chr(2),$vnick,$chr(2)) } }
on *:deop:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(deop,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u alan: $+($chr(2),$nick,$chr(2)) - Op'u alınan: $+($chr(2),$opnick,$chr(2)) } }
on *:dehelp:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(dehlp,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u alan: $+($chr(2),$nick,$chr(2)) - Halfop'u alınan: $+($chr(2),$hnick,$chr(2)) } }
on *:mode:#: { if $hget(#) { hinc # $+(md,½,#) 1 | ekle $+(#,mode,.txt) | write $+(#,mode,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Mod değişen: $+($chr(2),$nick,$chr(2)) - Değişen mod: $+($chr(2),$1-,$chr(2)) } }
alias rapor {
  if !$1 { echo -at Rapor alınacak kanal ismini girmediniz. Kullanım şekli; $+($chr(2),/rapor #kanalismi,$chr(2)) | halt }
  if !$hget($1) { echo -at $+($chr(2),$1,$chr(2)) kanal'ı takip listesinde değil. | halt }
  else { 
    echo -a $+($chr(45),$chr(32),[,$chr(2),$1,$chr(2)) kanal'ı için istatist'likler] -
    echo -a -
    echo -a - Prefixler $+($chr(40),$iif($hget($1,$+(yetki½,$1)),$+($chr(2),$hget($1,$+(yetki½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),$chr(41))
    echo -a - [Voice: $+($iif($hget($1,$+(vc½,$1)),$+($chr(2),$hget($1,$+(vc½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [OP: $+($iif($hget($1,$+(op½,$1)),$+($chr(2),$hget($1,$+(op½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Halfop: $+($iif($hget($1,$+(hlp½,$1)),$+($chr(2),$hget($1,$+(hlp½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) 
    echo -a - [Devoice: $+($iif($hget($1,$+(devc½,$1)),$+($chr(2),$hget($1,$+(devc½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [DEOP: $+($iif($hget($1,$+(deop½,$1)),$+($chr(2),$hget($1,$+(deop½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Dehalfop: $+($iif($hget($1,$+(dehlp½,$1)),$+($chr(2),$hget($1,$+(dehlp½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) 
    echo -a - Kim kime ne zaman ne yetkisi vermiş/almış? Görmek için: $+($chr(2),/yetki $1,$chr(2)) yazınız.
    echo -a -
    echo -a - Giren kullanıcı sayısı: $iif($hget($1,$+(grs½,$1)),$+($chr(2),$hget($1,$+(grs½,$1))),$+($chr(2),Giren kullanıcı yok.))
    echo -a - Ayrılan kullanıcı sayısı: $iif($hget($1,$+(cks½,$1)),$+($chr(2),$hget($1,$+(cks½,$1))),$+($chr(2),Ayrılan kullanıcı yok.))
    echo -a - Çıkan kullanıcı sayısı: $iif($hget($1,$+(ayr½,$1)),$+($chr(2),$hget($1,$+(ayr½,$1))),$+($chr(2),Çıkan kullanıcı yok.))
    echo -a - Nick değişim sayısı: $iif($hget($1,$+(nck½,$1)),$+($chr(2),$hget($1,$+(nck½,$1)),$chr(32),$chr(2), - (Değişen nick'leri görmek için; $+($chr(2),/nik $1,$chr(2)) yazınız.)),$+($chr(2),Nick değişen yok.))
    echo -a - Yazılan satır miktarı: $iif($hget($1,$+(yz½,$1)),$+($chr(2),$hget($1,$+(yz½,$1)),$chr(32),$chr(2), - (Kanal'da kimin kaç satır cümle kurduğunu görmek için: $+($chr(2),/kns $1,$chr(2)) yazınız.)),$+($chr(2),Herhangi bir yazı yazılmamış.)) 
    echo -a - Atılan ban sayısı: $iif($hget($1,$+(ban½,$1)),$+($chr(2),$hget($1,$+(ban½,$1)),$chr(32),$chr(2), - (Kanal'da kim kime ne zaman ban atmış? Öğrenmek için: $+($chr(2),/bn $1,$chr(2)) yazınız.)),$+($chr(2),Atılan ban yok.)) 
    echo -a - Açılan ban sayısı: $iif($hget($1,$+(unbn½,$1)),$+($chr(2),$hget($1,$+(unbn½,$1)),$chr(32),$chr(2), - (Kanal'da kim ne zaman ban açmış? Öğrenmek için: $+($chr(2),/unbn $1,$chr(2)) yazınız.)),$+($chr(2),Açılan ban yok.)) 
    echo -a - Değişen mod sayısı: $iif($hget($1,$+(md½,$1)),$+($chr(2),$hget($1,$+(md½,$1)),$chr(32),$chr(2), - (Kanal'da kim hangi mod'u değiştirmiş? Öğrenmek için: $+($chr(2),/md $1,$chr(2)) yazınız.)),$+($chr(2),Değişen mod yok.)) 
  }
}
alias kns {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/kns #kanalismi) | halt }
  if !$hget($+(yazı,$1)) { echo -a - Veri bulunamadı. | halt }
  else { echo -a -  $+($chr(2),$1,$chr(2))  kanalı için; $+($chr(2),$hget($+(yazı,$1),0).item,$chr(2)) adet veri bulundu. |  var %& = 1,%&& = $hget($+(yazı,$1),0).item |  while %& <= %&& { echo -a - Nick: $+($chr(2),$hget($+(yazı,$1),%&).item,$chr(2)) - Yazdığı satır miktarı: $+($chr(2),$hget($+(yazı,$1),%&).data,$chr(2)) |  inc %& } } 
}
alias bn {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/bn #kanalismi) | halt }
  if !$read($+($1,ban,.txt)) { echo -a - Veri bulunamadı. | halt }
  else { echo -a -  $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(ban½,$1)),$chr(2)) adet veri bulundu. |  var %1 = 1,%2 = $lines($+($1,ban,.txt)) |  while %1 <= %2 { echo -a - $read($+($1,ban,.txt),%1) |  inc %1 } }
} 
alias unbn {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/unbn #kanalismi) | halt }
  if !$read($+($1,unban,.txt)) { echo -a - Veri bulunamadı. | halt }
  else { echo -a -  $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(unbn½,$1)),$chr(2)) adet veri bulundu. |  var %s = 1,%x = $lines($+($1,unban,.txt)) |  while %s <= %x { echo -a - $read($+($1,unban,.txt),%s) |  inc %s } }
} 
alias yetki {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/yetki #kanalismi) | halt }
  if !$read($+($1,yetkiler,.txt)) { echo -a - Veri bulunamadı. | halt }
  else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$lines($+($1,yetkiler,.txt)),$chr(2)) adet veri bulundu. |  var %q = 1,%r = $lines($+($1,yetkiler,.txt)) |  while %q <= %r { echo -a - $read($+($1,yetkiler,.txt),%q) |  inc %q } }
} 
alias md {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/md #kanalismi) | halt }
  if !$read($+($1,mode,.txt)) { echo -a - Veri bulunamadı. | halt }
  else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(md½,$1)),$chr(2)) adet veri bulundu. |  var %p = 1,%f = $lines($+($1,mode,.txt)) |  while %p <= %f { echo -a - $read($+($1,mode,.txt),%p) |  inc %p } }
} 
alias nik {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/nik #kanalismi) | halt }
  if !$read($+($1,nick,.txt)) { echo -a - Veri bulunamadı. | halt }
  else { echo -a - $+($chr(2),$1,$chr(2)) kanalı için; $+($chr(2),$hget($1,$+(nck½,$1)),$chr(2)) adet veri bulundu. |  var %z = 1,%o = $lines($+($1,nick,.txt)) |  while %z <= %o { echo -a - $read($+($1,nick,.txt),%z) |  inc %z } }
} 
alias ekle { if !$read(slnck.txt,w,$1) { write slnck.txt $1 } }
on *:connect: { sıfırla | remove slnck.txt }
alias sıfırla { echo -a - Tüm veriler sıfır'landı. | .hfree -w yazı* | .hfree -w $+($chr(35),*) | var %oo = 1,%aa = $lines(slnck.txt) | while %oo <= %aa { .remove $read(slnck.txt,%oo) | inc %oo } }

Bota ekleyip . Kanaldaki Yetkililerin kullanmasini nasil saglayabilirim . mesela
/kns #kanalismi yazarak kanal'da kimin kaç satýr yazý yazdýðýný,
/nik #kanalismi yazarak kanal'da kimin ne zaman nick deðiþtiðini ve yeni nick'ini,
/unbn #kanalismi yazarak kanal'da kim tarafýndan ne zaman ban açýldýðýný,
/bn #kanalismi yazarak kanal'da kim tarafýndan, ne zaman ban atýldýðýný,
/md #kanalismi yazarak kanal'da kimin, ne zaman, hangi modu, deðiþtirdiðini,
/yetki #kanalismi yazarak kimin kime ne yetki verdiði, tarihleri ile beraber
öðrenebilirsiniz.
/sýfýrla yazarak tüm kayýtlarý sýfýrlýyabilirsiniz.
Kullanýmý:
/takip #kanalismi (Kanal'ý takip'e alýr)
/rapor #kanalismi (Takip sonuçlarýný gösterir)

Gecerli olan komutlar Kendimize Ekledigimiz Zaman kullanabiliyoruz . bunlari Bota !takip !Rapor !kns !yetki !nik !unban Seklinde Kanala yazdiginda yazan kisinin ozeline gonderebilmesi mumkunmu

Packard · 24 Mart 2017, 22:38

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

Linkleri kırık add-onları bu başlık altında isteyebilirsiniz elinde olan var ise burada paylaşabilir.
- Ayrıca Snippet(Parça kod) isteklerinizi de bu başlık altında yapabilirsiniz.

Hocam öncelikle hayırlı akşamlar.

Bana atılan noticeler, global mesajları statuse atmak istiyorum kodu mümkünmüdür.

mustafa21 · 08 Nisan 2017, 09:18

Mrb arkadaslar Şu kodun calistigi web sitesi muneccim.com artık calismiyor bunu calisan bir web sitesine uyarlayabilmeniz mumkun mu rica etsem umarim konuyu yanlis yere yazmadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

on 1:text:*:#:{
if $chan == #Burç {
set %::ch #
if !bilgi isin $1 {
msg # Burçlarınızın AŞK uyumları hakkında, bilgi vermek için kodlanmıştır.
msg # < !uyum Burç-Erkek Burç-Kadın > şeklinde kullanarak, Erkek burcu üzerinden, Kadın burcunda ki etkileri görebilirsiniz.
msg # < !uyumk Burç-KADIN Burç-Erkek > şeklinde kullanarak, KADIN burcu üzerinden, Erkek burcunda ki etkileri görebilirsiniz.
}
if !uyum isin $1 {
.uyum $2-
}
if !uyumk isin $1 {
.uyumk $2-
}
}
}

alias wn {
if $sock($1).status == active {
sockwrite -n $1-
}
}

alias afree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x, , )
return %x
}

alias burclar { return akrep aslan koc boga basak oglak ikizler yay kova balik yengeç balık başak koç yengec boğa oğlak }

alias uyum {
if !$sock(uyum) {
var %::postveri1 $1 $2
if $gettok(%::postveri1,1,32) == $null || $gettok(%::postveri1,2,32) == $null || $gettok(%::postveri1,1,32) !isin $burclar || $gettok(%::postveri1,2,32) !isin $burclar {
msg %::ch 4HATA: Herhangi bir burç bilgisi girilmedi veya yanlış girildi, lütfen <!uyum Burç-Erkek Burç-Kadın> şeklinde kullanınız.
halt
}
set %::postveri $replace(%::postveri1,ş,s,ı,i,ç,c,ğ,g)
msg %::ch 4 $gettok(%::postveri,1,32) 2Erkeği ile,4 $gettok(%::postveri,2,32) 2Kadını AŞK uyumu getiriliyor ..
sockopen uyum muneccim.com 80
.timer $+ $r(1,99) 1 3 sockclose uyum*
}
else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}

alias uyumk {
if !$sock(uyum*) {
var %::postveri1 $1 $2
if $gettok(%::postveri1,1,32) == $null || $gettok(%::postveri1,2,32) == $null || $gettok(%::postveri1,1,32) !isin $burclar || $gettok(%::postveri1,2,32) !isin $burclar {
msg %::ch 4HATA: Herhangi bir burç bilgisi girilmedi, lütfen <!uyumk Burç-Kadın Burç-Erkek> şeklinde kullanınız.
halt
}
set %::postveri $replace(%::postveri1,ş,s,ı,i,ç,c,ğ,g)
msg %::ch 4 $gettok(%::postveri,1,32) 2Kadını ile,4 $gettok(%::postveri,2,32) 2Erkeği AŞK uyumu getiriliyor ..
sockopen uyumk muneccim.com 80
.timer $+ $r(1,99) 1 3 sockclose uyum*
}
else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}

on *:sockopen:uyum:{
var %wn Erkek= $+ $gettok(%::postveri,1,32) $+ &Kadin= $+ $gettok(%::postveri,2,32)
wn uyum POST /uyumluluk_goster/uyumluluk_goster.asp HTTP/1.1
wn uyum Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
charset="utf-8"
wn uyum Content-Length: $calc($len(%wn) + 1)
wn uyum Host: muneccim.com
wn uyum
wn uyum %wn
}

on *:sockread:uyum:{
var %w
sockread %w
if (*face="MS Serif"><big>* iswm %w) {
msg %::ch 5Uyum: $afree(%w)
}
}

on *:sockopen:uyumk:{
var %wn Erkek= $+ $gettok(%::postveri,2,32) $+ &Kadin= $+ $gettok(%::postveri,1,32)
wn uyumk POST /uyumluluk_goster/uyumluluk_goster2.asp HTTP/1.1
wn uyumk Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
charset="utf-8"
wn uyumk Content-Length: $calc($len(%wn) + 1)
wn uyumk Host: muneccim.com
wn uyumk
wn uyumk %wn
}

on *:sockread:uyumk:{
var %w
sockread %w
if (*face="MS Serif"><big>* iswm %w) {
msg %::ch 5Uyum: $afree(%w)
}
}

Rakun · 11 Mayıs 2017, 23:39

İyi geceler değerli İF kullanıcıları ve koderler ;

Bir kod isteğim olacak sizlerden nacizane. Daha önce eski bir script'te görmüştüm ( şuan scripti hatırlamıyorum ) sicil remotesi vardı.

Bu remote'den biraz daha farklı bir remote kodlaması rica edeceğim.

Kullanmak istediğim remote şu şekildedir ;

* Farz-ı misalen #a kanalı yardım kanalı olsun, #b kanalı da yardım kanalı görevlilerinin toplandığı kanal olsun.

* #b kanalında !sicilkayit nick mesaj şeklinde veri girişi yaptığımda, bu sicil kaydını sicilkayit.txt içerisine nick ident ve host şeklinde kaydetsin.

* #b kanalında !sicilgöster dediğimde ; veri girişi yapılmış olan sicilkayit.txt deki veriler kanala yazdırmalı.

* #b kanalında !sicilsil dediğimde ; veri girişi yapılmış olan sicilkayit.txt 'den veriyi silsin. Fakat burada benim silmek istediğim veriyi silmeli. Misalen : !sicilsil nick sırano bu şekilde hem nickin sicilini,hem o sicil kayıtta hangi sırada ise onu silsin ident ve hostu ile beraber.

* #b kanal'ında !sicildüzenle dediğim de ; sicilkayit.txt de kayıtlı olan veriden hangisini düzenlemek istediğimi belirtmeli ve ben o veriye göre düzenleme yapmalıyım.

Sicil için istemiş olduğum remote bu şekilde. Nacizane bir de mevcut aday ekleme remotelerinden biraz daha farklı bir remote kullanmak istiyorum.

Nacizane isteğim ;

* #a kanalı eğitim kanalı olsun, #b kanalı ise hem görevlilerin bulunduğu, hem de komutu kullanacağım kanal olsun.

* #b kanalı'nda !adaykayit nick eğitim konusu dediğim de ; adaykayitlari.txt içerisine nick ve eğitim konusu, adayı ekleyen ve eklendiği tarih saat ile beraber veri girişi yapmış olmalı.

* #b kanalı'nda !egitimkonular komutu uyguladığım da ; egitimkonular.txt içerisinde ki verileri kanala dökmeli ve bu konular içerisinden bana bir konu seçtirebilmeli ve aday nicki ile beraber konuyu ekleyebilmeliyim. Konuyu ekleyeni ve eklendiği tarihi,saati egitimverileri.txt içerisine veri girişi yapmalı.

Örneğin ;

!egitimkonular

Eğitim Konuları Sıralanıyor..

1- Chanserv
2- Nickserv
3-Memoserv
4-Botserv
5
6
7
şeklinde metin dosyam var diyelim, sıra numarasına göre bana verdireceğim eğitim konusunu seçtirmeli ve ardından, falanca nolu eğitim konusu listeye alınmış ve girişi yapılmıştır yanıtı vermeli.

* #b kanalı'nda !adaylar dediğim de ise eklenmiş olan adayları listelemeli ve hangi konuda eğitim verileceğini göstermeli.

* #b kanalı'nda !adaydurum dediğim de ise ; aday'ın eğitim durumu ne aşama da bitti mi, devam ediyor mu, başarılı mı yoksa başarısız mı gibisinden veri girişi yapabilmeliyim ve txt içerisine bu verileri kaydetmeli aynı zamanda bu verileri düzenleyebilmeliyim ( güncelleme )

Misal ;

!adaydurum aaa nicki chanserv konusunda eğitim almaya devam ediyor..
!durumduzenle aaa nicki chanserv konusunu tamamladı ve stajyerliğinin bitmesi bekleniyor..

gibi gibi

* #b kanalı'nda !rapor dediğim de ise ; mevcut adayların tüm raporlarını dökmeli. Eğitim verildi, başarısız oldu, ya da stajerliği bitti, başarılı ilgi alakalı, eğitim devam ediyor vb gibi durumların hepsini raporlamalı.

* #b kanal'ında !raporsil dediğim de, istediğim rapor verisini numara sırasına göre silebilmeliyim.

* #b kanalı'nda !raporduzenle dediğim de ise ; rapor güncellemesi yapabilmeliyim.

* #b kanalı'nda !yorumla dediğim de ise bir istatistik sunmalı.. Şu tarihten, bu tarihe kadar şu kadar konu anlatıldı, şu kadar adaya eğitim verildi, şu kadar aday silindi, şu kadar aday eğitimi geçemedi, şu kadar aday başarılı oldu gibisinden.

Bunlara ek olarak bir de ;

#a kanalına giren ~ @ & + yetkililerin giriş çıkış saatlerini tarihleri ve saatleri ile beraber onlinerapor.txt içerisine kaydetmeli !onlineraporla komutu ile bunları #b kanalına dökmeli.

Biraz uzun bir istek metni oldu ama affınıza sığınaraktan, yardımlarınızı rica ediyorum.

Saygı ve sevgilerimle değerli üstadlar.

Mecnun · 11 Mayıs 2017, 23:49

@Rakun
İlk istediğiniz kod; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hemen hemen aynı değilsede benzeri, düzenleyebilirsiniz.
İkincisi; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bunuda editlemeniz gerekir.

Rakun · 11 Mayıs 2017, 23:58

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

@Rakun
İlk istediğiniz kod; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hemen hemen aynı değilsede benzeri, düzenleyebilirsiniz.
İkincisi; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bunuda editlemeniz gerekir.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Teşekkür ederim, bahsettiğin konularda ki gerekli yerleri aldım. Peki Sicil remotesi için yardımcı olabilir misin ?

Mecnun · 12 Mayıs 2017, 00:04

Özelden yardımcı olacağım, Hayırlı IF'Ler dilerim.

Rakun · 12 Mayıs 2017, 02:28

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

Eline,emeğine,klavyene ve yüreğine sağlık...

Muazzam bir kodlama çıkardın ortaya. Çok teşekkür ederim,tam istediğim gibi oldu.

Faydalanmak isteyen arkadaşlarımız için de kodu paylaşmak istiyorum ;

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

on *:text:*:#kanal:{
  if $regex($1,/^([.!]s[iİı]c[İıi]l)/Si) {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }  
    elseif !$regex($2,/(kay[ıiİ]t|s[ıiİ]l|l[ıiİ]st(e)?)/Si) { msg # 2Lütfen parametre belirtiniz.4 !sicil kayit|liste|sil | return }
    elseif $regex($2,/^list(e)?$/Si) {
      if $lines(sicil.txt) = 0 { msg # 2Sicil kayiti bulunamadi. | halt }
      msg # 2Sicil listesi siralaniyor.
      var %massacre 1 | while (%massacre <= $lines(sicil.txt)) {
        msg # %massacre $read(sicil.txt,%massacre)
        inc %massacre
      }
    }
    elseif $regex($2,/^kay[ıiİ]t$/Si) {
      var %scl $address( $+ $3 $+ ,10)
      if !$3 { msg # 2Lütfen nick belirtiniz.4 !sicil kayit nick | return }
      elseif $read(sicil.txt,w,$nick) { msg # 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. }
      else {
        write sicil.txt 4Nick:2 $+ $3 - 4Ident@Host:2 $+ %scl - 4Sebep:2 $+ $4- - 4Ekleyen:2 $+ $nick 
        write islemler.txt 4Nick:2 $+ $3 - 4Ident@Host:2 $+ %scl - 4Sebep:2 $+ $4- - 4Ekleyen:2 $+ $nick 
        msg # 4 $+ $3 $+ , 2sicil listesine eklenmiştir. 4Ident@Host:2 $+ %scl 4Sebep:2 $+ $4-
      }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 { msg $nick 2Lütfen nick belirtiniz.4 !sicil sil numara | return }
      else {
        write $+(,-dl,$3,) sicil.txt
        write islemler.txt 4 $+ $3 $+ , 2sicil kaydı silinmiştir.4 Silen:2 $+ $nick
        msg # $3 $+ , 2numaralı nickin sicil kaydı silinmiştir.4 Silen:2 $+ $nick
      }
    }
  }
  elseif $regex($1,/^([.!][İiı][şŞs]lemler)/Si) {
    if !$read(master.txt,w,$nick) { msg # 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. }
    play # islemler.txt
  }
}

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tarafından kodlanmıştır.

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.