on 3*:Start:{
baglanti
}
alias baglanti {
dialog -m baglanti baglanti
}
dialog baglanti {
title "Connecting Menu"
size -1 -1 230 179
option dbu
icon $icons(icon.ico), 0
text "Server :", 1, 34 107 19 8
icon 2, 5 17 219 43, Imagesdialog.jpg, 0, noborder
text "Editor by DeviL", 3, 170 155 57 8
combo 4, 57 105 78 50, size edit drop
text "Port :", 6, 139 107 13 8
combo 7, 154 105 34 50, size edit drop
text "Nick : ", 5, 16 73 16 8
edit "", 9, 47 71 53 10
text "Alternative:", 10, 16 85 28 8
edit "", 12, 47 84 53 10
button "IRC ' ye Baglan !", 17, 58 124 112 23, flat
button "Metalpark", 14, 106 66 37 12, flat
button "E-Kolay", 16, 106 82 37 12, flat
button "Zurna.NET", 18, 143 66 37 12, flat
button "TTNET", 19, 143 82 37 12, flat
box "Metal Script", 21, 11 62 95 36
box "", 39, 105 62 113 36
box "Server(s)", 40, 16 94 197 55
button "Doruk.NET", 96, 180 66 37 12, flat
button "Teklan", 97, 180 82 37 12, flat
button "OK", 46, 155 166 37 12, flat ok
button "Cancel", 47, 192 166 37 12, flat cancel text "", 11, 4 168 98 8
}
on 1:dialog:baglanti:init:*:{
if ($server == $null) {
did -e baglanti 9
did -e baglanti 12
did -a baglanti 17 Connect
}
else {
did -b baglanti 9
did -b baglanti 12
did -a baglanti 17 Disconnect
}
did -ac $dname 4 %serv
did -a $dname 4 IRC.MetalPark.NET
did -a $dname 4 IRC.Zurna.NET
did -a $dname 4 IRC.Doruk.net.tr
did -a $dname 4 irc.ttnet.net.tr
did -a $dname 4 irc.E-Kolay.Net
did -a $dname 4 irc.Showtv.net
did -a $dname 4 irc.Undernet.org
did -a $dname 4 irc.teklan.com.tr
did -ac $dname 7 6667
did -a $dname 7 6668
did -a $dname 7 6669
did -a $dname 7 7000
did -a $dname 7 6667
did -a $dname 7 6665
did -a $dname 9 $readini mirc.ini mIRC nick
did -a $dname 12 $readini mirc.ini mIRC anick
serverlistesi
}
on *:DIALOG:baglanti:sclick:14:{ .nick $did(9).text | .anick $did(12).text | server IRC.metalpark.NET:6667 | dkapat }
on *:DIALOG:baglanti:sclick:16:{ .nick $did(9).text | .anick $did(12).text | server IRC.E-Kolay.NET:6667 | dkapat }
on *:DIALOG:baglanti:sclick:96:{ .nick $did(9).text | .anick $did(12).text | server IRC.Doruk.net.tr:7000 | dkapat }
on *:DIALOG:baglanti:sclick:97:{ .nick $did(9).text | .anick $did(12).text | server IRC.Teklan.com.tr:6667 | dkapat }
on *:DIALOG:baglanti:sclick:18:{ .nick $did(9).text | .anick $did(12).text | server IRC.Zurna.net:6667 | dkapat }
on *:DIALOG:baglanti:sclick:19:{ .nick $did(9).text | .anick $did(12).text | server IRC.ttnet.net.tr:6667 | dkapat }
on *:DIALOG:baglanti:sclick:17:{
if ($server != $null) {
disconnect
dkapat
did -a $dname 17 IRC' ye Baglan !
}
else {
.nick $did(9).text | .anick $did(12).text
server $did(baglanti,4) $did(baglanti,7)
set %serv $did(4).text
.dialog -c $dname $dname
}
}
on *:DIALOG:baglanti:edit:4: set %baglanti.server $did(4).text
on *:DIALOG:baglanti:edit:7: set %baglanti.port $did(7).text
on *:DIALOG:baglanti:sclick:4: {
set %cFClineNum n $ $calc($did(baglanti,4).sel - 1)
set %cFClineNum $readini servers.ini servers %cFClineNum
set %baglanti.server $gettok($right(%cFClineNum, $calc($len(%cFClineNum) - $pos(%cFClineNum,SERVER:,1) - 6)),1,58)
}
alias dkapat dialog -c $dname $dname
alias baglantid dialog -dma baglanti baglanti
alias serverlistesi {
set %nCount 0
set %cFClineNum
:loopnextserver
set %cFClineNum n $ %nCount
if ($readini servers.ini servers %cFClineNum == $null) goto donenextserver
set %cFClineNum $readini servers.ini servers %cFClineNum
set %cFClineNum $mid(%cFClineNum,1,$calc($pos(%cFClineNum,SERVER:,1)-1))
did -a baglanti 4 %cFClineNum
if (%cLastServerUsed == %cFClineNum) did -c baglanti 4 $calc(%nCount 1)
inc %nCount
goto loopnextserver
:donenextserver
}
