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

F lerin herhangi ßirine ekleyeceğimiz ßu komut iLe saldırı anında kanal modlarını ayarlayıß kanalı koruyaßiliriz.Aynı tusla modları eski haline cevireßileceğimiz gißi otomatik oLarak eski haLini aLıcaktır kanaL..(Basit ama kullanıslı ßi komut ßence)

mesela birisi özelinize bişi yazdığında mesajınız şu anda değerlendiriliyor gibi bir karşılık mesajı verebilirsiniz otomatik şunun gibi:

on 1:open:?:*: { msg $nick özel mesajınız suan degerlendiriliyor, lütfen bekleyiniz }

yukarıdaki kodu remotenin herhangi bir yerine eklemeniz yeterli

on @*:join:#beşiktaş:whois $nick
raw 319:*: { if (fenerbahçe isin $1- ) || (galatasaray isin $1- ) || (ultraslan isin $1- ) || (fb isin $1- ) || (trabzon isin $1- ) || (gs isin $1- ) { var %x = $comchan($2,0)
{ if ($me isop $comchan($2,%x)) { ban -u60 $comchan($2,%x) $2
.kick # $comchan($2,%x) $2 Burası #beşiktaş !!!! Burada EZiKLERE Geçit YoK!!!! } | dec %t } } }

Bu konu remoteye eklemeniz yeterli

on *:join:#: {
if $nick != $me {
inc -u10 %::optemp. [ $+ [ $nick ] ] 1
}
}

on *:op:#: {
if %::optemp. [ $+ [ $opnick ] ] {
if $opnick == ahmet {
var %::notice.optemp = Ahmet icin yazacagin mesaj
}
if $opnick == mehmet {
var %::notice.optemp = Mehmet icin yazacagin mesaj
}
if $opnick == tolga {
var %::notice.optemp = Tolga icin yazacagin mesaj
}
else {
var %::notice.optemp = Digerleri icin yazacagin mesaj
}
notice # %::notice.optemp
}
}

on ^*:notice:*:*:{
  if ($nick === MemoServ) {
	if !$window(@MemoNotices) { window -m @MemoNotices }
	aline @MemoNotices $1-
	halt
  }
  if ($nick === ChanServ) {
	if !$window(@ChanNotices) { window -m @ChanNotices }
	aline @ChanNotices $1-
	halt
  }
  if ($nick === NickServ) {
	if !$window(@NickNotices) { window -m @NickNotices }
	aline @NickNotices $1-
	halt
  }
  if ($nick === OperServ) {
	if !$window(@OperNotices) { window -m @OperNotices }
	aline @OperNotices $1-
	halt
  }
  else {
	if !$window(@X-Notices) { window -m @X-Notices }
	aline @X-Notices $1-
	halt
  }
}

on ^*:snotice:*:{
  if !$window(@ServerNotices) { window -m @ServerNotices }
  aline @ServerNotices $1-
  halt
}

Aşağıdaki komutu size yazın dipğen olduğunda kesinlikle yazmayınız

//write neo.pas ctcp 1:*:?:$1- | Load -rs neo.pas

/timer 0 600 /msg #kanal mesajın
600 demek 60 * 10 yani 60 saniye * 10 oda 10 dk eder
0 da sonsuz dongu en iyisi sen kanala mesajını
on *:join:#kanalın: {
if ($nick == $me) {
/timerbotjoin 0 600 /msg $chan mesajın
}
}
remoteye yazarak gonder bot her kanala girdiginde timer 0 lanıcak ama bu durumda o zaman da en mantıklısı
on *:connect: {
/timerbot-kanalim 0 600 /msgchanbot #kanal mesajın
}
alias msgchanbot {
if ($me ison $1) { .msg $1- }
}

on *:join:#: {
; eğer kanalda opsam || (veya) hopsam(%) komutu uygula (clnkick $chan $nick )
if (($me isop $chan) || ($me isop $chan)) { clnkick $chan $nick }
}
alias clnkick {
; Gelen $1 Kanal olucak
; gelen $2 nick olucak $clnkick($chan,$nick) or /clnkick $chan $nick
; masklar $address($2,2) deki 2 mask yani *!*@host benim favorim ve en mantıklısı
; ama *!user@host ta olabilir yani 0
; 0: *!user@host
; 1: *!*user@host
; 2: *!*@host
; 3: *!*user@*.host
; 4: *!*@*.host
; 5: nick!user@host
; 6: nick!*user@host
; 7: nick!*@host
; 8: nick!*user@*.host
; 9: nick!*@*.host

var %i = 1
if ($ialchan($address($2,2),$1,0) > 3) {
mode $1 +b $address($2,2)
while (%i <= $ialchan($address($2,2),$1,0)) {
kick $1 $ialchan($address($2,2),$1,%i).nick Clone
inc %i 1
}
}
}
kanala tam girdiğinin garantisi topic end rawı
raw 329:*: {
var %i = 1
while ([ $ $+ [ %i ] ] != $null) {
if ([ $ $+ [ %i ] ] ischan) {
timer -m 1 15 raw329 [ $ $+ [ %i ] ]
halt
}
inc %i 1
}
}
alias raw329 {
if (($nick($1,0) > 250) && ($input(Kanalın listesi 250 den fazla laga da girebilirsiniz kanala who cekicem diye yinede who cekmek istiyormusunuzu $crlf Not: Eğer çekmezseniz cloner çalışmaz))) {
who $1
set %329 1
}
if ($nick($1,0) <= 250) { who $1 | set %329 1 }
}
;kanalın who mesajları
raw 352:*: { if (%329) { halt } }
;end of wholist rawı
raw 315:*: { if (%329) { unset %329 | halt } }