Simple code that I made because I was bored.
Took 5-10 minutes and only 2 bugs(that I easily fixed).
`Disarm Da Bomb by Ilya
`Feel free to steal it and say you made it.
`I don't care.
restart2:
points=0
lives=4
restart:
cls
if lives=0
text 10,10,"Your Ran Out Of Lives."
text 10,20,"You're Sad."
text 10,30,"''Your Pethedic Score Of "+str$(points)+" Will Never Be Enough To Stop Me!!!''"
text 10,40,"Time To Play Again."
wait key
goto restart2
endif
text 10,10,"Disarm Da Bomb"
text 11,11,"Disarm Da Bomb"
text 12,12,"Disarm Da Bomb"
text 30,30,str$(lives)+" Credits. Press Any Key To Continue"
wait key
cls
randomize timer()
cenerio=rnd(2)
if cenerio=0
text 10,10,"The Phone Rings."
text 10,20,"You Answer It."
text 10,30,"''I Rigged Your Car. It Will Blow Up In 30 Seconds.''"
text 10,40,"Time To Kick [EDITED]."
time=30
endif
if cenerio=1
text 10,10,"The Phone Rings."
text 10,20,"You Answer It."
text 10,30,"''I Rigged Your House. It Will Blow Up In 45 Seconds.''"
text 10,40,"Time To Kick [EDITED]."
time=45
endif
if cenerio=2
text 10,10,"The Phone Rings."
text 10,20,"You Answer It."
text 10,30,"''I Rigged You. You Will Blow Up In 50 Seconds.''"
text 10,40,"Time To Kick [EDITED]."
time=50
endif
wait key
cls
randomize timer()
deadtime=timer()+(time*1000)
lose=0
do
cls
if timer()=>deadtime then lose=2
text 10,10,str$(int((deadtime+0.0)-(timer()+0.0)))+" Seconds! 1 For Blue, 2 For Red, 3 For Green"
if scancode()=2 then if rnd(2)=0 then lose=1 else lose=2
if scancode()=3 then if rnd(2)=1 then lose=1 else lose=2
if scancode()=4 then if rnd(2)=2 then lose=1 else lose=2
if lose>0 then exit
loop
cls
if lose=2
lives=lives-1
text 10,10,"You [EDITED] Loser!"
points=points-((time*10)+1000)
text 10,20,"Points: "+str$(points)
wait 1000
goto restart
endif
if lose=1
text 10,10,"Great Job!!!"
points=points+(((time*2)/3)+1000)
text 10,20,"Points: "+str$(points)
wait 1000
goto restart
endif
