Tamaki commented on a Page, Greet *Unfinished*  -  Mar 06, 2009

um...i dunno if you'll like it
but i'm gonna use it if that's okay:

dialog greets {
  title Greets
  option dbu
  size -1 -1 200 111
  text "Nicks && Greet Messages", 1, 1 1 90 10
  list 2, 1 11 98 100, vsbar
  text "Selected Nick", 3, 101 11 100 10
  edit "", 4, 101 22 100 10, disable
  text "Greet Message", 5, 101 44 100 10
  edit "", 6, 101 55 100 10, disable
  button "Save", 7, 101 77 49 10, disable
  button "Delete", 8, 151 77 48 10, disable
  button "Kick", 9, 101 88 49 10, disable
  button "Ban", 10, 151 88 48 10, disable
  menu "Manage", 11
  item "New", 12
  item "Exit", 13, cancel
}

on *:DIALOG:greets:init:0: {
  var %i 1
  while (%i <= $var(%hi.*,0) ) {
    did -a greets 2 $gettok($var(%hi.*,%i),2,46)
    inc %i
  }
}

on *:DIALOG:greets:sclick:2: {
  did -ra greets 4 $did(2).seltext
  did -era greets 6 $var(%hi.*,$did(2).sel).value
  did -e greets 8-10
}

on *:DIALOG:greets:edit:6: {
  did -e greets 7
  did -era greets 8 Cancel
}

on *:DIALOG:greets:sclick:7: {
  set %hi. $+ $did(4) $did(6)
  did -b greets 7
  did -ra greets 8 Delete
}

on *:DIALOG:greets:sclick:8: {
  If ($did(8) == Delete) {
    unset %hi. $+ $did(4)
    dialog -x greets
    dialog -md greets greets
  }
  Else {
    did -ra greets 6 $var(%hi.*,$did(4)).value
    did -b greets 7
    did -ra greets 8 Delete
  }
}

on *:DIALOG:greets:sclick:9: {
  kick $active $did(4)
}

on *:DIALOG:greets:sclick:10: {
  .timer 1 1 /kick $active $did(4)
  ban $active $did(4)
}

on *:DIALOG:greets:menu:12: {
  set %hi. $+ $$?="Please input a nick." $?="Please input a greeting."
  dialog -x greets
  dialog -md greets greets
}
 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.