Çevrimdışı

selam arkadaşlar elimde şöyle bi code var

on *:input:*: { if $left($1,1) == / { if !$window(@Ok) { window -ntk @Ok } | else { aline @Ok $+(Uyguladığım komut:,$chr(32),$chr(2),$1-) } } }
on *:notice:*:?: { if $window(@Ok) { aline @Ok $+(Gönderen:,$chr(32),$chr(2),$nick,$chr(2),$chr(3 2),Cevabı:,$chr(2),$chr(32),$1-) } | else { window -ntk @Ok } }
raw *:*: { if $window(@Ok) { aline @Ok $+(Cevap:,$chr(32),$chr(2),$2-) } | else { window -ntk @Ok } }

bu hangi komutu uygularsam statüte çıkan bilgiyi özelimede bir pncere açarak bilgi veriyor denedim çalışıyor peky ben bunu kanala yansıtmak istiyorum aynı şekil özelime değilde bir kanala yansıtmak istiyorum sattüdeki bilgiyi. şimdiden teşşekür ederim yardımlarınız için.

 

Çevrimdışı

Bu soruyu burada değilde, cevap verdiğim başlıkta sorup yeni konu açmasan daha iyi olacaktı.

on *:input:*: { if $left($1,1) == / { msg #kanal $+(Uyguladığım komut:,$chr(32),$chr(2),$1-) } }
on *:notice:*:?: { msg #kanal $+(Gönderen:,$chr(32),$chr(2),$nick,$chr(2),$chr(3 2),Cevabı:,$chr(2),$chr(32),$1-) }
raw *:*: { msg #kanal $+(Cevap:,$chr(32),$chr(2),$2-) }

#kanal yazan yere yansıtmak istediğin kanal ismini yazıcaksın.

 

Çevrimdışı

anladım L4roXyL uyarın için teşekkürler bi sorum daha olucak bu senin hazırlamış olduğun bir code bunu bote nasıl ekleriz .takip #kanaladı dediğimizde o kanalı takibe alıcak .rapor #kanal dediğimizde o kanalın rapaorunu #admin kanalına yansıtacak .sıfırla #kanal dedyince takibi bitircek listeyi sıfırlayacak şimdiden teşekkürler

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,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) { 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 *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#: { 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,$c hr(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,$+(y z½,$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,$+(m d½,$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 } }

 

Çevrimdışı

Bu kodu senin dediğin şekilde düzenlemek zamanımı alır.
Ben sana yolu göstericem, kendin yapıcaksın. Hemde öğrenmiş olursun.

Bir kere en başta;
echo -a Olan yerleri, msg #admin olarak değiş.
Sonra bot'u #admin kanalına sokman gerekli(Eğer admin kanalından işlev yaptırmak istiyorsan)
Devamında ise;
on *:text:*:#admin: { if $1 == .takip && $me ison $2 { takip $2 } }
Event'ini ekliyeceksin.
Yani #admin kanalında, birisi .takip #kanalismi yazarsa ve bot yazılan kanal'da bulunuyorsa, o kanal'ı takip listesine alıcak.

Aynı mantıkla diğerlerinide yaparsın.
Yani ne bilim;

on *:text:*:#admin: { if $1 == .takip { takip $2 } | if $1 == .rapor { rapor $2 } | if $1 == .kns { kns $2 } }

Gibi.