L2Apf

Lineage 2 C4 artificial player / framework (alpha).

You can implement desired behavior right inside entiry script or use higher-level programs interface or connect actions/models/events to your neural network.

Programs

Program is a potentially reusable algorithm that can be instantiated with parameters and shares state between iterations.

Iteration can be caused by a server event, custom event or timer event.

Program can be finite or not. Can be foreground or background. Only one foreground program can handle an iteration event but previous programs can be stacked on load.

Requirements

Racket language (version 6 or newer).
- Packages: srfi-lite-lib, r6rs-lib, yaml.
L2J Chronicle 4 server & datapack.
Lineage 2 Chronicle 4 installer & protocol 656 update.

Examples

Run script for solo player:
racket -O 'warning@l2apf' player.scm l2apf://login:password@host:port/player.

Run entire realm of players:
racket realm.scm config.yaml party.a fifth.

player.scm

#lang racket
(require
	(except-in srfi/1 drop)
	"library/extension.scm"
	"system/structure.scm"
	"system/connection.scm"
	"system/event.scm"
	(only-in "program/program.scm" program)
	(only-in "program/brain.scm"
		make-brain
		(brain-run! run!)
		(brain-load! load!)
		(brain-stop! stop!)
	)
	"program/idle.scm"
	"program/print.scm"
	"program/partying.scm"
	"program/command.scm"
	"bootstrap.scm"
)

(define (get-party cfg for)
	(let ((parties (ref cfg "party")))
		(if parties
			(fold (lambda (party found)
				(if (member for (cdr party) string-ci=?)
					(filter (lambda (name) (not (string-ci=? for name))) (cdr party))
					found
				)
			) (list) (dict->list parties))
			(list)
		)
	)
)

(apply bootstrap (lambda (cn wr me events)
	(define config (or (parse-config) (list)))
	(define br (make-brain cn program-idle))
	(load! br
		(program program-print)
		(program program-partying (get-party config (ref me 'name)))
		(program program-command br)
	)

	(do ((event (sync events) (sync events))) ((eq? (car event) 'disconnect))
		; Triggers space.
		(case (car event)
			; Standard events.
			; Custom events.
		)

		; Programs space.
		(run! br event)
	)
) (values->list (parse-protocol)))

config.yaml

password: "123456"
party:
  a: [first, second, third]
  b: [fourth, fifth, sixth, seventh, eighth]

realm.scm

#lang racket
TODO

* Some pieces of code may be outdated or not fully implemented but I sustain operability of core and basic flow.

Extension

You can implement missed packets/actions/events or update the project to higher server version with ease. You can even port this architecture to another game.

How to write a program

Start with:

(define-program my-program (lambda (event connection config state)
	; ...
))

Full syntax:

(define-program my-program
	(lambda (event connection config state) ; Program iterator.
		; ...
	)
	#:constructor (lambda (config) ; On load callback.
		; ...
	)
	#:destructor (lambda (config state) ; On unload callback.
		; ...
	)
	#:defaults (list ; Default config.
		(cons 'name 'value)
		; ...
	)
)

For non-commertial use. In case of public use please indicate URL of original repo (https://github.com/EligiusSantori/L2Apf).

neo279/L2Apf