abramsba

: [~] > sbcl
This is SBCL 1.4.11, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (ql:quickload :sketch)
To load "sketch":

abramsba

root@server:~# systemctl status mysql.service
● mysql.service - MySQL Community Server
   Loaded: loaded (/lib/systemd/system/mysql.service; enabled; vendor preset: enabled)
   Active: active (running) since Tue 2018-01-16 09:31:15 CET; 2min 4s ago
 Main PID: 12323 (mysqld)
   CGroup: /system.slice/mysql.service
           └─12323 /usr/sbin/mysqld

Jan 16 09:31:14 server systemd[1]: Starting MySQL Community Server...

abramsba

#lang racket

(define types '("CREA" "GLOB" "LEVC" "RACE" "ALCH" "ACTI" "BOOK" "SKIL" "BSGN" "ARMO" "DOOR" "FACT" "SCPT" "BODY"
                "REPA" "PROB" "LAND" "MGEF" "ENCH" "LEVI" "DIAL" "CELL" "SOUN" "WEAP" "CLAS" "CONT" "GMST" "NPC_"
                "APPA" "MISC" "PGRD" "SNDG" "LIGH" "LOCK" "SPEL" "REGN" "INFO" "INGR" "STAT" "CLOT" "LTEX"))

(define esmtool-path "D:\\tes3mp\\esmtool.exe")
(define export-directory "D:\\tes3mp\\export\\")
(define morrowind-directory "D:\\Steam\\steamapps\\common\\Morrowind\\Data Files\\")
(define addons '("Morrowind.esm" "Bloodmoon.esm" "Tribunal.esm"))

abramsba

(define-type M_EQUIPMENT_HASH (Immutable-HashTable Symbol M_ITEM_HASH))
(struct m_equipment
  ([head      : m_item]
   [chest     : m_item]
   [legs      : m_item]
   [lshoulder : m_item]
   [rshoulder : m_item]
   [lhand     : m_item]
   [rhand     : m_item]
   [feet      : m_item]

abramsba

(: slots (Listof Symbol))
(define slots '(Head Chest Legs LShoulder RShoulder LHand RHand Feet Shirt Pants Skirt Ring1 Ring2 Amulet Belt Weapon Shield Ammo))

(: SLOT_LOOKUP (Immutable-HashTable Symbol Symbol))
(define SLOT_LOOKUP
  (let ()
    (make-immutable-hash
     (cast (map
      (λ (s i)
        (cons s (string->symbol (number->string (cast i Number)))))

abramsba

#lang typed/racket


(provide
 
 M_LOGIN_HASH
 m_login
 m_login->jsexpr
 jsexpr->m_login

abramsba

#lang racket

(require json)
(require (planet dmac/spin))

(define workingdir "D:/tes3mp/mp-stuff/")
(define datadir "data/player/")

(define (get-player-names)
  (let*

abramsba

create table "actionname-e" ( "tag" text, "id" text, "type" text, "category" text, "cat2_cnt" text, "c[0]" text, "c[1]" text, "c[2]" text, "c[3]" text, "c[4]" text, "c[5]" text, "c[6]" text, "c[7]" text, "c[8]" text, "c[9]" text, "c[10]" text, "c[11]" text, "c[12]" text, "c[13]" text, "c[14]" text, "c[15]" text, "c[16]" text, "c[17]" text, "c[18]" text, "c[19]" text, "c[20]" text, "c[21]" text, "c[22]" text, "c[23]" text, "c[24]" text, "c[25]" text, "c[26]" text, "c[27]" text, "c[28]" text, "c[29]" text, "c[30]" text, "c[31]" text, "c[32]" text, "c[33]" text, "c[34]" text, "c[35]" text, "c[36]" text, "c[37]" text, "c[38]" text, "c[39]" text, "c[40]" text, "c[41]" text, "c[42]" text, "c[43]" text, "c[44]" text, "c[45]" text, "c[46]" text, "c[47]" text, "c[48]" text, "c[49]" text, "c[50]" text, "c[51]" text, "c[52]" text, "c[53]" text, "c[54]" text, "c[55]" text, "c[56]" text, "c[57]" text, "c[58]" text, "c[59]" text, "c[60]" text, "c[61]" text, "c[62]" text, "c[63]" text, "c[64]" text, "c[65]" text, "c[66]" te

abramsba

{
  "fired":[
    {
      "shooter":{
        "id":"76561197960945508",
        "tag":"B Alpha 1-2:1 (_bryan)",
        "player":true,
        "side":"WEST",
        "name":"_bryan",
        "location":{

abramsba

class ZCL_SPB_VALIDATOR definition
  public
  final
  create public .

public section.

  methods VALIDATE
    importing
      !XML type STRING