ChristianEthics-VSIXc V3.1
Updated Sept 2006 to work on VSIXc Chat Network
www.VSIXc.com
__________________________________________________________________________
E-mail: ChristianEthics2@yahoo.ca 
Messenger: ChristianEthics@hotmail.com 
Home page: http://ca.geocities.com/christianethics2
Message Board: http://groups.yahoo.com/group/ChristianEthics_BibleBotDownloadZone/
__________________________________________________________________________

@command Center 2004

-allows you to give your webtv hosts/owners the ability to host/unhost kick/ban
and change some room modes, by using a remote control system in your script.
-All room hosts/owners including webtv can use these commands.
-August 2006 updated unhost to work, and partial nick kick! and ban!
-----------------------------------------------------------------------

on *:TEXT:*@help*:#: { 
  /privmsg $nick @host name
  /privmsg $nick @unhost name
}

on *:TEXT:*@remove*:#: { tokenize 32 $vstrip($1-)
  (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      /access $chan delete deny $2
      /msg $chan Unbanning $2
    }
  }
}
on *:TEXT:*@unban*:#: {  tokenize 32 $vstrip($1-)
  (%webtvcommandcenter == On) { tokenize 32 $vstrip($1-)
    if ($nick isop $chan) {
      /access $chan delete deny $2
      /msg $chan Unbanning $2
    }
  }
}
on *:TEXT:*@knocks on*:#: { (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      /mode $chan +u 
      /msg $chan Room Knocks are on.
    }
  }
}
on *:TEXT:*@knocks off*:#: { (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      /mode $chan -u 
      /msg $chan Room Knocks are off.
    }
  }
}

on *:TEXT:*@moderated on*:#: { (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      /mode $chan +m 
      /msg $chan Moderated Room Set
    }
  }
}
on *:TEXT:*@moderated off*:#: { (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      /mode $chan -m
      /msg $chan Moderated Room Off
    }
  }
}
on *:TEXT:*@invite on*:#: { (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      /mode $chan +i 
      /msg $chan Invite Only Mode Room On
    }
  }
}
on *:TEXT:*@invite off*:#: { (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      /mode $chan -i
      /msg $chan Invite Only Mode Off
    }
  }
}
on *:TEXT:*@room whispers on*:#: { (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      /mode $chan +w 
      /msg $chan Room Whispers On
    }
  }
}
on *:TEXT:*@room whispers off*:#: { (%webtvcommandcenter == On) {
    if ($nick isop $chan) {
      /mode $chan -w
      /msg $chan Room Whispers Off
    }
  }
}
on *:TEXT:*@guest whispers on*:#: { (%webtvcommandcenter == On) {
    if ($nick isop $chan) {
      /mode $chan +W 
      /msg $chan Guest Whispers On
    }
  }
}
on *:TEXT:*@guest whispers off*:#: { (%webtvcommandcenter == On) {
    if ($nick isop $chan) {
      /mode $chan -W
      /msg $chan Guest Whispers Off
    }
  }
}

