Oto Selam – Mırc kodu

on @*:text:*:#:{
if ($nick isreg $chan) {
if (selam iswm $1-) || (s.a. iswm $1-) || (sa iswm $1-) || (slm iswm $1-) {
msg $chan ALeykum SeLaM 5 $nick }
}

Oto Ban Açma – Mırc kodu
kanal ban listesi 40 geçtigi zaman otomatik olarak banlar açılacaktır mirc script remotenizi açiyorsunuz (ALT+R) ekmeniz gereken kod;

on *:ban:#: {
if (($me isop $chan) || ($me ishelp $chan)) {
if ($ibl($chan,0) <= 40) { halt }
set %UnBanz $ibl($chan,0)
.echo -a $chan banlist 40′i Gecmis Son 10 tanesi siliniyor.
mode $chan -bbbbb $ibl($chan,%UnBanz) $ibl($chan,$calc(%UnBanz – 1)) $ibl($chan,$calc(%UnBanz – 2)) $ibl($chan,$calc(%UnBanz – 3)) $ibl($chan,$calc(%UnBanz – 4)) $ibl($chan,$calc(%UnBanz – 5))
mode $chan -bbbbb $ibl($chan,$calc(%UnBanz – 6)) $ibl($chan,$calc(%UnBanz – 7)) $ibl($chan,$calc(%UnBanz – 8)) $ibl($chan,$calc(%UnBanz – 9))
}
}

Sohbet Ederken özelinizdeki kişilerin ortak girdiginiz kanallari ve o nickten başka giriş varsa cafe tarzi girişleri size bildirir. Kod aşagidaki gibidir.

menu status,menubar, {

.-

.? © Cafe and Ortak KanaL Uyarı !

..? Açık !:.enable #cafeuyar | .echo -a 0,4 Cafe and Ortak KanaL Uyarı Açıldı.. %logo

..? Kapalı !:.disable #cafeuyar | .echo -a 0,4 Cafe and Ortak KanaL Uyarı KapatıLdı.. %logo

.-

}

#cafeuyar on

on 1:open:?: {

if $address($nick,2) != $null qc $nick

else {

set %ial query

.who $nick

}

.echo $query($nick) 12***4 $nick ile Ortak Kanallar :12 $comchan($nick,1) $comchan($nick,2) $comchan($nick,3) $comchan($nick,4) $comchan($nick,5) $comchan($nick,6) $comchan($nick,7) $comchan($nick,8) $comchan($nick,9) $comchan($nick,10)

}

alias qc {

unset %qc*

if $ial( $address($1,2) , 0 ) < 2 halt

:başla

inc %qc

if $ial( $address($1,2) , %qc ).nick == $1 goto başla

if $ial( $address($1,2) , %qc ).nick == $null goto son

set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick

goto başla

:son

if %qc [ $+ [ $1 ] ] == $null halt

echo $1 12*** 4Özelinizdeki 12 $1 %qc [ $+ [ $1 ] ] 4aynı cafe?den yada aynı kişiler. 2( $+ $address($1,2) $+ )

unset %qc*

}

#cafeuyar end