IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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 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: 17:33.
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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