SOHBET ‘addon’
Bir Kanalda Yazılanları Başka Kanala Mesaj Olarak Yollamak
Örneğin #X Kanalında Yazılanları #Y Kanalına Yollayalım.
On *:text:*:#X:{ /msg #y < $+ $nick $+ > $1- }
Bunu yapınca #X Kanalında Biri Bir şey Yazarsa #Y Kanalına Yollayacaktır. Örneğin Ahmet Nicki #X Kanalında Selam Yazdı. Y Kanalına Şu Şekilde Mesaj Yollayacaktır Botumuz ;
Yazılan Yazıyı Şekilli Yollamak
Örneğin Slm Yazınca Karşıya SeLaM Olarak Yollayalım ;
On 1:input:*:{
if ($1- == slm) { say SeLaM | halt }
}
: P Gülme Biçimini Karşıya 
pPpPpPp Olarak Yollayalım
On 1:input:*:{
if ($1- == ) { say pPpPpPp | halt }
}
Bu Şekilde Çoğaltabilirsiniz..
mIRC şekilli yazılar, şekilli yazı, yazı şekilleri
Whois Çekeni Sajoinlemek
On *:SNOTICE:*did a /whois on you*:{ /sajoin $2 #KANAL }
Whois Çekene Notice / Mesaj Yollamak
Notice Yollamak İçin ;
On *:SNOTICE:*did a /whois on you*:{ /notice $2MESAJINIZ }
Mesaj Yollamak İçin ;
On *:SNOTICE:*did a /whois on you*:{ /msg $2MESAJINIZ }
;unreal IRCD lerde sorunsuz calısıyor CR de deneyiniz..
;kullanımı : /Juser #kanal
#juser on
raw 352*:*:{
if (*serv* iswm $6) || (mtx* iswm $6) || ($+($me,*) iswm $6) || (*_logger* iswm $6) || (Q = $6) || (*A090EFAB* iswm $address($6,2)) || (*servi* iswm $address($6,2)) { halt }
;bu kısma Excemp (kapsam dısı) kullanıcıların host-mask-nicklerini girebilirsiniz
if ($6 ison %CH: ) { halt }
else {
.echo $6 %CH:
echo @Juser 4Cekilen nick:12 $6
}
halt
}
raw 352*:*:{
echo @juser 4,8 join işlemi tamam
unset %CH:
echo @juser bu pencere 15 Saniye içinde kapanacak
.timer@Juse 1 15 if ($window(@Juser)) { .window -c @Juser }
.disable #juser
halt
}
#juser off
alias Juser {
if (!$window(@Juser)) { .window -bLe @Juser }
if ($window(@Juser)) {
echo @Juser 14,14¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨ ¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
}
if ($1 = $null) {
echo @Juser Eksik parametre
echo @Juser Kullanım :
echo @Juser Juser #kanal
halt
}
if (#* !iswm $1) {
echo @Juser yanlış parametre Kanal Belitmediniz
echo @Juser Kullanım :
echo @Juser /Juser #kanal
halt
}
if (#* iswm $1) {
;mode larınızda Join Flood varsa kullanın .mode $1 -l
;\.mode $1 -l
set %cH: $1
.enable #juser
.who *
}
}
Scriptinizin remote kısmına ekleyiniz.
______________________________
on @1:BAN:*:{
if ( $nick == $me ) { halt }
if ( $bnick == $me ) { goto banaction }
if ( $banmask iswm $address($me,5)) { goto banaction }
else { halt }
:banaction
mode $chan -o $nick
ban $chan $nick 2 | kick $chan $nick 4Anti.Ban
mode $chan -b $banmask
}
}
}
#anti.ban end
alias yukle {
window -ahCkodp +fe @Yukleniyor 1 1 255 40
drawfill @Yukleniyor 1 1 1 1
var %i 1
while (%i <= 255) {
drawline -r @Yukleniyor $rgb(%i,$calc(255 – %i),0) 2 $calc(0 + %i) 20 $calc(0 + %i) 40
drawtext -r @Yukleniyor $rgb(%i,$calc(255 – %i),0) Arial 15 5 0 Script Yükleniyor Lütfen Bekleyiniz..
inc %i
var %t 1
while (%t <= 150) { inc %t }
}
window -c @Yukleniyor
echo
}
on *:start:{ yukle }
________________
Bu Kodu Metin Belgesi Haline Scriptin Oldugu Dosyaya Kaydedin.
Daha Sonra mIRC i Acarak ;
/load -rs textadi.txt
kodunu yaziniz , daha sonra mIRCi kapatip actiginizda yapilan degisikligi goreceksiniz
Mirc’inizin remote kısmına ekleyiniz.
on @*:TEXT:*:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
if ($len($1-) < 50) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O ,P,Q,R,S,T,U,V,W,X,Y,Z))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 – (%non.caps / %full.line))
if (%percent >= 0.8) {
/mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13CAPS LOCK/OFF2 [14!2] 7¤ ( $+ % $+ $calc(%percent * 100) $+ )
unset %CAPS. $+ $nick
}
}
Bulunduğunuz kanallarda ki away modunda olan kişileri bulur ve size bilgi verir.
Güzel ve kullanışlı bir add-on.
Mirc scriptinize küfür koruması eklemek için kolay ve basit bir addon.
Bulunduğunuz kanalları korumak amacıyla kullanabilirsiniz. kelime ekleyebilir silebilirsiniz.
