Bible Passage For Bot

Please Register to submit score.

Average Score	9.2
Scores Submitted	6
Date Added	Feb 29, 2008
Last Updated	Mar 28, 2008
Tags	bible passage socket

Introduction

Ok heres my first attempt at a socket script. I wanted to make something different and i never seen a script like this so I made A Bible Passage Look up. copy and paste in ur own or ur bots remotes. if you load in ur own trigger is /bible john 3 16 or any bible passage for others to trigger it it's !bible john 3 16 or like i said any bible passage.. well enjoy...

Grab the Code

on *:text:!bible*:#: {
  if ($3 !isnum) || ($chr(58) isin $3) { 
    msg $chan 14,1[12,1�0,1::Syntax0,1::12,1�14,1]14,1[12,1�0,1:: !bible john 3 16 0,1::12,1�14,1]
  }
  else {
    inc -u15 $+(%,bibleflood,.,$chan,.,$nick)
    if ($($+(%,bibleflood,.,$chan,.,$nick),2) = 3) { $+(.,timerbibleflood,.,$chan,.,$nick) 1 1 msg $chan 14,1[12,1�0,1::Stop Flooding Ignored For A Few Seconds0,1::12,1�14,1] }
    if ($($+(%,bibleflood,.,$chan,.,$nick),2) >= 4) { 
    }
    else {
      if ($sock(bverse)) .sockclose bverse 
      set %verse $2 $+ $chr(43) $+ $3 $+ $chr(37) $+ 3A $+ $4
      set %Book Book $chr(32) :: $2
      set %Chapter Chapter $chr(32) :: $3
      set %chan $chan
      sockopen bverse bibleresources.bible.com 80
    }
  }
}
on *:SOCKOPEN:bverse: {
  sockwrite -nt $sockname GET /passagesearchresults.php?passage1= $+ %verse $+ &version1=31 HTTP/1.1
  sockwrite -nt $sockname Host: bibleresources.bible.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:bverse: {
  if ($sockerr) {
    msg %chan 14,1[12,1�0,1:: !!Socket Error!! 0,1::12,1�14,1]
  }
  else { 
    var %Bible
    sockread %Bible
    if (*not found* iswm %Bible) {
      msg %chan 14,1[12,1�0,1:: Sorry No Such Bible Passage 0,1::12,1�14,1]
      unset %Book %Chapter %verse %chan
      sockclose bverse
    }
    if (*sup id=* iswm %Bible ) {
      var %passage $htmlfree(%Bible)
      msg %chan 14,1[12,1�0,1:: %Book 0,1::12,1�14,1]14,1[12,1�0,1:: %Chapter 0,1::12,1�14,1]14,1[12,1�0,1:: Verse :: %passage 0,1::12,1�14,1]14,1[12,1�0,1:: Napa182's :: Bible Script 0,1::12,1�14,1]
      unset %Book %Chapter %verse %chan 
      sockclose bverse
    }    
  }
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's Bible Passage Script 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1�15,1�0,1�0,1� ��X�Ǯ��t0��X׻ �0,1�15,1�14,1�)�
}
alias bible {
  if ($2 !isnum) || ($chr(58) isin $2) {
    echo -a 14,1[12,1�0,1::Syntax0,1::12,1�14,1]14,1[12,1�0,1:: /bible john 3 16 0,1::12,1�14,1]
  }
  else {
    if ($sock(bverse)) .sockclose bverse 
    set %verse $1 $+ $chr(43) $+ $2 $+ $chr(37) $+ 3A $+ $3
    set %Book Book $chr(32) :: $1
    set %Chapter Chapter $chr(32) :: $2
    set %chan $chan
    sockopen bverse bibleresources.bible.com 80
  }
}
alias htmlfree { 
  var %b,%p 
  %p = $regsub($1-,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%b)
  %b = $remove(%b,&nbsp;) 
  return %b 
}

Comments

(2) RSS

Go to Bottom

ZiX

Comments: 52

mIRC Snippet: Bible Passage For Bot
Posted on Feb 29, 2008 6:49 pm

Very Nice Script napa182.

napa182

Comments: 735

mIRC Snippet: Bible Passage For Bot
Posted on Feb 29, 2008 7:03 pm

thank you ZiX

Bible Passage For Bot

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (29)

Sponsors

		Head Admin For irc.EzzyChat.com California ÎÇ ×Ç ÑÎ KÅ
Last seen: Jul 06, 2008 Profile \| Website Friends (29) Snippets (40) Images (1) Comments Received (343) Comments Submitted (735) Forum Posts (135)