SHARE
TWEET

FRTNINJA

invisibowl Mar 19th, 2015 (edited) 43 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. startTmr->D
  2. ClrHome
  3. DelVar |LFRNXDelVar |LFRNY
  4. SetUpEditor |LFRNX
  5. SetUpEditor |LFRNY
  6. real(0,1,1
  7. "FRNBG
  8. real(5,2,1
  9. real(5,2,1
  10. 1->A:1->B:1->R:1->C
  11. Repeat K=11
  12. getKey->K
  13. checkTmr(D->E
  14. If E>0:Then
  15. ~1->E
  16. If H:Then
  17. For(F,1,dim(|LFRNY
  18. iPart(|LFRNY(F->I
  19. iPart(|LFRNX(F->J
  20. abs(|E3fPart(|LFRNY(F->L
  21. abs(|E3fPart(|LFRNX(F->M
  22. real(7,6,I,J,L,M,1
  23. real(7,6,I,J,L,M,1
  24. End
  25. DelVar H
  26. End
  27. End
  28. If K:Then
  29. 20(iPart(.1K)-4->A
  30. A+(0-A)(A<0)-1(A>119->A
  31. (32(10fPart(.1K)))-16->B
  32. If E>=0:Then
  33. R+A/|E3->|LFRNX(dim(|LFRNX)+1
  34. C+B/|E3->|LFRNY(dim(|LFRNY)+1
  35. real(7,6,C,R,B,A,1
  36. real(7,6,C,R,B,A,1
  37. A->R:B->C
  38. 1->H
  39. Else
  40. A->R:B->C
  41. 1->H
  42. End
  43. If E<0:Then
  44. startTmr->D
  45. 0->dim(|LFRNX
  46. 0->dim(|LFRNY
  47. End
  48. End
  49. End
RAW Paste Data
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
 
Top