DR-ASL

By DarthReven on Nov 16, 2004

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 }
  }
}

Comments

Sign in to comment.
DarthReven   -  Nov 27, 2004

Updated

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.