IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 3 Sayfadan 1 23
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/)
-   -   mdc.dll iLe Baglantı menusu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/32078-mdcdll-ile-baglanti-menusu.html)

IrCbaStarD 24 Mayıs 2007 11:29
mdc.dll iLe Baglantı menusu
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod:
alias st { opdialog start 200 200 410 300 }
alias opdialog { opdialogs $rand(a,k) $$1 $$2 $$3 $$4 $$5 }
alias opdialogs {
  if $$1- != $null {
    if $$1 = a {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.w 0 | set %temp.d.wd $$5 | set %temp.d.h $$6 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlw $calc(%temp.d.wd / 3) 0.001 opendl.w
    }
    if $$1 = b {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlh $calc(%temp.d.hd / 3) 0.001 opendl.h
    }
    if $$1 = c {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlwh $calc(%temp.d.hd / 3) 0.001 opendl.wh
    }
    if $$1 = d {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.w
      opendl.h
    }
    if $$1 = e {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.h
      opendl.w
    }
    if $$1 = f {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.mvr
    }
    if $$1 = g {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + $$6)
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.b
    }
    if $$1 = h {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.t
    }
    if $$1 = i {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + $$5) | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.l
    }
    if $$1 = j {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.r
    }
    if $$1 = k {
      dialog -m $$2 $$2
      set %temp.d $$2 | set %temp.d.r1 $rand(1,4) | set %temp.d.r2 $rand(1,2)
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      if %temp.d.r1 = 1 {
        if %temp.d.r2 = 1 { opendl.r | opendl.t }
        if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.r | opendl.b }
      }
      if %temp.d.r1 = 2 {
        if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.l | opendl.t }
        if %temp.d.r2 = 2 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.l | opendl.b }
      }
      if %temp.d.r1 = 3 {
        if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.t | opendl.l }
        if %temp.d.r2 = 2 { opendl.t | opendl.r }
      }
      if %temp.d.r1 = 4 {
        if %temp.d.r2 = 1 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.b | opendl.l }
        if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.b | opendl.r }
      }
    }
    if $$1 = ? {
      linesep
      linesep
      linesep
    }
  }
}
alias opendl.w {
  :start
  inc %temp.d.w 2 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  .timeropendlw off
}
alias opendl.h {
  :start
  inc %temp.d.h 2 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
  :end
  .timeropendlh off
}
alias opendl.wh {
  :start
  inc %temp.d.h 2 | inc %temp.d.w 2 | dec %temp.d.x 1 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd && %temp.d.w => %temp.d.wd { dec %temp.d.w 2 }
  if %temp.d.h => %temp.d.hd && %temp.d.w < %temp.d.wd { dec %temp.d.h 2 }
  if %temp.d.h < %temp.d.hd || %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  .timeropendlwh off
}
alias opendl.mvr {
  set %temp.d.xd $calc(%temp.d.x - (%temp.d.x / 2))
  set %temp.d.y $calc(%temp.d.y - (%temp.d.y / 2))
  :start
  inc %temp.d.w 1 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  :start2
  inc %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.x < %temp.d.xd { goto start2 } | else { goto end2 }
  :end2
}
alias opendl.b {
  set %temp.d.yd $calc(%temp.d.y - %temp.d.hd)
  :start
  inc %temp.d.h 1 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.y > %temp.d.yd { goto start } | else { goto end }
  :end
}
alias opendl.t {
  :start
  inc %temp.d.h 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
  :end
}
alias opendl.l {
  :start
  inc %temp.d.w 1 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
}
alias opendl.r {
  :start
  inc %temp.d.w 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
}
alias st { if ($dialog(start)) { dialog -x start } | dialog -md start start }
dialog Start {
  title "BagLantı Menusu"
  size -1 -1 207 147
  option dbu
  box "", 1, 4 0 102 125
  edit "", 2, 42 6 59 12
  text "Nick :", 3, 8 9 26 8
  text "Yedek Nick :", 4, 7 26 32 8
  edit "", 5, 42 24 59 12
  edit "", 6, 42 42 59 12
  text "Identd :", 7, 7 44 32 8
  edit "", 8, 42 60 59 12, autohs
  text "Fullname :", 9, 7 63 32 8
  text " Yazdigim Server'a Baglan", 10, 24 78 66 8
  box "", 11, 8 86 93 20
  edit "", 12, 13 92 84 13
  box "", 13, 4 125 200 21
  edit "                        ", 14, 8 130 193 13, read
  box "", 15, 108 0 95 125
}

alias md dll dll\mdc.dll $1 $2-
alias mdx dll dll\mdx.dll $1 $2-

