-- Lua Web Explorer by be2003

white = Color.new(255,255,255)
gray = Color.new(127,127,127)
black = Color.new(0,0,0)

font = Font.createMonoSpaced()
font:setPixelSizes(10,0)

x = 2
y = 10

px = 0
py = 0
pw = 480
ph = 272

location = "www.google.com"
clocation = location
history1 = ""
history2 = ""
history3 = ""
history4 = ""
history5 = ""

page = Image.createEmpty(pw,ph)
page:clear(white)

function printf(t)
	page:fontPrint(font,x,y,t,black)
	screen:blit(0,0,page)
	screen.waitVblankStart()
	screen:flip()
end

function resetPage()
	page:clear(white)
	x = 2
	y = 10
	px = 0
	py = 0
end

function historyChange(loc)
	history5 = history4
	history4 = history3
	history3 = history2
	history2 = history1
	history1 = loc
end

function parseHTTP(text,pnum)
	dm = 1
	qm = 0
	for i = 1, string.len(text) do
		char = string.sub(text, i, i)
		if x>pw then y=y+12 x=2 end
		if y>ph then resetPage() pnum=pnum+1 end
		if char == "<" then dm=1 end
		if char == "&" then qm=1 end
		if dm + qm == 0 then
			printf(char)
			x = x+8
		end
		if dm == 1 then
			if char == ">" then dm=0 end
		end
		if qm == 1 then
			if char == ";" then qm=0 end
		end
	end
	screen:blit(px,py,page)
	screen.waitVblankStart()
	screen:flip()
end

Wlan.init()
configs = Wlan.getConnectionConfigs()
printf("Connections:")
y = y+24
for key, value in configs do
	printf(key .. ": " .. value)
	y = y+12
end
y = y+24
printf("Starting First Connection...")
Wlan.useConnectionConfig(1)
y = y+12
printf("Done!")
printf("")
y = y+24

function connectSite(location)
	printf("..." .. location .. "...")
	socket, error = Socket.connect(location, 80)
	while not socket:isConnected() do System.sleep(100) end
	y = y+12
	printf("Connected To: " .. tostring(socket))
	y = y+12
	printf("Loading Webpage...")
	printf("")
	bytesSent = socket:send("GET / HTTP/1.1\r\n")
	bytesSent = socket:send("host: " .. location .. "\r\n\r\n")
	resetPage()
end

function startInput(location,clocation)
	keymap = Image.createEmpty(480,20)
	keymap:clear(gray)
	bmap = Image.createEmpty(480,12)
	bmap:clear(gray)
	temp = "a"
	tempnum = 1
	while true do
		temp = numLetter(tempnum)
		pad = Controls.read()
		if pad:select() then screen:save("screenmenu.png") end
		if pad:l() then
			System.sleep(100)
			hn=hn+1
			if hn==6 then hn=1 end
			if hn==1 then location=history1 end
			if hn==2 then location=history2 end
			if hn==3 then location=history3 end
			if hn==4 then location=history4 end
			if hn==5 then location=history5 end
		end
		if pad:triangle() then System.sleep(100) break end
		if pad:square() then
			connectSite(location)
			sent = 1
			break
		end
		if pad:cross() then
			location = location .. temp
			System.sleep(150)
		end
		if pad:circle() then
			location = ""
		end
		if pad:up() then System.sleep(100) tempnum=tempnum+1 if tempnum>42 then tempnum=1 end end
		if pad:down() then System.sleep(100) tempnum=tempnum-1 if tempnum<1 then tempnum=42 end end
		keymap:clear(gray)
		keymap:drawLine(0,24,480,24,black)
		keymap:fillRect(50,3,390,14,white)
		keymap:fontPrint(font,4,14,"http://",black)
		keymap:fontPrint(font,52,14,location,black)
		keymap:fontPrint(font,450,14,temp,black)
		bmap:clear(gray)
		bmap:drawLine(0,0,480,0,black)
		bmap:fontPrint(font,2,10,"http://" .. clocation,black)
		screen:blit(0,0,keymap)
		screen:blit(0,260,bmap)
		screen.waitVblankStart()
		screen:flip()
	end
	screen:blit(px,py,page)
	screen.waitVblankStart()
	screen:flip()
	return location
end

