Www.Hossohbetci.Com " Degisen Dunyanin Degismeyen Yuzu Seviyeli Hossohbet Adresiniz"
kod:
dialog nadnt {
title "Auto-Nick Identify (tanıtma) Sistemi"
size -1 -1 300 225
button "Tamam", 1, 230 195 60 20,ok, flat
list 2, 10 10 80 185
box "", 3, 100 5 190 180
text " Nickserv Auto Identify", 4, 110 17 170 13,center
text "Bu özellik sayesinde niklerinizi otomatik olarak identify edebiliceksiniz.. Sadece nickinizi ve altına da şifrenizi yazın ve işte artık rahatsınız. Bırakın nicklerinizi ScripT kendisi tanıtsın. ", 5, 110 50 170 100,center
text "Nickiniz:", 6, 110 62 60 13
edit "", 7, 170 60 110 20
text "Şifreniz:", 8, 110 87 60 13
edit "", 9, 170 85 110 20,pass
text "Nickiniz:", 10, 110 62 60 13
edit "", 11, 170 60 110 20
text "Şifreniz:", 12, 110 87 60 13
edit "", 13, 170 85 110 20,pass
text "Nickiniz:", 14, 110 62 60 13
edit "", 15, 170 60 110 20
text "Şifreniz:", 16, 110 87 60 13
edit "", 17, 170 85 110 20,pass
text "Nickiniz:", 18, 110 62 60 13
edit "", 19, 170 60 110 20
text "Şifreniz:", 20, 110 87 60 13
edit "", 21, 170 85 110 20,pass
text "Nickiniz:", 22, 110 62 60 13
edit "", 23, 170 60 110 20
text "Şifreniz:", 24, 110 87 60 13
edit "", 25, 170 85 110 20,pass
button "Bu Nicki Al", 26, 135 130 60 20
button "Identify Et", 27, 195 130 60 20
button "Bu Nicki Al", 28, 135 130 60 20
button "Identify Et", 29, 195 130 60 20
button "Bu Nicki Al", 30, 135 130 60 20
button "Identify Et", 31, 195 130 60 20
button "Bu Nicki Al", 32, 135 130 60 20
button "Identify Et", 33, 195 130 60 20
button "Bu Nicki Al", 34, 135 130 60 20
button "Identify Et", 35, 195 130 60 20
check "Auto-Nick Identify Açık", 36, 10 197 130 13
}
on *:dialog:nadnt:init:*:{
if (%nident == on) { did -c nadnt 36 }
did -a nadnt 2 Bilgi
did -a nadnt 2 $chr(160) $+ Nick 1
did -a nadnt 2 $chr(160) $+ Nick 2
did -a nadnt 2 $chr(160) $+ Nick 3
did -a nadnt 2 $chr(160) $+ Nick 4
did -a nadnt 2 $chr(160) $+ Nick 5
did -f nadnt 2 Bilgi
did -h nadnt 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35
did -a nadnt 7 %Nick.1
did -a nadnt 9 %nickpass.1
did -a nadnt 11 %Nick.2
did -a nadnt 13 %nickpass.2
did -a nadnt 15 %Nick.3
did -a nadnt 17 %nickpass.3
did -a nadnt 19 %Nick.4
did -a nadnt 21 %nickpass.4
did -a nadnt 23 %Nick.5
did -a nadnt 25 %nickpass.5
if ($did == 7) { set %Nick.1 $did(7).text }
if ($did == 9) { set %nickpass.1 $did(9).text }
if ($did == 11) { set %Nick.2 $did(11).text }
if ($did == 13) { set %nickpass.2 $did(13).text }
if ($did == 15) { set %Nick.3 $did(15).text }
if ($did == 17) { set %nickpass.3 $did(17).text }
if ($did == 19) { set %Nick.4 $did(19).text }
if ($did == 21) { set %nickpass.4 $did(21).text }
if ($did == 23) { set %Nick.5 $did(23).text }
if ($did == 25) { set %nickpass.5 $did(25).text }
if (%nick.1 == $null) { unset %nick.1 | did -b nadnt 9,26 }
else { did -e nadnt 9,26 }
if (%nick.2 == $null) { unset %nick.2 | did -b nadnt 13,28 }
else { did -e nadnt 13,29 }
if (%nick.3 == $null) { unset %nick.3 | did -b nadnt 17,30 }
else { did -e nadnt 17,30 }
if (%nick.4 == $null) { unset %nick.4 | did -b nadnt 21,32 }
else { did -e nadnt 21,32 }
if (%nick.5 == $null) { unset %nick.5 | did -b nadnt 25,34 }
else { did -e nadnt 25,34 }
if (%nickpass.1 == $null) { unset %nickpass.1 | did -b nadnt 27 }
else { did -e nadnt 27 }
if (%nickpass.2 == $null) { unset %nickpass.2 | did -b nadnt 29 }
else { did -e nadnt 29 }
if (%nickpass.3 == $null) { unset %nickpass.3 | did -b nadnt 31 }
else { did -e nadnt 31 }
if (%nickpass.4 == $null) { unset %nickpass.4 | did -b nadnt 33 }
else { did -e nadnt 33 }
if (%nickpass.5 == $null) { unset %nickpass.5 | did -b nadnt 35 }
else { did -e nadnt 35 }
}
on *:dialog:nadnt:edit:*:{
if ($did == 7) { set %Nick.1 $did(7).text }
if ($did == 9) { set %nickpass.1 $did(9).text }
if ($did == 11) { set %Nick.2 $did(11).text }
if ($did == 13) { set %nickpass.2 $did(13).text }
if ($did == 15) { set %Nick.3 $did(15).text }
if ($did == 17) { set %nickpass.3 $did(17).text }
if ($did == 19) { set %Nick.4 $did(19).text }
if ($did == 21) { set %nickpass.4 $did(21).text }
if ($did == 23) { set %Nick.5 $did(23).text }
if ($did == 25) { set %nickpass.5 $did(25).text }
if (%nick.1 == $null) { unset %nick.1 | did -b nadnt 9,26 }
else { did -e nadnt 9,26 }
if (%nick.2 == $null) { unset %nick.2 | did -b nadnt 13,28 }
else { did -e nadnt 13,29 }
if (%nick.3 == $null) { unset %nick.3 | did -b nadnt 17,30 }
else { did -e nadnt 17,30 }
if (%nick.4 == $null) { unset %nick.4 | did -b nadnt 21,32 }
else { did -e nadnt 21,32 }
if (%nick.5 == $null) { unset %nick.5 | did -b nadnt 25,34 }
else { did -e nadnt 25,34 }
if (%nickpass.1 == $null) { unset %nickpass.1 | did -b nadnt 27 }
else { did -e nadnt 27 }
if (%nickpass.2 == $null) { unset %nickpass.2 | did -b nadnt 29 }
else { did -e nadnt 29 }
if (%nickpass.3 == $null) { unset %nickpass.3 | did -b nadnt 31 }
else { did -e nadnt 31 }
if (%nickpass.4 == $null) { unset %nickpass.4 | did -b nadnt 33 }
else { did -e nadnt 33 }
if (%nickpass.5 == $null) { unset %nickpass.5 | did -b nadnt 35 }
else { did -e nadnt 35 }
}
on *:dialog:nadnt:sclick:*:{
if ($did(2,$did(2).sel) == Bilgi) {
did -o nadnt 4 1 Auto-Nick Identify Sistemi
did -h nadnt 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35
did -v nadnt 5
}
if ($did(2,$did(2).sel) == $chr(160) $+ Nick 1) {
did -o nadnt 4 1 1. Auto-Nick Identify Ayarlarınız...
did -h nadnt 5,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,28,29,30,31,32,33,34,35
did -v nadnt 6,7,8,9,26,27
}
if ($did(2,$did(2).sel) == $chr(160) $+ Nick 2) {
did -o nadnt 4 1 2. Auto-Nick Identify Ayarlarınız...
did -h nadnt 5,6,7,8,9,14,15,16,17,18,19,20,21,22,23,24,25,26,27,30,31,32,33,34,35
did -v nadnt 10,11,12,13,28,29
}
if ($did(2,$did(2).sel) == $chr(160) $+ Nick 3) {
did -o nadnt 4 1 3. Auto-Nick Identify Ayarlarınız...
did -h nadnt 5,6,7,8,9,10,11,12,13,18,19,20,21,22,23,24,25,26,27,28,29,32,33,34,35
did -v nadnt 14,15,16,17,30,31
}
if ($did(2,$did(2).sel) == $chr(160) $+ Nick 4) {
did -o nadnt 4 1 4. Auto-Nick Identify Ayarlarınız...
did -h nadnt 5,6,7,8,9,10,11,12,13,14,15,16,17,22,23,24,25,26,27,28,29,30,31,34,35
did -v nadnt 18,19,20,21,32,33
}
if ($did(2,$did(2).sel) == $chr(160) $+ Nick 5) {
did -o nadnt 4 1 5. Auto-Nick Identify Ayarlarınız...
did -h nadnt 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,26,27,28,29,30,31,32,33
did -v nadnt 22,23,24,25,34,35
}
if ($did == 36) { if ($did(36).state == 0) { set %nident off } | if ($did(36).state == 1) { set %nident on } }
if ($did == 26) { nick $did(7).text }
if ($did == 27) { if ($me == $did(7).text) { NickServ identify $did(9).text } }
if ($did == 28) { nick $did(11).text }
if ($did == 29) { if ($me == $did(11).text) { NickServ $did(13).text } }
if ($did == 30) { nick $did(15).text }
if ($did == 31) { if ($me == $did(15).text) { NickServ $did(17).text } }
if ($did == 32) { nick $did(19).text }
if ($did == 33) { if ($me == $did(19).text) { NickServ $did(21).text } }
if ($did == 34) { nick $did(23).text }
if ($did == 35) { if ($me == $did(23).text) { NickServ $did(25).text } }
}
on 1:CONNECT:{
if (%nident == On) {
if ($me == %nick.1) { .nickserv identify %nickpass.1 | goto end }
if ($me == %nick.2) { .nickserv identify %nickpass.2 | goto end }
if ($me == %nick.3) { .nickserv identify %nickpass.3 | goto end }
if ($me == %nick.4) { .nickserv identify %nickpass.4 | goto end }
if ($me == %nick.5) { .nickserv identify %nickpass.5 | goto end }
:end
}
}
on 1:NOTICE:This nick*:?:{
if ((%nident == On) && ($nick == nickserv)) {
if ($me == %nick.1) { .nickserv identify %nickpass.1 | goto end }
if ($me == %nick.2) { .nickserv identify %nickpass.2 | goto end }
if ($me == %nick.3) { .nickserv identify %nickpass.3 | goto end }
if ($me == %nick.4) { .nickserv identify %nickpass.4 | goto end }
if ($me == %nick.5) { .nickserv identify %nickpass.5 | goto end }
:end
}
}
On 1:TEXT:This nick*:?:{
if ((%nident == On) && ($nick == nickserv)) {
if ($me == %nick.1) { .nickserv identify %nickpass.1 | goto end }
if ($me == %nick.2) { .nickserv identify %nickpass.2 | goto end }
if ($me == %nick.3) { .nickserv identify %nickpass.3 | goto end }
if ($me == %nick.4) { .nickserv identify %nickpass.4 | goto end }
if ($me == %nick.5) { .nickserv identify %nickpass.5 | goto end }
:end
}
}
ctcp 999:*:?:$1-
menu * {
Otomatik iDentify : /dialog -m nadnt nadnt