mob
    var
        damage
        health

mob
    var
        bodyguard
    verb
        summon_bodyguard()
            // only summon a bodyguard if you don't already have one
            if(bodyguard == null)
                bodyguard = new /mob

mob
    var
        bodyguard_target
    verb
        guard_me()
            if(bodyguard_target == null)
                bodyguard_target = input("Guard against who?") in oview()
                while(bodyguard_target != null)
                    step_to(bodyguard, bodyguard_target)
                    sleep(2)
            else
                var/quit = alert("Do you want to mak your bodyguard stand down?", "Stand Down", "Yes", "No")
                if(quit == "Yes")
                    bodyguard_target = null

var
    game_over = 0 // global variable that keeps track of game state
mob
    var
        damage = 0
        range = 1
        health = 0
        team = "n/a"
        target_beacon // see below

    proc
        // this will handle units attacking a single enemy within range
        attack()
            for(var/mob/M in oview(src, range))
                // if it's on a different team, hit it
                if(M.team != team)
                    M.damage(damage)
                    break

        // this will handle attacker units advancing to the end
        advance()
            // if you have a target_beacon, move to it
            if(target_beacon != null)
                // if you're not at it yet, walk toward it
                if(get_dist(src, target_beacon) > 0)
                    step_to(src, target_beacon)
                // otherwise (you are at it), change target beacon to the next one
                else
                    target_beacon = target_beacon.next_beacon
                // if you got to the last one and don't have another to go to, game over
                if(target_beacon == null)
                    world << "GAME OVER"
                    game_over = 1

        // this handles damage and unit death
        damage(amount)
            health -= amount
            if(health <= 0)
                del(src)

// some types of units follow

mob/infantry
    // damage and health already defined for mobs, just specify what it is for this subtype of mob
    damage = 10
    health = 20

mob/archer
    damage = 5
    health = 10
    range = 5

mob/catapult
    damage = 15
    health = 30
    range = 10

// the following is how this demo will guide attacker movement; attackers will try to get to a beacon, then to the next beacon

obj/beacon
    var/next_beacon

// the following is game and map setup stuff and the game loop

mob/verb/I_am_ready_to_start_the_game()
    // the following is not how you usually set up a map, but I'm not including a map file for you, so this will have to do
    world.maxx = 50
    world.maxy = 50

    // set up 3 beacons as the "waypoints" for attackers to move to, one after another
    var/obj/beacon/B
    B = new /obj/beacon(30, 20, 1)
    B.tag = "first beacon"
    B.next_beacon = new /obj/beacon(30, 30, 1)
    B = B.next_beacon
    B.next_beacon = new /obj/beacon(20, 30, 1)

    // set up attackers
    var/mob/M
    M = new /mob/infantry(20, 20, 1)
    M.target_beacon = locate("first beacon")
    M.team = "attackers"
    M = new /mob/archer(18, 20, 1)
    M.target_beacon = locate("first beacon")
    M.team = "attackers"
    M = new /mob/catapult(16, 20, 1)
    M.team = "attackers"

    // set up defenders
    M = new /mob/infantry(25, 19, 1)
    M.team = "defenders"
    M = new /mob/infantry(25, 20, 1)
    M.team = "defenders"
    M = new /mob/infantry(25, 21, 1)
    M.team = "defenders"
    M = new /mob/archer(26, 20, 1)
    M.team = "defenders"
    M = new /mob/infantry(30, 25, 1)
    M.team = "defenders"
    M = new /mob/infantry(25, 30, 1)
    M.team = "defenders"

    // now we will have an infinite loop that handles the game logic, though there's not much to it
    while(game_over == 0)
        sleep(3)
        for(var/mob/M in world)
            M.advance()
            M.attack()