#project BTTF

#author BPS

#line 5

#step 5

fuel%=0

day%=20

month%=10

year%=2011

hour%=15

minute%=14

futday%=20

futmonth$="OCT"

futyear%=2011

futhour%=15

futminute%=14

pastday%=20

pastmonth$="OCT"

pastyear%=2011

pasthour%=15

pastminute%=14

speed%=0

fluxor%=0

dl%=0

daycl%=0

0start cls

daycl%=daycl%+1

if daycl%>=4 th daycl%=1:minute%=minute%+1

if minute%>=60 th hour%=hour%+1:minute%=0

if hour%>=24 th day%=day%+1:hour%=0

if day%>=32 th month%=month%+1:day%=1

if month%=2 and day%>=29 th month%=month%+1:day%=1

if month%>=13 th year%=year%+1:month%=1

if year%>=10000 th year%=0

0futsel if month%=1 th month$="JAN"

if month%=2 th month$="FEB"

if month%=3 th month$="MAR"

if month%=4 th month$="APR"

if month%=5 th month$="MAY"

if month%=6 th month$="JUN"

if month%=7 th month$="JUL"

if month%=8 th month$="AUG"

if month%=9 th month$="SEP"

if month%=10 th month$="OCT"

if month%=11 th month$="NOV"

if month%=12 th month$="DEC"

if futday%>=32 th futday%=31

if futhour%>=24 th futhour%=23

if futminute%>=60 th futminute%=59

if inkey(0)=35 th fuel%=1

if inkey(0)=42 th gt 0tpan

if speed%>=88 and fuel%=1 th pastminute%=minute%

if speed%>=88 and fuel%=1 th pasthour%=hour%

if speed%>=88 and fuel%=1 th pastyear%=year%

if speed%>=88 and fuel%=1 th pastmonth$=month$

if speed%>=88 and fuel%=1 th pastday%=day%

if speed%>=88 and fuel%=1 th minute%=futminute%

if speed%>=88 and fuel%=1 th hour%=futhour%

if speed%>=88 and fuel%=1 th year%=futyear%

if speed%>=88 and fuel%=1 th month%=futsel%

if speed%>=88 and fuel%=1 th day%=futday%

if speed%>=88 th fuel%=0

if dl%>=2 th dl%=0

if speed%<=0 th gt 0nodelch

dl%=dl%+1

0nodelch if speed%>=87 th speed%=88

if dl%=0 th dl%=1

if fluxor%=4 th fluxor%=0

fluxor%=fluxor%+1

plimg$="fuel_"+str$(fuel%)+".png"

if speed%=0 th fluximg$="fluxoff.png"

if speed%>0 th fluximg$="fluxwork"+str$(fluxor%)+".png"

if speed%>=80 th fluximg$="fluxon.png"

if speed%>=82 and fuel%=1 th fluximg$="fluxtp.png"

if speed%>=0 th deloimg$="delorean"+str$(dl%)+".png"

if speed%>=80 th deloimg$="delorean_80_"+str$(dl%)+".png"

if speed%>=82 and fuel%=1 th deloimg$="delorean_tm_"+str$(dl%)+".png"

if speed%<0 th speed%=0

if right(0) then speed%=speed%+1:goto 0desk

if left(0) th speed%=speed%-10:goto 0desk

if speed%=0 th gt 0desk

speed%=speed%-2



0desk setfont 1

setcolor 255,0,0

drawstring str$(speed%),3,3

nowtime$=month$+" "+str$(day%)+" "+str$(year%)+" "+str$(hour%)+":"+str$(minute%)

futtime$=futmonth$+" "+str$(futday%)+" "+str$(futyear%)+" "+str$(futhour%)+":"+str$(futminute%)

pasttime$=pastmonth$+" "+str$(pastday%)+" "+str$(pastyear%)+" "+str$(pasthour%)+":"+str$(pastminute%)

drawstring futtime$,screenwidth(0)-stringwidth(futtime$)-3,8

setcolor 0,255,0

drawstring nowtime$,screenwidth(0)-stringwidth(nowtime$)-3,33

setcolor 255,255,0

drawstring pasttime$,screenwidth(0)-stringwidth(pasttime$)-3,58

gelload "flux",fluximg$

spritegel "flux","flux"

spritemove "flux",3,screenheight(0)-53

gelload "fuel",plimg$

spritegel "fuel","fuel"

spritemove "fuel",screenwidth(0)-73,screenheight(0)-53

gelload "delo",deloimg$

spritegel "delo","delo"

spritemove "delo",3,160

sleep 250

goto 0start

0tpan tpanel%=select("Fuel: "+str$(fuel%),"Refuel","Month","Day","Year","Hour","Minute","Back")

if tpanel%=0 th fuel%=1:gt 0start

if tpanel%=1 th gt 0monsel

if tpanel%=2 th gt 0daysel

if tpanel%=3 th gt 0yearsel

if tpanel%=4 th gt 0hoursel

if tpanel%=5 th gt 0minsel

if tpanel%=6 th gt 0start

0minsel minsel%=editform("Enter","Ok","Ok","Enter",futminute$,2,2)

futminute%=val(futminute$)

gt 0start

0hoursel hoursel%=editform("Enter","Ok","Ok","Enter",futhour$,2,2)

futhour%=val(futhour$)

gt 0start

0yearsel yearsel%=editform("Enter","Ok","Ok","Enter",futyear$,4,2)

futyear%=val(futyear$)

gt 0start

0daysel daysel%=editform("Enter","Ok","Ok","Enter",futday$,2,2)

futday%=val(futday$)

if futday%>=29 and futmonth$="FEB" th futday%=28

gt 0start

0monsel futselect%=editform("Month","Ok","Cancel","Enter",futsel$,2,2)

futsel%=val(futsel$)

if futsel%>=13 th futsel%=12

0futsel if futsel%=1 th futmonth$="JAN"

if futsel%=2 th futmonth$="FEB"

if futsel%=3 th futmonth$="MAR"

if futsel%=4 th futmonth$="APR"

if futsel%=5 th futmonth$="MAY"

if futsel%=6 th futmonth$="JUN"

if futsel%=7 th futmonth$="JUL"

if futsel%=8 th futmonth$="AUG"

if futsel%=9 th futmonth$="SEP"

if futsel%=10 th futmonth$="OCT"

if futsel%=11 th futmonth$="NOV"

if futsel%=12 th futmonth$="DEC"

if futday%>=29 and futmonth$="FEB" th futday%=28

gt 0start

#save file:///e:/Mbbttf/bttf.lis