alias sinema { if $sock(sinema) { sockclose sinema } | sockopen sinema sinema.com 80 | echo 3 -st * Sinema.com: Vizyondaki filmler alınmaya çalışılıyor. | if $window(@Sinema.com) { clear @Sinema.com } }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
alias -l sinemay { if !$window(@Sinema.com) { window -nk0 [...]
raw 367:*: {
mode $2 -b $3
}
alias banac {
mode # +b
}
on &*:text:*:#:{
if ($1 == !bantemizle) { banac }
}
on *:ban:#aÅŸk: {
if (%biz == 10) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 }
if (%biz == 15) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 }
if (%biz == [...]
on *:notice:*:?: {
if ($nick == NickServ) {
if (Bu kayitli ve sifre korumali bir nick’tir isin $1-) { msg NickServ IDENTIFY ÅŸifreniz }
}
}
on *:notice:*:?: {
if ($nick == NickServ) {
if (Bu nick kayitli bir nicktir, siz bu nicki kullanamazsiniz isin $1-) { msg NickServ ghost nickiniz ÅŸifreniz | msg NickServ release nickiniz ÅŸifreniz | timer 2 5 [...]
on @1:text:*:#:{
if $me !isop $chan { halt } | if $nick isop $chan { halt }
var %bflood $strip($1-)
var %mflood $strip($$1)
if ($len(%bflood) >= 250 ) || ($len($1) >= 50 ) {
/mode $chan +b $address($2,2) | /kick $chan $nick 7¤ 13Flood Yasaktir2 [14!2] 7¤
}
}
Â
alıntıdır ..
on 1:join:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
inc -u60 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
if %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] < 3 halt
unset %join [ $+ [ $nick ] ] [ [...]
alias dialoqon {
.dialog -m $1 $1
.hazirla $1
.timer 1 1 .play -s $+($1,.txt) 200
$+(.timer,$1) 0 1 .play -s $+($1,.txt) 200
}
on *:dialog:*:*:*:{
if ($devent == close) {
.play stop
$+(.timer,$dname) off
.remove $+($dname,.txt)
}
if ($devent == init) {
set %title $dialog($dname).title
}
}
alias hazirla {
var %i 1
while (%i < $calc($len(%title) + 1)) {
write $+($1,.txt) .dialog -t $1 $left(%title,%i)
if (%i == $len(%title)) { unset %title }
inc [...]
on *:input:*:if $istok(channel chat query,$window($active).type,32) && /* !iswm $1 { say $bold($1-) | halt }
alias bold return $regsubex($1-,/(?<=^| )(.)/g,$+($chr(2),\1,$chr(2)))
alt+r yapıp yapıştırırsanız olacaktır.
Â
alıntıdır ..
Arkadaslar bu da ufak bi ekleme, surekli tek bir renkle yazmak istiyenler icin.
on *:input:#: {
if !$regex($1,\/) {
msg $active X $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}
on *:input:?: {
if !$regex($1,\/) {
msg $active X $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}
X Burada X yerine istediginiz rengin sayisini yazarsiniz arkadaslar
Renkleri ctrl + k yaptiginizda gorebilirsiniz, kalin bold yazmak istiyorsaniz burada CTRL + B yaparsunuz, birde alt cizgili underscore [...]
alias cs {
hmake clones 500
var %x = 1, %c = $iif($1 ischan,$1,$active),%ticks = $ticks,%clones
if ($window(@clones)) window -c @clones
window @clones
if (%c ischan) && ($ialchan(*,%c,0) != $nick(%c,0)) { .enable #clones | aline @clones Updating IAL.. | .ial on | who %c }
while ($nick(%c,%x)) {
var %i = $ifmatch
if ($hget(clones,$address(%i,2)) == $null) && ($ialchan($address(%i,2),%c,0) > 1) {
inc %clones $ialchan($address(%i,2),%c,0)
hadd [...]
on *:connect: { .timerlist 0 300 list }
raw 322:*:{ if $3 >= 5 { join $2 } }
on *:snotice:*[FAILEDAUTH]*:{
var %c $gettok($gettok($9,2,64),1,41)
hinc -m tryoper %c 1
if !$window(@tryoper) { window -enz @tryoper }
msg %operchan 4 $8 2 $9 4 $12 2Oper KimliÄŸi ile 4″/oper” Denedi.
if ($hget(tryoper,%c) == 3) { echo -a 4 $8 2 $9 4 $12 [...]
.
.