on *:dialog:Start:init:0: {
  md BitBtn Create Start 28 11 214  198 31 > BagLan
  md BitBtn Create Start 29 221 12  178 41 > mIRCTurkiye
  md BitBtn Create Start 30 221 58  178 41 > Sohbet
  md BitBtn Create Start 31 221 106  178 41 > mIRCtr
  md BitBtn Create Start 32 221 153  178 41 > Zurna
  md BitBtn Create Start 33 221 201  178 41 > soyLe
  md BitBtn Icon 29 $shortfn(system\Star.ico)
  md BitBtn Icon 30 $shortfn(system\Star.ico)
  md BitBtn Icon 31 $shortfn(system\Star.ico)
  md BitBtn Icon 32 $shortfn(system\Star.ico)
  md BitBtn Icon 33 $shortfn(system\Star.ico)
  md BitBtn Icon 28 $shortfn(system\kes.ico)
  md BitBtn Color 28 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 28 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 29 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 29 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 30 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 30 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 31 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 31 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 32 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 32 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 33 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224)
  md BitBtn downcolor 33 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md  BitBtn Font 28 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 29 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 30 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 31 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 32 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 33 $rgb(255,252,252) 11  +b > Tahoma
  mdx MarkDialog $dname
  mdx SetColor $dname 3,4,7,9  text $rgb(245,2,0)
  mdx SetColor $dname  text $rgb(139,26,26)
  mdx SetColor $dname  text $rgb(0,0,85)
  mdx SetColor $dname  text $rgb(99,121,142)
  mdx SetFont 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20  -12 700 Tahoma
  mdx SetFont 14  -12 700 Tahoma
  mdx SetColor $dname 2,5,6,8,14,12 background $rgb(9,1,1)
  mdx SetColor $dname 2,8,5,6,14,12 textbg $rgb(9,1,1)
  mdx SetColor $dname 2,5,6,8,14,12  text $rgb(255,252,252)
  did -a $dname 2 $me
  did -a $dname 5 User- $+ $rand(1,9999)
  did -a $dname 6 $emailaddr
  did -a $dname 8 $FuLLname
}
on *:signal:mdc: {
  if ($2 == Start) && ($3 == sclick) && ($4 == 28) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server $did(Start,12) | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 29) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 30) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 31) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 32) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 33) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
}



on *:start:{
  if %sayac == $null {
    .set %sayac 1
    .did -a Start 14 Scriptinizin İlk A&#231;ılışı..
  }
  else {
    .inc %sayac
    .st
    .did -a Start 14 Scriptinizin A&#231;ma Sayınız: %sayac
  }
}
dll'leri YukLemek i&#231;in ;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mdc.dll DownLoad :[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mdx.dll DownLoad : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Degiştirilecek yerLeri arkada$Lar kırmızı iLe Gosterdim.
koLay geLsin. dll'leri dll kLasor&#252;ne atmamız yeterLi .
;
SeRDaR406'a Te$ekkurLer Dll i&#231;in :)

тєαм 24 Mayıs 2007 17:17
Cevap: mdc.dll iLe Baglantı menusu
 
Ger&#231;ekten g&#252;zel bir &#231;alışma emeği ge&#231;enlere Teşekk&#252;rler.

JaMMaH 24 Mayıs 2007 18:42
Cevap: mdc.dll iLe Baglantı menusu
 
Scriptinizin Açma Sayınız..ßiraz Tuaf Kaçmış ;kil

Ekinokss 26 Mayıs 2007 03:02
Yanıt: Cevap: mdc.dll iLe Baglantı menusu
 
Alıntı:
JaMMaH Nickli Üyeden Alıntı
Scriptinizin Açma Sayınız..ßiraz Tuaf Kaçmış ;kil
yoo ne guzel start sayar işte [: guzel calısma teßriqler..

LauReLL 26 Mayıs 2007 03:25
Cevap: mdc.dll iLe Baglantı menusu
 
eLine SağLık Kanke aNCak b&#246;yLe G&#252;seL BagLantı Menusu Olar aLak Bare VersiyonLarda eklerim...

SaintCty 31 Mayıs 2007 10:57
Cevap: mdc.dll iLe Baglantı menusu
 
arkadaşlar ben ddl leri indirdim fakat zipini acmak istedigimde icerigindeki dosyların hepsini gösteriyor bunları bir klasörde toplayıpmı mircin içine atacam yani zipni acarken tek dosya degilbir ddlde 10 dosya diger ddlde 6 7 dosya bunu nasıl yapacam tek parca degil yani anlatabilmişimdir umarım yardımcı olursanız :confused:

IrCbaStarD 31 Mayıs 2007 11:04
Cevap: mdc.dll iLe Baglantı menusu
 
SaintCty Zip'Lerin i&#231;inde, mDC.dll & mdx.dll'Leri Var onLarı dll kLasor&#252;ne atman yeterLi oLucaktır, Code'ide remote'ye atarsan Sorun'un kaLmaz.
koLay GeLsin.

JaMMaH 01 Haziran 2007 11:51
Cevap: Yanıt: Cevap: mdc.dll iLe Baglantı menusu
 
Alıntı:
Ekinoks Nickli Üyeden Alıntı
yoo ne guzel start sayar işte [: guzel calısma teßriqler..
Ekinoks Türkçe'yi Kullanım Açısından Demiştim :)

Teoman 17 Haziran 2007 16:08
Yanıt: mdc.dll iLe Baglantı menusu
 
G&#252;zel birşey gibi bakınca teşekk&#252;r buttonuna tıkliyim:))

upS 17 Haziran 2007 21:10
Yanıt: mdc.dll iLe Baglantı menusu
 
Bırakın mdx'i mdc'i;
dcx'i &#246;ğrenin aklınızın alamıyacağı kadar kapsamlı harika bir dll.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:06.
Sayfa 1 Toplam 3 Sayfadan 1 23
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net