if you look all the way down to
on *:dialog:phmbible:sclick:7:{
if (%phm.bible.trans == NLT) { /nlt %temp.bibleinfo }
if (%phm.bible.trans == NIV) { /niv %temp.bibleinfo }
if (%phm.bible.trans == KJV) { /kjv %temp.bibleinfo }
}
its not returning the info
it says something about the channel,
im not sure what else to do that i havent tried,
i even had the variable for the channel enter when the dialog opens, but i dont know what else to do.
alias nlt {
/set %book $1
/set %verse $gettok($2,2,58)
/set %chap $gettok($2,1,58)
/set %3A $+($chr(37),3A)
/set %channel.name $chan
/set %version NLT
/set %name New Living Translation
/blah
}
alias niv {
/set %book $1
/set %verse $gettok($2,2,58)
/set %chap $gettok($2,1,58)
/set %3A $+($chr(37),3A)
/set %channel.name $chan
/set %version NIV
/set %name New International Version
/blah
}
alias kjv {
/set %book $1
/set %verse $gettok($2,2,58)
/set %chap $gettok($2,1,58)
/set %3A $+($chr(37),3A)
/set %channel.name $chan
/set %version KJV
/set %name King James Version
/blah
}
alias blah {
/sockopen bible biblegateway.com 80
/set %url.name $+(/cgi-bin/bible?language=english&passage=,%book,+,%chap,%3A,%verse,&version=,%version)
}
on 1:sockopen:bible:{
/echo -a 12 The Verses You Requested Are Being Retrived
/sockwrite -n bible GET %url.name $crlf
}
on 1:sockclose:bible:{ /echo -a 12 Task Complete | /msg %channel.name 2 %name $+([,%version,]) %book $+(%chap,:,%verse) }
on 1:sockread:bible:{
var %tmp
sockread %tmp
if (<SUP> isin %tmp) { /set %yes 1 }
if (</CONTENT> isin %tmp) { /unset %yes }
if (<h3> isin %tmp) { /unset %yes }
if (%yes == 1) {
/set %remove $remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove(%tmp,<BR>),<SUP>),</SUP>), ),"),</a>]),[<a href="#footnote),">),1),2),3),4),5),6),7),8),9),0),_),<I>),</I>),a href),</a>),(<="#crossref))
/send
}
}
alias send { if (%remove == $null) { halt } | else { /msg %channel.name 10 %remove } }
alias mdx { return $mircdir\dll\mdx.dll }
alias ctl { return $mircdir\dll\ctl_gen.mdx }
alias bars { return $mircdir\dll\bars.mdx }
alias views { return $mircdir\dll\views.mdx }
alias icon { return $mircdir\dll\ $+ $1- }
alias phmbible { set %channel.name $chan | dialog -m phmbible phmbible }
dialog phmbible {
title "PHM-Network On-Line Bible"
size -1 -1 260 280
icon graphics\icon.ico, index
button "Done",1, 215 235 40 40,flat,ok
text "PHM-Network",2,50 15 220 30
text "On-Line Bible",3,50 50 220 30
combo 4,10 90 60 80,drop
text "Book Chapter Verse",5,80 90 180 20
edit %temp.bibleinfo ,6,40 120 180 20,center
button "Get Verse",7,40 150 180 40,flat
Check "Enable Biblebot?",8,10 200 100 30,push
text "Trigger?",10, 120 200 100 25
combo 9,200 200 40 280,drop
text "©PHM-Network 2004",11,10 250 180 20
}
on *:dialog:phmbible:init:0: {
if (%remote.phmbible == on) { did -c phmbible 8 }
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetFont $dname 2,3 -22 400 Comic Sans MS
dll $mdx SetFont $dname 5,10 -18 400 Comic Sans MS
.did -a $dname 4 NLT
.did -a $dname 4 NIV
.did -a $dname 4 KJV
.did -a $dname 9 !
.did -a $dname 9 @
.did -a $dname 9 $
.did -a $dname 9 %
.did -a $dname 9 ^
.did -a $dname 9 &
.did -a $dname 9 *
.did -a $dname 9 +
}
on *:dialog:phmbible:sclick:8:{
if ($did(phmbible,8).state == 1) { set %remote.phmbible on }
else { set %remote.phmbible off }
}
on *:dialog:phmbible:sclick:4:{
if ($did(4) == NLT) { set %phm.bible.trans NLT }
if ($did(4) == NIV) { set %phm.bible.trans NIV }
if ($did(4) == KJV) { set %phm.bible.trans KJV }
}
on *:dialog:phmbible:sclick:7:{
if (%phm.bible.trans == NLT) { /nlt %temp.bibleinfo }
if (%phm.bible.trans == NIV) { /niv %temp.bibleinfo }
if (%phm.bible.trans == KJV) { /kjv %temp.bibleinfo }
}
on *:dialog:phmbible:edit:6:{ set %temp.bibleinfo $did($dname,6) }
on *:dialog:phmbible:sclick:9:{
if ($did(9) == !) { set %trigger.style.phmbible ! }
if ($did(9) == @) { set %trigger.style.phmbible @ }
if ($did(9) == $) { set %trigger.style.phmbible $ }
if ($did(9) == %) { set %trigger.style.phmbible % }
if ($did(9) == ^) { set %trigger.style.phmbible ^ }
if ($did(9) == &) { set %trigger.style.phmbible & }
if ($did(9) == *) { set %trigger.style.phmbible * }
if ($did(9) == +) { set %trigger.style.phmbible + }
}
