API tools faq
paste
Advertisement
Weregoose

Black Mamba (Non-Finance Version)

Weregoose
Nov 29th, 2011
134
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
raw download clone embed print report
  1. PROGRAM:BMAMBA
  2. :FnOff
  3. :ClrHome
  4. :ClrDraw
  5. :GridOff
  6. :AxesOff
  7. :PlotsOff
  8. :ZStandard
  9. :84→Xmin
  10. :-72→Ymin
  11. :ZInteger
  12. :30→P:Ans→R
  13. :46→Q:44→S
  14. :26→K
  15. :Horizontal 0
  16. :Vertical 0
  17. :Vertical 94
  18. :Horizontal Ymin
  19. :Pxl-On(30,45
  20. :For(T,0,E9
  21. :2randInt(1,30→U
  22. :2randInt(1,46→V
  23. :0
  24. :Repeat pxl-Test(Ans,Q
  25. :If Ans
  26. :Then
  27. :R+2(pxl-Test(R+1,S)-pxl-Test(R-1,S→X
  28. :S+2(pxl-Test(R,S+1)-pxl-Test(R,S-1
  29. :Pt-Off(S,-R,3
  30. :Ans→S
  31. :X→R
  32. :End
  33. :getKey
  34. :If Ans
  35. :Ans→K
  36. :(K=34)-(K=25→X
  37. :(K=26)-(K=24
  38. :Pxl-On(P+X,Q+Ans
  39. :Pxl-On(P,Q
  40. :Pxl-On(U,V
  41. :Q+2Ans→Q
  42. :P+2X→P
  43. :End
  44. :If Ans=U and Q=V
  45. :End
  46. :Disp "Score:
  47. :Output(1,7,T
  48.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!