API tools faq
paste
Advertisement
Pieman7373

BXGMSRC

Pieman7373
Apr 10th, 2017
144
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.04 KB | None | 0 0
raw download clone embed print report
  1. :iBOXGAME
  2. :det(0
  3. :70->X->C
  4. :30->Y->D
  5. :1->F
  6. :1->P
  7. :det(5,149
  8. :det(2,224
  9. :For(E,0,48
  10. :det(40,C,D,4
  11. :C+30->D
  12. :If C>250
  13. :D+30->D
  14. :70->C
  15. :End
  16. :End
  17. :det(21,231
  18. :det(18,"BOXGAME: ICE VERSION",0,0
  19. :det(21,24
  20. :det(74,2,3
  21. :det(18,"1",30,30
  22. :det(18,"2",280,30
  23. :Lbl 00
  24. :If P=1
  25. :det(2,149
  26. :det(41,277,27,20,27
  27. :det(2,0
  28. :det(41,27,27,18,27
  29. :End
  30. :If P=2
  31. :det(2,149
  32. :det(41,27,27,18,27
  33. :det(2,0
  34. :det(41,277,27,20,27
  35. :End
  36. :If F=0
  37. :det(2,149
  38. :det(33,A,B,5
  39. :det(33,A,B,6
  40. :End
  41. :0->F
  42. :det(2,0
  43. :det(33,X,Y,5
  44. :det(33,X,Y,6
  45. :X->A
  46. :Y->B
  47. :Lbl 01
  48. :getKey->K
  49. :If K=4
  50. :Y-30->Y
  51. :End
  52. :If K=2
  53. :X-30->X
  54. :End
  55. :If K=1
  56. :Y+30->Y
  57. :End
  58. :If K=3
  59. :X+30->X
  60. :End
  61. :If K=15
  62. :det(1
  63. :Return
  64. :End
  65. :If K=9 or K=54
  66. :Goto DP
  67. :End
  68. :If K
  69. :If X<70
  70. :250->X
  71. :End
  72. :If X>250
  73. :70->X
  74. :End
  75. :If Y<30
  76. :210->Y
  77. :End
  78. :If Y>210
  79. :30->Y
  80. :End
  81. :Goto 00
  82. :End
  83. :Goto 01
  84. :Return
  85. :Lbl DP
  86. :det(2,128
  87. :det(34,X,Y,2
  88. :Lbl PL
  89. :getKey->K
  90. :If K=1 or K=2 or K=3 or K=4
  91. :Goto DL
  92. :End
  93. :Goto PL
  94. :Lbl DL
  95. :If P=1
  96. :2->P
  97. :Else
  98. :1->P
  99. :End
  100. :Goto 00
  101. :Return
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!