I did this when i was board one day.
Type /asld to get the asl dialog from their its pretty self explanitory and when ever someone asks for you asl type /asl and it will msg the active channel or query window with the info you put in.
Asl Add On
dialog asl {
title [ $iif(%asl == $null,Age/Sex/Location Addon,%name $+ $chr(44) %asl) ]
size 100 100 130 120
option dbu
text "Name:" 1,3 3 30 10
edit "" 2,18 1 50 10, center
box "Sex:" 3,70 1 57 20
radio "male" 4,75 8 20 10
radio "female" 5,98 8 27 10
box "Location:" 6,3 24 124 30
text "State(Us Only):" 7,5 32 40 10
edit "" 8,5 40 35 10, center
text "Country:" 9,41 32 40 10, center
edit "" 10,50 40 75 10, center
button "Set Asl" 11,2 110 20 10
button "Preview Asl" 12,53 110 53 10
button "On/Off" 13,108 110 20 10
text "Age:" 14,7 13 20 10
edit "" 15,18 13 50 10, center
box "Birthday:" 16,3 55 124 30
text "Day: (Ex: 4)" 17,5 63 40 10
edit "" 18,5 70 30 10, center
text "Month: (Ex: 12)" 19,40 63 40 10
edit "" 20,40 70 40 10, center
text "Year: (Ex: 1994)" 21,85 63 40 10
edit "" 22,85 70 40 10, center
button "Mod Asl" 23,23 110 28 10
box "Comments" 24,3 86 124 23
edit "" 25,5 95 120 10, autohs
}
on *:dialog:asl:sclick:11: {
set %age $did(asl,15).text
set %gender $iif($did(asl,4).state != 0,Male,Female)
set %location $did(asl,10).text
set %asl %age $+ / $+ %gender $+ / $+ %location
set %name $did(asl,2).text
set %state $did(asl,8).text
set %bday $did(asl,20).text $+ : $+ $did(asl,18).text $+ : $+ $did(asl,22).text
set %month $did(asl,20).text
set %day $did(asl,18).text
set %year $did(asl,22).text
set %comment $did(asl,25).text
did -m asl 2
did -m asl 15
did -m asl 10
did -m asl 20
did -m asl 18
did -m asl 22
did -m asl 25
did -m asl 8
did -b asl 4
did -b asl 5
echo -ai2 12[ 11ASL SET AS:15 $replace(%asl,$chr(47),$chr(32) $+ $chr(47) $+ $chr(32)) 11BIRTHDAY SET AS:15 $replace(%bday,$chr(58),$chr(32) $+ $chr(47) $+ $chr(32)) 12]
}
on *:dialog:asl:sclick:12: {
window @ASL-Preview 200 100 370 70
aline @ASL-Preview 12[15Name: %name $+ 12] 12[15 $+ $replace($iif(%state != $null,$replace(%asl,%location,Location: %state $+ $chr(44) $+ %location),$replace(%asl,%location,Location: %location)),$chr(47),12] [15,%age,Age: %age,%gender,Sex: %gender) $+ 12]
}
on *:dialog:asl:sclick:23: {
did -n asl 2
did -n asl 15
did -n asl 10
did -n asl 20
did -n asl 18
did -n asl 22
did -n asl 8
did -n asl 25
did -e asl 4
did -e asl 5
}
on *:dialog:asl:sclick:13: {
If ($group(#asl) != On) { .enable #asl | echo -ai2 12[15Auto Asl (ON)12] }
Else { .disable #asl | echo -ai2 12[15Auto Asl (OFF)12] }
}
alias asl {
say 12[15Name: %name $+ 12] 12[15 $+ $replace($iif(%state != $null,$replace(%asl,%location,Location: %state $+ $chr(44) $+ %location),$replace(%asl,%location,Location: %location)),$chr(47),12] [15,%age,Age: %age,%gender,Sex: %gender) $+ $iif(%comment,12] [15Comments: %comment $+ 12],12])
}
#asl off
on *:Text:*:#: {
If (asl $me isin $1-) || ($me asl isin $1-) {
say 12[15Name: %name $+ 12] 12[15 $+ $replace($iif(%state != $null,$replace(%asl,%location,Location: %state $+ $chr(44) $+ %location),$replace(%asl,%location,Location: %location)),$chr(47),12] [15,%age,Age: %age,%gender,Sex: %gender) $+ $iif(%comment,12] [15Comments: %comment $+ 12],12])
}
}
on *:Text:*:?: {
If (asl isin $1-) || (a/s/l isin $1-) {
say 12[15Name: %name $+ 12] 12[15 $+ $replace($iif(%state != $null,$replace(%asl,%location,Location: %state $+ $chr(44) $+ %location),$replace(%asl,%location,Location: %location)),$chr(47),12] [15,%age,Age: %age,%gender,Sex: %gender) $+ $iif(%comment,12] [15Comments: %comment $+ 12],12])
}
}
#asl end
on *:Load: {
echo -ai2 Loaded Asl Addon By C4dav3R...
echo -ai2 Running mIRC version v $+ $version
}
on *:Start: {
If ($asctime(m:d:yyyy) == %bday) { inc %age }
}
alias asld {
dialog -m asl asl
info
}
alias info {
If (%asl != $null) {
did -ma asl 2 %name
did -ma asl 15 %age
did -ma asl 10 %location
did -ma asl 20 %month
did -ma asl 18 %day
did -ma asl 22 %year
did -ma asl 8 %state
did -ma asl 25 %comment
If (%gender == male) { did -cb asl 4 | did -b asl 5 }
Else { did -cb asl 5 | did -b asl 4 }
}
}