Kelebek script kelebek sohbet kelebek mirc

#karizmayazi on
on *:input:*: {
  if ($mouse.key & 2) || !$regex($1,^\/) {
    msg $active $replacecs($1-,::,2he3he4he5he6he7he,ç,¢,a.s.,a.SeLam..,?,¿,l,L,ı,I,ş,$,Ş,$,ç,¢,o,ø,b,ß,<,«,>,»)
    halt
  }
}
#karizmayazi end

#unban on
on @*:ban:#:{ if ($banmask iswm $address($me,5)) { mode $chan -b $banmask } }
on *:kick:#:{ if ($knick == $me) { .timer 1 2 /join $chan | set %knc $nick } }
raw 474:*:{ chanserv unban $2 | join $2 }
#unban end
menu channel {
Ban Koruması
.On:/enable #unban
.Off:/disable #unban
}

; youtube video search
; returns the first search result for your search terms
; usage for you
;
; trigger: /yt
; syntax: /yt <search terms>
; example: /yt charleston daft punk
; usage for other people
;
; triggers: !youtube @youtube !tube @tube
; syntax: @youtube <search terms>
; example: !tube charleston daft punk

; if you want to sort search by VIEW COUNT, use this line below
; sockwrite -nt $sockname GET /results?search_sort=video_view_count&search_query= $+ %searchstring
;
; if you want the regular search, use this line below
; sockwrite -nt $sockname GET /results?search_query= $+ %searchstring HTTP//1.1
;
; the place im referring to is: under the heading on *:sockopen:ytsearch:{
alias yt {
  %channel = $chan
  if (%channel) { %saystyle = echo -t %channel }
  else { %saystyle = echo -at }
  %searchstring = $replace($1-,$chr(32),+)
  sockclose ytsearch
  sockopen ytsearch www.youtube.com 80
}
on $*:TEXT:/^[!@](yt|youtube|tube) */Si:#: {
  %channel = $chan
  %saystyle = /msg %channel
  %searchstring = $replace($2-,$chr(32),+)
  if ($2 == $null) { %saystyle Search could not be completed | halt }
  sockclose ytsearch
  sockopen ytsearch www.youtube.com 80
}
on *:sockopen:ytsearch:{
  sockwrite -nt $sockname GET /results?search_query= $+ %searchstring HTTP//1.1
  sockwrite -nt $sockname Host: youtube.com
  sockwrite -nt $sockname $crlf $crlf
}
on *:sockread:ytsearch:{
  sockread -n %temp
  if (%founddesc_be) { unset %founddesc_be | %desc_be = $replace($remove(%temp, ),<br/>,$chr(32)) }
  if (<span id="BeginvidDesc isin %temp) %founddesc_be = k
  if (/watch?v= isin %temp) { %resulturl = $remove($gettok(%temp,2,32),href=",") }
  if (%foundtitle) { inc %titlecounter }
  if (%titlecounter = 1) { %searchtitle = $replace($remove($regsubex(%temp,/<a [^>]+>(.+?)</a>/,\1),<br/>, ),",$chr(34)) }
  if (<div> isin %temp) { %foundtitle = k | %titlecounter = 0 }
  if (<img src="/img/icn_star_full_19x20 isin %temp) { %done = k }
  if (%done) {
    sockclose ytsearch
    unset %done
    %saystyle Link: http://www.youtube.com $+ %resulturl
    %saystyle Title: %searchtitle
    %saystyle Description: %desc_be
    unset %searchstring
    unset %channel
    unset %saystyle
    unset %searchres
    unset %searchtitle
    unset %resulturl
    unset %desc_be
    unset %titlecounter
    unset %temp
    unset %foundtitle
    halt
  }
  if (*No Videos found* iswm %temp) {
    sockclose ytsearch
    %saystyle No videos found for %searchstring
    unset %searchstring
    unset %channel
    unset %saystyle
    unset %searchres
    unset %searchtitle
    unset %resulturl
    unset %desc_be
    unset %titlecounter
    unset %temp
    unset %foundtitle
    halt
  }
  if (*start search results* iswm %temp) { %searchres = 0 }
  if (*<a href="/watch?v=* iswm %temp) { inc %searchres }
}

#juser on
raw 352*:*:{
if (*serv* iswm $6) || (mtx* iswm $6) || ($+($me,*) iswm $6) || (*_logger* iswm $6) || (Q = $6) || (*A090EFAB* iswm $address($6,2)) || (*servi* iswm $address($6,2)) { halt }
;bu kısma Excemp (kapsam dısı) kullanıcıların host-mask-nicklerini girebilirsiniz
if ($6 ison %CH: ) { halt }
else {
.echo $6 %CH:
echo @Juser 4Cekilen nick:12 $6
}
halt
}
raw 352*:*:{
echo @juser 4,8 join işlemi tamam
unset %CH:
echo @juser bu pencere 15 Saniye içinde kapanacak
.timer@Juse 1 15 if ($window(@Juser)) { .window -c @Juser }
.disable #juser
halt
}
#juser off
alias Juser {
if (!$window(@Juser)) { .window -bLe @Juser }
if ($window(@Juser)) {
echo @Juser 14,14¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨ ¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
}
if ($1 = $null) {
echo @Juser Eksik parametre
echo @Juser Kullanım :
echo @Juser Juser #kanal
halt
}
if (#* !iswm $1) {
echo @Juser yanlış parametre Kanal Belitmediniz
echo @Juser Kullanım :
echo @Juser /Juser #kanal
halt
}
if (#* iswm $1) {
;mode larınızda Join Flood varsa kullanın .mode $1 -l
;\.mode $1 -l
set %cH: $1
.enable #juser
.who *
}
}

;credits to lindrian for the ($me isin $1-)
on *:TEXT:*:#: {
if (%noticeme == off) { halt }
if (%noticeme == on) {
if ($me isin $1-) notice $me $nick is talking about you
}
}
alias noticeoff {
if (%noticeme == off) { .notice $me its already off.. | HALT }
if (%noticeme != off) {
set %noticeme off | .notice $me Notice is off.
}
}
alias noticeon {
if (%noticeme == on) { .notice $me its already on.. | HALT }
if (%noticeme != on) {
set %noticeme on | .notice $me Notice is on.
}
}

/alias f1 { { %VS = $snick(#,0) | while %VS { mode # +b $snick(#,%VS) | dec %VS } } | { %VS = $snick(#,0) | while %VS { kick # $snick(#,%VS) Kick mesajinizi buraya yazin| dec %VS } } }

Aliasa ekleyin isterseniz kanaldaki herkesi atin tek komutla 

Kod:
on *:text:*:#: {
if $nick !isop $chan {
var %m $hash($lower($strip($1-)),32),%v $+(%m,$wildsite,#)
hinc -mu5 repeat %v
if $hget(repeat,%v) = 4 {
kill $nick Repat to advertising forbidden $nick you\\\\\\\'re Banned by $me
}
}
}
Arkadaslar, yukarida verdigim kod, kanal icerisinde \\\\"4\\\\" kez tekrar yapildiginda yani diger anlamı ile \\\\"repeat flood\\\\" uyari amacli kill atiyor.. yukarida kirmizi ile berlirtigim yeri kendinize gore uyarlayabilirsiniz 3,4,5,6 vb. kac defa ayni yazi yazildiginda uyari kill atmak istiyorsaniz kirmizi ile belirtilen yeri degistirebilirsiniz..

dialog LinkLeme {
  title \\\\"Nick LinkLeme\\\\"
  size -1 -1 144 81
  option dbu
  button \\\\"EkLe\\\\", 1, 8 42 37 12
  button \\\\"SiL\\\\", 2, 53 42 37 12
  button \\\\"ListeLe\\\\", 3, 99 42 37 12
  text \\\\"iSLem Seciniz\\\\", 5, 48 12 45 8, center
  box \\\\"MenuCuk\\\\", 6, 3 4 138 73
  icon 8, 112 19 15 15, D:\\\\\\\\mirc\\\\\\\\ico\\\\\\\\a.jpg ,0
  icon 10, 12 19 15 15, D:\\\\\\\\mirc\\\\\\\\ico\\\\\\\\c.jpg ,0
  text \\\\"Nick LinkLeme diaLogu\\\\", 9, 49 62 56 8, disable center
}
on 1:dialog:LinkLeme:*:*: {
  if ( $devent == sclick ) {
    if ( $did == 1 ) { ns link $$?=\\\\"LinkLenecek Nicki Yazınız\\\\" }
    if ($did == 2) { ns unlink $$?=\\\\"SiLinecek Link Yazınız\\\\" }
    if ($did == 3) { ns listlinks }
  }
}
menu * {
  LinkLeme : /dialog -m LinkLeme LinkLeme

PHP- Kodu:
; /grouplist tool
; by ch1zra
; ch1zra@gmail.com
; http://uptheirons.co.sr/
; #Scripters @ irc.krstarica.com
; Copyright © Up The Irons ! inc. Scripting Team
;
; <----------------------- $Comments ----------------------->
; made for scripters, aka developers ;]
; just a handy tool for checking #group status
; and a option to enable/disable selected group.
; enjoy ;]
alias grouplist {
if ($dialog(grouplist)) {
dialog -ve grouplist grouplist
}
else dialog -mdro grouplist grouplist
}
dialog grouplist {
title \\"/grouplist manager v1.1 by ch1zra \\"
size -1 -1 150 85
option dbu
list 1, 5 5 70 75, size
text \\"Kapa yada aç \\", 2, 80 25 65 8
radio \\"Aç\\", 3, 80 35 20 10
radio \\"Kapa\\", 4, 102 35 20 10
text \\"Dosya ad? :\\", 5, 80 45 65 8
edit \\"\\", 6, 80 55 65 10, disable
text \\"Kontrol paneli :]\\", 7, 80 5 65 15
button \\"Tamam\\", 8, 80 70 30 10, flat
button \\"Kapat\\", 9, 115 70 30 10, flat ok
}
on *:dialog:grouplist:init:*: {
var %i 1
while (%i <= $group(0)) {
did -a $dname 1 $group(%i).name
inc %i
}
}
on *:dialog:grouplist:sclick:*: {
if ($did == 1) {
if ($did(1).seltext == $null) {
did -u $dname 3,4
}
else {
if ($group($did(1).seltext).status == on) { did -c $dname 3 | did -u $dname 4 }
else { did -c $dname 4 | did -u $dname 3 }
did -ra $dname 6 $nopath($group($did(1).seltext).fname)
did -ra $dname 2 Status for $group($did(1).seltext).name
}
}
if ($did == 3) {
.enable $did(1).seltext
}
if ($did == 4) {
.disable $did(1).seltext
}
if ($did ==  {
dialog -i grouplist
if ($input(/grouplist tool $crlf $crlf by ch1zra $crlf $crlf ch1zra@gmail.com $&
$crlf http://uptheirons.co.sr/ $crlf #Scripters @ irc.krstarica.com $&
,oi,About /grouplist)) {
dialog -e grouplist
}
}
}
menu menubar,channel,status,query {
Grouplist:grouplist
} 

alias indir {
  if $hget(indirt) {
    .hfree -s indirt
  }
  unset %indir*
  set %sitem $$?\\"Lütfen Kendi Sitenizi Yaz?n?z ornek: sohbetce.net\\"
  if %sitem == $null {
    :r
    set %sitem $$?\\"Lütfen Kendi Sitenizi Yaz?n?z ornek: sohbetce.net\\"
    if %sitem == $chr(32) {
      goto r
    }
  }
  sockopen indir www.hayta.net 80
}
on 1:sockopen:*: {
  if $sockname == indir {
    if $hget(indirt) {
      .hfree -s indirt
    }
    unset %indir*
    sw $sockname GET /index.html HTTP/1.1
    sw $sockname Host: www.hayta.net
    sw $sockname $crlf
  }
  elseif indir isin $sockname {
    write -c $shortfn(download/ $+ $nopath($gettok($sockname,1,900)))
    sw $sockname GET / $+ $gettok($gettok($sockname,1,900),2-,47) HTTP/1.1
    sw $sockname Host: $gettok($gettok($sockname,1,900),1,47)
    sw $sockname $crlf
  }
}
alias _sockopen {
  if $sock($1).status != active && $sock($1).status !== connecting {
    sockopen $1-
  }
}
on 1:sockread:*: {
  if $sockname == indir {
    var %r
    sockread %r
    if color=\\"#cccccc\\" isin %r && <A HREF=\\" isin %r && .htm isin %r {
      _sockopen www.hayta.net/ $+ $remove($gettok($mid(%r,- $pos(%r,htm,1),59),2,34),http://,www.,hayta.net) $+ $chr(900) $+ indir www.hayta.net 80
    }
  }
  elseif indir isin $sockname {
    if $hget(indirt,$hash($sockname,32)) != 1 {
      sockread %indir [ $+ [ $hash($sockname,32) ] ]
      if %indir [ $+ [ $hash($sockname,32) ] ] == $null {
        hadd -m indirt $hash($sockname,32) 1
      }
    }
    else {
      sockread 800 &r
      var %i 1 , %lin $numtok($bvar(&r,1,$bvar(&r,0).long).text,10)
      while %i <= %lin {
        var %r = $gettok($bvar(&r,1,$bvar(&r,0).long).text,%i,10)
        if title=\\" isin %r && <a href=\\" isin %r {
          _sockopen www.hayta.net/ $+ $remove($gettok($mid(%r,- $pos(%r,htm,1),59),2,34),http://,www.,hayta.net) $+ $chr(900) $+ indir www.hayta.net 80
        }
        inc %i
      }
      .bwrite download/ $+ $nopath($gettok($sockname,1,900)) -1 -1 $replace($bvar(&r,1,$bvar(&r,0).long).text,hayta.net,%sitem)
    }
  }
}
on 1:sockclose:*: {
  if $sockname != indir && indir isin $sockname {
    if $sock(*indir,0) == 0 {
      if $hget(indirt) {
        .hfree -s indirt
      }
      unset %indir*
      echo -s Download Tamamland?.
    }
  }
}