Bot Hakkında... - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

el33t · 04 Ağustos 2005, 20:28

1. sorun için, sen kanala girdiğinde 2 saniye aralıklı bir timer açıp o timerla bir aliası çağırıp kanalda kaç kişi olduğunu anlayıp, istediğini yapabilirsin, eğer 1'e eşitse ($nick(#kanal,0)) , sen op değilsen ve $usermode içinde o varsa samode'la kanalda op olunabilir, eğer 1'den büyükse ve sen o kanalda opsan kendini deop edebilirsin. Kanaldan çıktığında da güvenlik olsun diye timerı kapatabilirsin. Bunlar için bilmen gereken en önemli şeyler on JOIN, on PART, $nick(#kanal,0) (kanalda kaç kişi olduğu), $usermode..

on me:*:join:#deneme:{ $+(.timer,$chan) 0 2 kontrolet $chan }
on me:*:part:#deneme:{ if $timer($chan) { $+(.timer,$chan) off } }
alias kontrolet { if $1 ischan { if ($nick($1,0) = 1) && ($me !isop $1) && (o isin $usermode) { samode $1 +o $me } | elseif ($nick($1,0) > 1) && ($me isop $1) { mode $1 -o $me } } }

İkinci sorunu anlayamadım, botun olduğu kanallarda 15 dakika önce atılmış banları samode ile açacak demişsin, Bu biraz saçma olur çünkü her dakika kontrol edilse kaç dk önce atıldı banlar diye, her dakika ban atılabileceği için, her dakika ban açmak gereksiz yere flood olur, onun yerine her 15 dakikada bir tüm banlar açılabilir.

Üçüncü soruna gelince, sen servera bağlandığında her 20 dakikada bir tüm kanallara sırayla /who çekip, gelen who cevabına göre, 7. cümlede G harfi olanlara whois çekip, away mesajlarını kontrol edebilirsin, eğer away mesajlarında reklam varsa kline atabilirsin.. (Kalınla yazdığım yerler who çekilmesini istemediğin kanallar)

alias awaykontrol { var %ş = $chan(0) | while %ş { if !$istok(#deneme #help #operhelp,$chan(%ş),32) { who $chan(%ş) } | dec %ş } }
raw 352:*:{ if (G isincs $7) && ($6 isreg $2) { whois $6 | set -u60 $+(%,wcheck.,$6) $4 } }
raw 301:*:{
var %ğ = $remove($strip($3-),$chr(32))
if ($($+(%,wcheck.,$2),2)) && (*http:* iswm %ğ) || (*ftp:* iswm %ğ) || (*irc.* iswm %ğ) || (*/server* iswm %ğ) || (*.com iswm %ğ) || (*[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm %ğ) {
kline $+(*@,$($+(%,wcheck.,$2),2)) Away mesajında reklam yapmak yasaktır.
}
}

Umarım anlamışsındır ve mIRC Scripting hakkında bir fikrin olmuştur.
(Not: kodların hiç birini denemedim.)

AsiLmavi · 05 Ağustos 2005, 10:46

SaolasıN Dostum. ikinci sorumun codesini alabilirmiyim?

el33t · 05 Ağustos 2005, 12:13

el33t Nickli Üyeden Alıntı

İkinci sorunu anlayamadım, botun olduğu kanallarda 15 dakika önce atılmış banları samode ile açacak demişsin, Bu biraz saçma olur çünkü her dakika kontrol edilse kaç dk önce atıldı banlar diye, her dakika ban atılabileceği için, her dakika ban açmak gereksiz yere flood olur, onun yerine her 15 dakikada bir tüm banlar açılabilir.

asilmavi Nickli Üyeden Alıntı

SaolasıN Dostum. ikinci sorumun codesini alabilirmiyim?

Çok zekice bir cevap gerçekten.. Ben ikinci sorunu anlayamadım demişim ve sana seçenekler sunmuşum, senin verdiğin cevapsa ikinci sorumun kodunu alabilir miyim? Anlama problemlerin mi var?

AsiLmavi · 05 Ağustos 2005, 14:00

el33t Nickli Üyeden Alıntı

Çok zekice bir cevap gerçekten.. Ben ikinci sorunu anlayamadım demişim ve sana seçenekler sunmuşum, senin verdiğin cevapsa ikinci sorumun kodunu alabilir miyim? Anlama problemlerin mi var?

Tamam kendim hazırladım dostum saol. yani 15 da bir banları acan codeyi sormuştum. saolasın.

05 Ağustos 2005, 19:04

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 alias _ban.chans { .whois $me | .timer.check 1 2 _ban.ccheck } 

raw 353:*: { .set -u15 %::mchan $remove($4-,@) }

alias _ban.ccheck {
  if %::mchan {
	var %k = 1,%:mchan = $numtok(%::mchan,32)
	while %k <= %:mchan {
	  _queue .names $gettok(%::mchan,%k,32)
	  inc %k
	}
  }
}

raw 319:*: { 
  if %::mchan {
	var %m = 1
	while %m <= $numtok($3-,32) {
	  if *@* !iswm $gettok($3-,%m,32) && *o* iswm $usermode {
		_queue samode $gettok($3-,%m,32) +o $me
	  }
	  inc %m
	}
  }
}
alias _queue {
  inc %queue.count
  if ($timer(.queue) == $null) {
	hadd -m queue count 1
	hadd -m queue 1 $1-
	_doqueue 1
  }
  else {
	var %queue.count = $calc($hget(queue,count) + 1)
	hadd -m queue %queue.count $1-
	hadd -m queue count %queue.count
  }
}
alias _doqueue {
  if ($hget(queue,$1) != $null) {
	.timer.queue -mo 1 $calc((4 - $gettok(3 2 1,$1,32)) * 60) _doqueue $calc($1 + 1) 
	$ifmatch
	.hdel -s queue $1
  } 
  else hfree queue
}

Bu koda dokunmayın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Akşam evde devam edeceğim. Sadece ulaşım kolaylığı olsun diye attım. Ayrıca bu kod Eğer Botun bulunduğu kanallarda op yoksa op olmayan kanallarda op a çıkar.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Değeri Yıllar Sonra Anlaşılan ve Hakkında Çok Az Şey Bilinen ‘İnci Küpeli Kız’ Tablosu Hakkında 8 Şaşırtıcı Gerçek	Zeytin	Kültür ve Sanat	0	08 Mart 2023 15:48
İos hakkında her konu hakkında	baCk	Cep Telefonu İşletim Sistemi	0	15 Kasım 2015 13:29
raw hakkında.	Beklenti	mIRC Scripting Sorunları	10	16 Ocak 2012 17:55
Kur’ân hakkında ne dediler? Mumsema İslam Arşivi Kur’ân hakkında ne dediler?	iLda	Genel İslami Konular	0	26 Ocak 2011 15:50
Hit HAkkında	AxituRk	Google	0	10 Kasım 2009 10:40

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.