|
- ;; lobo: Logo Bolo
- ;; (c) Ben Kurtovic, 2011
-
- breed [bullets bullet]
-
- bullets-own [
- max-travel-distance
- speed
- travel-distance
- ]
-
- to fire
- hatch-bullets 1 [
- set color white
- set max-travel-distance 8
- set speed 1
- set travel-distance 0
- ]
- end
-
- to do-bullet-logic
- fd speed
- set travel-distance travel-distance + speed
- if travel-distance > max-travel-distance [
- die
- ]
- end
|