Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PROGRAM:BMAMBA
- :FnOff
- :ClrHome
- :ClrDraw
- :GridOff
- :AxesOff
- :PlotsOff
- :ZStandard
- :84→Xmin
- :-72→Ymin
- :ZInteger
- :30→nMin:30→PV
- :46→nMax:44→FV
- :26→I%
- :Horizontal 0
- :Vertical 0
- :Vertical 94
- :Horizontal Ymin
- :Pxl-On(30,45
- :For(n,0,E9
- :2randInt(1,30→P/Y
- :2randInt(1,46→C/Y
- :0
- :Repeat pxl-Test(nMin,nMax
- :If Ans
- :Then
- :PV+2(pxl-Test(PV+1,FV)-pxl-Test(PV-1,FV→PMT
- :FV+2(pxl-Test(PV,FV+1)-pxl-Test(PV,FV-1
- :Pt-Off(FV,-PV,3
- :Ans→FV
- :PMT→PV
- :End
- :getKey
- :If Ans
- :Ans→I%
- :(I%=34)-(I%=25→PMT
- :(I%=26)-(I%=24
- :Pxl-On(nMin+PMT,nMax+Ans
- :Pxl-On(nMin,nMax
- :Pxl-On(P/Y,C/Y
- :nMax+2Ans→nMax
- :nMin+2PMT→nMin
- :End
- :If nMin=P/Y and nMax=C/Y
- :End
- :Disp "Score:
- :Output(1,7,n
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement