Oto Nick identify Addonu

alias nickidentify {
; if (!$dialog(nickidentify)) { .remote on | var %d = $dialog(nickidentify,nickidentify,-4) }
if (!$dialog(nickidentify)) { .remote on | dialog -m nickidentify nickidentify }

else { halt }
}
dialog nickidentify {
title “HelpOper Şifrenizi Giriniz”
size -1 -1 130 40
option dbu
box “”, 5, 1 -1 126 38
button “&İdentify Et”, 1, 90 8 35 12,flat ok
edit “”, 2, 20 9 69 11, pass autohs
Button ” -=-Nick Değiş-=- “, 3, 23 23 60 12 8
}
on *:dialog:nickidentify:sclick:3: { dialog -x nickidentify | nickd }
on 1:DIALOG:nickidentify:init:0: { did -f nickidentify 2  }
on 1:DIALOG:nickidentify:*:*: {
if ($devent == sclick) {
if ($did == 1) { /yap }
}
}
alias yap {
if ($did(2) == $null) { .echo -a 4Lütfen şifrenizi giriniz..! %Logo | dialog -x nickidentify nickidentify | /Nickidentify }
else { /privmsg NickServ $did(2) }
}
on *:NOTiCE:*NickServ identify*:?:{ if ($nick == NickServ) { dialog -m nickidentify nickidentify }
}

————————
alias nickd {
; if (!$dialog(nickd)) { .remote on | var %d = $dialog(nickd,nickd,-4) }
if (!$dialog(nickd)) { .remote on | dialog -m nickd nickd }

else { halt }
}
dialog nickd {
title “HelpOper Yeni Nick”
size -1 -1 120 32
option dbu
box “”, 5, 2 1 115 25
button “Tamam”, 2, 79 12 35 12, flat ok
edit “”, 4, 5 13 69 10, text autos
text “Lütfen Nick Seçiniz:”, 1, 15 5 62 8
}

on *:dialog:nickd:sclick:2: { Nick $did(4) }
on 1:DIALOG:nickd:init:0: { did -f nickd 4  }

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir