ChristianEthics-VSIXc V4.3
Updated Sept 2006 to work on VSIXc Chat Network
www.VSIXc.com
;*This file also uses the cami.ce coding at the bottom of the dialog.mrc file
_________________________________________________________________________
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/
__________________________________________________________________________
on *:INPUT:*: { 
  if (/list isin $1) && ($2 == $null) {
    if  ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Full Room Listing.. /list
  }
  if (/list isin $1) && (en isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name English Listing.. /list en
  }
  if (/list isin $1) && (fr isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name French Listing.. /list fr
  }
  if (/list isin $1) && (de isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name German Listing.. /list de
  }
  if (/list isin $1) && (nl isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Dutch Listing.. /list nl
  }
  if (/list isin $1) && (SP isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Spanish or Sports Listing.. /list sp
  }
  if (/list isin $1) && (it isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Italian Listing.. /list it
  }
  if (/list isin $1) && (gn isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name General Listing.. /list gn
  }
  if (/list isin $1) && (GE isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name City Chats Listing.. /list ge
  }
  if (/list isin $1) && (cp isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Computing Listing.. /list cp
  }
  if (/list isin $1) && (ea isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Entertainment Listing.. /list ea
  }
  if (/list isin $1) && (HE isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Health and Medicine Listing.. /list he
  }
  if (/list isin $1) && (il isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Interests Listing.. /list il
  }
  if (/list isin $1) && (lf isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Lifestyles Listing.. /list lf
  }
  if (/list isin $1) && (mu isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Music Listing.. /list mu
  }
  if (/list isin $1) && (pr isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Peers Listing.. /list pr
  }
  if (/list isin $1) && (rl isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Religion Listing.. /list rl
  }
  if (/list isin $1) && (rm isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Romance Listing.. /list rm
  }
  if (/list isin $1) && (tn isin $2) {
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) /gtalk %agent.name Teens Listing.. /list tn
  }
}


on *:EXIT: {
  if ($agent(%agent.name)) /gunload -rs %agent.name %agent.acs
  if ($agent(VRGirl)) /gunload -rs VRGirl VRGirl.acs
  /timer.camistretch off
  /timer.camibreak off
  /timer.camihop off 
}
on *:AGENT: {
  if (!$agent(%agent.name)) {
    timer.camistretch off
    timer.2camibreak off
    timer.2camihop 9999 off
  }
}

on *:START: { 
  .inc %cami.used 
  if (%cami != On) { 
    if ($exists(c:\WINDOWS\msagent\chars\cami.acs) == $true) && ($exists(c:\WINDOWS\msagent\chars\Vrgirl.acs) == $true) {  
      set %cami On
      set %agent.name Cami
      set %agent.acs Cami.acs
      /vrgirl.start
      /panel
      timer 1 3 /splay welcome.wav
      timer.startcami 1 11 /cami.start
      timer 1 21 server vsixc $+ $rand(1,5) $+ .ath.cx
      halt
    }
    if ($exists(c:\WINNT\msagent\chars\cami.acs) == $true) && ($exists(c:\WINNT\msagent\chars\vrgirl.acs) == $true) {  
      set %cami On
      set %agent.name Cami
      set %agent.acs Cami.acs
      /vrgirl.start
      /panel
      timer 1 3 /splay welcome.wav
      timer.startcami 1 11 /cami.start
      timer 1 21 server vsixc $+ $rand(1,5) $+ .ath.cx
      halt
    }
    else {
      /cami
      set %agent.name cami
      /set %agent.acs %agent.name $+ . $+ acs
      timer 1 60 vrgirl.init
      timer 1 70 cami.init 
      timer.camistretch 9999 $rand(1785,1820) /cami.stretch
      timer.2camibreak 9999 $rand(3585,3620) /cami.break
      timer.2camihop 9999 $rand(795,920) /cami.hop
      timer 1 124 /connect
      halt
    }
  }
  if (%agent.name !== $null) && (%cami.stretchce == On) { timer.camistretch 9999 $rand(1785,1820) /cami.stretch
  }
  if (%agent.name !== $null) && (%cami.breakce == On) { timer.2camibreak 9999 $rand(3585,3620) /cami.break
  }
  if (%agent.name !== $null) && (%cami.hopce == On) { timer.2camihop 9999 $rand(795,920) /cami.hop
  }
  if (%soundsce.welcome != Off) { /vrgirl.start 
  }
  if (%soundsce.welcome != Off) && (%agent.name != $null) {
    timer.startcami 1 11 /cami.start
    halt
  }
  if (%soundsce.welcome == Off) && (%agent.name != $null) {  /vrgirl.view 
    /cami.start
    halt
  }
  if (%soundsce.welcome == Off) && (%agent.name == $null) {  /vrgirl.view 
    halt
  }

}
on *:serv:*: { if ($agent(%agent.name)) gtalk -k %agent.name $nick $+ , $1-
}

