Logo Bolo: a re-envisioning of the classic tank game by Stuart Cheshire in NetLogo
Vous ne pouvez pas sélectionner plus de 25 sujets
Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
|
- ;; lobo: Logo Bolo
- ;; (c) Ben Kurtovic, 2011
-
- breed [tanks tank]
-
- tanks-own [
- acceleration
- friction
- is-accelerating?
- is-player?
- max-speed
- max-turn
- speed
- team
- ]
-
- to set-tank-vars [tank-team player-tank?]
- set heading 0
- set acceleration 0.03
- set friction 0.0075
- set is-accelerating? false
- set is-player? player-tank?
- set max-speed 0.25
- set max-turn 24
- set speed 0
- set team tank-team
- set color get-tank-color
- end
-
- to do-tank-logic
- if is-accelerating? [
- set speed speed + acceleration
- if speed > max-speed [
- set speed max-speed
- ]
- ]
- fd speed
- set speed speed - friction
- if speed < 0 [
- set speed 0
- ]
- end
-
- to-report get-tank-color
- if is-player? [ report gray ]
- if team = 0 [ report green ]
- report red
- end
|