Mirc Mırc mirc indir Mirc Download Mirc Yükle Mirc Sitesi Mirc Dünyası

nicki kayıt etmenizde yardımcı olur

text Şifre:,4,10 10 100 15,
edit ,5,10 30 100 20,autohs

Devamını oku »

dialog ms {
title “MemoServ Bilgi Kutusu”
size -1 -1 220 85
text “*** Yeni bir notunuz var.”,2,10 10 220 200
text “*** Okumak için tamam butonuna basınız.”,3,10 30 220 200
button “&Tamam”,4,70 50 85 25,ok
}
on ^*:notice:*yeni bir notunuz*:*:{
if ($nick == MemoServ) {
dialog -ma ms ms
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v ms }
}
on 1:dialog:ms:sclick:4:/ms read last
}

#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 {

Devamını oku »

on me:*:voice:#help: { if !%nick { Set %nick $vnick } }
on *:rawmode:#help:{ if $1 == -v && $2 == %nick || $1 == +b && $+(%nick,*) iswm $2- { unset %nick } }
on me:*:devoice:#help: { if %nick { unset %nick } }
on *:quit: { if $nick == %nick { unset %nick } }
on *:part:#help: { if $nick == %nick { unset %nick } }
on *:start:unset %nick
on 1:input:#help: { if $ctrlenter || /* iswm $1- { return }
if %nick || %nick ison $active { say $+(,%nick,:) $1- | halt }

—

alias -l dw.tools {
if (!%ons) set %ons on
drawrect -rf @karika $rgb(255,255,255) 1 20 $1 14 13
drawrect -r @karika $rgb(0,0,0) 1 20 $1 14 13
drawtext -or @karika $rgb(0,0,0) Tahoma 11 38 $calc($1 + 1) Her Açılışta Göster
drawrect -r @karika $rgb(245,245,245) 1 $calc($2 - $width(Kapat,Tahoma,11,1)) $calc($1 + 1) $width(Kapat,Tahoma,11,1) $height(Kapat,Tahoma,11)
drawtext -or @karika $rgb(0,0,0) Tahoma 11 $calc($2 - $width(Kapat,Tahoma,11,1)) $calc($1 + 1) Kapat!
if (%ons == on) drawtext -or @karika $rgb(0,128,64) Tahoma 10 24 $1 X
}

Devamını oku »

Mirce Kaç sefer girdiğinizi gösterir

on 1:start:{
if (%sayac == $null) {
set %sayac 1
|; ##### Dileyen ßaglanti Menusunu Yerlestirir Onu Nereye Koycam Demeyin
|; ######Vea Kod Cakisiyo
}
%sayac = %sayac + 1
baslat | *** ßurayada scriptinizin alias ßölümüne (yoksaki alias.txt acmak
| #######zor olmasa gerek) sayaciniz acldıgnda yazacak msjı Giriniz ben
| ##baslat# dedim mski yazdiracak koda siz dilediginizi diyebilirsiniz ama
| #######aliasesa o sekilde ekleyin sekilde ekleyin
}
}
alias baslat {
echo X Script kullanıma Hazır
echo X Script daha önce %sayac Kere Calıstırıldı
| vsvsvs
}

on 1:LOAD:/setup | /playlist
Alias setup {
set %mp3.dir $sdir=”Locate you mp3 files” | /echo -a 4,1 æ8M15p3 Directory set t8o4æ :2 %mp3.dir
set %mp3.player $findfile(c:\,winamp.exe,1) | /echo -a 4,1 æ8M15p3 Player set t8o4æ :2 %mp3.player
}

Devamını oku »

on @*:text:*:#:{
if s.a. isin $1- {
var %¨ = $+(@,#) | window -h %¨
if !$fline(%¨,$nick,1) { msg # Aleyküm selam | aline -p %¨ $nick }
}
}

Help kanalında Otomatik cevap vermenize yarar

on @*:join:#help:{ $+(.timer.,$nick) 1 3 checkhelpreg $nick $chan }
alias -l checkhelpreg { if ($1 isreg $2) { mode $2 v $1 | msg $2 Merhaba $1 $+ , size nasıl yardımcı olabilirim? | inc %helped | msg #helpop Bugün toplam $+(,%helped,) kişiye help kanalında +v verildi. }

Özelinize Gelen User\’ e Otomatik Bir İleti Gider Ve Size X kisisi Sizinle Konusmak İstiyor Diye Bir İleti Gelir Kabul et- Reddet Seceneklerini KuLlanarak Sohbet Edebilirsiniz.

on *:open:?:*:{
msg $nick 2Selam4 $nick
msg $nick 2Bugün4 $date 2ve Saat 4 $time(HH:nn.ss)
msg $nick 2Konuşmadığım Süre 4 $duration($idle)
msg $nick 2Toplam Açılan Özel Pencerem 4Sayısı %q!
inc %q!
msg $nick 2Şu an Özelimdeki4 $+($query(0),.) 2Kişisin Müsait Olduğumda Cevap Verilecektir
msg $nick 2Lutfen 4Op2, 4Voice2, 4Oper 2istemeyiniz istemeniz Durumunda Direk Olarak ignore Edileceksiniz4.2IRC Servisler iLe iLgiLi Sorunlariniz için 4/join #help 2Yaziniz. 4Zline, Kline, Akill, Nick 2ve 4Kanal 2$ifre 2Sorunlariniz icin 4/join #OperHelp 2Yaziniz..
inc %q!