[oGuZ83]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias bilgiler { dialog -a bilgiler bilgiler }
dialog bilgiler {
  title "Sozler Menusu"
  size -1 -1 137 136
  option dbu
  list 1, 5 7 127 53 size
  edit ", 2 29 74 71 10
  button "Ekle", 3, 8 87 25 12
  button "Sil", 4, 89 87 25 12
  button "Gonder", 5, 42 98 37 12
  box "Sozler", 6 1 0 135 63
  box "Fonksiyonlar", 7, 3 67 130 52
  button "Tamam", 8, 48 121 37 12
}
on *:dialog:bilgiler:init:* {
  var %i 1
  while (%i <= $lines(bilgiler.txt) ) (
  did -a bilgiler 1 $read(bilgiler.txt,%i)
  inc %i
}
}
on *:dialog:bilgiler:sclick:*: (
if ($did == 3) ( write bilgiler.txt $did(2) | did -a bilgiler 1 $did(2) )
if ($did == 4) ( write -d bilgiler.txt $did(1). seltext | did -d bilgiler 1 $did(1).sel }
if ($did == 5) ( /msg $active $did(1).seltext }
}

arkadaşlar dialog-studio programı dersi izledim -----lu ve ----- anlatanın yaptığı gibi bir dialog yapmaya çalıştım sanırım beceremedim dialogun amacı mrc klasorunde bilgiler.txt dosyası var içinde bilgiler var bunu kanala yansitmak mesela mrc de sag tik yaparak cikan dialogda yazının ustune tikladigim salonda yada ozelde nerede aktif pencere varsa oraya yansıtmak istedim ama dialogu beceremedim sonrada mrc de sag tık eklemeyi beceremedim popus'a /dialog -a bilgiler bilgiler ekledim sanirim diaolog bozuk oldugu için acmadı yardimlarınızı bekliyorum dialog da yazı eklem silmede mevcuttur