on *:TEXT:*@host*:#: { tokenize 32 $vstrip($1-)
  (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      if ($2 = $me) { 
        /msg $chan You can't host me.
        halt
      }
      /mode $chan +o $2 
      /msg $chan Hosting $2
    }
  }
}
on *:TEXT:*@unhost*:#: { tokenize 32 $vstrip($1-)
  (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      if ($2 = $me) { 
        /msg $chan You can't unhost me.
        halt
      }
      /mode $chan -o $2 
      /msg $chan Un-Hosting $2
    }
  }
}
on *:TEXT:*@kick*:#: { tokenize 32 $vstrip($1-)
  (%webtvcommandcenter == On) { 
    if ($2 = $me) { 
      /msg $chan You can't kick me
      halt
    }
    if ($nick isop $chan) {
      /kick $chan $2 $3 
      /msg $chan kicking $2
    }
  }
}
on *:TEXT:*@ban*:#: { tokenize 32 $vstrip($1-)
  (%webtvcommandcenter == On) { 
    if ($2 = $me) { 
      /msg $chan You can't kick me
      halt
    }
    if ($nick isop $chan) {
      /access $chan add Deny $2 $3
      if ($3 = $null) $3 = 60
      msg $chan To remove this ban use: @remove $2
      /kick $chan $2 $3 (Banned $3 minute(s)) 
    }
  }
}
on *:TEXT:*@guestban on*:#: { tokenize 32 $vstrip($1-) 
  (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      if ($3 = $null) $3 = indefinate
      /access $chan add deny >*!*@*$* $3 Guest-Ban
      /msg $chan Adding Guest Ban For: $3 Minute(s)
    }
  }
}
on *:TEXT:*@guestban off*:#: { tokenize 32 $vstrip($1-)
  (%webtvcommandcenter == On) { 
    if ($nick isop $chan) {
      /access $chan delete deny >*!*@*$*
      /msg $chan Removing Guest Ban.
    }
  }
}
on *:TEXT:*@allow webtv*:#: {  
  (%webtvcommandcenter == On) {
    if ($nick isop $chan) {
      /access $chan add VOICE >*!*D21DB211*@*$* 
      /msg $chan Adding Webtv Access Entry.
    }
  }
}
on *:TEXT:*@allow webtv off*:#: {  
  (%webtvcommandcenter == On) {
    if ($nick isop $chan) {
      /access $chan delete VOICE >*!*D21DB211*@*$* 
      /msg $chan Removing Webtv Access Entry.
    }
  }
}
on *:LOAD: {  set %webtvcommandcenter On 
  /echo $color(highlight text) -at [WebTv Command Center Is On]
  /echo $color(highlight text) -at All hosts/owners, including webtv are able to use this feature.
  /splay notify.wav 
}
on *:UNLOAD: { set %webtvcommandcenter Off 
  /echo $color(highlight text) -at [WebTv Command Center Is Off]
  /splay unload.wav 
}

menu menubar { halt
  -
  $iif(%webtvcommandcenter == On,$style(1)) @Command Center: /webtvcommands
  -
}
alias webtvcommands dialog -m webtvcommands webtvcommands

dialog webtvcommands { 
  title "@Command Center"
  icon $mircexe , 18
  size -1 -1 150 180
  option dbu
  box "", 1, 2 1 146 178

  button "On", 4, 10 10 15 9
  button "Off", 5, 28 10 15 9
  text "", 34, 47 12 30 9
  text "@command Center Information", 12, 8 26 80 9
  text "@command Center allows you to provide your webtv hosts and owners with the ability to kick, ban, host, unhost, change room modes etc within your room.  This works through a 'remote @command' system. They are able to type onto the screen @commands, which tell your bot to kick or ban or host or change room modes etc..", 13, 8 35 135 60
  text "Here are the @commands: ", 14, 8 80 135 7
  text "@host name", 15, 10 88 40 7
  text "@unhost name", 16, 70 88 40 7
  text "@kick name message", 21, 10 96 70 7
  text "@ban name minutes message", 22, 70 96 75 7
  text "@invite on", 17, 10 104 40 7
  text "@invite off", 18, 70 104 40 7
  text "@moderated on", 19, 10 112 40 7
  text "@moderated off", 20, 70 112 40 7
  text "@room whispers on", 23, 10 120 55 7
  text "@room whispers off", 24, 70 120 455 7
  text "@guest whispers on", 25, 10 128 55 7
  text "@guest whispers off", 26, 70 128 55 7
  text "@guestban on", 28, 10 136 45 7
  text "@guestban off", 29, 70 136 45 7
  text "@allow webtv", 30, 10 144 45 7
  text "@allow webtv off", 31, 70 144 70 7
  text " Example: @kick Gwen 60 Profanity", 32, 15 151 140 7
  text "Webtv hosts/owners are able to use all of your !host commands and remote commands also.", 33, 8 162 140 20
}
on *:DIALOG:webtvcommands*:init:*: {
  var %c did -a $dname, 
  %c 34 %webtvcommandcenter
}
on *:DIALOG:webtvcommands:sclick:4: { /set %webtvcommandcenter On
  /echo $color(highlight text) -at [WebTv Command Center Is On]
  /echo $color(highlight text) -at All hosts/owners, including webtv are able to use this feature.
  /splay notify.wav  
  did -a $dname 34 %webtvcommandcenter
}
on *:DIALOG:webtvcommands:sclick:5: { /set %webtvcommandcenter Off 
  /echo $color(highlight text) -at [WebTv Command Center Is Off]
  /splay unload.wav 
  did -a $dname 34 %webtvcommandcenter
}
