I will keep bob alive further! Presenting escape from Bob in a weird robot!
sync on : hide mouse : cls
ink rgb(255,0,0),0 : print "(O)" : get image 1,0,0,20,20 : cls : ink rgb(100,100,255),0 : print "(O)" : get image 2,0,0,20,20 : cls : ink rgb(50,50,255),0 : box 0,0,639,479 : ink rgb(0,100,0),0 : box 0,300,639,479 : sprite 1,0,300,1 : sprite 2,50,300,2
ink rgb(0,0,0),0 : center text 320,0,"You are in the strange blue robot. Bob is in the strange red robot. Use the arrow" : center text 320,20,"keys and space to avoid Bob. Press any key to begin." : suspend for key
cls : a#=timer() : bpx=0 : ypx=620 : ypy=300 : power=250
ink rgb(50,50,255),0 : box 0,0,639,479 : ink rgb(0,100,0),0 : box 0,300,639,479 : get image 3,0,0,500,200
do : ink rgb(0,0,0),0 : set cursor 0,0 : b#=timer()-a# : paste image 3,0,0 : print b#/1000 : print "You have ",power," litres of fuel left."
if ypx>bpx then inc bpx,4
if ypx<bpx then dec bpx,4
if leftkey()=1 and ypx>0 then dec ypx,5
if rightkey()=1 and ypx<620 then inc ypx,5
if spacekey()=1 and power>0 then dec ypy,10 : dec power,1
sprite 1,bpx,300,1 : sprite 2,ypx,ypy,2
if ypy<300 then inc ypy,5
if ypy=300 and ypx>bpx-10 and ypx<bpx+10 : gosub lose : endif : if ypy<100 : gd=1 : endif : if ypy=300 and gd=1 : gosub death : endif : sync
loop
lose:
paste image 3,0,0 : set cursor 0,0 : print "Bob ate you. Game Over." : print "You survived for ",b#/1000," seconds" : suspend for key : end
death:
paste image 3,0,0 : set cursor 0,0 : print "You hit the ground from too high and died. Game Over." : print "You survived for ",b#/1000," seconds" : suspend for key : end
I never tell the truth.
That ain't a paradox.
I always tell lies is though.
