; HennesScript <NW> Q-bot menu (for Chat Valley) |Q-Control|Q service bot menu for Chat Valley (irc.chatvalley.nl)
;

; Recognition identifiers begin
alias hsnw_q-chatvalley.ssf return Q-Control
alias hsnw__Q-Control return hsnw_q-chatvalley.ssf
alias menu_Q-Control return 1
; end

menu channel, {
  Q commands
  .$iif(r !isin $gettok($chan(#).mode,1,32),Register # $+ ...): runCHAN_REG #
  .$iif(r isin $gettok($chan(#).mode,1,32),Drop #): .msg Q DROP # $readini data\recent.pwl # password
  .$iif(r isin $gettok($chan(#).mode,1,32),Change password...): var %x = $$?="Enter new password.." | .msg Q PASSWORD # [ [ $readini data\recent.pwl # password ] ] %x | writeini data\recent.pwl # password %x
  .$iif(r isin $gettok($chan(#).mode,1,32),Reset channel): .msg Q RESTART # $readini data\recent.pwl # password
  .-
  .$iif(r isin $gettok($chan(#).mode,1,32),Give owner status (+q)): .msg Q OWNER # $readini data\recent.pwl # password
  .$iif(r isin $gettok($chan(#).mode,1,32),Give host status (+o)): .msg Q HOST # $readini data\recent.pwl # password
  .$iif(r isin $gettok($chan(#).mode,1,32),Give voice status (+v)): .msg Q VOICE # $readini data\recent.pwl # password
  .-
  .$iif(r isin $gettok($chan(#).mode,1,32),Set topic...): .msg Q TOPIC # $readini data\recent.pwl # password $$?="Enter topic"
  .$iif(r isin $gettok($chan(#).mode,1,32),Set onjoin message...): .msg Q ONJOIN # $readini data\recent.pwl # password $$?="Enter onjoin message"
  .$iif(r isin $gettok($chan(#).mode,1,32),Set onpart message...): .msg Q ONPART # $readini data\recent.pwl # password $$?="Enter onpart message"
  .-
  .$iif(r isin $gettok($chan(#).mode,1,32),Set ownerkey...):  .msg Q OWNERKEY # $readini data\recent.pwl # password $$?="Enter ownerkey"
  .$iif(r isin $gettok($chan(#).mode,1,32),Set hostkey...):  .msg Q HOSTKEY # $readini data\recent.pwl # password $$?="Enter hostkey"
  .$iif(r isin $gettok($chan(#).mode,1,32),Set memberkey...):   .msg Q MEMBERKEY # $readini data\recent.pwl # password $$?="Enter memberkey"
  .-
  .Help: .msg Q HELP
  .Open password file: .run notepad data\recent.pwl
}

menu nicklist, {
  Q commands
  .$iif(r isin $gettok($chan(#).mode,1,32),Give owner (+q)): .msg Q OWNER $$1 # $readini data\recent.pwl # password
  .$iif(r isin $gettok($chan(#).mode,1,32),Give host (+o)): .msg Q HOST $$1 # $readini data\recent.pwl # password
  .$iif(r isin $gettok($chan(#).mode,1,32),Give voice (+v)): .msg Q VOICE $$1 # $readini data\recent.pwl # password
  .Q sysop
  ..( $+ $iif($address($1,2),$address($1,2),click here) $+ ): if ($address($1,2)) halt | else who #
  ..-
  ..add K-Line: .msg Q BANNN $address($1,2)
  ..add K-Line + Kill: .msg Q BANNN $address($1,2) | .kill $1
  ..add K-Line + Kill...: .msg Q BANNN $address($1,2) | .kill $1 $?="Enter reason..." | if ($lines(data\dynamic\klines.ini) > 24) .write -dl1 data\dynamic\klines.ini | .write data\dynamic\klines.ini $address($1,2)
  ..remove K-Line $1 ( $+ $address($1,2) $+ ): .msg Q UNBANNN $address($1,2)
  ..remove recent K-lines
  ...$read(data\dynamic\klines.ini,l,1): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,1)
  ...$read(data\dynamic\klines.ini,l,2): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,2)
  ...$read(data\dynamic\klines.ini,l,3): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,3)
  ...$read(data\dynamic\klines.ini,l,4): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,4)
  ...$read(data\dynamic\klines.ini,l,5): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,5)
  ...$read(data\dynamic\klines.ini,l,6): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,6)
  ...$read(data\dynamic\klines.ini,l,7): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,7)
  ...$read(data\dynamic\klines.ini,l,8): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,8)
  ...$read(data\dynamic\klines.ini,l,9): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,9)
  ...$read(data\dynamic\klines.ini,l,10): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,10)
  ...$read(data\dynamic\klines.ini,l,11): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,11)
  ...$read(data\dynamic\klines.ini,l,12): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,12)
  ...$read(data\dynamic\klines.ini,l,13): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,13)
  ...$read(data\dynamic\klines.ini,l,14): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,14)
  ...$read(data\dynamic\klines.ini,l,15): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,15)
  ...$read(data\dynamic\klines.ini,l,16): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,16)
  ...$read(data\dynamic\klines.ini,l,17): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,17)
  ...$read(data\dynamic\klines.ini,l,18): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,18)
  ...$read(data\dynamic\klines.ini,l,19): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,19)
  ...$read(data\dynamic\klines.ini,l,20): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,20)
  ...$read(data\dynamic\klines.ini,l,21): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,21)
  ...$read(data\dynamic\klines.ini,l,22): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,22)
  ...$read(data\dynamic\klines.ini,l,23): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,23)
  ...$read(data\dynamic\klines.ini,l,24): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,24)
  ...$read(data\dynamic\klines.ini,l,25): .msg Q UNBANNN $read(data\dynamic\klines.ini,l,25)
}

dialog _chanreg {
  title "Channel registration..."
  size -1 -1 109 98
  option dbu
  text "You must configure some channel settings ", 1, 4 4 106 7
  text "to complete the channel registration.", 2, 4 11 94 8
  box "Settings", 3, 3 24 102 57
  text "Ownerkey:", 4, 8 53 26 8
  text "Hostkey:", 5, 8 64 21 8
  text "Password:", 6, 8 34 25 8
  box "", 7, 3 44 102 4
  edit "", 8, 36 33 64 10, autohs
  edit "", 9, 36 52 64 10, autohs
  edit "", 10, 36 63 64 10, autohs
  button "Register", 11, 13 84 45 12, ok
  button "Cancel", 12, 60 84 45 12, cancel
  button "", 13, 1 1 1 1, ok
}

alias runCHAN_REG Xdialog -m _chanreg _chanreg | did -ra _chanreg 13 $1
on *:DIALOG:_chanreg:init:*: did -ra $dname 8 $r(1,99999) | did -ra $dname 9 $r(1,99999) | did -ra $dname 10 $r(1,99999)
on *:DIALOG:_chanreg:sclick:11: writeini data\recent.pwl $did($dname,13) password $did($dname,8) | writeini data\recent.pwl $did($dname,13) ownerkey $did($dname,9) | writeini data\recent.pwl $did($dname,13) hostkey $did($dname,10) | .msg Q register $did($dname,13) $did($dname,9) $did($dname,10) $did($dname,8)