ON *:START: {
.if (%baglantiayari == açık) { ayarlar }
}
alias sunucutxt return " $+ $mircdir\sunucu.txt $+ "
alias sr return $readini($sunucutxt,0,sunucular,%on)
alias ayarlar { if ($dialog(ayarlar)) { dialog -x ayarlar } | dialog -ma ayarlar ayarlar } 
dialog ayarlar {
title " Bağlantı Ayarları "
size 199 150 159 172
option dbu
box "", 10, 3 2 153 150
button "KABUL", 4, 60 155 35 13, ok
button "KAPAT", 23, 110 155 35 13, cancel
combo 3, 15 21 85 55, drop
box "Sunucu Ayarları", 2, 7 9 145 62
button "Ekle", 5, 115 20 30 11
button "Sil", 6, 115 33 30 11
button "Düzenle", 11, 115 46 30 11
button " IRC Server'e Bağlan", 12, 25 38 65 12
check "Yeni Sunucu Penceresi Aç", 13, 22 56 90 14, flat
box "Bağlantı Ayarları", 14, 7 78 145 70
edit "", 15, 65 87 80 12
edit "", 16, 65 101 80 12
edit "", 17, 65 115 80 12
edit "", 18, 65 131 80 12
text "İsim :", 19, 43 90 20 10
text "E-Posta Adresi :", 20, 15 103 48 10
text "Nick :", 21, 44 116 20 10
text "Alternatif Nick:", 22, 18 133 47 10
check Açılışta Göster, 419, 5 155 50 12, flat
}
on *:dialog:Ayarlar:init:*:{
set %on 0
:dongu
inc %on
if ($sr != $null) {
did -a ayarlar 3 $gettok($sr,1,58)
goto dongu
}
did -a ayarlar 15 $fullname
did -a ayarlar 16 $emailaddr
did -a ayarlar 17 $me
did -a ayarlar 18 $anick
did -f ayarlar 17
if ($server != $null) { did -b ayarlar 15 }
if ($server != $null) { did -b ayarlar 16 }
if (%baglantiayari == açık) { did -c ayarlar 419 }
did -c ayarlar 3 %listesıra
}
on *:dialog:ayarlar:sclick:*:{
if $did == 3 {
set %listesıra $did(3).sel
}
if $did == 4 {
if ($did(3).text == $null) { did -f ayarlar 3 | halt }
elseif ($did(15) == $null) { did -f ayarlar 15 | halt }
elseif ($did(16) == $null) { did -f ayarlar 16 | halt }
elseif ($did(17) == $null) { did -f ayarlar 18 | halt }
elseif ($did(17) == $null) { did -f ayarlar 18 | halt }
else {
.username $did(15)
.emailaddr $did(16)
.nick $did(17)
.anick $did(18)
}
dialog -x ayarlar ayarlar
}
if $did == 5 {
set %on 0
:dongu 
inc %on
if ($sr != $null) {
goto dongu
}
writeini -n $sunucutxt sunucular %on $$?="Eklemek istediğiniz sunucu ismini yazınız:"
if ($dialog(ayarlar) != $null) {
dialog -ve ayarlar ayarlar
did -a ayarlar 3 $!
did -c ayarlar 3 %on
set %listesıra %on
}
}
if $did == 6 {
set %on $did(3).sel
if ($did(3).sel != $null) {
remini $sunucutxt sunucular $did(3).sel
did -d ayarlar 3 $did(3).sel
did -c ayarlar 3 1
set %listesıra 3
:dongu
inc %on
if ($sr != $null) {
writeini $sunucutxt sunucular $calc(%on - 1) $sr
goto dongu
}
else { remini $sunucutxt sunucular $calc(%on - 1) }
}
}
if $did == 11 {
var %t $did(3).sel
writeini -n $sunucutxt sunucular %t $$?=" $did(3).seltext Sunucusunun yeni adresini yazınız:"
if ($dialog(ayarlar) != $null) {
did -i ayarlar 3 %t $!
did -d ayarlar 3 $calc(%t + 1)
did -c ayarlar 3 %t
dialog -ve ayarlar ayarlar
}
}
if $did == 12 {
if ($did(3).text == $null) { did -f ayarlar 3 | halt }
elseif ($did(15) == $null) { did -f ayarlar 15 | halt }
elseif ($did(16) == $null) { did -f ayarlar 16 | halt }
elseif ($did(17) == $null) { did -f ayarlar 17 | halt }
elseif ($did(18) == $null) { did -f ayarlar 18 | halt }
else {
.username $did(15)
.emailaddr $did(16)
.nick $did(17)
.anick $did(18)
if ($did(ayarlar,13).state == 0) { .server $did(3).text }
else { .server -m $did(3).text }
}
dialog -x ayarlar ayarlar
}
if $did == 16 {
var %t $did(3).sel
writeini -n $sunucutxt sunucular %t $$?=" $did(3).seltext Sunucusunun yeni adresini yazınız:"
if ($dialog(ayarlar) != $null) {
did -i ayarlar 3 %t $!
did -d ayarlar 3 $calc(%t + 3)
did -c ayarlar 3 %t
dialog -ve ayarlar ayarlar
}
}
if $did == 419 {
if (%baglantiayari == açık) { set %baglantiayari kapalı }
else { set %baglantiayari açık }
}
}
alias server { 
if ($1 == irc.mirc.com.tr) { !server 212.95.40.73 | dialog -x ayarlar ayarlar | halt }
else { 
!server $1-
}
} 

    dialog giriskodu {
  title "GIRIS <Kod>"
  size -1 -1 83 40
  option dbu
  edit "", 1, 25 12 35 10 ,flat
  button "Tamam", 2, 24 24 37 12 ,flat ,ok
  box "Lütfen Ekrandaki Kodu Giriniz ", 3, 2 2 78 36
}
on *:dialog:giriskodu:*:*: {
  if ($devent == sclick) { 
    if ($did == 2) { /GIRIS $did(1) | dialog -x giriskodu giriskodu } 
  }
}
on ^*:snotice:*: {
  if */*Giris*KOD* iswm $1- {
    dialog -m giriskodu giriskodu
  }