mohiji

#include "egoboo.h"
#include "Ui.h"
#include "Menu.h"
#include "Log.h"

// TEMPORARY!
#define NET_DONE_SENDING_FILES 10009
#define NET_NUM_FILES_TO_SEND  10010

//--------------------------------------------------------------------------------------------

mohiji

// Egoboo - Ui.c

#include "Ui.h"
#include <string.h>
#include <SDL_opengl.h>

struct UiContext
{
	// Tracking control focus stuff
	UI_ID active;

mohiji

#include <vector>
#include <cstdio>
using namespace std;

class Test
{
public:
	Test()
	{
		printf("  Test being created!\n");

mohiji

#ifdef WIN32

WSADATA g_wsadata;
#define StartSocketLib WSAStartup( MAKEWORD(2, 2), &g_wsadata);
#define CloseSocketLib WSACleanup();

#else

#define StartSocketLib {} 
#define CloseSocketLib {}

mohiji

(defparameter *locations* (make-hash-table :test 'eq))

(defclass location ()
  ((name :accessor location-name :initarg :name)
   (description :accessor location-description :initarg :description)
   (exits :accessor location-exits :initarg :exits)))

(defmacro define-location (symbol-name &key name description exits)
  `(setf (gethash ',symbol-name *locations*)
		 (make-instance 'location

mohiji

//
//  CollisionMap.h
//  MazeGame
//
//  Created by Jonathan Fischer on 2/25/12.
//

#import <Foundation/Foundation.h>
#include "MapCommon.h"
@class Path;

mohiji

_stationaryMaria = [[Maria alloc] init];
_stationaryMaria.x = 7.0f * 24.0f;
_stationaryMaria.y = 5.0f * 24.0f;

mohiji

(pdf:with-document ()
  (pdf:with-page (:bounds pdf:*letter-portrait-page-bounds*)
    (let ((width (elt pdf:*letter-portrait-page-bounds* 2))
          (height (elt pdf:*letter-portrait-page-bounds* 3))
          (helvetica (make-instance 'pdf:font)))
      (loop for y from 20 to height by 20 do
           (pdf:move-to 0 y)
           (pdf:line-to width y))

      (loop for x from 20 to width by 20 do

mohiji

//
//  TextureAtlas.h
//
//  Created by Jonathan Fischer on 8/10/12.
//  Copyright (c) 2012 Jonathan Fischer. All rights reserved.
//

#import <Foundation/Foundation.h>

@interface AtlasFrame : NSObject

mohiji

(defvar *grass-base-color* (list 64 137 44))
(defvar *grass-medium-color* (mapcar (lambda (x) (round (* x 0.9))) *grass-base-color*))
(defvar *grass-dark-color* (mapcar (lambda (x) (round (* x 0.8))) *grass-base-color*))

(defun generate-grass-texture2 (file width height)
  (let* ((png (make-instance 'zpng:png
                             :color-type :truecolor-alpha
                             :width width
                             :height height))
         (image (zpng:data-array png)))