PifyZ

import dom

type
  Canvas* = ref CanvasObj
  CanvasObj {.importc.} = object of dom.Element

  CanvasContext2d* = ref CanvasContext2dObj
  CanvasContext2dObj {.importc.} = object
    font*: cstring
    globalAlpha*: float

PifyZ

-- JSON correspondant (à parser) :
-- {
--   "keywords": [
--     { "uid": 6, "url": "...", "keyword": "..." },
--     { "uid": 55, "url": "...", "keyword": "..." },
--     { "uid": 462, "url": "...", "keyword": "..." }
--   ],
--
--   "records": {
--     UN_TIMESTAMP: [

PifyZ

#
# Portage pur
#
type
  lhMutex = object
    id: int64

  lhWindow = object
    id: int64
    x: int

PifyZ

import tables

type
  GroupName = enum
    None
    Purple
    LightBlue
    Pink
    Orange
    Red

PifyZ

import Array
import String

import Html.App as Html
import Json.Decode as Json

import Array exposing (Array)
import Html.Events exposing (keyCode, on, onClick, onInput, targetValue)

import Html exposing (..)

PifyZ

###
const map = [
	[ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 ],
	[ 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 ],
	[ 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 ],
	[ 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 ],
	[ 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 ],
	[ 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 ],
	[ 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 ],
	[ 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 ],

PifyZ

shopt -s globstar
skewc src/**/*.sk --output-file=app.js --target=js --message-limit=0

PifyZ

class Point {
	var x double
	var y double
}

namespace Game {
	const GRID = 16

	var hero Entity
}

PifyZ

class Vector2D {
	var x double
	var y double

	def new {
		self.x = 0
		self.y = 0
	}

	def new(x double, y double) {

PifyZ

# ---------
# Fonctions
# ---------
# Récupérer une valeur au hasard dans une liste
proc random_pick { a_list } {
	lindex $a_list [ expr { int(rand() * [ llength $a_list ]) } ]
}

# Donner la valeur d'une carte
proc card_value { card } {