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

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

Resimde görüldüğü kod Oper girmek için bir dialog bir defa girdikten sonra bir dahaki açtığınızda operinizi görmüş olacak isterseniz bilgileride sileceksiniz zaten resimde her şey açık
Kodun sahibi : Mecnun yani Samet

Kod:

dialog new_table {

  title "Oper Gir"

  size -1 -1 121 82

  option dbu

  box "OperGir Paneli", 1, 3 2 115 77

  text " Oper Nick :", 2, 7 15 43 8

  edit "", 3, 47 11 58 12

  text " Oper Sifre :", 4, 8 30 44 8

  edit "", 5, 47 27 58 12

  button "Gir", 6, 44 41 34 14

  button "Hafizadan Gir", 7, 6 41 36 14

  button "Hafizayi Sil", 8, 80 41 36 14

  button "Kapat", 9, 10 60 101 12,ok

}

on *:dialog:new_table:*:*:{

  if ($devent == init) {

    mdx MarkDialog $dname

    mdx SetDialog $dname bgcolor $rgb(230,245,252)

    mdx SetFont $dname 1,2,3,4,5,6 +b Turkish 11 900 Tahoma

    mdx SetColor $dname 1,2,3,4,5,6,7 textbg $rgb(230,245,252)

    mdx SetColor $dname 1,2,3,4,5,6,7 background $rgb(230,245,252)

    mdx SetColor $dname 1,2,3,4,5,6,7 text $rgb(0,0,100)

    did -a $dname 3 %opernick

    did -a $dname 5 %opersifre

  }

  if ($devent == sclick) {

    if ($did == 6) && $did(3) && $did(5) {

      set %opernick $did(3)

      set %opersifre $did(5)

      oper %opernick %opersifre

      dialog -x new_table

    }

    if ($did == 7) && %opernick && %opersifre { 

      oper %opernick %opersifre

    } 

    if ($did == 8) && %opernick && %opersifre {

      .unset %opernick | .unset %opersifre | /echo -a 4UYARI:Kayitli Oper Nick ve Oper Sifresi Silinmistir.Dialog tekrar acilinca Gorunmeyecektir.

    }

  }

}