; *NEW* Undernet X script v2.7
; Coded by Warmachine
; kwinternational@rdslink.ro
;-----------------------------------------------
; v2.7 Host Hiding implemented
; v2.6 Added /msg x Verify nick to pop-up menu
; v2.5 Much better Error Checking
; v2.0 Added Popups
;-----------------------------------------------
; http://www.kwinternational.tk
on *:load:{ 
  echo -s * Undernet Script Loaded - By Warmachine
  echo -s * /undernet to open dialog
  echo -s * Bugs? Comments? kwinternational@rdslink.ro
  .notify X Undernet Channel Services
}
on *:start:.notify X Undernet Channel Services
menu channel,menubar,status {
  $iif(undernet isin $server || undernet isin $server && $notify(X).ison == $true, Undernet ) 
  .&Dialog:undernet
  .-
  .0
  ..access:xwm access $xwc $$?"Optional: mask? ie *!*@*.domain.com" 
  ..Banlist:xwm Banlist $xwc 
  ..Chaninfo:xwm Chaninfo $xwc 
  ..SetInvisible:xwm SetInvisible $onoff 
  ..info:xwm info $xwu 
  ..lbanlist:xwm lbanlist $xwc $$?"Optional: mask? ie *!*@*.domain.com" 
  ..Login: xwl $xwu $$?*"Password?" 
  ..Newpass: xwn $$?*"New Password?" 
  ..MOTD:xwm motd
  ..Remuser:xwm remuser $xwc $$?"YOUR Username to remove" 
  ..Search:xwm search $$?"Search Parameter?" 
  ..ShowCommands:xwm showcommands $xwc 
  ..ShowIgnore:xwm showignore  
  ..Verify:xwm verify $$?"nick" 
  ..Hide IP:/mode $$?"nick" +x
  .1-24
  ..Status:xwm Status $xwc
  .25-49
  ..voice:xwm voice $xwc $$?"nick1 nick2 ... nick5" 
  ..devoice:xwm devoice $xwc $$?"nick1 nick2 ... nick5" 
  .50-74
  ..kick:xwm kick $xwc $$?"nick?" $$?"Reason?" 
  ..topic:xwm topic $xwc $$?"New Topic?" 
  .75-99
  ..ban:xwm ban $xwc $$?"Nickname OR mask? ie *!*@*.domain.com" $$?"Duration in hours?" $$?"Ban Level [cannot go over you user level]?" $$?"Reason?" 
  ..unban:xwm unban $xwc $$?"Nickname OR mask? ie *!*@*.domain.com" 
  .100-399
  ..deop:xwm deop $xwc $$?"Optional: mask? ie *!*@*.domain.com" 
  ..op:xwm op $xwc $$?"Optional: mask? ie *!*@*.domain.com" 
  ..invite:xwm invite $xwc $$?"Optional: mask? ie *!*@*.domain.com" 
  ..suspend:xwm suspend $xwc $$?"Optional: mask? ie *!*@*.domain.com" $$?"Duration in hours?"
  ..unsuspend:xwm unsuspend $xwc $$?"Optional: mask? ie *!*@*.domain.com" 
  ..filterkick:xwm kick $xwc $$?"Nickname OR mask? ie *!*@*.domain.com" 
  ..status:xwm Status $xwc 
  .400-449
  ..adduser:xwm adduser $xwc $xwu 
  ..remuser:xwm remuser $xwc $xwu 
  ..clearmode:xwm clearmode $xwc 
  ..modinfo
  ...access:xwm modinfo $xwc access $xwu $$?"New User level?" 
  ...automode:xwm modinfo $xwc automode $xwu $$?"<none|op|voice> ?" 
  .450-499
  ..autotopic:xwm set $xwc autotopic $onoff 
  ..description:xwm set $xwc description $$?"channel description?" 
  ..keywords:xwm set $xwc keywords $$?"Optional: mask? ie *!*@*.domain.com" 
  ..mode:xwm set $xwc mode 
  ..url:xwm set $xwc URL $$?"URL1 URL2 ... URL5 etc" 
  ..userflags:xwm set $xwc userflags $$?"0 = No AutoMode set for all new users added.  1 = Op AutoMode set for all new users added. 2 = Voice AutoMode set for all new users added." 
  ..join:xwm join $xwc 
   
  .500
  ..autojoin:xwm set $xwc autojoin $onoff 
  ..floodpro:xwm set $xwc floodpro $$?"Number of kicks,topic,modes per 15 secs aloud? 0-7" 
  ..language:xwm set $xwc lang $$?"language?" 
  ..massdeoppro:xwm set $xwc massdeoppro $$?"Number of deop's aloud per 15 secs? 0-7" 
  ..NoOp:xwm set $xwc NoOp $onoff 
  ..strictop:xwm set $xwc Strictop $onoff 
  ..part:xwm part $xwc
}
menu nicklist {
  $iif($network == undernet || undernet isin $network || X ison # || undernet isin $server && X ison #, Undernet ) 
  .&dialog:undernet
  .-
  .o&p:.msg X op # $$1 $2 $3 $4 $5 $6
  .de&op:.msg X deop # $$1 $2 $3 $4 $5 $6
  .vo&ice:.msg X voice # $$1 $2 $3 $4 $5 $6
  .d&evoice:.msg X devoice # $$1 $2 $3 $4 $5 $6
  .ki&ck:.msg X kick # $$1 $2 $3 $4 $5 $6 $$?"why?"
  .b&an:.msg X ban # $$1 $2 $3 $4 $5 $6 $$?"Duration in Hours?" $$?"Ban level? 100-500" $$?"Reason"
  .ve&rify:.msg X verify $$1
}
alias undernet if ($dialog(undernet)) { echo -a Undernet system Already open! } | if $notify(X) { if ($network == Undernet) { dialog -md undernet undernet } } | else { echo -a You're not on undernet! } | else { echo -a X is not online } 
alias xwm if %xl != yes { var %xq = $?!"You're not logged in. Would you like to login now?" | if (%xq == $true) { xwl $iif(%xu != $Null,%xu,$?"Username?") $iif(%xp != $Null,%xp,$?*"Password?") } | if (%xq == $false) { halt } } | .msg X $1- 
alias xwl .msg X@channels.undernet.org LOGIN $1- 
alias xwn .msg X@channels.undernet.org NEWPASS $1- 
alias xwc var %xc = #$$?"Channel?" | if ($gettok(%xc,2,32)) { halt } | else { return %xc }
alias xwu return $$?"Username?"
alias onoff return $$?"On/Off?"
dialog Undernet {
  title XCS - Undernet
  size -1 -1 550 300
  button "",1,0 0 0 0,ok

  tab 0,2, 0 0 550 300
  tab 1-24,3
  tab 25-49,4
  tab 50-74,5
  tab 75-99,6
  tab 100-399,7
  tab 400-449,8
  tab 450-499,9
  tab 500,10
  tab YOU,68

  box "Everyone else",11,5 25 540 270,tab 2
  box "Minimum Access",12, 5 25 540 270,tab 3
  box "Channel Regular",13, 5 25 540 270,tab 4
  box "Trusted Channel Regular",14, 5 25 540 270,tab 5
  box "New Channel Operator",15, 5 25 540 270,tab 6
  box "Channel Operator",16, 5 25 540 270,tab 7
  box "Userlist Admin",17, 5 25 540 270,tab 8
  box "Trusted Channel Admin",18, 5 25 540 270,tab 9
  box "Channel Manager",19, 5 25 540 270,tab 10

  ;1st tab
  button "Access",20,10 40 100 20,tab 2
  button "Banlist",21,10 60 100 20,tab 2
  button "Chaninfo",22,10 80 100 20,tab 2
  button "Set Invisible",23,10 100 100 20,tab 2
  button "Info",24,10 120 100 20,tab 2
  button "LBanlist",25,10 140 100 20,tab 2
  button "Login",26,10 160 100 20,disabled,tab 2
  button "Newpass",27,10 180 100 20,tab 2
  button "Remuser",28,10 200 100 20,tab 2
  button "Search",29,10 220 100 20,tab 2
  button "ShowCommands",30,10 240 100 20,tab 2
  button "ShowIgnore",31,10 260 100 20,tab 2
  button "Verify",32,120 40 100 20,tab 2
  button "MOTD",67,120 60 100 20,tab 2
  button "Hide IP",333, 120 80 100 20,tab 2

  ;2nd tab
  button "Status",33,10 40 100 20,tab 3

  ;3rd tab
  button "Voice",34,10 40 100 20,tab 4
  button "Devoice",35,10 60 100 20,tab 4

  ;4rth tab
  button "Kick",36,10 40 100 20,tab 5
  button "Topic",37,10 60 100 20,tab 5

  ;5th tab
  button "Ban",38,10 40 100 20,tab 6
  button "Unban",39,10 60 100 20,tab 6

  ;6th tab
  button "Deop",40,10 40 100 20,tab 7
  button "Op",41,10 60 100 20,tab 7
  button "Invite Youself",42,10 80 100 20,tab 7
  button "Suspend",43,10 100 100 20,tab 7
  button "Unsuspend",44,10 120 100 20,tab 7

  box "200+",45, 120 60 150 65,tab 7
  button "Filter Kick",46, 130 75 125 20,tab 7
  button "Status",66,130 95 125 20,tab 7

  ;7th tab
  button "Adduser",47,10 40 100 20,tab 8
  button "Remuser",48,10 60 100 20,tab 8
  button "Clearmode",49,10 80 100 20,tab 8
  button "Modinfo",50,10 100 100 20,tab 8
  button "Automode",51,10 120 100 20,tab 8

  ;8th tab
  button "AutoTopic",52,10 40 100 20,tab 9
  button "Descritions",53,10 60 100 20,tab 9
  button "Keywords",54,10 80 100 20,tab 9
  button "Mode",55,10 100 100 20,tab 9
  button "URL",56,10 120 100 20,tab 9
  button "UserFlags",57,10 140 100 20,tab 9
  button "Join",58,10 160 100 20,tab 9
  button "Part",59,10 180 100 20,tab 9

  ;9th tab
  button "AutoJoin",60,10 40 100 20,tab 10
  button "FloodPro",61,10 60 100 20,tab 10
  button "Lang",62,10 80 100 20,tab 10
  button "MassDeopPro",63,10 100 100 20,tab 10
  button "NoOp",64,10 120 100 20,tab 10
  button "StrictOp",65,10 140 100 20,tab 10

  ;final tab
  box "Options",69,5 25 540 270, tab 68
  text "Log into X with username:",70,50 50 200 20,tab 68
  edit "",71,50 70 100 20, tab 68
  text "With Password:",72, 50 90 100 20, tab 68
  edit "",73, 50 110 100 20,pass tab 68
  button "save",74, 50 130 100 20, tab 68
} 
on *:dialog:undernet:init:*:{
  if (%xu) did -a undernet 71 %xu
  if (%xp) did -a undernet 73 %xp
  if (%xl == no) {
    var %xq = $?!"You're not logged in. Would you like to login now?" 
    if (%xq == $true) { xwl $iif(%xu != $Null,%xu,$?"Username?") $iif(%xp != $Null,%xp,$?*"Password?") }
    if (%xq == $false) { dialog -x undernet }
  }
}
on *:connect:if (%xu) && (%xp) && ($network == undernet) && ($notify(X).ison == $true) xwl %xu %xp
on *:notify:if (%xu) && (%xp) && ($network == undernet) && ($nick == X) xwl %xu %xp
on *:unnotify:set %xl no
on *:notice:You are not authorised with me anymore.:?:if ($nick == x) && ($network == Undernet) { set %xl no }
on *:notice:Sorry, You are already authenticated as *:?:if ($nick == x) && ($network == Undernet) { set %xl yes }
on *:disconnect:set %xl no
on *:notice:AUTHENTICATION SUCCESSFUL as *:?:if ($nick == X) && ($network == Undernet) { set %xl yes }
on *:dialog:undernet:sclick:*:{
  if ($did == 74) { if ($did(undernet,71).text) { set %xu $did(undernet,71).text } | if ($did(undernet,73).text) { set %xp $did(undernet,73).text } | elseif ($did(undernet,73).text == $null) || ($did(undernet,71).text == $null) { unset %xu | unset %xp } }
  if ($did == 20) { xwm access $xwc $$?"Optional: mask? ie *!*@*.domain.com" }
  if ($did == 21) { xwm Banlist $xwc }
  if ($did == 22 ) { xwm Chaninfo $xwc }
  if ($did == 23 ) { xwm SetInvisible $onoff }
  if ($did == 24 ) { xwm info $xwu }
  if ($did == 25 ) { xwm lbanlist $xwc $$?"Optional: mask? ie *!*@*.domain.com" }
  if ($did == 27) { xwn $$?*"New Password?" }
  if ($did == 67) { xwm motd  }
  if ($did == 28 ) { xwm remuser $xwc $$?"YOUR Username to remove" }
  if ($did == 29 ) { xwm search $$?"Search Parameter?" }
  if ($did == 30 ) { xwm showcommands $xwc }
  if ($did == 31 ) { xwm showignore  }
  if ($did == 32 ) { xwm verify $$?"nick" }
  if ($did == 333) { /mode $$?"Nick" +x }


  ;tab 2
  if ($did == 33 ) { xwm Status $xwc }

  ;tab 3
  if ($did == 34 ) { xwm voice $xwc $$?"nick1 nick2 ... nick5" }
  if ($did == 35 ) { xwm devoice $xwc $$?"nick1 nick2 ... nick5" }

  ;tab 4
  if ($did == 36 ) { xwm kick $xwc $$?"nick?" $$?"Reason?" }
  if ($did == 37 ) { xwm topic $xwc $$?"New Topic?" }

  ;tab 5
  if ($did == 38 ) { xwm ban $xwc $$?"Nickname OR mask? ie *!*@*.domain.com" $$?"Duration in hours?" $$?"Ban Level [cannot go over you user level]?" $$?"Reason?" }
  if ($did == 39 ) { xwm unban $xwc $$?"Nickname OR mask? ie *!*@*.domain.com" }

  ;tab 6
  if ($did == 40 ) { xwm deop $xwc $$?"Optional: mask? ie *!*@*.domain.com" }
  if ($did == 41 ) { xwm op $xwc $$?"Optional: mask? ie *!*@*.domain.com" }
  if ($did == 42 ) { xwm invite $xwc $$?"Optional: mask? ie *!*@*.domain.com" }
  if ($did == 43 ) { xwm suspend $xwc $$?"Optional: mask? ie *!*@*.domain.com" $$?"Duration in hours?" }
  if ($did == 44 ) { xwm unsuspend $xwc $$?"Optional: mask? ie *!*@*.domain.com" }
  if ($did == 46 ) { xwm kick $xwc $$?"Nickname OR mask? ie *!*@*.domain.com" }
  if ($did == 66 ) { xwm Status $xwc }

  ;tab 7
  if ($did == 47 ) { xwm adduser $xwc $xwu }
  if ($did == 48 ) { xwm remuser $xwc $wwu }
  if ($did == 49 ) { xwm clearmode $xwc }
  if ($did == 50 ) { xwm modinfo $xwc access $xwu $$?"New User level?" }
  if ($did == 51 ) { xwm modinfo $xwc automode $xwu $$?"<none|op|voice> ?" }

  ;tab 8
  if ($did == 52 ) { xwm set $xwc autotopic $onoff }
  if ($did == 53 ) { xwm set $xwc description $$?"channel description?" }
  if ($did == 54 ) { xwm set $xwc keywords $$?"Optional: mask? ie *!*@*.domain.com" }
  if ($did == 55 ) { xwm set $xwc mode }
  if ($did == 56 ) { xwm set $xwc URL $$?"URL1 URL2 ... URL5 etc" }
  if ($did == 57 ) { xwm set $xwc userflags $$?"0 = No AutoMode set for all new users added.  1 = Op AutoMode set for all new users added. 2 = Voice AutoMode set for all new users added." }
  if ($did == 58 ) { xwm join $xwc  }
  

  ;tab 9
  if ($did == 60 ) { xwm set $xwc autojoin $onoff }
  if ($did == 61 ) { xwm set $xwc floodpro $$?"Number of kicks,topic,modes per 15 secs aloud? 0-7" }
  if ($did == 62 ) { xwm set $xwc lang $$?"language?" }
  if ($did == 63 ) { xwm set $xwc massdeoppro $$?"Number of deop's aloud per 15 secs? 0-7" }
  if ($did == 64 ) { xwm set $xwc NoOp $onoff } 
  if ($did == 65 ) { xwm set $xwc Strictop $onoff }
  if ($did == 59 ) { xwm part $xwc }
}