Venom Profile Viewer

By blackvenomm666 on May 06, 2011

Dialog profile viewer just load it into a new remotes tab once saved open it and you will see a list of the channels your in appear double click a channel and a list of nicks in that channel appears double click on a nick and it will show their profile. you can also check a profile by entering a nick into the txt area next to the view profile button or highlight a nick in the list of nicks in the dialog and click view profile. This will only work on chatspace.
There is a right click version underneath the dialog one that opens whe you right click in a nicklist. You can either choose view profile or view other profile. If you click view profile it will auto check the profile of the nick you have highlighted in the nicklist if you click view other it will popup a window for you to type in a persons nick in case you want to check a nick that isnt online.
Image

Menu Menubar,Nicklist,Channel {
  .Venom Profile Viewer: dialog $iif($dialog(profileview.system),-v,-md profileview.system) profileview.system
}
Dialog profileview.system {
  Title "Profile viewer"
  Size -1 -1 207 80
  Option dbu
  list 1, 02 02 100 40, hsbar vsbar
  button "view profile ",2, 02 62 37 12 , flat
  list 3, 02 33 100 40, hsbar vsba3
  edit "type nick to check here", 4, 40 62 62 12, autohs
  list 5, 105 02 100 75, hsbar vsbar

}
on *:dialog:profileview.system:init:*: {
    chanzz
}
on *:dialog:profileview.system:dclick:1: {
  nickzz
}
on *:dialog:profileview.system:sclick:2: {
  if (!$did(4).text) { did -r profileview.system 5
    .profile $did(3).seltext
    dialog -t profileview.system Profile Viewer: Now viewing $did(3).seltext

  }
  else { did -r profileview.system 5
    .profile $did(4).text
    dialog -t profileview.system Profile Viewer: Now viewing $did(4).text

  }
}

on *:dialog:profileview.system:dclick:3: {
  did -r profileview.system 5
  .profile $did(3).seltext
  dialog -t profileview.system Profile Viewer: Now viewing $did(3).seltext

}
alias  nickzz {
  var -s %curr 1, %nick $nick($did(profileview.system,1).seltext,0)
  did -r profileview.system 3
  while (%curr <= %nick) { 
    did -az profileview.system 3 $nick($did(profileview.system,1).seltext,%curr)
    inc %curr
  }
}
alias chanzz {
  var %chans $chan(0), %curr 1
  did -r profileview.System 1
  while (%curr <= %chans) { 
    did -az profileview.System 1 $chan(%curr)
    inc %curr
  }
}
raw *:*: { 
  if ($dialog(profileview.system)) {
    if ($numeric = 311) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 457) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 293) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 294) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 295) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 269) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 289) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 288) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 287) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 286) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 319) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 312) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 313) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 317) { .timer 1 1 did -az profileview.system 5 $$3- }
    if ($numeric = 318) { .timer 1 1 did -az profileview.system 5 $$3- }
  }
}

-------------------------------------------------------------------------------------------------------------------------------------------------
@window right click version

Menu nicklist {
  .profile
  .view profile: { set %profileviewer on | profile $$1 | window @profile }
  .view other profile: { set %profileviewer on | profile $$?="enter a nick to view their profile" | window @profile  }
}
raw *:*: { 
  if ($numeric = 311) { aline -p @profile 4,1 $$3- }
  if ($numeric = 457) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 293) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 294) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 295) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 269) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 289) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 288) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 287) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 286) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 319) { aline -p @Profile 4,1 $3- }
  if ($numeric = 312) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 313) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 317) { aline -p @Profile 4,1 $$3- }
  if ($numeric = 318) { aline -p @Profile 4,1 $$3- | .timer 1 1 set %profileviewer off }
}

Comments

Sign in to comment.
blackvenomm666   -  May 07, 2011

updated with another none dialog version

 Respond  
xdesoto   -  May 06, 2011

I already said this once.. But I feel I should put it here so if anyone wants to try it.. Along with you..
Only thing I think you should make it both into one dialog. like one tab so you can view others and a tab to make it so you can edit it.. And make the dialog bigger.. it's pointless if you have to scroll. Just saying

 Respond  
Scakk   -  May 06, 2011

gets new eyes

 Respond  
blackvenomm666   -  May 06, 2011

i did read the last part of the description says will only work on chatspace

 Respond  
Scakk   -  May 06, 2011

Yeah. Perhaps mention that in the Description section so others will know also.

 Respond  
blackvenomm666   -  May 06, 2011

are you using it on an ircd or an unrealircd site? it will only work on chatspace

 Respond  
Scakk   -  May 06, 2011

I get "PROFILE Unknown command" when ever I try to "View" the profile of a person.

 Respond  
blackvenomm666   -  May 06, 2011

small update. found a couple bugs that i didnt notice before the first post all fixed now

 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.