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

Kod:
alias Gmsg { dialog -m gmsg gmsg }

dialog gmsg {

  title "Giriş Mesajı"

  size -1 -1 250 88

  option dbu

  edit "", 2, 53 27 190 9, autohs

  edit "", 3, 53 45 190 9, autohs

  check "Giriş Mesajı 1 Açık / Kapalı", 4, 6 8 90 9

  check "Giriş Mesajı 2 Açık / Kapalı", 5, 153 8 90 9

  text " Giriş Mesajı 1", 6, 6 27 36 8

  text " Giriş Mesajı 2", 7, 6 45 36 8

  box "", 8, 2 2 245 19

  box "", 9, 2 20 245 40

  button "Tamam ", 10, 77 66 100 16,ok

}

on 1:dialog:gmsg:sclick:*:{

  if ($did(4).state == 1) { set %msg1 1 } | else { set %msg1 0 }

  if ($did(5).state == 1) { set %msg2 1 } | else { set %msg2 0 }

}
 

on *:dialog:gmsg:*:*:{

  if ($devent == edit) {

    if ($did == 2) { set %gmsg1 $did(2) }

    if ($did == 3) { set %gmsg2 $did(3) }

  }

  if ($devent == init) {

    did -ra $dname 2 %gmsg1

    did -ra $dname 3 %gmsg2

    if (%msg1 == 1) { did -c gmsg 4 }

    if (%msg2 == 1) { did -c gmsg 5 }

  }

}
 

on *:join:#:{ 

  if (%msg1 == 1) {

    if !$istok(#help #oper #opers #operhelp #mirchelp #services #Karantina #Guvenlik #Log #muaf,$chan($chan),32) { 

      if ($nick == $me) { msg $chan  %gmsg1 

      }

    }

  }

  if (%msg2 == 1) {

    if !$istok(#help #oper #opers #operhelp #mirchelp #services #Karantina #Guvenlik #Log #muaf,$chan($chan),32) { 

      if ($nick == $me) { msg $chan %gmsg2

      }

    }

  }

}