[sword-devel] Sword bot for mIRC?

[Don A. Elbourne Jr.]

I was looking for something that would run within mIRC. Chris already has a
diatheke bot as an eggdrop, but my host does not allow IRC bots to be run on
the server.

I was thinking something very simple, like just a passage lookup. The one I
use now is good and simple. I'll copy the main code below. Someone I met on
IRC sent it to me, I do not know who created it. It only has the KJV, NIV,
and NAS. I think it would be cool to be able to have all the Sword modules
available. I was thinking of trying my hand at doing it myself, but I don't
really know what I'm doing :-) If someone experienced with this type of
thing wanted to put something together, I believe it would be useful.

Don A. Elbourne Jr.
http://elbourne.org

<snip Biblebot code>

To use BibleBot features, type [4niv|12nas|6kjv] [4book]
[4chapter:verse] Example: niv John 3:16 or kjv Isa 40:30-31
alias biblehelp say To use BibleBot features, type [4niv|12nas|6kjv]
[4book] [4chapter:verse] Example: niv John 3:16 or kjv Isa 40:30-31
on 1:TEXT:*niv*:?,#: {
  if (%botswitch == Off) halt
  if ( niv isin $1 ) bible niv msg $chan $2-
}
on 1:TEXT:*kjv*:?,#: {
  if (%botswitch == Off) halt
  if ( kjv isin $1 ) bible kjv msg $chan $2-
}
on 1:TEXT:*nas*:?,#: {
  if (%botswitch == Off) halt
  if ( nas isin $1 ) bible nas msg $chan $2-
}
alias niv ba niv $1-
alias kjv ba kjv $1-
alias nas ba nas $1-
alias ba { if ($server == $null) { bible $1 echo -a $2- }
else { bible $1 msg $active $2- } }
alias bible {
  if ( $4 == 3 || $4 == 1 || $4 == 2 ) { set %x1 $4 $+ $5  |  set %x2 $6 }
  else { set %x1 $4  |  set %x2 $5 }
  set %xname $read -s $+ %x1 $mircdir\book.txt
  if (%xname == $null) { $2 $3 No such book: %x1 | goto end }
  set %xfile %xname $+ .txt
  if ( $chr(45) isin %x2 ) {
    set %xChVer $gettok(%x2,1,45)
    set %xV2 $gettok(%x2,2,45)
    set %xCh $gettok(%xChVer,1,58)
    set %xV1 $gettok(%xChVer,2,58)
    %xVdiff = %xV2 - %xV1
    if (%xVdiff > 3) set %xVdiff 3
    set %xcount 0
    :loop
    if (%xcount <= %xVdiff) {
      %xCurV = %xV1 + %xcount
      set %xV $read -s $+ %xCh $+ : $+ %xCurV $mircdir\ $+ $1 $+ \ $+ %xfile
      if (%xV == $null) { $2 $3 No such chap/verse: %xchap $+ : $+ %xCurV |
goto end }
      timer $+ %xcount 1 %xcount $2 $3 %color1 4 $+ - $+ $read -s- $+
%xname $mircdir\book.txt %xCh $+ : $+ %xCurV 6 $+ - $+ %color2 %xV %color1
$+ ( $+ $1 $+ )
      inc %xcount
      goto loop
    }
    else goto end
  }
  set %xv $read -s $+ %x2 $mircdir\ $+ $1 $+ \ $+ %xfile
  if (%xv == $null) { $2 $3 No such chap/verse: %x2  | goto end }
  $2 $3 %color1 4 $+ - $+ $read -s- $+ %xname $mircdir\book.txt %x2 6 $+ -
$+ %color2 %xv %color1 $+ ( $+ $1 $+ )
  :end
  unset %x*
}

</snip Biblebot code>



> -----Original Message-----
> From: owner-sword-devel@crosswire.org
> [mailto:owner-sword-devel@crosswire.org]On Behalf Of David Overcash
> Sent: Friday, August 31, 2001 6:35 PM
> To: sword-devel@crosswire.org
> Subject: RE: [sword-devel] Sword bot for mIRC?
>
>
> Hmm
> What exactly are you lookin for in the bot?
> I am willing to put one together, if someone else can run it (I only have
> 56K)
>
> -Dave Overcash
>
> -----Original Message-----
> From: owner-sword-devel@crosswire.org
> [mailto:owner-sword-devel@crosswire.org]On Behalf Of Chris Little
> Sent: Thursday, August 30, 2001 11:29 PM
> To: sword-devel@crosswire.org
> Subject: RE: [sword-devel] Sword bot for mIRC?
>
>
> I guess no one has.
>
> I've added a mIRC bot to the sourceforge wishlist & hope someone will be
> interested in working on this.  Public IRC is a surprisingly good place
> for fellowship and witnessing and these kind of scripts are a great tool
> for that.
>
> --Chris
>
> > -----Original Message-----
> > From: owner-sword-devel@crosswire.org
> > [mailto:owner-sword-devel@crosswire.org] On Behalf Of Don A.
> > Elbourne Jr.
> > Sent: Wednesday, August 29, 2001 12:32 PM
> > To: sword-devel@crosswire.org
> > Subject: [sword-devel] Sword bot for mIRC?
> >
> >
> > Has anyone worked on a Sword based bot for Mirc? I've seen
> > Chris Little's TCL for eggdrop/diatheke, but I don't think
> > TCL will work from within mIRC.
> >
> > Don A. Elbourne Jr.
> > http://elbourne.org
> >
>