well I made sure I had 1.076 and re-installed it. Here is the code for the app:
rem Portrait App
SetDisplayAspect( 0.66 )
setvirtualresolution(640,920)
setresolutionmode(0)
rem gosub splash
http = createhttpconnection()
loadimage(2000,"feedback.png")
if getfileexists("first")=0
message("Hey!, this is your first time going into this app! the WBRW app is for getting the most updated news that WBRW has to offer! please like the WBRW facebook page and Parkers apps facebook page for support. Make sure to use the home, video, about and BIO buttons to see the info within the app... OH and make sure you have internet on with this app since it does live updates!")
ff = opentowrite("first")
closefile(ff)
endif
rem every 10 keywords added to array is for one video
loadimage(1,"title.png")
loadimage(2,"screen_background.png")
loadimage(3,"screen_background.png")
loadimage(4,"screen_background.png")
loadimage(5,"screen_background.png")
loadimage(6,"titlebar_2.png")
loadimage(7,"video_icon.png",1)
loadimage(8,"home_icon.png",1)
loadimage(9,"about_icon.png",1)
loadimage(10,"bio_icon.png",1)
loadimage(14,"search.png")
loadimage(15,"youtube_inactive.png")
loadimage(16,"youtube_active.png")
loadimage(17,"veemo_inactive.png")
loadimage(18,"veemo_active.png")
loadimage(19,"cancel.png")
loadimage(20,"next_arroe.png",1)
loadimage(21,"contact_info.png")
loadimage(22,"contact_2.png")
loadimage(23,"wbrw_website.png")
loadimage(24,"pre_arrow.png",1)
loadimage(25,"wbrw_facebook.png")
loadimage(26,"parkers.png")
loadimage(27,"times.png")
loadimage(28,"donate_1.png",1)
loadimage(29,"donate_2.png",1)
createsprite(2,2)
createsprite(3,5)
createsprite(4,4)
createsprite(5,3)
createsprite(1,1)
createsprite(6,6)
createsprite(7,7)
createsprite(8,8)
createsprite(9,9)
createsprite(10,10)
createsprite(14,14)
createsprite(15,15)
createsprite(16,16)
createsprite(17,17)
createsprite(18,18)
createsprite(19,19)
createsprite(20,20)
createsprite(21,21)
createsprite(22,22)
createsprite(23,23)
createsprite(24,24)
createsprite(25,25)
createsprite(26,26)
createsprite(27,27)
createsprite(28,28)
addspriteanimationframe(28,29)
setspritesize(23,240,32)
createdummysprite(100)
setspritesize(100,4,4)
createtext(1,"Home")
createtext(2,"Video")
createtext(3,"About")
createtext(4,"B.I.O")
for x=1 to 4
settextsize(x,24)
settextcolor(x,255,0,0,230)
next
functions = 1
setspriteposition(6,-9,150)
page = 1
rem A Wizard Did It!
g=1
playsprite(28)
gethttpfiles()
loadimage(201,"image1.jpg")
loadimage(202,"image2.jpg")
loadimage(203,"image3.jpg")
loadimage(204,"image1_v.jpg")
loadimage(205,"image2_v.jpg")
loadimage(206,"image3_v.jpg")
loadimage(1000,"personofweek.jpg")
createsprite(11,201)
createsprite(12,202)
createsprite(13,203)
setspritesize(11,320,160)
setspritesize(12,320,160)
setspritesize(13,320,160)
createsprite(29,204)
createsprite(30,205)
createsprite(31,206)
createtext(100,name1)
createtext(101,name2)
createtext(102,name3)
createtext(103,name1_v)
createtext(104,name2_v)
createtext(105,name3_v)
createtext(1000,person_of_week)
settextsize(1000,20)
settextvisible(1000,0)
createsprite(1000,1000)
setspritevisible(1000,0)
settextsize(103,21)
settextsize(104,21)
settextsize(105,21)
settextsize(100,21)
settextsize(101,21)
settextsize(102,21)
gosub set_keywords
loadimage(110,"homepage.jpg")
createsprite(110,110)
setinneractivedetails("2020200202")
createtext(150,homepage)
settextsize(150,18)
createadvert(0,1,1,0)
setadvertposition(0,830,640)
createsprite(2000,2000)
setspritevisible(2000,0)
do
if functions = 1 then jiggle(8)
if functions = 2 then jiggle(7)
if functions = 3 then jiggle(9)
if functions = 4 then jiggle(10)
sync()
if getpointerstate()=1
setspriteposition(100,getpointerx(),getpointery())
else
setspriteposition(100,100000000,10000000)
endif
if getspritecollision(100,8) then functions = 1
if getspritecollision(100,7) then functions = 2
if getspritecollision(100,9) then functions = 3
if getspritecollision(100,10) then functions = 4
settextposition(1,16,130)
settextposition(2,160,130)
settextposition(3,320,130)
settextposition(4,490,130)
setspriteposition(8,16,155)
setspriteposition(7,160,155)
setspriteposition(9,320,155)
setspriteposition(10,490,155)
if getpointerstate()=0
pressed = 0
sleep(50)
endif
if functions = 1
setspritevisible(2,1)
setspritevisible(3,0)
setspritevisible(4,0)
setspriteposition(110,0,320)
setspritevisible(110,1)
setspritesize(110,640,200)
settextposition(150,10,520)
settextvisible(150,1)
playsprite(28)
setspritevisible(5,0)
setspritevisible(27,1)
setspritevisible(28,1)
setspriteposition(27,10,270)
setspriteposition(28,320,270)
if getpointerstate()=1
setspriteposition(100,screentoworldx(getpointerx()),screentoworldy(getpointery()))
else
setspriteposition(100,100000000,10000000)
endif
if getspritecollision(100,27)=1 and pressed = 0
openbrowser("http://wbrwtv.com/live/index.php?option=com_content&view=article&id=76&Itemid=99")
pressed = 1
endif
if getspritecollision(100,28)=1 and pressed = 0
openbrowser("http://wbrwtv.com/live/index.php?option=com_content&view=article&id=74&Itemid=97")
pressed = 1
endif
else
setspritevisible(27,0)
setspriteposition(27,100000,100000)
setspritevisible(28,0)
settextvisible(150,0)
setspriteposition(110,10000000,1000000)
setspriteposition(28,100000,100000)
endif
if functions <> 2
setspritevisible(20,0)
setspritevisible(24,0)
settextvisible(100,0)
settextvisible(101,0)
settextvisible(102,0)
settextvisible(103,0)
settextvisible(104,0)
settextvisible(105,0)
setspritevisible(29,0)
setspritevisible(30,0)
setspritevisible(31,0)
endif
if functions = 2
setspritevisible(2,0)
setspritevisible(3,1)
setspritevisible(4,0)
setspritevisible(5,0)
setspritevisible(14,0)
setspriteposition(14,480,290)
setspritesize(14,128,32)
setspritevisible(20,0)
setspritevisible(24,0)
setspriteposition(15,480,350)
setspriteposition(16,480,350)
setspriteposition(17,480,410)
setspriteposition(18,480,410)
if getspritecollision(100,15) and vid = 1
vid = 0
endif
if getspritecollision(100,17) and vid = 0
vid = 1
endif
if vid = 0
setspritevisible(15,0)
setspritevisible(16,1)
setspritevisible(20,0)
setspritevisible(17,1)
setspritevisible(18,0)
setspritevisible(29,0)
setspritevisible(30,0)
setspritevisible(31,0)
setspriteposition(29,100000,10000)
setspriteposition(30,100000,10000)
setspriteposition(31,100000,10000)
if page = 1
setspritevisible(11,1)
setspritevisible(12,1)
setspritevisible(13,1)
setspriteposition(11,10,280)
settextposition(100,10,260)
settextposition(101,10,450)
settextposition(102,10,650)
setspriteposition(12,10,470)
setspriteposition(13,10,670)
settextvisible(100,1)
settextvisible(101,1)
settextvisible(102,1)
else
setspriteposition(11,100000,1000000)
setspriteposition(12,100000,1000000)
setspriteposition(13,100000,1000000)
settextvisible(100,0)
settextvisible(101,0)
settextvisible(102,0)
setspritevisible(29,1)
setspritevisible(30,1)
setspritevisible(31,1)
endif
settextvisible(103,0)
settextvisible(104,0)
settextvisible(105,0)
if getspritecollision(100,11)=1 and pressed = 0
pressed = 1
openbrowser(link1)
endif
if getspritecollision(100,12)=1 and pressed = 0
pressed = 1
openbrowser(link2)
endif
if getspritecollision(100,13)=1 and pressed = 0
pressed = 1
openbrowser(link3)
endif
setspritevisible(20,0)
setspriteposition(20,480,820)
endif
if vid = 1
setspritevisible(11,0)
setspritevisible(12,0)
setspritevisible(13,0)
setspritevisible(15,1)
setspritevisible(16,0)
setspritevisible(17,0)
setspritevisible(18,1)
setspriteposition(11,100000,1000000)
setspriteposition(12,100000,1000000)
setspriteposition(13,100000,1000000)
setspritevisible(29,1)
setspritevisible(30,1)
setspritevisible(31,1)
settextposition(103,10,260)
settextposition(104,10,450)
settextposition(105,10,650)
settextvisible(100,0)
settextvisible(101,0)
settextvisible(102,0)
settextvisible(103,1)
settextvisible(104,1)
settextvisible(105,1)
setspriteposition(29,10,280)
setspriteposition(30,10,470)
setspriteposition(31,10,670)
if getspritecollision(100,29)=1 and pressed = 0
pressed = 1
openbrowser(link1_v)
endif
if getspritecollision(100,30)=1 and pressed = 0
pressed = 1
openbrowser(link2_v)
endif
if getspritecollision(100,31)=1 and pressed = 0
pressed = 1
openbrowser(link3_v)
endif
setspritevisible(20,0)
endif
elseif functions <> 5
setspritevisible(11,0)
setspritevisible(12,0)
setspritevisible(13,0)
setspritevisible(14,0)
setspritevisible(15,0)
setspritevisible(16,0)
setspritevisible(17,0)
setspritevisible(18,0)
setspritevisible(19,0)
m = 0
endif
if functions = 5
setspritevisible(19,1)
setspriteposition(19,-800,800)
jk:
setspritesize(10000,256,320)
setspriteposition(10000,(getvirtualwidth()/2)-1200,getvirtualheight()/2-200)
do
sync()
setviewoffset(-900,0)
if getpointerstate()=1
setspriteposition(100,screentoworldx(getpointerx()),screentoworldy(getpointery()))
else
setspriteposition(100,100000000,10000000)
endif
if getpointerstate()=1 and getspritecollision(100,10000)=1
deletesprite(10000)
goto gd
endif
if getpointerstate()=1 and getspritecollision(100,19)=1
deletesprite(10000)
functions = 4
goto hs
endif
print(m)
loop
gd:
setviewoffset(0,0)
functions = 4
if photo = 201
openbrowser(link1)
endif
if photo = 202
openbrowser(link2)
endif
if photo = 203
openbrowser(link3)
endif
endif
rem message("sorry, you must not have internet right now, or a big error happened with the live update! please restart the app and try again :-)")
rem endif
hs:
setviewoffset(0,0)
REM E-AMIL OF WBRW IS micommunitymedia.org
if functions = 3
setspritevisible(2,0)
setspritevisible(3,0)
setspritevisible(4,1)
setspritevisible(5,0)
setspritevisible(21,1)
setspritevisible(22,1)
setspritevisible(23,1)
setspritevisible(25,1)
setspritevisible(26,1)
setspriteposition(21,0,320)
setspriteposition(22,400,320)
setspriteposition(25,0,650)
setspriteposition(26,0,600)
setspriteposition(23,0,700)
if getpointerstate()=1
setspriteposition(100,getpointerx(),getpointery())
else
setspriteposition(100,100000000,10000000)
endif
if getspritecollision(100,23)=1 and pressed = 0
pressed = 1
openbrowser("http://wbrwtv.com/live/index.php")
endif
if getspritecollision(100,25)=1 and pressed = 0
pressed = 1
openbrowser("http://www.facebook.com/WBRWTV")
endif
if getspritecollision(100,26)=1 and pressed = 0
openbrowser("http://www.facebook.com/ParkersApps")
pressed = 1
endif
if getspritecollision(100,2000)=1 and pressed = 0
openbrowser("http://www.surveymonkey.com/s/VDW5Z6V")
pressed = 1
endif
setspritevisible(2000,1)
setspriteposition(2000,300,650)
rem about
else
setspritevisible(2000,0)
setspritevisible(21,0)
setspritevisible(22,0)
setspritevisible(23,0)
setspritevisible(25,0)
setspritevisible(26,0)
setspriteposition(21,10000000,1000000)
setspriteposition(22,10000000,1000000)
setspriteposition(23,10000000,1000000)
setspriteposition(24,10000000,1000000)
setspriteposition(25,10000000,1000000)
setspriteposition(26,10000000,1000000)
endif
if functions = 4
setspritevisible(2,0)
setspritevisible(3,0)
setspritevisible(4,0)
setspritevisible(5,1)
setspriteposition(1000,getvirtualwidth()/2-(getspritewidth(1000)/2),270)
setspritesize(1000,320,200)
settextposition(1000,50,480)
settextvisible(1000,1)
setspritevisible(1000,1)
else
setspritevisible(1000,0)
settextvisible(1000,0)
endif
loop
set_keywords:
return
function charAt(string$,char$,pos)
while found$ <> char$
pos = pos + 1
found$ = mid(string$,pos,pos+1)
endwhile
endfunction pos
function jiggle(sprite)
if random(1,2)=1
x = (x + random(1,3)) * -1
y = (y + random(1,3)) * -1
else
x = x + random(1,3)
y = y + random(1,3)
endif
setspriteposition(sprite,getspritex(sprite),getspritey(sprite)+y)
endfunction
splash:
loadimage(1,"black.png")
createsprite(1,1)
setspritesize(1,256,256)
setspriteposition(1,getvirtualwidth()/2-128+(getdirectionx()*50),getvirtualheight()/2-128+(getdirectiony()*50))
do
sync()
timeee = timeee + 1
setspriteposition(1,getvirtualwidth()/2-128+(getdirectionx()*50),getvirtualheight()/2-128+(getdirectiony()*50))
if timeee > 150
deleteimage(1)
deletesprite(1)
goto ven
endif
loop
ven:
return
function gethttpfiles()
setviewoffset(1000000,100000)
global name1 as string
global name2 as string
global name3 as string
global link1 as string
global link2 as string
global link3 as string
global name1_v as string
global name2_v as string
global name3_v as string
global link1_v as string
global link2_v as string
global link3_v as string
global keywords1 as string
global keywords2 as string
global keywords3 as string
global homepage as string
global person_of_week as string
ScoreConnection = CreateHTTPConnection()
SetHTTPHost(ScoreConnection, "www.parkersappssupport.weebly.com", 0)
name1 = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/name1.txt")
name2 = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/name2.txt")
name3 = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/name3.txt")
link1 = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/link1.txt")
link2 = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/link2.txt")
link3 = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/link3.txt")
name1_v = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/name1_v.txt")
name2_v = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/name2_v.txt")
name3_v = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/name3_v.txt")
link1_v = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/link1_v.txt")
link2_v = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/link2_v.txt")
link3_v = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/link3_v.txt")
person_of_week = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/person.txt")
homepage = SendHTTPRequest(ScoreConnection, "/uploads/9/7/4/0/9740399/homepage.txt")
if getfileexists("image1.jpg")=1 then deletefile("image1.jpg")
if getfileexists("image2.jpg")=1 then deletefile("image2.jpg")
if getfileexists("image3.jpg")=1 then deletefile("image3.jpg")
if getfileexists("image1_v.jpg")=1 then deletefile("image1_v.jpg")
if getfileexists("image2_v.jpg")=1 then deletefile("image2_v.jpg")
if getfileexists("image3_v.jpg")=1 then deletefile("image3_v.jpg")
gethttpfile(scoreconnection,"/uploads/9/7/4/0/9740399/vid1.jpg","image1.jpg")
while gethttpfilecomplete(scoreconnection)=0
sleep(1)
sync()
endwhile
gethttpfile(scoreconnection,"/uploads/9/7/4/0/9740399/vid2.jpg","image2.jpg")
while gethttpfilecomplete(scoreconnection)=0
sleep(1)
sync()
endwhile
gethttpfile(scoreconnection,"/uploads/9/7/4/0/9740399/vid3.jpg","image3.jpg")
while gethttpfilecomplete(scoreconnection)=0
sleep(1)
sync()
endwhile
gethttpfile(scoreconnection,"/uploads/9/7/4/0/9740399/vid1_v.jpg","image1_v.jpg")
while gethttpfilecomplete(scoreconnection)=0
sleep(1)
sync()
endwhile
gethttpfile(scoreconnection,"/uploads/9/7/4/0/9740399/vid2_v.jpg","image2_v.jpg")
while gethttpfilecomplete(scoreconnection)=0
sleep(1)
sync()
endwhile
gethttpfile(scoreconnection,"/uploads/9/7/4/0/9740399/vid3_v.jpg","image3_v.jpg")
while gethttpfilecomplete(scoreconnection)=0
sleep(1)
sync()
endwhile
gethttpfile(scoreconnection,"/uploads/9/7/4/0/9740399/homepage.jpg","homepage.jpg")
while gethttpfilecomplete(scoreconnection)=0
sleep(1)
sync()
endwhile
gethttpfile(scoreconnection,"/uploads/9/7/4/0/9740399/personofweek.jpg","personofweek.jpg")
while gethttpfilecomplete(scoreconnection)=0
sleep(1)
sync()
endwhile
CloseHTTPConnection(ScoreConnection)
DeleteHTTPconnection(ScoreConnection)
setviewoffset(0,0)
endfunction
I am sorry for how long it is :-( , but there it is. Even after re-installing 1.076 it still asks me for the calibration question? While I re-installed the 1.076 I re-compiled my project and did the huge guide over again updating everything and my app still crashes. It has to be something in the tier 1 code.
edit: When I think about it, there might be an issue with directories/file creation for android? or maybe http issues... I do know the http server is up all the time and works just fine.
newer edit: wow I can not believe this! I did a hello world app and it worked just fine. hmmmm, This problem reminds me of a problem I would run into with dark basic pro. The problem might be because of the lack of initializing variables at the start of the program, maybe. I will keep on looking.
sov the game creator!