DC-Clone Control Panel - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Difuzyon · 25 Mayıs 2009, 23:51

Görünüme biraz renk katmaya çalıştım,bazen hayata yeni renkler gerekir...
İlginize tşk ederim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Survivor · 25 Mayıs 2009, 23:55

Güzel çalışma eline emeğine sağlık.
Bu tip şeyler mircin ölmediğinin kanıtıdır, teşekkürler.

Emrax · 02 Haziran 2009, 17:39

Eline saqLık emeqine saqLık ekLedim Scripte süper
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

AfraN · 27 Mart 2015, 22:53

Alaaddin'in Sihirli Lambası gibi kod çok hoş bir görüntü

High · 28 Mart 2015, 12:42

Difuzyon, yazmaya devam sakın bırakma heh şöyle ya.(; emeğine, eline sağlık.

Slalayl0m · 30 Mart 2015, 22:07

Emeğine sağlık

High · 17 Aralık 2020, 00:00

Arkadaşlar konuyu horlatacam ama. Panel rengini nasıl değiştire biliriz? Siyah beyaz yapmak istiyorum.

Tai_Pan · 20 Aralık 2020, 22:58

High Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Arkadaşlar konuyu horlatacam ama. Panel rengini nasıl değiştire biliriz? Siyah beyaz yapmak istiyorum.

Bu kısmı;

alias clones {
echo -s 5Bilgiler alınıyor...
set %clonechan $1
if $hget(Cloneler) { hfree Cloneler } | hmake Cloneler 4000 | .enable #clones | set %tarama on
if $left(%clonechan,1) == $chr(35) { .enable #clonetarama | who +cI %clonechan }
if %clonechan == $chr(42) { .disable #clonetarama | who +I %clonechan }
$iif($window([MENTION=18077]clone[/MENTION]),window -c [MENTION=18077]clone[/MENTION])
$iif($window([MENTION=5675]List[/MENTION]),window -c [MENTION=5675]List[/MENTION])
window -l38do +lnb [MENTION=5675]List[/MENTION] 704 22 232 151 Arial 11
window -pad +lbn [MENTION=18077]clone[/MENTION] 700 1 240 350
drawfill -r [MENTION=18077]clone[/MENTION] $rgb(255,106,106) $rgb(250,0,0) 1 1
drawrect -frd [MENTION=18077]clone[/MENTION] $rgb(255,221,230) 1 4 175 80 120
drawrect -frd [MENTION=18077]clone[/MENTION] $rgb(255,221,230) 1 4 187 230 108
drawtext [MENTION=18077]clone[/MENTION] 1 Arial 10 13 175 ..:: Whois ::...
drawrect -df [MENTION=18077]clone[/MENTION] 14 1 195 2 40 16
drawrect -df [MENTION=18077]clone[/MENTION] 14 1 4 310 230 25
drawrect -dfr [MENTION=18077]clone[/MENTION] $rgb(171,210,180) 1 12 315 40 15
drawrect -dfr [MENTION=18077]clone[/MENTION] $rgb(171,210,180) 1 70 315 40 15
drawrect -dfr [MENTION=18077]clone[/MENTION] $rgb(171,210,180) 1 128 315 40 15
drawrect -dfr [MENTION=18077]clone[/MENTION] $rgb(171,210,180) 1 186 315 40 15
drawtext -o [MENTION=18077]clone[/MENTION] 1 Verdana 12 23 3 DC- Clone Control Panel
if $left(%clonechan,1) == $chr(35) {
drawtext [MENTION=18077]clone[/MENTION] 0 Verdana 9 13 296 İşlem yapılan kanal: %clonechan
drawtext [MENTION=18077]clone[/MENTION] 1 Verdana 10 21 316 Kick
drawtext [MENTION=18077]clone[/MENTION] 1 Verdana 10 80 316 Ban
}

Aşağıdaki ile değiştirirsen istediğin olur..

alias clones {
echo -s 5Bilgiler alınıyor...
set %clonechan $1
if $hget(Cloneler) { hfree Cloneler } | hmake Cloneler 4000 | .enable #clones | set %tarama on
if $left(%clonechan,1) == $chr(35) { .enable #clonetarama | who +cI %clonechan }
if %clonechan == $chr(42) { .disable #clonetarama | who +I %clonechan }
$iif($window([MENTION=18077]clone[/MENTION]),window -c [MENTION=18077]clone[/MENTION])
$iif($window([MENTION=5675]List[/MENTION]),window -c [MENTION=5675]List[/MENTION])
window -l38do +lnb [MENTION=5675]List[/MENTION] 704 22 232 151 Arial 11
window -pad +lbn [MENTION=18077]clone[/MENTION] 700 1 240 350
drawfill -r [MENTION=18077]clone[/MENTION] $rgb(0,0,0) $rgb(250,0,0) 1 1
drawrect -frd [MENTION=18077]clone[/MENTION] $rgb(255,255,255) 1 4 175 80 120
drawrect -frd [MENTION=18077]clone[/MENTION] $rgb(255,255,255) 1 4 187 230 108
drawtext [MENTION=18077]clone[/MENTION] 1 Arial 10 13 175 ..:: Whois ::...
drawrect -df [MENTION=18077]clone[/MENTION] 14 1 195 2 40 16
drawrect -df [MENTION=18077]clone[/MENTION] 14 1 4 310 230 25
drawrect -dfr [MENTION=18077]clone[/MENTION] $rgb(255,255,255) 1 12 315 40 15
drawrect -dfr [MENTION=18077]clone[/MENTION] $rgb(255,255,255) 1 70 315 40 15
drawrect -dfr [MENTION=18077]clone[/MENTION] $rgb(255,255,255) 1 128 315 40 15
drawrect -dfr [MENTION=18077]clone[/MENTION] $rgb(255,255,255) 1 186 315 40 15
drawtext -o [MENTION=18077]clone[/MENTION] 1 Verdana 12 23 3 DC- Clone Control Panel
if $left(%clonechan,1) == $chr(35) {
drawtext [MENTION=18077]clone[/MENTION] 0 Verdana 9 13 296 İşlem yapılan kanal: %clonechan
drawtext [MENTION=18077]clone[/MENTION] 1 Verdana 10 21 316 Kick
drawtext [MENTION=18077]clone[/MENTION] 1 Verdana 10 80 316 Ban
}

High · 18 Ocak 2021, 02:06

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sağ ol denedim ama hata mesajı aldım panel açılmadı vaktin olursa bi bakar mısın?

Tai_Pan · 19 Ocak 2021, 10:41

High Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sağ ol denedim ama hata mesajı aldım panel açılmadı vaktin olursa bi bakar mısın?

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

#clones off
raw 352:*: { 
  haltdef 
  if %tarama { hinc Cloneler $4 1 }
  if %clonenick { iline -pl 3 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc(%cloneclick +1) $chr(160) $chr(160) $+($chr(40),$chr(63),$chr(41)) $chr(160) $6 }
  if %clonekick { kick %clonechan $6 9,1..::8,1Clone tespit edildi9,1::..4,0 }
  if %clonekill { kill $6 9,1..::8,1Clone tespit edildi9,1::..2,0 }
}
raw 315:*:{
  haltdef 
  if %tarama { var %eksi 1 | while %eksi <= $hget(Cloneler,0).data { if $hget(Cloneler,%eksi).data > 1 { aline -pl 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $chr(160) $+($chr(91),$hget(Cloneler,%eksi).data,$chr(93)) $chr(160) $hget(Cloneler,%eksi).item } | inc %eksi } | hfree Cloneler | unset %tarama }
  if %clonenick { unset %clonenick }
  if %clonekick { unset %clonekick }
  if %clonekill { unset %clonekill }
  .disable #clones
}
#clones end
menu channel {
  Clone control (channel):clones $chan
}
menu status {
  Clone control (server):clones *
}


alias clones {
  echo -s 5Bilgiler alınıyor... 
  set %clonechan $1 
  if $hget(Cloneler) { hfree Cloneler } | hmake Cloneler 4000 | .enable #clones | set %tarama on 
  if $left(%clonechan,1) == $chr(35) { .enable #clonetarama | who +cI %clonechan }
  if %clonechan == $chr(42) { .disable #clonetarama | who +I %clonechan }
  $iif($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
  $iif($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
  window -l38do +lnb @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 704 22 232 151 Arial 11
  window -pad +lbn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 700 1 240 350
  drawfill -r @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(0,0,0) $rgb(250,0,0) 1 1
  drawrect -frd @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(255,221,230) 1 4 175 80 120
  drawrect -frd @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(255,221,230) 1 4 187 230 108
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Arial 10 13 175 ..:: Whois ::...
  drawrect -df @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 14 1 195 2 40 16
  drawrect -df @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 14 1 4 310 230 25
  drawrect -dfr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(255,255,255) 1 12 315 40 15
  drawrect -dfr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(255,255,255) 1 70 315 40 15
  drawrect -dfr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(255,255,255) 1 128 315 40 15
  drawrect -dfr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(255,255,255) 1 186 315 40 15
  drawtext -o @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Verdana 12 23 3 DC- Clone Control Panel
  if $left(%clonechan,1) == $chr(35) { 
    drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 Verdana 9 13 296 İşlem yapılan kanal: %clonechan 
    drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Verdana 10 21 316 Kick
    drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Verdana 10 80 316 Ban
  }
  if %clonechan == $chr(42) { 
    drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 Verdana 9 13 296 İşlem yapılan alan: Sunucu Geneli 
    drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Verdana 10 15 316 Z-Line
    drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Verdana 10 77 316 Shun
  }
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Verdana 10 140 316 Kill
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Tahoma 10 191 316 G-Line
  drawrect -f @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 2 1 202 4 12 12
  drawrect -f @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 2 1 217 4 12 12
  drawtext -o @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 Verdana 12 205 3 -
  drawtext -o @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 Verdana 12 219 2 x
  drawrect -df @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 14 1 160 172 55 14
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 2 Arial 10 166 172 Güncelle
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 2 Verdana 10 64 336 Product By Difuzyon
}
#whoisler off
raw 311:*: { 
  haltdef 
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 12 Arial 10 4 190 $chr(183) Nick $chr(183)  
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Arial 10 50 190 $2 
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 12 Arial 10 4 205 $chr(183) Ident $chr(183)
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Arial 10 50 205 $3
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 12 Arial 10 4 220 $chr(183) Host $chr(183)
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Arial 10 50 220 $4
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 12 Arial 9 4 250 $chr(183) İsim $chr(183)
  drawtext -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Arial 9 40 250 $sıkıştır($6-,Arial,9,250)
}
raw 307:*: {
  haltdef
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4 Arial 10 188 190 [Kayıtlı]
}
raw 319:*:{
  haltdef 
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 12 Arial 10 4 265 $chr(183) Bulunduğu Kanallar $chr(183)
  drawrect -fr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(255,221,230) 1 4 280 229 12
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Arial 10 6 280 $sıkıştır($3-,Arial,10,220)
}
raw 317:*: {
  haltdef
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 12 Arial 10 4 235 $chr(183) Idle $chr(183)
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Arial 10 50 235 $replace($duration($3),wks,Hafta ,wk,Hafta ,days,Gün ,day,Gün ,hrs,saat ,hr,saat ,mins,dakika ,min,dakika ,secs,saniye ,sec,saniye )
}
raw 378:*:haltdef
raw 379:*:haltdef
raw 671:*:haltdef
raw 301:*:haltdef
raw 310:*:haltdef
raw 312:*:haltdef
raw 313:*:haltdef
raw 335:*:haltdef
raw 320:*:haltdef
raw 401:*:haltdef
raw 402:*:haltdef
raw 318:*:haltdef | .disable #whoisler
#whoisler end

menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] {
  lbclick: {
    set %clonetext $sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1)
    set %cloneclick $sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1).ln
    tokenize 32 $sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1)
    if $left($2,1) == $chr(91) && $remove($left($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],$calc(%cloneclick +1),1),5),$chr(160),$chr(32)) != $chr(40) { 
      set %clonenick on 
      .enable #clones 
      if $left(%clonechan,1) == $chr(35) { who +ch %clonechan $4 }
      if %clonechan == $chr(42) { who +h $4 }
    }
    if $left($3,1) == $chr(40) { .enable #whoisler | drawrect -fr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(255,106,106) 1 234 244 10 30 | drawrect -frd @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(255,221,230) 1 4 187 230 108 | whois $5 $5 }
  }
}

On *:active:*: { 
  if ($active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -oh +b @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
  if (!$regex($active,@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]|@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) { if $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).ontop { window -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | window -unh +d @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } }
}
on 1:APPACTIVE: { 
  if $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { 
    $iif($appactive == $false,window -uh @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
  }
}
alias -l movewin {
  if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
    window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc($mouse.dx -$1) $calc($mouse.dy -$2)
    window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc($calc($mouse.dx -$1) +4) $calc($calc($mouse.dy -$2) +21)
    if ($mouse.key & 1) {
      .timermovewin 1 0 movewin $1-
    }
  }
}
menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] {
  mouse:{
    if $inrect($mouse.x,$mouse.y,202,4,12,12) { drawtext -o @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4 Verdana 12 205 3 - } | else { drawtext -o @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 Verdana 12 205 3 - }
    if $inrect($mouse.x,$mouse.y,217,4,12,12) { drawtext -o @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4 Verdana 12 219 2 x } | else { drawtext -o @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 Verdana 12 219 2 x }
    if $left(%clonechan,1) == $chr(35) {
      if $inrect($mouse.x,$mouse.y,12,315,40,15) { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4 Verdana 10 21 316 Kick } | else { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Verdana 10 21 316 Kick }
      if $inrect($mouse.x,$mouse.y,70,315,40,15) { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4 Verdana 10 80 316 Ban } | else { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Verdana 10 80 316 Ban }
    }
    if %clonechan == $chr(42) { 
      if $inrect($mouse.x,$mouse.y,12,315,40,15) { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4 Verdana 10 15 316 Z-Line } | else { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Verdana 10 15 316 Z-Line }
      if $inrect($mouse.x,$mouse.y,70,315,40,15) { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4 Verdana 10 77 316 Shun } | else { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Verdana 10 77 316 Shun }
    }
    if $inrect($mouse.x,$mouse.y,128,315,40,15) { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4 Verdana 10 140 316 Kill } | else { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Verdana 10 140 316 Kill }
    if $inrect($mouse.x,$mouse.y,186,315,40,15) { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4 Tahoma 10 191 316 G-Line } | else { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 Tahoma 10 191 316 G-Line }
    if $inrect($mouse.x,$mouse.y,160,172,55,14) { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11 Arial 10 166 172 Güncelle } | else { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 2 Arial 10 166 172 Güncelle }
  }
  sclick:{
    if $inrect($mouse.x,$mouse.y,202,4,12,12) { window -nh @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | window -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
    if $inrect($mouse.x,$mouse.y,217,4,12,12) { unset %clone* | .disable #clonetarama | window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
    if $mouse.x isnum 1-215 && $mouse.y isnum 1-14 { movewin $calc($mouse.dx -$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).x) $calc($mouse.dy -$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).y) }
    if $left(%clonechan,1) == $chr(35) {
      if $inrect($mouse.x,$mouse.y,12,315,40,15) { 
        if $left($token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),3,32),1) == $chr(40) { kick %clonechan $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),5,32) 9,1..::8,1Clone tespit edildi9,1::..4,0 }
        else { set %clonekick on | .enable #clones | who +ch %clonechan $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),4,32) }
      }
      if $inrect($mouse.x,$mouse.y,70,315,40,15) {  
        if $left($token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),3,32),1) == $chr(40) { mode %clonechan +b $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),5,32) | kick %clonechan $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),5,32) 9,1..::8,1Clone tespit edildi9,1::..4,0 }
        else { mode %clonechan +b *!*@ $+ $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),4,32) | set %clonekick on | .enable #clones | who +ch %clonechan $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),4,32) }
      }
    }
    if %clonechan == $chr(42) {
      if $inrect($mouse.x,$mouse.y,12,315,40,15) {
        if $left($token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),3,32),1) == $chr(40) { zline $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),5,32) 1d 9,1..::8,1Clone tespit edildi9,1::..2,0 }
        else { zline *@ $+ $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),4,32) 1d 9,1..::8,1Clone tespit edildi9,1::..4,0 }
      }
      if $inrect($mouse.x,$mouse.y,70,315,40,15) {
        if $left($token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),3,32),1) == $chr(40) { shun $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),5,32) 1d 9,1..::8,1Clone tespit edildi9,1::..2,0 }
        else { shun *@ $+ $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),4,32) 1d 9,1..::8,1Clone tespit edildi9,1::..4,0 }
      }
    }
    if $inrect($mouse.x,$mouse.y,128,315,40,15) { 
      if $left($token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),3,32),1) == $chr(40) { kill $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),5,32) 9,1..::8,1Clone tespit edildi9,1::..2,0 }
      else { set %clonekill on | .enable #clones | who +h $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),4,32) }
    }
    if $inrect($mouse.x,$mouse.y,186,315,40,15) { 
      if $left($token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),3,32),1) == $chr(40) { gline $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),5,32) 1d 9,1..::8,1Clone tespit edildi9,1::..2,0 }
      else { gline *@ $+ $token($sline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],1),4,32) 1d 9,1..::8,1Clone tespit edildi9,1::..2,0 }
    }
    if $inrect($mouse.x,$mouse.y,160,172,55,14) { 
      dline -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(1,-,$fline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],*,0,1)) | hmake Cloneler 4000 | .enable #clones | set %tarama on 
      if $left(%clonechan,1) == $chr(35) { who +cI %clonechan }
      if %clonechan == $chr(42) { who +I %clonechan }
    }
  }
}

