All pastes #551992 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-06-09 01:38 UTC
rendered paste body
menu * {
  Access:/dialog -md Access Access
}
dialog Access {
  title "Access"
  size -1 -1 92 107
  option dbu
  text "Channel:", 1, 5 5 23 8
  edit "#channel", 2, 30 4 57 10
  text "Nick:", 3, 5 15 19 8
  edit "", 4, 30 14 57 10
  text "Delete:", 5, 5 42 18 8
  edit "", 6, 30 40 57 10
  text "Level:", 7, 5 24 15 8
  edit "", 8, 30 24 57 10
  button "Delete", 9, 51 56 37 12, disable
  button "Add", 10, 7 56 37 12, default disable
  button "Ok", 11, 51 72 37 12, ok
  button "Clear", 12, 7 72 37 12
  text "Made by Bubblez6000 (But really Couch)", 13, 16 89 60 15, center
}
on *:Dialog:Access:*:*: {
  if ($devent == sclick) {
    if ($did == 10) {
      if ($me ison $did(2)) && ($did(4)) && ($did(8) isnum) cs access $did(2) add $did(4) $did(8)
    }
    elseif ($did == 9) {
      if ($me ison $did(2)) && ($did(6)) cs access $did(2) del $did(6)
    }
    elseif ($did == 12) {
      did -r $dname 4,6,8
      did -ar $dname 2 #channel
    }
  }
  elseif ($devent == edit) {
    if ($me ison $did(2)) && ($did(4)) && ($did(8) isnum) did -e $dname 10
    else did -b $dname 10
    if ($me ison $did(2)) && ($did(6)) did -e $dname 9
    else did -b $dname 9
  }
}