msn gibi yazmak istiyorum
 

iyi geceler ben anlamıyorum pek ama bi yerden indirdiğim bi mirce bi kod eklemek istiyorum bi tane arkadaşıma söyledim bana dialog sütüdyo isimli bi program verdi azcıkın öğretti ama ben beceremedim sonra bana bu siteden yardım bulacağımı anlattı hiç bi yerde bulamadım

dialog New Project {
title "new_table"
size -1 -1 295 176
option dbu
edit "", 1, 6 13 287 121
edit "", 2, 8 139 242 34
button "Gonder", 3, 253 145 35 19
edit "Sohbetteki Kisi ?", 5, 7 1 101 12
}

buda resmi

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

bunu yaptım ama birşey yazıyorum gönder tuşuna basıyorum göndermiyor
birisiyle görüşmek istediğimde onun özeline gitsem sonra sağ tık yaptığımda özel görüş desem bu pencere çıksa bu pencerede o kişiyle yazışabilirmiyim msnedeki gibi hoscakalın

Cevap: msn gibi yazmak istiyorum
 

Kod:

---

alias ozel { dialog -md new new }
dialog New {
  title "Özel Mesaj Penceresi"
  size -1 -1 295 184
  option dbu
  edit "", 1, 6 16 287 121, multi return vsbar
  edit "", 2, 8 142 242 39
  button "Gonder", 3, 256 141 35 19
  combo 4, 6 3 112 205, size drop
  button "Temizle", 5, 256 163 35 19
}

on *:dialog:new:*:*: {
  if $devent == sclick {
    if $did == 5 {
      did -r $dname 1
    }
    if $did == 3 {
      msg $did(4) $did(2)
      did -a $dname 1 $crlf
      did -a $dname 1 $me $+ : $did(2)
      did -r $dname 2
    }
  }
  if $devent == init {
    var %i 1
    while %i <= $query(0) {
      did -a $dname 4 $query(%i)
      inc %i
    }
    did -c $dname 4 1
  }
}

on *:text:*:?: {
  if $dialog(new) {
    did -a new 1 $crlf
    did -a new 1 $nick $+ : $1- | halt
  }
}
alias query {
  if $dialog(new) {
    did -a $dname 4 $1
  }
}
alias q {
  if $dialog(new) {
    did -a $dname 4 $1
  }
}
on *:open:?: {
  if $dialog(new) {
    did -a $dname 4 $1
  }
}
menu * {
  MSN Görüşme Modu Aktif Et:dialog -md ozel ozel
}

---

Dialogu -md parametresiyle açtırdımki, simge durumunda küçültebilesin.
Çünkü Kodun İşleyişi Dialog Açık Oldugu Sürecedir.

Sen Dialogu Aktif Ettiğin Andan İtibaren MSN modu Devreye Girer, Yok Efendim Her Özelime Gelene Bu Pencere Açılsın Diyorsan Bunu Extra Olarak Belirt.

Bu oldukca basit halidir bu kod geliştirilmeye açıktır. Örneğin dialog aktifken nickin orjinal penceresinin switchbar üzerinde cıkması /window parametresiyle önlenebilir.

Extra olarak Temizle Butonu Koyulmuştur.

ComboBox eklenerek birden fazla giriş sağlanmış böylelikle özel pencereleri arası geçiş seçimi kolaylaştırılmıştır.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: msn gibi yazmak istiyorum
 

özeli acınca dırek bu sekılmı cıkıyor acaba ?

Cevap: msn gibi yazmak istiyorum
 

alias query {
if $dialog(new) {
did -a $dname 4 $1
}
}
alias q {
if $dialog(new) {
did -a $dname 4 $1
}
}
on *:open:?: {
if $dialog(new) {
did -a $dname 4 $1
}
}


kısımlarında da görüldüğü gibi /query nick yazılımında , /q nick yazılımında ve , on *:open:?: { eventi= yani pencere açılış olayında direk işlev görücek.

Cevap: msn gibi yazmak istiyorum
 

Peki Üstadım Entere Bastığımızda Mesajın Gitmesini Nasıl Sağlayabiliriz. Bu Pencerede yazılanların Logunu Tutabilirmiyiz ve Bu Pencerede Birisi Bize Yazdığında Mirc Nasıl Yanıp Sönebilir? uyarı verebilir.

Cevap: msn gibi yazmak istiyorum
 

güzel bir fikir msn tarzı ifadeli :) gercekten cok güzel olur msnin mircle birleşme şansı olsaydı cok süper bi olay olurdu zamanla daha gelişeceğine inanıyorum ellerinize sağlık

Cevap: msn gibi yazmak istiyorum
 

dialog New {
title "Özel Mesaj Penceresi"
size -1 -1 295 184
option dbu
edit "", 1, 6 16 287 121, multi return vsbar
edit "", 2, 8 142 242 39
button "Gonder", 3, 256 141 35 19, Default flat
combo 4, 6 3 112 205, size drop
button "Temizle", 5, 256 163 35 19
}
enter ıcn kırmızı belırtılen yeri ekliyoruz
mirc içersinde çalıştığı için özel penceredeki bütün özellikler aynen devam ediyor

----------

alt + o seceneginde mause ye girip


/query $$1 | if $dialog(new) { dialog -x new new } | dialog -amd new new

bu kodu kayarsanız mause ıle tıklanıncada bu menü calısır difizyun dan aldım fikri :)