code_junkie

Have you ever implemented a programming language?

Nov 12th, 2011
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.83 KB | None | 0 0
  1. (level (nova 270))
  2.  
  3. (enemy nova (angle) (speed a i)
  4. (set a 0)
  5. (while 1
  6. (if (<= 15 a)
  7. (begin (set a (- a 15))
  8. (wait 0.2)))
  9. (wait 0.04)
  10. # i iterates over the circle to fire a nova
  11. (set i 0)
  12. (while (< i 360)
  13. (fire wavy (+ angle (+ a i)) 70)
  14. (set i (+ 15 i)))
  15. (set a (+ 0.5 a))))
  16.  
  17. # zig-zag around the given angle
  18. (bullet wavy (angle speed) (orig-angle offset)
  19. (set orig-angle angle)
  20. (set offset 30)
  21. (while 1
  22. (set angle (+ orig-angle offset))
  23. (set offset (* offset (- 0 1)))
  24. (wait 0.25)))
  25.  
  26. functions
  27. fib(x)
  28. if x==0 then 0 else
  29. if x==1 then 1 else
  30. call fib(x-1) + call fib(x-2)
  31. end
  32. end
  33. end
  34. in
  35. call fib(12)
  36. end
  37.  
  38. if ("4" + "2") as number > 30 then "seems to be working"
  39. else "oh dear"
Add Comment
Please, Sign In to add comment