Mircde buyuk harfle yazmaya baslamak

on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) && ($active != status window) {
msg $active $cumlekur($1-)
halt
}
}
alias cumlekur {
if $isid {
var %x , %i = $regsub(cumlekur,$1-,/((\.|;|\+([a-z]|[A-Z]|[[:space:]]|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ).)/g,\1,%x), %i = 1, %retval = $1-
while %i <= $regml(cumlekur,0) {
if $regex(ifcumlekur,$regml(cumlekur,%i),((\.|;|\.| ..)) {
%setvar = $remove($regml(cumlekur,%i),.,:,;,$chr(32))
%setvar = $+($left($regml(ifcumlekur,1),1),$chr(32),$upper($ replacecs($left(%setvar,1),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)),$ mid(%setvar,2,2))
var %x , %l = $regsub(%retval,$+(/,$regml(cumlekur,%i),/g),%setvar,%x), %retval = %x
}
inc %i 1
}
return $replace($upper($left(%x,1)),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)) $+ $right(%x,-1)
}
}

 
Oto selam addonu basit ac/kapa

 

dialog otos {
title “oto selam”
size -1 -1 60 53
option dbu
button “Açık”, 1, 12 5 37 12
button “Kapalı”, 2, 12 20 37 12
button “Tamam”, 3, 12 35 37 12, cancel
}
alias otos dialog -m otos otos
on *:dialogtos:sclick:*: {
if ($did == 1) { .enable #otos }
if ($did == 2) { .disable #otos }
}
#otos on
on *:text:*:?: {
msg $nick A.selam $nick
}
#otos end

 

AGRESIF GIRIS YAPANLARA GLINED
Burda aynı ip yle 5 Saniye icinde 3 giris yapınca Gline Atıyor.
İyi çalışmalar.

 

on *:snotice:*client connecting*:{
  var %µ = $+(%,flood.,$left($gettok($10,2,64),-1))
  inc $(%µ,1)
  if (!$timer($gettok(%µ,1,37))) { $+(.timer,$gettok(%µ,1,37)) 1 5 unset $(%µ,1) }
  if ($(%µ,2) >= 3) { unset $(%µ,1) | gline $9 . BaNNED }