Jump to content

Dialog Help


CharmedOne

Recommended Posts

This works on buzzen set -u20 %scheck $addtok(%scheck,$active,44) | who $active so i do not see why my code dosent tho I get two errors they are

WHOIS Unknown command

-

FINDU Unknown command

 

 

 

alias uinfo {
  if (!$dialog(user)) { dialog -m user user }
  var %nick = 1
  did -r user 1,5,7,9,10,13,15
  while (%nick <= $nick($active,0)) {
    did -a user 1 $nick($active,%nick)
    if ($nick($chan,%nick) == $1) { var %num = %nick }
    inc %nick
  }
  did -c user 1 %num
  if ($nick !ison $active) {
    did -a user 1 $1
    did -c user 1 $calc($nick($active,0) + 1)
  }
  set -u2 %uinfo.whois $true
  .timer 1 2 uinfo.fillblanks
  whois $$1 
  findu $$1
}

dialog user {
  title "User Information
  size -1 -1 130 148
  option dbu
  text "Nickname", 2, 8 4 24 8
  box "Info", 3, 3 13 125 62
  text "Decoded Nickname :", 4, 8 23 47 8
  text "", 5, 57 23 67 8, right
  text "BuzzPassport", 6, 8 33 33 8
  text "", 7, 42 33 82 8, right
  text "Full Name / Tag", 8, 8 43 39 8
  text "", 9, 48 43 76 8, right
  list 10, 3 77 125 58, size
  text "Away Status", 12, 8 53 34 8
  text "", 13, 44 53 80 8, right
  text "Idle Time", 14, 8 63 25 8
  text "", 15, 35 63 89 8, right
  button "Ok", 18, 98 137 30 10, ok
  combo 1, 33 3 76 50, size edit drop
  button "Update", 16, 66 137 30 10
  button "Find", 17, 110 3 16 10, default
  button "Join", 19, 3 137 30 10
}

on *:dialog:user:init:0: {
  dll $mdx SetMircVersion $version 
  dll $mdx MarkDialog $dname
  dll $mdx SetBorderStyle 16,17,18,19 staticedge
  dll $mdx SetControlMDX $dname 10 listview report showsel nosortheader > $mdx.view
  did -i user 10 1 headerdims 165:1 80:2
  did -i user 10 1 headertext + 0 Channels $+ $chr(9) $+ 0 Im On?
}

raw 311:*: { 
  if (%uinfo.whois == $true) && ($dialog(user)) {
    did -ra user 5 $Skull.decode($2) 
    did -ra user 7 $3
    did -ra user 9 $strip($6-)
  }
}

raw 317:*: { 
  if (%uinfo.whois == $true) && ($dialog(user)) {
    did -ra user 15 $duration($calc($3))
  }
}

raw 301:*: { 
  if (%uinfo.whois == $true) && ($dialog(user)) {
    did -ra user 13 $3-
  }
}

raw 642:*: { 
  if (%uinfo.whois == $true) && ($dialog(user)) {
    did -a user 10 $room($4) $+ $chr(9) $+ $iif($me ison $4,Yes,No)
  }
}

alias uinfo.fillblanks {
  if ($dialog(user)) {
    if (!$did(user,5)) { did -ra user 5 User Not Found }
    if (!$did(user,7)) { did -ra user 7 User Not Found }
    if (!$did(user,9)) { did -ra user 9 No Fullname/Tag }
    if (!$did(user,13)) { did -ra user 13 Not Away }
    if (!$did(user,15)) { did -ra user 15 0 secs }
  }
}

on *:dialog:user:sclick:19:{
  join $iif($left($roomname($gettok($gettok($did(10).seltext,1,9),6-,32)),2) != $chr(37) $+ $chr(35),$chr(37) $+ $chr(35)) $+ $replace($gettok($gettok($did(10).seltext,1,9),6-,32),$chr(44),$chr(92) $+ $chr(99),$chr(32),$chr(92) $+ $chr(98))
}

on *:dialog:user:sclick:17:{
  uinfo $did(user,1)
}

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...