Venom Profile Maker

By blackvenomm666 on May 06, 2011

Allows you to easily make/edit your profile while in mirc meant for chatspace only. load into remotes
There is a separate right click option one so you can change it via rightclick in the nicklist and check your profile with an @window
Image

Menu Menubar,Nicklist,Channel {
  .Venom Profile Maker: dialog $iif($dialog(profilemaker.system),-v,-md profilemaker.system) profilemaker.system
}
Dialog profilemaker.system {
  Title "Profile Maker"
  Size -1 -1 207 60
  Option dbu
  edit "Your name here", 1, 02 02 60 12, autohs
  edit "Info Here", 2, 02 16 60 12, autohs
  edit "Email Here", 3, 02 30 60 12, autohs
  edit "Url here", 4, 02 44 60 12, autohs
  button "Set Name ",5, 65 02 37 12 , flat
  button "Set Info ",6, 65 16 37 12 , flat
  button "Set Email ",7, 65 30 37 12 , flat
  button "Set Url ",8, 65 44 37 12 , flat
  list 9, 105 02 100 60, hsbar vsbar

}
on *:dialog:profilemaker.system:init:*: {
    profile $me
}

on *:dialog:profilemaker.system:sclick:*: {
  if ($did == 5) { 
    services set $me name $did(1).text  
    did -r profilemaker.system 9 
    profile $me 
  } 
  if ($did == 6) {
    services set $me info $did(2).text 
    did -r profilemaker.system 9 
    profile $me 
  }
  if ($did == 7) {
    services set $me email $did(3).text 
    did -r profilemaker.system 9 
    profile $me 
  }
  if ($did == 8) {
    services set $me url $did(4).text 
    did -r profilemaker.system 9 
    profile $me 
  }
}

raw *:*: { 
  if ($dialog(profilemaker.system)) {
    if ($numeric = 294) { .timer 1 1 did -az profilemaker.system 9 $$3- }
    if ($numeric = 295) { .timer 1 1 did -az profilemaker.system 9 $$3- }
    if ($numeric = 268) { .timer 1 1 did -az profilemaker.system 9 $$3- }
    if ($numeric = 289) { .timer 1 1 did -az profilemaker.system 9 $$3- }
    if ($numeric = 288) { .timer 1 1 did -az profilemaker.system 9 $$3- }
  }
}

-------------------------------------------------------------------------------------------------------------------------------------------------

@window profile changer

Menu nicklist {
  .Edit profile
  .Set name: { .services set $me name $$?="Enter your name" }
  .Set info: { .services set $me info $$?="Enter your info" }
  .Set email: { .services set $me email $$?="Enter your email" }
  .Set url: { .services set $me url $$?="Enter your url" }
  .view your profile: { .set %profilemaker on | .profile $me | window @profilemaker }
}
raw *:*: { 
  if (%profilemaker == on) {
    if ($numeric = 294) { aline -p @profilemaker 4,1 $$3- }
    if ($numeric = 295) { aline -p @profilemaker 4,1 $$3- }
    if ($numeric = 268) { aline -p @profilemaker 4,1 $$3- }
    if ($numeric = 289) { aline -p @profilemaker 4,1 $$3- }
    if ($numeric = 288) { aline -p @profilemaker 4,1 $$3- | .set %profilemaker off }
  }
}

Comments

Sign in to comment.
blackvenomm666   -  May 07, 2011

updated with another none dialog version

 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.