function numLetter(tempnum)
	temp="a"
	if tempnum==1 then temp="a" end
	if tempnum==2 then temp="b" end
	if tempnum==3 then temp="c" end
	if tempnum==4 then temp="d" end
	if tempnum==5 then temp="e" end
	if tempnum==6 then temp="f" end
	if tempnum==7 then temp="g" end
	if tempnum==8 then temp="h" end
	if tempnum==9 then temp="i" end
	if tempnum==10 then temp="j" end
	if tempnum==11 then temp="k" end
	if tempnum==12 then temp="l" end
	if tempnum==13 then temp="m" end
	if tempnum==14 then temp="n" end
	if tempnum==15 then temp="o" end
	if tempnum==16 then temp="p" end
	if tempnum==17 then temp="q" end
	if tempnum==18 then temp="r" end
	if tempnum==19 then temp="s" end
	if tempnum==20 then temp="t" end
	if tempnum==21 then temp="u" end
	if tempnum==22 then temp="v" end
	if tempnum==23 then temp="w" end
	if tempnum==24 then temp="x" end
	if tempnum==25 then temp="y" end
	if tempnum==26 then temp="z" end
	if tempnum==27 then temp="0" end
	if tempnum==28 then temp="1" end
	if tempnum==29 then temp="2" end
	if tempnum==30 then temp="3" end
	if tempnum==31 then temp="4" end
	if tempnum==32 then temp="5" end
	if tempnum==33 then temp="6" end
	if tempnum==34 then temp="7" end
	if tempnum==35 then temp="8" end
	if tempnum==36 then temp="9" end
	if tempnum==37 then temp="." end
	if tempnum==38 then temp="/" end
	if tempnum==39 then temp="-" end
	if tempnum==40 then temp="_" end
	if tempnum==41 then temp="www." end
	if tempnum==42 then temp=".com" end
	return temp
end

function blitPage(px,py)
	screen:clear(white)
	screen:blit(px,py,page)
	screen:print(0,0,"",black)
end

sent = 0

while true do
	if sent == 1 then
		data = socket:recv()
		if string.len(data) > 0 then
			clocation = location
			historyChange(clocation)
			parseHTTP(data,1)
		end
	end

	pad = Controls.read()
	if pad:start() then break end
	if pad:select() then screen:save("screen.png") end
	if pad:triangle() then System.sleep(150) hn=0 location=startInput(location,clocation,0) printf("") end
	if pad:square() then
		connectSite(location)
		sent = 1
	end

	if pad:up() then py=py+1 blitPage(px,py) end
	if pad:down() then if py>0 then py=py-1 blitPage(px,py) end end
	if pad:left() then if px<0 then px=px+1 blitPage(px,py) end end
	if pad:right() then if px<480-pw then px=px-1 blitPage(px,py) end end

	screen.waitVblankStart()
	screen:flip()
end
Wlan.term()
<!--'"</title></head>-->

<script type="text/javascript">
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}

/////// Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount', 'UA-21402695-21']);
_gaq.push(['_setDomainName', 'angelfire.com']);
_gaq.push(['_setCustomVar', 1, 'member_name', 'weird2/byroneverson2003', 3]);
_gaq.push(['_trackPageview']);
(function() {
  var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
  ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
  var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();

////// Lycos Initialization /////////////////////
var lycos_ad = Array();
var lycos_search_query = "";
var lycos_onload_timer;

var cm_role = "live";
var cm_host = "angelfire.lycos.com";
var cm_taxid = "/memberembedded";
var angelfire_member_name = "weird2/byroneverson2003";
var angelfire_member_page = "weird2/byroneverson2003/index.html";
var angelfire_ratings_hash = "1714201988:661ee3e1db487b4fb524ba15550a3a31";

var lycos_ad_category = {"dmoz":"home\/software","ontarget":"&CAT=family%20and%20lifestyles&L2CAT=home"};

var lycos_ad_remote_addr = "209.202.244.9";
var lycos_ad_www_server = "www.angelfire.lycos.com";
var edit_site_url = "www.angelfire.lycos.com/landing/landing.tmpl?utm_source=house&utm_medium=landingpage&utm_campaign=toolbarlink";

</script>
<script type="text/javascript" src="https://scripts.lycos.com/catman/init.js"></script>

<script type='text/javascript'>
 var googletag = googletag || {};
 googletag.cmd = googletag.cmd || [];
 (function() {
   var gads = document.createElement('script');
   gads.async = true;
   gads.type = 'text/javascript';
   var useSSL = 'https:' == document.location.protocol;
   gads.src = (useSSL ? 'https:' : 'http:') +
     '//www.googletagservices.com/tag/js/gpt.js';
   var node = document.getElementsByTagName('script')[0];
   node.parentNode.insertBefore(gads, node);
 })();
</script>


<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/ANG_300x250_dfp', [300, 250], 'div-gpt-ad-1450207484070-0').addService(googletag.pubads());
   googletag.enableServices();
 });
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/ANG_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450207484070-1').addService(googletag.pubads());
   googletag.enableServices();
 });
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/ANG_below_728X90_dfp', [728, 90], 'div-gpt-ad-1450207484070-2').addService(googletag.pubads());
   googletag.enableServices();
 });