on *:logon:*: { if ($agent(%agent.name)) gtalk -k %agent.name Logging on..
}

on *:connect: { 
  if ($agent(VRGirl)) { 
    /gshow VRGirl 310 115
    /gtalk VRGirl *Connected!
    /gmove VRGirl 707 419
    halt
  }
  if ($agent(%agent.name)) gshow %agent.name
  if ($agent(%agent.name)) gtalk -k %agent.name *Connected..
}
on *:ERROR: {  if ($agent(%agent.name)) gshow %agent.name
  if ($agent(%agent.name)) gtalk -k %agent.name %nick $+ , *Error $1-
}
on *:Connectfail: {  if ($agent(%agent.name)) gshow %agent.name
  if ($agent(%agent.name)) gtalk -k %agent.name %nick $+ , *Connection failed..
}
on *:ping: {  
  ;if (%pingpong.ce == Off) halt
  ;if ($agent(%agent.name)) gshow %agent.name
  ;if (%agent.name == cami) gplay cami blink
  ;if ($agent(%agent.name)) gtalk -k %agent.name *Ping.. Pong!
}

on *:disconnect: { if ($nick != %nick) halt
  if (%soundsce.disconnected != Off) && ($agent(VRGirl)) { gtalk VRGirl *You have been disconnected..
    if ($agent(VRGirl)) /gmove VRGirl 310 115
  }
  if (%soundsce.disconnected != Off) { halt }
  if ($agent(%agent.name)) gshow %agent.name
  if ($agent(%agent.name)) gtalk -k %agent.name *Disconnected from $server $+ !
  if (%agent.name = cami) gplay %agent.name Wave  
  ;if ($agent(%agent.name)) ghide %agent.name
}
on *:notice:*:#: { if ($agent(%agent.name)) gshow %agent.name
  if (away isin $1) && ($agent(%agent.name)) gtalk -k %agent.name $nick in $right($chan,-9) is now $1 
  if (back isin $1) && ($agent(%agent.name)) gtalk -k %agent.name $nick in $right($chan,-9) is now $1
  elseif ($agent(%agent.name)) gtalk -k %agent.name $nick $right($chan,-9) $1- 
}
on *:join:#: {  
  if ($nick == $me) && (%soundsce.join != Off) && ($agent(VRGirl)) gtalk VRGirl *Joining..
  if ($nick == $me) set -u15 %agent.stopper On
  if ($agent(%agent.name)) gshow %agent.name
  if ($nick == $me) && ($agent(%agent.name)) { gtalk -k %agent.name $nick you've Joined $right($chan,-9)
    halt
  }
  if ($agent(%agent.name)) gtalk -k %agent.name $nick Joined $right($chan,-9)
}
on *:part:#: { 
  if ($nick == $me) && (%soundsce.join != Off) && ($agent(VRGirl)) gtalk VRGirl *Leaving..
  if ($agent(%agent.name)) gshow %agent.name 
  if ($nick == $me) { gtalk -k %agent.name $nick you've Left $right($chan,-9)
    if (%agent.name = cami) gplay %agent.name Wave 
    halt
  }
  if ($agent(%agent.name)) gtalk -k %agent.name $nick Left $right($chan,-9)
  if (%agent.name == cami) gplay %agent.name Wave   
}
on *:quit:#: { 
  if ($nick == $me) && (%soundsce.join != Off) && ($agent(VRGirl)) gtalk VRGirl *Leaving..
  if ($agent(%agent.name)) gshow %agent.name
  if ($nick == $me) { gtalk -k %agent.name $nick you've Left $right($chan,-9)
    if (%agent.name == cami) gplay %agent.name Wave   
    halt
  }
  if ($agent(%agent.name)) gtalk -k %agent.name $nick Left $right($chan,-9) 
  if (%agent.name == cami) gplay %agent.name Wave 
}

