Çevrimdışı

Buda dialog hali (: aşağıdaki kodlamada notice kısımlarını off seklindedir o kısımları on yaparsan dialog her bağlantıda acılır bence bu sekilde olması gayet iyi onuda öğreten "IrCbaStarD" tşklerimi sunuyorum..

alias sifrem { .dialog -m sifrem sifrem }
dialog sifrem {
title "OzZy Oper ScripT"
size -1 -1 130 130
option dbu
box $me Kayitli bir Nicktir., 2, 4 2 122 50
text " Sifre Gir: ", 3, 10 12 50 10
text " Nick Degistir:", 4, 10 24 50 10
edit "", 5, 70 12 50 10, pass autohs
edit "", 6, 70 24 50 10, autohs
button "Uygula", 8, 10 38 110 10, ok
box "", 9, 4 54 122 60
check "Oto Nick Identify Aç Kapat", 10, 10 60 110 8
text " Şifre Gir;", 11, 10 70 50 10
edit "", 12, 70 70 50 10, pass autohs
check "Oto Oper nick Oper Pass Aç Kapat", 13, 10 82 110 8
text " Oper Nick Gir;", 14, 10 92 50 8
text " Oper Pass Gir;", 15, 70 92 50 8
edit "", 16, 10 102 50 10, flat
edit "", 17, 70 102 50 10, pass autohs
button "Tamam", 18, 10 117 110 10, cancel
}

off 1:dialog:sifrem:sclick:*: {
if ($did(10).state == 1) { .enable #otonick | .disable #sifre } | else { .disable #otonick | .enable #sifre }
if ($did(13).state == 1) { .enable #operpasta } | else { .disable #operpasta }
if ($did == 8) { if ($null != $did(6)) .nick $did(6) | .ns identify $did(5)
else {
.ns identify $did(5)
}
}
}
off 1:dialog:sifrem:*:*:{
if ($devent == edit) {
if ($did == 12) { set %oto-nick-sifre $did(12) }
if ($did == 16) { set %oper-nick $did(16) }
if ($did == 17) { set %oper-pass $did(17) }
}
if ($devent == init) {

if ($group(#otonick) == on) { did -c sifrem 10 }
if ($group(#operpasta) == on) { did -c sifrem 13 }
did -ra $dname 12 %oto-nick-sifre
did -ra $dname 16 %oper-nick
did -ra $dname 17 %oper-pass
}
}
#otonick on
off *:notice:*:*:{
if ($nick == NickServ) {
if (*Nickserv*IDENTIFY* iswm $1-) {
.dialog -m sifrem sifrem
.ns identify %oto-nick-sifre
}
if (*Sifre*kabul*edildi* iswm $1-) {
.dialog -x sifrem sifrem
.halt
}
}
}
#otonick end
#operpasta on
on *:connect:{
.oper %oper-nick %oper-pass
}
#operpasta end