IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
alias globalmesaj {

  if $dialog(Global) == $null {

    dialog -m Global Global

  }

}

dialog Global {

  title "Global Mesaj Bildirim Listesi"

  size -1 -1 432 292

  option pixels notheme

  button "Sil", 1, 192 187 55 26

  list 2, 10 15 413 136, sort

  box "Mesajlar", 3, 3 0 424 149

  edit "", 4, 10 166 174 84, autohs autovs multi

  box "Eklenecek mesaji girin", 5, 3 150 185 97

  button "Ekle", 6, 192 157 55 25

  text "Saniye giriniz", 8, 11 262 82 19, center

  edit "", 9, 106 256 80 28, autohs center

  button "Baslat", 10, 192 219 55 27

  button "Durdur", 12, 192 251 55 25

  box "Sure", 7, 3 249 96 37

  box "Kanal listesi", 11, 252 152 108 130

  edit "", 17, 365 163 60 22, autohs

  list 13, 259 165 94 121

  button "Kanal Ekle", 14, 366 187 62 25

  button "Kanal Sil", 15, 366 226 62 25

  button "Cikis", 16, 366 257 61 25

}

on *:dialog:Global:sclick:*: {

  if $did == 1 { if $read(sozler.txt,w,$+(*,$did(2).seltext,*)) { write $+(-,d,l,$readn) sozler.txt | did -d Global 2 $did(2).sel } }

  if $did == 6 { if ($did(4) != $null) { filter -ifg Global 4 sozler.txt . | did -fr Global 4 | did -fr Global 2 | filter -fog sozler.txt Global 2 . } }

  if $did == 10 { if $did(9) isnum { .timerglobmesaj 0 %globaltime globecho | echo -a 0,6** Global Mesaj Bildirimi Aktif ** | set %globaltime $did(9).text } }

  if $did == 12 { .timerglobmesaj off | echo -a 0,7** Global Mesaj Bildirimi Kapalı ** }

  if $did == 14 { did -a Global 13 $did(17).text | set %globalchan $addtok(%globalchan,$did(17).text,44) | did -fr Global 17 }

  if $did == 15 { set %globalchan $remtok(%globalchan,$did(13).seltext,44) | did -d Global 13 $did(13).sel }

  if $did == 16 { set %globaltime $did(9).text | dialog -x Global Global }

}

on *:dialog:Global:init:*:if ($lines(sozler.txt) != $null) { filter -fog sozler.txt Global 2 . } | tokenize 44 %globalchan | did -a Global 13 $* | did -a Global 9 %globaltime

menu status,nicklist,channel {

  Global Mesaj :globalmesaj

}

alias globecho {

  set %globmsg $read(sozler.txt)

  .msg %globalchan %globmsg

  tokenize 44 %globalchan

  echo -t $* $+(<,$me,>) %globmsg

}