on *:kick:#: { 
  if ($agent(%agent.name)) gshow %agent.name
  if ($nick == $me) { if ($agent(%agent.name)) gtalk -k %agent.name $nick you've kicked $knick out of $right($chan,-9)
    if (%agent.name = cami) gplay %agent.name Wave   
    halt
  }
  if ($agent(%agent.name)) gtalk -k %agent.name $nick kicked $knick out of $right($chan,-9)
  if (%agent.name = cami) gplay %agent.name Wave 


}
on *:RAWMode:#: { 
  if (!$agent(%agent.name)) halt 
  if ($agent(%agent.name)) gshow %agent.name 
  if ($$2 == $Me) && (-v isin $1-) && ($nick == $me)  { gtalk %agent.name %nick you've made yourself a spectator 
    halt
  }
  if ($$2 == $Me) && (+v isin $1-) && ($nick == $me)  { gtalk %agent.name %nick you've made yourself a participant  
    halt
  }
  if ($$2 == $Me) && (+q isin $1-) && ($nick == $me)  { gtalk %agent.name %nick you've made yourself an owner 
    halt
  }
  if ($$2 == $Me) && (-q isin $1-) && ($nick == $me)  { gtalk %agent.name %nick you've deownered yourself  
    halt
  }
  if ($$2 == $Me) && (+o isin $1-) && ($nick == $me)  { gtalk %agent.name %nick you've made yourself a host 
    halt
  }
  if ($$2 == $Me) && (-o isin $1-) && ($nick == $me)  { gtalk %agent.name %nick you've dehosted yourself
    halt 
  }
  if ($$2 == $Me) && (-v isin $1-) && ($nick != $me) { gtalk %agent.name $nick made you a spectator
    halt
  } 
  if ($$2 == $Me) && (+v isin $1-) && ($nick != $me) { gtalk %agent.name $nick made you a participant 
    halt
  }
  if ($$2 == $Me) && (+q isin $1-) && ($nick != $me) { gtalk %agent.name $nick made you an owner 
    halt
  }
  if ($$2 == $Me) && (-q isin $1-) && ($nick != $me) { gtalk %agent.name $nick deownered you 
    halt
  }
  if ($$2 == $Me) && (+o isin $1-) && ($nick != $me) { gtalk %agent.name $nick made you a host 
    halt
  }
  if ($$2 == $Me) && (-o isin $1-) && ($nick != $me) { gtalk %agent.name $nick dehosted you 
    halt
  }

  if ($nick == $me) && ( -v isin $1-) && ($$2 != $Me) { gtalk %agent.name %nick you've made $2 a spectator
    halt  
  }
  if ($nick == $me) && ( +v isin $1-) && ($$2 != $Me) { gtalk %agent.name %nick you've made $2 a participant 
    halt
  }
  if ($nick == $me) && ( -q isin $1-) && ($$2 != $Me) { gtalk %agent.name %nick you've deownered $2 
    halt
  }
  if ($nick == $me) && ( +q isin $1-) && ($$2 != $Me) { gtalk %agent.name %nick you've made $2 an owner 
    halt
  }
  if ($nick == $me) && ( -o isin $1-) && ($$2 != $Me) { gtalk %agent.name %nick you've dehosted $2 
    halt
  }
  if ($nick == $me) && ( +o isin $1-) && ($$2 != $Me) { gtalk %agent.name %nick you've made $2 a host 
    halt
  }  
  if ($$2 == $nick) && (-v isin $1-)  { gtalk %agent.name $nick made $nick a spectator 
    halt
  } 
  if ($$2 == $nick) && (+v isin $1-)  { gtalk %agent.name $nick made $nick a participant 
    halt
  }
  if ($$2 != $me) && ($nick != $me) && (+q isin $1-)  { gtalk %agent.name $nick made $nick an owner 
    halt
  }
  if ($$2 == $nick) && (-q isin $1-)  { gtalk %agent.name $nick deownered $nick 
    halt
  }
  if ($$2 == $nick) && (+o isin $1-) { gtalk %agent.name $nick made $nick a host
    halt
  }
  if ($$2 == $nick) && (-o isin $1-) { gtalk %agent.name $nick dehosted $nick
    halt
  }
  if ($nick == $me) { gtalk -k %agent.name $nick you've set Mode $1- in $right($chan,-9)
    halt
  }
  gtalk -k %agent.name $nick set Mode: $1- in $right($chan,-9)
}

