Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- namespace MattEland.FSharpGeneticAlgorithm.Logic
- open MattEland.FSharpGeneticAlgorithm.Logic.WorldPos
- module Actors =
- [<AbstractClass>]
- type Actor(pos: WorldPos) =
- member this.Pos = pos
- abstract member Character: char
- type Squirrel(pos: WorldPos, hasAcorn: bool) =
- inherit Actor(pos)
- member this.HasAcorn = hasAcorn
- override this.Character = 'S'
- let createSquirrel pos = new Squirrel(pos, false)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement