Korvin commented on a Page, popup Greeters  -  Nov 05, 2007

here is a dialog setup, thats from the dialogs ive made, and abit of the ones my sister has made.dialog randdialog {
tab set 1, 1, 4 0 456 359
tab Set 2,2
tab Set 3,3
tab Set 4,4
title \"IRC Help\"
size -1 -1 456 356
option pixels
list 707, 100 25 350 308
button \"Clear Chat\", 47, 363 332 88 20
button \"New Chan\", 45, 5 25 88 20
edit \"#\", 46, 5 45 88 20, autohs
text This is Tab 4, 55, 5 75 88 20, tab 4
text This is set by, 56, 6 90 88 20, tab 4
text the \"tab 4\", 57, 6 105 88 20, tab 4
text in the code, 58, 6 120 88 20, tab 4
text This is Tab 2, 255, 5 75 88 20, tab 2
text This is set by, 256, 6 90 88 20, tab 2
text the \"tab 2\", 257, 6 105 88 20, tab 2
text in the code, 258, 6 120 88 20, tab 2
text This is Tab 3, 355, 5 75 88 20, tab 3
text This is set by, 356, 6 90 88 20, tab 3
text the \"tab 3\", 357, 6 105 88 20, tab 3
text in the code, 358, 6 120 88 20, tab 3
text This is Tab 1, 155, 5 75 88 20, tab 1
text This is set by, 156, 6 90 88 20, tab 1
text the \"tab 1\", 157, 6 105 88 20, tab 1
text in the code, 158, 6 120 88 20, tab 1
}

on :TEXT::%setchan: {
if ($dialog(randdialog)) {
inc %ircdia
if (%ircdia == 25) {
did -r randdialog 707
unset %ircdia
}
if ($nick ishop $active) {
did -az randdialog 707 $time(hh:nn:ss) <% $+ $nick $+ > $strip($1-)
}
if ($nick isvoice $active) {
did -az randdialog 707 $time(hh:nn:ss) <+ $+ $nick $+ > $strip($1-)
}
if ($nick isop $active) {
did -az randdialog 707 $time(hh:nn:ss) <@ $+ $nick $+ > $strip($1-)
}
if ($nick isreg $active) {
did -az randdialog 707 $time(hh:nn:ss) < $+ $nick $+ > $strip($1-)
}
}
}
menu {
.Random Dialog:/dialog -md randdialog randdialog | set %setchan $active
}
on
:JOIN:%setchan: {
if ($dialog(randdialog)) {
inc %ircdia
if (%ircdia == 25) {

  did -r randdialog 707
  unset %ircdia
}
did -az randdialog 707 * $nick Has Joined %setchan

}
}
on :PART:%setchan: {
if ($dialog(randdialog)) {
inc %ircdia
if (%ircdia == 25) {
did -r randdialog 707
unset %ircdia
}
did -az randdialog 707
$nick Has Left %setchan
}
}
on :NICK:%setchan: { if ($dialog(randdialog)) { did -az randdialog 707 $nick is now known as $newnick } }
on
:DIALOG:randdialog:sclick:45: {
if ($did($dname,46)) { did -a randdialog 46 # | did -r randdialog 707 | set %chan $did($dname,46) | did -az randdialog 707 ----NOW TALKING IN $$did($dname,46) $+ ---- }
}

 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.