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 }
}
}