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/)
-   -   Uçan MenüLer ( Dialog'Larınız Ucarak AçıLsın... ) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/37310-ucan-menuler-dialoglariniz-ucarak-acilsin.html)

LauReLL 03 Eylül 2007 01:39

Uçan MenüLer ( Dialog'Larınız Ucarak AçıLsın... )
 
dialog-adi yazan yerlere dialog'un adını yazacaksınız...

Kod:

alias -l delidialog {
  if $dialog(dialog-adi) { 
    if %x = 16 { timerdialog-adi off | unset %x %y }
    else {
      var %y = $calc($sin(%x) / %x)
      dialog -s dialog-adi -1 $calc($calc(%z + $round($iif(%x = 0,100,$calc(%y * 2000)),0)) + 250) -1 -1
      inc %x 0.1
    }
  }
  else {
    .timerdialog-adi off
    unset %x %y
  }
  unset %z
}

kullanımı şu şekilde...
on 1:dialog:dialog-adi:init:*:{
.timerdialog-adi -m 0 1 delidialog
}

Kırmızı İle Gösterdiğim Diloag-adi Yazan Yazıların yerine diloglarınızı Yazınız...

örnek dialog vercek olursak

Kod:


dialog baglantı {
  title " -» DeLi DiaLog Deneme ßy LauReLL "
  size -1 -1 267 408
  option pixels
}
 
on 1:dialog:baglantı:init:*:{
  .timerbaglantı -m 0 1 delidialog
}

...EMEĞE SAYGI...

Besmelejack 03 Eylül 2007 01:53

Cevap: Uçan MenüLer ( Dialog'Larınız Ucarak AçıLsın... )
 
İlginç bir şey code.Görsellik açısından hoş olabilir.Tebrikler ;)

oKe 03 Eylül 2007 02:11

Cevap: Uçan MenüLer ( Dialog'Larınız Ucarak AçıLsın... )
 
DaĞTeKiN
DELIDIALOG Unknown command
DaĞTeKiN
DELIDIALOG Unknown command
DaĞTeKiN
DELIDIALOG Unknown command
DaĞTeKiN

;noki;noki;noki;noki;noki;noki;noki;noki;noki;noki ;noki;noki

Besmelejack 03 Eylül 2007 19:03

Cevap: Uçan MenüLer ( Dialog'Larınız Ucarak AçıLsın... )
 
Alıntı:

oKe Nickli Üyeden Alıntı (Mesaj 257235)
DaĞTeKiN
DELIDIALOG Unknown command
DaĞTeKiN
DELIDIALOG Unknown command
DaĞTeKiN
DELIDIALOG Unknown command
DaĞTeKiN

;noki;noki;noki;noki;noki;noki;noki;noki;noki;noki ;noki;noki

Bilmiyorum ama diyaloğun da ( ğ ) harfi var ondan olabilir mi ? Diyalogun normalde çalışıyormu ?

Techno 03 Eylül 2007 22:11

Cevap: Uçan MenüLer ( Dialog'Larınız Ucarak AçıLsın... )
 
tam bir dialog olarak verebilirmisin örnek olarak dialogla nasıl baglayacagım şaşırdım ? servere baglı degilsiniz die hata veriyor

LauReLL 03 Eylül 2007 23:47

Cevap: Uçan MenüLer ( Dialog'Larınız Ucarak AçıLsın... )
 
alias start { if ($dialog(baqlanti)) { dialog -x baqlanti } | dialog -md baqlanti baqlanti }
dialog baqlanti {
title " -» SibErim Script ßy LauReLL "
size -1 -1 267 408
option pixels
text " Server: ", 1, 16 48 118 17
text " Port: ", 2, 163 49 50 17
text " Identd: ", 3, 17 91 68 17
text " E-mail: ", 4, 19 135 69 17
text " Username: ", 5, 18 177 83 17
text " Nickname: ", 6, 20 218 109 17
text " Alternatif Nick: ", 7, 20 258 98 17
button "Diğer sErvErs", 8, 20 313 105 25, flat ok
text "-» Created By LauReLL «-", 9, 12 365 245 77, center
button " ScripT Bilgisi ", 10, 79 14 100 27, flat
edit "IRc.mIRCTR.coM ", 11, 15 65 133 22, autohs
edit "6667 ", 12, 160 65 60 22
edit "mIRCTR ", 13, 16 108 132 22, autohs
edit "mIRCTR@ ", 14, 16 151 130 22, autohs
edit "..:: SibErim ScRipt ::..", 15, 15 194 132 22, autohs
edit " ", 16, 16 234 131 22, autohs
edit "", 17, 16 273 129 22, autohs
button " » BAGLAN « ",18 34, 175 112 70 196, flat cancel
box " -» ", 19, 73 -2 116 52
box " -» ", 20, 168 98 84 220
box " -» ", 21, 11 299 124 44
button "X", 500, 245 3 20 20 , ok
}
on 1:dialog:baqlanti:init:*:{
.timerbaqlanti -m 0 1 delidialog
did -a $dname 16 $me
did -a $dname 17 $anick
}
on *:dialog:baqlanti:sclick:18: {
set %server $did(11) $did(12)
set %identd $did(13)
set %email $did(14)
set %username $did(15)
set %nickname $did(16)
set %anick $did(17)
.identd on %identd
.emailaddr %email
.fullname %username
.nick %nickname
.anick %anick
.echo -a $timestamp %logo 7-» 14 Username:7 %username
.echo -a $timestamp %logo 7-» 14 Nickname:7 %nickname
.echo -a $timestamp %logo 7-» 14 Alt.Nick:7 %anick
.echo -a $timestamp %logo 7-» 14 Identd 2 :7 %identd
.echo -a $timestamp %logo 7-» 14 E-mail 2 :7 %email
.echo -a $timestamp %logo 7-» 14 Server 2 :7 %server
.echo -a $timestamp %logo 6 Sunucuya Bağlanılıyor..
.server %server
halt
}
alias -l delidialog {
if $dialog(baqlanti) {
if %x = 16 { timerbaqlanti off | unset %x %y }
else {
var %y = $calc($sin(%x) / %x)
dialog -s baqlanti -1 $calc($calc(%z + $round($iif(%x = 0,100,$calc(%y * 2000)),0)) + 250) -1 -1
inc %x 0.1
}
}
else {
.timerbaqlanti off
unset %x %y
}
unset %z
}



Kırmızı yerler dialog adıdır ve ben timer'ları dialog adına göre yerleştirdim sizde her dialog için ayrı bir kode yazmalısınız...

kırmızı yerleri dialog adına göre değiştiriniz... örnek vermek için bir dialog iLe bunu gösterdim...

ZaLiM1979 11 Eylül 2017 13:33

Cevap: Uçan MenüLer ( Dialog'Larınız Ucarak AçıLsın... )
 
LauReLL üstadim bunu bendeki özel kabul addonuna ekledim..

sadece özele gelen pencerede olsun diye..
calisiyor ama mahlesef özele yazanin mesaji görünmüyor..

Görüntü:

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

Görüntüde görüldügü gibi mesaj yeri bos..

query-addona ekleme yaptigim kod'un..

Kod:

on 1:dialog:query:init:*:{
  .timerquery -m 0 1 query
}
alias -l query {
  if $dialog(query) { 
    if %x = 16 { timerquery off | unset %x %y }
    else {
      var %y = $calc($sin(%x) / %x)
      dialog -s query -1 $calc($calc(%z + $round($iif(%x = 0,100,$calc(%y * 2000)),0)) + 250) -1 -1
      inc %x 0.1
    }
  }
  else {
    .timerquery off
    unset %x %y
  }
  unset %z
}

yardim icin simdiden tsklerimi sunarim..

.Emre 23 Şubat 2018 19:15

Cevap: Uçan MenüLer ( Dialog'Larınız Ucarak AçıLsın... )
 
güzel güzel eline sağlık


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

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