ICQTurk Forum

Kod: Tümünü seç

alias kapatulen { dialog -c absolut53 absolut53 } 
alias absolut53 { dialog -m absolut53 absolut53 }

dialog absolut53 {
  title "Türkçe mIRC 6.21 - Bağlanti Menüsü"
  size -1 -1 361 140
  icon 25, -70 -219 500 500, resim/baner.jpg
  text "Nick (Rumuz) :" ,2, 30 80 80 20
  edit "" ,3, 105 80 130 20, autohs
  text "Sunucu :" ,13, 30 105 60 20
  combo 14, 105 105 131 130 ,drop edit size , flat
  text "Port:" ,16, 243 105 30 20
  edit "" , 17, 269 105 38 22 , edit
  button "Gir !" ,5, 320 105 36 20,  flat
  button " B A G L A N " ,19, 240 80 115 20, ok, flat
}

on *:dialog:absolut53:*:*:{
  if ($devent == init) {
    did -c absolut53 5
    did -a absolut53 14 irc.mircturk.com
    did -c absolut53 14 1
    did -a absolut53 17 6667
    did -c absolut53 17 1
    did -a absolut53 3 $me
    did -c absolut53 3 1
    did -f absolut53 5
  }
  if ($devent == sclick) && ($did == 14) { /set %servername $did(14) }
  if ($devent == sclick) && ($did == 17) { /set %serverport $did(17) }
  if ($devent == sclick) {
    if ($did == 5) { .server $did(14) $+ : $+ $did(5) | .nick $did(3) | kapatulen }
    if ($did == 172) { 
      set %sizinkiacikmi ON
      kapatulen
      dialog -m absolut53 absolut53

    }
    if ($did == 12) { 
      if (%sizinkiacikmi !== ON) { 

        set %sizinkiacikmi ON
      } 
      else server %sizinkinebaglan
      nick $did(3) 
      kapatulen
    }
    if ($did == 19) { server $did(14) $+ : $+ $did(17) | .nick $did(3) | kapatulen } 
  }
}