</script>


<script type="text/javascript">
(function(isV) {
    if (!isV) {
        return;
    }

    //this.lycos_search_query = lycos_get_search_referrer();
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2","slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');

    if (this.lycos_search_query) {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if (adCat && adCat.find_what) {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }

    for (var s in slots) {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot)) {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }


    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {
    var w = 0, h = 0, minimumThreshold = 300;
    if (top == self) {
        return true;
    }

    if (typeof(window.innerWidth) == 'number' ) {
        w = window.innerWidth;
        h = window.innerHeight;
    }
    else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight)) {
        w = document.documentElement.clientWidth;
        h = document.documentElement.clientHeight;
    }
    else if (document.body && (document.body.clientWidth || document.body.clientHeight)) {
        w = document.body.clientWidth;
        h = document.body.clientHeight;
    }

    return ((w > minimumThreshold) && (h > minimumThreshold));
}())));



window.onload = function() {
    var f = document.getElementById("lycosFooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';

    // Slider Injection
    (function() {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';
    })();


    // Bottom Ad Injection
    ( function() {
        var b = document.getElementsByTagName("body")[0];

        var iif = document.createElement('iframe');
        iif.style.border = '0';
        iif.style.margin = 0;
        iif.style.display = 'block';
        iif.style.cssFloat = 'right';
        iif.style.height = '254px';
        iif.style.overflow = 'hidden';
        iif.style.padding = 0;
        iif.style.width = '300px';
        iif.src = '/adm/ad/injectAd.iframe.html';
        
        var cdiv = document.createElement('div');
        cdiv.style = "width:300px;margin:10px auto;";
        cdiv.appendChild( iif );
        if( b )
        {
            b.insertBefore(cdiv, b.lastChild);
        }
    })();

}


</script>

<style>
#body .adCenterClass {
  margin:0 auto;
  display:block !important;
  overflow:hidden;
  width:100%;
}
#body .adCenterClass #ad_container {
  display:block !important;
  float:left;
  width:728px;
}
@media (min-width: 768px) {
  <!-- For 300px or less ads ONLY -->
  #body .adCenterClass #ad_container {
    width: calc(100% - 372px);
  }
}
@media (min-width: 1110px) {
  <!-- For 728px or less ads -->
  #body .adCenterClass #ad_container {
    width: calc(100% - 372px);
  }
}

</style>

<div style="background:#abe6f6; border-bottom:1px solid #507a87; position:relative; z-index:9999999">

    <div class="adCenterClass">
        <a href="https://www.angelfire.lycos.com/" title="Angelfire.com: build your free website today!" style="display:block; float:left; width:186px; border:0">
          <img src="/adm/ad/angelfire-freeAd.jpg" alt="Site hosted by Angelfire.com: Build your free website today!" style="display:block; border:0" />
        </a>
        <div id="ad_container">
            <script type="text/javascript">document.write(lycos_ad['leaderboard']);</script>
        </div>
    </div>
</div>

<!-- ///////////////////////////////////// -->
<script type="text/javascript">document.write(lycos_ad['slider']);</script>


<div id="lycosFooterAd" style="background:#abe6f6; border-top:1px solid #507a87; clear:both; display:none; position:relative; z-index:9999999">
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:936px;">
	<div id="aflinksholder" style="float:left; width:186px;">
        <a href="https://www.angelfire.lycos.com/" title="Angelfire.com: build your free website today!" style="display:block; border:0">
            <img src="/adm/ad/angelfire-freeAd2.jpg" alt="Site hosted by Angelfire.com: Build your free website today!" style="display:block; border:0" />
        </a>
    </div>
    <iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>


<!--- UNDERDOGMEDIA EDGE_lycos.com JavaScript ADCODE START--->
<script data-cfasync="false" language="javascript" async src="//udmserve.net/udm/img.fetch?sid=17754;tid=1;dt=6;"></script>
<!--- UNDERDOGMEDIA EDGE_lycos.com JavaScript ADCODE END--->