Regex Remote Botlar icin kod
[code]alias _spamregex { return $replacex($1-,a,[aA@4æàáâãäåÀÁÂÃÄÅÆ],b,[bBß],c,[cçÇ],ç,[cçÇ],Ç,[cçÇ],e,[eE3ÆèéêëÈÉÊË€£],g,[ggGqk],g,[ggGqk],G,[ggGqk],i,[iIiI1I!ÏïîÍíÌìÎî],i,[iIiI1I!ÏïîÍíÌìÎî],I,[iIiI1I!ÏïîÍíÌìÎî],k,[kqgGg],m,[mw],l,[Iil1],o,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],ö,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],Ö,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],u,[uüÜÙÚÛÜ],ü,[uüÜÙÚÛÜ],Ü,[uüÜÙÚÛÜ])
}
on *:text:*:#Operlog: { if $1 == !regex { if $istok(Admin Karizma Sami,$nick,32) { if !$2 {
|
#Kanal yazdigin yerde belirtigin mesajlari yazar, Mesaj diye yazdigim yerlerede kendin doldurursun.
#Opers yazan yerde komut calisir, kodu denemedim, hata verirse belirtirsen düzeltirim.
[code]on $*:text:/[!.]rezilet/i:#opers: {
if !$2 || !$3 { .msg # $nick Lutfen duzgun nick ve kanal belirtiniz. | return }
shun $2 +0 Rezilet.
msg # $2 rezil etme olayi tamam'dir.
sendraw $3 $(::,$2) privmsg $3 Mesaj
sendraw $3 $(::,$2) privmsg $3 Mesaj
sendraw $3 $(::,$2)
|
#guvenlik kanalına girene kod sorgulatma
[code]on * notice:*: {
if (connecting isin $1-) {
writeini version.ini $9 ip $+(*@,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64))
timer 1 2 ctcp $9 version
timer $+ $readini(version.ini,$9,ip) 1 10 /who $+(*,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64),*)
}
}
raw 352:*:{
sajoin $6 #guvenlik
}
on *:join:#guvenlik: {
if ($level($nick) == muafnlist) { halt }
if $nick == $m
|
Bu kod ile kanallarda süresi dolan banları otomatik olarak açabilirsiniz. Süreyi 15 dakika olarak ayarladım, ihtiyaca göre değiştirilebilir.
[code]#unbanci on
alias kontrol2 {
var %1 1
while %1 <= $ibl($1,0) {
var %time $calc($gettok($time,2,58) - $gettok($time($ibl($1,%1).ctime),2,58))
if %time >= 15 {
$iif(o isin $usermode,os mode $1 -bbbbbb $ibl($1,%1),mode $1 -bbbbbb $ibl($1,%1))
}
|