SaNCaK

miRC - Muaf Kanal/Nick Dialog

Dec 7th, 2021
894
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. menu menubar,channel {
  2.   Ayar
  3.   .Muaf Ayar:muaf
  4. }
  5. alias muaf /dialog -m muafayar muafayar
  6. alias muafn /dialog -m muafn muafn
  7. dialog muafayar {
  8.   title "Muaf Ayarları"
  9.   size -1 -1 145 178
  10.   option dbu
  11.   Box "Muaf Kanal Ayarları ! ", 1, 8 37 130 139
  12.   list 3, 14 45 62 116, tab 1 size
  13.   edit "#", 4, 81 61 50 10, tab 1,center
  14.   button "Ekle", 5, 85 80 37 12,
  15.   button "Sil", 6, 85 100 37 12,
  16.   text "Örnek : #Sohbet", 8, 81 51 42 8,
  17.   button "Muaf Nick", 9, 85 120 37 12,
  18. }
  19. on *:dialog:muafayar:*:* {
  20.   if ($devent == init) {
  21.     var %i 1
  22.     while (%i <= $lines(txt/muafk.txt)) {
  23.       did -a muafayar 3 $read(txt/muafk.txt,%i)
  24.       inc %i
  25.     }
  26.   }
  27.   if ($devent == sclick) {
  28.     if ($did == 5) { write txt/muafk.txt $did(4) | did -a muafayar 3 $did(4) }
  29.     if ($did == 6) { write -d txt/muafk.txt $did(3).seltext | did -d muafayar 3 $did(3).sel }
  30.     if ($did == 9) { dialog -x muafayar muafayar | .muafn }
  31.   }
  32. }
  33.  
  34. --
  35. dialog muafn {
  36.   title "Muaf Ayarları"
  37.   size -1 -1 145 178
  38.   option dbu
  39.   Box "  Muaf Nick Ayarları ! ", 1, 8 37 130 139
  40.   list 3, 14 45 62 116, tab 1 size
  41.   edit "Nick", 4, 81 61 50 10, tab 1,center
  42.   button "Ekle", 5, 85 80 37 12,
  43.   button "Sil", 6, 85 100 37 12,
  44.   text "Örnek : Gezgin", 8, 81 51 42 8,
  45.   button "Muaf Kanal", 9, 85 120 37 12,
  46. }
  47. on *:dialog:muafn:*:* {
  48.   if ($devent == init) {
  49.     var %i 1
  50.     while (%i <= $lines(txt/muafn.txt)) {
  51.       did -a muafn 3 $read(txt/muafn.txt,%i)
  52.       inc %i
  53.     }
  54.   }
  55.   if ($devent == sclick) {
  56.     if ($did == 5) { write txt/muafn.txt $did(4) | did -a muafn 3 $did(4) }
  57.     if ($did == 6) { write -d txt/muafn.txt $did(3).seltext | did -d muafn 3 $did(3).sel }
  58.     if ($did == 9) { dialog -x muafn muafn | .muaf }
  59.   }
  60. }
RAW Paste Data