/ScriptServ

;/**********************************************************************
; *
; * aIRC
; * Partyline Setup
; *
; **********************************************************************/
alias _plsetup { _dialog -m partylinesetup partylinesetup }
dialog partylinesetup {
  size -1 -1 201 190
  option dbu
  title "Partyline Setup"

  tab "Setup 1",1001,5 5 191 160
  tab "Setup 2",1002
  tab "Commands",1006
  tab "Set Fields",1007
  tab "/msg commands",1008

  list 1021,10 35 75 120,extsel sort tab 1006
  button "-->",1022,93 60 15 15, tab 1006
  button "<--",1023,93 85 15 15, tab 1006
  list 1024,115 35 75 120,extsel sort  tab 1006
  text "Active:",1025,115 25 25 8, tab 1006

  list 1031,10 35 75 120,extsel sort tab 1007
  button "-->",1032,93 60 15 15, tab 1007
  button "<--",1033,93 85 15 15, tab 1007
  list 1034,115 35 75 120,extsel sort  tab 1007
  text "Active:",1035,115 25 25 8, tab 1007

  list 1041,10 35 75 100,extsel sort tab 1008
  button "-->",1042,93 60 15 15, tab 1008
  button "<--",1043,93 85 15 15, tab 1008
  list 1044,115 35 75 100,extsel sort  tab 1008
  text "Active:",1045,115 25 25 8, tab 1008

  box "",1100,95 20 1 140,tab 1001

  check "Partyline",1101,10 25 30 8,tab 1001
  text "Port:",1102,45 25 20 8,tab 1001
  edit "",1103,60 24 30 10,autohs tab 1001
  button "edit motd",1104,20 35 30 10,tab 1001
  check "Banner on connect",1105,10 50 55 8,tab 1001
  button "edit",1106,67 49 20 10,tab 1001
  text "Admin info:",1107,10 62 30 8,tab 1001
  edit "",1108,20 70 70 10,autohs tab 1001
  text "Max partylines:",1109,10 108 35 8,tab 1001
  edit "",1110,60 106 30 10,autohs tab 1001
  text "Connect timeout (s)",1115,10 120 60 8,tab 1001
  edit "",1116,60 118 30 10,autohs tab 1001
  text "Def. console modes",1111,10 132 50 8,tab 1001
  edit "",1112,60 130 30 10,autohs tab 1001
  text "Permanent owners: (BE CAREFUL!)",1117,10 84 85 8,tab 1001
  edit "",1118,20 92 70 10,autohs tab 1001
  text "Default userflags:",1119,10 144 50 8,tab 1001
  edit "",1120,60 142 30 10,autohs tab 1001

  check "+o users needs +p to connect",1150,100 25 95 8,tab 1001
  check "Display only 'Nickname' on connect",1151,100 37 95 8,tab 1001
  check "Display infoline on join",1152,100 49 95 8,tab 1001
  check "Accept 'NEW' users",1153,100 61 95 8,tab 1001
  check "Only perm owners can use '.set'",1154,100 73 95 8,tab 1001
  check "Telnet flood protection",1155,100 85 95 8,tab 1001
  edit "",1156,120 95 15 10,autohs,tab 1001 autohs
  text "msgs per second",1157,137 95 50 8,tab 1001
  check "Flood protection for everyone",1160,100 107 95 8,tab 1001
  check "Quiet Save",1161,100 119 95 8,tab 1001
  check "Autosave console settings",1113,100 131 95 8,tab 1001
  check "Timestamp log file",1162,100 143 95 8,tab 1001
  check "Show only handles in '.match'",1163,100 155 95 8,tab 1001

  check "Add users in '/MSG HELLO'",1301,30 25 100 8,tab 1002
  text "Users to inform when '/MSG HELLO' is used",1302,30 37 110 8,tab 1002
  edit "",1303,140 35 30 10,tab 1002 autohs
  check "Return negative messages to unknown users (quiet-reject)",1304,30 49 150 8,tab 1002
  text "Max notes a user may have stored",1305,30 61 110 8,tab 1002
  edit "",1306,140 59 30 10,tab 1002 autohs
  text "Days to hold a note before expiring it",1307,30 73 110 8,tab 1002
  edit "",1308,140 71 30 10,tab 1002 autohs
  check "Let people know on join if they have any notes",1309,30 85 150 8,tab 1002
  check "Let people know hourly if they have any notes",1310,30 97 150 8,tab 1002
  check "Use  info lines",1311,30 109 150 8,tab 1002
  text "Seconds to wait before  redisplaying infoline",1312,30 121 110 8,tab 1002
  edit "",1313,140 119 30 10,tab 1002 autohs
  text "Userinfo fields",1314,30 133 50 8,tab 1002
  edit "",1315,80 131 90 10,tab 1002 autohs
  text ".whois/.match fields",1316,30 145 50 8,tab 1002
  edit "",1317,80 143 90 10,tab 1002 autohs
  check "Enable Partyline Monitor (Recomended if partyline is enabled)",1318,30 155 155 8,tab 1002

  check "/ctcp commands",1201,10 135 95 8,tab 1008
  check "/msg commands",1202,10 145 95 8,tab 1008

  button "&OK",2990,83 170 33 15,ok
  button "&Cancel",2991,123 170 33 15,cancel
  button "&Help",2992,163 170 33 15
}
ON *:DIALOG:partylinesetup:init:0:{
  _mdx.init $_icofile(plsetup.ico)
  _dialog.lsfsi2lid script _partyline.commands $dname 1021 1024 $null $_partyline.commands
  _dialog.lsfsi2lid script _partyline.setfields $dname 1031 1034 $null $_partyline.setfields
  _dialog.lsfsi2lid script _rc.commands $dname 1041 1044 $null $_rc.commands
  if ($_getsetup(script,_partyline)) { did -c $dname 1101 }
  if ($_isint($_getsetup(script,_partylineport))) { did -o $dname 1103 1 $ifmatch }
  if ($_getsetup(script,use-telnet-banner)) { did -c $dname 1105 }
  if ($_getsetup(script,admin) != $null) { did -o $dname 1108 1 $ifmatch }
  if ($_isint($_getsetup(script,max-dcc))) { did -o $dname 1110 1 $ifmatch }
  if ($_getsetup(script,console) != $null) { did -o $dname 1112 1 $ifmatch }
  if ($_getsetup(script,console-autosave)) { did -c $dname 1113 }
  if ($_getsetup(script,connect-timeout)) { did -o $dname 1116 1 $ifmatch }
  if ($_getsetup(script,owner)) { did -o $dname 1118 1 $ifmatch }
  if ($_getsetup(script,default-flags) != $null) { did -o $dname 1120 1 $ifmatch }
  if ($_getsetup(script,require-p)) { did -c $dname 1150 }
  if ($_getsetup(script,stealth-telnets)) { did -c $dname 1151 }
  if ($_getsetup(script,info-party)) { did -c $dname 1152 }
  if ($_getsetup(script,open-telnets)) { did -c $dname 1153 }
  if ($_getsetup(script,must-be-owner)) { did -c $dname 1154 }
  if ($_getsetup(script,telnet-flood)) { did -c $dname 1155 }
  if ($_isint($_getsetup(script,dcc-flood-thr))) { did -o $dname 1156 1 $ifmatch }
  if ($_getsetup(script,paranoid-telnet-flood)) { did -c $dname 1160 }
  if ($_getsetup(script,quiet-save)) { did -c $dname 1161 }
  if ($_getsetup(script,log-time)) { did -c $dname 1162 }
  if ($_getsetup(script,_onlyhandlesinmatch)) { did -c $dname 1163 }
  if ($_getsetup(script,learn-users)) { did -c $dname 1301 }
  if ($_getsetup(script,notify-newusers) != $null) { did -o $dname 1303 1 $ifmatch }
  if ($_getsetup(script,quiet-reject)) { did -c $dname 1304 }
  if ($_getsetup(script,notify-onjoin)) { did -c $dname 1309 }
  if ($_getsetup(script,notify-users)) { did -c $dname 1310 }
  if ($_isint($_getsetup(script,max-notes))) { did -o $dname 1306 1 $ifmatch }
  if ($_isint($_getsetup(script,note-life))) { did -o $dname 1308 1 $ifmatch }
  if ($_isint($_getsetup(script,wait-info))) { did -o $dname 1313 1 $ifmatch }
  if ($_getsetup(script,use-info)) { did -c $dname 1311 }
  if ($_getsetup(script,userinfo-fields) != $null) { did -o $dname 1315 1 $ifmatch }
  if ($_getsetup(script,whois-fields) != $null) { did -o $dname 1317 1 $ifmatch }
  if ($_getsetup(script,_partylinemonitor)) { did -c $dname 1318 }
  if ($_getsetup(script,_rcctcp)) { did -c $dname 1201 }
  if ($_getsetup(script,_rctext)) { did -c $dname 1202 }
  did -b $dname 2992
  _dummy $_lang.loaddialog($dname,_partylinesetup,00086969,main.lang,$scriptdir)
}
ON *:DIALOG:partylinesetup:dclick:1021:{ _dialog.move $dname 1021 1024 }
ON *:DIALOG:partylinesetup:dclick:1024:{ _dialog.move $dname 1024 1021 }
ON *:DIALOG:partylinesetup:dclick:1031:{ _dialog.move $dname 1031 1034 }
ON *:DIALOG:partylinesetup:dclick:1034:{ _dialog.move $dname 1034 1031 }
ON *:DIALOG:partylinesetup:dclick:1041:{ _dialog.move $dname 1041 1044 }
ON *:DIALOG:partylinesetup:dclick:1044:{ _dialog.move $dname 1044 1041 }
ON *:DIALOG:partylinesetup:sclick:1022:{ _dialog.move $dname 1021 1024 }
ON *:DIALOG:partylinesetup:sclick:1023:{ _dialog.move $dname 1024 1021 }
ON *:DIALOG:partylinesetup:sclick:1032:{ _dialog.move $dname 1031 1034 }
ON *:DIALOG:partylinesetup:sclick:1033:{ _dialog.move $dname 1034 1031 }
ON *:DIALOG:partylinesetup:sclick:1042:{ _dialog.move $dname 1041 1044 }
ON *:DIALOG:partylinesetup:sclick:1043:{ _dialog.move $dname 1044 1041 }
ON *:DIALOG:partylinesetup:sclick:1104:{ _notepad $_usrdir(partyline.motd) }
ON *:DIALOG:partylinesetup:sclick:1106:{ _notepad $_usrdir(partyline.banner) }
ON *:DIALOG:partylinesetup:sclick:2990:{
  var %w = _settsetup script
  %w _partyline.commands $didtok($dname,1024,32)
  %w _partyline.setfields $didtok($dname,1034,32)
  %w _rc.commands $didtok($dname,1044,32)
  %w _partyline $did(1101).state
  if ($_isint($did(1103))) { %w _partylineport $ifmatch }
  %w use-telnet-banner $did(1105).state
  %w admin $did(1108)
  if ($_isint($did(1110))) { %w max-dcc $ifmatch }
  %w console $did(1112)
  %w console-autosave $did(1113).state
  if ($_isint($did(1116))) { %w connect-timeout $ifmatch }
  %w owner $did(1118)
  if ($did(1120) != $null) { %w default-flags $ifmatch }
  %w require-p $did(1150).state
  %w stealth-telnets $did(1151).state
  %w info-party $did(1152).state
  %w open-telnets $did(1153).state
  %w must-be-owner $did(1154).state
  %w telnet-flood $did(1155).state
  if ($_isint($did(1156))) { %w dcc-flood-thr $ifmatch }
  %w paranoid-telnet-flood $did(1160).state
  %w quiet-save $did(1161).state
  %w log-time $did(1162).state
  %w _onlyhandlesinmatch $did(1163).state

  %w learn-users $did(1301).state
  %w notify-newusers $did(1303)
  %w quiet-reject $did(1304).state
  %w quiet-reject $did(1304).state
  %w notify-onjoin $did(1309).state
  %w notify-users $did(1310).state
  if ($_isint($did(1306))) { %w max-notes $ifmatch }
  if ($_isint($did(1308))) { %w note-life $ifmatch }
  if ($_isint($did(1313))) { %w wait-info $ifmatch }
  %w use-info $did(1311).state
  %w userinfo-fields $did(1315)
  %w whois-fields $did(1317)
  %w _partylinemonitor $did(1318).state
  %w _rcctcp $did(1201).state
  %w _rctext $did(1202).state
  __hashsavebuf _aircsetup script.dat
  _loadsetup
  _unloadplsetupmrc
}
ON *:DIALOG:partylinesetup:sclick:2991:{ _unloadplsetupmrc }


;;;;
;;;;

alias -l _unloadplsetupmrc { _quickunload partylinesetup $script }