Bible Passage For Bot
Platform: mIRC
Published Feb 29, 2008
Updated Jul 24, 2008
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...
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=9 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? ?ט?Ǯ0??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, )
return %b
}