on *:text:*:?: {  if ($agent(%agent.name)) gshow %agent.name
  if (%agent.stopper == On) halt
  if ($agent(%agent.name)) gtalk %agent.name $nick whispered you.
}
on *:text:*:*: {
  if (%agent.stopper == On) halt
  if (%Myname1 == Gwen) && ($chan == #[gn][en]Word~Frenzy) return
  if (%nick isin $1-) { 
    if (%2alerthalter. [ $+ [ $nick ] ] == 3) halt 
    inc -u30 %2alerthalter. [ $+ [ $nick ] ] true
    if (%soundsce.alert != Off) && ($agent(VRGirl))  { gtalk VRGirl *Alert.  *Your name was said on screen..  
      if (%alertonoff == Off) /splay alert.wav
    }  
    if (%soundsce.alert == Off) && ($agent(VRGirl)) { gtalk VRGirl *Alert sounds are off.. 
    }  
    if ($agent(%agent.name)) gshow %agent.name
    if ($agent(%agent.name)) gtalk %agent.name $nick said your name in $right($chan,-9) $+ ..
    if (%notifyonoff != on) && (%soundsce.alert != Off) { 
      halt
    }
    if (%Myname2 isin $1-) && (%2alertonoff == on) {  
      if (%2alerthalter. [ $+ [ $nick ] ] == 3) halt 
      inc -u30 %2alerthalter. [ $+ [ $nick ] ] true
      if (%soundsce.alert != Off) && ($agent(VRGirl)) { gtalk VRGirl *Alert.  *Your name was said on screen.. 
        /splay alert.wav
      }  
      if (%soundsce.alert == Off) && ($agent(VRGirl)) { gtalk VRGirl *Alert sounds are off.. 
      }  
      if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick said %Myname2 in $right($chan,-9) 
      if ($agent(%agent.name)) && (%intervals.used <= 3) gtalk *You can add more alert names in the Notify Module..
      halt
    }
    if (%Myname2 isin $1-) && (%notifyonoff == on) {  
      if (%2alerthalter. [ $+ [ $nick ] ] == 3) halt 
      inc -u30 %2alerthalter. [ $+ [ $nick ] ] true
      if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick said %Myname2 in $right($chan,-9) 
      halt
    }
    if (%Myname3 isin $1-) && (%alertonoff == on) { 
      if (%2alerthalter. [ $+ [ $nick ] ] == 3) halt 
      inc -u30 %2alerthalter. [ $+ [ $nick ] ] true
      if (%soundsce.alert != Off) && ($agent(VRGirl)) { gtalk VRGirl *Alert.  *Your name was said on screen.. 
        /splay alert.wav
      }  
      if (%soundsce.alert == Off) && ($agent(VRGirl)) { gtalk VRGirl *Alert sounds are off.. 
      }  
      if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick said %Myname3 in $right($chan,-9) 
      halt
    }
    if (%Myname3 isin $1-) && (%notifyonoff == on) { 
      if (%2alerthalter. [ $+ [ $nick ] ] == 3) halt 
      inc -u30 %2alerthalter. [ $+ [ $nick ] ] true
      if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick said %Myname3 in $right($chan,-9) 
      halt
    }
    if (%Myname4 isin $1-) && (%alertonoff == on) { 
      if (%2alerthalter. [ $+ [ $nick ] ] == 3) halt 
      inc -u30 %2alerthalter. [ $+ [ $nick ] ] true
      if (%soundsce.alert != Off) && ($agent(VRGirl)) { gtalk VRGirl *Alert.  *Your name was said on screen.. 
        /splay alert.wav
      }  
      if (%soundsce.alert == Off) && ($agent(VRGirl)) { gtalk VRGirl *Alert sounds are off.. 
      }  
      if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick said %Myname4 in $right($chan,-9) 
      halt
    }
    if (%Myname4 isin $1-) && (%notifyonoff == on) { 
      if (%2alerthalter. [ $+ [ $nick ] ] == 3) halt 
      inc -u30 %2alerthalter. [ $+ [ $nick ] ] true
      if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick said %Myname4 in $right($chan,-9) 
      halt
    }
    if (%Myname5 isin $1-) && (%alertonoff == on) { 
      if (%2alerthalter. [ $+ [ $nick ] ] == 3) halt 
      inc -u30 %2alerthalter. [ $+ [ $nick ] ] true
      if (%soundsce.alert != Off) && ($agent(VRGirl)) { gtalk VRGirl *Alert.  *Your name was said on screen..  
        /splay alert.wav
      }  
      if (%soundsce.alert == Off) && ($agent(VRGirl)) { gtalk VRGirl *Alert sounds are off.. 
      }  
      if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick said %Myname5 in $right($chan,-9) 
      halt
    }
    if (%Myname5 isin $1-) && (%notifyonoff == on) { 
      if (%2alerthalter. [ $+ [ $nick ] ] == 3) halt 
      inc -u30 %2alerthalter. [ $+ [ $nick ] ] true
      if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick said %Myname5 in $right($chan,-9) 
      halt
    }
    if (!trivia isin $1-) { if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick started trivia in $right($chan,-9) $+ 
    }
    if (!wordfrenzy isin $1-) { if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick started wordfrenzy in $right($chan,-9) $+ 
    }
    if (!wfstart isin $1-) { if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick started wordfrenzy in $right($chan,-9) $+ 
    }
    if (!wfstop isin $1-) { if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick stopped wordfrenzy in $right($chan,-9) $+ 
    }
    if (!strivia isin $1-) { if ($agent(%agent.name)) gshow %agent.name
      if ($agent(%agent.name)) gtalk %agent.name $nick stopped trivia in $right($chan,-9) $+ 
    }
  }
