I didnt have anything to do so i did a whois dialog shows username user@host if the user is ircop if the user is away and a channel list to..
I think this script works.. It works for me i have tested it a several time's
;--------------------------------------------------------;
; Whois Created by ThLoser. ;
; 29 lines and 1137 chars ;
; © ThLoser.org 2008 ;
;--------------------------------------------------------;
dialog whois {
title "whois (/whois) "
size -1 -1 168 96
option dbu
text "Name", 1, 2 6 25 8, disable
text "Address", 3, 2 16 25 8, disable
text "Auth", 5, 2 26 25 8, disable
text "name", 2, 30 6 133 8, hide
text "Address", 4, 30 16 133 8, hide
text "Auth", 6, 30 26 51 8, hide
text "Ircop", 7, 83 26 17 8, disable
text "Yes", 8, 102 26 13 8, hide
text "Away", 9, 118 26 17 8, disable
text "Yes", 10, 137 26 19 8, hide
list 11, 1 38 166 50, size
button "Join", 12, 130 88 37 7, disable flat
text "Some Random text", 13, 2 88 125 8, hide disable
text "channels", 14, 26 96 25 8, hide disable
text "nickname", 15, 2 96 25 8, hide disable
}
on *:DIALOG:whois:SCLICK:11:{
did -va whois 13 $did($dname,15) $iif($chr(64) == $left($wildtok($did($dname,14),* $+ $did($dname,11).seltext,1,32),1),has op in $did($dname,11).seltext,$iif($chr(43) == $left($wildtok($did($dname,14),* $+ $did($dname,11).seltext,1,32),1),has voice in $did($dname,11).seltext,is regular in $did($dname,11).seltext))
did -e whois 12
}
on *:DIALOG:whois:SCLICK:12:{
join $did($dname,11).seltext
}
RAW 301:*:{
haltdef
if ($3) {
set %whois.away 1
}
}
RAW 311:*:{
haltdef
did -vra whois 2 $strip($6)
did -vra whois 4 $3 $+ $chr(64) $+ $4
}
RAW 312:*:{
haltdef
}
RAW 313:*:{
haltdef
if ($2) {
set %whois.ircop 1
}
}
RAW 317:*:{
haltdef
}
RAW 318:*:{
haltdef
$iif(%whois.away == 1,did -vra whois 10 Yes,did -vra whois 10 No)
$iif(%whois.ircop == 1,did -vra whois 8 Yes,did -vra whois 8 No)
$iif(%whois.auth != $null,did -vra whois 6 %whois.auth,did -vra whois 6 User is not authed)
unset %whois.*
}
RAW 319:*:{
haltdef
if (%whois.second == 1) {
echo -a $wildtok($3-,*$did($dname,11).seltext, 1, 32)
}
var %x = 1
did -r whois 11
did -ra whois 15 $2
did -ra whois 14 $3-
while (%x <= $numtok($3-,32)) {
did -a whois 11 $remove($gettok($3-,%x,32),+,@)
inc %x
}
}
RAW 330:*:{
haltdef
if ($3) {
set %whois.auth $3
}
}
RAW 338:*:{
haltdef
}
RAW 431:*:{
haltdef
}
what it works open the dialog first /dialog -m whois whois then /whois Nickname works fine for me need to do the dialog is active check maybe add a nicklist option to snick whois othe rthen that an poor button size it works.Here a fast edit up:
;--------------------------------------------------------;
; Whois Created by ThLoser. ;
; 29 lines and 1137 chars ;
; © ThLoser.org 2008 ;
;--------------------------------------------------------;
dialog whois {
title \"whois (/whois) \"
size -1 -1 168 96
option dbu
text \"Name\", 1, 2 6 25 8, disable
text \"Address\", 3, 2 16 25 8, disable
text \"Auth\", 5, 2 26 25 8, disable
text \"name\", 2, 30 6 133 8, hide
text \"Address\", 4, 30 16 133 8, hide
text \"Auth\", 6, 30 26 51 8, hide
text \"Ircop\", 7, 83 26 17 8, disable
text \"Yes\", 8, 102 26 13 8, hide
text \"Away\", 9, 118 26 17 8, disable
text \"Yes\", 10, 137 26 19 8, hide
list 11, 1 38 166 50, size
button \"Join\", 12, 130 88 37 7, disable flat
text \"Some Random text\", 13, 2 88 125 8, hide disable
text \"channels\", 14, 26 96 25 8, hide disable
text \"nickname\", 15, 2 96 25 8, hide disable
}
on *:DIALOG:whois:SCLICK:11:{
did -va whois 13 $did($dname,15) $iif($chr(64) == $left($wildtok($did($dname,14),* $+ $did($dname,11).seltext,1,32),1),has op in $did($dname,11).seltext,$iif($chr(43) == $left($wildtok($did($dname,14),* $+ $did($dname,11).seltext,1,32),1),has voice in $did($dname,11).seltext,is regular in $did($dname,11).seltext))
did -e whois 12
}
on *:DIALOG:whois:SCLICK:12:{
join $did($dname,11).seltext
}
RAW 301:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
if ($3) {
set %whois.away 1
}
}
RAW 311:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
did -vra whois 2 $strip($6)
did -vra whois 4 $3 $+ $chr(64) $+ $4
}
RAW 312:*:{
haltdef
}
RAW 313:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
if ($2) {
set %whois.ircop 1
}
}
RAW 317:*:{
if (!$dialog(whois)) { echo -s $2- | halt }
haltdef
}
RAW 318:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
$iif(%whois.away == 1,did -vra whois 10 Yes,did -vra whois 10 No)
$iif(%whois.ircop == 1,did -vra whois 8 Yes,did -vra whois 8 No)
$iif(%whois.auth != $null,did -vra whois 6 %whois.auth,did -vra whois 6 User is not authed)
unset %whois.*
}
RAW 319:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
if (%whois.second == 1) {
echo -a $wildtok($3-,*$did($dname,11).seltext, 1, 32)
}
var %x = 1
did -r whois 11
did -ra whois 15 $2
did -ra whois 14 $3-
while (%x <= $numtok($3-,32)) {
did -a whois 11 $remove($gettok($3-,%x,32),+,@)
inc %x
}
}
RAW 330:*:{
haltdef
if (!$dialog(whois)) { echo -s $2- | halt }
if ($3) {
set %whois.auth $3
}
}
RAW 338:*:{
if (!$dialog(whois)) { echo -s $2- | halt }
haltdef
}
RAW 431:*:{
if (!$dialog(whois)) { echo -s $2- | halt }
haltdef
}
Menu * {
Whois: {
if (!$dialog(whois)) {
dialog -mei whois whois
whois $$1
}
else { dialog -x whois whois
dialog -mei whois whois
whois $$1
}
}
}
I like it.\"Rate it or Hate it?\"...7/10.`-.-´
well when i get the dialog to open nothing is on ur dialog ur list box is blank nothing apears at all and ur button is sized to small and cuts off the word join.
maybe add an alias to trigger the script line in the nicklist and also you should check if the dialog is open when you whois cuz if not you are going to get errors on ur raws
who about adding this to open it up by cliking on a nick in the user list
alias wh { dialog $iif($dialog(whois),-v,-md) whois whois }
menu nicklist {
Whois:{ whois $$1 | wh }
}
and maybe doing ur raws on one event line and useing
if ($dialog(whois)) {
to check to see if the dialog is open or not so you dont return errors on ur raws.