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