spam {
if (%LanetLiLanetLi != 1) {
%meydeymeydey = 1
mode $me +s +ckeG
echo -a Anti Spam OnLine.
halt }
elseif (%LanetLiLanetLi == 1) {
unset %LanetLiLanetLi
echo -a Anti Spam offLine
echo -a Toplam Kline say?s?: %klinecount
unset %klinecount
window -c @ConnExit
}
}
Bu kodede mirc'in remote lerine eklenecektir
menu @ConnExit {
dclick: {
%satir = $line(@ConnExit, $1)
%glineho = $pos(%satir,@,1) + 1
%hede = $pos(%satir,[,1) - 2
%bukadar = %hede - %glineho
%glinehoo = $mid(%satir, %glineho, %bukadar)
aline -c4 @ConnExit G-Line %glinehoo
dline @ConnExit $1
gline *@ $+ %glinehoo +90d : Spam
unset %satir
unset %hede
unset %bukadar
unset %glineho*
}
}
Kod:
On ^1:SNOTICE:*connecting*: {
if (%meydeymeydey == 1) {
if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
aline -c7 @ConnExit $4-
if ($len($9) >= 9) {
%a = $left($9,4)
%i = 0
%bukadar = 0
while (%i < 4) {
inc %i
%b = $mid(%a, %i,1)
if (%b isin qwrtypsdfghjklzxcvbnm) {
inc %bukadar
}
}
if (%bukadar == 4) {
%glineho = $pos($10,@,1) + 1
%glinehos = $mid($10, %glineho, $len($10) - 1)
%uzun = $len(%glinehos) - 1
%glinehost = $left(%glinehos, %uzun)
aline -c4 @ConnExit G-line $9 %glinehost
gline *@ $+ %glinehost +365d : Spam
unset %glineho
unset %glinehos
unset %uzun
unset %glinehost
inc %glinecount
}
unset %bukadar
}
}
haltdef
}
On ^1:SNOTICE:*exiting*: {
if (%LanetLiLanetLi == 1) {
if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
aline -c12 @ConnExit $4-
haltdef
}
}
Bu codeleri ekledikten sonra mircde önce /remote on sonrada /spam yazıyorsunuz eğer başarılı bir şekilde uygulayabildiyseniz anti spam online diye bir msg çıkiyor karniniza ve sistem hazir olmuz oluyor bu saniyeden sonra girenler için yeni bir pencere açilacak ve bu size gösterilecektir
