Jump to content

Nicklister Help


CharmedOne

Recommended Posts

Try this one. I removed some brackets, and missing code that was in there.

 

;-------------------------------------------------------------------------------------------------
;-- Center Dialog
;-------------------------------------------------------------------------------------------------

alias loop {
  var %x 1
  :lp
  did -a $dname 13 $nick($active,%x)
  inc %x
  if ($nick($active,%x) == $null) { goto nd }
  else { goto lp }
  :nd
}


alias cd { dialog -m centerd centerd }
alias ccd { dll $rebar UnDock center | dialog -x centerd centerd }
alias rebar { return dlls/rebar.dll }
dialog centerd {
  title "Center Dialog"
  size -1 -1 589 437
  option dbu
  list 1, 12 30 314 62, sort size extsel hsbar vsbar
  button "On", 2, 12 92 17 10, flat
  button "Off", 3, 31 92 17 10, flat
  edit $group(#tagged.events), 4, 49 91 15 10
  button "Delete All", 6, 67 92 28 10, flat
  button "Clipboard", 7, 175 92 31 10, flat
  box "Kicked Users List", 8, 9 213 454 80
  button "Ok/Cancel", 9, 8 415 586 12, ok cancel
  icon 10, -35 -30 647 503,  pictures\004.jpg, 0, noborder
  button "Delete", 11, 99 92 31 10, flat
  button "View Notepad", 12, 134 92 37 10, flat
  list 13, 509 31 69 217
  button "Owner", 14, 469 32 37 10
  button "DeOwner", 15, 469 43 37 10
  button "Host", 16, 469 54 37 10
  button "DeHost", 17, 469 65 37 10
  button "Voice", 18, 469 76 37 10
  button "DeVoice", 19, 469 87 37 10
  button "Tag", 20, 469 98 37 10
  button "UnTag", 21, 469 109 37 10
  text "Current Channel :", 22, 184 17 48 8, center
  edit , 23, 234 16 207 10, read autohs center
  button "Ban List Nick", 24, 469 120 37 10
  button "Kick Nick", 25, 469 131 37 10
  box "Nick List Options", 26, 465 23 116 244
  edit "", 27, 509 249 70 10, read
  text "Decoded Nick : ", 28, 467 251 41 8, center
  box "Clone Lister", 29, 9 118 236 87
  button "On", 30, 178 131 19 10
  button "Off", 31, 198 131 19 10
  edit $group(#CloneDet), 32, 219 131 22 10
  button "View Notepad", 33, 189 148 37 10
  button "Clipboard", 34, 189 167 37 10
  button "Delete List", 35, 189 188 37 10
  list 5, 12 126 163 75, sort size extsel hsbar vsbar
  list 37, 12 219 448 62, sort size extsel hsbar vsbar
  box "Tagged Users List", 38, 9 23 320 83
  button "Delete All", 39, 67 281 28 10, flat
  button "On", 40, 12 281 17 10, flat
  button "Off", 41, 30 281 17 10, flat
  edit $group(#kickevents), 42, 49 281 15 10
  button "Delete", 43, 99 281 31 10, flat
  button "View Notepad", 44, 134 281 37 10, flat
  button "Clipboard", 45, 175 281 31 10, flat
}






on *:dialog:centerd:init:*: {
  dll $rebar Dock $dialog($dname).hwnd > center
  /loop
  /loadbuf -ro centerd 5 settings/clonelist.txt
  /loadbuf -ro centerd 37 settings/snoopkick.txt
  /set %u 0
  :loop
  /inc %u 1
  if ($read -l [ $+ [ %u ] ] settings/snooptext.txt == $null) { goto end1 }
  else { /did -a centerd 1 $read -l $+ %u settings/snooptext.txt | goto loop }
  :end1
}


on *:Dialog:centerd:sclick:1: { /set %sel.line $did(1).seltext }
on *:Dialog:centerd:sclick:5: { /set %sel.line $did(5).seltext }
on *:Dialog:centerd:sclick:13: { /set %sel.text $did(13).seltext }
on *:Dialog:centerd:sclick:7: { clipboard %sel.line }
on *:Dialog:centerd:sclick:34: { clipboard %sel.line }
on *:dialog:centerd:sclick:12:{ run notepad.exe settings/snooptext.txt }
on *:dialog:centerd:sclick:33:{ run notepad.exe settings/clonelist.txt }
on *:Dialog:centerd:sclick:11: { /write -ds $+ %sel.line settings/snooptext.txt | /loadbuf -ro centerd 1 settings/snooptext.txt }
on *:Dialog:centerd:sclick:35: { /remove settings/clonelist.txt | write settings/clonelist.txt | /loadbuf -ro centerd 5 settings/clonelist.txt }

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...