alias sıkıştır {
  if ($width($1,$2,$3,0,0) > $4) {
    var %a = $1
    var %b = 1
    var %c = $len(%a)
    while (%b < $len(%a)) {
      if ($width(%a,$2,$3,0,0) <= $4) { return %a $+ .. }
      else { var %a = $left(%a,%c) }
      dec %c
    }
  }
  else { return $1 }
}
#clonetarama off
on *:part:%clonechan:if $fline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],$+(*,$nick,*),1,1) { dline -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $fline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],$+(*,$nick,*),1,1) }
on *:quit:if $fline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],$+(*,$nick,*),1,1) { dline -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $fline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],$+(*,$nick,*),1,1) }
on *:kick:%clonechan:if $fline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],$+(*,$knick,*),1,1) { dline -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $fline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],$+(*,$knick,*),1,1) } 
#clonetarama end

on *:close:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | unset %clone* | .disable #clonetarama

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
CONTROL PANEL	vioLeta	Bilgisayar Sözlüğü	0	06 Ekim 2019 05:09
CONTROL PANEL	Desmont	Ah Erkekler	0	14 Ocak 2015 19:37
California Control Panel	Shwkt	mIRC Scripting Hazır Kodlar	2	24 Mayıs 2010 19:37
DC-Color Control Panel	Difuzyon	mIRC Scripting Hazır Kodlar	5	26 Mayıs 2009 20:43
DC-Script Control Panel	Difuzyon	mIRC Scripting Hazır Kodlar	5	18 Mart 2009 15:13

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.