MIRC Phone Book
Platform: mIRC
Published Jun 05, 2011
Updated Jun 05, 2011
Phone book in MIRC i thought might be usefull.
Again wraith did help me code but i did the rest.
Alias DD2 {
dialog -mdo DD2 DD2
}
dialog DD2 {
title "Dialog"
icon icons\264.ico, 0
size -1 -1 327 205
option pixels notheme
list 1, 1 27 325 100
edit "", 2, 1 109 325 54, vsbar center
button "Add", 3, 3 162 65 25
button "Remove", 4, 72 162 65 25
button "Close", 11, 208 161 65 25
text "By Justin AKA Tweek", 7, 92 188 153 17, center
text "Phone Number's", 8, 113 11 100 17, center
text "Names", 9, 12 11 100 17, center
text "Address", 10, 215 11 100 17, center
}
On *:Dialog:DD2:*:*:{
if ($devent == InIt) {
dd2.read
}
If ($devent == Sclick) {
If ($did = 3) {
write DD2.txt $did(2)
Did -a $dname 1 $did(2)
}
if ($did = 11) {
dialog -x $dname $dname
}
If ($did = 4) {
Write -dl $+ $did(1).sel dd2.txt
did -d $dname 1 $did(1).sel
}
}
}
Alias dd2.read {
var %x 1
While (%x <= $lines(dd2.txt)) {
Did -a DD2 1 $Read(DD2.txt,%x)
Inc %x
}
}