IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   DC-Clone Control Panel (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/183711-dc-clone-control-panel.html)

Difuzyon 28 Şubat 2009 22:52

DC-Clone Control Panel
 
Toplam 1 Eklenti bulunuyor.
Unreal tabanlı sunucularda , server genelinde veya bulunduğunuz kanalda clone tarama işlemi sonucu bulunan değerler(ip no ve nick) üzerinden işlem yapmanıza olanak sağlayan bir çalışma.

Bu çalışmadan yararlanabilmeniz için +o mode'una (IRCOp) sahip olmalısınız...


Görüntü:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Dosyayı indirip,içindeki clones.txt dosyasını mirc ana dizinine taşıdıktan sonra /load -rs clones.txt komutunu uygulamanız halinde dosya mircinize yüklenmiş olacaktır.

Server üzerinde clone tarama\işlem için statüs penceresinde sağ tıklamanız, kanal üzerinde clone tarama\işlem için kanal penceresinde sağ tıklamanız halinde panel açılacaktır.

İyi forumlar...

SeRDaR406 28 Şubat 2009 22:58

Cevap: DC-Clone Control Panel
 
Cenk iyiden iyiye Picture Window'a doğru kayıyorsun. ;)

onNes 28 Şubat 2009 23:03

Cevap: DC-Clone Control Panel
 
Sana diyecek birşey kalmadı. Emeğine sağlık Cenk.

Difuzyon 28 Şubat 2009 23:10

Cevap: DC-Clone Control Panel
 
SeRDaR406 , belki Dialog'a oranla Picture Window biraz daha yorucu ve oldukça dikkat gerektiriyor ama ortaya güzel sonuçlar çıktığı düşüncesindeyim. :)

-------

onNeS , görüntüde shun'lamama rağmen iyiki varsın diyorum :)

onNes 28 Şubat 2009 23:14

Cevap: DC-Clone Control Panel
 
Canın sağolsun ama güzel cıkmışım demi:)

SeRDaR406 28 Şubat 2009 23:26

Cevap: DC-Clone Control Panel
 
Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 649959)
SeRDaR406 , belki Dialog'a oranla Picture Window biraz daha yorucu ve oldukça dikkat gerektiriyor ama ortaya güzel sonuçlar çıktığı düşüncesindeyim. :)

Evet Dialog studio gibi bir program olmadığı için(bildiğim kadarıyla) Picture Window'da biraz uğraşmak zorunda kalıyor insan.Alın size bir proje daha :)

AzuLa 28 Şubat 2009 23:34

Cevap: DC-Clone Control Panel
 
Elinize Emeğinize Sağlık; picture window konusunda gerçekten çok güzel çalışmalara imza atıyorsunuz; Tebrik ederim, özellikle renk uyumu harika diyebilirim =]
Tekrar tebrikler..

yaLin 01 Mart 2009 01:09

Cevap: DC-Clone Control Panel
 
Görüntü dehşet tek kelimeyle.. Emeğinize sağlık başarılarınızın devamını diliyorum.)

Hesna 26 Mart 2009 23:29

Cevap: DC-Clone Control Panel
 
Tek kelimeyle muhteşemsiniz..

Tesekkürler..

sniper 25 Mayıs 2009 23:28

Cevap: DC-Clone Control Panel
 
Dizifyon güzel bir bayan gibi ince ve narin bir şey olmuş bu çalışma eline sağlık :D

Difuzyon 25 Mayıs 2009 23:51

Cevap: DC-Clone Control Panel
 
Görünüme biraz renk katmaya çalıştım,bazen hayata yeni renkler gerekir...
İlginize tşk ederim :)

Survivor 25 Mayıs 2009 23:55

Cevap: DC-Clone Control Panel
 
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

Cevap: DC-Clone Control Panel
 
Eline saqLık emeqine saqLık ekLedim Scripte süper :D

AfraN 27 Mart 2015 22:53

Cevap: DC-Clone Control Panel
 
Alaaddin'in Sihirli Lambası gibi kod çok hoş bir görüntü

High 28 Mart 2015 12:42

Cevap: DC-Clone Control Panel
 
Difuzyon, yazmaya devam sakın bırakma heh şöyle ya.(; emeğine, eline sağlık.

Slalayl0m 30 Mart 2015 22:07

Cevap: DC-Clone Control Panel
 
Emeğine sağlık

High 17 Aralık 2020 00:00

Cevap: DC-Clone Control Panel
 
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

Cevap: DC-Clone Control Panel
 
Alıntı:

High Nickli Üyeden Alıntı (Mesaj 1042409426)
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

Cevap: DC-Clone Control Panel
 
@[Ü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

Cevap: DC-Clone Control Panel
 
Alıntı:

High Nickli Üyeden Alıntı (Mesaj 1042424256)
@[Ü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:

#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



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:53.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk