; --------< Registration Plugin >------------------------------------------
; Name....: Registration
; File....: registration.mrc
; Ver.....: 1.0
; Author..: FrogPrince
; Email...: mrfrog@zincplay.com
; Date....: 05 May 07
; URL.....: 
; Info....: Allows Helpers/Admins to assist Users more efficiently 
; Changes.:
;---------------------------------------------------------------------

; ---- BEGIN ----

; script unload signal 
on *:signal:zion_unload:.unload -rs $+(",$script,") 

on *:load:{
  z.note Plugin: $ $nopath($script) loaded.
  .set %adminaidechan #Registration
  .set %ctextchannel #Registration
  .set %ctext1 yes
  .echo -c notice %adminaidechan - 
  .echo -c notice %adminaidechan * $z.fileinfo($script,Name) $z.fileinfo($script,Ver) has been successfully installed. 
  .echo -c notice %adminaidechan -
}

on *:unload:{
  z.note Plugins: $ $nopath($script) unloaded.
  .signal -n zion_plugin_unload $script
  .unset %adminaidechan
  .unset %inputownans
  .unset %aidechan
  .unset %needhelp
  .unset %tochanzh
  .unset %toperson
  .unset %ctextchannel
  .unset %ctext1
  .echo -c notice %adminaidechan - 
  .echo -c notice %adminaidechan * $z.fileinfo($script,Name) $z.fileinfo($script,Ver) has been successfully uninstalled. 
  .echo -c notice %adminaidechan -
}

; -- END CONFORMING --

;---------------------------------------
; Enclosing helper's nick in [ ]
;---------------------------------------
on *:VOICE:%zion.s.chat:{
  if (($nick == ChanServ) && ($me !isop #) && ($vnick == $me) && ($right($me,1) != $chr(93)) && ($left($me,1) != $chr(91))) {
    if ($len($me) > 28) {
      nick $chr(91) $+ $right($me,28) $+ $chr(93)
    } 
    else {
      nick $chr(91) $+ $me $+ $chr(93)
    }
  }
}
on *:DEVOICE:%zion.s.chat:{
  if (($me !isop #) && ($vnick == $me) && ($right($me,1) == $chr(93)) && ($left($me,1) == $chr(91))) {
    nick $left($right($me,-1),-1)
  }
}
on *:INPUT:*:{
  if (($1 == /nick) && ($me !isop %zion.s.chat) && ($me isvoice %zion.s.chat) && ($right($2,1) != $chr(93)) && ($left($2,1) != $chr(91))) {
    if ($len($2) > 28) {
      nick $chr(91) $+ $right($2,28) $+ $chr(93)
    } 
    else {
      nick $chr(91) $+ $2 $+ $chr(93)
    }
    halt
  }
}

;---------------------------------------
; Menu for this plugin
;---------------------------------------
menu nicklist {
  -
  $iif((# == %adminaidechan) && ($me isop #),ChanServ)
  .ChanServ Easy Steps
  ..Step 1 [Next user]:.msg chanserv voice [ %adminaidechan ] [ $1 ]
  ..-
  ..Step 2 [Welcome the user]
  ...-
  ...State questions in channel:{
    msg %adminaidechan Welcome [  ] $+ [ $1 ] $+ [  ] to [ %adminaidechan ] $+ [ . ] I am your assigned helper this time. You can talk to me in English. How can I help you?
    msg %adminaidechan [  ] $+ [ $1 ] $+ [  ] $+ [ : ] Kindly state your questions here in the channel.
  }
  ...State questions in channel and open admin aide:{
    msg %adminaidechan Welcome [  ] $+ [ $1 ] $+ [  ] to [ %adminaidechan ] $+ [ . ] I am your assigned helper this time. You can talk to me in English. How can I help you?
    msg %adminaidechan [  ] $+ [ $1 ] $+ [  ] $+ [ : ] Kindly state your questions here in the channel.
    .set %tochanzh yes
    .set %needhelp $1
    .dialog -m adminhelp adminhelp
  }
  ...-
  ...State questions in private message:{
    msg %adminaidechan Welcome [  ] $+ [ $1 ] $+ [  ] to [ %adminaidechan ] $+ [ . ] I am your assigned helper this time. You can talk to me in English. How can I help you?
    msg %adminaidechan [  ] $+ [ $1 ] $+ [  ] $+ [ : ] Kindly state your questions in our private message.
    query $$1 I am your assigned helper this time. You can talk to me in English. How can I help you?
    query $$1 Kindly state your questions here.
  }
  ...State questions in private message and open admin aide:{
    msg %adminaidechan Welcome [  ] $+ [ $1 ] $+ [  ] to [ %adminaidechan ] $+ [ . ] I am your assigned helper this time. You can talk to me in English. How can I help you?
    msg %adminaidechan [  ] $+ [ $1 ] $+ [  ] $+ [ : ] Kindly state your questions in our private message.
    query $$1 I am your assigned helper this time. You can talk to me in English. How can I help you?
    query $$1 Kindly state your questions here.
    .set %toperson yes
    .set %needhelp $1
    .dialog -m adminhelp adminhelp
  }
  ..-
  ..Step 3 [Request to leave]:msg %adminaidechan  [  ] $+ [ $1 ] $+ [  ] $+ [ , ] Kindly leave the channel if you do not have any more questions by typing /part %adminaidechan $+ .
  ..-
  ..Step 4 [Kick user for idling]:{
    if ($?!="Are you sure you want to kick $$1 for idling?" == $true) {
      .ban -ku5 %adminaidechan $$1 2 No idling in %adminaidechan
    }
  }
  ..-
  .-
  .$z.fileinfo($script,Name) $z.fileinfo($script,Ver) :{
    .set %tochanzh yes
    .set %needhelp $1
    .dialog -m adminhelp adminhelp
  }
  .-
  .Quote Text
  ..$style(2) %ctextchannel:return
  ..-
  ..$strip(%copytext1):msg $active [ < ] $+ [ %copynick1 ] $+ [ > ]  %copytext1 4<< $$?="Input Message"
  ..$strip(%copytext2):msg $active [ < ] $+ [ %copynick2 ] $+ [ > ]  %copytext2 4<< $$?="Input Message"
  ..$strip(%copytext3):msg $active [ < ] $+ [ %copynick3 ] $+ [ > ]  %copytext3 4<< $$?="Input Message"
  ..$strip(%copytext4):msg $active [ < ] $+ [ %copynick4 ] $+ [ > ]  %copytext4 4<< $$?="Input Message"
  ..$strip(%copytext5):msg $active [ < ] $+ [ %copynick5 ] $+ [ > ]  %copytext5 4<< $$?="Input Message"
  ..$strip(%copytext6):msg $active [ < ] $+ [ %copynick6 ] $+ [ > ]  %copytext6 4<< $$?="Input Message"
  ..$strip(%copytext7):msg $active [ < ] $+ [ %copynick7 ] $+ [ > ]  %copytext7 4<< $$?="Input Message"
  ..$strip(%copytext8):msg $active [ < ] $+ [ %copynick8 ] $+ [ > ]  %copytext8 4<< $$?="Input Message"
  ..$strip(%copytext9):msg $active [ < ] $+ [ %copynick9 ] $+ [ > ]  %copytext9 4<< $$?="Input Message"
  ..$strip(%copytext10):msg $active [ < ] $+ [ %copynick10 ] $+ [ > ]  %copytext10 4<< $$?="Input Message"
  ..$strip(%copytext11):msg $active [ < ] $+ [ %copynick11 ] $+ [ > ]  %copytext11 4<< $$?="Input Message"
  ..-
  ..Erase History:{
    erasehistory
  }
}
menu query {
  -
  $iif(($me isop %adminaidechan),ChanServ)
  .ChanServ Easy Steps
  ..Step 1 [Next user]:.msg ChanServ voice [ %adminaidechan ] [ $1 ]
  ..-
  ..Step 2 [Welcome the user]
  ...-
  ...State questions in channel:{
    msg %adminaidechan Welcome [  ] $+ [ $1 ] $+ [  ] to [ %adminaidechan ] $+ [ . ] I am your assigned helper this time. You can talk to me in English. How can I help you?
    msg %adminaidechan [  ] $+ [ $1 ] $+ [  ] $+ [ : ] Kindly state your questions here, in the channel.
    query $$1 I am your assigned helper this time. You can talk to me in English. How can I help you?
    query $$1 Kindly state your questions in the channel, %adminaidechan $+ .
  }
  ...State questions in channel and open admin aide:{
    msg %adminaidechan Welcome [  ] $+ [ $1 ] $+ [  ] to [ %adminaidechan ] $+ [ . ] I am your assigned helper this time. You can talk to me in English. How can I help you?
    msg %adminaidechan [  ] $+ [ $1 ] $+ [  ] $+ [ : ] Kindly state your questions here, in the channel.
    query $$1 I am your assigned helper this time. You can talk to me in English. How can I help you?
    query $$1 Kindly state your questions in the channel, %adminaidechan $+ .
    .set %tochanzh yes
    .set %needhelp $1
    .dialog -m adminhelp adminhelp
  }
  ...-
  ...State questions in private message:{
    query $$1 I am your assigned helper this time. You can talk to me in English. How can I help you?
    query $$1 Kindly state your questions here.
  }
  ...State questions in private message and open admin aide:{
    query $$1 I am your assigned helper this time. You can talk to me in English. How can I help you?
    query $$1 Kindly state your questions here.
    .set %toperson yes
    .set %needhelp $1
    .dialog -m adminhelp adminhelp
  }
  ..-
  ..Step 3 [Request to leave]:query $$1 Kindly leave the channel if you do not have any more questions by typing /part %adminaidechan $+ .
  ..-
  ..Step 4 [Kick user for idling]:{
    if ($?!="Are you sure you want to kick $$1 for idling?" == $true) {
      .ban -ku5 %adminaidechan $$1 2 No idling in %adminaidechan
    }
  }
  ..-
  .-
  .$z.fileinfo($script,Name) $z.fileinfo($script,Ver) :{
    .set %toperson yes
    .set %needhelp $1
    .dialog -m adminhelp adminhelp
  }
}

;---------------------------------------
; Quote text function 
;---------------------------------------
on ^*:TEXT:*:%ctextchannel:{
  if (%ctext1 == yes) {
    set %copytext1 $1-
    set %copynick1 $nick
    set %ctext2 yes
    unset %ctext1 
    return
  }
  if (%ctext2 == yes) {
    set %copytext2 $1-
    set %copynick2 $nick
    set %ctext3 yes
    unset %ctext2
    return 
  }
  if (%ctext3 == yes) {
    set %copytext3 $1-
    set %copynick3 $nick
    set %ctext4 yes
    unset %ctext3
    return
  }
  if (%ctext4 == yes) {
    set %copytext4 $1-
    set %copynick4 $nick
    set %ctext5 yes
    unset %ctext4
    return 
  }
  if (%ctext5 == yes) {
    set %copytext5 $1-
    set %copynick5 $nick
    set %ctext6 yes
    unset %ctext5
    return 
  }
  if (%ctext6 == yes) {
    set %copytext6 $1-
    set %copynick6 $nick
    set %ctext7 yes
    unset %ctext6 
    return
  }
  if (%ctext7 == yes) {
    set %copytext7 $1-
    set %copynick7 $nick
    set %ctext8 yes
    unset %ctext7 
    return
  }
  if (%ctext8 == yes) {
    set %copytext8 $1-
    set %copynick8 $nick
    set %ctext9 yes
    unset %ctext8 
    return
  }
  if (%ctext9 == yes) {
    set %copytext9 $1-
    set %copynick9 $nick
    set %ctext10 yes
    unset %ctext9 
    return
  }
  if (%ctext10 == yes) {
    set %copytext10 $1-
    set %copynick10 $nick
    set %ctext11 yes
    unset %ctext10 
    return
  }
  if (%ctext11 == yes) {
    set %copytext11 $1-
    set %copynick11 $nick
    set %ctext12 yes
    unset %ctext11
    erasehistory 
    return
  }
}

;---------------------------------------
; Dialog for adminhelp
;---------------------------------------
dialog adminhelp {
  title "adminhelp Admin Aide 1.0 - By FrogPrince"
  size -1 -1 422 292
  option dbu
  edit "", 1, 23 19 290 53, read multi vsbar
  box "", 2, 5 5 412 282
  check "", 3, 18 109 9 10
  text "Type !myaccess to check all your access", 4, 27 110 180 14
  check "", 5, 18 130 9 10
  text "Type !upall to be OPed and Voiced in all #Channels You Have", 6, 27 131 180 8
  check "", 7, 18 145 9 10
  text "Type /authser auth YourNick Password", 8, 27 146 180 21
  check "", 9, 18 173 9 10
  text "Type !help commands to find out what are the commands available here in FragNet", 10, 27 174 180 35
  check "", 11, 18 208 8 10
  text "Type !set givevoice 100 if you don't want ChanServ to auto voice users when they join.", 12, 27 209 180 30
  check "", 13, 221 109 11 10
  text "Type !adduser *Account level . E.g (!adduser *Chanserv 400) This command is used to add new operator to your channel.", 14, 230 110 180 28
  check "", 15, 221 144 9 10
  text "Type !addban *account or !addban Nick , This command is used to Perm Ban a User from entering your #Channel.", 16, 230 145 180 21
  check "", 17, 221 172 7 10
  text "Type !delban *!*ident@host.com or !delban Nick , This command is used to remove ban from a channel.", 18, 230 173 180 28
  check "", 19, 221 207 7 10
  text "Type !help for more help in FragNet.", 20, 230 208 180 21
  text "Model Answers:", 21, 313 251 40 8
  button "1", 22, 329 261 12 12
  text "Page:", 23, 313 263 15 8
  button "2", 25, 343 261 12 12
  edit %inputownans, 24, 64 77 249 25, multi vsbar
  text "Input Answers:", 26, 23 84 40 8
  button "Send Message", 27, 320 84 42 12
  button "Uncheck All", 321, 366 84 41 12
  button "Exit", 28, 373 261 37 12, cancel
  button "Accept", 29, 322 32 50 10
  text "Unhandled Request:", 30, 322 22 50 8
  text "Nickname Needing Help:", 31, 322 47 60 8
  edit %needhelp, 32, 322 57 60 10
  text "The model answers can be found at:", 33, 47 256 110 8
  link "UNAVAILABLE YET", 34, 47 263 110 8
  box "", 35, 23 245 154 34
  box "Credits", 36, 186 245 113 34
  text "- FrogPrince (Script Writer)", 37, 190 252 100 8
  check "", 50, 18 109 9 10
  text "Type !help user for more User management Help.", 51, 27 110 180 14
  check "", 52, 18 130 9 10
  text "Type !help channel for more Channel management Help.", 53, 27 131 180 14
  check "", 54, 18 151 9 10
  text "Type !help Ban Management for more Ban Management Help.", 55, 27 152 180 14
  check "", 56, 18 172 9 10
  text "Type !help information for more Informative Commands Help.", 57, 27 173 180 14
  check "", 58, 18 193 8 10
  text "LEFT EMPTY", 59, 27 194 180 28
  check "", 60, 221 109 11 10
  text "LEFT EMPTY", 61, 230 110 180 21
  check "", 62, 221 137 9 10
  text "LEFT EMPTY", 63, 230 138 180 14
  check "", 64, 221 158 7 10
  text "LEFT EMPTY", 65, 230 159 180 14
}

;---------------------------------------
; Check events
;---------------------------------------
; page 1
on *:dialog:adminhelp:sclick:3: {
  ; enable own text
  .did -e adminhelp 4
  ; chosen text 
  .did -b adminhelp 6
  .did -b adminhelp 8 
  .did -b adminhelp 10
  .did -b adminhelp 12
  .did -b adminhelp 14
  .did -b adminhelp 16
  .did -b adminhelp 18
  .did -b adminhelp 20
  ; uncheck unwanted ids
  .did -u adminhelp 5
  .did -u adminhelp 7 
  .did -u adminhelp 9
  .did -u adminhelp 11
  .did -u adminhelp 13
  .did -u adminhelp 15
  .did -u adminhelp 17
  .did -u adminhelp 19
  ;
  .did -c adminhelp 3 
  .set %inputownans Type !myaccess to check all your access.
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:5: {
  ; enable own text
  .did -e adminhelp 6
  ; chosen text 
  .did -b adminhelp 4
  .did -b adminhelp 8 
  .did -b adminhelp 10
  .did -b adminhelp 12
  .did -b adminhelp 14
  .did -b adminhelp 16
  .did -b adminhelp 18
  .did -b adminhelp 20
  ; uncheck unwanted ids
  .did -u adminhelp 3
  .did -u adminhelp 7 
  .did -u adminhelp 9
  .did -u adminhelp 11
  .did -u adminhelp 13
  .did -u adminhelp 15
  .did -u adminhelp 17
  .did -u adminhelp 19
  ;
  .did -c adminhelp 5 
  .set %inputownans Type !upall to be OPed and Voiced in all #Channels You Have.
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:7: {
  ; enable own text
  .did -e adminhelp 8
  ; chosen text 
  .did -b adminhelp 4
  .did -b adminhelp 6 
  .did -b adminhelp 10
  .did -b adminhelp 12
  .did -b adminhelp 14
  .did -b adminhelp 16
  .did -b adminhelp 18
  .did -b adminhelp 20
  ; uncheck unwanted ids
  .did -u adminhelp 3
  .did -u adminhelp 5 
  .did -u adminhelp 9
  .did -u adminhelp 11
  .did -u adminhelp 13
  .did -u adminhelp 15
  .did -u adminhelp 17
  .did -u adminhelp 19
  ;
  .did -c adminhelp 7
  .set %inputownans Type /authser auth YourNick Password.
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:9: {
  ; enable own text
  .did -e adminhelp 10
  ; chosen text 
  .did -b adminhelp 4
  .did -b adminhelp 6
  .did -b adminhelp 8 
  .did -b adminhelp 12
  .did -b adminhelp 14
  .did -b adminhelp 16
  .did -b adminhelp 18
  .did -b adminhelp 20
  ; uncheck unwanted ids
  .did -u adminhelp 3
  .did -u adminhelp 5 
  .did -u adminhelp 7
  .did -u adminhelp 11
  .did -u adminhelp 13
  .did -u adminhelp 15
  .did -u adminhelp 17
  .did -u adminhelp 19
  ;
  .did -c adminhelp 9
  .set %inputownans Type !help commands to find out what are the commands available here in FragNet.
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:11: {
  ; enable own text
  .did -e adminhelp 12
  ; chosen text 
  .did -b adminhelp 4
  .did -b adminhelp 8 
  .did -b adminhelp 10
  .did -b adminhelp 6
  .did -b adminhelp 14
  .did -b adminhelp 16
  .did -b adminhelp 18
  .did -b adminhelp 20
  ; uncheck unwanted ids
  .did -u adminhelp 3
  .did -u adminhelp 5 
  .did -u adminhelp 7
  .did -u adminhelp 9
  .did -u adminhelp 13
  .did -u adminhelp 15
  .did -u adminhelp 17
  .did -u adminhelp 19
  ;
  .did -c adminhelp 11
  .set %inputownans Type !set givevoice 100 if you don't want ChanServ to auto voice users when they join.
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:13: {
  ; enable own text
  .did -e adminhelp 14
  ; chosen text 
  .did -b adminhelp 4
  .did -b adminhelp 8 
  .did -b adminhelp 10
  .did -b adminhelp 6
  .did -b adminhelp 12
  .did -b adminhelp 16
  .did -b adminhelp 18
  .did -b adminhelp 20
  ; uncheck unwanted ids
  .did -u adminhelp 3
  .did -u adminhelp 5 
  .did -u adminhelp 7
  .did -u adminhelp 9
  .did -u adminhelp 11
  .did -u adminhelp 15
  .did -u adminhelp 17
  .did -u adminhelp 19
  ;
  .did -c adminhelp 13
  .set %inputownans Type !adduser *Account level . E.g (!adduser *Chanserv 400) This command is used to add new operator to your channel..
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:15: {
  ; enable own text
  .did -e adminhelp 16
  ; chosen text 
  .did -b adminhelp 4
  .did -b adminhelp 8 
  .did -b adminhelp 10
  .did -b adminhelp 6
  .did -b adminhelp 12
  .did -b adminhelp 14
  .did -b adminhelp 18
  .did -b adminhelp 20
  ; uncheck unwanted ids
  .did -u adminhelp 3
  .did -u adminhelp 5 
  .did -u adminhelp 7
  .did -u adminhelp 9
  .did -u adminhelp 11
  .did -u adminhelp 13
  .did -u adminhelp 17
  .did -u adminhelp 19
  ;
  .did -c adminhelp 15
  .set %inputownans Type !addban *account or !addban Nick , This command is used to Perm Ban a User from entering your #Channel.
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:17: {
  ; enable own text
  .did -e adminhelp 18
  ; chosen text 
  .did -b adminhelp 4
  .did -b adminhelp 8 
  .did -b adminhelp 10
  .did -b adminhelp 6
  .did -b adminhelp 12
  .did -b adminhelp 14
  .did -b adminhelp 16
  .did -b adminhelp 20
  ; uncheck unwanted ids
  .did -u adminhelp 3
  .did -u adminhelp 5 
  .did -u adminhelp 7
  .did -u adminhelp 9
  .did -u adminhelp 11
  .did -u adminhelp 13
  .did -u adminhelp 15
  .did -u adminhelp 19
  ;
  .did -c adminhelp 17
  .set %inputownans Type !delban *!*ident@host.com or !delban Nick , This command is used to remove ban from a channel..
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:19: {
  ; enable own text
  .did -e adminhelp 20
  ; chosen text 
  .did -b adminhelp 4
  .did -b adminhelp 8 
  .did -b adminhelp 10
  .did -b adminhelp 6
  .did -b adminhelp 12
  .did -b adminhelp 14
  .did -b adminhelp 16
  .did -b adminhelp 18
  ; uncheck unwanted ids
  .did -u adminhelp 3
  .did -u adminhelp 5 
  .did -u adminhelp 7
  .did -u adminhelp 9
  .did -u adminhelp 11
  .did -u adminhelp 13
  .did -u adminhelp 15
  .did -u adminhelp 17
  ;
  .did -c adminhelp 19
  .set %inputownans Type !help for more help in FragNet..
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
; page 2
on *:dialog:adminhelp:sclick:50: {
  ; enable own text
  .did -e adminhelp 51
  ; chosen text 
  .did -b adminhelp 53
  .did -b adminhelp 55
  .did -b adminhelp 57
  .did -b adminhelp 59
  .did -b adminhelp 61
  .did -b adminhelp 63
  .did -b adminhelp 65
  ; uncheck unwanted ids
  .did -u adminhelp 52
  .did -u adminhelp 54
  .did -u adminhelp 56
  .did -u adminhelp 58
  .did -u adminhelp 60
  .did -u adminhelp 62
  .did -u adminhelp 64
  ;
  .did -c adminhelp 50
  .set %inputownans Type !help user for more User management Help .
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:52: {
  ; enable own text
  .did -e adminhelp 53
  ; chosen text 
  .did -b adminhelp 51
  .did -b adminhelp 55
  .did -b adminhelp 57
  .did -b adminhelp 59
  .did -b adminhelp 61
  .did -b adminhelp 63
  .did -b adminhelp 65
  ; uncheck unwanted ids
  .did -u adminhelp 50
  .did -u adminhelp 54
  .did -u adminhelp 56
  .did -u adminhelp 58
  .did -u adminhelp 60
  .did -u adminhelp 62
  .did -u adminhelp 64
  ;
  .did -c adminhelp 52
  .set %inputownans Type !help channel for more Channel management Help.
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:54: {
  ; enable own text
  .did -e adminhelp 55
  ; chosen text 
  .did -b adminhelp 51
  .did -b adminhelp 53
  .did -b adminhelp 57
  .did -b adminhelp 59
  .did -b adminhelp 61
  .did -b adminhelp 63
  .did -b adminhelp 65
  ; uncheck unwanted ids
  .did -u adminhelp 50
  .did -u adminhelp 52
  .did -u adminhelp 56
  .did -u adminhelp 58
  .did -u adminhelp 60
  .did -u adminhelp 62
  .did -u adminhelp 64
  ;
  .did -c adminhelp 54
  .set %inputownans Type !help Ban Management for more Ban Management Help..
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:56: {
  ; enable own text
  .did -e adminhelp 57
  ; chosen text 
  .did -b adminhelp 51
  .did -b adminhelp 53
  .did -b adminhelp 55
  .did -b adminhelp 59
  .did -b adminhelp 61
  .did -b adminhelp 63
  .did -b adminhelp 65
  ; uncheck unwanted ids
  .did -u adminhelp 50
  .did -u adminhelp 52
  .did -u adminhelp 54
  .did -u adminhelp 58
  .did -u adminhelp 60
  .did -u adminhelp 62
  .did -u adminhelp 64
  ;
  .did -c adminhelp 56
  .set %inputownans For Windows Vista compatibility issues, visit http://forum.zincplay.com/viewtopic.php?t=849.
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:58: {
  ; enable own text
  .did -e adminhelp 59
  ; chosen text 
  .did -b adminhelp 51
  .did -b adminhelp 53
  .did -b adminhelp 55
  .did -b adminhelp 57
  .did -b adminhelp 61
  .did -b adminhelp 63
  .did -b adminhelp 65
  ; uncheck unwanted ids
  .did -u adminhelp 50
  .did -u adminhelp 52
  .did -u adminhelp 54
  .did -u adminhelp 56
  .did -u adminhelp 60
  .did -u adminhelp 62
  .did -u adminhelp 64
  ;
  .did -c adminhelp 58
  .set %inputownans Type !help information for more Informative Commands Help..
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:60: {
  ; enable own text
  .did -e adminhelp 61
  ; chosen text 
  .did -b adminhelp 51
  .did -b adminhelp 53
  .did -b adminhelp 55
  .did -b adminhelp 57
  .did -b adminhelp 59
  .did -b adminhelp 63
  .did -b adminhelp 65
  ; uncheck unwanted ids
  .did -u adminhelp 50
  .did -u adminhelp 52
  .did -u adminhelp 54
  .did -u adminhelp 56
  .did -u adminhelp 58
  .did -u adminhelp 62
  .did -u adminhelp 64
  ;
  .did -c adminhelp 60
  .set %inputownans LEFT EMPTY.
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:62: {
  ; enable own text
  .did -e adminhelp 63
  ; chosen text 
  .did -b adminhelp 51
  .did -b adminhelp 53
  .did -b adminhelp 55
  .did -b adminhelp 57
  .did -b adminhelp 59
  .did -b adminhelp 61
  .did -b adminhelp 65
  ; uncheck unwanted ids
  .did -u adminhelp 50
  .did -u adminhelp 52
  .did -u adminhelp 54
  .did -u adminhelp 56
  .did -u adminhelp 58
  .did -u adminhelp 60
  .did -u adminhelp 64
  ;
  .did -c adminhelp 62
  .set %inputownans LEFT EMPTY.
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}
on *:dialog:adminhelp:sclick:64: {
  ; enable own text
  .did -e adminhelp 65
  ; chosen text 
  .did -b adminhelp 51
  .did -b adminhelp 53
  .did -b adminhelp 55
  .did -b adminhelp 57
  .did -b adminhelp 59
  .did -b adminhelp 61
  .did -b adminhelp 63
  ; uncheck unwanted ids
  .did -u adminhelp 50
  .did -u adminhelp 52
  .did -u adminhelp 54
  .did -u adminhelp 56
  .did -u adminhelp 58
  .did -u adminhelp 60
  .did -u adminhelp 62
  ;
  .did -c adminhelp 64
  .set %inputownans LEFT EMPTY.
  .did -r adminhelp 24 
  .did -a adminhelp 24 %inputownans
}

;---------------------------------------
; Reflecting into adminhelp screen
;---------------------------------------
; channel
on *:INPUT:%adminaidechan:{
  if (/* !iswm $1 && %aidechan == yes && %tochanzh == yes) {
    .did -a adminhelp 1 [ $time ] [ < ] $+ [ $me ] $+ [ > ] $+($strip($1- ,buc) , $crlf)
  }
}
on *:TEXT:*:%adminaidechan:{
  if (%aidechan == yes && %tochanzh == yes) {
    .did -a adminhelp 1 [ $time ] [ < ] $+ [ $nick ] $+ [ > ] $+($strip($1- ,buc) , $crlf)
  }
}
on *:NOTICE:*:*:{
  if (%aidechan == yes  && %tochanzh == yes) {
    .did -a adminhelp 1 [ $time ] [ - ] $+ [ $nick ] $+ [ : ] $+ [ %adminaidechan ]- $+($strip($1- ,buc) , $crlf)
  }
  if (%aidechan == yes  && %toperson == yes) {
    .did -a adminhelp 1 [ $time ] [ - ] $+ [ $nick ] $+ [ : ] - $+($strip($1- ,buc) , $crlf)
  }
}
; query
on *:INPUT:*:{
  if (/* !iswm $1 && %aidechan == yes && %toperson == yes && $active == %needhelp) {
    .did -a adminhelp 1 [ $time ] [ < ] $+ [ $me ] $+ [ > ] $+($strip($1- ,buc) , $crlf)
  }
}
on *:TEXT:*:?:{
  if (%aidechan == yes && %toperson == yes && $nick == %needhelp) {
    .did -a adminhelp 1 [ $time ] [ < ] $+ [ $nick ] $+ [ > ] $+($strip($1- ,buc) , $crlf)
  }
}

;---------------------------------------
; Initialising events
;---------------------------------------
on *:dialog:adminhelp:init:*: {
  ; hidden stuffs
  .did -h adminhelp 50
  .did -h adminhelp 51
  .did -h adminhelp 52
  .did -h adminhelp 53
  .did -h adminhelp 54
  .did -h adminhelp 55
  .did -h adminhelp 56
  .did -h adminhelp 57
  .did -h adminhelp 58
  .did -h adminhelp 59
  .did -h adminhelp 60
  .did -h adminhelp 61
  .did -h adminhelp 62
  .did -h adminhelp 63
  .did -h adminhelp 64
  .did -h adminhelp 65
  .did -r adminhelp 24
  .set %aidechan yes
  ; initialise
  if (%tochanzh == yes) {
    .did -a adminhelp 1 $+(All messages at the %adminaidechan will be shown here., $crlf,-, $crlf, )
  }
  if (%toperson == yes) {
    .did -a adminhelp 1 $+(All messages at [ %needhelp ] $+ [ 's ] query will be shown here., $crlf,-, $crlf, )
  }
}

;---------------------------------------
; Dialog events
;---------------------------------------
on *:dialog:adminhelp:*:*: {
  if ($devent == sclick) {
    if ($did == 25) {
      hidden1
      visible2
    }
    if ($did == 22) {
      hidden2
      visible1
    }
    if ($did == 321) { .uncheckall }
    if ($did == 29) { .msg chanserv voice %adminaidechan $1 }
    if ($did == 28) { .unset %aidechan | .unset %tochanzh | .unset %toperson }
    if ($did == 34) { run empty }
    if ($did == 27 && %tochanzh == yes) { msg %adminaidechan [  ] $+ [ %needhelp ] $+ [  ] $+ [ : ] %inputownans | .did -a adminhelp 1 [ $time ] [ < ] $+ [ $me ] $+ [ > ]  [ %needhelp ]  $+ [ : ]  $+($strip(%inputownans ,bc) , $crlf) | .did -r adminhelp 24 }
    if ($did == 27 && %toperson == yes) { msg %needhelp %inputownans |  .did -a adminhelp 1 [ $time ] [ < ] $+ [ $me ] $+ [ > ]  [ %needhelp ]  $+ [ : ]  $+($strip(%inputownans ,bc) , $crlf) | .did -r adminhelp 24 }
  }
  if ($devent == edit) {
    if ($did == 32) { .set %needhelp $did(32) }
    if ($did == 24) { .set %inputownans $did(24) }
  }
}

;---------------------------------------
; Aliases
;---------------------------------------
alias hidden1 {
  .did -h adminhelp 3
  .did -h adminhelp 4
  .did -h adminhelp 5
  .did -h adminhelp 6
  .did -h adminhelp 7
  .did -h adminhelp 8
  .did -h adminhelp 9
  .did -h adminhelp 10
  .did -h adminhelp 11
  .did -h adminhelp 12
  .did -h adminhelp 13
  .did -h adminhelp 14
  .did -h adminhelp 15
  .did -h adminhelp 16
  .did -h adminhelp 17
  .did -h adminhelp 18
  .did -h adminhelp 19
  .did -h adminhelp 20
}
alias visible1 {
  .did -v adminhelp 3
  .did -v adminhelp 4
  .did -v adminhelp 5
  .did -v adminhelp 6
  .did -v adminhelp 7
  .did -v adminhelp 8
  .did -v adminhelp 9
  .did -v adminhelp 10
  .did -v adminhelp 11
  .did -v adminhelp 12
  .did -v adminhelp 13
  .did -v adminhelp 14
  .did -v adminhelp 15
  .did -v adminhelp 16
  .did -v adminhelp 17
  .did -v adminhelp 18
  .did -v adminhelp 19
  .did -v adminhelp 20
}
alias visible2 {
  .did -v adminhelp 50
  .did -v adminhelp 51
  .did -v adminhelp 52
  .did -v adminhelp 53
  .did -v adminhelp 54
  .did -v adminhelp 55
  .did -v adminhelp 56
  .did -v adminhelp 57
  .did -v adminhelp 58
  .did -v adminhelp 59
  .did -v adminhelp 60
  .did -v adminhelp 61
  .did -v adminhelp 62
  .did -v adminhelp 63
  .did -v adminhelp 64
  .did -v adminhelp 65
}
alias hidden2 {
  .did -h adminhelp 50
  .did -h adminhelp 51
  .did -h adminhelp 52
  .did -h adminhelp 53
  .did -h adminhelp 54
  .did -h adminhelp 55
  .did -h adminhelp 56
  .did -h adminhelp 57
  .did -h adminhelp 58
  .did -h adminhelp 59
  .did -h adminhelp 60
  .did -h adminhelp 61
  .did -h adminhelp 62
  .did -h adminhelp 63
  .did -h adminhelp 64
  .did -h adminhelp 65
}
alias uncheckall {
  ; clear text
  .did -r adminhelp 24 %inputownans 
  ; Page1
  .did -u adminhelp 3
  .did -u adminhelp 5
  .did -u adminhelp 7
  .did -u adminhelp 9
  .did -u adminhelp 11
  .did -u adminhelp 13
  .did -u adminhelp 15
  .did -u adminhelp 17
  ; Page2
  .did -u adminhelp 50
  .did -u adminhelp 52
  .did -u adminhelp 54
  .did -u adminhelp 56
  .did -u adminhelp 58
  .did -u adminhelp 60
  .did -u adminhelp 62
  .did -u adminhelp 64
  ; Page1
  .did -e adminhelp 3
  .did -e adminhelp 4
  .did -e adminhelp 5
  .did -e adminhelp 6
  .did -e adminhelp 7
  .did -e adminhelp 8
  .did -e adminhelp 9
  .did -e adminhelp 10
  .did -e adminhelp 11
  .did -e adminhelp 12
  .did -e adminhelp 13
  .did -e adminhelp 14
  .did -e adminhelp 15
  .did -e adminhelp 16
  .did -e adminhelp 17
  .did -e adminhelp 18
  .did -e adminhelp 19
  .did -e adminhelp 20
  ; Page2
  .did -e adminhelp 50
  .did -e adminhelp 51
  .did -e adminhelp 52
  .did -e adminhelp 53
  .did -e adminhelp 54
  .did -e adminhelp 55
  .did -e adminhelp 56
  .did -e adminhelp 57
  .did -e adminhelp 58
  .did -e adminhelp 59
  .did -e adminhelp 60
  .did -e adminhelp 61
  .did -e adminhelp 62
  .did -e adminhelp 63
  .did -e adminhelp 64
  .did -e adminhelp 65
}
alias erasehistory {
  .unset %copytext1 
  .unset %copytext2 
  .unset %copytext3 
  .unset %copytext4 
  .unset %copytext5 
  .unset %copytext6
  .unset %copytext7 
  .unset %copytext8 
  .unset %copytext9 
  .unset %copytext10 
  .unset %copytext11
  .set %ctext1 yes
  .unset %ctext2 
  .unset %ctext3 
  .unset %ctext4 
  .unset %ctext5 
  .unset %ctext6
  .unset %ctext7 
  .unset %ctext8 
  .unset %ctext9 
  .unset %ctext10 
  .unset %ctext11 
}